Histórico da Página

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function FXIMPGR
    (Ponto de entrada permite gravar dados complementares do 
    registro posicionado nos recnos dos impostos gerados
    @type  Function
    @author Cassio S Dias
    @since 15/12/2023
    @version 12
    @param aRecImpos, array contendo os recnos dos impostos gerados
    @return Nil
    @see (links_or_referenceshttps://tdn.totvs.com/x/ibiMM)
    /*/
User Function FXIMPGR(aRecImpos)

	Local cHist  as character
	Local cCart as character
	Local nI as numeric

	aRecImpos:= Paramixb //Array contendo os recnos dos impostos gerados
	cCart    := Paramixb //Carteira (Pagar/Receber)
	cHist    := "Passou no Ponto de entrada FXIMPPG"
	nI       := 0

	For nI := 1 to LEN( aRecImpos[nI,1] )

		if cCart == "1" // Receber
			DbSelectArea("SE1")
			SE1->(dbGoTo(aRecImpos[nI,1]) )
			RecLock("SE1", .F.)
			SE1->E1_HIST := cHist
			MsUnlock()
		else
			DbSelectArea("SE2")
			SE2->(dbGoTo(aRecImpos[nI,1]) )
			RecLock("SE2", .F.)
			SE2->E2_HIST := cHist
			MsUnlock()
		EndIf

	NEXT

Return NIL