Histórico da Página

...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#Include 'protheus.ch'
#Include 'parmtype.ch'

/*/{Protheus.doc} M486VLDCMP
Punto de Entrada utilizado para definir que en la rutina MATA410
se deshabilitarán las validaciones de Facturación Electrónica.

@type User function
@author TOTVS ERP
@return cVldEnRut, String, Nombre de la rutina de Pedidos de Venta
/*/
User function M486VLDCMP()
    Local cVldEnRut := ""

    cVldEnRut := "MATA410"

Return cVldEnRut

c)

...

Puntos de Entrada

Se activa el Punto de Entrada M486FECVEN, el cual permite la generación del nodo cbc:DueDate para informar la Fecha de Vencimiento (nodo que sólo aplica para Factura de Venta). Ejemplo del Punto de Entrada:

Se debe retornar valor de tipo carácter con el nodo de acuerdo a lo definido por la SUNAT.

...

2. Aplicar el paquete de actualización (patch), el cual contiene las siguientes rutinas:

Rutina	Nombre Técnico	Fecha
M486CBXML	XML para Comunicado de Baja.	08/07/2020
M486NCCXML	XML para Nota de Crédito.	17/07/2020
M486NDCXML	XML para Nota de Débito.	17/07/2020
M486NFXML	XML para Factura/Boleta de Venta.	17/07/2020
M486RNFXML	XML para Guía de Remisión.	08/07/2020
M486XFUN	Funciones genéricas para Facturación Electrónica.	22/07/2020

M486FECVEN

1
2
3
4
5
6
7
8
9

#include 'protheus.ch'

User Function M486FECVEN()
      Local cXMLVen := ""
      Local cFecVen := "2020-07-31" + Alltrim(SF2->F2_SERIE) + "-" + Alltrim(SF2->F2_DOC)
      Local cCRLF := (chr(13)+chr(10))

      cXMLVen += ' <cbc:DueDate>' + cFecVen + '</cbc:DueDate>' + cCRLF
Return cXMLVen

Image Modified

Se activa la generación del nodo cbc:ElectronicMail para informar el email al cual se hará el envío de documentos electrónicos una vez realizada la transmisión con el OSE denominado RSM, el dato informado corresponde al campos Email (A1_EMAIL) configurado en el Cliente.

Image Modified

Se activa el Punto de Entrada M486PEREF para definir la regla de negocio que aplicará para la generación del nodo cac:BillingReference en las Notas de Crédito de Cliente cuando el documentos origen no existe en Protheus:

NOTA: Se debe retornar un arreglo con la Serie, Folio, Tipo de Documento (Catálogo N.° 01 de la SUNAT) y Fecha de Emisión del documento que será relacionado a la nota de Crédito.
M486PEREF

1
2
3
4
5
6
7
8
9
10
11
12
13
14

#include 'protheus.ch'

User Function M486PEREF()
    Local cEs := PARAMIXB[1] //Especie
    Local cDc := PARAMIXB[2] //Documento
    Local cSe := PARAMIXB[3] //Serie
    Local cCl := PARAMIXB[4] //Cliente
    Local cLo := PARAMIXB[5] //Loja
    Local cSero := "F009"
    Local cDocO := RTRIM(cNFOri)
    Local cTpDocu := "01"
    Local cDtEmisi := "2020-07-31"

Return {cSero,cDocO,cTpDocu,cDtEmisi}

Image Modified

Procedimiento de Utilización

...

Árvore de páginas

Versões comparadas

Versão antiga 33

Nova versão 34

Chave

c)

Puntos de Entrada