fpasqueto

Recriei a pasta de fontes e deu certo, muito obrigado mesmo.

Recriando repositorio, deletei tudo e baixando novamente.

Boa tarde senhores. apos atualizar o acbr passei a ter essa mensagem utilizando o instalador do acbr para instalar no meu delphi xe 2 Compilation success Pacote "ACBr_Integrador.dpk" compilado com sucesso. Compiling package D:\delphixe2\componentes\ACBr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk "C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\dcc32.exe" "D:\delphixe2\componentes\ACBr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk" Embarcadero Delphi for Win32 compiler version 23.0 Copyright (c) 1983,2011 Embarcadero Technologies, Inc. ACBr_DFeComum.dpk(55) Error: E1030 Invalid compiler directive: '$ENDIF' ACBr_DFeComum.dpk(59) Error: E1030 Invalid compiler directive: '$ENDIF' D:\delphixe2\componentes\ACBr\Fontes\ACBrDFe\ACBrDFeUtil.pas(2237) Fatal: F2063 Could not compile used unit 'ACBrDFeException.pas' Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

apaguei os fontes e baixei tudo novamente e funcionou, coloquei a pasta na raiz tbm. Muito obrigado.

fiz da forma que vc disse e mudou o erro agora kkkk Pacote "ACBr_Integrador.dpk" compilado com sucesso. Compiling package D:\ACBr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk "C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\dcc32.exe" "D:\ACBr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk" Embarcadero Delphi for Win32 compiler version 31.0 Copyright (c) 1983,2016 Embarcadero Technologies, Inc. ACBr_DFeComum.dpk(55) Error: E1030 Invalid compiler directive: '$ENDIF' ACBr_DFeComum.dpk(59) Error: E1030 Invalid compiler directive: '$ENDIF' D:\ACBr\Fontes\ACBrDFe\ACBrDFeUtil.pas(2240) Fatal: F2063 Could not compile used unit 'ACBrDFeException.pas' Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

Fiz porem não resolveu. ele continua reclamando um arquivo Error: E1026 File not found: 'ACBr_DFeComum.otares'

Bom dia, apos atualizar os fontes do acbr tenho o seguinte erro Compiling package D:\delphixe10.1\ACBr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk "C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\dcc32.exe" "D:\delphixe10.1\ACBr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk" Embarcadero Delphi for Win32 compiler version 31.0 Copyright (c) 1983,2016 Embarcadero Technologies, Inc. Error: E1026 File not found: 'ACBr_DFeComum.otares' Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes. meu delphi e o berlin, sera que fiz algo errado?

Problema resolvido, muito obrigado.

Daniel irei testar agora ja posto o resultado muito obrigado.

Boa tarde. estou com esse probleminha basico aqui apos atualizar o os fontes do acbr estou usando delphi berlin Compiling package D:\delphixe10.1\ACBr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk "C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\dcc32.exe" "D:\delphixe10.1\ACBr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk" Embarcadero Delphi for Win32 compiler version 31.0 Copyright (c) 1983,2016 Embarcadero Technologies, Inc. D:\delphixe10.1\ACBr\Fontes\ACBrDFe\ACBrDFeXsXmlSec.pas(436) Error: E2003 Undeclared identifier: 'doc' D:\delphixe10.1\ACBr\Fontes\ACBrDFe\ACBrDFeXsXmlSec.pas(438) Error: E2033 Types of actual and formal var parameters must be identical D:\delphixe10.1\ACBr\Fontes\ACBrDFe\ACBrDFeXsXmlSec.pas(438) Error: E2003 Undeclared identifier: 'URI' D:\delphixe10.1\ACBr\Fontes\ACBrDFe\ACBrDFeXsXmlSec.pas(438) Error: E2003 Undeclared identifier: 'IdSignature' D:\delphixe10.1\ACBr\Fontes\ACBrDFe\ACBrDFeSSL.pas(2613) Fatal: F2063 Could not compile used unit 'ACBrDFeXsXmlSec.pas' Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes. alguem ja passou por isso?

Estão anexos tbm os arquivos de herança, desde já muito obrigado. relpadrao.dfm relpadrao.pas rellivrocaixafolhadecaixa.dfm rellivrocaixafolhadecaixa.pas

