Histórico da Página

...

04. INFORMACIÓN ADICIONAL

Ejemplo Ejemplos de los Puntos de Entrada:

Bloco de código

title	PECOMPCON
linenumbers	true

#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

Bloco de código

title	PEXMLDOC
linenumbers	true

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

User Function PEXMLDOC()
	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 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"
		If lCadO
			If cOpc == "ST" //SubTotal
				cXMLRet := cSubT + cSepa
			ElseIf cOpc == "T" //Total
				cXMLRet := cTot + cSepa
			ElseIf cOpc == "TI" //Total de Impuestos
				cXMLRet := cBasIT + cSepa + cImpT + cSepa + cTpFac + cSepa + cTasCuo + cSepa + cValor + cSepa + cTotIT + cSepa
			EndIf
		Else
			If cOpc == "ST" //SubTotal
				cXMLRet := Space(1) + 'SubTotal="' + cSubT + '"'
			ElseIf cOpc == "T" //Total
				cXMLRet := Space(1) + 'Total="' + cTot + '"'
			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

Bloco de código

title	LOCXCONCEP
linenumbers	true

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

User function LOCXCONCEP()
	Local cArea := GetArea()
	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"
		aDetFac[7] := "0.01"
		aDetFac[8] := "0.01"
		aDetFac[9] := "0.00"
	EndIf

	RestArea(cArea)
Return aDetFac

Card documentos

Informacao	Utilice este box para resaltar información relevante y/o de destaque.
Titulo	¡IMPORTANTE!

...

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão 7

Chave

04. INFORMACIÓN ADICIONAL