VM011GVA - Efetua validação na gravação do atendimento

O ponto de entrada VM011GVA esta localizado na rotina de Atendimento de Veículo, para que possa ser efetuada a validações do cliente na gravação do atendimento.

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao    ³ FINAL011     ³ Autor ³ ANDRE             ³ Data ³ 23/02/06 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ Finaliza o atendimento                                     ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Function FINAL011(nOpc)

Local lRet := .f.
Local lCEV := .t.
Local lImpr:= .t.
Local cGCFVCEV := ""
Local cGCPVCEV := ""
Local lMsSlvHelp := .f.
Local cTIPOPAGTO := GetNewPar("MV_TPVEITR","VEICULOS")
Local cNAteExc   := VV9->VV9_NUMATE
Local nTamObs, cAuxObs, nPosObs, Cont
Local lMosTAprov := .f. // Se .t. mostra Aprovacao Na finalizacao do Atendimento
Local cChaAval := ""//Grava o chassi para alteraaco avaliacao de veiculo para mudar para nao aprovada. - Rafael
Local cQuery := ""
Local cQAlias:= "SQLVAZ"
Local nVJ1Numtra := 0

Private lMsErroAuto := .f.
Private lMsHelpAuto := .t.
Private cSerie := cNumero := ""
Private lOk := .t.

Default nOpc := 1

if lVisual
 Return(.t.)
Endif

if lExclui
    if VV0->VV0_SITNFI == "2"
       MsgInfo(STR0263,STR0012)
       Return(.f.)
    Endif
    if !Empty(VVA->VVA_CHASSI)
     VV1->(DbSetOrder(2))
     VV1->(DbSeek(xFilial("VV1")+VVA->VVA_CHASSI))
     VV1->(DbSetOrder(1))
     if VV1->VV1_SITVEI <> "1" .and. VV1->VV1_SITVEI <> "0"
        MsgInfo(STR0264,STR0012)
        Return(.f.)
     Endif  
    endif
 if nOpc <> 1
  MsgInfo(STR0067,STR0012) //Confirme a exclusao no botao de ok! - Atencao
  Return(.f.)
 Else
  If MsgYesNo(OemToAnsi(STR0068),OemToAnsi(STR0069))//Cancela Atendimento? - Cancelamento...
   Begin Transaction
    lOk := FS_EXCATE()
   End Transaction
   if !lOk
    Return(.f.)
   Endif
   if lMsErroauto
    MostraErro()
   Else
    // Exclui VAZ (Avaliacao de Veiculo Usado) na Exclusao do Atendimento
    DbSelectArea("VAZ")
    DbSetOrder(4)
    If DbSeek( xFilial("VAZ") + cNAteExc )
     If MsgYesNo(STR0335,STR0012) // Deseja excluir as avaliacoes de veiculos usados referentes a esse Atendimento ? / Atencao
      Do While !Eof() .and. xFilial("VAZ") == VAZ->VAZ_FILIAL .and. cNAteExc == VAZ->VAZ_NUMATE
       RecLock("VAZ",.f.,.t.)
       DbDelete()
       MsUnlock()
       DbSkip()
      EndDo
     Else
      // Gravar VAZ (Avaliacao de Veiculo Usado) - Limpa link das avaliacoes com o Atendimento
      DbSelectArea("VAZ")
      DbSetOrder(4)
      While .t.
       If DbSeek( xFilial("VAZ") + cNAteExc )
        RecLock("VAZ",.F.)
         If VAZ->VAZ_APROVA == "2" // Avaliacao com Veiculo Negociado
          VAZ->VAZ_APROVA := "1" // Avalicao Aprovada
         EndIf
         VAZ->VAZ_NUMATE := "" // Limpa link com o Atendimento
        MsUnlock()
       Else
        Exit
       EndIf
      EndDo
     EndIf
    EndIf
   EndIf
  EndIf
  Return(!lMsErroauto)
 Endif
Endif
if ExistBlock("VM011GVA")
 If !ExecBlock("VM011GVA",.f.,.f.)
  Return .f.
 Endif
Endif

VEIVM011

VM011GVA - Efetua validação na gravação do atendimento ( [ ] ) --> lRet

lRet(logico)
• Retorna true ou false.

/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡„o    ³ VM011GVA    ³ Autor ³ Rafael Goncalves      ³ Data ³ 10/10/09 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡„o ³ Ponto de entrada que permite validar a gravação do atendimento ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Sintaxe   ³                                                            ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³                                                            ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/User Function VM011GVA()     MsgInfo("Ponto de entrada VM011GVA, executado corretamente.","Atencao")//Return(.t.)