Tiempo aproximado de lectura 00:05:00 min
Duda
¿Como generar un PDF personalizado en la transmisión de Documentos de Perú?
Entorno
Cross Segmentos - TOTVS Backoffice (Linea Protheus) - MI - Facturación (SIGAFAT) - A partir de la versión 12.1.2310
Solución
Es posible generar un PDF personalizado en la transmisión de Documentos de Perú a traves del punto de entrada M486PDFGEN, sin embargo este punto de entrada solo funcionará cuando se utilicen los metodos de transmisión con los OSE TCI, RSM y la transmisión directa a SUNAT con uso de TSS.
Se agrega en la acción Recupera XML/PDF, para cuando exista compilado el punto de entrada "M486PDFGEN" se ejecute para la personalización del PDF y no realice la impresión predefinida por el sistema.
Ejemplo de Punto de entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | 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 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 |
0 Comentarios