#include 'protheus.ch'
User Function M486PEFORP()
Local cMoeda := PARAMIXB[1] //Carácter Moneda del documento
Local cTipoPag := PARAMIXB[2] //Carácter Tipo de Pago (1-Contado,2-Crédito)
Local nTotal := ParamIXB[3] //Numerico Acumulado de saldo de pagos
Local aFVence := ParamIXB[4] //Array Arreglo con identificador, valor y fecha de vencimiento de cada cuota.
Local nDetra := ParamIXB[5] //Numerico Total de Detracciones del documento
Local nImp := ParamIXB[6] //Numerico Total de Impuestos del documento
Local cXMLRet := ""
Local nRet:= 0
nRet:= nTotal *0.03
cXMLRet := M486FOPAGO(cMoeda,cTipoPag,nTotal-nRet,aFVence,nDetra,nImp)
Return cXMLRet |