Histórico da Página
...
ÍNDICE Índice
1. REQUERIMIENTOS
Características del Requisito Âncora inicio inicio
...
cXML += '</Retention>' + cCRLF
Return cXML
4.6 PE - M486PDFGEN
En la rutina de Documentos Electrónicos (MATA486), se requiere habilitar el punto de entrada "M486PDFGEN", que permite la personalización de la impresión del PDF de los documentos electrónicos desde la opción "Otras acciones >> Recuperar PDF y XML".
Informações | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
El Punto de Entrada M486PDFGEN ya se encuentra habilitado desde la opción "Otras acciones >> Imprimir PDF"
|
...
SOLUCION
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.
Informações |
---|
Dicho punto de entrada ya existía solo se habilito desde la opción "Recupera XML/PDF", solo que cuando se ejecute desde esta opción se obtendrán los siguientes parámetros:
Cuando se ejecute desde la opción "Imprimir PDF", no se obtendrán acceso a dichos parámetros. |
Aviso | ||
---|---|---|
| ||
|
Ejemplo de Punto de entrada:
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 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 |
Ejemplo:
#Include 'Protheus.ch'
User Function M486PDFGEN()
MsgAlert("Aquí debe colocar lógica para imprimir pdf ")
...
4.7 PE - M486NF
Descripción: | M486NF.- Adicionar información que no es obligatoria para la SUNAT para el documento Factura/Boleta de Venta | ||||||||
Ubicación: | Actual/ Faturamento/Transmisión Electrónica | ||||||||
Eventos: | Transmitir | ||||||||
Programa Fuente: | M486XMLNF | ||||||||
Función: | fGenXMLNF | ||||||||
Retorno: |
|
...