Ind_Frt No Registro C100

[guiprze]

Bom dia!

 

Estou verificando aqui, quando eu passo o valor do campo IND_FRT pro componente usando a conversão StrToIndFrt, ele converte usando os valores anteriores a 2012. Dei uma olhada no código do componente, vi que ele verifica pela data na hora de criar o arquivo TXT, mas ele já fez a conversão de forma errada antes. Acredito que possa atualizar essa conversão para os valores atuais, não?

 

Obrigado.

[Isaque Pinheiro]

Olá, não, não pode, pois existe a necessidade de gerar arquivos retroativos.

 

Tenho gerado Sped de meus clientes, não detectei nenhum problema, pode ser mais especifico e nos da um exemplo ? Melhor consegue reproduzir o problema pelo demo, para que eu possa testar e vê o real problema que cita? 

[guiprze]

Consegui reproduzir o erro pelo demo. É o seguinte, altero as linhas 112, 113, 366 e 367 para gerar com data de 2014, depois altero a linha 491 (onde gera o bloco C) para o seguinte:

IND_FRT := StrToIndFrt('0'); //tfSemCobrancaFrete;

O certo seria gerar o txt com o campo IND_FRT = 0, mas está gerando como 2, como se convertesse para os valores antigos do SPED.

Espero que consiga reproduzir aí.

[Isaque Pinheiro]

OK, assim que puder vou reproduzir o mesmo que você descreveu e analisar, assim que fizer dou o retorno.

[Isaque Pinheiro]

Por gentileza baixe esse .PAS e teste, em seguida me de um feedback, funcionando subo para o SVN.

ACBrEFDBloco_C_Class.pas

[guiprze]

Deu certinho! Obrigado!

[Isaque Pinheiro]

obrigado pelo feedback, logo subirei.

[guiprze]

Isaque, por acaso você já subiu pro svn? Ainda não recebi a atualização. Desculpe pelo incômodo.

 

Obrigado.

[Isaque Pinheiro]

Ainda não subi.

[EMERSON RODRIGUES FERREIRA]

Bom dia, Isaque! Estou tendo problema com o IND_FRT tambem.

Estou informando IND_FRT :=. tfPorContaEmitente e o arquivo esta sendo gerando com  valor '1' que corresponde a "Por conta do destinatário/remetente".

 

Verificando a função IndFrtToStr da unit ACBrEFDBlocos percebi que ao passar pela linha   Result := IntToStr( Integer( AValue ) );  sendo o AValue o tipo 
TACBrIndFrt = (tfPorContaTerceiros,     tfPorContaEmitente,       tfPorContaDestinatario,   tfSemCobrancaFrete,       tfNenhum); ele realmente esta retornando '1' e deveria retorna '0' pelo layout em vigor a partir de 01/01/2012.

Estou fazendo algo errado?

 

Grato pela atenção,

Emerson Rodrigues Ferreira.

[Juliomar Marchetti]

Bom dia

Está informando a data inicial e final ao começo da geração, antes de começar a alimentar o componente?

[EMERSON RODRIGUES FERREIRA]

Juliomar obrigado pelo retorno.

Estou sim e quando chega no codigo      

if DT_INI >= EncodeDate(2012,01,01) then
begin
   strIND_FRT := IndFrtToStr(IND_FRT);
end

Ele entra na função e retorna '1';

 

Grato

[Isaque Pinheiro]

Corrigido e já disponível, a ordem estava errado mesmo. 

[EMERSON RODRIGUES FERREIRA]

Ok resolvido com sucesso!

Parabéns pela eficiência.