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
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas