Histórico da Página
...
04. INFORMACIÓN ADICIONAL
Ejemplo de los Puntos de Entrada:
Bloco de código | ||||
---|---|---|---|---|
| ||||
#include 'protheus.ch'
#INCLUDE "FWMVCDEF.CH"
#include "FILEIO.CH"
User Function PECOMPCON()
Local cXMLCon := ""
Local cCRLF := (chr(13)+chr(10))
Local cOpc := PARAMIXB[1] //Opión donde IA - Información Aduanera, CP - Cuenta Predial
Local lCadO := PARAMIXB[2] //Indica si es Cadena Origian .T. = Si y .F. = No
Local cSepa := "|"
Local cNPed := "23 47 3807 8003832"
Local cCtaP := "15956011002"
Local cBaseI := "0.01"
Local cImpto := "002"
Local cTipoF := "Tasa"
Local cTsaC := "0.000000"
Local cImpI := "0.00"
If Alltrim(cEspecie) == "NF"
If lCadO
If cOpc == "IA" //Información Aduanera
cXMLCon := StrTran(cNPed," "," ") + cSepa
ElseIf cOpc == "CP" //Cuenta Predial
cXMLCon := cCtaP + cSepa
ElseIf cOpc == "IT" //Impuestos por ítem por PE (Traslado)
cXMLCon := cBaseI + cSepa + cImpto + cSepa + cTipoF + cSepa + cTsaC + cSepa + cImpI + cSepa
EndIf
Else
If cOpc == "IA" //Información Aduanera
cXMLCon := Space(12) + '<cfdi:InformacionAduanera NumeroPedimento="' + cNPed + '"/>' + cCRLF
ElseIf cOpc == "CP" //Cuenta Predial
cXMLCon := Space(12) + '<cfdi:CuentaPredial Numero="' + cCtaP + '"/>' + cCRLF
ElseIf cOpc == "ST" //SubTotal
cXMLCon := Space(1) + 'SubTotal="' + cSubT + '"'
ElseIf cOpc == "T" //Total
cXMLCon := Space(1) + 'Total="' + cTot + '"'
ElseIf cOpc == "IT" //Impuestos por ítem por PE (Traslado)
cXMLCon += Space(20) + '<cfdi:Traslado Base="' + cBaseI + '" Impuesto="' + cImpto + '" TipoFactor="' + cTipoF + '" TasaOCuota="' + cTsaC + '" Importe="' + cImpI + '"/>' + cCRLF
EndIf
EndIf
EndIf
Return cXMLCon |
Card documentos Informacao Utilice este box para resaltar información relevante y/o de destaque. Titulo ¡IMPORTANTE!
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas