Histórico da Página

Descrição

EECNU400 - Solicitação de numerário

Observações

Ponto de Entrada para customização de funções no fonte EECNU400.

Exemplos

User Function EECNU400()

Local cParam:= ""

IF Type("ParamIXB") == "C"
cParam:= PARAMIXB
Else
cParam:= PARAMIXB[1]
Endif

IF cParam == "CARREGA_BANCO"
msginfo("Entrou no ponto de entrada 'CARREGA_BANCO'")
SA6->(DBSETORDER(1)) //Seek para carregar automaticamente o banco com a informação
cBancoSE5 := SA6->A6_COD
cAgenciaSE5 := SA6->A6_AGENCIA
cContaSE5 := SA6->A6_NUMCON
cNomeSE5 := SA6->A6_NOME
ENDIF

Return Nil

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus 11 e 12

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

	Nome	Tipo	Descrição	Default	Obrigatório	Referência
	CARREGA_BANCO	Caracter	Permite a customização de informação que será carregada na tela de dados bancários na liberação do numerário.

Retorno

()

Eventos de chamada do Ponto de Entrada

Variáveis

Nome	Tipo	Escopo	Pode Alterar	Parâmetro	Descrição
cBancoSE5	Caracter	Privado	Sim	CARREGA_BANCO	Váriavel para carregar o código do banco.
cAgenciaSE5	Caracter	Privado	Sim	CARREGA_BANCO	Váriavel para carregar a agencia do banco.
cContaSE5	Caracter	Privador	Sim	CARREGA_BANCO	Váriavel para carregar a conta do banco.
cNomeSE5	Caracter	Privador	Sim	CARREGA_BANCO	Váriavel para carregar o nome do banco.

Programa Fonte

EECNU400

Descrição

EECPNU01 - Solicitação de numerário

Observações

Ponto de Entrada para customização de funções no fonte EECNU400.

Exemplos

#Include 'Protheus.ch'

User Function EECPNU01()
Local cParam

If ValType(ParamIXB) == "A"
cParam:= ParamIXB[1]
Else
cParam:= ParamIXB
EndIf

Do Case
Case cParam == "ENCHOICE_BAR"
MsgInfo("Entrou no ponto de entrada "ENCHOICE_BAR")

EndCase

Return