Histórico da Página

User Function IN100CLI()
Local cParamIXB



Begin Sequence



	If ValType(ParamIXB) == "A"

		cParamIXB:= ParamIXB[1]

	Else

		cParamIXB:= ParamIXB

	EndIf



	Do Case

		Case cParamIXB == "DELDESP"

			/*
			Possibilita intervir na integração das despesas, impedindo que ocorra a exclusão
			*/
			lDeletaSWD:= .F.

		Case cParamIXB == "VALFD"

               cErro := nil

              Int_FE->NFEINT_OK := "T" 
		Case cParam == "GRVFD1"

    	MsgInfo("Entrou no ponto de entrada:'GRVFD1'.")

	EndCase

  

End Sequence

Return