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).
...
Observações
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 a rotina FINA850
...
Variáveis
...
aSE2 (array com todos os dados do titulo)
...
Programa Fonte
...
Return Lret |