netsoftclaudio

deu certo, muito obrigado amigo!!!

Coloquei {$I ACBr.inc} no Inicio do Form e coloquei assim: {$IFDEF DELPHI2009_UP} procedure TForm1.ACBrBAL1LePeso(Peso: Double; Resposta: AnsiString); {$ELSE} procedure TForm1.ACBrBAL1LePeso(Peso: Double; Resposta: string); {$ENDIF} var valid : integer; begin sttPeso.Caption := formatFloat('##0.000', Peso ); sttResposta.Caption := Converte( Resposta ) ; if Peso > 0 then Memo1.Lines.Text := 'Leitura OK !' else begin valid := Trunc(ACBrBAL1.UltimoPesoLido); case valid of 0 : Memo1.Lines.Text := 'TimeOut !'+sLineBreak+ 'Coloque o produto sobre a Balança!' ; -1 : Memo1.Lines.Text := 'Peso Instavel ! ' +sLineBreak+ 'Tente Nova Leitura' ; -2 : Memo1.Lines.Text := 'Peso Negativo !' ; -10 : Memo1.Lines.Text := 'Sobrepeso !' ; end; end ; end;

Ele continua dizendo a mesma coisa

Estou usando Delphi 10.3 Rio

Bom dia a todos, Atualizei hoje os componentes do ACBR e me deparei com o seguinte erro após a atualização: The ACBrBAL1LePeso method referenced by ACBrBAL1.OnLePeso has an incompatible parameter list. Remove the reference? Se eu remover ele retira a seguinte programação: procedure TForm1.ACBrBAL1LePeso(Peso: Double; Resposta: String); var valid : integer; begin sttPeso.Caption := formatFloat('##0.000', Peso ); sttResposta.Caption := Converte( Resposta ) ; if Peso > 0 then Memo1.Lines.Text := 'Leitura OK !' else begin valid := Trunc(ACBrBAL1.UltimoPesoLido); case valid of 0 : Memo1.Lines.Text := 'TimeOut !'+sLineBreak+ 'Coloque o produto sobre a Balança!' ; -1 : Memo1.Lines.Text := 'Peso Instavel ! ' +sLineBreak+ 'Tente Nova Leitura' ; -2 : Memo1.Lines.Text := 'Peso Negativo !' ; -10 : Memo1.Lines.Text := 'Sobrepeso !' ; end; end ; end;

Olá Giovani, Gostaria de listar as ocorrencias do tipo remessa e colocar em um combobox mas não estou conseguindo. Copiei seu exemplo, mas não está dando certo, vc saberia me dizer o porque? procedure TFrmRemessaCadastro.Button1Click(Sender: TObject); var I: Integer; vList : TACBrOcorrenciasRemessa; begin vList := TACBrBoleto.GetOcorrenciasRemessa(); ComboOcorrencia.Clear; for I := Low(vList) to High(vList) do begin ComboOcorrencia.Items.Add(vList[I].Descricao); ComboOcorrencia.Values.Add(GetEnumName(TypeInfo(TACBrTipoOcorrencia), Integer(vList[I].Tipo))); end; end;

Boa tarde Juliana, Seria possível vc mostrar como trazer a lista de ocorrências utilizando GetOcorrencias() e uma variável do tipo TACBrOcorrenciasRemessa. Estou utilizando o código abaixo, mas está trazendo também o retorno. procedure TF_AlterarBoleto.FormCreate(Sender: TObject); var I : TACBrTipoOcorrencia; begin cbxTipoOcorrencia.Items.Clear ; For I := Low(TACBrTipoOcorrencia) to High(TACBrTipoOcorrencia) do cbxTipoOcorrencia.Items.Add( GetEnumName(TypeInfo(TACBrTipoOcorrencia), integer(I) ) ) ; end; att Claudio

Vc usa comando ACBrETQ para imprimir os comandos ou vc usa ACBrPosPrinter para imprimir o template já pronto ?

valeu amigo, vou começar então, abs

Vc teria algum exemplo para me enviar ?

Alguém pode me ajudar?

