Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function M486PDFGEN() Local cSerieR := PARAMIXB[1] // Sucursal que emitió el documento. Local cDocIniR := PARAMIXB[2] // Número de Documento Local cDocFinR := PARAMIXB[3] // Número de Documento Local lRecupPDF:= IIf(!Empty(cSerieR),.T.,.F.) //Valida si se ejecuta la opción "Recupera XML/PDF" Local cPerg := "M486PDF" If !lRecupPDF .And. Pergunte(cPerg,.T.) MsgAlert("Aquí debe colocar lógica para imprimir pdf desde la opción Imprimir PDF") Else MsgAlert("Aquí debe colocar lógica para imprimir pdf desde la opción Recupera XML/PDF") EndIf Return Nil cPerg := "M486PDF" Private cSerie := "" Private cDocIni := "" Private cDocFin := "" Private cFormato := "" Private cPath := &(SuperGetmv( "MV_CFDDOCS" , .F. , "'cfd\recibos\'" )) + "\Autorizados\" Private oXML := Nil Private nTotPag := 0 Private oFont1 := TFont():New( "ARIAL", , 7, .F., .F.) Private oFont2 := TFont():New( "ARIAL", , 8, .F., .F.) Private oFont3 := TFont():New( "ARIAL", , 10, .T., .T.) Private oFont4 := TFont():New( "ARIAL", , 8, .F., .T.) //Negrita - 8 Private nLinea := 0 Private cPicture := "999,999,999,999.99" cPath := Replace( cPath, "\\", "\" ) If (!Empty(cSerieR) .Or. !Empty(cDocIniR) .Or. !Empty(cDocFinR)) Pergunte(cPerg,.T.) EndIf cSerie := IIf(!Empty(cSerieR),cSerieR,MV_PAR01) cDocIni := IIf(!Empty(cDocIniR),cDocIniR,MV_PAR02) cDocFin := IIf(!Empty(cDocFinR),cDocFinR,MV_PAR03) cFormato:= IIf(!Empty(cSerieR) .Or. !Empty(cDocIniR) .Or. !Empty(cDocFinR),1,MV_PAR04) Processa({|| PRINTPE(cEspecie)},"Espere..", "Imprimiendo documento autorizado desde PE") Return Nil |
Informações | ||
---|---|---|
| ||
En el ejemplo del Punto de Entrada En la función PRINTPE(), se define la impresión del encabezado y detalle del informe, como ejemplo en el Punto de Entrada se bifurca para que al ejecutar desde la acción Recupera XML/PDF no se muestra el grupo de preguntas, ya que se toman los valores del grupo de preguntas MATA486J |
Card documentos Informacao La presente solución aplica para versión de Protheus 12.1.2210 con garantía extendida o superior, y es necesario tener activa la funcionalidad de Transmisión Electrónica de UBL 2.1 directo a SUNAT a través de Protheus-TSS. Titulo ¡IMPORTANTE!
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas