Emerson Teixeira

Olá Italo. Altererei tbm o arquivo ACBrMDFeDAMDFeClass.pas, não estava criando o path do pdf function TACBrMDFeDAMDFeClass.GetPathPDF(Data: TDateTime = 0; CNPJ : String = ''): String; begin Result := TACBrMDFe(FACBrMDFe).Configuracoes.Arquivos.GetPath(FPathPDF, 'MDFe', CNPJ, Data); // if EstaVazio(FPathPDF) then // if Assigned(FACBrMDFe) then // FPathPDF := TACBrMDFe(FACBrMDFe).Configuracoes.Arquivos.PathSalvar; if NaoEstaVazio(Result) then if not DirectoryExists(Result) then ForceDirectories(Result); // Result := PathWithDelim(FPathPDF); end; Attl, abraços

Bom dia Italo Alterei os arquivos ACBrMDFe.pas e o ACBrMDFeWebServices.pas, mas não consegui anexar aqui no post, deu erro de upload. enviei no seu email. Teste o envio, cancelamento e encerramento, funcionou perfeitamente Abraços ACBrMDFe.pas no arquivo ACBrMDFeWebservice.pas alterei a função: procedure TMDFeEnvEvento.DefinirDadosMsg; var EventoMDFe: TEventoMDFe; I, F: integer; Lote, Evento, Eventos, EventosAssinados, AXMLEvento: String; EventoEhValido: Boolean; SchemaEventoMDFe: TSchemaMDFe; begin EventoMDFe := TEventoMDFe.Create; try EventoMDFe.idLote := FidLote; for I := 0 to TMDFeEnvEvento(Self).FEvento.Evento.Count - 1 do begin with EventoMDFe.Evento.Add do begin infEvento.tpAmb := FPConfiguracoes.WebServices.Ambiente; infEvento.CNPJ := FEvento.Evento[i].InfEvento.CNPJ; infEvento.chMDFe := FEvento.Evento[i].InfEvento.chMDFe; infEvento.dhEvento := FEvento.Evento[i].InfEvento.dhEvento; infEvento.tpEvento := FEvento.Evento[i].InfEvento.tpEvento; infEvento.nSeqEvento := FEvento.Evento[i].InfEvento.nSeqEvento; case InfEvento.tpEvento of teCancelamento: begin SchemaEventoMDFe := schevCancMDFe; infEvento.detEvento.nProt := FEvento.Evento[i].InfEvento.detEvento.nProt; infEvento.detEvento.xJust := FEvento.Evento[i].InfEvento.detEvento.xJust; end; teEncerramento: begin SchemaEventoMDFe := schevEncMDFe; infEvento.detEvento.nProt := FEvento.Evento[i].InfEvento.detEvento.nProt; infEvento.detEvento.dtEnc := FEvento.Evento[i].InfEvento.detEvento.dtEnc; infEvento.detEvento.cUF := FEvento.Evento[i].InfEvento.detEvento.cUF; infEvento.detEvento.cMun := FEvento.Evento[i].InfEvento.detEvento.cMun; end; teInclusaoCondutor: begin SchemaEventoMDFe := schevIncCondutorMDFe; infEvento.detEvento.xNome := FEvento.Evento[i].InfEvento.detEvento.xNome; infEvento.detEvento.CPF := FEvento.Evento[i].InfEvento.detEvento.CPF; end; end; end; end; EventoMDFe.Versao := FPVersaoServico; EventoMDFe.GerarXML; // Separa os grupos <evento> e coloca na variável Eventos // I := Pos('<eventoMDFe ', EventoMDFe.Gerador.ArquivoFormatoXML); // Lote := Copy(EventoMDFe.Gerador.ArquivoFormatoXML, 1, I - 1); // Eventos := SeparaDados(EventoMDFe.Gerador.ArquivoFormatoXML, 'envEvento'); // I := Pos('<eventoMDFe ', Eventos); // Eventos := Copy(Eventos, I, length(Eventos)); Eventos := EventoMDFe.Gerador.ArquivoFormatoXML; EventosAssinados := ''; // Realiza a assinatura para cada evento while Eventos <> '' do begin F := Pos('</eventoMDFe>', Eventos); if F > 0 then begin Evento := Copy(Eventos, 1, F + 12); Eventos := Copy(Eventos, F + 13, length(Eventos)); AssinarXML(Evento, 'eventoMDFe', 'infEvento', 'Falha ao assinar o Envio de Evento '); EventosAssinados := EventosAssinados + StringReplace( FPDadosMsg, '<?xml version="1.0"?>', '', []); end else Break; end; // F := Pos('?>', EventosAssinados); // if F <> 0 then // FPDadosMsg := copy(EventosAssinados, 1, F + 1) + Lote + // copy(EventosAssinados, F + 2, Length(EventosAssinados)) + '</envEvento>' // else // FPDadosMsg := Lote + EventosAssinados + '</envEvento>'; // Separa o XML especifico do Evento para ser Validado. AXMLEvento := '<?xml version="1.0" encoding="UTF-8" ?>' + SeparaDados(FPDadosMsg, 'detEvento'); with TACBrMDFe(FPDFeOwner) do begin EventoEhValido := SSL.Validar(FPDadosMsg, GerarNomeArqSchema(FPLayout, StringToFloatDef(FPVersaoServico, 0)), FPMsg) and SSL.Validar(AXMLEvento, GerarNomeArqSchemaEvento(SchemaEventoMDFe, StringToFloatDef(FPVersaoServico, 0)), FPMsg); end; for I := 0 to FEvento.Evento.Count - 1 do FEvento.Evento[I].InfEvento.id := EventoMDFe.Evento[I].InfEvento.id; finally EventoMDFe.Free; end; end;

