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.