Edvaldo1361303230 Posted June 1, 2004 Report Share Posted June 1, 2004 Ok. Um abraco aos amigos. Tenha um browze numa tela de venda: ------------------------------------------------ codigo descricao dos produtos quant unit total ------------------------------------------------ 0012 acucar criscal 2,50 1,00 2,50 TOTAL DA COMPRA 2,50 Criei uma funcao com @ say normal para atualizar o campo TOTAL DA COMPRA. O problema e' que quando chamo a funcao para atualizar o campo de TOTAL DA COMPRA, apos apagar ou inserir um novo registro, aparece a mensagem: error objects/8 No object MSG.: UNDEFINED: HWND O @ SAY esta' assim: @ 10.23,0.2 say LTRIM(TRANSFORM(XVTNOTA,"@E 999,999.99"))FONT ... COLORS.... Agradeco desde ja pela ajuda. Edvaldo Quote Link to comment Share on other sites More sharing options...
vagner Posted June 1, 2004 Report Share Posted June 1, 2004 Edivaldo, O ideal é criar um Say com objeto e simplesmente refrescar esse objeto, senão vc irá ficar criando sempre um novo objeto. Faça assim : cSay := Tran(.....) @ ??,?? Say oSay Var cSay .... e qdo quiser mudar o total, é só fazer o seguinte : cSay := Tran(NovoTotal) oSay:Refresh() Abraços Vagner Wirts São Paulo-Brasil Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted June 2, 2004 Author Report Share Posted June 2, 2004 Grande Vagner, um abraco. Mais claro que isso impossivel. Obrigadao Um abraco Edvaldo Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted June 21, 2004 Author Report Share Posted June 21, 2004 Ok. Vagner, um abraco. O oSay e' maravilhoso, embora nao consegui fazer funcionar com if, ou sejam: Se o valor da compra for < usar fonte grande e se for > usar fonte pequena: Tenho que fazer 2 oSay e 2 refresh() ?? Obrigado Edvaldo Quote Link to comment Share on other sites More sharing options...
vagner Posted June 21, 2004 Report Share Posted June 21, 2004 Olá Edvaldo, Bom se eu fosse você preferiria mudar a cor de escrita, acho que destaca mais , agora quanto a sua pergunta, bom nunca fiz assim mas acho que pode funcionar oSay:oFont := TFont():New( "Ms Sans Serif", 0, Iif(suaCondicao,-9,-20) ) oSay:Refresh() Abraços Vagner Wirts São Paulo-Brasil Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.