Fernando da Cunha Generoso
-
Total de itens
6 -
Registro em
-
Última visita
Sobre Fernando da Cunha Generoso
Fernando da Cunha Generoso's Achievements
0
Reputação
-
(Resolvido) Impressora Bematech MP-20 MI
pergunta respondeu ao Fernando da Cunha Generoso de Fernando da Cunha Generoso em Delphi, Kylix
Bom dia, Resolvi o problema usando o comando system.close(print); Resolvido. -
(Resolvido) Comando SQL ... o que há de errado?
pergunta respondeu ao Fernando da Cunha Generoso de Fernando da Cunha Generoso em Delphi, Kylix
Olá, Descobri o porquê do erro. Fica a dica: Se for usar mais de uma vez a mesma SQLquery no código, não esqueça de fechar a query sempre antes de limpá-la. SQLquery.Close; SQLquery.clear; ... Eu não havia fechado a query em alguns locais, onde utilizei a mesma. Resolvido. Obrigado. -
(Resolvido) Impressora Bematech MP-20 MI
pergunta respondeu ao Fernando da Cunha Generoso de Fernando da Cunha Generoso em Delphi, Kylix
Olá Jhonas, Vou fazer uns testes com alguns comandos. Qualquer dúvida, postarei aqui. Obrigado! -
(Resolvido) Impressora Bematech MP-20 MI
uma questão postou Fernando da Cunha Generoso Delphi, Kylix
Estou usando o seguinte código para imprimir um ticket: Assignfile (print, 'LPT1'); rewrite(print); writeLn(print, #15 + '========================================'); WriteLn(print, #15 + 'TICKET: ' + IntToStr(maxmovdia)); WriteLn(print, ''); WriteLn(print, #15 + 'PLACA: ' + placaent); WriteLn(print, #15 + 'DATA: ' + DateToStr(dataent) + ', ' + LabelDiaSemana.Caption); WriteLn(print, #15 + 'HORA: ' + TimeToStr(horaent)); WriteLn(print, #15 + 'TIPO: Mensalista'); WriteLn(print, ''); closefile(print); Problema: o primeiro ticket imprime normal. Os próximos imprimem somente depois de fechar o sistema. Quem puder me ajudar, agradeço. -
(Resolvido) Comando SQL ... o que há de errado?
pergunta respondeu ao Fernando da Cunha Generoso de Fernando da Cunha Generoso em Delphi, Kylix
O BD é Firebird. Mas acredito que seja um bug do Lazarus (FreePascal). -
procedure TFrmPrincipal.EdPlacaMovExit(Sender: TObject); begin SQLEntrada.Close; SQLEntrada.SQL.Clear; SQLEntrada.SQL.Add('select C.COD, C.NOME, C.EMPRESA, C.TIPO, P.COD, P.PLACA from CLIENTE C, PLACA P where C.COD = P.COD and P.PLACA = :pPlaca'); SQLEntrada.ParamByName('pPlaca').AsString := EdPlacaMov.Text; SQLEntrada.Open; if SQLEntrada.FieldByName('C.TIPO').AsString = 'A' then begin ChkTipoClienteMov.Checked[1]; end; end; // Está dando erro "Field not found C.TIPO", porém, o campo existe.