Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada localizado na rotina de Consulta de Dados do Cliente (VEIC110). Executado apenas quando a consulta mostrar vários clientes na mesma tela. É utilizado para retornar os campos do SA1 e VCF que serão desprezados na visualização da tela e impressão da rotina.

Localização:

Consultas / Gerais / Consulta de Dados do Cliente (VEIC110)

Eventos:

...

Local cNAO_SA1 := "SA1_UUID/A1_UUID/A1_USERLGA/A1_USERLGI/" // Nao considerar os campos do SA1 (default)

Local cNAO_VCF := "VCF_FILIAL/VCF_CODCLI/VCF_LOJCLI/VCF_NOMCLI/VCF_UUID/" // Nao considerar os campos do VCF (default)

If ExistBlock("VC110NCP")

cNAO_SA1 += ExecBlock("VC110NCP",.f.,.f.,{"SA1"}) // Nao considerar os campos do SA1 retornados pelo Ponto de Entrada

cNAO_VCF += ExecBlock("VC110NCP",.f.,.f.,{"VCF"}) // Nao considerar os campos do VCF retornados pelo Ponto de Entrada

EndIf

....

Programa Fonte:

VEIC110.PRW

Função:

VC1100031_CARREGAHEADER()

Parâmetros:
NomeTipoDescrição

cTab

Caracter

Tabela que deve ser considerada ( SA1 ou VCF )

Retorno:
NomeTipoDescrição

cRetCpo

Caracter

string com os campos a serem desprezados

Exemplo:

Include totvs.ch

// Ponto de Entrada localizado na rotina de Consulta de Dados do Cliente (VEIC110)

// Executado apenas quando a consulta mostrará vários clientes na mesma tela.

// É utilizado para retornar os campos do SA1 e VCF que serão desprezados na

// visualização da tela e impressão da rotina.

User Function VC110NCP()

Local cTab := ParamIXB[1] // Tabela que deve ser considerada ( SA1 ou VCF )

Local cRetCpo := "" // Campos a serem desprezados ( SA1 ou VCF )

Do Case

Case cTab == "SA1"

cRetCpo := "A1_TESTE1/A1_XXXX/" // Campos SA1 a serem desprezados

Case cTab == "VCF"

cRetCpo := "VCF_TESTE/VCF_ZZZZ/" // Campos VCF a serem desprezados

EndCase

MsgInfo("Ponto de Entrada 'VC110NCP' executado com sucesso!",cTab)

Return cRetCpo