Histórico da Página

El punto de Entrada PEXMLDOC,recibe 2 parámetros, donde:

El primer parámetro es de tipo caracter, con las siguientes opciones:

• ST para personalizar el valor del atributo SubTotal

La presente funcionalidad se encuentra en fase de desarrollo, y no ha sido liberada de manera oficial, por lo cual, se recomienda seguir utilizando la funcionalidad del uso de los archivos FATSMEX.INI y FATEMEX.ini, para lo cual el parámetro MV_FEXML no debe existir o estar vacío.

Para los Puntos de Entrada PECOMPCON, PEXMLDOC, PEDETIMP y LOCXCONCEP se tiene acceso a las tablas SF1 - Encabezado de Fact. de Entrada y SF2 - Encabezado de Fact. de Salida

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

User Function PECOMPCON()
	Local cXMLCon   := ""
	Local cCRLF  := (chr(13)+chr(10))
	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 cSepa  := "|"
	Local cNPed  := "23  47  3807  8003832"
	Local cCtaP  := "15956011002"

	If Alltrim(cEspecie) $ "NF|NCC"
		If lCadO
			If cOpc == "IA" //Información Aduanera
				cXMLCon := StrTran(cNPed,"  "," ") + cSepa
			ElseIf cOpc == "CP" //Cuenta Predial
				cXMLCon := cCtaP + 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
			EndIf
		EndIf
	EndIf
Return cXMLCon

#include 'protheus.ch'
#INCLUDE "FWMVCDEF.CH"
#include "FILEIO.CH"
 
User Function PEXMLDOC()
    Local cOpc    := PARAMIXB[1] //Opción para indicar el atributo o el nodo a personalizar
    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 := ""
        ElseIf cOpc == "FP" // FormaPago
            cXMLRet := ""
        ElseIf cOpc == "MO" // Moneda
            cXMLRet := ""
        EndIf      
 
        If lCadO
            If cOpc == "CO"
                cXMLRet := U_GROUPCAD(SF2->F2_DOC)
            elseIf cOpc == "TI" //Total de Impuestos
                cXMLRet := cBasIT + cSepa + cImpT + cSepa + cTpFac + cSepa + cTasCuo + cSepa + cValor + cSepa + cTotIT + cSepa
            EndIf
        Else
            If cOpc == "CO"
                cXMLRet := space(3) + '<cfdi:Conceptos>' + cCRLF
                cXMLRet += U_GROUPPED(SF2->F2_DOC)  
                cXMLRet += space(3) + '</cfdi:Conceptos>' + cCRLF
            elseIf 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

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

User function LOCXCONCEP()
	Local cArea := GetArea()
    Local cCodProd := PARAMIXB[1] // Código del producto.
    Local cItem := PARAMIXB[2] // Número Item  
    Local aDetFac := {"","",0,"","","","","",""} // Arreglo que contiene la información del producto.

	/*
	aDetFac[1] := ClaveProdSer
	aDetFac[2] := No. Identificación
	aDetFac[3] := Cantidad
	aDetFac[4] := ClaveUnidad
	aDetFac[5] := Unidad
	aDetFac[6] := Descripcion
	aDetFac[7] := ValorUnitario
	aDetFac[8] := Importe
	aDetFac[9] := Descuento
	*/

	If Alltrim(cEspecie) $ "NF|NCC"
		aDetFac[7] := "0.01"
		aDetFac[8] := "0.01"
		aDetFac[9] := "0.00"
	EndIf

	RestArea(cArea)
Return aDetFac

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

User Function PEDETIMP()
	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 cProd  := PARAMIXB[3] //Código del Producto
	Local cItem  := PARAMIXB[4] //Número de ítem
	Local aImpDet := {}
	Local cRetImp := ""
	Local cBaseI := "0.01"
	Local cImpto := "002"
	Local cTipoF := "Tasa"
	Local cTsaC  := "0.000000"
	Local cImpI  := "0.00"
	Local cCRLF  := (chr(13)+chr(10))
	Local cSepa  := "|"

	If Alltrim(cEspecie) $ "NF|NCC"
		If lCadO 
			If cOpc == "IT"
				cRetImp := cBaseI + cSepa + cImpto + cSepa + cTipoF + cSepa + cTsaC + cSepa + cImpI + cSepa
			EndIf
		Else
			If cOpc == "IT"
				cRetImp := Space(20) + '<cfdi:Traslado Base="' + cBaseI + '" Impuesto="' + cImpto + '" TipoFactor="' + cTipoF + '" TasaOCuota="' + cTsaC + '" Importe="' + cImpI + '"/>' + cCRLF
			EndIf
		EndIf
		aAdd(aImpDet, cRetImp)
	EndIf
Return aImpDet