Histórico da Página

#include 'protheus.ch'
#INCLUDE "FWMVCDEF.CH"
#include "FILEIO.CH"

User Function PEXMLDOC()
	Local cOpc    := PARAMIXB[1] //Opción donde IA - Información Aduanera, CP - Cuenta Predial
	Local lCadO   := PARAMIXB[2] //Indica si es Cadena Original .T. = Si y .F. = No
	Local cXMLRet := ""
	Local cSepa   := "|"
	Local cSubT   := "0.01"
	Local cTot    := "0.01"
	Local cCRLF   := (chr(13)+chr(10))

	//Datos Impuestos Totales
	Local cTotIT := "0.00"
	Local cBasIT := "0.01"
	Local cImpT  := "002"
	Local cTpFac := "Tasa"
	Local cTasCuo := "0.000000"
	Local cValor  := "0.00"

	If Alltrim(cEspecie) $ "NF|NCC"
		If cOpc == "ST" //SubTotal
			cXMLRet := cSubT
		ElseIf cOpc == "T" //Total
			cXMLRet := cTot
		ElseIf cOpc == "D" //Descuento
			cXMLRet := "20.00"
		ElseIf cOpc == "FE" //Fecha de emisión
			cXMLRet := "" 
		EndIf

		If lCadO
			If cOpc == "TI" //Total de Impuestos
				cXMLRet := cBasIT + cSepa + cImpT + cSepa + cTpFac + cSepa + cTasCuo + cSepa + cValor + cSepa + cTotIT + cSepa
			EndIf
		Else
			If cOpc == "TI" ////Total de Impuestos
				cXMLRet := cCRLF + Space(5) + '<cfdi:Impuestos TotalImpuestosTrasladados="' + cTotIT + '" >' + cCRLF
				cXMLRet += Space(10) + '<cfdi:Traslados>' + cCRLF
				cXMLRet += Space(15) + '<cfdi:Traslado Base="' + cBasIT + '" Impuesto="' + cImpT + '" TipoFactor="' + cTpFac + '" TasaOCuota="' + cTasCuo + '" Importe="' + cValor + '"/>' + cCRLF
				cXMLRet += Space(10) + '</cfdi:Traslados>' + cCRLF
    			cXMLRet += Space(5) + '</cfdi:Impuestos>' + cCRLF
			EndIf
		EndIf
	EndIf
Return cXMLRet