Novos indicadores do tipo de frete no sped Fiscal

[Gracilane Lima]

Bom dia! 

 

Com o novo manual do sped fiscal para 2018 foram criados dois tipos de campos no frete. 

Não consigo localizar os campos no ACBR, já foi liberado?

 

 

[EMBarbosa]

Especificamente, quais registros você está falando?

[Gracilane Lima]

O registro é o C100.

 

 

Editado 19 Dezembro, 2017 por Gracilane Lima

[EMBarbosa]

42 minutos atrás, Gracilane Lima disse:

O registro é o C100.

Realmente. Só que precisamos analisar como alterar o tipo.

Note que o D100 usa o mesmo tipo pra frete no entanto, os novos valores não são válidos pra ele.

[Ubirajara]

@EMBarbosa, boa tarde. No registro D100 foram incluídos os campos COD_MUN_ORIG e COD_MUN_DEST que ainda não constam no ACBr, apenas nos registros que já possuíam o campo. Eles também têm alguma particularidade ou é por que ainda não são obrigatórios? Desde já, obrigado.

[EMBarbosa]

Acho que não tem particularidade. Se quiserem podem implementar e anexar aqui os arquivos alterados.

[Ederson Selvati]

Bom dia Elton

Estou implementando parte dos ajustes, assim que terminar posto, estou sem acesso a commit no repositório.

[Ederson Selvati]

Seguem modificações para os dois novos campos COD_MUN_ORIG, COD_MUN_DEST, caso esteja não conforme, por gentileza me avisem que ajusto.

 

http://sped.rfb.gov.br/estatico/0D/2DC4C346EDFCDFAFA26C391C7398D060594B50/GUIA PRÁTICO DA EFD - Versão 2.0.22.pdf

 

 

 

 

ACBrEFDBloco_D_Class.pas

ACBrEFDBloco_D.pas

[Ederson Selvati]

Tem mais detalhes, o K220 tb teve adicao do campo QTD_DEST

[Juliomar Marchetti]

2 horas atrás, Ederson Selvati disse:

Seguem modificações para os dois novos campos COD_MUN_ORIG, COD_MUN_DEST, caso esteja não conforme, por gentileza me avisem que ajusto.

 

http://sped.rfb.gov.br/estatico/0D/2DC4C346EDFCDFAFA26C391C7398D060594B50/GUIA PRÁTICO DA EFD - Versão 2.0.22.pdf

 

 

 

 

ACBrEFDBloco_D_Class.pas

ACBrEFDBloco_D.pas

No svn

[Ederson Selvati]

Boa tarde

Dois novos ajustes foram necessários, agora no bloco K, registro 220.

ACBrEFDBloco_D.pas

ACBrEFDBloco_D_Class.pas

ACBrEFDBloco_K.pas

ACBrEFDBloco_K_Class.pas

[Juliomar Marchetti]

Em 06/01/2018 at 09:30, Ederson Selvati disse:

Boa tarde

Dois novos ajustes foram necessários, agora no bloco K, registro 220.

ACBrEFDBloco_D.pas

ACBrEFDBloco_D_Class.pas

ACBrEFDBloco_K.pas

ACBrEFDBloco_K_Class.pas

No svn as alterações

Obrigado

[CalixtoJB]

Boa tarde,

No arquivo ACBrEFDBloco_K_Class.pas ao alterar:

De:
          Add( LFill('K220') +
               LFill( DT_MOV ) +
               LFill( COD_ITEM_ORI  ) +
               LFill( COD_ITEM_DEST  ) +
               DFill( QTD, 3 ) );

 

Para: 
          Add( LFill('K220') +
               LFill( DT_MOV ) +
               LFill( COD_ITEM_ORI  ) +
               LFill( COD_ITEM_DEST  ) +
               DFill( QTD, 3 )+
                     DFill( QTD_DEST, 3 ));

Deveria ter a checagem igual ao arquivo ACBrEFDBloco_D_Class.pas 