Seria algo assim? =>Imagine que o conteúdo do memo tenha as seguintes linhas: ImprimirTexto(orNormal, 2, 2, 2, 3, 3, 'BISCOITO MARILAN RECH 335G', 0, True); ImprimirTexto(orNormal, 2, 2, 1, 8, 3, 'CHOC BRANCO'); ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, '7896003701685', 10, becSIM); ImprimirTexto(orNormal, 3, 3, 2, 18, 32, 'R$'); ImprimirTexto(orNormal, 3, 4, 4, 15, 50, '20,59'); =>Rotina para ler o campo Memo: if (Memo_Template.Text<>EmptyStr) then begin for I := 0 to Memo_Template.Lines.Count - 1 do begin Memo_Template.Lines ; end; end; => Como iria executar cada linha do memo?

Nossa que legal! Por gentileza, vc teria um exemplo para me enviar por favor, pois não tenho ideia como seria.

Estou precisando imprimir etiquetas com AcbrETQ de um Campo TMemo aonde contem varias linhas. Existe essa possibilidade ? Obrigado

Não encontrei nenhum exemplo com ACBRDevice, a única coisa que consegui fazer agora e deu certo, foi esse código abaixo: if Application.MessageBox('Confirma impressão de teste S/N ?','Atenção', MB_YESNO + MB_ICONQUESTION) = idYes then begin DM.ACBrPosPrinter.Porta := CB_Porta.Text; DM.ACBrPosPrinter.Modelo := TACBrPosPrinterModelo(CB_Modelo.ItemIndex); if (Memo_Template.Text <> EmptyStr) then DM.ACBrPosPrinter.Buffer.Text := Memo_Template.Text else begin Application.MessageBox('Template não informado!','Atenção', MB_OK + MB_ICONWARNING); abort; end; DM.ACBrPosPrinter.Ativar; DM.ACBrPosPrinter.Imprimir; DM.ACBrPosPrinter.Desativar; end;

Bom dia a todos, Gostaria de saber se é possível carregar um arquivo texto para impressão utilizando o componente ACBrETQ, exemplo: etq.txt Conteúdo do arquivo etq.txt ^XA ~SD10 ^CF060,60 ^FWN ^F024,24^FR^FDBISCOITO MARILAN RECH 335G^FS ^CF060,60 ^FWN ^F024,64^FDCHOC BRANCO^FS ^FD040,104^BEN,96,Y,N^FD7896003701685^FS ^CFA100,100 ^FWN ^F0256,144^FDR$^FS ^CFA120,120 ^FWN ^F0400,120^FD20.59^FS ^PQ1 ^XZ ^PH ^MCY obrigado.

Boa tarde a todos, Instalei o sistema em um cliente no qual o modelo da impressora é Bematech MP-S100 TH, a mesma não está pulando a quantidade de papel necessária para cortar o papel, ou seja, o usuário tem que apertar a tecla avanço da impressora para poder cortar o papel. Em todas as outras marcas e modelos que tenho instalado está funcionando normal, alguem sabe oque pode estar acontecendo em particular com esse modelo? abs Claudoi

Bom dia a todos, Hoje dia "09/01/2020" fiz novamente a atualização do Fortes Report e deu tudo certo. Obrigado a todos att Claudio

Ok, criei uma conta no github e já postei o problema do "Fortes Report".

