Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

netsoftclaudio

Membros
  • Content Count

    98
  • Joined

  • Last visited

Community Reputation

12 Good

1 Follower

About netsoftclaudio

  • Rank
    Membro
  • Birthday 05/20/1971

Profile Information

  • Sexo
    Masculino
  • Location
    São Carlos - SP

Recent Profile Visitors

1,179 profile views
  1. 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 PR
  2. Fiz tudo isso, mas quando altero alguma coisa no form ele faz a pergunta novamente, que estranho.
  3. deu certo, muito obrigado amigo!!!
  4. 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 !'+sL
  5. Ele continua dizendo a mesma coisa
  6. Estou usando Delphi 10.3 Rio
  7. 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
  8. 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))
  9. 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
  10. Vc usa comando ACBrETQ para imprimir os comandos ou vc usa ACBrPosPrinter para imprimir o template já pronto ?
  11. 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 beg
  12. Nossa que legal! Por gentileza, vc teria um exemplo para me enviar por favor, pois não tenho ideia como seria.
×
×
  • Create New...