EMBarbosa

Será que você não está confundindo com o SPED Fiscal? No SPED PIS/COFINS não existe o registro 1400. Ele existe no SPED Fiscal (ICMS/IPI)

Eu sei. Mas você é que parece que não entendeu. A MG 001 é outra especificação de requisitos, não é um perfil da ER 2.0x Esqueça o que você já implementou e leia a portaria e a especificação de MG 001 como se fosse fazer do zero. Daí, creio eu, você vai ver que conforme eu disse lá em cima, não precisa mais do md5 que fica no cupom. Ainda assim, embora não seja necessário homologar, você pode procurar a ajuda de consultores para fazer a transição e diminuir a chance de problemas com o fisco.

Uma pequena alteração sobre isso foi postada ao SVN. Veja o seguinte post:

Essa parte do código Essa parte foi alterado devido a como havia sido implementada. Note o tópico: A comparação de tipos Variant deve ser feita com cautela. Uma variant com valor inteiro atribuído zero ao ser comparado com uma Variant do tipo Unassigned retorna True. Isso pode ser visto no pequeno programa console abaixo. program Project1; {$APPTYPE CONSOLE} uses SysUtils, Variants; var v1, v2: Variant; begin try { TODO -oUser -cConsole Main : Insert code here } Writeln('v1 eh nula?'); if VarIsNull(v1) then Writeln('sim') else Writeln('no'); Writeln('v1 eh Clear?'); if VarIsClear(v1) then Writeln('sim') else Writeln('no'); Writeln('v1 eh Empty?'); if VarIsEmpty(v1) then Writeln('sim') else Writeln('no'); Writeln('v1 = unassigned?'); if v1 = unassigned then Writeln('sim') else Writeln('no'); Writeln('----'); Writeln('atribuindo valor zero a v1...'); v1 := 0; Writeln('v1 eh nula?'); if VarIsNull(v1) then Writeln('sim') else Writeln('no'); Writeln('v1 eh Clear?'); if VarIsClear(v1) then Writeln('sim') else Writeln('no'); Writeln('v1 eh Empty?'); if VarIsEmpty(v1) then Writeln('sim') else Writeln('no'); Writeln('v1 = unassigned?'); if v1 = unassigned then Writeln('sim') else Writeln('no'); Writeln('----'); Writeln('atribuindo valor Unassigned a v1...'); v1 := Unassigned; Writeln('v1 eh nula?'); if VarIsNull(v1) then Writeln('sim') else Writeln('no'); Writeln('v1 eh Clear?'); if VarIsClear(v1) then Writeln('sim') else Writeln('no'); Writeln('v1 eh Empty?'); if VarIsEmpty(v1) then Writeln('sim') else Writeln('no'); Writeln('v1 = unassigned?'); if v1 = unassigned then Writeln('sim') else Writeln('no'); Writeln('----'); Writeln('atribuindo valor Null a v1...'); v1 := Null; Writeln('v1 eh nula?'); if VarIsNull(v1) then Writeln('sim') else Writeln('no'); Writeln('v1 eh Clear?'); if VarIsClear(v1) then Writeln('sim') else Writeln('no'); Writeln('v1 eh Empty?'); if VarIsEmpty(v1) then Writeln('sim') else Writeln('no'); Writeln('v1 = unassigned?'); if v1 = unassigned then Writeln('sim') else Writeln('no'); Readln; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end. Os métodos VarIsClear e VarIsEmpty existem para evitar esse tipo de problema. Assim estou subindo uma correção para resolver esse problema. Também estou adicionando testes unitários para mais essa situação.

Adicionar o ( Valor = unassigned) não vai funcionar quando se atribui o valor zero para o campo. Estou enviando terminando uma correção para isso daqui a pouco e vou subir ao SVN e postar no tópico original, a saber,

Acho que são problemas diferentes. O Akai mencionou problemas com CST. Sua modificação é sobre CFOP. Pode confirmar? Em especial, apreciaria saber em que caso específico não se informa o CFOP.

Fiz uma pequena alteração para não precisar tratar o valor 00. Já está disponível no SVN. Favor testar e reportar qualquer problema.

Onde está no MG 001 que precisa imprimir esse número nas NF-e?

Tínhamos entendido que você não conseguiu fazer o emulador funcionar com o componente. Se o seu problema é a instalação em si do emulador, então é melhor procurar o suporte da Bematech.

Aonde fala no MG-001 que é necessário imprimir MD5 no cupom?

Modelo é uma configuração/propriedade do ACBrECF. Tanto para o Emulador Bematech MP-4200 THFI como para o ECF físico MP-4200 TH FI, é preciso alterar essa propriedade para modelo EscECF.

Olá Fabiane, Enviei algumas das suas sugestões ao SVN. E consegui compilar e instalar o pacote manualmente no Delphi XE, usando o Windows 7 64 Bits. Eu notei algumas diferenças entre seu arquivo e o arquivo que está no SVN. Por exemplo, perto do final do arquivo, há uma declaração para arquivo de resouce do Lazarus que está repetida. Outra é que na última imagem logo acima das linhas que você comentou tem a unit "StrUtils". Mas ela não consta no arquivo que está no SVN nesta posição. Estou sem o Delphi 7 aqui no momento, então não percebi o motivo de você ter comentado essas duas units na terceira imagem. Poderia explicar? Poderia também verificar se as minhas alterações já corrigem o problema?

1) A maioria dos procedimentos anteriores não é mais necessária. 2) Não. Não existe esse requisito no MG 001. Mas se fosse você eu leria e releria com todo cuidado a portaria que estabeleceu o MG 001.

Então sem o log realmente não é possível analisar. Se deseja mesmo assim encerrar o tópico, fique a vontade para marcar a resposta como resolvido você mesmo. Há um botão logo abaixo das respostas.

A mensagem de erro no log é: Compiling package C:\acbr\\Pacotes\Delphi\ACBrGNRE\ACBr_GNRE.dpk "C:\Arquivos de programas\Embarcadero\RAD Studio\7.0\bin\dcc32.exe" "C:\acbr\\Pacotes\Delphi\ACBrGNRE\ACBr_GNRE.dpk" --no-config -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"C:\Arquivos de programas\Embarcadero\RAD Studio\7.0\lib" -U"\lib;\Imports;\Imports;\Lib\Indy10;\Dcp;\include;\RaveReports\Lib;C:\Arquivos de programas\FastReports\FastReport 5\LibD14;C:\acbr\Fontes\ACBrBoleto;C:\acbr\Fontes\ACBrBoleto\Logos;C:\acbr\Fontes\ACBrBoleto\Logos\Colorido;C:\acbr\Fontes\ACBrBoleto\Logos\PretoBranco;C:\acbr\Fontes\ACBrCapicom;C:\acbr\Fontes\ACBrComum;C:\acbr\Fontes\ACBrConvenio115;C:\acbr\Fontes\ACBrCTe;C:\acbr\Fontes\ACBrDiversos;C:\acbr\Fontes\ACBrDiversos\ACBrFalaWaves;C:\acbr\Fontes\ACBrGNRE;C:\acbr\Fontes\ACBrLFD;C:\acbr\Fontes\ACBrMDFe;C:\acbr\Fontes\ACBrNFe2;C:\acbr\Fontes\ACBrNFSe;C:\acbr\Fontes\ACBrPAF;C:\acbr\Fontes\ACBrSAT;C:\acbr\Fontes\ACBrSEF2;C:\acbr\Fontes\ACBrSerial;C:\acbr\Fontes\ACBrSintegra;C:\acbr\Fontes\ACBrSPED;C:\acbr\Fontes\ACBrSPED\ACBrSPEDContabil;C:\acbr\Fontes\ACBrSPED\ACBrSPEDFCont;C:\acbr\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\acbr\Fontes\ACBrSPED\ACBrSPEDPisCofins;C:\acbr\Fontes\ACBrTCP;C:\acbr\Fontes\ACBrTEFD;C:\acbr\Fontes\Imagens;C:\acbr\Fontes\PCN2;C:\acbr\Fontes\SintegraSultan;C:\acbr\Fontes\synalist;C:\acbr\Lib\Delphi\LibD14" -U"C:\acbr\Lib\Delphi\LibD14" -I"\lib;\Imports;\Imports;\Lib\Indy10;\Dcp;\include;\RaveReports\Lib;C:\Arquivos de programas\FastReports\FastReport 5\LibD14;C:\acbr\Fontes\ACBrBoleto;C:\acbr\Fontes\ACBrBoleto\Logos;C:\acbr\Fontes\ACBrBoleto\Logos\Colorido;C:\acbr\Fontes\ACBrBoleto\Logos\PretoBranco;C:\acbr\Fontes\ACBrCapicom;C:\acbr\Fontes\ACBrComum;C:\acbr\Fontes\ACBrConvenio115;C:\acbr\Fontes\ACBrCTe;C:\acbr\Fontes\ACBrDiversos;C:\acbr\Fontes\ACBrDiversos\ACBrFalaWaves;C:\acbr\Fontes\ACBrGNRE;C:\acbr\Fontes\ACBrLFD;C:\acbr\Fontes\ACBrMDFe;C:\acbr\Fontes\ACBrNFe2;C:\acbr\Fontes\ACBrNFSe;C:\acbr\Fontes\ACBrPAF;C:\acbr\Fontes\ACBrSAT;C:\acbr\Fontes\ACBrSEF2;C:\acbr\Fontes\ACBrSerial;C:\acbr\Fontes\ACBrSintegra;C:\acbr\Fontes\ACBrSPED;C:\acbr\Fontes\ACBrSPED\ACBrSPEDContabil;C:\acbr\Fontes\ACBrSPED\ACBrSPEDFCont;C:\acbr\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\acbr\Fontes\ACBrSPED\ACBrSPEDPisCofins;C:\acbr\Fontes\ACBrTCP;C:\acbr\Fontes\ACBrTEFD;C:\acbr\Fontes\Imagens;C:\acbr\Fontes\PCN2;C:\acbr\Fontes\SintegraSultan;C:\acbr\Fontes\synalist;C:\acbr\Lib\Delphi\LibD14" -R"\lib;\Imports;\Imports;\Lib\Indy10;\Dcp;\include;\RaveReports\Lib;C:\Arquivos de programas\FastReports\FastReport 5\LibD14;C:\acbr\Fontes\ACBrBoleto;C:\acbr\Fontes\ACBrBoleto\Logos;C:\acbr\Fontes\ACBrBoleto\Logos\Colorido;C:\acbr\Fontes\ACBrBoleto\Logos\PretoBranco;C:\acbr\Fontes\ACBrCapicom;C:\acbr\Fontes\ACBrComum;C:\acbr\Fontes\ACBrConvenio115;C:\acbr\Fontes\ACBrCTe;C:\acbr\Fontes\ACBrDiversos;C:\acbr\Fontes\ACBrDiversos\ACBrFalaWaves;C:\acbr\Fontes\ACBrGNRE;C:\acbr\Fontes\ACBrLFD;C:\acbr\Fontes\ACBrMDFe;C:\acbr\Fontes\ACBrNFe2;C:\acbr\Fontes\ACBrNFSe;C:\acbr\Fontes\ACBrPAF;C:\acbr\Fontes\ACBrSAT;C:\acbr\Fontes\ACBrSEF2;C:\acbr\Fontes\ACBrSerial;C:\acbr\Fontes\ACBrSintegra;C:\acbr\Fontes\ACBrSPED;C:\acbr\Fontes\ACBrSPED\ACBrSPEDContabil;C:\acbr\Fontes\ACBrSPED\ACBrSPEDFCont;C:\acbr\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\acbr\Fontes\ACBrSPED\ACBrSPEDPisCofins;C:\acbr\Fontes\ACBrTCP;C:\acbr\Fontes\ACBrTEFD;C:\acbr\Fontes\Imagens;C:\acbr\Fontes\PCN2;C:\acbr\Fontes\SintegraSultan;C:\acbr\Fontes\synalist;C:\acbr\Lib\Delphi\LibD14" -N0"C:\acbr\Lib\Delphi\LibD14" -LE"C:\acbr\Lib\Delphi\LibD14" -LN"C:\acbr\Lib\Delphi\LibD14" Embarcadero Delphi for Win32 compiler version 21.0 Copyright (c) 1983,2009 Embarcadero Technologies, Inc. C:\acbr\\Pacotes\Delphi\ACBrGNRE\ACBr_GNRE.dpk(76) Fatal: E2202 Required package 'ACBrOpenSSL' not found Compilation failure Atente para a parte: "Fatal: E2202 Required package 'ACBrOpenSSL' not found" Você marcou para instalar o pacote ACBrOpenSSL?

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]".

Mas gostaria de lhe dar uma sugestão na hora de postar alterações ou reportar bugs. Para evitar confundir, descreva o problema do ponto de vista de uso do componente e faça a correção do ponto de vista de desenvolvimento. Por exemplo, você escreveu no título que a correção era para o ACBrIBGE e no parâmetro Exata. Então fiz testes no ACBrIBGE e no parâmetro e não obtive nenhum problema. Só depois foi que você mencionou que era pra fazer uma busca usando o CEP. Mas isso é no ACBrCEP. Se possível, sempre descreva de forma detalhada o seguinte: o que você fez o que esperava obter o que obteve A ideia é evitar tanto você quanto nós percamos tempo. Tenho certeza que você também concorda que o tempo, principalmente o seu, é valioso. Mais uma vez, obrigado pelo report.

Enviei uma correção para o SVN. Favor testar e reportar qualquer problema. Obrigado.

Muito obrigado. Fiz umas pequenas alterações e disponibilizei no SVN hoje.

Todas as vezes que tentei usar o VSPE tive problemas. Usando o com0com nunca tive problemas.

Favor dar mais informações. Quando clica em propriedades, qual a mensagem de erros que aparece?

Infelizmente não é possível ler a mensagem sem fazer parte do grupo.

Sim.

Este tópico continua em