AF060VLAU - Valida tela de seleção de itens na transferencia automática

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 a opçã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