Luiz Arruda (ICO) Posted August 27, 2012 Report Share Posted August 27, 2012 Boa tarde.. Pessoal, tenho um relatorio bem simples com tREPORT, só para demonstrar quem é registrado e quem é diarista. REPORT oRpt TITLE "RELAÇÃO DE EMPREGADOS", ; "RAZÃO SOCIAL: &eemp", ; "EMPRESA: &wFazenda" LEFT ; HEADER "Data: "+DTOC(DATE()),"Página: "+STRZERO(oRpt:nPage,3) RIGHT ; FOOTER "NewRelJat()" RIGHT ; FONT oFont1,oFont2,oFont3; PREVIEW CAPTION "Relação de Empregados" COLUMN TITLE "CONTA" DATA NewRel->Conta COLUMN TITLE "Nome " DATA NewRel->Nome SIZE 40 COLUMN TITLE "TIPO " DATA "Registrado" NewRel->inic COLUMN TITLE "ADMISSAO" DATA " / / " size 10 COLUMN TITLE "TP" Data " " SIZE 3 END REPORT oRpt:CellView() // oRpt:oTitle:aFont[1]:={|| 3} oRpt:bStartLine := {|o| If( ++nLines > 70 .and.!oRpt:lFinish, (o:EndPage(), nLines := 1), ) } Activate REPORT oRpt ON STARTPAGE StartPage() ; ON POSTEND FimRelatorio() id=code>id=code>Antes era demonstrado com "R" e "N" direto do cadastro, agora surgiu a necessidade de escrever "FIXO" e "DIARISTA" só que se eu fizer assim If TP = "R" COLUMN TITLE "TIPO " DATA "FIXO" //NewRel->inic Elseif TP = "N" COLUMN TITLE "TIPO " DATA "Diarista" //NewRel->inic Endif id=code>id=code> id=blue>Não funciona.. como faço isso ?? Na matricial eu fiz assim e deu certo, só que usando codigo o famoso Prow(),Lin do Clipper e não tReport desde já obrigado. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 27, 2012 Author Report Share Posted August 27, 2012 Boa tarde.. Pessoal, tenho um relatorio bem simples com tREPORT, só para demonstrar quem é registrado e quem é diarista. REPORT oRpt TITLE "RELAÇÃO DE EMPREGADOS", ; "RAZÃO SOCIAL: &eemp", ; "EMPRESA: &wFazenda" LEFT ; HEADER "Data: "+DTOC(DATE()),"Página: "+STRZERO(oRpt:nPage,3) RIGHT ; FOOTER "NewRelJat()" RIGHT ; FONT oFont1,oFont2,oFont3; PREVIEW CAPTION "Relação de Empregados" COLUMN TITLE "CONTA" DATA NewRel->Conta COLUMN TITLE "Nome " DATA NewRel->Nome SIZE 40 COLUMN TITLE "TIPO " DATA "Registrado" NewRel->inic COLUMN TITLE "ADMISSAO" DATA " / / " size 10 COLUMN TITLE "TP" Data " " SIZE 3 END REPORT oRpt:CellView() // oRpt:oTitle:aFont[1]:={|| 3} oRpt:bStartLine := {|o| If( ++nLines > 70 .and.!oRpt:lFinish, (o:EndPage(), nLines := 1), ) } Activate REPORT oRpt ON STARTPAGE StartPage() ; ON POSTEND FimRelatorio() id=code>id=code>Antes era demonstrado com "R" e "N" direto do cadastro, agora surgiu a necessidade de escrever "FIXO" e "DIARISTA" só que se eu fizer assim If TP = "R" COLUMN TITLE "TIPO " DATA "FIXO" //NewRel->inic Elseif TP = "N" COLUMN TITLE "TIPO " DATA "Diarista" //NewRel->inic Endif id=code>id=code> id=blue>Não funciona.. como faço isso ?? Na matricial eu fiz assim e deu certo, só que usando codigo o famoso Prow(),Lin do Clipper e não tReport desde já obrigado. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
fluna Posted August 27, 2012 Report Share Posted August 27, 2012 COLUMN TITLE "TIPO " DATA IIF( TP="R","FIXO","DIARISTA") xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 29, 2012 Author Report Share Posted August 29, 2012 Na mosca [:8] Valeu amigo.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 29, 2012 Author Report Share Posted August 29, 2012 Na mosca [:8] Valeu amigo.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.