Histórico da Página

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

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

Devem ser passados ao ponto de 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