Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada localizado na rotina Atend Modelo 2 (VEIXA018) utilizado para inserir dados personalizados no Listbox da janela de relacionamento dos chassis do atendimento de Venda Futura. Este ponto de entrada trabalha em conjunto com o ponto de entrada VXC06COL.

Localização:

Atualizações \ Mov Atendimento \ Atend. Modelo 2 (VEIXA018)

Eventos:

If Len(aVeicVer) <= 0

aAdd(aVeicVer,{"N"," "," "," "," ",0," "," "," "," "," "," ",0," "," "," "," "," ",Array(len(aColCustom))})

EndIf

If ExistBlock("VXC06VET")

// Ponto de Entrada utilizado para manipular o Vetor dos Veiculos

aVeicVer := ExecBlock("VXC06VET",.f.,.f.,{aClone(aVeicVer)})

// Caso for utilizado o Ponto de Entrada VXC06COL para inserir colunas customizadas

// no ListBox ( relação de possiveis veiculos ) utilize o VXC06VET para preencher

// os dados correspondentes as colunas customizadas ( vetor na posição 19 )

EndIf

Asort(aVeicVer,,,{|x,y| strzero(x[13],1)+x[4]+strzero(99999-val(x[2]),6) < strzero(y[13],1)+y[4]+strzero(99999-val(y[2]),6) }) // Ordena pelo nRank + Dias Estoque

Return()

Programa Fonte:

VEIXC006.PRW

Função:

FS_LEVANTA()

Parâmetros:
NomeTipoDescrição
aVeicVerVetorVetor com os chassis possíveis de relacionamento levantado pela rotina.

Retorno:

NomeTipoDescrição
aVeicVerVetorVetor com os chassis

Observação caso for utilizado o Ponto de Entrada VXC06COL para inserir colunas personalizadas no listbox, é necessário preencher os dados correspondentes das colunas personalizadas (vetor na posição 19).

Exemplo:

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

// //

// VXC06VET - Ponto de Entrada na Rotina de Atendimento de Veiculos Mod 2 //

// utilizado para manipular o vetor dos possiveis veiculos a serem //

// relacionados ao atendimento de Venda Futura. //

// //

// Este Ponto de Entrada tambem é utilizado para carregar o conteudo nas //

// colunas customizadas que foram inseridas no Ponto de Entrada VXC06COL. //

// Vetor na posição 19 //

// //

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

User Function VXC06VET()

Local aRetVei := ParamIXB[01] // Vetor com os possiveis Veiculos

Local ni := 0

DbSelectArea("VV1")

DbSetOrder(1)

For ni := 1 to len(aRetVei)

// aRetVei[x,01] = Cor legenda

// aRetVei[x,02] = Dias Estoque

// aRetVei[x,03] = Marca

// aRetVei[x,04] = Descricao do Modelo

// aRetVei[x,05] = Descricao da Cor

// aRetVei[x,06] = Valor de Venda

// aRetVei[x,07] = Ano Fab/Mod

// aRetVei[x,08] = Combustivel

// aRetVei[x,09] = Opcinais de Fabrica

// aRetVei[x,10] = Chassi (VV1_CHASSI)

// aRetVei[x,11] = Tipo de Veiculo

// aRetVei[x,12] = ChaInt (VV1_CHAINT) -> Caso necessario posicionar no Veiculo ( VV1 - indice 1 )

// aRetVei[x,13] = Ordenacao interna no vetor

// aRetVei[x,14] = Codigo do Progresso VJ1

// aRetVei[x,15] = Grupo de Modelo do Veiculo

// aRetVei[x,16] = Codigo do Modelo do Veiculo

// aRetVei[x,17] = Codigo da Cor do Veiculo

// aRetVei[x,18] = Codigo do Pedido VQ0

// aRetVei[x,19] = Vetor com as Colunas Customizadas

VV1->(DbSeek(xFilial("VV1")+aRetVei[ni,12])) // CHAINT

If len(aRetVei[ni,19]) > 0 // Possui Colunas customizadas

aRetVei[ni,19,1] := VV1->VV1_CHAINT // Conteudo da 1a. Coluna

aRetVei[ni,19,2] := VV1->VV1_CHASSI // Conteudo da 2a. Coluna

// aRetVei[ni,19,3] := "" // Conteudo da 3a. Coluna

// aRetVei[ni,19,4] := "" // Conteudo da 4a. Coluna

// aRetVei[ni,19,5] := "" // Conteudo da 5a. Coluna

// aRetVei[ni,19,6] := "" // Conteudo da 6a. Coluna

// aRetVei[ni,19,7] := "" // Conteudo da 7a. Coluna

// aRetVei[ni,19,8] := "" // Conteudo da 8a. Coluna

// aRetVei[ni,19,9] := "" // Conteudo da 9a. Coluna

EndIf

Next

Return aRetVei