Histórico da Página

||Descrição|| O ponto de entrada AF060VLAU valida a tela de seleção dos itens para a tranferencia em modo automático no momento da confirmação.  
||Observações|| O ponto de entrada AF060VLAU aciona oa botãoopção de confirmação da tela, após a seleção dos itens para a transferencia e antes da gravação. Ele recebe como parametros os dados necessários para a validação dos itens marcados.
||Exemplos|| #Include "Protheus.ch" 
User Function AF060VLAU()
 Local aArea  := GetArea()
 Local lRet   := .T. 
 Local cMarca  := PARAMIXB\[1]
 Local aDados := PARAMIXB\[2]
 Local dDataBase := PARAMIXB\[3]
 Local cFilDest := PARAMIXB\[4] 
 Local cFilOrig := PARAMIXB\[5]
 Local cFiltro := PARAMIXB\[6]
 If cFilDest <> cFilOrig
  Alert("Não é permitido transferir para esta filial.")
  lRet := .F.
 EndIf  
If lRet  
DbSelectArea("SN3")
  SN3->(DbSetOrder(1))
  SN3->(MsSeek(xFilial("SN3")+aDados\[1]+aDados\[2],.T.))
  While SN3->(!Eof()) .And. xFilial("SN3") == SN3->N3_FILIAL .And. SN3->N3_CBASE <= aDados\[3] .And. SN3->N3_ITEM <= aDados\[4]  
    If Empty(cFiltro) .Or. &(cFiltro)
      If SN3->N3_OK == cMarca .And. SN3->N3_TIPO == "01"
         Alert("Não é permitido transferir item de Tipo 01.")
        lRet := .F.   
       Exit   
     Endif
   Endif  
  SN3->(DbSkip()) 
  EndDo 
EndIf 
RestArea(aArea)
Return lRet
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus10
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Parâmetros|| cMarca,\{cBaseI,cItemI,cBaseF,cItemF\},dDataBAse,cFilDest,cFilOrig,cExpFiltro
||Retorno|| .F. (Não válido) Ou .T. (Válido)
||Eventos de chamada do Ponto de Entrada|| EnchoiceBar(oDlg1,IIF(AF060VLAUTO(cExpFiltro),(nOpca := 1,oDlg1:End()),)
  Static Function  AF060VLAUTO(cExpFiltro)
  Local lAF060VLAU :=  ExistBlock("AF060VLAU")
  If lAF060VLAU
  lRet := ExecBlock("AF060VLAU",.F.,.F.,cMarca  \{cBaseI,cItemI,cBaseF,cItemF\},dDataBAse,cFilDest,cFilOrig,cExpFiltro)
  EndIf  
  Return lRet
||Programa Fonte|| ATFA060.PRW