Histórico da Página

Descrição:

Este Ponto de Entrada está localizado na rotina de Rastreamento de Veículos (VEIVC140) e é executado em dois momentos distintos: ao abrir a rotina para montagem da tela e ao realizar a pesquisa de um chassi. Sua finalidade é exibir informações personalizadas do cadastro de veículos do chassi (tabela VV1).

Eventos:

1ª chamada:

// Arrays Listbox

Aadd(aMov, { ctod("") , "" , " " , "" , "" , "" , "" , 0 , "" , "" , "", 0, -1 })

Aadd(aInt, { ctod("") , "" , "" , "" , "" })

Aadd(aAte, { "O" , ctod("") , "" , "" , "" , 0 , "" })

// Ponto de Entrada para retorno de informações customizadas do Veículo

// Retorna: títulos das colunas e tamanhos das colunas

If lPEVC140VEI

aVeiAux := ExecBlock("VC140VEI", .f., .f., { 0, "", "" })

EndIf

// Array Listbox (Padrão)

Aadd(aVei, { STR0062, 25, "" }) // Marca

Aadd(aVei, { STR0063, 50, "" }) // Modelo

Aadd(aVei, { STR0064, 50, "" }) // Cor

Aadd(aVei, { STR0065, 35, "" }) // Fabr/Mod

Aadd(aVei, { STR0066, 25, "" }) // Placa

2ª chamada:

// Informações Chassi - Descricao VEICULO (Padrão)

aVei[1,3] := ( cQAlVV1 )->( VV1_CODMAR )

aVei[2,3] := Alltrim(( cQAlVV1 )->( VV2_DESMOD ))

aVei[3,3] := Alltrim(( cQAlVV1 )->( VVC_DESCRI ))

aVei[4,3] := Transform(( cQAlVV1 )->( VV1_FABMOD ), "@R 9999/9999")

aVei[5,3] := IIF(!Empty(cPlaVei), Transform(cPlaVei, X3Picture("VV1_PLAVEI")), "")

// Ponto de Entrada para retorno de informações customizadas do Veículo

If lPEVC140VEI

nTamPadrao := 5 // Tamanho padrão do vetor "aVei" (Informações Chassi - Descricao VEICULO)

aVeiAux := ExecBlock("VC140VEI", .f., .f., { 1, cChassi, cChaInt })

// Colunas customizadas pelo Ponto de Entrada referente ao Veículo

For nCont := 1 to Len(aVeiAux)

aVei[nTamPadrao + nCont, 3] := aVeiAux[nCont,1] // Incluir apenas os dados

Next

EndIf

cPesqV := left(( cQAlVV1 )->( VV1_CHASSI )+space(30),30)

cSitVei := STR0026+X3CBOXDESC("VV1_SITVEI",( cQAlVV1 )->( VV1_SITVEI ))+space(5) // Situacao:

lVendid := .f.

lReqOS := .f.

Função:

VEIVC140() e FS_PESQVV1()