Histórico da Página

Função

TAFPrepInt

Sintaxe

TAFPrepInt( cEmpEnv , cFilEnv , cXml , cKey , cTpInteg, cEvento )

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.5

Parâmetros

cLayInteg

Nome	Tipo	Descrição	Default	Obrigatório	Referência
lNativecEmpEnv	Lógico	Define se a rotina foi chamada atraves de integração nativa ou não.	Caracter	Empresa do registro no ERP	cEmpAnt.F.	X
cST2AliascFilEnv	Caracteres	Alias da Tabela TAFST2.	Caracter	Filial do registro no ERP	cFilAnt""	X
cFilRegIntcXml	Caracteres	Filial de destino dos registros integrados.	FWCodFil()	Caracter	String contendo o XML no formato do Layout do eSocial	( vazio )	X
aDadosST2cKey	Array	Caracter	Chave do registroArray contendo a mensagem a ser integrada ( cada linha da mensagem TXT representa uma linha do array )	( vazio )	X
aRecIntcTpInteg	Array	Caracter	Tipo da integração ( "1" = Online ; "2" = Banco-a-banco ; "3" - Chamada TAFAINTEG )Array que retorna os Recnos que foram integrados com sucesso.	( vazio )	X	X
cEvento	aRecErr	Array	Caracter	Código do Evento que está sendo enviado ( Exemplo: S1010, S1020, S1030, etc.. )Array que retorna os Recnos que não foram integrados devido à erros.	( vazio )	X	X
cXERPAlias	aErrChav	Array	Caracter	Alias da tabela TAFXERP ( log de integração do TAF )	( vazio )Array que retorna os Recnos que não foram excluídos no TAF quando a chave não foi encontrada ( utilizado quando registro T999 ).		X
cTicket	aErrIntr	Array	Caracter	Código do Ticket ( lote ) que o registro está sendo integrado	( vazio )Array que retornar os Recnos que não foram excluídos no TAF devido a Integridade de dadis ( utilizado quando registro T999 ).		X
cStatQueue	aIncons	Array	Array que retorna as mensagens de inconsistência encontradas durante a integração.	Caracter	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

Retorno

CaracteresRegistro do Layout TOTVS que será integrado.""

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.

cXERPAliasCaracteresAlias da Tabela TAFXERP. X

Retorno

Nulo

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

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave