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, opção <F10> Opções / Venda Futura - Relaciona Chassi. A mesma permite criar validações customizadas para o veículo selecionado no momento de Confirmar/Salvar.

Eventos:

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³ FS_PERG º Autor ³ Andre Luis Almeida º Data ³ 25/05/10 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºDescricao ³ Pergunta se relaciona o Veiculo com o Atendimento º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

Static Function FS_PERG(ni,nValVda,cAtend,cStatusVV9)

Local lRet := .f.

Local lAltVV1 := .f.

If cStatusVV9 <> "A" .and. nValVda <> aVeicVer[ni,6] // Nao deixar selecionar Veiculo quando Atendimento nao estiver em Aberto e valor for diferente

if VAI->(FieldPos("VAI_PERVDF")) > 0

if VAI->VAI_PERVDF == "1" .or. VAI->VAI_PERVDF == " "

MsgStop(STR0018+CHR(13)+CHR(10)+CHR(13)+CHR(10)+; // Valor do veiculo divergente. Impossivel continuar!

FG_AlinVlrs(left(STR0019+":"+space(30),30),"E")+FG_AlinVlrs(Transform(aVeicVer[ni,6],"@E 999,999,999.99"))+CHR(13)+CHR(10)+; // Veiculo selecionado

FG_AlinVlrs(left(STR0020+":"+space(30),30),"E")+FG_AlinVlrs(Transform(nValVda,"@E 999,999,999.99")),STR0017) // Atendimento Venda Futura / Atencao

Endif

if VAI->VAI_PERVDF == "2"

If MsgYesNo(STR0024,STR0017)

dbSelectArea("VV1")

dbSetOrder(2)

if dbSeek(xFilial("VV1")+aVeicVer[ni,10])

RecLock("VV1",.f.)

VV1->VV1_SUGVDA := nValVda

MsUnlock()

aVeicVer[ni,6] := nValVda

lRet := .T.

lRet := .t.

lAltVV1 := .t.Endif

Endif

Endif

Else

MsgStop(STR0018+CHR(13)+CHR(10)+CHR(13)+CHR(10)+; // Valor do veiculo divergente. Impossivel continuar!

FG_AlinVlrs(left(STR0019+":"+space(30),30),"E")+FG_AlinVlrs(Transform(aVeicVer[ni,6],"@E 999,999,999.99"))+CHR(13)+CHR(10)+; // Veiculo selecionado

FG_AlinVlrs(left(STR0020+":"+space(30),30),"E")+FG_AlinVlrs(Transform(nValVda,"@E 999,999,999.99")),STR0017) // Atendimento Venda Futura / Atencao

Endif

Else

If VEIXX012(1,,aVeicVer[ni,12],,cAtend)

If MsgYesNo(STR0021+CHR(13)+CHR(10)+CHR(13)+CHR(10)+; // Deseja relacionar o Veiculo ao Atendimento?

IIf(!Empty(aVeicVer[ni,14]),STR0014+": "+aVeicVer[ni,14],aVeicVer[ni,10])+CHR(13)+CHR(10)+; // Progresso

STR0007+": "+Alltrim(aVeicVer[ni,16])+" - "+aVeicVer[ni,04]+" "+CHR(13)+CHR(10)+; // Modelo

STR0008+": "+Alltrim(aVeicVer[ni,17])+" - "+aVeicVer[ni,05],STR0017) // Cor / Atencao

lRet := .t.

EndIf

EndIf

EndIf

// Ponto de Entrada para validação do chassi selecionado

If lRet .and. ExistBlock("VXC06VAL")

lRet := ExecBlock("VXC06VAL", .f., .f.)

EndIf

//

If lRet .And. lAltVV1

dbSelectArea("VV1")

dbSetOrder(2)

If dbSeek(xFilial("VV1")+aVeicVer[ni,10])

RecLock("VV1",.f.)

VV1->VV1_SUGVDA := nValVda

MsUnlock()

aVeicVer[ni,6] := nValVda

Else

lRet := .f.

EndIf

EndIf

Return(lRet)

Função:

FS_PERG()