IfThen(DT_INI >= EncodeDate(2018,01,01),

 

Grato.

[Juliomar Marchetti]

pode anexar a unit alterada?

[CalixtoJB]

Bom dia,

Desculpe a demora.

 

ACBrEFDBloco_K_Class.pas \Fontes\ACBrTXT\ACBrSPED\ACBrSPEDFiscal\ACBrEFDBloco_K_Class.pas

Também fiz umas correções e melhorias no exemplo do Sped, segue fontes para análise:

Frm_SPEDFiscal.pas \Fontes\Exemplos\ACBrTXT\ACBrSPED\Delphi\Fiscal\Frm_SPEDFiscal.pas
Frm_SPEDFiscal.dfm \Fontes\Exemplos\ACBrTXT\ACBrSPED\Delphi\Fiscal\Frm_SPEDFiscal.dfm
 

 

[Juliomar Marchetti]

No svn

[SHDW]

Em 19/12/2017 at 09:11, Gracilane Lima disse:

Bom dia! 

 

Com o novo manual do sped fiscal para 2018 foram criados dois tipos de campos no frete. 

Não consigo localizar os campos no ACBR, já foi liberado?

 

 

Esbarrei neste mesmo problema.

[Daniel Sonda]

Boa tarde.

Mesmo que o registro D100 use uma lista diferente de tipos para o campo do indicador do frete no registro C100, creio que seja possível usar o mesmo tipo de dados e apenas mapear os valores ao gerar o conteúdo do arquivo.

Não vou postar as units porque uso uma versão modificada do projeto, com propriedades adicionais. Então, pra reduzir os conflitos, vou postar apenas o código modificado em cada unit.

ACBrEFDBlocos.pas

  /// Indicador do tipo do frete
  TACBrIndFrt = (tfPorContaEmitente,            // 0 - Contratação do Frete por conta do Remetente (CIF)
                 tfPorContaDestinatario,        // 1 - Contratação do Frete por conta do Destinatário (FOB)
                 tfPorContaTerceiros,           // 2 - Contratação do Frete por conta de Terceiros
                 tfProprioPorContaRemetente,    // 3 - Transporte Próprio por conta do Remetente
                 tfProprioPorContaDestinatario, // 4 - Transporte Próprio por conta do Destinatário
                 tfSemCobrancaFrete,            // 9 - Sem Ocorrência de Transporte
                 tfNenhum                       // Preencher vazio
                 );

ACBrEFDBloco_D_Class.pas

          if DT_INI < EncodeDate(2012,07,01) then
          begin
             case IND_FRT of
               tfPorContaTerceiros:                                   strIND_FRT := '0';
               tfPorContaEmitente, tfProprioPorContaRemetente:        strIND_FRT := '1';
               tfPorContaDestinatario, tfProprioPorContaDestinatario: strIND_FRT := '2';
               tfSemCobrancaFrete:                                    strIND_FRT := '9';
               tfNenhum:                                              strIND_FRT := '';
             end
          end
          else
          begin
             case IND_FRT of
               tfPorContaEmitente, tfProprioPorContaRemetente:        strIND_FRT := '0';
               tfPorContaDestinatario, tfProprioPorContaDestinatario: strIND_FRT := '1';
               tfPorContaTerceiros:                                   strIND_FRT := '2';
               tfSemCobrancaFrete:                                    strIND_FRT := '9';
               tfNenhum:                                              strIND_FRT := '';
             end;
          end;

ACBrEFDBloco_C_Class.pas

          if DT_INI < EncodeDate(2012,01,01) then
          begin
            case IND_FRT of
              tfPorContaTerceiros:                                   strIND_FRT := '0';
              tfPorContaEmitente, tfProprioPorContaRemetente:        strIND_FRT := '1';
              tfPorContaDestinatario, tfProprioPorContaDestinatario: strIND_FRT := '2';
              tfSemCobrancaFrete:                                    strIND_FRT := '9';
              tfNenhum:                                              strIND_FRT := '';
            end
          end
          else if DT_INI < EncodeDate(2018,01,01) then
          begin
            case IND_FRT of
              tfPorContaEmitente, tfProprioPorContaRemetente:        strIND_FRT := '0';
              tfPorContaDestinatario, tfProprioPorContaDestinatario: strIND_FRT := '1';
              tfPorContaTerceiros:                                   strIND_FRT := '2';
              tfSemCobrancaFrete:                                    strIND_FRT := '9';
              tfNenhum:                                              strIND_FRT := '';
            end;
          end
          else
          begin
            case IND_FRT of
              tfPorContaEmitente:            strIND_FRT := '0';
              tfPorContaDestinatario:        strIND_FRT := '1';
              tfPorContaTerceiros:           strIND_FRT := '2';
              tfProprioPorContaRemetente:    strIND_FRT := '3';
              tfProprioPorContaDestinatario: strIND_FRT := '4';
              tfSemCobrancaFrete:            strIND_FRT := '9';
              tfNenhum:                      strIND_FRT := '';
            end;
          end;

[Juliomar Marchetti]

Buenas 

por favor anexe o arquivo alterado para que possa ser feito o merge e validação

[Daniel Sonda]

Ok, arquivos anexados.

ACBrEFDBloco_C_Class.pas

ACBrEFDBloco_D_Class.pas

ACBrEFDBlocos.pas

[Juliomar Marchetti]

21 horas atrás, Daniel Sonda disse:

Ok, arquivos anexados.

ACBrEFDBloco_C_Class.pas

ACBrEFDBloco_D_Class.pas

ACBrEFDBlocos.pas

Não é possível aplicar seu código tem em todos os locais que vi um DadosAdicionais que foge ao padrão do componente e não tem esse procedimento nos códigos enviados.

[Daniel Sonda]

3 horas atrás, Juliomar Marchetti disse:

Não é possível aplicar seu código tem em todos os locais que vi um DadosAdicionais que foge ao padrão do componente e não tem esse procedimento nos códigos enviados.

Apliquei as alterações nos fontes originais do projeto.

Houve correção também na identação da unit ACBrEFDBloco_C_Class.pas.

ACBrEFDBloco_D_Class.pas

ACBrEFDBlocos.pas

[Daniel Sonda]

20 minutos atrás, Daniel Sonda disse:

Apliquei as alterações nos fontes originais do projeto.

Houve correção também na identação da unit ACBrEFDBloco_C_Class.pas.

ACBrEFDBloco_D_Class.pas

ACBrEFDBlocos.pas

Agora com os arquivos corretos. Me desculpem.

ACBrEFDBloco_C_Class.pas

ACBrEFDBloco_D_Class.pas

ACBrEFDBlocos.pas

[Juliomar Marchetti]

Em 20/02/2018 at 18:01, Daniel Sonda disse:

Agora com os arquivos corretos. Me desculpem.

ACBrEFDBloco_C_Class.pas

ACBrEFDBloco_D_Class.pas

ACBrEFDBlocos.pas

Bom dia

no svn a contribuição

Obrigado.