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 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