REINF -> Registro 1070

[SergioL]

Bom dia,

Gostaria de saber se alguém conseguiu enviar o registro 1070 (Ambiente: Homologação).

Estou com duas ocorrências:

MS1196 -> Número de processo inválido.

MS1198 -> As Informações Complementares do Processo Judicial devem ser informadas para Processo Judicial.

 

Observação.

- O registro 1000 foi enviado com sucesso.

- Alguém teria um exemplo do XML de envio 1070  (Ambiente: Homologação) para q eu possa analisar os dados utilizados nos campos 'nrProc' e 'ideProcesso'

[DiegoBrasileiro]

Boa tarde Sergio, também estou com o mesmo problema. 

<codResp>MS1196</codResp>

<dscResp>Número de processo inválido.

Alguém conseguiu enviar um processo válido, poderiam disponibilizar um XML?

[Paulo Alves N Junior]

1 hora atrás, DiegoBrasileiro disse:

Boa tarde Sergio, também estou com o mesmo problema. 

<codResp>MS1196</codResp>

<dscResp>Número de processo inválido.

Alguém conseguiu enviar um processo válido, poderiam disponibilizar um XML?

Tente esse número de processo: 06154724520098200001

existem regras para validar o numero do processo

http://wiki.tjro.jus.br/artigos/Número_Único_do_Processo_Judicial

[SergioL]

35 minutos atrás, Paulo Alves N Junior disse:

Tente esse número de processo: 06154724520098200001

existem regras para validar o numero do processo

http://wiki.tjro.jus.br/artigos/Número_Único_do_Processo_Judicial

Paulo, utilizei o número sugerido como número de processo '06154724520098200001' (Conforme o DV), porém retornou as mesmas ocorrências (MS1196 - Número de processo inválido. e MS1198).

O que notei no XML de envio do registro 1070 é que na tag <nrInsc> que espera um CNPJ de 14 posições está enviando somente 8 posições (houve um corte no CNPJ que estou utilizando).

[Sandro Felipe Adad]

Precisei alterar o arquivo pcnReinfR1070.pas

na procedure:

procedure TevtTabProcesso.GerarIdeProcesso(pEmp: TideProcesso);
begin
  Gerador.wGrupo('ideProcesso');

  Gerador.wCampo(tcStr, '', 'tpProc',   1,  1, 1, TpProcToStr(pEmp.tpProc));
  Gerador.wCampo(tcStr, '', 'nrProc',   1, 21, 1, pEmp.nrProc);
  Gerador.wCampo(tcStr, '', 'iniValid', 7,  7, 1, pEmp.IniValid);
  Gerador.wCampo(tcStr, '', 'fimValid', 7,  7, 0, pEmp.FimValid);

  if (Self.ModoLancamento <> toExclusao) then
  begin
    Gerador.wCampo(tcStr, '', 'indAutoria', 1, 21, 1, indAutoriaToStr(pEmp.indAutoria));

    GerarinfoSusp;
    if pEmp.tpProc = tpJudicial then  //Incluído, pois só deve gerar informações complementares de processos judiciais.(processo administrativo não pode gerar pois da erro no processamento)
      GerarDadosProcJud;
  end;

  Gerador.wGrupo('/ideProcesso');
end;

 

[Italo Giurizzato Junior]

Boa tarde Sandro,

Favor anexar a Unit alterada para que possamos analisar e realizar o merge.

Desde já muito obrigado pela colaboração.

[Sandro Felipe Adad]

Segue para o repositório.

pcnReinfR1070.pas

 

Mensagem que originou esta alteração:

 

 Evento: 0 Id: ID1283027706
 Cd Retorno: 1
 Descrição: ERRO
----------------------------------------------------------------------
 Ocorrencia Ret: 0 Código:MS1198
 Descrição: As Informações Complementares do Processo Judicial só devem ser informadas para Processo Judicial.
 Tipo: 1
 Localização:Registro: ideProcesso - XPATH: /Reinf/evtTabProcesso/infoProcesso/inclusao/ideProcesso

Editado 7 Maio, 2018 por Sandro Felipe Adad

[Italo Giurizzato Junior]

Sandro,

Muito obrigado, ainda hoje estarei enviando para o repositório.