Windev21 Aulas,Estudos e Desenvolvimento: Windev - Curso Relatorio - 20/... - Relatorio

sexta-feira, 26 de fevereiro de 2016

Windev - Curso Relatorio - 20/... - Relatorio - Gerar Pdf

Video youtube

Nessa aula vou mostrar como criar e abrir um pdf do relatorio

This lesson will show how to create and open a PDF report

Cette leçon va vous montrer comment créer et ouvrir un rapport PDF

http://doc.windev.com/en-US/?3046074&name=iDestination

http://doc.pcsoft.fr/fr-FR/?3046074&name=idestination_fonction

//pergunta se quer relatorio
IF CBOX_GeraPdf=True THEN
    iDestination(iPDF,"Relatorio_Nome.pdf")
ELSE
    iPreview(ipvZoomPageWidth)
END
//pergunta se quer relatorio
filtro_data_inicial = EDT_data_inicial
filtro_data_final = EDT_data_Final
IF CBOX_Relatorio_Grafico = 1 THEN // Imprime com gráfico
    iPrintReport(RPT_Material_Relatorio_Curva_ABC,filtro_data_inicial,filtro_data_final,1)
ELSE // Imprime sem gráfico
    iPrintReport(RPT_Material_Relatorio_Curva_ABC,filtro_data_inicial,filtro_data_final)
END
//Abrir pdf
IF CBOX_GeraPdf=True THEN
    IF YesNo("Deseja Abrir Relatorio") THEN
        ShellExecute("Relatorio_Nome.pdf")
    END
END
//Abrir pdf

//EM FRANCES
SI CBOX_GeraPdf=Vrai ALORS
    iDestination(iPDF,"Relatorio_Nome.pdf")
SINON
    iAperçu(iapZoomLargeurPage)
FIN
//pergunta se quer relatorio
filtro_data_inicial = EDT_data_inicial
filtro_data_final = EDT_data_Final
SI CBOX_Relatorio_Grafico = 1 ALORS // Imprime com gráfico
    iImprimeEtat(RPT_Material_Relatorio_Curva_ABC,filtro_data_inicial,filtro_data_final,1)
SINON // Imprime sem gráfico
    iImprimeEtat(RPT_Material_Relatorio_Curva_ABC,filtro_data_inicial,filtro_data_final)
FIN
//Abrir pdf
SI CBOX_GeraPdf=Vrai ALORS
    SI OuiNon("Deseja Abrir Relatorio") ALORS
        LanceAppliAssociée("Relatorio_Nome.pdf")
    FIN
FIN