VM017ANF - Retorna autorização de remessa

O ponto de entrada VM017ANF está localizado na rotina de Mov Saida/Remessa, para retornar se autoriza ou não a confirmação da remessa.

/////////////////////
Function Fs_RTudoOk()

Local lRet := .t.
Local i := 0
nOpca := 2

if nOpc == 2
 nOpca := 1
 Return .t.
Endif
For i:=1 to Len(aPriEnc)
 If X3Obrigat(aPriEnc[i]) .and. Empty(&("M->"+aPriEnc[i]))
  Help(" ",1,"OBRIGAT2",,RetTitle(aPriEnc[i]),4,1 )
  Return .F.
 EndIf
Next

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Boby - 30/03/2010 - Criar PE para ver se autoriza ou nao a   ³
//³                     confirmação da Remessa                   ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ExistBlock("VM017ANF")
 If !ExecBlock("VM017ANF",.f.,.f.)
  Return .F.
 EndIf
EndIf

//Verifica se a Transferencia e para uma outra Filial
dbSelectArea("SA1")

lTelVdaSim := .f.
ProcRegua(6)

if !lExclui .and. (Inclui .or. Altera)

"

"

"

"

Return()

VEIVM017

VM017ANF - Retorna autorização de remessa ( [ ] ) --> lRet

lRet(logico)
• Retorna true ou false.

/*±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±³Fun‡„o    ³ VM017ANF ³ Autor ³  Antonio C Damaceno   ³ Data ³ 30/03/10 ³±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±³Descri‡„o ³PE para retornar se autoriza ou nao a confirmação da Remessa³±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±³Retorno   ³.T. autoriza / .F. nao autoriza a confirmação da Remessa          ³±±±±³Uso       ³Veiculos                                                                                  ³±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±*/User Function VM017ANF() Local lRet := .T. If !MSGYESNO("Autoriza Remessa ?","Confirmação da Remessa - PE VM017ANF()")  lRet := .F. EndIfReturn(lRet)