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.1+

Parâmetros

Nome	Tipo	Descrição	Default	Obrigatório	Referência
cEmpEnv	Caracter	Empresa do registro no ERP	cEmpAnt	X
cFilEnv	Caracter	Filial do registro no ERP	cFilAnt	X
cXml	Caracter	String contendo o XML no formato do Layout do eSocial	( vazio )	X
cKey	Caracter	Chave do registro	( vazio )	X
cTpInteg	Caracter	Tipo da integração ( "1" = Online ; "2" = Banco-a-banco ; "3" - Chamada TAFAINTEG )	( vazio )	X
cEvento	Caracter	Código do Evento que está sendo enviado ( Exemplo: S1010, S1020, S1030, etc.. )	( vazio )	X
cXERPAlias	Caracter	Alias da tabela TAFXERP ( log de integração do TAF )	( vazio )
cTicket	Caracter	Código do Ticket ( lote ) que o registro está sendo integrado	( vazio )
cStatQueue	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
aRetStatus	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.

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.

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

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave