daniel.brasystem

Olá pessoal, Estou utilizando o ArMonitor para geração da NF-e, mas na hora de enviar ele retorna o erro em anexo (Erro.jpg). Olhando no arquivo WinlojasNF-e.ini essas informações constam no arquivo, não sei mais o que pode estar acontecendo. Os arquivos estão em anexo. Se alguém puder me ajudar a entender como funciona a geração da nf-e, eu agradeceria muito. WinlojasNF-e.ini

Olá pessoal, Tenho 2 Delphi´s na minha máquina (6 e 2010). Como eu não consegui instalar o ACBr apenas no Delphi 2010, criei uma máquina virtual com o virtalbox tendo o Windows XP e o Delphi 6 apenas. Bom, comecei a seguir o passo a passo do arquivo LEIAME.TXT, adicionei os diretórios no LibPath, depois abri o arquivo synapse.dpk e compilei, conforme solicitado no txt. Quando eu vou fazer o mesmo com o ACBrComum.dpk, eu compilo e na hora de dar install aparece a mensagem "Can´t load package c:\arquivos de programas\borland\delphi6\Bpl\ACBrComum.bpl. Falha na inicialização do aplicativo devido a configuração incorreta. A reinstalação do aplicativo pode resolver o problema. Acontece que o arquivo ACBrComum.bpl está na pasta bonitinho. Alguém sabe onde posso estar errando?

Olá pessoal, Estou tentando utilizar a dll ACBrECFDLL.dll para controle de impressoras na minha aplicação de automação comercial. O problema é quem como tenho 2 Delphi´s na minha máquina, não consigo instalar os componentes do ACBr no Delphi 6. No Delphi 2010 ele instala normalmente. Acredito que esteja havendo algum conflito com algum pacote do meu sistema (que algum outro programador criou) e que esse pacote não pode ser desinstalado, senão o sistema não funciona. Por isso estou tentando utilizar a dll mesmo sendo no Delphi. Alguém já precisou fazer isso? Tem algum exemplo? Obrigado.

Como eu faria isso? se eu tento alterar a dll (ACBrECFDLL.dll), na hora de compilar, dá o erro: "Record, object or class type required" Esse erro dá na seguinte linha da unit ACBrEAD: Procedure TACBrEAD.CalcularModuloeExpoente( var Modulo, Expoente : AnsiString ); Var Bio : pBIO; Ver : String ; begin Ver := OpenSSL_Version; if pos('1.0',Ver) > 0 then raise Exception.Create( ACBrStr('Método CalcularModuloeExpoente ainda não é '+ 'compatível com OpenSSL 1.0.0 ou superior')); LerChavePrivada(); Modulo := ''; Expoente := ''; Bio := CriarMemBIO; try BN_print( Bio , fsKey.pkey.rsa.e); //AQUI DÁ O ERRO, COMO SE ELE NÃO RECONHECESSE ESSE "e" NO FINAL. Modulo := BioToStr( Bio ); BIO_reset( Bio ); BN_print( Bio , fsKey.pkey.rsa.d); Expoente := BioToStr( Bio ); finally LiberarBIO( Bio ) ; LiberarChave; end ; end ;

Legal, funcionou! Essa ACBrDLL.dll não tem a função de desativar a impressora? Se eu quiser implementar mais funções na mesma, eu posso?

Estou utilizando a dll ACBr32.dll em um projeto em Deplhi 6 para controle de impressoras. Não consegui instalar os componentes do ACBr no Delphi por conta de outros pacotes que o meu sistema utiliza e que não podem ser retirados (algum outro programador criou) que não permitem que o ACBr seja instalado (dá erro na instalação do ACBrSerial.dpk). Fiz um projetinho simples em Delphi apenas para testar a ativação da porta da impressora mas não sei o que posso estar fazendo de errado. Alguém pode me ajudar. Abaixo vai o código com o click do botão que ativa a impressora: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Function ECF_Create(const ecfHandle: pointer) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_SetModelo(const ecfHandle: pointer; const Modelo : Integer) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_SetPorta(const ecfHandle: pointer; const Porta : pChar) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_Ativar(const ecfHandle: pointer) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_Desativar(const ecfHandle: pointer) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_AbreCupom(const ecfHandle: pointer; const CPF_CNPJ, Nome, Endereco : pChar) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_CancelaCupom(const ecfHandle: pointer) : Integer ; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; implementation //*Modelos de ECF const ECF_Nenhum = 0; ECF_NaoFiscal = 1; ECF_Bematech = 2; ECF_Sweda = 3; ECF_Daruma = 4; ECF_Schalter = 5; ECF_Mecaf = 6; ECF_Yanco = 7; ECF_DataRegis = 8; ECF_Urano = 9; ECF_ICash = 10; ECF_Quattro = 11; ECF_FiscNET = 12; ECF_Epson = 13; ECF_NCR = 14; ECF_SwedaSTX = 15; //*ESTADOS DO ECF ESTADO_NaoInicializada = 0; ESTADO_Desconhecido = 1; ESTADO_Livre = 2; ESTADO_Venda = 3; ESTADO_Pagamento = 4; ESTADO_Relatorio = 5; ESTADO_Bloqueada = 6; ESTADO_RequerZ = 7; ESTADO_RequerX = 8; ESTADO_NaoFiscal = 9; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var ihandle : ^integer; i: integer; begin ECF_Create(@ihandle); ECF_SetPorta(ihandle,PChar('COM1')); //AQUI DÁ UM ERRO DE ACCESS VIOLATION ECF_SetModelo(ihandle,ECF_Daruma); i:= ECF_Ativar(ihandle); showmessage(inttostr(i)); //AQUI PEGO O RETORNO DA FUNÇÃO PARA VER SE ESTÁ ATIVANDO end; Alguém pode me ajudar?

