Histórico da Página

Descrição:

Este Ponto de Entrada será executado na rotina Atend. Modelo 2 (VEIXA018) ao ser executada a funcionalidade Incluir/Alterar. A mesma permite gravações customizadas pelo usuário após a gravação padrão das opções do painel “Valores da Negociação”.

Eventos:

Local nSlvOpc := nOpc

Local lGravou := .f.

Default aPar1 := {}

Default aPar2 := {}

Default aPar3 := {}

Default aPar4 := {}

Default aPar5 := {}

If !VX002TUDOK(nOpc,.f.)

Return

EndIf

If VV9->VV9_STATUS $ "POLFC"

nOpc := 2

EndIf

VX002X3LOAD( "VS9" , .t. , @aPar2 , 1 , "VS9_FILIAL+VS9_NUMIDE+VS9_TIPOPE", xFilial("VS9")+PadR(M->VV9_NUMATE,TamSX3("VS9_NUMIDE")[1]," ")+"V")

DbSelectArea("VS9")

Do Case

Case cTp == "1" // Financiamento FI / Leasing

If nOpc == 3 .or. nOpc == 4

If ( M->VV9_CODCLI + M->VV9_LOJA ) == ( cCliPadrao + cLojPadrao )

MsgAlert(STR0055,STR0011) // Para utilizar corretamente o Financiamento/Leasing, o Cliente/Loja informado no Atendimento deve ser diferente do Cliente/Loja Padrao informado nos Parametros da Rotina. / Atencao

EndIf

EndIf

If VEIXX005(nOpc,@aPar1,@aPar2,@aPar3,.f.) // ( nOpc / aParFin / aVS9 / aVSE / lZerar )

VX002RPGRV(cTp,@aPar1,@aPar2,@aPar3) // Preenche M-> para Financiamento FI / Leasing

VX002GRV(nOpc,.f.,"VS9/VSE",@aPar2,@aPar3) // nOpc / Tabelas a Serem Alteradas / aVS9 / aVSE

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

//³ LEASING -> Fiscal para Cliente: Banco ³

//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

If M->VV0_CATVEN == "7" .and. !Empty(M->VV0_CLIALI+M->VV0_LOJALI)

VX002GRV(nOpc,.f.,"",,) // Gravar M-> que possuem relacao com o FISCAL ( Cliente: Banco )

EndIf

lGravou := .t.

EndIf

Case cTp == "2" // Finame

If VEIXX015(nOpc,@aPar1,@aPar2) // ( nOpc / aParFna / aVS9 )

VX002RPGRV(cTp,@aPar1,@aPar2) // Preenche M-> para Finame

VX002GRV(nOpc,.f.,"VS9",@aPar2) // nOpc / Tabelas a Serem Alteradas / aVS9

lGravou := .t.

EndIf

Case cTp == "3" // Financiamento Proprio

If VEIXX009(nOpc,@aPar1,@aPar2) // ( nOpc / aParPro / aVS9 )

VX002RPGRV(cTp,@aPar1,@aPar2) // Preenche M-> para Financiamento Proprio

VX002GRV(nOpc,.f.,"VS9",@aPar2) // nOpc / Tabelas a Serem Alteradas / aVS9

lGravou := .t.

EndIf

Case cTp == "4" // Consorcio

If VEIXX010(nOpc,@aPar1,@aPar2,@aPar3) // ( nOpc / aParCon / aVS9 / aVSE )

VX002GRV(nOpc,.f.,"VS9/VSE",@aPar2,@aPar3) // nOpc / Tabelas a Serem Alteradas / aVS9 / aVSE

lGravou := .t.

EndIf

Case cTp == "5" // Veiculo Usado

If VEIXX008(nOpc,@aPar1,@aPar2) // ( nOpc / aParUsa / aVS9 )

VX002GRV(nOpc,.f.,"VS9",@aPar2) // nOpc / Tabelas a Serem Alteradas / aVS9

lGravou := .t.

EndIf

Case cTp == "6" // Entrada

If VEIXX011(nOpc,@aPar1,@aPar2,@aPar3) // ( nOpc / aParEnt / aVS9 / aVSE )

VX002GRV(nOpc,.f.,"VS9/VSE",@aPar2,@aPar3) // nOpc / Tabelas a Serem Alteradas / aVS9 / aVSE

lGravou := .t.

EndIf

EndCase

If lGravou

If ExistBlock("VX002TABG") // Ponto de Entrada para gravar as informações em tabelas customizadas

ExecBlock("VX002TABG", .f., .f., {cTp, nOpc})

EndIf

EndIf

nOpc := nSlvOpc

Return

Função:

VX002BTVLN()