netsoftclaudio

Porque será que minha pasta está vazia? Já atualizei o svn vária vezes.

Bom dia, São Carlos passou a operar provedor GIAP, no ACBR não encontrei os arquivos "SCHEMAS" para esse provedor: C:\Projetos\ACBr\trunk2\Exemplos\ACBrDFe\ACBrNFSe\Schemas\Giap Alguém pode me ajudar?

Bom dia a todos, Quando coloco um produto sobre a balança ela faz a leitura perfeita, mas quando tiro o produto ela continua trazendo o peso, e era para informar zero. Estou usando o ACBrBAL para fazer a leitura da balança Toledo PRIX 9094 Plus, com as seguinte configurações: Balança: balToledo Porta: COM5 Baud Rate: 2400 Data Bits: 8 Parity: none Stop Bits: s1 HandShaking: Nenhum ------------------- Monitorar a balança está ativado ------------------- Configuração da balança TOLEDO C14 - PROTOCOLO DE COMUNICAÇÃO PRT2 - PROTOCOLO PARA ECF-PDV E MICROTERMINAIS C16 - TRANSMISSÃO CONTÍNUA DE DADOS L - LIGADA

Fiz tudo isso, mas quando altero alguma coisa no form ele faz a pergunta novamente, que estranho.

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 ?