Registro C100 - Ind_Pgto = Tpoutros

[Gr@c@]

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;

Edited April 25, 2014 by EMBarbosa
Removido nota aos moderadores

[Isaque Pinheiro]

Correção disponível, pode atualizar.

[Gr@c@]

TOPICO RESOLVIDO ACBr subversion 6703 de 25/04/2014

IND_PGTO = tpOutros correto

Obrigada Isaque.

[netstart]

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 ?

[netstart]

Localizei o meu erro, esta declarado na minha Uses a pcnconversao, fazendo assim gerar o conflito, removi e deu certo, mas faz um bom tempo que utilizo dessa forma...

[Isaque Pinheiro]

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