Árvore de páginas

Função

TAFPrepInt 


Sintaxe

TAFPrepInt( cEmpEnv , cFilEnv , cXml , cKey , cTpInteg, cEvento, cXERPAlias, cTicket, cStatQueue, aStsInteg, lExcluiObjs, cOwner, cFilTran, cPredeces, cComplem, cGrpTran, lGrpDest, lXmlIdERP, cEvtOri, lMigrador, lDepGPE, cMatrC9V, lLaySmpTot, cAliEvtOri, nRecEvtOri, cFilPrev )


Descrição

Serviço utilizado para integração de informações no Layout do eSocial.

Deverá ser chamada após a validação completa do modelo de dados do ERP. Em termos técnicos, poderá ser chamada após a efetivação da função TudoOk().

Compatível PaísesTodos
Sistemas OperacionaisTodos
Bases de DadosTodos
Nível de AcessoNível 1 ( Acesso Clientes )
IdiomasTodos
VersãoP11 R.1+

Parâmetros

NomeTipoDescriçãoDefaultObrigatoriedadeReferência
cEmpEnvCaractereEmpresa do registro no ERPcEmpAntO
cFilEnvCaractereFilial do registro no ERPcFilAntO
cXmlCaractereString contendo o XML no formato do Layout do eSocial( vazio )O
cKeyCaractereChave do registro( vazio )O
cTpIntegCaractereTipo da integração ( "1" = Online ; "2" = Banco-a-banco ; "3" - Chamada TAFAINTEG )( vazio )O
cEventoCaractereCódigo do Evento que está sendo enviado ( Exemplo: S1010, S1020, S1030, etc.. )( vazio )O
cXERPAliasCaractereAlias da tabela TAFXERP ( log de integração do TAF )( vazio )

cTicketCaractereCódigo do Ticket ( lote ) que o registro está sendo integrado( vazio )

cStatQueueCaractereIndica se o registro será considerado na fila de integração. Informe 'F' para que seja considerado. Enviar como parâmetro para que seja retornado o status de Fila. Se mantiver 'F' é porque o registro foi processado com sucesso ou permanece na fila, se retornar 'R' é porque o erro de integração foi impeditivo para manter o registro na fila.( vazio )
X
aStsIntegArray

Substitui o array do retorno, esse parâmetro deve ser passado por referencia afim de se obter um retorno mais completo da função conforme definição abaixo:

[ n ][ 1 ] - Retorno da Integração (logical)

[ n ][ 2 ] - Status da Integração (char)

[ n ][ 3 ] - Código de Erro (char)

[ n ][ 4 ] - Descrição do Erro (char)


Exemplo de retorno de uma inclusão bem sucedida:

[ n ][ 1 ] - .T.

[ n ][ 2 ] - 1

[ n ][ 3 ] - Vazio

[ n ][ 4 ] - Vazio

Exemplo de retorno de uma inclusão mal sucedida:

[ n ][ 1 ] - .F.

[ n ][ 2 ] - 9

[ n ][ 3 ] - 000009

[ n ][ 4 ] - Filial não cadastrada no Cadastro de Complemento de Empresa do TAF.




X
lExcluiObjsLógicoDetermina se deve ser executado a função DelClassIntf para a limpeza das variáveis de interface..T.

cOwnerCaractere

Informa o ERP proprietário da TAG.

*Obrigatório para todas as Marcas TOTVS

( vazio )OC
cFilTranCaractere

Filial de Transferência (Destino)

*Obrigatório nas Integrações de Transferência dos eventos S-2200/S-2300.

( vazio )OC
cPredecesCaractere

TAFKEY do registro predecessor

*Obrigatório na Integração de fim de afastamento.

( vazio )OC
cComplemCaractereComplemento, hoje utilizado somente para o Indicador de folha Múltiplos Vínculos (MV)( vazio )

cGrpTranCaractere

Grupo de Transferência (Destino)

*Obrigatório nas Integrações de Transferência dos eventos S-2200/S-2300.

( vazio )OC
lGrpDestCaractereCompatibilidade - O sistema já trata esta situação automaticamente..F.

lXmlIdERPCaractereDetermina se deve utilizar o ID do XML gerado pelo ERP caso a tag exista..F.

cEvtOriCaractere

Evento de origem (Usado na integração dos totalizadores)

( vazio )

lMigradorCaractere

Identifica se a origem da chamada é o Migrador

*Obrigatório na integração dos registros migrados (uso exclusivo do TAF)

.F.OC

lDepGPE

CaractereIdentifica se trata-se de um ajuste de Dependentes para funcionários transferidos.F.

cMatrC9V

Caractere

Matricula do Funcionário para o correto posicionamento da tabela C9V na integração do evento S-1210

*Obrigatório na integração do evento S-1210 quando o trabalhador tiver mais de 1 vínculo.

( vazio )OC


lLaySmpTotLógico

Identifica se o totalizador foi esta sendo integrado com o parâmetro MV_TAFVLES com a versão simplificada do layout

taflayEsoc("S_01_00_00") 

cAliEvtOriCaractereAlias do evento que originou o totalizador  ( vazio )

nRecEvtOriNuméricoRECNO do registro que originou o totalizador    0

cFilPrevCaractere

Informação sobre Filiação à Previdência Social 


Deve ser enviado como caractere da seguinte forma:

"1" := Empregado;

"2" := Empregado Doméstico;

"3" := Trabalhador Avulso;

"4" := Segurado Especial;

  ( vazio )          OC


Retorno

NomeTipoDescrição
aErrosArray

Array contendo os erros encontrados no processo de integração que impediram que o registro fosse importado com sucesso na base de dados do TAF.

Compatibilidade

Mantido por compatibilidade. - Recomendado usar o parâmetro aRetStatus.


Programa

TAFIntegraESocial.PRW


Exemplo

Inicialmente deverá ser realizado o desenvolvimento de string no formato XML, exemplo:


cXml += '<eSocial>'
cXml += '<evtTabRubrica>'
cXml += '<infoRubrica>'

If cOper == "3"
	cXml += '<inclusao>'
ElseIf cOper == "4"
	cXml += '<alteracao>'
Else
	cXml += '<exclusao>'
Endif

cXml += '<ideRubrica>'
cXml += '<codRubr>'        + cCodRubr                      + '</codRubr>'

If lGeraCod
	cXml += '<ideTabRubr>'     + (cAliasSRV)->RV_FILIAL         + '</ideTabRubr>'
Else
	cXml += '<ideTabRubr>'     + ""                               + '</ideTabRubr>'
Endif

cXml += '<iniValid>'     + cAnoMes                    + '</iniValid>'
cXml += '<fimValid>'        + ""                        + '</fimValid>' 
cXml += '</ideRubrica>'
cXml += '<dadosRubrica>'
cXml += '<dscRubr>'    + cDescRub                      + '</dscRubr>'
cXml += '<natRubr>'    + (cAliasSRV)->RV_NATUREZ        + '</natRubr>'
cXml += '<tpRubr>'     + cINDTRB                       + '</tpRubr>'
cXml += '<codIncCP>'   + (cAliasSRV)->RV_INCCP         + '</codIncCP>'
cXml += '<codIncIRRF>' + (cAliasSRV)->RV_INCIRF      + '</codIncIRRF>'
cXml += '<codIncFGTS>' + (cAliasSRV)->RV_INCFGTS       + '</codIncFGTS>'
cXml += '<codIncSIND>' + (cAliasSRV)->RV_INCSIND       + '</codIncSIND>'
cXml += '<repDSR>'     + cREPDSR                        + '</repDSR>'
cXml += '<rep13>'      + cREPDTE                      + '</rep13>'
cXml += '<repFerias>'  + cREPFER                      + '</repFerias>'
cXml += '<repAviso>'   + cREPREC                      + '</repAviso>'
cXml += '<fatorRubr>'  + Alltrim(Str(nFatRub))        + '</fatorRubr>'
cXml += '<observacao>' + ""                          + '</observacao>'
cXml += '<ideProcessoCP>'
cXml += '<tpProc>'        + (cAliasSRV)->RV_TPPROCP    + '</tpProc>'
cXml += '<nrProc>'        + (cAliasSRV)->RV_NRPROCP    + '</nrProc>'
cXml += '<extDecisao>'    + (cAliasSRV)->RV_EXPROCP    + '</extDecisao>'
cXml += '</ideProcessoCP>'
cXml += '<ideProcessoIRRF>'
cXml += '<nrProc>'        + (cAliasSRV)->RV_NRPIRRF     + '</nrProc>'
cXml += '</ideProcessoIRRF>'
cXml += '<ideProcessoFGTS>'
cXml += '<nrProc>'        + (cAliasSRV)->RV_NRPFGTS    + '</nrProc>'
cXml += '</ideProcessoFGTS>'
cXml += '<ideProcessoSIND>'
cXml += '<nrProc>'        + (cAliasSRV)->RV_NRPSIND    + '</nrProc>'
cXml += '</ideProcessoSIND>'
cXml += '</dadosRubrica>'

If cOper == "3"
	cXml += '</inclusao>'
ElseIf cOper == "4"
	cXml += '</alteracao>'
Else
	cXml += '</exclusao>'
Endif

cXml += '</infoRubrica>'
cXml += '</evtTabRubrica>'
cXml += '</eSocial>'

TAFPrepInt( "T1" , "D MG 01", cXml , "T1D MG 01S-1010000001" , "1", "S-1010",,,,@aRetStatus,,"PROTHEUS"))