Histórico da Página

Descrição

O ponto de entrada F85ABCVLD permite que sejam feitas validações customizadas do banco selecionado para efetuar a orden de pago, somente para ambientes localizados para o Peru.

Observações

Exemplos

#include "protheus.ch"

User Function F85ABCVLD()
Local aParam := aClone(ParamIxb)
Local cMsg := ""
Local lRet := .F.

If

aParam3 == 1
cMsg := "Opção selecionada: Cheque suelto" + CRLF
cMsg += "Banco informado: " +

aParam2 + CRLF
cMsg += "Permite uso do banco selecionado?"
ElseIf

aParam3 == 2
cMsg := "Opção selecionada: Debito diferido" + CRLF
cMsg += "Banco informado: " +

aParam2 + CRLF
cMsg += "Permite uso do banco selecionado?"
Else
cMsg := "Opção selecionada: Debito inmediato" + CRLF
cMsg += "Banco informado: " +

aParam2 + CRLF
cMsg += "Opção de pagamento selecionada: " +

aParam1 + CRLF
cMsg += "Permite uso do banco selecionado?"
EndIf

lRet := MsgYesNo(cMsg,"Ponto de Entrada F85ABCVLD")

Return lRet

Preview

Veja também

Idioma

Espanhol

Versões

Microsiga_Protheus10

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

ParamIxb - array contendo a seguinte estrutura
Estrutura de ParamIxb
1 - Tipo informado quando o pagamento for do tipo "Debito Inmediato": TF ou EF
2 - Código do banco informado através da consulta F3
3 - Opção de pagamento selecionada: 1 - Cheque suelto; 2 - Debito diferido; 3 - Debito inmediato

Retorno

lRet - Variável lógica com o resultado da validação customizada.

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

FINA085A.PRW