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: |
| ||||||
Retorno: |
|
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