Exibir origem

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

Nome	Tipo	Descrição	Default	Obrigatório	Referência
lNative	Lógico	Define se a rotina foi chamada atraves de integração nativa ou não.	.F.	X
cST2Alias	Caracteres	Alias da Tabela TAFST2.	""	X
cFilRegInt	Caracteres	Filial de destino dos registros integrados.	FWCodFil()
aDadosST2	Array	Array contendo a mensagem a ser integrada ( cada linha da mensagem TXT representa uma linha do array )	( vazio )	X
aRecInt	Array	Array que retorna os Recnos que foram integrados com sucesso.	( vazio )		X
aRecErr	Array	Array que retorna os Recnos que não foram integrados devido à erros.	( vazio )		X
aErrChav	Array	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
aErrIntr	Array	Array que retornar os Recnos que não foram excluídos no TAF devido a Integridade de dadis ( utilizado quando registro T999 ).			X
aIncons	Array	Array que retorna as mensagens de inconsistência encontradas durante a integração.			X
cLayInteg	Caracteres	Registro do Layout TOTVS que será integrado.	""
cXERPAlias	Caracteres	Alias da Tabela TAFXERP.		X

Retorno

Nulo

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