Histórico da Página

||Descrição|| Ponto de Entrada localizado na rotina Bonus do Veículo (VEIVA640) que permite alterar o vetor de exibições do bônus para modificar a exibição dos veículos.
  
||Observações|| 
||Exemplos||User function VA640AV2()
	MsgAlert("Tecle OK para continuar")
Return
||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Todas
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| 
||Retorno|| 
||Eventos de chamada do Ponto de Entrada|| cQryTemp:= cQuery+cQryTemp
			
			dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQryTemp ), cQAlSQL , .F., .T. )
			While !( cQAlSQL )->( Eof() )
				If _cVV1 # ( cQAlSQL )->( VV1_CHASSI )
					_cVV1 := ( cQAlSQL )->( VV1_CHASSI )
					lAddveic := .t.
					//verifica opcionais de fabrica.
					If !Empty(cOpcVei)
						IF Empty(( cQAlSQL )->( VV1_OPCFAB ))//se o veiculo nao possuir opcional desconsiderar.
							//( cQAlSQL )->( DbSkip() )//desconsidera o veiculo
							lAddveic:= .f.
						EndIF
						IF lAddveic
							For _ni:=1 to 5
								cOpcSel := ""
								If !Empty(Substr(( cQAlSQL )->( VV1_OPCFAB ),(_ni*4)-3,3))
									cOpcSel := Substr(( cQAlSQL )->( VV1_OPCFAB ),(_ni*4)-3,3)
									If !(cOpcSel $ cOpcVei)
										//( cQAlSQL )->( DbSkip() )//desconsidera o veiculo
										lAddveic:= .f.
										exit
									EndIF
									
								EndIF
							next
						EndIF
					EndIF
					if lAddveic
						
						_nk := aScan(aVetEmp,{|x| x[1] == IIf(!Empty(( cQAlSQL )->( VV1_FILIAL )),( cQAlSQL )->( VV1_FILIAL ),( cQAlSQL )->( VV1_FILENT )) })//pega a posicao da filial no array
						
						aAdd(aVeicTot, { .F. ,;//Tick
						IIf(!Empty(( cQAlSQL )->( VV1_FILIAL )),( cQAlSQL )->( VV1_FILIAL )+" - " + Iif(_nk>0,aVetEmp[_nk,2],""),( cQAlSQL )->( VV1_FILENT )+" - " + Iif(_nk>0,aVetEmp[_nk,2],"")) , ;
						( cQAlSQL )->( VV1_CODMAR ) , ;
						( cQAlSQL )->( VV2_DESMOD ) , ;
						( cQAlSQL )->( VV1_FABMOD ) , ;
						( cQAlSQL )->( VV1_COMVEI ) , ;
						left(( cQAlSQL )->( VV1_OPCFAB ),80) , ;
						( cQAlSQL )->( VV1_CHASSI ) , ;
						( cQAlSQL )->( VV1_PLAVEI ) , ;
						( cQAlSQL )->( VV1_KILVEI ) , ;
						( cQAlSQL )->( VV1_TIPVEI )  } )
					EndIF
				EndIf
				
				( cQAlSQL )->( DbSkip() )
			EndDo
			cQryTemp := ""
			( cQAlSQL )->( dbCloseArea() )
		NEXT
	EndIF
EndIF

If Len(aVeicTot) <= 0
	aAdd(aVeicTot,{.f.," "," "," "," "," "," "," "," ",0," "})
Endif

// PONTO DE ENTRADA PARA ALTERACAO DOS VETORES DA TELA
If ExistBlock("VA640AV2")
	ExecBlock("VA640AV2",.f.,.f.)
EndIf

If Len(aAuxVeic) >0
	//ticar veiculo selecionados antes do filtro.
	For _ni:=1 to len(aVeicTot)
		
		nPos := aScan(aAuxVeic, {|x| x[8] == aVeicTot[_ni,8] }) // Verifica se a Marca esta selecionada
		If nPos > 0//ticar o veiculo
			If aAuxVeic[nPos,1]
				aVeicTot[_ni,1] := .t.
			EndIF
		EndIF
		
	Next
EndIF

IF cTipo <> "1"
	oLbVeic:SetArray(aVeicTot)
	oLbVeic:bLine := { || { IIf(aVeicTot[oLbVeic:nAt,01],oOk,oNo),;
	aVeicTot[oLbVeic:nAt,02],;
	aVeicTot[oLbVeic:nAt,03],;
	aVeicTot[oLbVeic:nAt,04],;
	Transform(aVeicTot[oLbVeic:nAt,05],"@R 9999/9999"),;
	X3CBOXDESC("VV1_COMVEI",aVeicTot[oLbVeic:nAt,06]),;
	Transform(aVeicTot[oLbVeic:nAt,07],VV1->(x3Picture("VV1_OPCFAB"))),;
	aVeicTot[oLbVeic:nAt,08],;
	Transform(aVeicTot[oLbVeic:nAt,09],VV1->(x3Picture("VV1_PLAVEI"))),;
	FG_AlinVlrs(Transform(aVeicTot[oLbVeic:nAt,10],"@E 999,999,999")),;
	X3CBOXDESC("VV1_TIPVEI",aVeicTot[oLbVeic:nAt,11]) }}
	oLbVeic:Refresh()
EndIf
dbSelectArea("VV1")
dbSetOrder(1)

cFilAnt := cSLVFil
Return()
||Variáveis|| 
||Programa Fonte|| VEIVA640.PRW