Histórico da Página
01. DADOS GERAIS
| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | BackOffice |
| Módulo: | Financeiro |
| Idiomas | Português (Brasil) |
| Função: | FINA850 - Ordem de Pago |
02. DESCRIÇÃO
...
O ponto de entrada A850PAOK, permite a geração de pagamento antecipado - PA, na rotina ordem de pagamentos do modelo II (MODII),na rotina do Financeiro (FINA850).
...
Permite o uso da variável
...
Private cNatureza.
...
Exemplos
03. PARÂMETROS
Nome | Tipo | Descrição |
aSE2 | Array | Todos os dados do titulo. |
04. RETORNO
Nome | Tipo | Descrição |
lRet | Lógico | .T. a validação foi aceita. |
05. EXEMPLO DE UTILIZAÇÃO
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#Include 'Protheus.ch'
User Function A850PAOK()
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
...
Validação na geração do PA na rotina FINA850
...
Variáveis
...
aSE2 (array com todos os dados do titulo)
...
Programa Fonte
...
Return Lret |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas