Ir para conteúdo
Fórum Script Brasil

William - TI

Membros
  • Total de itens

    133
  • Registro em

  • Última visita

Tudo que William - TI postou

  1. OK. mais uma vez te agradeço pela atenção. ate o funcionamento do programa eu entendi copiei algumas funçoes para o meu projeto e e deu os erros que você me ajudou a resolver, o meu problema que estava com um pouco de preça para resolver esta questão (ai fiz dois botõs um visualizar e outro imprimir) por enquanto esta resolvido desta forma mais voltarei a analizar o código como você me sugeriu e descobri o que fiz errado.. muito obrigado pela atenção.
  2. Amigo Bom Dia. Eu sei fazer isto em MySQL as vezes o FireBird tem este recurso (isto eu não sei), mais pelo que pesquisei temsim mas faz o teste as vezes funciona seria assim INSERT INTO banco.tabela-destino (campo1, campo2, campo3...) SELECT campo1,campo2,campo3... FROM banco.tabela-origem; caso não de certo poste ai que tentamos outra opção abraços.
  3. Amigo mais uma vez realmente estava passando o nome da impressora errado. agora não da mais erro exite algo errado ainda no codigo pois mesmo imprimindo ele não passa pela função segue abaixo o codigo novo. "procedure TfrmRecibo.bbImprimirClick(Sender: TObject); var hprinter:thandle; bytesneeded,numjobs,i,ii:cardinal; pj:pjobs; Driver,Port,Device : String; DeviceMode : THandle; begin //impressora SetLength(Driver,255); SetLength(Port,255); SetLength(Device,255); Printer.GetPrinter(PChar(Device),PChar(Driver),PChar(Port),DeviceMode); application.CreateForm(TqrNew_Rec_imp, qrNew_Rec_imp); qrNew_Rec_imp.Preview; label1.Caption :=Device; hprinter := getcurrentprinterhandle(label1.Caption); pj := AllocMem(bytesneeded); if not EnumJobs(hprinter,0,1000,2{1},pj,bytesneeded,bytesneeded,numjobs) then RaiseLastWin32Error; if numjobs<>0 then begin (AQUI ESTA O ERRO SEMPRE RETORNA ZERO MESMO IMPRIMINDO OU NÃO) if strToint(getstatus(pj^.PagesPrinted))>0 then begin Showmessage('imprimiu'); end; end; ClosePrinter(hprinter); qrNew_Rec_imp.Destroy; end; " MAIS UMA VEZ GRATO PELA ATENÇÃO
  4. Caro amigo primeiramente gostaria de te agradecer pela atenção é isto mesmo que estou precisando. porem não consegui passar o exemplo para meu projeto sexe abaixo o codigo fonte e o erro erro. procedure TfrmRecibo.bbImprimirClick(Sender: TObject); var hprinter:thandle; bytesneeded,numjobs,i,ii:cardinal; pj:pjobs; begin application.CreateForm(TqrNew_Rec_imp, qrNew_Rec_imp); qrNew_Rec_imp.Preview; hprinter := getcurrentprinterhandle('recibo'); pj := AllocMem(bytesneeded); if not EnumJobs(hprinter,0,1000,2{1},pj,bytesneeded,bytesneeded,numjobs) then RaiseLastWin32Error; if numjobs<>0 then begin if strToint(getstatus(pj^.PagesPrinted))>0 then begin Showmessage('imprimiu'); end; end; ClosePrinter(hprinter); qrNew_Rec_imp.Destroy; end; e o erre a ora que retorno da impressão é este: System error. Code:1801 the printer name is invalid mais uma vez grato pela atenção
  5. Bom Dia, Estou precisando de uma ajuda de vocês! Gostaria saber se realmente foi impresso um relatório na impressora, uso quickreport, é o seguinte gravo o nome de quem imprimiu em uma tabela porem as vezes os usuario entram no relatorio apenas para tirarem um duvida e não imprimem apenas visualizam o relatorio queira só gravar o nome dele se eles clicarem na impressora para imprimir e se realmente imprimir. isto é possivel? Obrigado.
  6. Bom dia Caro amigo, aconselho você a fazer no select buscar a data certa COM O PERIODO, 'select * from CAIXA where TIPO='+QuotedStr('E') and (ata between "0000-00-00" and "0000-00-00") //depois dtmdlClube.clntdtstAuxiliar.First; while not dtmdlClube.clntdtstAuxiliar.eof do begin valor :=valor + dtmdlClube.clntdtstAuxiliar.fieldbyname('valor').asFloat; end; caso você queira manter seu select como esta é só while not dtmdlClube.clntdtstAuxiliar.eof do begin if (dtmdlClube.clntdtstAuxiliar.fieldbyname('valor').asDataTimer >0000-00-00) and (dtmdlClube.clntdtstAuxiliar.fieldbyname('valor').asDataTimer <0000-00-00) then begin valor :=valor + dtmdlClube.clntdtstAuxiliar.fieldbyname('valor').asFloat; end; end; é mais ou menos isso só postei co codgo não testei qualquer coisa posta ai.. Te mais...
  7. Desculpa a demora amigo para responder mais segue as dicas do nossos amigos Micheus ou Eder que vai dar tudo certo, boa Sorte até mais.
  8. Caro amigo Sou novo por aqui mais se emtendi bem sua pergunta é so fazer assim StringGrid1.Cells[stringGrid1.Col,StringGrid1.Row] :=StringGrid1.Cells[stringGrid1.Col,StringGrid1.Row] +"texto". onde testo e o valor que você deve inserio... qualquer duvida poste ai.... te mais...
×
×
  • Criar Novo...