Histórico da Página

#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