Histórico da Página
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: | Atualizações / ............................................ 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: |
| ||||||
Retorno: |
|
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