01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | BackOffice |
Módulo: | Financeiro |
Idioma: | Português(Brasil) |
Função: | FINA850 - Ordem de Pago 2 |
02. DESCRIÇÃO
O ponto de entrada A087TUDOK permite a validação do painel de pagamentos do modelo II (MODII) na rotina Financeiro (FINA850).
Permite o uso da variável cNatureza.
03. PARÂMETROS
Não se aplica.
04. RETORNO
Nome | Tipo | Descrição |
lRet | Lógico | .T. a validação foi aceita |
05. EXEMPLO DE UTILIZAÇÃO
A085BTN
#INCLUDE "Totvs.ch" User Function A085TUDOK() Local lRet :=.T. If !(MsgYesNo("Confirma pagamento do titulo "+ParamIxb[1][1][1][10]+" para o provedor "+ ParamIxb[1][1][1][1] +"\"+ParamIxb[1][1][1][16]+" no valor de "+Transform(ParamIxb[1][1][1][6],"@E 9,999,999,999,999.99")+"?")) lRet :=.F. Endif If lRet .and. !MsgYesNo("Confirma o uso de tipo "+ParamIxb[1][3][2][1][1]+" em moeda "+ ParamIxb[1][3][2][1][4] +" com data de emissão "+dtoc(ParamIxb[1][3][2][1][11])+" e de vencimento "+dtoc(ParamIxb[1][3][2][1][12])+"?") lRet :=.F. Endif If lRet.and. !MsgYesNo("Confirma o uso da natureza "+cNatureza+"?") lRet :=.F. Endif Return Lret
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas