Histórico da Página

User Function IN100CLI()
Local cParamIXB
Local nPosCod 
Local cLote
  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 cParamIXB == "VALFE"
           cLote:= Int_FD->NFDLOTECTL
        Case  cParamIXB == "GRVFD1"
	    	MsgInfo("Entrou no ponto de entrada:'GRVFD1'.")
        Case  cParamIXB == "FD"
            nPosCod := aScan(aEstruDef,{|x| AllTrim(x[1])=="NFDFATURA"})   
            aEstruDef[nPosCod][3]:=20 //altera o tamanho do campo NFDFATURA
            nPosCod := aScan(aEstruDef,{|x| AllTrim(x[1])=="NFDLOTECTL"})   
            aEstruDef[nPosCod][3]:=20 //altera o tamanho do campo LOTE
          EndCase
  
	End Sequence

Return