Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Esse é o caminho ... use o QRGroup e deixe a propriedade HasChield como true .... a banda filha do grupo é que contera os dados agrupados dentro do grupo abraço
  2. dclmcn~1.cab não é campo e sim um arquivo compactado contendo varios outros arquivos para a instalação abraço
  3. Jhonas

    Arquivo texto

    Se o valor do currency for 12300000000005,10 o valor do edit1 será 12300000000005,10 Edit1.text := Format('%18.2f', [CurrencyEdit1.Value]); abraço
  4. Nesse caso você deve dar um clean-build ou então vá em Project/Options e clique na aba Compiler. A opção Debug information deve estar marcada. abraço
  5. A maneira de resolver esse problema está na definição correta do campo exemplo: BLOB sub_type 1 segment size 80 CHARACTER SET WIN1252 Nesse caso não acontecerá mais o erro mesmo que o campo esteja vazio abraço
  6. ERRO 1311. Arquivo de Recurso não encontrado:c:\Documents and settings\administrador\meusdocumentos\david\delphi7\dclmcn~1.cab Verifique se o arquivo existe e se voce tem permissão para acessá-lo. OBS: o arquivo que ele está pedindo é o dclmcn~1.cab abraço
  7. Em um deles voce vai achar a sua resposta abraço
  8. Faça um teste no campo do DBMemo antes de salvar... se estiver vazio atribua como valor apenas um único caracter por exemplo o ponto '.' abraço
  9. Algumas sugestões: http://3d2f.com/programs/13-538-oneview-download.shtml http://www.giveawayoftheday.com/soft/677567/ http://www.sourcecodeonline.com/details/textrafilters.html Exportando para XLS: form3.QuickRep1.ExportToFilter(TQRXLSFilter.Create('c: este.xls')); abraço
  10. Faça um teste no campo data antes de salvar... se estiver vazio ignore, ou seja, não atribua o valor do DateEdit ou MaskEdit ao campo da tabela. A data padrão 30/12/1899 00:00:00 será gravada se houver atribuição de valor de um campo data vazio abraço
  11. O que pode estar acontecendo é que o texto deve estar començando em uma determinada coluna, e o seu comprimento está estrapolando, provocando uma quebra no texto para a proxima linha. experimente imprimir em uma posição de coluna menor abraço
  12. voce não entendeu .... remova-o do projeto e depois compile .... dai voce adiciona-o novamente e fica tudo certo mas não esqueça de deixar ( fsNormal ) antes de compilar abraço
  13. Jhonas

    Cupom Fiscal

    Eu preciso ter firma aberta como desenvolvedor de sistema? Não ... mas vai precisar registrar o seu software mais informações veja http://scriptbrasil.com.br/forum/index.php...st&p=565814 Meu Delphi precisa esta licenciado? Não precisa... mas o seu software terá que comtemplar todas as rotinas necessárias para emissão da NFe Componente para NFe http://scriptbrasil.com.br/forum/index.php...st&p=577134 abraço
  14. Jhonas

    Dbgrid

    Uma das maneiras seria esta: procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (Column.Field.FieldName = 'QUANT1') OR (Column.Field.FieldName = 'QUANT2') then begin if Query1.FieldByName ('QUANT1').Value = Query1.FieldByName ('QUANT2').Value then begin DBGrid1.Canvas.Font.Color:= clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end else begin DBGrid1.Canvas.Font.Color:= clBlue; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; end; abraço
  15. Para imprimir um campo Memo em um componente vdoprint, voce deve ler o conteudo linha a linha do memo e jogar para uma variavel dentro do vdoprint ... use um comando for para fazer o loop de leitura e impressão ao mesmo tempo. abraço
  16. Isso acontece porque foi criado um vinculo com o Form1 pai ( fsMDIForm )... mesmo mudando a propriedade para ( fsNormal ) o vinculo não é desfeito, então para resolver o problema, voce deve deletar o Form2 e cria-lo novamente. abraço
  17. Veja qual é o tipo de fonte e tamanho que está usando. abraço
  18. Voce terá que usar o Delphi For PHP ... existem outras possibilidades mas não tão simples de se fazer abraço
  19. Se alguém estiver interessado, pode postar o resultado neste tópico. abraço
  20. Veja este exemplo http://www.devmedia.com.br/articles/viewcomp.asp?comp=350 abraço
  21. Se voce usou Font.Size := fsCondensed; significa que os caracteres foram condensados , ou seja , agrupados mais proximos uns dos outros. Então para colocar o caracter novamente na posição correta, voce terá que dar mais espaços ... entendeu ? exemplo; imagine o espaço normal 1 2 3 4 5 6 7 8 9 0 agora o mesmo espaço condensado 1234567890 por isso tem que dar mais espaços na coluna para imprimir no mesmo lugar anterior Print(85, qDestinatario.FieldByName('Nome_Fantasia').AsString, true); Veja o exemplo: { Imprime um cabeçalho de detail e avança para para linha seguinte apenas quando imprimir a última coluna } Print(00,'Código'); Print(10,'Nome'); Print(26,'E-mail'); Print(54,'Linha', True); { Avança + duas linhas e imprime o número da página } NewLine(2); Print(00,'Página ' + Format('%3.3d', [CurrentPage]), True); Print(00,''); // voltar a posição inicial de paragrafo abraço { Imprime um traço e avança para linha seguinte } Replicate(00, 80);
  22. voce pode tentar com QuickReport1.PreviewFinished(sender); abraço
  23. Voce deve usar o componente VDODmPrinter Utilizado para impressão rápida (modo DOS). Específico para impressoras matriciais, opera com padrão Epson, e utiliza o Spool de impressão do Windows exemplo: abraço
  24. Veja esse link http://www.google.com/search?sourceid=navc...p;Button=Buscar abraço
  25. Jhonas

    componente ModLink

    Leia todos: Arquiteturas de Sistemas de Automação Industrial utilizando CLPs http://www.getec.cefetmt.br/~edilson/Arqui...ustrialCLPs.pdf Padrão de acesso a dados OPC e sua implementação em um driver OPC-MODBUS http://www.cpdee.ufmg.br/~seixas/PaginaSDA...s/PadraoOPC.PDF Protótipo de rede industrial utilizando o padrão serial RS485 e protocolo MOSBUS http://campeche.inf.furb.br/tccs/2000-II/2...chelcunhavf.pdf MODBUS RTU TCP ASCII SLAVE ActiveX Control V1.0.0 http://baixar7.com/modbus-rtu-tcp-ascii-sl....zip/4c55c18912 abraço
×
×
  • Criar Novo...