Jump to content
Fivewin Brasil

Colocar Get Piscando


edutraini

Recommended Posts

Voce pode usar assim, o say, nunca testei no GET

 

 

    Define timer oTimer interval 1000 action Leitura_RECEBER_CONTAS(T_CODI_CLIENTE) of oDlg_PDV_RECEBER_CONTA
    oTimer:activate()
 

*-------------------------------------------------------------------------------
*
*-------------------------------------------------------------------------------
static Function Leitura_RECEBER_CONTAS(v_CODIGO_CLIENTE)
    oTimer:Deactivate()
    IF T_PISCAR_NOME_CLIENTE = 'S'
        IF T_CONTROLE_COR_TXT = '1'
            T_CONTROLE_COR_TXT := '2'
            oT_NOME_RECEBER:SetColor(Rgb(255,0,0),Rgb(191,239,255))    
        ELSE
            T_CONTROLE_COR_TXT:= '1'
            oT_NOME_RECEBER:SetColor(Rgb(191,239,255),Rgb(255,0,0))    
        ENDIF    
    ELSE
        oT_NOME_RECEBER        :SetColor()
    ENDIF
    
    oT_NOME_RECEBER      :Refresh()
    oTimer:Activate()
return
*-------------------------------------------------------------------------------
 

 

 

 

 

 

Link to comment
Share on other sites

 

Bom dia, Valdir

Na verdade eu queria colocar uma informacao de credito do cliente que esta sendo feito um orcamento para o Vendedor saber que aquele cliente esta devendo

Olá Edu...

No meu Sistema quando insiro as informações de um cliente, é verificado se há alguma pendência financeira.

No caso afirmativo, apresento ao usuários as informações pendentes e disponibilizo a opção de prosseguir ou não.

Abrs.

Link to comment
Share on other sites

Valdir escreveu:

No caso afirmativo, apresento ao usuários as informações pendentes e disponibilizo a opção de prosseguir ou não.

Como?

MsgInfo(), MsgStop(), um Dialogo ou SENSITIVE SAY ou um DYNAMIC SAY? 

é a dúvida que não calar ó amado Gurú!! kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

 

Link to comment
Share on other sites

Valdir eu tambem pensei nessa opcao, o problema que nessa tela de atendimento do sistema o meu cliente fica trocando de clientes o tempo todo ou seja  atende um fecha, abre outro fecha e assim por diante.Dessa foi achei que iria ficar aparecendo mensagem toda hora porisso optei em colocar um get ja trocado pelo say mostrando o valor que o cliente devendo em um determinado lugar da tela.

Eu nao consegui colocar o piscando mas coloquei em vermelho com uma fonte grande.

Obrigado a todos.

Link to comment
Share on other sites

 

Valdir escreveu:

No caso afirmativo, apresento ao usuários as "informações" pendentes e disponibilizo a opção de prosseguir ou não.

Como?

MsgInfo(), MsgStop(), um Dialogo ou SENSITIVE SAY ou um DYNAMIC SAY? 

é a dúvida que não calar ó amado Gurú!! kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

 

Prezado Karíssimo amigo... 

Se optasse apenas por apresentar uma "informação" sem maiores consequências, com certeza usaria "MSGINFO()"

Se optasse por "Parar" o programa, com certeza usaria "MSGSTOP()"

Se optasse somente para chamara a tenção, com certeza usaria "ALERT()"

Se optasse apenas por mostrar um Texto, com certeza usaria "SENSITIVE SAY"  ou até mesmo "DYNAMIC SAY"

Agora se optasse por mostrar ao usuário que existem "Informações" pendentes no financeiro, com certeza usaria "MSGYESNO()"...

Capisco ?

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

abração.

Link to comment
Share on other sites

No clipper era assim, bastava colocar um " * " junto com a cor

   SETCOLOR("N/BG")
   @ 05,16 CLEAR TO 07,78
   @ 05,18 SAY "Pesquisa: Informe o nome ou o c¢digo do cliente"
   @ 06,18 SAY "[Insert] Inclui um novo cliente ³ [F4] Altera"
   @ 06,19 SAY "Insert" COLOR "N*/BG"
   @ 07,19 SAY "[F9] Cadastra obserao"
   SETCOLOR(VCORSEL)

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...