Histórico da Página
...
Totvs custom tabs box | ||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||||
|
04. INFORMACIÓN ADICIONAL
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#include "protheus.ch"
User Function M486RNF()
Local cXMLPE := ""
Local cCRLF := (chr(13)+chr(10))
Local cOpc := PARAMIXB[1]
Local cTpDocC := "4"
Local cNumIdC := "A43594617"
Local cNomCom := "Razon Social Comprador"
If cOpc == "CP" //Comprador Provedor
//DATOS DEL COMPRADOR
If SF2->F2_MODTRAD == "03" //Motivo de Traslado 03 - Venta con entrega a terceros
cXMLPE := space(4) + '<cac:BuyerCustomerParty>' + cCRLF
cXMLPE += space(9) + '<cac:Party>' + cCRLF
cXMLPE += space(14) + '<cac:PartyIdentification>' + cCRLF
cXMLPE += space(19) + '<cbc:ID schemeID="' + cTpDocC + '" schemeName="Documento de Identidad" schemeAgencyName="PE:SUNAT" schemeURI="urn:pe:gob:sunat:cpe:see:gem:catalogos:catalogo06">' + cNumIdC + '</cbc:ID>' + cCRLF
cXMLPE += space(14) + '</cac:PartyIdentification>' + cCRLF
cXMLPE += space(14) + '<cac:PartyLegalEntity>' + cCRLF
cXMLPE += space(19) + '<cbc:RegistrationName>' + cNomCom + '</cbc:RegistrationName>' + cCRLF
cXMLPE += space(14) + '</cac:PartyLegalEntity>' + cCRLF
cXMLPE += space(9) + '</cac:Party>' + cCRLF
cXMLPE += space(4) + '</cac:BuyerCustomerParty>' + cCRLF
EndIf
EndIf
Return cXMLPE |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas