OF560VX5 - Tabelas Customizadas na tabela VX5

Este Ponto de Entrada é executado na rotina Tabelas Genéricas de Concessionárias (OFIOA560), para possibilitar a customização de tabelas com códigos de 'Z00' até 'ZZZ'.

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³ OF560VX5 º Autor ³ Andre Luis Almeida º Data ³ 16/10/15 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºDescricao ³ Customizacoes na VX5 ( Tabelas Genericas Concessionaria ) º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

User Function OF560VX5()

Local cTipo := ParamIXB[01] // Tipo de Chamada

Local cCampo := ParamIXB[02] // Campo que disparou o F3

Local xRet

/////////////////////////////////////////////////////////////////////////////////////////////////////

If cTipo == "1" // Tabelas Customizadas no VX5 //

/////////////////////////////////////////////////////////////////////////////////////////////////////

xRet := {}

//////////////////////////////////////////////////////////////////

// Os codigos das Tabelas devem ser de 'Z00' a 'ZZZ'. Exemplo: //

// aAdd(xRet,{"Z01","Nome da Tabela Z01", "Campo Default", Tamanho}) //

// aAdd(xRet,{"Z02","Nome da Tabela Z02", "Campo Default", Tamanho}) //

// ... //

// aAdd(xRet,{"ZZZ","Nome da Tabela ZZZ", "Campo Default", Tamanho}) //

//////////////////////////////////////////////////////////////////

aAdd(xRet,{"Z01","Nome da Tabela - Default 10"}) // Default 10 após atualização do fonte principal

aAdd(xRet,{"Z02","Nome da Tabela - Campo Loja", "A1_LOJA", 0}) // Campo para pegar o tamanho no SX3

aAdd(xRet,{"Z03","Nome da Tabela - Fixo 5" , "" , 5}) // Tamanho fixo determinando pelo cliente

/////////////////////////////////////////////////////////////////////////////////////////////////////

ElseIf cTipo == "2" // Qual tabela VX5 deve ser utilizada no F3 de um determinado campo ? //

/////////////////////////////////////////////////////////////////////////////////////////////////////

xRet := ""

//////////////////////////////////////////////////////////////////

// Codigo da Tabela que sera utilizada no F3 do campo. Exemplo: //

// If cCampo == "M->VDM_TESTE" //

// xRet := "Z01" //

// ElseIf cCampo == "M->VDL_TESTE" //

// xRet := "Z02" //

// ElseIf //

// .... //

// ElseIf cCampo == "cCodTeste" //

// xRet := "ZZZ" //

// EndIf //

//////////////////////////////////////////////////////////////////

EndIf

Return(xRet)

Português(Brasil)

Todas

Todos

Todas

cTipo = Tipo de Chamada ( 1=Tabelas Customizadas no VX5 / 2=Qual tabela VX5 deve ser utilizada no F3 de um determinado campo ? )

cCampo = Campo que disparou o F3

xRet ( existem 2 tipos de retorno )

Se o Tipo = "1", o retorno deve ser um vetor com as tabelas customizadas, os codigos das Tabelas devem ser de 'Z00' ate 'ZZZ', os nomes das tabelas e seus tamanhos. Exemplo:

aAdd(xRet,{"Z01","Nome da Tabela Z01","A1_LOJA",0})

aAdd(xRet,{"Z02","Nome da Tabela Z02","",5})

Se o Tipo = "2", o retorno deve ser qual tabela sera relacionada a um determinado campo que foi acionada a tecla F3. Exemplo:

If cCampo == "M->VDM_TESTE"

xRet := "Z01"

ElseIf cCampo == "M->VDL_TESTE"

xRet := "Z02"

EndIf

If ExistBlock("OF560VX5")

aAux := ExecBlock("OF560VX5",.f.,.f.,{ "1" , "" }) // 1 = Tabelas Customizadas de 'Z00' a 'ZZZ'

If ValType(aAux) == "A"

lErro := .f.

For ni := 1 to len(aAux)

If len(aAux[ni,1]) == 3 .and. aAux[ni,1] >= "Z00" .and. aAux[ni,1] <= "ZZZ"

If Len(aAux[ni]) > 2

aAdd(aVX5,{ '000' , aAux[ni,1] , aAux[ni,2] , 'U' , aAux[ni,3] , aAux[ni,4] }) // Tabela Z?? customizada no VX5

Else

aAdd(aVX5,{ '000' , aAux[ni,1] , aAux[ni,2] , 'U' }) // Tabela Z?? customizada no VX5

EndIf

Else

lErro := .t.

Exit

EndIf

Next

If lErro

MsgStop(STR0053,STR0005) // Os códigos das tabelas customizadas devem ser de 'Z00' a 'ZZZ'. / Atenção

EndIf

EndIf

EndIf

OFIOA560.PRW