Boa noite. Estou com um problema chato ja algum tempo com Fortes Report, como imagem anexada ja mostra os relatórios saem cortados uma parte e não entendi o porque isso, impressora esta definida com papel a4 e ja testei com papel carta e nada muda, estou usando delphi 2010 e Fortes Report CE Ultima versão.

Valeu mano brigadao deu certo.

Descobri a solução utilizando o acbrmonitor console desde ja muito obrigado.

Boa tarde senhores. Estou tentando utilizando os componentes acbr em uma aplicação cgi, o cgi e meu servidor de aplicações, estou tentando utilizar o componente acbribptax porem sempre que adiciono o pacote acbrtcpip no meu projeto ele não compila mais e tenho as mensagens abaixo. desde já se alguém puder me ajudar agradeço muito Hint: (11030) Start of reading config file C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.cfg Hint: (11031) End of reading config file C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.cfg Free Pascal Compiler version 3.0.2 [2017/02/27] for i386 Copyright (c) 1993-2017 by Florian Klaempfl and others (1002) Target OS: Win32 for i386 (3104) Compiling s7server.lpr (3104) Compiling wsmethodsfuncoes.pas C:\Projeto_Sis7ec\ServerCGI\wsmethodsfuncoes.pas(110,10) Warning: (5066) Symbol "FileExistsUTF8" is deprecated: "Use the function in LazFileUtils unit" C:\Projeto_Sis7ec\ServerCGI\wsmethodsfuncoes.pas(77,5) Note: (5025) Local variable "AId" not used C:\Projeto_Sis7ec\ServerCGI\wsmethodsfuncoes.pas(16,12) Hint: (5023) Unit "S7SProvider" not used in wsmethodsFuncoes (3104) Compiling principal.pas C:\Projeto_Sis7ec\ServerCGI\principal.pas(9,46) Warning: (5074) Unit "websession" is deprecated C:\Projeto_Sis7ec\ServerCGI\principal.pas(52,44) Warning: (5066) Symbol "Create" is deprecated: "use options form instead" C:\Projeto_Sis7ec\ServerCGI\principal.pas(133,62) Warning: (5043) Symbol "FieldCount" is deprecated C:\Projeto_Sis7ec\ServerCGI\principal.pas(134,34) Warning: (5043) Symbol "FieldCount" is deprecated C:\Projeto_Sis7ec\ServerCGI\principal.pas(135,29) Warning: (5043) Symbol "FieldValues" is deprecated C:\Projeto_Sis7ec\ServerCGI\principal.pas(135,61) Warning: (5043) Symbol "FieldValues" is deprecated C:\Projeto_Sis7ec\ServerCGI\principal.pas(23,36) Hint: (5024) Parameter "Sender" not used C:\Projeto_Sis7ec\ServerCGI\principal.pas(25,32) Hint: (5024) Parameter "Sender" not used C:\Projeto_Sis7ec\ServerCGI\principal.pas(26,33) Hint: (5024) Parameter "Sender" not used C:\Projeto_Sis7ec\ServerCGI\principal.pas(12,3) Hint: (5023) Unit "wsfuncoes" not used in principal C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(6,21) Hint: (5023) Unit "Helper.Exceptions" not used in s7server (9022) Compiling resource C:\xampp\cgi-bin\s7server.or (9015) Linking C:\xampp\cgi-bin\s7server C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomImageList C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterMenuItem C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterMenu C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterMainMenu C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterPopupMenu C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterDragImageList C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterLazAccessibleObject C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterControl C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterWinControl C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterGraphicControl C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomControl C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterScrollingWinControl C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterScrollBox C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomFrame C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomForm C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterHintWindow C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomScrollBar C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomGroupBox C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomComboBox C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomListBox C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomEdit C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomMemo C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterButtonControl C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomButton C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomCheckBox C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterToggleBox C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterRadioButton C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomStaticText C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomLabel C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomBitBtn C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomSpeedButton C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterShape C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomSplitter C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterPaintBox C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomImage C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterBevel C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomRadioGroup C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomCheckGroup C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomLabeledEdit C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomPanel C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCustomTrayIcon C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterCommonDialog C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterFileDialog C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterOpenDialog C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterSaveDialog C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterSelectDirectoryDialog C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterColorDialog C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterColorButton C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Error: Undefined symbol: WSRegisterFontDialog C:\Projeto_Sis7ec\ServerCGI\s7server.lpr(11,1) Fatal: (10026) There were 49 errors compiling module, stopping Fatal: (1018) Compilation aborted Error: C:\lazarus\fpc\3.0.2\bin\i386-win32\ppc386.exe returned an error exitcode

