Histórico da Página

#INCLUDE "totvs.ch"

/*/{Protheus.doc} User Function F402SRC
    (//Ponto de entrada para complemento do registro no SRC gerado a partir da
	 //integracao FIN x GPE para SEFIP
	 //E passado como parametro qual o movimento esta sendo gravado
	 //1 = Base do Inss
	 //2 = Valor do Inss
     //3 = Salario do Autonimo
     //4 = Base do IRRF
	 //5 = Valor do IRRF
     //6 = Terceiro - Sest/Senat
     //7 = Liq. A Recebe)
     //8 = Valor Dependente do IR

    @type  Function
    @author Cassio S Dias
    @since 06/12/2023
    @version 12.1.2310
    @param nI, numeric
    @return NIL
    @see (links_or_referenceshttps://tdn.totvs.com/x/h3g6M)
    /*/
User Function F402SRC(nI)

//Exemplo pra tratamento quando Base/Valor IR

	Local cCCusto   as character
	Local cProxPgto as character
	Local cSeqSRC   as character
	Local cTipo4    as character
	Local cTipo5    as character
	Local nSaldoIR  as numeric

	cCCusto   := PARAMIXB
	cProxPgto := PARAMIXB
	cSeqSRC   := PARAMIXB
	cTipo4    := PARAMIXB
	cTipo5    := PARAMIXB
	nSaldoIR  := PARAMIXB

		If  nI := 4

			If SRC->(DbSeek(cFilialSRC+SRA->RA_MAT+SRV->RV_COD+SRA->RA_CC+cProxPgto))
				RecLock("SRC",.F.)
				SRC->RC_SEMANA	:= cProxPgto
				SRC->RC_CC		:= cCCusto
				SRC->RC_TIPO2	:= cTipo4
				SRC->RC_SEQ		:= cSeqSRC
                SRC->(MsUnlock())
			Endif

		ELSEIF  nI := 5
        
			If SRC->(DbSeek(cFilialSRC+SRA->RA_MAT+SRV->RV_COD+SRA->RA_CC+cProxPgto))
				RecLock("SRC",.F.)
				SRC->RC_SEMANA	:= cProxPgto
				SRC->RC_CC		:= cCCusto
				SRC->RC_TIPO2	:= cTipo5
				SRC->RC_SEQ		:= cSeqSRC
                SRC->(MsUnlock())
			Endif

		ENDIF

Return NIL