Ir para conteúdo
  • Cadastre-se

dev botao

Registro C100 - Ind_Pgto = Tpoutros


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

Recommended Posts

  • Moderadores

Estou gerando o SPEDFiscal, mas todos os registros C100 que deveriam conter IND_PGTO = 2 (tpOutros) está ficando vazio. Estou com o componente atualizado do dia 24/04/2014 e gerando o arquivo ref ao período de 01/03/2014 a 31/03/2014.

 

A unit ACBrEFDBloco_C_Class não está tratando tpOutros quando data > 01/07/2012

 

unit ACBrEFDBloco_C_Class

 

if DT_INI >= EncodeDate(2012,07,01) then
begin
     case IND_PGTO of
     tpVista:        strIND_PGTO := '0';
     tpPrazo:        strIND_PGTO := '1';
     tpSemPagamento: strIND_PGTO := '2';
     tpNenhum:       strIND_PGTO := '';
     end
end

else
     begin
         case IND_PGTO of
          tpVista:        strIND_PGTO := '0';
          tpPrazo:        strIND_PGTO := '1';
          tpSemPagamento: strIND_PGTO := '9';
          tpNenhum:       strIND_PGTO := '';
      end;
  end;

Editado por EMBarbosa
Removido nota aos moderadores
Link para o comentário
Compartilhar em outros sites

  • Solution

Correção disponível, pode atualizar.

  • Curtir 1

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...
  • Membros Pro

Acabei de atualizar, até apaguei a classe ACBrEFDBloco_C_Class e mesmo assim a minha classe esta :

if DT_INI >= EncodeDate(2012,07,01) then
          begin
            case IND_PGTO of
             tpVista:        strIND_PGTO := '0';
             tpPrazo:        strIND_PGTO := '1';
             tpOutros:       strIND_PGTO := '2';
             tpNenhum:       strIND_PGTO := '';
            end
          end
          else
          begin
            case IND_PGTO of
             tpVista:        strIND_PGTO := '0';
             tpPrazo:        strIND_PGTO := '1';
             tpSemPagamento: strIND_PGTO := '9';
             tpNenhum:       strIND_PGTO := '';
            end;
          end;
Se eu tento colocar  assim : IND_PGTO    := tpOutros; tenho o retorno : [Error] U_SpedFiscal.pas(431): Incompatible types: 'TACBrIndPgto' and 'TpcteProp', alquem esta tendo esse tipo de problema ?

Jorge – Analise / Desenvolvimento de Sistemas

Netstart Informatica - (18)3642-0900

www.netstart.com.br

Link para o comentário
Compartilhar em outros sites

Coisas que acontece e não temos explicação. Funcionava assim, agora mais não.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3601 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.