Bom dia Italo Olha o envio funcionou perfeitamente, porem o componente não consegue tratar a resposta, retorna um erro vazio. segue os arquivos para analise at 1-eve-soap.xml 1-ped-eve-soap.xml

Bom dia Italo. Apos atualizar a unit. Recebo o erro: Arquivo não encontrado. Me parece que o componente não esta carregando o schema de encerramento, pois o arquivo eventoMDFe_v1.00.xsd esta sendo carregado. Att

Bom dia Italo. Fiz esta alteração, agora o erro que aparece é: ERRO: Erro Interno: 0Erro HTTP: 4Erro: Requisição não enviada.0 - A operação foi concluída com êxito

Daniel Concordo plenamente com vc, pois tbm acho estranho dois produtos do mesmo fabricante utilizar comandos diferentes. nao teria como ver qual o modelo da impressora antes de enviar o comando do qrcode? att

Obrigado Regys. vou testar e posto aqui att

Bom dia Daniel. falei com o pessoal da elgin, ele me disseram que o manual de desenvolvimento da vox e da i9 é diferente, o da vox é igual a nix, porem a i9 tem um manual proprio. VOX: https://www.elgin.com.br/PortalElginAdm/Upload/DownloadPublico/Automacao/naofiscais/VOX/WIND_NIX_DocsSoftwareHouse_Rev1003.zip Atualização Firmware Vox para impressão do qrcode: https://www.elgin.com.br/PortalElginAdm/Upload/DownloadPublico/Automacao/naofiscais/VOX/Atualizacao QRCode Vox.rar. I9: https://www.elgin.com.br/PortalElginAdm/Upload/DownloadPublico/Automacao/naofiscais/I9/Manual/Manual de programacao i9 - Rev2 0.pdf. tirei uma foto da impressao do cupom fiscal na elgin vox utilzando as configurações da epson, mas não consigo anexar aqui no forum. att

Boa tarde Daniel. O teste que eu fiz aqui foi com uma elgin vox, que por padrão não tem suporte a qrcode, entrei em contato com o fabricante e fui informado que deveria atualizar firmware da mesma, para que o qrcode fosse impresso, porem o comando para imprimir o qrcode na elgin vox é diferente do usado na epson. Nao fiz o teste com a i9. No caso da Vox usando as configurações da epson, imprime tudo menos o qrcode, mas se fizer as alterações que citei acima funciona perfeitamente. att abraços

