ER_PCREQ-8104 - Atualização do Layout do E-Social S-1250 Prod. Rural

Informações Gerais

   Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

Objetivo

Adequar os programas do financeiro e recursos humanos para gerar o arquivo S-1250 do E-Social (produção de aquisição rural) conforme layout 2.1  do Manual de Orientação do e-Social.

Definição da Regra de Negócio

O arquivo de S-1250, antigo S-1350, será gerado a partir das informações das notas fiscais emitidas pelo recebimento de materiais e contas a pagar que possuam fornecedor produtor rural. Conforme seleção do período será gerado o arquivo para envio do eSocial através do produto TAF da TOTVS.

As alterações necessárias para geração deste XML são:

RHU50061.4gl – Gera dados eSocial VDP e CAP

Será ajustado o programa rhu50061  prevendo  o novo nome de arquivo, substituindo os pontos onde é verificado o arquivo S-1350 por S-1250. Os demais arquivos previstos na versão anterior do Manual  serão emitidos pela

nova obrigação da Receita Federal,- Reinf, e as respectivas lógicas relacionadas a estes arquivos serão excluídas.

Os arquivos do financeiro descontinuados na versão 2.1 do eSocial são:

S-1310 - Cessão de mão de obra

S-1330 - Serviços Tomados Cooperativa

S-1370 - Associação desportiva

Os arquivos abaixo eram gerados pelo faturamento e foram descontinuados na versão 2.1 do manual do eSocial:

S-1320 - Serviços prestados - Cessão de mão de obra
S-1340 - Serviços prestados - Cooperativa de trabalho
S-1360 - Comercialização da produção

Na função rhu50061_exclui_esocial() prever apenas a consistência para exclusão do arquivo S-1250, os demais arquivos devem ser retirados. 

FIN80158.4gl – Função para carga de dados do eSocial Financeiro

Alterar a função substituindo as tratativas referentes ao arquivo S-1350 para o novo, S-1250.

FIN80157 – Carga da tabela cap_informacao_sped_social

Alterar no programa as referências do arquivo S-1350, substituindo pelo novo arquivo S-1250.

Alterar a função fin80157_info_iniciais() substituindo os nomes dos antigos grupos e campos relacionado ao arquivo anterior para as novas descrições dos grupos e campos no arquivo S-1250 conforme exemplo abaixo:

  CALL fin80157_inclui_grupo_eSocial()

  CALL fin80157_inclui_grupo_evtAqProd()

  CALL fin80157_inclui_evtAqProd_id()

  CALL fin80157_inclui_infEvento_ideEvento()

  CALL fin80157_inclui_ideEvento_indRetif()

  CALL fin80157_inclui_ideEvento_nrRecibo()

  CALL fin80157_inclui_ideEvento_indApuracao()

  CALL fin80157_inclui_ideEvento_perApur()

  CALL fin80157_inclui_ideEvento_tpAmb()

  CALL fin80157_inclui_ideEvento_procEmi()

  CALL fin80157_inclui_ideEvento_verProc()

  CALL fin80157_inclui_infEvento_ideEmpregador()

  CALL fin80157_inclui_ideEmpregador_tpInsc()

  CALL fin80157_inclui_ideEmpregador_nrInsc()

  CALL fin80157_inclui_grupo_infoAquisProd()

#---------------------------------------------------#

 FUNCTION fin80157_inclui_ideEvento_indRetif()

#---------------------------------------------------#

 CALL fin80157_inicializa()

 CALL fin80157_cap_informacao_sped_social_set_empresa(mr_cap_informacao_sped_social.empresa)

 CALL fin80157_cap_informacao_sped_social_set_ano_mes_referencia(mr_cap_informacao_sped_social.ano_mes_referencia)

 CALL fin80157_cap_informacao_sped_social_set_cnpj_cpf_fornecedor(logm2_empresa_get_num_cgc())

 CALL fin80157_cap_informacao_sped_social_set_tip_evento("S-1250")

 CALL fin80157_cap_informacao_sped_social_set_sequencial_evento(5)

 CALL fin80157_cap_informacao_sped_social_set_tip_tag("E")

 CALL fin80157_cap_informacao_sped_social_set_denominacao_tag("indRetif")

 CALL fin80157_cap_informacao_sped_social_set_denominacao_tag_pai("ideEvento")

 CALL fin80157_cap_informacao_sped_social_set_sequencial_tag(1)

 CALL fin80157_cap_informacao_sped_social_set_parametro_val("")

 IF NOT fin80157_cap_informacao_sped_social_inclui() THEN

 END IF

