Clipper On Line • Ver Tópico - Condicional no Browse

Condicional no Browse

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Condicional no Browse

Mensagempor rubens » 11 Out 2017 17:06

Boa tarde...

Tenho um browse de lançamentos no caixa. E tenho um campo Valor que serve tanto para credito como para débito. Só que na hora que faz a leitura e ativa o formulário tá executando a condicional somente na primeira coluna que é entradas. Não executa a condicional na segunda coluna que é saidas.
Olha como fica quando executa:
Caixa.png

A última linha que tem um valor de 115,00 é saída. Definido pelo campo DebCred='D'. Deveria esta na última coluna.
A linha que preenche o browse é:
FIELDS {'ICAI->DATA','ICAI->DOCUMENTO','ICAI->HISTORICO', If( icai->DebCred='C','TRANSFORM(ICAI->VALOR,"@E 99,999.99")','0.00'), If( icai->DebCred='D','TRANSFORM(ICAI->VALOR,"@E 99,999.99")','0.00') }


Código completo do Browse:
     DEFINE BROWSE BRW_CAIXA
            ROW    88
            COL    10
            WIDTH  882
            HEIGHT 373
            HEADERS {'Data','Documento','Histórico','Entradas','Saídas'}
            WIDTHS {130,130,350,125,125}
            FIELDS {'ICAI->DATA','ICAI->DOCUMENTO','ICAI->HISTORICO', If( icai->DebCred='C','TRANSFORM(ICAI->VALOR,"@E 99,999.99")','0.00'), If( icai->DebCred='D','TRANSFORM(ICAI->VALOR,"@E 99,999.99")','0.00') }
            VALUE {'Data','Documento','Histórico','Entradas','SAídas'}
            WORKAREA ICAI
            FONTNAME "Arial"
            FONTSIZE 12
            FONTBOLD .T.
            FONTITALIC .F.
            FONTUNDERLINE .F.
            FONTSTRIKEOUT .F.
            TOOLTIP ""
            BACKCOLOR NIL
            DYNAMICBACKCOLOR { BCOLOR , BCOLOR, BCOLOR, BCOLOR, BCOLOR }
            DYNAMICFORECOLOR { FCOLOR , FCOLOR, FCOLOR, FVLCOLOR, FVLCOLOR }
            FONTCOLOR NIL
            ONGOTFOCUS NIL
            ONCHANGE NIL
            ONLOSTFOCUS NIL
            ONDBLCLICK NIL
            ALLOWEDIT .F.
            ALLOWAPPEND .F.
            INPUTITEMS NIL
            DISPLAYITEMS NIL
            ONHEADCLICK NIL
            WHEN NIL
            VALID NIL
            VALIDMESSAGES NIL
            PAINTDOUBLEBUFFER .F.
            READONLYFIELDS NIL
            LOCK .F.
            ALLOWDELETE .F.
            NOLINES .F.
            IMAGE NIL
            JUSTIFY {BROWSE_JTFY_LEFT,BROWSE_JTFY_LEFT,BROWSE_JTFY_LEFT,BROWSE_JTFY_RIGHT,BROWSE_JTFY_RIGHT}
            VSCROLLBAR .T.
            HELPID NIL
     END BROWSE 


Como tá no início da migração dessa parte do código até dá para criar um campo Entrada e um campo Saída. Mas acho que vira uma redundância já que posso condicionar com o campo DEBCRED.

Obrigado
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Condicional no Browse

Mensagempor Toledo » 11 Out 2017 17:24

Rubens, tente o seguinte:

FIELDS {'ICAI->DATA','ICAI->DOCUMENTO','ICAI->HISTORICO', 'iif( icai->DebCred="C",TRANSFORM(ICAI->VALOR,"@E 99,999.99"),"0.00")', 'iif( icai->DebCred="D",TRANSFORM(ICAI->VALOR,"@E 99,999.99"),"0.00")' }


Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Condicional no Browse

Mensagempor JoséQuintas » 11 Out 2017 18:32

Se for igual no tbrowse normal, seria errado porque o tamanho do campo será diferente em cada caso.
Se acontecer isso, talvez melhor a Picture do zé..... rs

Transform( iif( icai->DebCred =="C", 0, icai->Valor ), "@ZE 99,999.99" )
Transform( iif( icai->DebCred =="D", 0, icai->Valor ), "@ZE 99,999.99" )
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Condicional no Browse

Mensagempor rubens » 11 Out 2017 22:27

Toledo, funcionou belezinha...
Inclusive até tirei o 0.00 conforme entrada ou saída.. antes não tinha dado certo... agora funcionou belezinha... obrigado.
FIELDS {'ICAI->CODCON','ICAI->DATA','ICAI->DOCUMENTO','ICAI->HISTORICO', 'iif( icai->DebCred="C",TRANSFORM(ICAI->VALOR,"@E 99,999.99")," ")', 'iif( icai->DebCred="D",TRANSFORM(ICAI->VALOR,"@E 99,999.99")," ")' }


Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro