Ir para conteúdo
  • Cadastre-se

dev botao

Novos indicadores do tipo de frete no sped Fiscal


  • Este tópico foi criado há 2226 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores

Especificamente, quais registros você está falando?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Consultores
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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Consultores

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

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
  • Membros Pro

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

  • Curtir 2

Ederson Selvati
www.criareti.com.br

Skype: eselvati

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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

  • Curtir 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...

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.

Link para o comentário
Compartilhar em outros sites

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
 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • 3 semanas depois ...

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;

Link para o comentário
Compartilhar em outros sites

  • Moderadores
21 horas atrás, Daniel Sonda 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.

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

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

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Moderadores
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.

  • Obrigado 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2226 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.