Ponto de Entrada – FADTMOV

Exemplo do Ponto de Entrada FADTMOV.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*------------------------------------------------------------------------------------------------------*
 | P.E.:  FADTMOV                                                                                       |
 | Desc:  Valida a data da movimentação financeira (validando titulos a receber)                        |
 | Links: http://tdn.totvs.com/display/public/mp/FADTMOV+-+Valida+data+limite+do+Movimento+Financeiro   |
 *------------------------------------------------------------------------------------------------------*/

User Function FADTMOV()
	LOCAL aArea := GetArea()
	LOCAL aAreaA6 := SA6->(GetArea())
	LOCAL dData := ParamIxb[1]
	LOCAL lRet  := .T.
	LOCAl lPadrao := .T.               
	Local cOrigAux := ""
	Local cBcoAux := ""
	Local cAgeAux := ""
	Local cConAux := ""
	Local nAux := 0

	if IsInCallStack("FA040Inclu") 
		if IsInCallStack("AxInclui") 
			if !Empty(SA6->A6_X_DTLIM) .and. dData < SA6->A6_X_DTLIM 
				lRet := .f.
			endif
		endif
		
	Elseif IsInCallStack("Fa040Delet") 
		//Tratamento para exclusão de Recebimentos Antecipados
		if SE1->E1_TIPO$MVRECANT   
			SA6->(DbSetOrder(1))
			if SA6->(DbSeek(FwxFilial("SA6")+SE1->(E1_PORTADO+E1_AGEDEP+E1_CONTA)))  
				If !Empty(SA6->A6_X_DTLIM)
					If dData < SA6->A6_X_DTLIM
						lRet := .f.	
					Endif	
				EndIf
			endif		
		endif
		
	elseif IsInCallStack("FA070BTOK") //Tratamento para Baixa Manual do Titulos a Receber
		If !Empty(SA6->A6_X_DTLIM)
			If dData < SA6->A6_X_DTLIM
				lRet := .f.	
			Endif	
		endif	
		
	elseif IsInCallStack("fA070Can")   

	elseif IsInCallStack("FA070LOT") .and. IsInCallStack("FA070GRAVA")

		If !Empty(SA6->A6_X_DTLIM)
			If dData < SA6->A6_X_DTLIM
				lRet := .f.	
			Endif	
		endif	
	else
		lPadrao := .t.
	endif
	
	If !lRet
		lPadrao := .F.
	EndIf
	
	if lPadrao
		//Alert("Padrão")
		Conout("Padrão")
		ListPilha()
		If dData < GetMv("MV_DATAFIN") 
			If lHelp
				Help ( " ", 1, "DTMOVFIN")
			EndIf
			lRet:=.F.
		EndIf
	endif


	RestArea(aAreaA6)
	Restarea(aArea)
Return(lRet)

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Links:

Pesquisa no TDN

Etiquetas

Receba novidades

Seja VIP e receba novidades exclusivas por e-Mail gratuitamente.