Histórico da Página
Parâmetros
Nome | Tipo | Descrição | Default | Obrigatoriedade | Referência |
---|---|---|---|---|---|
cEmpEnv | CaracterCaractere | Empresa do registro no ERP | cEmpAnt | O | |
cFilEnv | CaracterCaractere | Filial do registro no ERP | cFilAnt | O | |
cXml | CaracterCaractere | String contendo o XML no formato do Layout do eSocial | ( vazio ) | O | |
cKey | CaracterCaractere | Chave do registro | ( vazio ) | O | |
cTpInteg | CaracterCaractere | Tipo da integração ( "1" = Online ; "2" = Banco-a-banco ; "3" - Chamada TAFAINTEG ) | ( vazio ) | O | |
cEvento | CaracterCaractere | Código do Evento que está sendo enviado ( Exemplo: S1010, S1020, S1030, etc.. ) | ( vazio ) | O | |
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 | |
aStsInteg | 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 | CaracterCaractere | Filial de Transferência (Destino) *Obrigatório em processos nas Integrações de Transferência dos eventos S-2200/S-2300. | ( vazio ) | OC | |
cPredeces | CaracterCaractere | TAFKEY do registro predecessor *Obrigatório na Integração de fim de afastamento. | ( vazio ) | OC | |
cComplem | CaracterCaractere | Complemento, hoje utilizado somente para o Indicador de folha Múltiplos Vínculos (MV) | ( vazio ) | ||
cGrpTran | CaracterCaractere | Grupo de Transferência (Destino) *Obrigatório em processos nas Integrações de Transferência dos eventos S-2200/S-2300. | ( vazio ) | OC | |
lGrpDest | CaracterCaractere | Compatibilidade - O sistema já trata esta situação automaticamente. | .F. | ||
lXmlIdERP | CaracterCaractere | Determina se deve utilizar o ID do XML gerado pelo ERP caso a tag exista. | .F. | ||
cEvtOri | CaracterCaractere | Evento de origem (Usado na integração dos totalizadores) | ( vazio ) | ||
lMigrador | CaracterCaractere | Identifica se a origem da chamada é o Migrador *Obrigatório no processamento de na integração dos registros migrados (uso exclusivo do TAF) | .F. | OC | |
lDepGPE | CaracterCaractere | 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: "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.
|
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")) |