Jump to content

dia-do-acbr-online.png

Ganhe acesso a todas Palestras
Assinando o Suporte ACBr Comercial

Saiba Mais


dia-do-acbr-online.png

logo_acbr_paygo.png

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


botao.png

beneficios.png

netsoftclaudio

Membros
  • Content Count

    91
  • 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,120 profile views
  1. 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))
  2. 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
  3. Vc usa comando ACBrETQ para imprimir os comandos ou vc usa ACBrPosPrinter para imprimir o template já pronto ?
  4. valeu amigo, vou começar então, abs
  5. Vc teria algum exemplo para me enviar ?
  6. 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
  7. Nossa que legal! Por gentileza, vc teria um exemplo para me enviar por favor, pois não tenho ideia como seria.
  8. Estou precisando imprimir etiquetas com AcbrETQ de um Campo TMemo aonde contem varias linhas. Existe essa possibilidade ? Obrigado
  9. 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 informa
  10. 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.
  11. 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
  12. 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
  13. Ok, criei uma conta no github e já postei o problema do "Fortes Report".
  14. 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 TRLPrinterWrappe
×
×
  • Create New...