END FUNCTION

FIN80162 – Gera o XML dos dados do arquivo S-1250

Alterar no programa as referências do arquivo S-1350, substituindo pelo novo arquivo S-1250.

Substituir as descrições dos grupos e campos do layout anterior para o novo , conforme exemplo  abaixo:

DEFINE _eSocial             RECORD

           _evtAqProd RECORD

              _Id      CHAR(36),

                 _ideEvento RECORD

                    _indRetif          DECIMAL(1,0),     

                    _nrRecibo        DECIMAL(15,0),    

                    _indApuracao     DECIMAL(1,0),     

                    _perApur         CHAR(7),          

                    _tpAmb           SMALLINT,         

                    _procEmi         SMALLINT,

                    _verProc          CHAR(20)

                 END RECORD,

                 _ideEmpregador RECORD

                    _tpInsc    SMALLINT,       

                    _nrInsc    CHAR(15)        

                 END RECORD,

                 _infoAquisProd  RECORD

                     _ideEstabAdquir ARRAY[999] OF RECORD

                        _tpInscAdq   DECIMAL(1,0),

                        _nrInscAdq   CHAR(15),

                        _tpAquis     ARRAY[3] OF RECORD

                            _indAquis    DECIMAL(1,0),

                            _vlrTotAquis CHAR(16),

                            _ideProdutor ARAY[999] OF RECORD

                                _tpInscProd  DECIMAL(1,0),           

                                _nrInscProd  CHAR(15),               

                                _vlrBruto    CHAR(16),               

                                _vrCPDescPR  CHAR(16),               

                                _vrRatDescPR CHAR(16),               

                                _vrSenarDesc CHAR(16),               

                                _nfs   ARRAY[999] OF RECORD              

                                   _serie        CHAR(05),                  

                                   _nrDocto      CHAR(10),                  

                                   _dtEmisNF     CHAR(10),                  

                                   _vlrBruto     CHAR(16),                  

                                   _vrCPDescPR   CHAR(16),                  

                                   _vrRatDescPR  CHAR(16),                  

                                   _vrSenarDesc  CHAR(16)    

                                END RECORD,

                                _infoProcJudicial RECORD             

                                   _nrProcJud       CHAR(20),

                                   _vrCPNRet        CHAR(16), {novo}

                                   _vrRatNRet       CHAR(16), {novo} 

                                   _vrSenarNRet     CHAR(16)  {novo}

                                END RECORD

                            END RECORD

                        END RECORD

                     END RECORD

                 END RECORD

           END RECORD

        END RECORD

Abaixo segue modelo de como ficará o XML conforme o layout do arquivo S-1250.

<Na tabela abaixo informe quais são as rotinas envolvidas, o tipo de operação, a opção de menu e se necessário uma breve descrição das regras de negócio relacionadas a rotina>.

Opcional

Protótipo de Tela

<Caso necessário inclua protótipos de telas com o objetivo de facilitar o entendimento do requisito, apresentar conceitos e funcionalidades do software>.

Protótipo 01

Opcional

Fluxo do Processo

<Nesta etapa incluir representações gráficas que descrevam o problema a ser resolvido e o sistema a ser desenvolvido. Exemplo: Diagrama - Caso de Uso, Diagrama de Atividades, Diagrama de Classes, Diagrama de Entidade e Relacionamento e Diagrama de Sequência>. 

Opcional

Dicionário de Dados

Arquivo ou Código do Script: AAA – Negociação Financeira / *Versao=CP.2014.12_03*/

(Opcional)

Grupo de Perguntas

<Informações utilizadas na linha Protheus>.

Nome: FINSRF2

(Opcional)

Consulta Padrão

<Informações utilizadas na linha Protheus>

Consulta: AMB

(Opcional)

Estrutura de Menu

<Informações utilizadas na linha Datasul>.

Procedimentos

Programas

Cadastro de Papéis

<O cadastro de papéis é obrigatório para os projetos de desenvolvimento FLEX a partir do Datasul 10>.

<Lembrete: o nome dos papeis em inglês descrito neste ponto do documento, devem ser homologados pela equipe de tradução>.