Ir para conteúdo
  • Cadastre-se

dev botao

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


tradeone
Ver Solução Respondido por tradeone,
  • Este tópico foi criado há 435 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

E112.jpg

Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

Link para o comentário
Compartilhar em outros sites

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;

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

Link para o comentário
Compartilhar em outros sites

  • Solution

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

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • 3 semanas depois ...
  • Este tópico foi criado há 435 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...