Ponto-de-Entrada: VA640AVE - Alteração na visualização de veículos no Bônus do Veículo
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Ponto de Entrada na rotina Bônus do Veículo (VEIVA640) que permite alterar o vetor de exceções do bônus para modificar a exibição dos Veículos.
Eventos
If Len(aVeicTot) <= 0
aAdd(aVeicTot,{.f.," "," "," "," "," "," "," "," ",0," "})
Endif
//verifica se for visualização ou exclusão nao permite alterar
If nOpc =2 .or. nOpc =5 //visualizar/excluir nao permite alterar
lAltCpo := .f.
EndIF
IF nOpc =2
cAltDesc := STR0037 // "Visualizar"
ElseIf nOpc =3
cAltDesc := STR0038 // "Incluir"
ElseIf nOpc =4
cAltDesc := STR0039 // "Alterar"
ElseIf nOpc =5
cAltDesc := STR0040 // "Excluir"
EndIF
nVlrAnt:=nVlrBon
nPrcAnt:=nPrcBon
// PONTO DE ENTRADA PARA ALTERACAO DOS VETORES DA TELA
If ExistBlock("VA640AVE")
ExecBlock("VA640AVE",.f.,.f.)
EndIf
DEFINE MSDIALOG oBonVeic FROM aSizeAut[7],0 TO aSizeAut[6],aSizeAut[5] TITLE STR0001+" - "+cAltDesc OF oMainWnd PIXEL STYLE DS_MODALFRAME STATUS//bonus do veiculo
oBonVeic:lEscClose := .F.
//divide a janela em tres colunas.
nTam := ( aPos[1,4] / 3 )
@ aPos[1,1]-001,aPos[1,2]+(nTam*0) TO aPos[2,1],(nTam*3)-2 LABEL "" OF oBonVeic PIXEL
nOrdCpo := 006
// TIPO BONUS //
@ aPos[1,1]+002,aPos[1,2]+nOrdCpo SAY STR0002 SIZE 50,8 OF oBonVeic PIXEL COLOR CLR_BLUE // Tipo Bonus
@ aPos[1,1]+010,aPos[1,2]+nOrdCpo MSCOMBOBOX oTipBon VAR cTipBon SIZE 52,08 COLOR CLR_BLACK ITEMS aTipBon OF oBonVeic ON CHANGE FS_CONSVEIC() VALID NaoVazio() PIXEL COLOR CLR_BLUE WHEN lAltCpo
nOrdCpo += 053
// VALOR FINAL //
@ aPos[1,1]+002,aPos[1,2]+nOrdCpo SAY STR0047 SIZE 55,8 OF oBonVeic PIXEL COLOR CLR_BLUE //Valor Bonus
@ aPos[1,1]+010,aPos[1,2]+nOrdCpo MSGET oVlrBon VAR nVlrBon PICTURE "@E 999,999,999.99" SIZE 55,08 VALID (Positivo() .and. (FS_ALTVLR(),nVlrAnt:=nVlrBon)) OF oBonVeic PIXEL COLOR CLR_BLUE HASBUTTON WHEN lAltCpo
@ aPos[1,1]+020,aPos[1,2]+nOrdCpo MSGET oPrcBon VAR nPrcBon PICTURE "@E 99.9999%" SIZE 55,08 VALID (Positivo() .and. (FS_ALTVLR(),nPrcAnt:=nPrcBon)) OF oBonVeic PIXEL COLOR CLR_BLUE HASBUTTON WHEN lAltCpo
nOrdCpo += 056
// DATA INICIAL //
@ aPos[1,1]+002,aPos[1,2]+nOrdCpo SAY STR0004 SIZE 50,8 OF oBonVeic PIXEL COLOR CLR_BLUE //Data Inical
@ aPos[1,1]+010,aPos[1,2]+nOrdCpo MSGET oDatIni VAR dDatIni VALID(IIF(dDatIni>dDatFim,dDatFim:=dDatIni,.T.)) PICTURE "@D" SIZE 44,08 /* VALID FS_FILTVETOR()*/ OF oBonVeic PIXEL COLOR CLR_BLACK WHEN lAltCpo HASBUTTON
nOrdCpo += 043
// DATA FINAL //
@ aPos[1,1]+002,aPos[1,2]+nOrdCpo SAY STR0005 SIZE 50,8 OF oBonVeic PIXEL COLOR CLR_BLUE // Data Final
@ aPos[1,1]+010,aPos[1,2]+nOrdCpo MSGET odatFim VAR dDatFim VALID(IIF(dDatIni>dDatFim,.F.,.T.)) PICTURE "@D" SIZE 44,08 /* VALID FS_FILTVETOR()*/ OF oBonVeic PIXEL COLOR CLR_BLACK WHEN lAltCpo HASBUTTON
nOrdCpo += 043
// DATA VERIFICACAO //
@ aPos[1,1]+002,aPos[1,2]+nOrdCpo SAY STR0006 SIZE 55,8 OF oBonVeic PIXEL COLOR CLR_BLUE // Data Veric.
@ aPos[1,1]+010,aPos[1,2]+nOrdCpo MSCOMBOBOX oDatVer VAR cDatVer SIZE 35,08 COLOR CLR_BLACK ITEMS aDatVer OF oBonVeic /*ON CHANGE FS_FILTVETOR()*/ PIXEL COLOR CLR_BLUE WHEN lAltCpo
nOrdCpo += 040
//OBRIGATORIO //
@ aPos[1,1]+002,aPos[1,2]+nOrdCpo SAY STR0007 SIZE 55,8 OF oBonVeic PIXEL COLOR CLR_BLUE // Obrigatorio
@ aPos[1,1]+010,aPos[1,2]+nOrdCpo MSCOMBOBOX oObriga VAR cObriga SIZE 30,08 COLOR CLR_BLACK ITEMS aObriga OF oBonVeic /*ON CHANGE FS_FILTVETOR()*/ PIXEL COLOR CLR_BLUE WHEN lAltCpo
nOrdCpo += 035
//OBRIGATORIO //
@ aPos[1,1]+002,aPos[1,2]+nOrdCpo SAY STR0008 SIZE 55,8 OF oBonVeic PIXEL COLOR CLR_BLUE // Ativo
@ aPos[1,1]+010,aPos[1,2]+nOrdCpo MSCOMBOBOX oAtivo VAR cAtivo SIZE 30,08 COLOR CLR_BLACK ITEMS aAtivo OF oBonVeic /*ON CHANGE FS_FILTVETOR()*/ PIXEL COLOR CLR_BLUE WHEN lAltCpo
nOrdCpo += 041
@ aPos[1,1],aPos[1,2]+003 TO aPos[2,1]-2,nOrdCpo-5 LABEL "" OF oBonVeic PIXEL
// descricao //
@ aPos[1,1]+023,aPos[1,2]+006 SAY STR0009 SIZE 50,8 OF oBonVeic PIXEL COLOR CLR_BLACK //Descricao
@ aPos[1,1]+031,aPos[1,2]+006 MSGET oDescri VAR cDescri PICTURE "@!" SIZE 285,08 OF oBonVeic PIXEL COLOR CLR_BLUE WHEN lAltCpo
// ESTADO DO VEICULO //
@ aPos[1,1]+002,aPos[1,2]+nOrdCpo SAY STR0010 SIZE 50,8 OF oBonVeic PIXEL COLOR CLR_BLACK // Estado
@ aPos[1,1]+010,aPos[1,2]+nOrdCpo MSCOMBOBOX oEstVei VAR cEstVei SIZE 36,08 COLOR CLR_BLACK ITEMS aEstVei OF oBonVeic ON CHANGE FS_CONSVEIC() PIXEL COLOR CLR_BLUE WHEN lAltCpo
nOrdCpo += 037
// ANO FINAL //
@ aPos[1,1]+002,aPos[1,2]+nOrdCpo SAY STR0011 SIZE 50,8 OF oBonVeic PIXEL COLOR CLR_BLACK // Ano Fab.
@ aPos[1,1]+010,aPos[1,2]+nOrdCpo MSGET oAnoFab VAR cAnoFab PICTURE "@R 9999/9999" SIZE 36,08 VALID FS_CONSVEIC() OF oBonVeic PIXEL COLOR CLR_BLUE WHEN lAltCpo
nOrdCpo += 040
// OPCIONAIS //
@ aPos[1,1]+002,aPos[1,2]+nOrdCpo SAY STR0012 SIZE 50,8 OF oBonVeic PIXEL COLOR CLR_BLACK // Opcionais
@ aPos[1,1]+010,aPos[1,2]+nOrdCpo MSGET oOpcVei VAR cOpcVei PICTURE VZT->(X3PICTURE("VZT_OPCION")) SIZE 70,08 VALID FS_CONSVEIC() OF oBonVeic PIXEL COLOR CLR_BLUE WHEN lAltCpo
nOrdCpo += 071
@ aPos[1,1],aPos[1,2]+(nOrdCpo-150) TO aPos[1,1]+22,nOrdCpo+002 LABEL "" OF oBonVeic PIXEL
nTam := ( aPos[1,4] / 7 )
// MARCA //
@ aPos[2,1],aPos[2,2]+(nTam*0) TO aPos[2,3]-003,(nTam*2) LABEL STR0013 OF oBonVeic PIXEL // Marca
@ aPos[2,1]+007,aPos[2,2]+(nTam*0)+2 LISTBOX oLbMar FIELDS HEADER "",STR0013,STR0009 COLSIZES 10,20,40 SIZE (nTam*2)-6,aPos[2,3]-aPos[2,1]-12 OF oBonVeic PIXEL ON DBLCLICK (FS_TIK("MAR",oLbMar:nAt,nOpc),FS_CONSVEIC())//Marca # Descricao
oLbMar:SetArray(aMar)
oLbMar:bLine := { || { IIf(aMar[oLbMar:nAt,1],oVerd,oVerm) , aMar[oLbMar:nAt,2] , aMar[oLbMar:nAt,3] }}
// GRUPO DO MODELO //
@ aPos[2,1],aPos[2,2]+(nTam*2) TO aPos[2,3]-003,(nTam*4) LABEL STR0015 OF oBonVeic PIXEL // Grupo do Modelo
@ aPos[2,1]+007,aPos[2,2]+(nTam*2)+2 LISTBOX oLbGru FIELDS HEADER "",STR0013,STR0009 COLSIZES 10,20,40 SIZE (nTam*2)-6,aPos[2,3]-aPos[2,1]-12 OF oBonVeic PIXEL ON DBLCLICK (FS_TIK("GRU",oLbGru:nAt,nOpc),,FS_CONSVEIC())//Marca # Descricao
oLbGru:SetArray(aGru)
oLbGru:bLine := { || { IIf(aGru[oLbGru:nAt,1],oVerd,oVerm) , aGru[oLbGru:nAt,2] , aGru[oLbGru:nAt,4] }}
// MODELO //
@ aPos[2,1],aPos[2,2]+(nTam*4) TO aPos[2,3]-003,(nTam*7) LABEL STR0016 OF oBonVeic PIXEL // Modelo
@ aPos[2,1]+007,aPos[2,2]+(nTam*4)+2 LISTBOX oLbMod FIELDS HEADER "",STR0013,STR0017,STR0003,STR0048 COLSIZES 10,20,120,40,20 SIZE ((nTam*3)-6),aPos[2,3]-aPos[2,1]-12 OF oBonVeic PIXEL ON DBLCLICK (Iif(oLbMod:nColPos<=3,FS_TIK("MOD",oLbMod:nAt,nOpc),FS_MANVKR(oLbMod:nAt)),FS_CONSVEIC())//Marca # Modelo - Descricao # Valor Bonus
oLbMod:SetArray(aMod)
oLbMod:bLine := { || { IIf(aMod[oLbMod:nAt,1],oVerd,oVerm) , aMod[oLbMod:nAt,2] , aMod[oLbMod:nAt,5] , FG_AlinVlrs(Transform(IIf(aMod[oLbMod:nAt,1],aMod[oLbMod:nAt,7],0),"@E 999,999,999.99")), FG_AlinVlrs(Transform(IIf(aMod[oLbMod:nAt,1],aMod[oLbMod:nAt,8],0),"@E 99.9999%")) }}
// VEICULOS //
@ aPos[3,1]-002,aPos[3,2] TO aPos[3,3],aPos[3,4] LABEL STR0044 OF oBonVeic PIXEL // excecoes
@ aPos[3,1]+005,aPos[3,2]+002 LISTBOX oLbVeic FIELDS HEADER " ",STR0019,STR0013,STR0016,STR0022,STR0023,STR0024,STR0021,STR0020,STR0018,STR0014 COLSIZES ;//"Loja ## Marca ## Modelo ## Fab/Mod ## Combustivel ## Opcionais Fabrica ## Chassi ## Placa ## Kilometragem ## Tipo Veiculo"
10,55,25,70,40,65,120,90,40,50,50 SIZE aPos[3,4]-005,aPos[3,3]-aPos[3,1]-009 OF oBonVeic PIXEL ON DBLCLICK (FS_TIK2(oLbVeic:Nat,nOpc))
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]) }}
@ aPos[2,1]+007,aPos[2,2]+(nTam*0)+003 CHECKBOX oCMar VAR lSMar PROMPT "" OF oBonVeic ON CLICK FS_TIK3("MAR",lSMar,nOpc) SIZE 40,10 PIXEL
@ aPos[2,1]+007,aPos[2,2]+(nTam*2)+003 CHECKBOX oCGMod VAR lSGmod PROMPT "" OF oBonVeic ON CLICK FS_TIK3("GRU",lSGmod,nOpc) SIZE 40,10 PIXEL
@ aPos[2,1]+007,aPos[2,2]+(nTam*4)+003 CHECKBOX oCMod VAR lSMod PROMPT "" OF oBonVeic ON CLICK FS_TIK3("MOD",lSMod,nOpc) SIZE 40,10 PIXEL
oTipBon:SetFocus()
ACTIVATE MSDIALOG oBonVeic ON INIT EnchoiceBar(oBonVeic,{|| IF(FS_GRAVAR(nOpc),oBonVeic:End(),.T.) , .f. },{|| oBonVeic:End() } )
Programa Fonte
VEIVA640.PRW
Sintaxe
VA640AVE - Alteração na visualização de veículos no Bônus do Veículo ( [ ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
()
Observações
User function VX001ANF()
MsgAlert("Tecle OK para continuar")
Return
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas