Histórico da Página
...
| Campo | DA4_AMATER |
| Orden | ZZ |
| Tipo | Caracter |
| Tamaño | 15 |
| Decimal | 0 |
| Título | Apellido Mat. |
| Descripción | Apellido Mat. Conductor |
| Nivel | 1 |
| Utilizado | Si |
| Obligatorio | No |
| Browse | No |
| Help | Apellido materno del conductor. |
| Campo | DA4_RG |
| Orden | ZZ |
| Tipo | Caracter |
| Tamaño | 15 |
| Decimal | 0 |
| Título | RG |
| Descripción | RG |
| Nivel | 1 |
| Utilizado | Si |
| Obligatorio | No |
| Browse | No |
b) Configuración de parámetros en el archivo SX6 - Parámetros:
...
| Bloco de código | ||
|---|---|---|
| ||
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
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
RestArea(aArea)
Return cXML |
4.19 PE - M486RNF
Descripción: | M486RNF .- Permite realizar ajustes al XML de Guía de Remisión Electrónica. | ||||||||
Ubicación: | Actualizaciones / Facturación/ Transmisión Electrónica | ||||||||
Eventos: | Transmitir | ||||||||
Programa Fuente: | NFAEXMLPER.PRW | ||||||||
Función: | Varias | ||||||||
Respuesta: |
|
| Bloco de código | ||
|---|---|---|
| ||
#include "protheus.ch"
User Function M486RNF()
Local cXMLPE := ""
Local cCRLF := (chr(13)+chr(10))
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
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 |
5. DESCARGA DEL EJECUTABLE SUNATSERVICECONN
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas