Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:BackOffice
Módulo:Financeiro
IdiomasPortuguê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.

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.
.F. a validação não foi aceita.

05. EXEMPLO DE UTILIZAÇÃO


A850PAOK
#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

Return Lret