OX100ACFIN Ponto de Entrada para efetuar o levantamento do percentual de acréscimo financeiro a ser considerado no fechamento da ordem de serviço quando a condição de pagamento for negociada

Ponto de Entrada

Descrição:

Este ponto de entrada tem como objetivo efetuar o levantamento do percentual de acréscimo financeiro a ser considerado no fechamento da ordem de serviço quando a condição de pagamento for negociada.

Localização:

Atualizações/Mov Oficina/Fechamento de OS

Eventos:

If ExistBlock("OX100ACFIN")
nAcrsFin := ExecBlock("OX100ACFIN",.F.,.F.,{dCRDataIni,nCRDias,nCRParc,nCRInter})
nCRTotal := OX100TFIN(,nAcrsFin)
nCRSaldo := nCRTotal
nTotFinanc := nCRTotal
EndIf

Programa Fonte:

OFIXX100.PRW

Função:

OX100FCALC()

Parâmetros:

Nome	Tipo	Descrição
dData	Data	Data inicial a ser considerada na composição da negociação
nDias	Numérico	Número de dias da primeira parcela a ser considerado na composição da negociação
nParc	Numérico	Número de parcelas a ser considerado na composição da negociação
nInter	Numérico	Intervalo de dias a ser considerado na composição da negociação

Retorno:

Nome	Tipo	Descrição
nRetorno	Numérico	Percentual de Acréscimo Financeiro

Exemplo:

Include totvs.ch

User Function OX100ACFIN()



    Local dData  := ParamIXB[1]
    Local nDias  := ParamIXB[2]
    Local nParc  := ParamIXB[3]
    Local nInter := ParamIXB[4]
    Local nRetorno := SE4->E4_ACRSFIN

    If nParc >= 2 .and. nParc <= 3
        nRetorno := 20
    Elseif nParc > 3
        nRetorno := 50
    EndIf

Return nRetorno

Árvore de páginas

OX100ACFIN Ponto de Entrada para efetuar o levantamento do percentual de acréscimo financeiro a ser considerado no fechamento da ordem de serviço quando a condição de pagamento for negociada

Ponto de Entrada