farei o teste na segunda e reporto o resultado, desde já muito obrigado.

Boa tarde senhores. Estou enfrentando algumas dificuldades ao trabalhar com o issnet Cuiabá-MT Apos o comando enviar se houver algum erro seja ele qual for simplesmente o componente gera uma mensagem de erro e interrompe o ciclo da aplicação e como se um abort fosse executado, ontem dia 12/04/2017 por exemplo o servidor da prefeitura estava lento para processar as notas então ao enviar ele retornava uma mensagem em branco, gostaria de saber se existe alguma possibilidade de apos algum tipo de erro no envio eu conseguir fazer o tratamento descrito no código abaixo por exemplo. if ACBrNFSe1.Enviar(IntToStr(ANFSELote)) then begin for i := 0 to ANFSEQTD -1 do begin if trim(ACBrNFSe1.NotasFiscais.Items.NFSe.CodigoVerificacao) <> '' then begin //ACBrNFSe1.NotasFiscais.Items.NFSe. DMGERVST.Socket.AppServer.GER_IniciaTransacao; // Inicia transação with cdsConsultaNFSE do begin Close; Params.Clear; Params.CreateParam(ftString,'NFSE_CODIGOVERIFICACAO',ptInput); Params.CreateParam(ftString,'NFSE_NOMEARQUIVO',ptInput); Params.CreateParam(ftString,'NFSE_NUMERO',ptInput); Params.CreateParam(ftString,'NFSE_PROTOCOLO',ptInput); Params.CreateParam(ftString,'STATUS',ptInput); Params.CreateParam(ftInteger,'ID_EMPRESA',ptInput); Params.CreateParam(ftInteger,'ID_FILIAL',ptInput); Params.CreateParam(ftString,'NFSE_RPS',ptInput); Params.CreateParam(ftString,'NFSE_SERIE',ptInput); CommandText:= ' UPDATE TAST_NFSE SET '+#13+ ' NFSE_CODIGOVERIFICACAO = :NFSE_CODIGOVERIFICACAO, '+#13+ ' NFSE_NOMEARQUIVO = :NFSE_NOMEARQUIVO, '+#13+ ' NFSE_NUMERO = :NFSE_NUMERO, '+#13+ ' NFSE_PROTOCOLO = :NFSE_PROTOCOLO, '+#13+ ' STATUS = :STATUS '+#13+ ' WHERE ID_EMPRESA = :ID_EMPRESA '+#13+ ' AND ID_FILIAL = :ID_FILIAL '+#13+ ' AND NFSE_RPS = :NFSE_RPS '+#13+ ' AND NFSE_SERIE = :NFSE_SERIE '+#13; Params.ParamByName('NFSE_CODIGOVERIFICACAO').AsString := ACBrNFSe1.NotasFiscais.Items.NFSe.CodigoVerificacao; Params.ParamByName('NFSE_NOMEARQUIVO').AsString := ExtractFileName(ACBrNFSe1.NotasFiscais.Items.NomeArq); Params.ParamByName('NFSE_NUMERO').AsString := ACBrNFSe1.NotasFiscais.Items.NFSe.Numero; Params.ParamByName('NFSE_PROTOCOLO').AsString := ACBrNFSe1.NotasFiscais.Items.NFSe.Protocolo; Params.ParamByName('STATUS').AsString := ACBrNFSe1.NotasFiscais.Items.NFSe.Situacao; Params.ParamByName('ID_EMPRESA').AsInteger := SisEmpresa; Params.ParamByName('ID_FILIAL').AsInteger := SisFilial; Params.ParamByName('NFSE_RPS').AsString := ACBrNFSe1.NotasFiscais.Items.NFSe.IdentificacaoRps.Numero; Params.ParamByName('NFSE_SERIE').AsString := IntToStr(ANFSENumeroSerie); Execute; end; DMGERVST.Socket.AppServer.GER_ConcretizaTransacao; end; { MemoDados.Lines.Add('Nome XML: '+ACBrNFSe1.NotasFiscais.Items.NomeArq); MemoDados.Lines.Add('Nota Numero: '+ACBrNFSe1.NotasFiscais.Items.NFSe.Numero); MemoDados.Lines.Add('Código de Verificação: '+ACBrNFSe1.NotasFiscais.Items.NFSe.CodigoVerificacao); } end; end else begin DMGERVST.Socket.AppServer.GER_IniciaTransacao; // Inicia transação with cdsConsultaNFSE do begin Close; Params.Clear; Params.CreateParam(ftString,'STATUS',ptInput); Params.CreateParam(ftInteger,'ID_EMPRESA',ptInput); Params.CreateParam(ftInteger,'ID_FILIAL',ptInput); Params.CreateParam(ftString,'NFSE_RPS',ptInput); Params.CreateParam(ftString,'NFSE_SERIE',ptInput); CommandText:= ' UPDATE TAST_NFSE SET '+#13+ ' STATUS = :STATUS '+#13+ ' WHERE ID_EMPRESA = :ID_EMPRESA '+#13+ ' AND ID_FILIAL = :ID_FILIAL '+#13+ ' AND NFSE_RPS = :NFSE_RPS '+#13+ ' AND NFSE_SERIE = :NFSE_SERIE '+#13; Params.ParamByName('STATUS').AsString := '0'; Params.ParamByName('ID_EMPRESA').AsInteger := SisEmpresa; Params.ParamByName('ID_FILIAL').AsInteger := SisFilial; Params.ParamByName('NFSE_RPS').AsInteger := ANFSELote; Params.ParamByName('NFSE_SERIE').AsString := IntToStr(ANFSENumeroSerie); Execute; end; DMGERVST.Socket.AppServer.GER_ConcretizaTransacao; end;

