Histórico da Página

01. DATOS GENERALES

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
M486RNFXML	XML de Guías de Remisión Electrónicas - Perú	22/06/2022

País:

Perú (PER)

Ticket:

17336421

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

DMINA-19961

02. SITUACIÓN/REQUISITO

Se solicita la activación de Puntos de Entrada que permitan realizar los siguientes ajustes en el XML de Guías de Remisión Electrónicas (GRE) del País Perú:

...

Informações

title	Información

El Punto de Entrada M486RNF recibe como parámetro la opción de tipo Caracter, mediante el cual se tienen disponibles las siguientes opciones:

Si opción es "N", para se permite la generación del Nodo de Observacionesy .

Image Added

Si opción es "P" para , permite la generación del nodo de Número de Bultos o Pallets, de igual manera se pueden generar los indicadores utilizando los tag cbc:SpecialInstructions.

Image Added

Si opción es "S", permite la generación del tag cbc:HandlingInstructions con la descripción del Motivo de Traslado.

Image Added

Si opción es "DA", permite la generación del tag cbc:AddressTypeCode con el código de establecimiento de llegada.

Image Added

Si opción es "CO", permite la generación del tag cac:Package con los datos Utilizando la opción "P" de la generación del nodo de Número de Bultos o Pallets, se pueden generar los nodos de Número de Contenedor y Número de Precinto.

Image Added

Si opción es "R", permite la generación del tag cbc:DocumentType con la descripción del tipo de Documento de Referencia, recibiendo el segundo parámetro con el código del tipo de documento de referencia.

Image Added

Si opción es "PU", permite la generación del tag cbc:CompanyID el número de MTC del Transportista.

Image Added

Se debe retornar en un string los nodos generados de acuerdo a lo permitido por la guía de Guías de Remisión Electrónica definido por la SUNAT.

Se tiene acceso disponible a los campos de la tabla SF2 - Encabezado de Fact. de Salida por el posicionamiento previo a la tabla, y es importante realizar las bifurcaciones de manera correcta para la generación de los nodos y en caso de requerir utilizar el Motivo de Traslado se puede utilizar el campo Motivo Tras (F2_MODTRAD).

...

Totvs custom tabs box

tabs	Pre-condiciones, Transmisión de GRE, Paso 03, Paso 04
ids	paso1,paso2

Totvs custom tabs box items

default	yes
referencia	paso1

Realizar un respaldo del repositorio del ambiente (archivo .rpo).
Descargar y actualizar el parche generado para la issue DMINA-19961.
- NOTA: Validar que correspondan a las rutinas y fechas indicadas en el sección 01. DATOS GENERALES.
Tener configurada la funcionalidad para transmisión electrónica de Guías de Remisión (RNF), para más información ver el Documento Técnico de Transmisión de Guías de Remisión.
Compilas los Puntos de Entrada M486DETRNF o M486RNF.
En el módulo Facturación (SIGAFAT):
- Ir al menú Actualizaciones | Pedidos | Pedidos de Venta (MATA410).
- Incluir un Pedido de Venta, informando el campo Doc Gener. (C5_DOCGER) con valor 2 - Remisión.
- Ir al menú Actualizaciones | Form. de Remisión | Generac. de Remitos (MATA462AN).
- Seleccionar los ítems del Pedido de Venta creado previamente.
- Ejecutar la acción +Gen Remisión.

Totvs custom tabs box items

default	no
referencia	paso2

En el módulo Facturación (SIGAFAT):
Acceder a la rutina Documentos Electrónicos (MATA486), ubicada en la ruta: Actualizaciones | Facturación | Documentos Electrónicos.
- Especificar en los parámetros la Serie y el Tipo de Documento: Guía Remisión
- Indique los parámetros para el filtrado de los documentos a transmitir.
  1. Serie: Serie de las guías de remisión a transmitir.
  2. Guía de remisión inicial: Número de documento inicial a transmitir.
  3. Guía de remisión final: Número de documento inicial a transmitir.
