Histórico da Página
...
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: |
fGenXMLRNF | |||||||||
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 |
Informações | |||||
---|---|---|---|---|---|
| |||||
|
4.20 PE - M486DETRNF
Descripción: | M486DETRNF .- Permite modificar los datos de Unidad de medida del bien (/DespatchAdvice/cac:DespatchLine/cbc:DeliveredQuantity@unitCode), Cantidad del bien (/DespatchAdvice/cac:DespatchLine/cbc:DeliveredQuantity), Descripción detallada del bien (/DespatchAdvice/cac:DespatchLine/cac:Item/cbc:Description) y Código del bien (/DespatchAdvice/cac:DespatchLine/cac:Item/cac:SellersItemIdentification/cbc:ID) de las Guías de Remisión Electrónicas. | ||||||||
Ubicación: | Actualizaciones / Facturación/ Transmisión Electrónica | ||||||||
Eventos: | Transmitir | ||||||||
Programa Fuente: | M486RNFXML.PRW | ||||||||
Función: | M486XMLTRA | ||||||||
Respuesta: |
|
Bloco de código | ||
---|---|---|
| ||
#include "protheus.ch"
User Function M486DETRNF()
Local cFilDoc := PARAMIXB[1] //Filial
Local cNumDoc := PARAMIXB[2] //Número de Documento
Local cSerDoc := PARAMIXB[3] //Serie de Documento
Local cEspDoc := PARAMIXB[4] //Especie de Documento
Local cCodCli := PARAMIXB[5] //Codigo de Cliente
Local cCodLoj := PARAMIXB[6] //Codigo de la Tienda
Local cItem := PARAMIXB[7] //Ítem
Local cCodPro := PARAMIXB[8] //Código de Producto
Local aDetGRE := {Nil, Nil, Nil, Nil}
aDetGRE[1] := 50 //Cantidad
aDetGRE[2] := "PC" //Unidad de Medida
aDetGRE[3] := Nil //Descripción del Producto
aDetGRE[4] := Nil //Código del Producto
Return aDetGRE |
Informações | ||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||||||||||
En el Punto de Entrada M486DETRNF, se debe retornar un arreglo con 4 posiciones, y se recomienda que se retornen con el valor Nil las posiciones que no se van a actualizar. Se reciben como parámetros los datos Filial del Documento, Número de Documento, Serie del Documento, Especie del Documento, Código de Cliente, Loja del Cliente, Número de ítem y Código del Producto. Las posiciones a retornar corresponden a la generación de los siguientes datos:
|
5. DESCARGA DEL EJECUTABLE SUNATSERVICECONN
...