Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas