EMBarbosa

dá uma olhada neste tópico:

Sabe se existe alguma informação em algum site do governo estadual ou federal sobre isso?

Beleza. Vou fazer a alteração e um commit logo mais. EDIT: Commit na Revisão 3703.

Tente executar em modo debug e analisar quando é que o erro acontece no seu código.

Favor não duplicar tópicos. Continue em: viewtopic.php?f=6&t=6486 MODERAÇÃO: Tópico trancado.

Olá Pessoal, O comando para ACBrECFBematech.GetDadosUltimaReducaoZ está montando o arquivo INI com o Contador de Operação Não Fiscal Cancelada denominado NFC. Mas por padrão, o ACBrECF usa GNFC, como por exemplo, na função TACBrECFClass.MontaDadosReducaoZ. Gostaria de padronizar para facilitar a leitura desses arquivos independente se forem gerados pelo GetDadosUltimaReducaoZ ou pelo DadosReducaoZ. Acham que haveria algum problema?

Olá pessoal, Estava olhando o código do componente para pegar os dados da última Redução Z, no caso da Sweda. Percebi que o totalizador N3 está repetido em dois lugares no código, uma delas na posição que visualmente seria a do I3. Será que alguém com um ECF Sweda ou experiência nessa parte poderia verificar? Abaixo trecho do código que se inicia na linha 2399 do ACBrECFSwedaSTX.pas para a função GetDadosUltimaReducaoZ: {Verifica se existe não tributado} PosI := Pos('N1 ',RetCMD); if PosI > 0 then begin PosI := PosI + 5 ; {N1 } V := StrToFloatDef(Trim(Copy(RetCMD,PosI,18)),0)/100; end; PosI := Pos('N2 ',RetCMD); if PosI > 0 then begin PosI := PosI + 5 ; {N2 } V := V + StrToFloatDef(Trim(Copy(RetCMD,PosI,18)),0)/100; end; PosI := Pos('N3 ',RetCMD); if PosI > 0 then begin PosI := PosI + 5 ; {N3 } V := V + StrToFloatDef(Trim(Copy(RetCMD,PosI,18)),0)/100; end; Result := Result + 'TotalNaoTributado = '+FormatFloat('#0.00',V)+ sLineBreak; V:= 0; {Isentos} PosI := Pos('I1 ',RetCMD); if PosI > 0 then begin PosI := PosI + 5 ; {N1 } V := StrToFloatDef(Trim(Copy(RetCMD,PosI,18)),0)/100; end; PosI := Pos('I2 ',RetCMD); if PosI > 0 then begin PosI := PosI + 5 ; {N1 } V := V + StrToFloatDef(Trim(Copy(RetCMD,PosI,18)),0)/100; end; PosI := Pos('N3 ',RetCMD); // if PosI > 0 then begin PosI := PosI + 5 ; {N1 } V := V + StrToFloatDef(Trim(Copy(RetCMD,PosI,18)),0)/100; end; Result := Result + 'TotalIsencao = '+FormatFloat('#0.00',V)+ sLineBreak;[/code]

Diga quais são EXATAMENTE os passos para reproduzir o problema no demo.

Pessoal, Favor criar tópicos novos para novas dúvidas. Agora nós temos um subfórum para o ACBrNFSe justamente para evitar esse tipo de comportamento e facilitar a organização.

Eu passei um pente fino na mesma semana que o Regys criou o fórum. Mas acho que tinha ficado alguma coisa pra trás.

EDIT: encontrei o que você quis dizer. Ainda não sei como proceder no caso.

Seria melhor verificar com um contador confiável, ou com a própria receita. A questão é, quais documentos dão "direito à apuração de crédito à pessoa jurídica contratante, na forma da legislação tributária". A diferença apresentada está entre os documentos extemporâneos [01, 03, 07] e denegados e inutilizados [04, 05].

Da mesma forma que você torna o resultado inacessível ué. Não é no sentido que o usuário não consiga acessar. Isso é impossível numa máquina local. Ele é inacessível no sentido de o usuário não conseguir definir onde é o começo e o fim dos dados. Ele não consegue identificar onde fica o número de série, onde fica o GT e onde fica qualquer outra coisa. Num banco de dados, normalmente o cara vai encontrar uma tabela de nome "CONFIG" e campos como "GRANDTOT", "NUMSERIE", etc... É isso que o fisco tem em mente ao desejar um arquivo auxiliar criptografado. Para evitar perder tempo e facilitar a fiscalização eles logo estabeleceram que era um arquivo separado e pronto. Pelo menos foi assim que eu entendi desde o começo.

Verifique se a libeay32.pas que está sendo usada é a da pasta do ACBrComum e se ela está atualizada. Talvez exista outra no seu computador e o Delphi esteja pegando a incorreta?

Se você está falando da exception no seu código, você é quem está criando a exception, então você é responsável pela mensagem. Você viu no exemplo como o ACBrSintegra funciona?

Mensagem de erro que diz...???

Há uma pequenina diferença na implementação dos casos. Em um caso o Arquivo é criptografado e no outro o GT e o Número de Série.

Verdade! Tinha esquecido que o Daniel tinha feito uma tag disso. Outra opção: se fizer um log da pasta do ACBrTEFD também vai aparecer a criação dela. Daí é só pegar uma revisão anterior.

Você sabe me dizer qual seria a revisão exatamente antes da mudança da estrutura de pastas no ACBr ? Obrigado. Sérgio Você pode procurar no fórum antigo, olhar no log... A única coisa que eu me lembro agora é que foi antes de junho de 2010.

Hmm... Realmente, não está muito fácil de localizar... Mas deixa ver o que eu consigo para você: viewtopic.php?f=17&t=5668 viewtopic.php?f=15&t=865&p=3540&hilit=criar+open+source#p3540 Você também pode tentar o fórum antigo: viewtopic.php?f=6&t=323&p=1263&hilit=forumweb#p1263

Se você usar o SVN você pode voltar na revisão que desejar.

Já existem posts neste respeito. Dê uma procurada no fórum, por favor...

Então tem que alterar o código, pois no código postado o P200 está como Nível hierárquico 3.

Isso foi um equívoco. No Delphi 7 String é AnsiString por default. A menos que você use a diretiva de compilação {$H-} o que torna string em ShortString. ShortString no Delphi 7 é mantido apenas por questão de compatibilidade. EDIT: Acredito que no Delphi 6 seja o mesmo. Mas no Delphi 7 eu tenho certeza. Acabei de conferir no Help.

Não uso tanto, mas acho que tanto faz. Preferimos um USB aqui na empresa por que achar computadores com duas portas seriais tem ficado cada vez mais difícil. E a gente já precisa de pelo menos uma ocupada com o ECF.