Jhonas

Quando tento definir o cliente_id como not null retorna erro 1452 - Cannot add or update a child row: a foreign key constraint fails. Quando tento definir o cliente_id como não null retorna erro 1452 - Não é possível adicionar ou atualizar uma linha filha: uma restrição de chave estrangeira falha. Obs: O erro 1452 - Não é possível adicionar ou atualizar uma linha filha: uma restrição de chave estrangeira falha ocorre quando o registro de dados é inicialmente inserido na Tabela Estrangeira. Exemplo: https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=https://w

É um dos links dessa lista ... favor pesquisar https://www.google.com.br/search?source=hp&ei=ne1kX5yoLMy-5OUP_fKj4As&q=https%3A%2F%2Faddons.mozilla.org%2Fpt-BR%2Ffirefox%2Fad...ication%3Dfirefox&o que=https%3A%2F%2Faddons.mozilla.org%2Fpt-BR%2Ffirefox%2Fad...ication%3Dfirefox&gs_lcp=CgZwc3ktYWIQA1DsF1jsF2CAI2gBcAB4AIABqAGIAagBkgEDMC4xmAEAoAECoAEBqgEHZ3dzLXdperABAA&sclient=psy-ab&ved=0ahUKEwjc6u_VnPPrAhVMH7kGHX35CLwQ4dUDCAY&uact=5 abraço

Veja o segundo link .... faça a tradução da pagina para o portugues e leia com atenção. Tem exemplos e informações de como utilizar no delphi abraço

Isso parece ser bug de versão que já foi corrigido tente esses links: http://opensource.spotify.com/cefbuilds/index.html https://www.briskbard.com/index.php?lang=en&pageid=cef https://www.google.com.br/search?source=hp&ei=mNZcX9r3HYai5OUPxrqL4A0&q=Embarcadero\CEF4\CEF4Delphi-master\demos&o que=Embarcadero\CEF4\CEF4Delphi-master\demos&gs_lcp=CgZwc3ktYWIQA0oFCAgSATFKBQgJEgExSgUIChIBMlCCCliCCmCcEmgAcAB4AIAB2gGIAZIDkgEFMC4xLjGYAQCgAQKgAQGqAQdnd3Mtd2l6sAEA&sclient=psy-ab&ved=0ahUKEwjao-HL5ePrAhUGEbkGHUbdAtwQ4dUDCAY&uact=5 abraço

Você acha que em um futuro irá ocorrer problemas com essas versões anteriores de 32 bits ? Pode ficar tranquilo que não vai ocorrer problema algum ... entretanto se voce desenvolver programas em 64 bits e quiser rodar em um sistema de 32 bits, ai já vai ter problemas. abraço

Voce não colocou qual é a versão do seu delphi ... entretanto, uma aplicação feita para 32 bits deve rodar sem problemas em 64 bits. Desenvolvi programas em delphi 7 usando o windows XP ( 32 bits ) que rodam ( sem modificação alguma ) tranquilamente no windows 10 ( 64 bits ). Mas existem algumas limitações relacionadas a componentes de terceiros ou legados. Se a maioria dos componentes usados são VCL, não precisa modificar nada. Links sobre o assunto: https://www.google.com.br/search?ei=IqBXX8WqD7m95OUP2JaOuA4&q=migrar+projeto+32+bits+para+64+bits+delphi&o que=migr

Se voce testar com outra cor, acontece o mesmo ? Procure por referencia ao evento no help do Lazarus Obs: Acho que tem uma solução nesse link https://lazarus-br.narkive.com/ffOZoLms/mudar-a-cor-de-texto-de-uma-celula-do-dbgrid abraço

Erro: Tipo incompatível para arg nº. 1: Obtido "String constante", esperado "TGraphicsColor" Erro: identificador idents não é membro de "DefaultDrawDataCell" Obs: Não dá pra advinhar o código que voce colocou no evento : procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

Se voce digitar : 12.345.678,90 resultado 12345678.90 Ok... mas isso é ainda mais simples procedure TForm1.Button1Click(Sender: TObject); var s : string; begin Edit1.text := StringReplace(Edit1.Text, '.', '', [rfReplaceAll]); Edit1.text := StringReplace(Edit1.Text, ',', '', [rfReplaceAll]); s := trim(Edit1.text); Insert(',',s, Length(s)-1); Edit1.text := s; end; Obs: voce tambem pode digitar somente os numeros, sem ponto ou virgula que vai ficar como está querendo abraço

Voce pode simplificar seu código por esse: procedure TForm1.Edit1Exit(Sender: TObject); begin if pos('.',Edit1.Text) > 0 then Edit1.Text := StringReplace(Edit1.Text, '.', ',', []); Edit1.Text := CurrToStrF(StrToCurr(Trim(Edit1.Text)),ffNumber,2); end; Exemplo: Se voce digitar : 12345678.90 resultado 12.345.678,90 se digitar : 123456,79 resultado 123.456,79 Só tem que digitar o numero e na parte dos centavos, voce pode usar ponto ou virgula e depois dar um <Enter> ou <Tab> para mudar de campo. Na saida do campo o valor é automat

This problem has only 2 solutions: It is either a problem with the printer drive, or with the logic board. Try changing the printer driver ... install the LX-80 driver for testing. If it doesn't work, replace the printer cable. In the latter case, replace the logic board. hug

decimal (M, D) altura decimal(1,2), Exibe um erro se um campo tiver um valor de casa decimal maior do que a parte do número inteiro. # 1427 - Para float (M, D), double (M, D) ou decimal (M, D), M deve ser> = D (coluna 'algo'). o correto: altura decimal(2,2), ou altura decimal(3,2), ou altura decimal(4,1), ... etc abraço

Veja nesses links https://www.projetoacbr.com.br/forum/topic/53484-dbgrid-no-lazarus/ https://lazarus-br.narkive.com/ffOZoLms/mudar-a-cor-de-texto-de-uma-celula-do-dbgrid https://www.devmedia.com.br/forum/dbgrid1-canvas-font-color-clred-não-funciona/147808 abraço

Veja a alteração no código da impressão unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; ComboBox1: TComboBox; procedure FormActivate(Sender: TObject); procedure Button1Click(Sender: TObject); Procedure Memo_Print(Conteudo:TStrings); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation Uses Printers, QRPrntr; {$R *.dfm} procedure TForm1.FormActivate(Sender:

type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; ComboBox1: TComboBox; procedure FormActivate(Sender: TObject); procedure Button1Click(Sender: TObject); Procedure Memo_Print(Conteudo:TStrings); private { Private declarations } public { Public declarations } end; Obs: Se voce copiar o codigo todo não vai dar erro abraço