- Una vez finalizado el proceso de transmisión se visualiza ventana con el log del proceso, presionar Sí para verificar el resultado de la transmisión.
- Puede revisar la Constancia de Recepción emitida por el OSE a través de la opción Monitor.
- Indique los parámetros para el filtrado de los documentos que serán visualizados en el monitor.
  1. Serie: Serie de las guías de remisión a consultar.
  2. Guía de remisión inicial: Número de documento inicial.
  3. Guía de remisión final: Número de documento inicial.
- El monitor cuenta con botones inferiores cuya funcionalidad es la siguiente:
  1. Leyenda: Contiene los significados de los estatus de los documentos electrónicos.
  2. XML Envío: Muestra el XML enviado al enviado al OSE.
  3. CDR: Muestra la Constancia de Recepción emitida por el OSE en formato XML.
  4. Salir: Permite cerrar el monitor.
- Validar que en XML se visualicen las personalizaciones realizadas a través de los Puntos de Entrada M486DETRNF y/o M486RNF.

...

Bloco de código

title	M486RNF

#include "protheus.ch"

User  User Function M486RNF()
     Local cXMLPE := ""
    Local cCRLF    := (chr(13)+chr(10)) //Salto de Línea
    Local cOpc    := PARAMIXB[1] //Opción N - Notas, P - Pallets/Contenedor/Precinto
    Local cCodDoc := IIf(cOpc=="R",PARAMIXB[2],"")  //cbc:DocumentTypeCode
    Local cDesTpD := ""

    If cOpc == "N" //Observaciones
        cXMLPE += '	<cbc:Note>Prueba del PE M486RNF</cbc:Note>' + cCRLF  
    ElseIf cOpc == "P" //número de Pallets
        If Alltrim(SF2->F2_MODTRAD) == "01" //Importación
            cXMLPE += '		<cbc:TotalTransportHandlingUnitQuantity>80</cbc:TotalTransportHandlingUnitQuantity>' + cCRLF
    EndIf
Return    EndIf
    ElseIf cOpc == "S" //Shipment
        cXMLPE += '		<cbc:HandlingInstructions>DESCRIPCION DEL MOTIVO DE TRASLADO</cbc:HandlingInstructions>' + cCRLF
    ElseIf cOpc == "DA" //Establecimiento
        cXMLPE += '			<cbc:AddressTypeCode listAgencyName="PE:SUNAT" listName="Establecimientos anexos" listID="20552174918">3985</cbc:AddressTypeCode>' + cCRLF 
    ElseIf cOpc == "CO" //Número de Contenedor y Número de Precinto
        cXMLPE += '			<cac:Package>' + cCRLF
        cXMLPE += '				<cbc:ID>hlxu2142141</cbc:ID>' + cCRLF
        cXMLPE += '				<cbc:TraceID>002jp00124</cbc:TraceID>' + cCRLF
        cXMLPE += '			</cac:Package>' + cCRLF
    ElseIf cOpc == "R" //AdditionalDocumentReference
        If cCodDoc == "01"
            cDesTpD := "FACTURA"
        ElseIf cCodDoc == "50" 
            cDesTpD := EncodeUtf8("Declaración Aduanera de Mercancías")
        EndIf
        cXMLPE += '		<cbc:DocumentType>' + cDesTpD + '</cbc:DocumentType>' + cCRLF
    ElseIf cOpc == "PU" //MTC
        cXMLPE += '				<cbc:CompanyID>0200310CNG</cbc:CompanyID>' + cCRLF
    EndIf      Return cXMLPE

Card documentos

Informacao	La presente solución aplica para versión 12.1.33 o superior.
Titulo	¡IMPORTANTE!

...

Árvore de páginas

Versões comparadas

Versão antiga 8

Nova versão Atual

Chave

01. DATOS GENERALES

02. SITUACIÓN/REQUISITO