Olá pessoal... estou utilizando a dll ACBr32.dll em um projeto em Deplhi 6 para controle de impressoras. Não consegui instalar os componentes do ACBr no Delphi por conta de outros pacotes que o meu sistema utiliza que não permitem que o ACBr seja instalado (dá erro na instalação do ACBrSerial.dpk. Fiz um projetinho simples em Delphi apenas para testar a ativação da porta da impressora mas não sei o que posso estar fazendo de errado. Alguém pode me ajudar. Abaixo vai o código com o click do botão que ativa a impressora: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Function ECF_Create(const ecfHandle: pointer) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_SetModelo(const ecfHandle: pointer; const Modelo : Integer) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_SetPorta(const ecfHandle: pointer; const Porta : pChar) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_Ativar(const ecfHandle: pointer) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_Desativar(const ecfHandle: pointer) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_AbreCupom(const ecfHandle: pointer; const CPF_CNPJ, Nome, Endereco : pChar) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_CancelaCupom(const ecfHandle: pointer) : Integer ; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; implementation //*Modelos de ECF const ECF_Nenhum = 0; ECF_NaoFiscal = 1; ECF_Bematech = 2; ECF_Sweda = 3; ECF_Daruma = 4; ECF_Schalter = 5; ECF_Mecaf = 6; ECF_Yanco = 7; ECF_DataRegis = 8; ECF_Urano = 9; ECF_ICash = 10; ECF_Quattro = 11; ECF_FiscNET = 12; ECF_Epson = 13; ECF_NCR = 14; ECF_SwedaSTX = 15; //*ESTADOS DO ECF ESTADO_NaoInicializada = 0; ESTADO_Desconhecido = 1; ESTADO_Livre = 2; ESTADO_Venda = 3; ESTADO_Pagamento = 4; ESTADO_Relatorio = 5; ESTADO_Bloqueada = 6; ESTADO_RequerZ = 7; ESTADO_RequerX = 8; ESTADO_NaoFiscal = 9; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var ihandle : ^integer; i: integer; begin ECF_Create(@ihandle); ECF_SetPorta(ihandle,PChar('COM1')); //AQUI DÁ UM ERRO DE ACCESS VIOLATION ECF_SetModelo(ihandle,ECF_Daruma); i:= ECF_Ativar(ihandle); showmessage(inttostr(i)); //AQUI PEGO O RETORNO DA FUNÇÃO PARA VER SE ESTÁ ATIVANDO end; Alguém pode me ajudar?

Algume tem algum exemplo de utilização dessa dll (ACBr32.dll). Estou querendo usála e não se por onde começar. Pode ser algo simples, como ativar a impressora, abrir um cupom, e cancelá-lo. Estou sem saber por onde começar. Obrigado.

Existe algum exemplo de utilização do ACBr32.dll em outra linguagem? Pelo menos para eu poder ter um norte.

Engraçado é que esse pacote (provavelmente feito pelo outro programador que não está mais aqui) não tem nenhuma unit com esses nomes, nem synapse e nem synautil. Não sou expert em Delphi, nunca criei um pacote, mas gostaria de saber como contornar esse problema. Por isso a minha idéia de usar a dll ACBr32.dll no próprio Delphi, que aí eu conseguiria controlar todas as ECF´s de todos os modelos sem precisar das dll´s dos fabricantes das impressoras...

Como faço isso?

Mudei os path dos 2 delphis e fui tentar instalar o ACBr e, agora, na hora de instalar o pacote ACBrSerial.dpk dá a seguinte mensagem: "Cannot load 'synapse.' It contains unit 'synautil,'which is also contained in package FiscalDPK' Esse package FiscalDPK já existia no projeto original (acho que outro programador criou isso), não posso retirá-lo senão o meu PDV não funciona. Tem como alterar ele? Entenderam agora por que eu preciso usar a ACBr32.dll no prórpio Delphi? Obrigado.

OK, vamos por partes: Tentou o ACBrInstall ? R: Dá a mensagem "Versão do Delphi não suportada pelo ACBr" (quando eu tento instalar no Delphi 6) Leu as instruções de instalação no LEAI-ME.TXT ? R: Li e segui os passos. Quais as msgs de erro na instalação ? R: Seguindo os passos do arquivo LEIAM-ME.TXT, na hora que chego na linha "...3.4 Procure pela pasta Pacotes\Delphi e abra o arquivo ACBrSerial.dpk e clique em Compile e depois em Install..." ele dá o erro abaixo: "Não foi possível localizar o ponto de entrada do procedimento @Synautil@BinToInt$qqrx17System@AnsiString na biblioteca de vínculo dinâmico synapse.bpl" Dando aparece outra mensagem: "Can´t load package C:\program files\borland\delphi6\Projects\Bpl\ACBrSerial.bpl. Não foi possível encontrar o procedimento especificado." E desse ponto em diante não sei mais o que fazer. Obs.: Tenho o Delphi 6 e o 2010 na mesma máquina. No delphi 2010 consegui instalar com o ACBrInstall.

Olá pessoal, Tentei instalar os componentes do ACBr no Delphi 6, mas ele simplesmente não instala. Gostaria de saber se é possível utilizar a dll para controle das ECF´s no próprio Delphi. Alguém tem uma luz?

Como faço para utilizar a ACBr32.dll do ACBr no xHarbor para controlar minhas ECF´s. Alguem tem algum exemplo? Obrigado.

Ao tentar utilizar as funções da ACBr32.dll em um projetinho simples, ao tentar compilar, dá a seguinte mensagem: "Undeclared identifer: PECFHandle". O que pode ser isso? O projetinho é simples, apenas um botão para testar o reconhecimento da impressora. Abaixo, vai o código, não sei o que pode estar errado: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } handle:^integer; //NAO SEI SE TA CERTO ISSO end; var Form1: TForm1; Function ECF_SetModelo(const ecfHandle: PECFHandle; const Modelo : Integer) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_SetPorta(const ecfHandle: PECFHandle; const Porta : pChar) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_Ativar(const ecfHandle: PECFHandle) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_Desativar(const ecfHandle: PECFHandle) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_AbreCupom(const ecfHandle: PECFHandle; const CPF_CNPJ, Nome, Endereco : pChar) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_CancelaCupom(const ecfHandle: PECFHandle) : Integer ; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin i:= ECF_SetPorta(handle,'COM5'); i:= ECF_SetModelo(handle,4); i:= ECF_Ativar(handle); end; end.

Agora o Delphi 6 abre normalmente. Seguindo os passos da instalação, na hora de instalar o package ACBrSerial.dpk dá o seguinte erro: "Cannot load package 'synapse.' It contains unit 'synautil,' which is also contained in package 'FiscalDPK'

Segui as dicas do Isaque, e quando tento abrir o delphi 6 dá a seguinte mensagem: "O programa não pode ser iniciado porque está faltando DJCL60.bpl no seu computador. Tente reinstalá-lo para resolver esse problema." o path do Delphi 6 está assim: path = C:\Program Files\Borland\Delphi6\Bin;C:\Inprise\vbroker\bin;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:

