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