Boa tarde, Após ter feito a atualização do Fortes Report hoje "08/01/2020" o mesmo não está sendo instalado no Delphi 7, pois foi feito uma alteração no Fortes Report em Dezembro de 2019 e acredito que está alteração não comportou bem para Delphi 7. veja que o erro da instalação está se referindo ao arquivo RLPrinters.pas que se encontra na pasta "Source" do "Fortes Report" : O erro está indicando o arquivo RLPrinters.pas na linha (969), conforme abaixo: Se eu comentar essas linhas, dai instala normalmente o "Fortes Report". procedure TRLPrinterWrapper.CreateDeviceMode(WindowHandle: HWND); var Device, Driver, Port: array[0..MAX_PATH] of char; PrinterHandle: THandle; OldModeHandle: THandle; //hDeviceMode OldDeviceMode: PDeviceMode; //PrinterDevMode NewModeHandle: THandle; NewDeviceMode: PDeviceMode; BytesNeeded: Integer; begin Printer.GetPrinter(Device, Driver, Port, OldModeHandle); if WinSpool.OpenPrinter(@Device, PrinterHandle, nil) then try OldDeviceMode := GlobalLock(OldModeHandle); try BytesNeeded := WinSpool.DocumentProperties(WindowHandle, PrinterHandle, Device, nil, nil, 0); if BytesNeeded < 0 then raise Exception.Create('The call to DocumentProperties failed.'); NewModeHandle := GlobalAlloc(GHND, BytesNeeded); NewDeviceMode := GlobalLock(NewModeHandle); try case WinSpool.DocumentProperties(WindowHandle, PrinterHandle, Device, NewDeviceMode^, OldDeviceMode^, DM_OUT_BUFFER or DM_IN_PROMPT or DM_IN_BUFFER) of IDOK: begin Printer.SetPrinter(Device, Driver, Port, NewModeHandle); ClearSavedDevMode; SavedPrinterSettings.DevMode := GetMemory(BytesNeeded); SavedPrinterSettings.Bytes := BytesNeeded; SavedPrinterSettings.PrinterName := Printer.Printers[Printer.PrinterIndex]; CopyMemory(SavedPrinterSettings.DevMode, NewDeviceMode, BytesNeeded); end; IDCANCEL: // do nothing else raise Exception.Create('Something went wrong with setting the new printer parameters.'); end; finally GlobalUnlock(NewModeHandle); end; finally GlobalUnlock(OldModeHandle); end; finally WinSpool.ClosePrinter(PrinterHandle); end; end;

Será que vc pode fazer isso para mim ?

Nunca fiz isso...

Fiz a limpeza do path do ACBr no Library do Delphi 7, mas não resolveu. O interessante é que eu havia atualizado dias antes da alteração realizada no Fortes Report, pois foi feito uma alteração no Fortes Report em Dezembro de 2019 e acredito que está alteração não comportou bem para Delphi 7. veja que o erro da instalação está se referindo ao arquivo RLPrinters.pas que se encontra na pasta "Source" do "Fortes Report" : O erro está indicando o arquivo RLPrinters.pas na linha (969), conforme abaixo: Se eu comentar essas linhas, dai instala normalmente o "Fortes Report". procedure TRLPrinterWrapper.CreateDeviceMode(WindowHandle: HWND); var Device, Driver, Port: array[0..MAX_PATH] of char; PrinterHandle: THandle; OldModeHandle: THandle; //hDeviceMode OldDeviceMode: PDeviceMode; //PrinterDevMode NewModeHandle: THandle; NewDeviceMode: PDeviceMode; BytesNeeded: Integer; begin Printer.GetPrinter(Device, Driver, Port, OldModeHandle); if WinSpool.OpenPrinter(@Device, PrinterHandle, nil) then try OldDeviceMode := GlobalLock(OldModeHandle); try BytesNeeded := WinSpool.DocumentProperties(WindowHandle, PrinterHandle, Device, nil, nil, 0); if BytesNeeded < 0 then raise Exception.Create('The call to DocumentProperties failed.'); NewModeHandle := GlobalAlloc(GHND, BytesNeeded); NewDeviceMode := GlobalLock(NewModeHandle); try case WinSpool.DocumentProperties(WindowHandle, PrinterHandle, Device, NewDeviceMode^, OldDeviceMode^, DM_OUT_BUFFER or DM_IN_PROMPT or DM_IN_BUFFER) of IDOK: begin Printer.SetPrinter(Device, Driver, Port, NewModeHandle); ClearSavedDevMode; SavedPrinterSettings.DevMode := GetMemory(BytesNeeded); SavedPrinterSettings.Bytes := BytesNeeded; SavedPrinterSettings.PrinterName := Printer.Printers[Printer.PrinterIndex]; CopyMemory(SavedPrinterSettings.DevMode, NewDeviceMode, BytesNeeded); end; IDCANCEL: // do nothing else raise Exception.Create('Something went wrong with setting the new printer parameters.'); end; finally GlobalUnlock(NewModeHandle); end; finally GlobalUnlock(OldModeHandle); end; finally WinSpool.ClosePrinter(PrinterHandle); end; end;

Boa tarde Juliomar, Será que por gentileza vc pode me ajudar? Estou com Delphi 7 em uma máquina e fiz a atualização do ACBR e Fortes Report, agora não consigo instalar o fortes report, aparece a seguinte mensagem anexada. att Claudio log_Delphi_7.txt

Funcionou certinho!!! Muito obrigado abs Claudio