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.
| X |
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:
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)) |