Histórico da Página

...

Foi implementado um ponto de entrada na função "GravaAloc2" para permitir que, caso haja necessidade, o usuário possa realizar validações próprias no momento da gravação da agenda.

Exemplo de Utilização:

User Function

...

 At190Dalo()

...

Local oModel 	:= PARAMIXB[1]

...

Local oMdlALC	:= oModel:GetModel("ALCDETAIL")
Local lRet	 	:= .T.
Local nX

For nX := 1 To oMdlALC:Length()
	oMdlALC:GoLine(nX)
	If oMdlALc:GetValue("ALC_SITABB")

...

 <> "BR_VERDE"

...

     MsgAlert("Será gerada a projeção da agenda")
     lGrava := .T.

Else

    MsgAlert("Não será gerada a projeção da agenda")
    lGrava := .F.

EndIf 

...

	    lRet := .F.
	EndIf 
Next nX

Return lRet

Obs: O resultado desta função (lGrava), indicará se deve ou não ser gerada a gravação da agenda, sendo que os retornos são .T. ou .F.

Informações adicionais:

• A variável aModelvariável oModel tem como guardar informações do modelo da ALC, para fazer as validações da geração da agenda.

...