Olá Daniel. Obrigado pela resposta. Tem razão, usei o UTF8Encode somente para testes, mas já o removi. Se puder fazer o proprio componente tratar o linebreak vai ser otimo e vai evitar futuros post no forum. Att Abraços

Olá Regys. Consegui implementar algo para a Elgin? Att

Olá Regys. Obrigado pela dica, era isso mesmo, o problema ocorria quando o cliente dava enter no memo de infclp para pular a linha. agora estou usando o seguinte codigo e esta funcionando corretamente. InfAdic.InfCpl := UTF8Encode(ReplaceStr(INFORMACAOCOMPLEMENTAR, #13#10, ';')); uma sugestão: não teria como o componente tratar essa informação? Abraços

Olá Boa Tarde. Fiz o teste de enviar a nota sem a infcpl, e enviou corretamente. agora vou tentar descobrir qual o caractere que impede o envio da nfe e posto aqui Att

Olá Italo fiz o que vc sugeriu, porem ao tentar encerrar o mdfe recebo a seguinte mensagem: ERRO: Erro Interno: 0 Erro HTTP: 4Erro: Requisição não enviada. 0 - A operação foi concluída com êxito att 0-ped-eve-soap.xml

Olá Italo. Qual a situação do ACBrNFSe no trunk2, está estável? Abraços

ola bom dia. tbm não estou conseguindo acessar o svn att

Olá Italo. Usando a função verificarassinatura recebi a seguinte mensagem: 'Falha na validação da assinatura da nota: 28046'#$D#$A'Não foi possível carregar ou ler a assinatura.'#$D#$A Acredito que o componente não esta carregando o certificado A1 usando o capicom, lembrando que se usar o A3 funciona. Att

Desativei o antivirus para testar.

Bom dia Italo. Não altero o xml apos assinar. uso na seguinte sequencia: ACBrNFe1.NotasFiscais.Assinar; ACBrNFe1.NotasFiscais.Validar; ACBrNFe1.NotasFiscais.Enviar; Outro detalhe, tenho esta versão em outro cliente que usa o certificado A3 e funciona perfeitamente. att.

Olá bom dia estou tentando enviar uma nfe (produção) mas recebo a seguinte mensagem: Rejeição: Assinatura difere do calculado. Webservice: SP; TIpo Certificado: A1; Usando Capicom. Att.

Olá Antônio. Aqui o fortes funcionou perfeitamente. Vc adicionou as pastas na lib? ?? São duas pastas onde estão os fontes e onde está o .res (uma pasta chamada lib) . Espero ter ajudado abracos

Na minha opinião acho melhor a bematech pois eata primindo tudo, inclusive a logomarca, faltando apenas a formatação das colunas e o qrcode. Abraços

Olá Italo. Fiz os testes aqui, mas ainda esta criando a pasta do mês atual ao invés de criar a pasta do mês de emissão. Mesmo atribuindo o valor true para EmissaoPathNFe Abraços

Olá Regys. Segue os links dos manuais, segundo o pessoal do suporte da elgin https://www.elgin.com.br/PortalElginAdm/Upload/DownloadPublico/Automacao/naofiscais/VOX/WIND_NIX_DocsSoftwareHouse_Rev1003.zip https://www.elgin.com.br/PortalElginAdm/Upload/DownloadPublico/Automacao/naofiscais/VOX/Atualizacao QRCode Vox.rar. Tentei anexar mas estava dando erro. Abraços

Olá Regys Fiz esta alteração somente para testes, tbm acho melhor ter uma unit exclusiva para Elgin, porem como disse antes não entendo nada de comando esc/pos. sobre a documentação no link http://www.elgin.com.br/institucional/produto.php?prod=NDE3&sessao=auto em download center tem todos os manuais da elgin. Falei no suporte da elgin ele me enviar um exemplo em delphi 7 que esta anexado abaixo Obrigado. DemoVoxPlusDelphi7.zip