Histórico da Página

O ponto de entrada A087TUDOK A085TUDOK permite a validação do painel de recebimentos diversos.

Permite o uso da variável cNatureza.

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 naureza "+cNatureza+"?")
lRet :=.F.
Endif

Return Lret

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

Lret(logico)
.T. a validação foi aceita
.F. a validação não foi aceita

No tudo Ok do fina850

FINA850