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 == "GRVFD1"
	    	MsgInfo("Entrou no ponto de entrada:'GRVFD1'.")
VALFE"
           cLote:= Int_FD->NFDLOTECTL
         //Exemplo para incluir uma nova informação no arquivo txt e gravar essas informações nas tabelas SWN e SD1.
         //Para isso vamos utilizar em conjunto os pontos de entrada "FD","GRVFD" e "GRVFD1"
         //neste exemplo vamos utilizar os campos da fecp, mas pode ser qualquer outro campo
         Case  cParamIXB == "FD" 
              AADD(aEstruDef,{"NFALFECP"  ,"N",6,2}) //Adiciona os campos novos no array da estrutura para que consiga ler as informações do arquivo txt
              AADD(aEstruDef,{"NFVLFECP"  ,"N",9,2})

              //Este ponto de entrada também pode ser utilizado para alterar o tamanho de um campo
              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 
         Case  cParamIXB == "GRVFD" //Grava o valor dos campos novos na tabela SWN
              SWN->WN_ALFECP := INT_FD->NFALFECP
              SWN->WN_VLFECP := INT_FD->NFVLFECP
  
         Case  cParamIXB == "GRVFD1" // Adiciona os campos novos no array aItens para que sejam gravados na tabela SD1
              AADD(aItens[len(aItens)],{"D1_ALQFECP"     ,INT_FD->NFALFECP          ,NIL})
              AADD(aItens[len(aItens)],{"D1_VALFECP"     ,INT_FD->NFVLFECP          ,NIL})
         EndCase
  
	End Sequence

Return