Histórico da Página
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).
...
Observações
Permite o uso da variável cNatureza.
03. PARÂMETROS
Não se aplica.
04. RETORNO
Nome | Tipo | Descrição | ||
lRet | Lógico | .T. | Exemplos | User Function A085TUDOK() a validação foi aceita |
---|
05. EXEMPLO DE UTILIZAÇÃO
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
...
idioma
...
Português(Brasil)
...
Versões
...
Microsiga_Protheus11
...
Sistemas Operacionais Suportados
...
Todos
...
Compatível com as Bases de Dados
...
Todas
...
Retorno
...
Lret(logico)
.T. a validação foi aceita
.F. a validação não foi aceita
...
Eventos de chamada do Ponto de Entrada
...
No tudo Ok do FINA850
...
Programa Fonte
...
Return Lret |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas