Linha Microsiga Protheus

Árvore de páginas

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,

Unknown macro: {|x| x[1] == IIf(!Empty(( cQAlSQL )->( VV1_FILIAL )),( cQAlSQL )->( VV1_FILIAL ),( cQAlSQL )->( VV1_FILENT )) }

)//pega a posicao da filial no array

aAdd(aVeicTot,

Unknown macro: { .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,

Unknown macro: {.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,

Unknown macro: {|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
  • Sem rótulos