Muito obrigado Daniel, em Lazarus também utilizo a classe nativa e funciona muito bem, infelizmente aqui na empresa utilizamos delphi 2007 ainda por questões de licença então este o motivo da sofrência, iriei utilizar o commadrun acho que esse o nome de uma função que vi no acbrutils e utilizar o 7z para compactar achei mais viável, muito obrigado pela sua atenção mais uma vez

Boa tarde. Daniel tem algum exemplo de compactacao com esse componente "Terceiros\ZLibExGZ" encontrei alguns locais que o acbr utiliza ele para descompactar apenas.

Italo bom dia. Desde já agradeço sua atenção não só aqui no fórum mas também no Skype, eu não perguntei em tom de critica me desculpe se foi esse o tom que deu entender, apenas gostaria de saber se já estamos preparados para tal alteração. Não nos não somos perfeitos e nunca seremos acho que esse o principal motivo para existir a colaboração, muito obrigado pela sua ajuda.

Boa tarde amigos. Recebi um e-mails da contabilidade de vários clientes falando a respeito do Código hash do QRCode, dei uma lida na nota técnica da Sefaz, e achei interessante perguntar aqui antes de fazer qualquer coisa, o AcbrNfe já esta preparado para essa validação que entrara em vigor agora dia 01/11/2016? Desde já agradeço a atenção.

Muito obrigado foleyjf.

Boa tarde amigo. Muito obrigado pela sua resposta, porem vem uma duvida, eu já estou tratando dessa forma ai no cancelamento da nota, porem apos o cancelamento se acaso eu precise consultar uma nota que foi cancelada, a consulta não me retorna nada? essa ACBrNFSe1.NotasFiscais.Items[0].NFSe.NfseCancelamento.DataHora só e preenchida no cancelamento na consulta ela não vem preenchida fiz vários testes aqui. na consulta sempre recebo o status = 4

Boa tarde. Quando cancelo uma NFSe tenho o seguintes retornos MemoDados.Lines.Add('Cód. Cancelamento: ' + ACBrNFSe1.WebServices.CancNfse.CodigoCancelamento); if ACBrNFSe1.WebServices.CancNfse.DataHora <> 0 then MemoDados.Lines.Add('Data / Hora : ' + DateTimeToStr(ACBrNFSe1.WebServices.CancNfse.DataHora)); porem nao vem algum codigo de status alguma coisa que quando consultar a nota ela me retorne se esta cancelada sim ou não, quando consulto uma nota normal sempre me retorna código = 4 entendi que essa e uma nota normal, e uma nota cancelada qual seria o código de retorno?

pelo CommandText voce parece estar usando um clientdataset isso e correto? se for um clientedataset ele precisa do Params.CreateParam(ftString,'cli',ptInput); e na mesma ordem que sao criados os parametros vc precisa passar os paramentros com Params.ParamByName('cli').AsString:= 'codigo do cliente';