VM030ANF - Saída de veículo

O ponto de entrada VM030ANF esta localizado na rotina de Saída de veiculo consignado. 

Function FS_TOKVM030(cAlias, nReg, nOpc)

Local i := 0

//if !MsgYesNo("Confirma Emissao da Nota Fiscal ?","Atencao !")

//   Return( .f. )

//Endif  

nOpca := 2

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

//³ Rafael - 15/12/2009 - Solicitado Pelo Manoel                 ³

//³ Verifica obrigatorios dos campos da MsMGet Atual             ³

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

If cAuxTipo == "N"  //normal

            For i:=1 to Len(aPriEnc)

                        If X3Obrigat(aPriEnc[i]) .and. Empty(&("M->"+aPriEnc[i]))

                                   Help(" ",1,"OBRIGAT2",,RetTitle(aPriEnc[i]),4,1 )

                                   Return

                        EndIf

            Next       

EndIF

if cAuxTipo <> "D" // Devolucao

   if VV1->VV1_SITVEI == "3"

      MsgStop(STR0059,STR0028) //Veiculo ja esta em remessa... - Atencao!

      Return .f.

   ElseIf !VV1->VV1_SITVEI $ "04"

      MsgStop(STR0060,STR0028)  //Veiculo nao esta no estoque... - Atencao!

      Return .f.

   Endif  

Endif  

if ExistBlock("VM030ANF")

   if !ExecBlock("VM030ANF",.f.,.f.)

              Return(.f.)

   Endif

Endif

VEIVM030

VM030ANF - Saída de veículo ( [ ] )

()

/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡„o    ³ VM030ANF³ Autor ³ Otavio Favarelli      ³ Data ³ 11/11/09 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡„o ³ Ponto de entrada para gravar ou alterar informacoes geradas³±±±±³          ³ na tabela SB1 a partir de um veiculo que foi dado entrada. ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Sintaxe   ³                                                            ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³                                                            ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/User Function VM030ANF()            MsgAlert("O ponto de entrada VM030ANF foi executado com sucesso!","Sucesso!")Return .t.