Descrição | Ponto de Entrada entrada que permiti informar permite desconto no momento da baixa automática. |
---|
Observações | 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. |
---|
Exemplos | Veja tambémVersã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 |
---|
Preview |
---|
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 |
|
Idioma | Português(Brasil) |
---|
Versões | Microsiga_Protheus11 ; Microsiga_Protheus11 |
---|
Sistemas Operacionais Suportados | Todos |
---|
Compatível com as Bases de Dados | Todas | Updates | |
---|
Parâmetros | Local cMarca := ParamIxb[1] (Permite a marcação dos titulos) Local nOpca := ParamIxb[2] (Confirmação da operação) |
---|
Retorno | |
---|
Local cAliasSE1 := ParamIxb[3] (Alias usado na Tela)(Exclusivo da Versão 12) |
Eventos de chamada do Ponto de Entrada | ExecBlock("FCalDesc",.F.,.F.,{cMarca,1},) | Variáveis | |
---|
Programa Fonte | FINA110.PRX |
---|