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 colunas personalizadas no Listbox da janela de relacionamento dos veículos do atendimento de Venda Futura. Este ponto de entrada trabalha em conjunto com o ponto de entrada VXC06VET.

Localização:

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

Eventos:

Function VEIXC006(aRetRelac,cMarca,cGruMod,cModelo,cCor,cAtend,cIteTra,cStatusVV9)

Local aObjects := {} , aInfo := {}, aPos := {}

Local aSizeHalf := MsAdvSize(.t.) // Tamanho Maximo da Janela (.t.=TOOLBAR,.f.=SEM TOOLBAR)

Local nOpcao := 0

Local nValVda := 0

Local oBran := LoadBitmap( GetResources() , "BR_BRANCO" ) // Estoque

Local oAzul := LoadBitmap( GetResources() , "BR_AZUL" ) // Azul

Local oVerd := LoadBitmap( GetResources() , "BR_VERDE" ) // Progresso

Local oVerm := LoadBitmap( GetResources() , "BR_VERMELHO" ) // Pedido

Local lRet := .f.

Local nI := 1

Private aVeicVer := {}

Private aColCustom := {}

Default aRetRelac := {"","","","","","",0}

Default cIteTra := ""

Default cStatusVV9 := ""

If ExistBlock("VXC06COL")

// Vetor com as Colunas customizadas a serem inseridas no ListBox ( relação de possiveis veiculos )

aColCustom := ExecBlock("VXC06COL",.f.,.f.) // { Ordem da coluna no listbox , titulo da coluna , tamanho da coluna }

// Caso for utilizado o VCX06COL, será necessario utilizar o Ponto de Entrada

// VXC06VET para preencher os dados correspondentes as colunas customizadas

// ( vetor na posição 19 - corresponde as colunas customizadas )

EndIf

Programa Fonte:

VEIXC006.PRW

Função:

VEIXC006()

Retorno:

NomeTipoDescrição
aRetColVetorVetor contendo as Colunas Personalizadas

{ Posicao/Ordem da Coluna , Titulo da Coluna , Tamanho da Coluna }

Exemplo:

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

// //

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

// utilizado para inserir colunas customizadas no ListBox ( relação de //

// possiveis veiculos ) da Tela de relacionamento dos veiculos do //

// atendimento de Venda Futura. //

// //

// Para carregar o conteudo das colunas customizadas, é necessario //

// utilizar o Ponto de Entrada VXC09VET, manipulando o vetor de veiculos. //

// Vetor na posição 19 //

// //

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

User Function VXC06COL()

Local aRetCol := {}

//aAdd(aRetCol,{ 3 , "TESTE XXX" , 40 }) // { Posicao/Ordem da Coluna (99 fica no final) , Titulo da Coluna , Tamanho da Coluna }

//aAdd(aRetCol,{ 5 , "TESTE AAA" , 80 }) // { Posicao/Ordem da Coluna (99 fica no final) , Titulo da Coluna , Tamanho da Coluna }

MsgAlert("Ponto de Entrada VXC06COL executado com sucesso.","Atenção")

Return aRetCol