Registro E112, campo IND_PROC, estou passando opNenhum porém no arquivo esta gerando 9- outros onde deveria ficar em Branco.

[tradeone]

Prezados colegas,

Estou com a seguinte situação abaixo e não consegui identificar dentro do componente onde pode estar o problema:

Registro E112, campo IND_PROC, estou passando opNenhum porém no arquivo esta gerando 9- outros onde deveria ficar em Branco. (Orientação da GIA do RS, quando não tiver número do processo esta campo fica em branco).

 

Atenciosamente,

 

Júlio

[Renato Rubinho]

Boa tarde,

No validador você consegue deixar este campo em branco e validar?

Confirme no manual se existe a hipótese de ficar em branco mesmo, pois o opNenhum não está previsto no componente.

../trunk2/Fontes/ACBrTXT/ACBrSPED/ACBrSPEDFiscal/ACBrEFDBloco_E_Class.pas

procedure TBloco_E.WriteRegistroE112(RegE111: TRegistroE111) ;
var
  intFor: integer;
  intIND_PROC: integer;
begin
  if Assigned( RegE111.RegistroE112 ) then
  begin
     for intFor := 0 to RegE111.RegistroE112.Count - 1 do
     begin
        with RegE111.RegistroE112.Items[intFor] do
        begin
          case IND_PROC of
           opSefaz:           intIND_PROC := 0;
           opJusticaFederal:  intIND_PROC := 1;
           opJusticaEstadual: intIND_PROC := 2;
           opSecexRFB:        intIND_PROC := 3;
           opOutros:          intIND_PROC := 9;
           else               intIND_PROC := 9;
          end;

Caso tenha a documentação confirmando que pode ser em branco e funcionar aí no validador, você pode fazer o ajuste nesta unit e anexar aqui para análise e envio ao SVN.

[tradeone]

boa tarde Renato,

Pelo que analisei e testei pelo Validador em relação ao E112, aceita este registro em branco sem erros.

[tradeone]

38 minutos atrás, Renato Rubinho disse:

Boa tarde,

No validador você consegue deixar este campo em branco e validar?

Confirme no manual se existe a hipótese de ficar em branco mesmo, pois o opNenhum não está previsto no componente.

../trunk2/Fontes/ACBrTXT/ACBrSPED/ACBrSPEDFiscal/ACBrEFDBloco_E_Class.pas

procedure TBloco_E.WriteRegistroE112(RegE111: TRegistroE111) ;
var
  intFor: integer;
  intIND_PROC: integer;
begin
  if Assigned( RegE111.RegistroE112 ) then
  begin
     for intFor := 0 to RegE111.RegistroE112.Count - 1 do
     begin
        with RegE111.RegistroE112.Items[intFor] do
        begin
          case IND_PROC of
           opSefaz:           intIND_PROC := 0;
           opJusticaFederal:  intIND_PROC := 1;
           opJusticaEstadual: intIND_PROC := 2;
           opSecexRFB:        intIND_PROC := 3;
           opOutros:          intIND_PROC := 9;
           else               intIND_PROC := 9;
          end;

Caso tenha a documentação confirmando que pode ser em branco e funcionar aí no validador, você pode fazer o ajuste nesta unit e anexar aqui para análise e envio ao SVN.

Renato, acho que ficaria assim com a correção:

 

procedure TBloco_E.WriteRegistroE112(RegE111: TRegistroE111) ;
var
  intFor: integer;
  strIND_PROC: String;      //alterei aqui
begin
  if Assigned( RegE111.RegistroE112 ) then
  begin
     for intFor := 0 to RegE111.RegistroE112.Count - 1 do
     begin
        with RegE111.RegistroE112.Items[intFor] do
        begin
          case IND_PROC of
           opSefaz:           strIND_PROC := '0';
           opJusticaFederal:  strIND_PROC := '1';
           opJusticaEstadual: strIND_PROC := '2';
           opSecexRFB:        strIND_PROC := '3';
           opOutros:          strIND_PROC := '9';
           opNenhum:          strIND_PROC := '';      //alterei aqui
          end;

          Add( LFill('E112') +
               LFill( NUM_DA ) +
               LFill( NUM_PROC ) +
               LFill( intIND_PROC, 0 ) +
               LFill( PROC ) +
               LFill( TXT_COMPL ) ) ;
        end;

[tradeone]

4 minutos atrás, tradeone disse:

Renato, acho que ficaria assim com a correção:

 

procedure TBloco_E.WriteRegistroE112(RegE111: TRegistroE111) ;
var
  intFor: integer;
  strIND_PROC: String;      //alterei aqui
begin
  if Assigned( RegE111.RegistroE112 ) then
  begin
     for intFor := 0 to RegE111.RegistroE112.Count - 1 do
     begin
        with RegE111.RegistroE112.Items[intFor] do
        begin
          case IND_PROC of
           opSefaz:           strIND_PROC := '0';
           opJusticaFederal:  strIND_PROC := '1';
           opJusticaEstadual: strIND_PROC := '2';
           opSecexRFB:        strIND_PROC := '3';
           opOutros:          strIND_PROC := '9';
           opNenhum:          strIND_PROC := '';      //alterei aqui
          end;

          Add( LFill('E112') +
               LFill( NUM_DA ) +
               LFill( NUM_PROC ) +
               LFill( intIND_PROC, 0 ) +
               LFill( PROC ) +
               LFill( TXT_COMPL ) ) ;
        end;

pelo que analisei o E116 e E250 que usam este mesmo campo, já estão com esta correção.

[Renato Rubinho]

Isso, se houve o mesmo tratamento em outros registros, parece estar ok.

Aparentemente faltou tirar o zero do LFill

LFill( intIND_PROC ) 

1 hora atrás, tradeone disse:

Add( LFill('E112') +
               LFill( NUM_DA ) +
               LFill( NUM_PROC ) +
               LFill( intIND_PROC ) + // aqui, tirar o zero
               LFill( PROC ) +
               LFill( TXT_COMPL ) ) ;

Faça esse ajuste também, reinstale os componentes e veja se o arquivo é gerado corretamente com o campo em branco.

Estando ok, por favor anexe a unit alterada para análise e envio ao SVN.

[tradeone]

boa tarde Renato,

Fizemos os testes e funcionou. Segue a unit alterada para analise.

 

 

 

-- ACBrSPEDFiscal --
[-] Acrescentada a possibilidade de atribuir o opNenhum para o campo IND_PROC (Origem do Processo do Resgistro E112 - Informações Adicionais da Apuração), possibilitando desta forma deixar este campo em branco nos casos em que não houver processo. (Contribuição: Júlio Moraes, Paulo Brasil - Trade One TI)
 

ACBrEFDBloco_E_Class.zip

[Renato Rubinho]

Boa tarde,

Obrigado pela contribuição.

Criada TK-4217 para análise e envio ao SVN.

[Renato Rubinho]

Boa noite,

Foi enviado ao SVN na Rev-30237

Por favor, queira atualizar seus fontes, reinstalar o ACBr, verificar e reportar se ficou tudo ok.

[Renato Rubinho]

Fechando.

Para novas dúvidas, favor abrir um novo tópico.