Histórico da Página

Ponto de Entrada entrada que permiti informar permite desconto no momento da baixa automática.

Para correto funcionamento deste Ponto de Entrada desta função, se faz necessário também conter o Ponto ponto de Entrada entrada FA110DES, para realizar o calculo cálculo do desconto.

Devem ser passados ao Ponto ponto de Entrada entrada F110CPOS os campos que devem ser adicionados na baixa a receber automática, para gravar o valor do desconto inserido e o valor recebido.

Exemplo: SE1->E1_VLDESC Campo que contem o desconto/ SE1->E1_VlRECDES Campo que contem o valor do titulo menos o desconto.

Versão 11:

User Function FCalDesc()

Local nDias := 0
Local cMarca := ParamIxb[1]
Local nOpca := ParamIxb[2]

nDias := SE1->E1_VENCTO - dDataBase

RecLock("SE1",.f.)
If SE1->E1_OK == cMarca .and. nOpca == 1
If nDias == 1
SE1->E1_VLDESC := 10
Elseif nDias == 2
SE1->E1_VLDESC := 20
Elseif nDias == 3
SE1->E1_VLDESC := 30
Endif

SE1->E1_VlRECDES := SE1->E1_VALOR - SE1->E1_VLDESC
Else
SE1->E1_VLDESC := 0
SE1->E1_VlRECDES := 0
Endif

SE1->(MSUNLOCK())

Return

Versão 12:

User Function FCalDesc()

Local nDias := 0
Local cMarca := ParamIxb[1]
Local nOpca :=  ParamIxb[2]
Local cAliasSE1 := ParamIxb[3]
Local aAreaSE1 := SE1->(GetArea())

    nDias := (cAliasSE1)->E1_VENCTO - dDataBase

    SE1->(DbGoTo((cAliasSe1)->RECNO))
    
    RecLock("SE1",.f.)
    If (cAliasSE1)->E1_OK == cMarca .and. nOpca == 1
        If nDias ==  1
            (cAliasSE1)->E1_VLDESC := 10
            SE1->E1_VLDESC := 10
        Elseif nDias ==  2
            (cAliasSE1)->E1_VLDESC := 20
            SE1->E1_VLDESC := 20
        Elseif nDias ==  3
            (cAliasSE1)->E1_VLDESC := 30
            SE1->E1_VLDESC := 30
        Endif  
    
        (cAliasSE1)->E1_VlRECDES := (cAliasSE1)->E1_VALOR - (cAliasSE1)->E1_VLDESC
        SE1->E1_VlRECDES := SE1->E1_VALOR - SE1->E1_VLDESC
    Else    
        (cAliasSE1)->E1_VLDESC := 0
        (cAliasSE1)->E1_VlRECDES := 0
        
        SE1->E1_VLDESC := 0
        SE1->E1_VlRECDES := 0
    Endif  

    SE1->(MSUNLOCK())

RestArea(aAreaSE1)
Return

Português(Brasil)

Microsiga_Protheus11 ;  Microsiga_Protheus11

Todos

Todas

Local cMarca := ParamIxb[1] (Permite a marcação dos titulos)
Local nOpca := ParamIxb[2] (Confirmação da operação)

ExecBlock("FCalDesc",.F.,.F.,{cMarca,1},)

FINA110.PRX