Histórico da Página

...

Producto

Solucoes_espanhol

Solucao	TOTVS Backoffice

Línea de producto:

Linhas_totvs_espanhol

Linha	Línea Protheus

Segmento:

Segmentos_totvs_espanhol

Segmento	Backoffice

Módulo:

SIGAFAT - Facturación

Función:

Rutina	Nombre Técnico	Fecha
M486XFUN	Funciones genéricas de FE de país Perú.	25/11/2021

País:

Perú

Ticket:

12373621

Requisito/Story/Issue (informe el requisito vinculado):

DMINA-13977

...

En la rutina Funciones genéricas de FE de país Perú (M486XFUN) se activa el Punto de Entrada M486DIRREC para permitir que el usuario realice la inclusión del nodo <cac:RegistrationAddress> con los nodos con la información correspondiente a la dirección del adquiriente dentro del nodo cac:AccountingCustomerParty/cac:Party/cac:PartyLegalEntity.

Aviso

title	Importante

Para el uso del Punto de Entrada se tiene disponibilidad a los datos de la Tabla de Clientes (SA1) y el Punto de Entrada aplica para Facturas de Venta, Boletas de Venta, Nota de Débito del Cliente y Nota de Crédito de Cliente.

Totvs custom tabs box

tabs	Pre-condiciones,Pasos
ids	Pre-condiciones,Pasos

Totvs custom tabs box items

default	yes
referencia	Pre-condiciones

Realizar un respaldo del repositorio del ambiente (archivo .rpo).
Aplicar el parche generado para la issue DMINA-13977.
En el módulo Facturación (SIGAFAT), ir al menú Actualizaciones | Facturación | Facturaciones (MATA467N).
- Contar con una Factura de Venta (NF) registrada.

Totvs custom tabs box items

default	no
referencia	Pasos

En el módulo Facturación (SIGAFAT), ir al menú Actualizaciones | Facturación | Documentos Electrónicos (MATA486).
Informar los parámetros:
- ¿Tipo de Documento? = Factura
- ¿Serie? = <Serie de la Factura de Venta>
Ejecutar la acción Transmitir.
Informar los parámetros:
- ¿Serie de Factura? = <Serie de la Factura>
- ¿Factura Inicial? = <Folio de la Factura creada previamente>
- ¿Factura Final? = <Folio de la Factura creada previamente>
Validar que el proceso de transmisión electrónica haya sido exitoso.
Validar que el nodo cac:AccountingCustomerParty/cac:Party/cac:PartyLegalEntity contenga los nodos configurados en el Punto de Entrada M486DIRREC.

...

Bloco de código

title	Ejemplo de Punto de Entrada M486DIRREC

User Function M486DIRREC()
    Local aArea     := GetArea()         // Se reserva el área de trabajo 
    Local cXML      := ""                // Cadena de retorno
    Local cCRLF     := (chr(13)+chr(10)) // Salto de línea
    Local cCliente  := PARAMIXB[1]       // Código del cliente
    Local cLoja     := PARAMIXB[2]       // Código del la tienda.
    Local cFilSA1   := xFilial("SA1")
    
    DbSelectArea("SA1")
    SA1->(dbSetOrder(1)) // A1_FILIAL+A1_COD+A1_LOJA
    If ( SA1->(DbSeek(cFilSA1 + cCliente + cLoja )))
        cXML += '               				<cac:RegistrationAddress>'+ cCRLF
        cXML += '                   					<cbc:ID schemeName="Ubigeos">' + RTRIM(SA1->A1_CEP) + '</cbc:ID>' + cCRLF
        cXML += '                   					<cbc:AddressTypeCode listName="Establecimientos anexos">0000</cbc:AddressTypeCode>'+ cCRLF
        cXML += '				                    	<cbc:CitySubdivisionName>-</cbc:CitySubdivisionName>'+ cCRLF
        cXML += '                     		<cbc:CityName><![CDATA[' + RTRIM(SA1->A1_MUN) + ']]></cbc:CityName>'+ cCRLF
        cXML += '                       		<cbc:CountrySubentity><![CDATA[' + RTRIM(M486VALSX5("12",SA1->A1_EST)) + ']]></cbc:CountrySubentity>'+ cCRLF
        cXML += '                          		<cbc:District><![CDATA[' + RTRIM(SA1->A1_BAIRRO) + ']]></cbc:District>'+ cCRLF
        cXML += '                     		<cac:AddressLine>'+ cCRLF
        cXML += '                           		<cbc:Line><![CDATA[' + RTRIM(SA1->A1_END) + ']]></cbc:Line>'+ cCRLF
        cXML += '                       		</cac:AddressLine>'+ cCRLF
        cXML += '                          		<cac:Country>'+ cCRLF
        cXML += '                           		<cbc:IdentificationCode listName="Country">PE</cbc:IdentificationCode>'+ cCRLF
        cXML += '                   					</cac:Country>'+ cCRLF
        cXML += '                 		</cac:RegistrationAddress>' + cCRLF
    EndIf

    RestArea(aArea)
Return cXML

...

Card documentos

Informacao	La presente solución aplica para versión 12.1.17 o superior, siempre y cuando se tengan las rutinas actualizadas a la fecha indicada en la sección 01 - Datos Generales, y tener activa la funcionalidad de Facturación Electrónica para el país Perú.
Titulo	¡IMPORTANTE!

05. ASUNTOS RELACIONADOS

...

Árvore de páginas

Versões comparadas

Versão antiga 9

Nova versão Atual

Chave

05. ASUNTOS RELACIONADOS