VXA50CPO - Campos Customizados na tela (Tabela VQ0).

Este Ponto de Entrada na rotina de Pedido de Veículos, inclui campos customizados na tela (Tabela VQ0).

User Function VXA50CPO()
Local aVetCpos := \{"",""\}
// aVetCpos[1] -> Campos customizados na Enchoice VQ0. Exemplo: "VQ0_XCUST1,VQ0_XCUST2,..."
// aVetCpos[2] -> Campos customizados na GetDados VQ0. Exemplo: "VQ0_XCUST3,VQ0_XCUST4,..."

MsgInfo("Ponto de entrada VXA50CPO executado com sucesso!")

Return(aVetCpos)

Português(Brasil)

Todas

Todos

Todas

aVetCpos = vetor com os campos customizados a serem inseridos na tela de Pedido (VQ0)
aVetCpos[1] - Campos customizados na Enchoice VQ0. Ex.: "VQ0_XCUST1,VQ0_XCUST2,..."
aVetCpos[2] - Campos customizados na GetDados VQ0. Ex.: "VQ0_XCUST3,VQ0_XCUST4,..."

Function VXA050(cAlias,nReg,nOpc)
Local cCpos := ""
Local bCampo := \{ |nCPO| Field(nCPO) \}
Local i := 0
Local nCntFor,_ni := 0
Local aVetCpos := \{"",""\} // \{ "Campos customizados na Enchoice VQ0" , "Campos customizados na GetDados VQ0" \}
//
Private aTELA[0][0],aGETS[0]
Private aCpoEnchoice := \{\} , aCpoEditEnch , nControlAba := 1
Private aCols := \{\} , aHeader := \{\}, aAlter:=\{\}
Private cTitulo , cAliasEnchoice , cAliasGetD , cLinOk , cTudOk , cFieldOk , nLinhas := 0
Private oAuxEnchoice
Private oAuxGetDados
Private oAuxDlg
Private nUsado := 0
Private nRecVQ0 := 0
Private cCodigo := ""
//
If ExistBlock("VXA50CPO")
aVetCpos := ExecBlock("VXA50CPO",.f.,.f.)
// aVetCpos[1] -> Campos customizados na Enchoice VQ0. Exemplo: "VQ0_XCUST1,VQ0_XCUST2,..."
// aVetCpos[2] -> Campos customizados na GetDados VQ0. Exemplo: "VQ0_XCUST3,VQ0_XCUST4,..."
Endif
//

VEIXA050.PRW