Olá pessoal, Tenho um projeto de automação comercial feito em Delphi 6, e gostaria de instalar os componentes do ACBr para poder controlar as impressoras utilizando o ACBrECF. Mas não consigo instalar todos os componentes do ACBr no Delphi 6. Nessa mesma máquina tenho o Delphi 2010 instalado (outro projeto). E no Delphi 2010 o ACBr instalou direitinho, usei inclusive o ACBrInstall para isso. Como posso instalar o ACBr também no Delphi 6 para que os 2 Delphi´s tenham os componentes ACBr? Já tentei de tudo que é jeito, mudei path e tudo, mas nada de instalar os componentes no Delphi 6 (que é o que eu preciso). Alguém já passou por isso?

Eu não consegui instalar o ACBr no Delphi 6 de jeito nenhum. Por isso necessito utilizar a dll, mesmo o meu projeto sendo em delphi 6. A chamada das funções da dll eu faço do mesmo jeito que faria de qualquer outra dll, mas na hora de compilar, dá o erro: "Undeclared identifier PECFHandle" Fiz uma aplicação de teste bem simples com 3 botoes: um para ativar a impressora, outro para abrir o cupom, e um terceiro para cancelar o cupom. Abaixo vai o código: ************************************************************************************************ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } handle:^integer; end; var Form1: TForm1; Function ECF_SetModelo(const ecfHandle: PECFHandle; const Modelo : Integer) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_SetPorta(const ecfHandle: PECFHandle; const Porta : pChar) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_Ativar(const ecfHandle: PECFHandle) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_Desativar(const ecfHandle: PECFHandle) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_AbreCupom(const ecfHandle: PECFHandle; const CPF_CNPJ, Nome, Endereco : pChar) : Integer; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; Function ECF_CancelaCupom(const ecfHandle: PECFHandle) : Integer ; {$IFDEF STDCALL} stdcall; {$ENDIF} {$IFDEF CDECL} cdecl; {$ENDIF} external 'ACBr32.dll'; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin i:= ECF_SetPorta(handle,'COM5'); i:= ECF_SetModelo(handle,4); i:= ECF_Ativar(handle); end; procedure TForm1.Button2Click(Sender: TObject); var i: integer; begin i := ECF_AbreCupom(handle,'','',''); end; procedure TForm1.Button3Click(Sender: TObject); var i : integer; begin // aqui chamaria a função cancela cupom end; end. *******************************************************************************************

O path do Delphi 6 ficou assim: C:\Program Files\Borland\Delphi6\Bin;C:\Inprise\vbroker\bin;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C: O path do delphi 2010 ficou assim: C:\Program Files\Embarcadero\RAD Studio\7.0\bin;C:\Users\Public\Documents\RAD Studio\7.0\Bpl;C:\Inprise\vbroker\bin;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Program Files\TortoiseSVN\bin;C:\Documents and Settings\All Users\Documentos\RAD Studio\7.0\Bpl

Tentei seguir o post do Isaque, e agora, quando abro o Delphi 6 dá o seguinte erro: "O programa não pode ser iniciado porque está faltando DJCL60.bpl no seu computador. Tente reinstalá-lo para resolver esse problema" O que é isso?

Sim, baixei o ACBrInstall, mas ele não instala no Delphi 6. No Delphi 2010 eu consegui instalar corretamente, mas o projeto que eu quero usar o ACBr é feito em Delphi 6, e não tenho tempo suficientemente grande para migrar todo ele para o Delphi 2010. Por isso tenho que usar a dll, entendeu? Seria o meio mais rápido para controlar as ECF´s do meu sistema?

Oi EMBarbosa, É que, como tenho 2 Delphis na minha máquina, na hora de instalar os componentes, dá erro e simplesmente não instala. A alternativa seria utilizar a dll

regys, Não entendi a constante ecfHandle que aparece em todas as funções. O que devo passar para ela? Nunca trabalhei com ponteiros no Delphi, talvez por isso esteja com dificuldade de entender. Desculpe se pareço meio leigo nesse assunto, mas é que estou precisando muito utilizar essa dll no meu projeto, assim posso controlar qualquer ECF de qualquer modelo, sem precisar de tantas dll´s. Obrigado novamente, Att, Daniel