Plate2013

ôpa consegui resolver a questão e de quebra aprendi a usar o acbr é como p amigo, EMBarbosa disse: Têm de ler, li com mais cuidado o exemplo e consegui não complicado, e o resultado ficou ótimo agora funciona com a maioria senão todas as impressoras relevantes do mercado, obrigado pessoal da acbr, agora vou começar a implantar a nfe.

Boa tarde. Eu vi tanto que esta parte do código uso-a para setar a impressora no sistema e dá certo consigo configurar e ao mesmo tempo gravar as informações no ini, mas meu problema é que quando reinicio as configurações somem e isso ocorre só quando reinicio. desculpe algum transtorno mas estou tentando aprender a usar o acbr da melhor maneira.

Já olhei no exemplo e estou conseguindo mandar as configurações para o ini, ocorre que já testei o ini com showmessage e ele lê os valores que mando para o arquivo INI: [Config] modelo=ecfDaruma porta=COM6 baud=115200 Mas quando inicio o sistema dá a seguinte mensagem: modelo não definido! Agora fiz assim: Procedure que lê o arquivo ini procedure TForm1.ateconfig; var ateconfi :TiniFile; Begin ateconfi:=Tinifile.Create('c:\config_config.ini'); m:=ateconfi.ReadString('config','modelo','m'); p:=ateconfi.ReadString('config','porta','p'); b:=ateconfi.ReadString('config','baud','b'); ateconfi.Free; end; Depois pego os valores lidos na procedure e passo para o componente: procedure TForm1.Button2Click(Sender: TObject); begin ateconfig; P:=acbrecf1.Porta; M:=acbrecf1.ModeloStr; ACBRECF1.Device.Baud:=StrToInt(.; end;

Eu até consegui ler o arquivo ini e joga-lo em um uns edits, gostaria mesmo de saber como faria para, converter às variaveis e joga os valores no componente

Olá amigo poderia me dar um exemplo de como faria isto?

É verdade srsrsr Mas o erro esta dando aqui: acbrecf1.Modelo:=(m); acbrecf1.Porta:=(p); acbrecf1.Device.Baud:=(. Pq é assim eu estou enviando Integer para o arquivo ini: [Config] Modelo=4 Porta=544 Baud=544

Boa tarde amigo por gentileza esta dando a seguinte mensagem: procedure TForm1.Button2Click(Sender: TObject); var // variável que irá conter o arquivo config : TIniFile; // variável que irá armazenar parâmetro a ser lido do arquivo m,p,b :Stringl; begin // associa o arquivo de configuração a variável config := TIniFile.Create('C:\Loja Master\Plate_Config.ini'); //variável param recebe 12345 m := config.ReadInteger('CONFIG','Modelo',''); p := config.ReadInteger('CONFIG','Porta',''); b := config.ReadInteger('CONFIG','Baud',''); acbrecf1.Modelo:=(m); acbrecf1.Porta:=(p); acbrecf1.Device.Baud:=(; Incompatible types integer and estring: Esta dando esta mensagem por conta do fato de eu ter transformado para integer e ter enviado assim para o ini ai na hora de ler preciso lê-los tb em formato integer poderia me dar uma dica de como fazer isto?

var Cfg : TIniFile; begin Cfg := TIniFile.Create('Plate_Config.ini'); try ACBrECF1.Modelo := Cfg.ReadString('Config','Modelo',''); ACBrECF1.Porta := Cfg.ReadString('Config','Porta',''); ACBrECF1.Device.Baud := Cfg.ReadString('Config','Baud',''); finally Cfg.Free; end; end; Mas esta dando imcompatibilidade pq modelo é INTEGER e o ini esta em String ecfDaruma ai minha duvida agora é como faço para resolver isso?

Boa noite amigos Consegui enviar as configurações para o arquivo INI: [ACBR] Modelo=ecfDaruma Porta=COM6 Baud=115200 A minha duvida é: há uma maneira de através, do ACBR ele pegar estas configurações diretamente do INI? Ou se houver outra maneira...

OPA achei srsrs desculpe

OI AMIGO aonde acho isso? procurei no ini e não achei: [Variaveis] Estado=3 Aviso_Legal=SIM NumECF=001 IE=012.345.678.90 CNPJ=01.234.567/0001-22 PAF=ACBrMonitor IM=1234-0 NumSerie=ACBR01NF161012161228 CRO=1 NumCupom=5 NumGNF=0 NumGRG=0 NumCDC=0 NumCER=0 GrandeTotal=0 VendaBruta=0 NumCCF=1 DiaMovimento=25/01/2013 HorarioVerao=0 ReducoesZ=2 LeiturasX=2 COOInicial=3 COOFinal=5 SubTotal=0 TotalPago=0 CuponsCancelados=0 CuponsCanceladosTotal=0 Operador= [Cabecalho] LIN000=Nome da Empresa LIN001=Nome da Rua , 1234 - Bairro LIN002=Cidade - UF - 99999-999 LIN003=CNPJ: 01.234.567/0001-22 IE: 012.345.678.90 [Cabecalho_Item] LIN000=ITEM CODIGO DESCRICAO LIN001=. QTDxUNITARIO Aliq VALOR (R$) LIN002=------------------------------------------------ MascaraItem=III CCCCCCCCCCCCC DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD QQQQQQQQ UUxVVVVVVVVV AAAAAAA TTTTTTTTTTT [impressora] Colunas=48 Comando_Abrir_Gaveta= Comando_Corta_Papel_Completo= Comando_Corta_Papel_Parcial= Comando_Incializacao=#27,#64 Comando_Ativar_Condensado=#15 Comando_Expandido_uma_Linha=#14 Comando_Fim_Expandido= [Forma_Pagamento00] Indice=01 Descricao=DINHEIRO TotalDia=0 [Aliquota00] Descricao=FF Aliquota=0 ISS=0 TotalDia=0 [Aliquota01] Descricao=NN Aliquota=0 ISS=0 TotalDia=0 [Aliquota02] Descricao=II Aliquota=0 ISS=0 TotalDia=0

Rssr desculpe pessoal nem eu entendi o que escrevi srsrsr Bom eu só preciso saber mesmo como faria para mandar os dados do bd para o acbrecf se puderem me ajudar ficarei grato

Como eu poderia fazer para salvar as configurações no BD? na verdade isso eu sei mas não sei se o que irei fazer é certo poderia me passar um exemplo de como você faria? por gentileza

Por gentileza amigos, é necessário alguma gravação no arquivo ACBR.INI? Porque consegui fazer funcionar só que quando reinicio o sistema as configurações somem porque será?

Boa noite amigos Estou com a seguinte dúvida: em minha aplicação eu tenho um dbcombobox aonde lá escolho a impressora fiscal ou apenas cupom. Ocorre que, não estou conseguindo fazer com que o acbr "enxergue" esta impressora selecionada. No exemplo esta assim: procedure TForm1.cbxModeloChange(Sender: TObject); begin try ACBrECF1.Modelo := TACBrECFModelo( cbxModelo.ItemIndex ) ; except cbxModelo.ItemIndex := Integer( ACBrECF1.Modelo ) ; raise ; end ; Se alguem de vocês puder me dar uma dica de como implementar isto ficarei muito agradecido desde já obrigado