Histórico da Página

Composition Setup
import.css=/download/attachments/327912/newLayout.css

Portuguese

Pagetitle

	VA640AVE - Alteração na visualização de veículos no Bônus do Veículo
	VA640AVE - Alteração na visualização de veículos no Bônus do Veículo

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

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave