Histórico da Página

Função

TAFPrepIntTAFPrepInt

Sintaxe

TAFPrepInt( cEmpEnv , cFilEnv , cXml , cKey , cTpInteg, cEvento 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íses	Todos
Sistemas Operacionais	Todos
Bases de Dados	Todos
Nível de Acesso	Nível 1 ( Acesso Clientes )
Idiomas	Todos
Versão	P11 R.1+

Parâmetros

Nome	Tipo	Descrição	Default	ObrigatórioObrigatoriedade	Referência
cEmpEnv	CaracterCaractere	Empresa do registro no ERP	cEmpAnt	XO
cFilEnv	CaracterCaractere	Filial do registro no ERP	cFilAnt	XO
cXml	CaracterCaractere	String contendo o XML no formato do Layout do eSocial	( vazio )	XO
cKey	CaracterCaractere	Chave do registro	( vazio )	XO
cTpInteg	CaracterCaractere	Tipo da integração ( "1" = Online ; "2" = Banco-a-banco ; "3" - Chamada TAFAINTEG )	( vazio )	XO
cEvento	CaracterCaractere	Código do Evento que está sendo enviado ( Exemplo: S1010, S1020, S1030, etc.. )	( vazio )	XO
cXERPAlias	CaracterCaractere	Alias da tabela TAFXERP ( log de integração do TAF )	( vazio )
cTicket	CaracterCaractere	Código do Ticket ( lote ) que o registro está sendo integrado	( vazio )
cStatQueue	CaracterCaractere	Indica 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
aRetStatusaStsInteg	Array	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
lExcluiObjs	Lógico	Determina se deve ser executado a função DelClassIntf para a limpeza das variaveis variáveis de interface.	.T.
cOwner	CaracterCaractere	Informa o ERP proprietário da TAG. *Obrigatório para todas as Marcas TOTVS	( vazio )	OC
cFilTran	Caractere	Filial de Transferência (Destino) *Obrigatório nas Integrações de Transferência dos eventos S-2200/S-2300.	( vazio )	OC
cPredeces	Caractere	TAFKEY do registro predecessor *Obrigatório na Integração de fim de afastamento.	( vazio )	OC
cComplem	Caractere	Complemento, hoje utilizado somente para o Indicador de folha Múltiplos Vínculos (MV)	( vazio )
cGrpTran	Caractere	Grupo de Transferência (Destino) *Obrigatório nas Integrações de Transferência dos eventos S-2200/S-2300.	( vazio )	OC
lGrpDest	Caractere	Compatibilidade - O sistema já trata esta situação automaticamente.	.F.
lXmlIdERP	Caractere	Determina se deve utilizar o ID do XML gerado pelo ERP caso a tag exista.	.F.
cEvtOri	Caractere	Evento de origem (Usado na integração dos totalizadores)	( vazio )
lMigrador	Caractere	Identifica se a origem da chamada é o Migrador *Obrigatório na integração dos registros migrados (uso exclusivo do TAF)	.F.	OC
lDepGPE	Caractere	Identifica 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
lLaySmpTot	Ló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")
cAliEvtOri	Caractere	Alias do evento que originou o totalizador	( vazio )
nRecEvtOri	Numérico	RECNO do registro que originou o totalizador	0
cFilPrev	Caractere	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

Nome

Tipo

Descrição

aErros

Array

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.

Nota

title	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:

Sem Formato

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"))

Árvore de páginas

Versões comparadas

Versão antiga 8

Nova versão Atual

Chave