|
FORUMS PROFESSIONNELS WINDEV, WEBDEV et WINDEV Mobile |
| | | | | |
Accueil → WINDEV 25 → WX - Exemplo de Relatorio CSV Lineprint totalizado com Surrond Break e Resumo Final abrindo o Excel no final. |
WX - Exemplo de Relatorio CSV Lineprint totalizado com Surrond Break e Resumo Final abrindo o Excel no final. |
Débuté par adrianoboller, 01 aoû. 2015 20:36 - 3 réponses |
| |
| | | |
|
| |
Membre enregistré 3 655 messages Popularité : +175 (223 votes) |
|
Posté le 01 août 2015 - 20:36 |
Procedure ExcelDetalhadoCsv()
ok is boolean = False CAB is int = 0 Lineprint, ResumoPrint is string = "" sFileName is string = ""
ok = HExecuteQuery(QRY_Select_NG0009_RelatorioAuxiliar,hQueryDefault+hWithFilter,gnConvenioAdministrador +"_"+ gnSeqAutorzAdministrador)
IF ok = True THEN
FOR EACH QRY_Select_NG0009_RelatorioAuxiliar
IF CAB = 0 THEN CAB = 1 Lineprint = "ccccc"+Charact(13)+Charact(10) END
IF QRY_Select_NG0009_RelatorioAuxiliar.SubTotal01 <> 1 Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna01 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna02 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna03 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna04 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna05 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna06 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna07 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna08 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna09 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna10 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna11 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna12 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna13 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna14 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna15 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna16 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna17 + Charact(13)+Charact(10) ELSE
ResumoPrint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna03 +";"+ QRY_Select_NG0009_RelatorioAuxiliar.Coluna15 +";"+ QRY_Select_NG0009_RelatorioAuxiliar.Coluna16 +";"+ QRY_Select_NG0009_RelatorioAuxiliar.Coluna17 +Charact(13)+Charact(10)
Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna03 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna15 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna16 +";" Lineprint += QRY_Select_NG0009_RelatorioAuxiliar.Coluna17 + Charact(13)+Charact(10) Lineprint += Charact(13)+Charact(10) Lineprint += Charact(13)+Charact(10) END
END
END
Lineprint += Charact(13)+Charact(10) Lineprint += "TOTAL GERAL Km: "+ gloQtdeKm + " - Valor Bruto R$: "+ gloValorGrandeTotal +" - % Desconto: "+ gloPorcGrandeDesconto +" - Valor Desconto: "+ gloValorGrandeDesconto +" - Valor Liquido R$: "+ gloValorGrandeTotalLiquido + Charact(13)+Charact(10)
Lineprint = Replace(Lineprint,".",",")
Lineprint += Charact(13)+Charact(10) Lineprint += Charact(13)+Charact(10) Lineprint += "Resumo: " + Charact(13)+Charact(10) Lineprint += ResumoPrint + Charact(13)+Charact(10)
IF ok = True sFileName = WS_ReturnGenerationDir() + "FechamentoVoucher"+ gnConvenioAdministrador +"_"+ gnSeqAutorzAdministrador +".csv" fSaveBuffer(sFileName,Lineprint) iDestination(iGenericXLS,sFileName) FileDisplay(sFileName,"application/unknown","FechamentoVoucher"+ gnConvenioAdministrador +"_"+ gnSeqAutorzAdministrador +".csv") fDelete(sFileName) EN |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 655 messages Popularité : +175 (223 votes) |
|
Posté le 01 août 2015 - 20:36 |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 655 messages Popularité : +175 (223 votes) |
|
Posté le 13 août 2015 - 22:44 |
Lineprint is string = ""
Lineprint = "cabeça" + CRLF
LOOP (10)
Lineprint += "pescoço" + CRLF Lineprint += "corpo" + CRLF Lineprint += "quadril" + CRLF Lineprint += "pernas" + CRLF
END
Lineprint += "pé"
sFileName is string Lineprint = Replace(Lineprint,".",",") sFileName = WS_ReturnGenerationDir() + "UsuarioCorridaVoucher"+ gnConvenioAdministrador +".xls" fSaveText(sFileName,LINEPRINT) iDestination(iGenericXLS,sFileName) FileDisplay(sFileName,"application/unknown","CentroCustoFichas"+ gnConvenioAdministrador +".csv") fDelete(sFileName)
OU
sFileName is string sFileName = WS_ReturnGenerationDir() + "UsuarioCorridaVoucher"+ gnConvenioAdministrador +".xls" iDestination(iGenericXLS,sFileName) iInitReportQuery(RPT_UsuarioCorridasVouchers,gnConvenioAdministrador,Edt_CentroCusto,EDT_DataInicial,EDT_DataFinal) iPrintReport(RPT_UsuarioCorridasVouchers,gnConvenioAdministrador,Edt_CentroCusto,EDT_DataInicial,EDT_DataFinal) FileDisplay(sFileName,"application/unknown", "UsuarioCorridaVoucher"+ gnConvenioAdministrador +".xls") fDelete(sFileName)
|
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 655 messages Popularité : +175 (223 votes) |
|
Posté le 13 août 2015 - 22:44 |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|