Descrição | 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'. |
---|---|
Observações | |
Exemplos | /* ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±º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) |
Preview | |
Veja também | |
Idioma | Português(Brasil) |
Versões | Todas |
Sistemas Operacionais Suportados | Todos |
Compatível com as Bases de Dados | Todas |
Updates | |
Parâmetros | 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 |
Retorno | 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 |
Eventos de chamada do Ponto de Entrada | 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 |
Variáveis | |
Programa Fonte | OFIOA560.PRW |