sacofritoxd

Na verdade é que os valores dependem dos campos da fatura contidos na nota fiscal (ou não), e o usuário colocara o valor de cada parcela. Assim : o usuario coloca o numero de parcelas de um determinado valor. Atualmente meu sistema calcula o valor de cada parcela e ele vai teclando enter e gravando as parcelas na tabela de caixa. Pois bem, o problema é que nem sempre as parcelas tem seus valores iguais (valortotal / numero de parcelas). Exemplo Parcela Valor 1 - 70,00 2 - 30,00 Se eu fosse fazer dividindo daria duas parcelas de 50,00. Entendeu ? Agradeço a atenção.

Bom dia pessoal. alguém poderia me dar uma ajuda lógica para fazer parcelamento de valores ? Preciso disso pois terei a necessidade de lançar estas informacoes num formulario de entrada de notas fiscais. Até agora consegui apenas fazer em parcelas iguais, mas quando não é o caso estou meio em duvida. Abraços e agradeço desde já.

Ola pessoal. Gostaria de uma ajuda de vocês. Estou armazenando os dados dos itens dentro de sessions nomeadas de produtos e qtd. E cada item é separado do outro com um ";". Mas estou tendo problemas para atualizar dinamicamente a qtd de cada item. Como eu poderia fazer isso com php? O jeito que fiz no momento é assim, mas não funciona corretamente pois pega o ultimo item da table. if ((count($qtd)) > 0){ for($i = 0; $i <= (count($qtd) -1); $i++){ // ZEBRAR A TABELA if (($i % 2) == 0){ echo "<tr style='background-color: silver'>"; } else{ echo "<tr style='background-color: white'>"; } echo "<td><input type='hidden' name='item' value='$i'> $i</td>"; echo "<td style='text-align:center'>"?><a href="confirmaitem.php?ad=1&removeitem=<?=$i?>" target="_self" title="Excluir"><img src="img/logo_excluir.png"></a> <? echo "</td>"; unset($descricaoprod,$valorcheio,$valor_site); $sql = "select descricao as descricaoprod, vl_venda as valorcheio, vl_site as valor_site from produtos where idprodutos=" . $produtos[$i]; $db->select($sql); echo "<td> $descricaoprod[0]</td>"; echo "<td> <input type='text' size='3' name='qtd$i' id='qtd$i' value=\"" . $qtd[$i] . "\"> "; ?><input type="image" src="img/ok.png" name="enviar" style="width: 20px; height: 20px"/> <? echo "</td>"; echo "<td>". number_format($valor_site[0], 2, ',','') . "</td>"; echo "<td> ". number_format($qtd[$i] * $valor_site[0], 2, ',',' ')."</td>"; $total = $total + ($qtd[$i] * $valor_site[0]); $total_itens = $total_itens + $qtd[$i]; // FECHA LINHA DO PRODUTO echo "</tr>"; } } Neste site funciona do jeito que eu quero. já consegui fazer a deleção dos itens. Mas estou enrascado na auteração da qtd. www.mesatenista.net/loja

já tentei sim, e não da certo. Ai ele verifica se o parametro esta ou não vazio, o caso que coloquei retorna erro pois não existe parametro

Deu certo parcialmente. O problema é que preciso disso para um cadastro. Ele será usado tnato para editar quanto para inserir um novo. então ao mesmo tempo que a pagina tera a url > cadprod.php ela poderá tambem ter cadprod.php?idproduto=1 (usado para atualizar o registro) Se não tem nada no get ele retorna erro. Meu objetivo é o seguinte: Se existir um parametro no GET, farei uma rotina em jquery para retornar os campos do banco de dados. Deu pra entender?

Nooossa que vacilo meu, é verdade mesmo. Vou tentar com php.. nem pensei nisso .. mals minha .. já volto contando os resultados

Boa tarde galera. Estou com um problema. Como faço para ao abrir a pagina, verificar se existe algum parametro no load do form e jogar este valor em um input hidden? Estou pensando em fazer o seguinte: na manutençao do cadastro de produto, o usuario clicará em um link e este link jogara para a pagina de cadastro o id daquele produto que foi clicado para fazer a alteração. Isso servirá para que eu manipule melhor na hora de gravar/editar o registro com php. Encontrei uma funçao que retorna o valor GET via javascript, agora preciso saber cmo jogar este valor no input text alguém pode me ajudar ?

não entendi amigo. Essa parte já esta funcionando. Eu usei o else if pois tenho 3 radio buttons. E apenas 2 deles geram filtros. Tipo SAIDA, ENTRADA ou TODOS. então apenas 2 deles precisam disso. Oque preciso é a formula para filtras espaço de datas, como se fosse um between.

Estou tentando passar espaço de datas para um relatório em CR XI. Mas a sintaxe não esta correta. alguém tem experiencia nisso sabe fazer? Oque eu fiz está assim if optVencimento.checked = true then fml := fml + '{movimento.vencimento}>=' + txtdt1.text + ' and ' + '{movimento.vencimento}<=' + txtdt2.text + ' and ' else if optPagamento.checked = true then fml := fml + '{movimento.pagamento}>=' + txtdt1.text + ' and ' + '{movimento.pagamento}<=' + txtdt2.text + ' and ' else fml := fml + '{movimento.datamovimento}>=' + txtdt1.text + ' and ' + '{movimento.datamovimento}<=' + txtdt2.text + ' and '; Mas esta dando erro na formula. Segue a rotina inteira da impressão. Preciso disso via delphi 7. if optSaida.Checked = true then fml := '{movimento.tipo} =' + quotedstr('S') + ' and ' else if optentrada.checked = true then begin fml := '{movimento.tipo} =' + quotedstr('E') + ' and '; end; if VerificaData(txtdt1.text) and verificadata(txtdt2.text) then begin if optVencimento.checked = true then else if optPagamento.checked = true then else end; if txtCodFornecedor.text <> '' then fml := fml + '{movimento.id_fornecedor} =' + txtcodfornecedor.text + ' and '; if cmbFormaPagto.text <> '' then fml := fml + '{movimento.tipopagto} =' + cmbFormaPagto.text + ' and '; if txtCodUsuario.text <> '' then fml := fml + '{movimento.id_usuario}=' + txtCodUsuario.text; if Rightstr(fml, 5) = ' and ' then fml := LeftStr(fml, length(fml) - 5); if optSaida.Checked = true then begin crpe1.ReportName := ExtractFilePath(ParamStr(0)) + '\Financeiro2.rpt'; crpe1.ParamFields.ByName('tipo', '').CurrentValue := 'Contas a pagar'; end else crpe1.ReportName := ExtractFilePath(ParamStr(0)) + '\Financeiro.rpt'; if optentrada.checked = true then crpe1.ParamFields.ByName('tipo', '').CurrentValue := 'Contas a receber'; crpe1.ParamFields.ByName('espacodatas', '').CurrentValue := txtdt1.text + ' até ' + txtdt2.text; Crpe1.Selection.Formula.text := fml; crpe1.Execute;

a maioria dos links deu pagina não encontrada. MAs encontrei uma solução. Basta colocar um parameter field e no delphi fazer assim. crpe1.ParamFields.ByName('espacodatas', '').CurrentValue := txtdt1.text + ' até ' + txtdt2.text; Abraço

Como passo valor da apliação para uma formula field no crystal ? Em vb eu sei fazer, mas com delphi me parece que é diferente. Um exemplo quero passar um texto para um field no cabeçalho do meu rpt. Como faço isso pelo delphi ? Ex +- como seria no VB6. report.formulas(indice) = variavel; No delphi já tentei de tudo parecido com isso e não da certo.

Oque esta errado no meu comando sql? Quero acrescentar e/ou tirar alguma quantidade do meu estoque com filtros vindos do formulario. alguém me ajuda a descobrir o porque não esta funcionando? Aqui um exemplo do trecho que esta ocorrendo o problema, ou melhor não esta ocorrendo nada, nem erro e nem operação correta. gravaitem.Close; gravaitem.sql.text := ('insert into entrada_itens(identrada,id_produto, vl_compra,qtd, item, id_usuario) VALUES'); gravaitem.sql.add ('(' + cmbcontrole.text +', ' + txtcodprod.text + ', ' + StringReplace(txtPrecoCusto.Text, ',','.',[rfReplaceAll])); gravaitem.sql.add (',' + StringReplace(txtQtd.Text, ',','.',[rfReplaceAll]) + ',' + inttostr(varItem) + ',' + inttostr(ULogin.varUsuario) + ')'); // ShowMessage(gravaitem.sql.text); gravaitem.ExecSQL; gravaitem.close; gravaitem.SQL.Text := ('update produtos set estoque= (estoque + ' + StringReplace(txtQtd.Text, ',','.',[rfReplaceAll]) + ') where idprodutos=' + txtCodProd.Text); gravaitem.execsql;

Amigo, obrigado pela ajuda. A solução era mais simples do que qualquer coisa que podiamos imaginar. A crpe32.dll que eu tinha funcionava, ela apenas tinha que estar tambem na pasta raiz da aplicação.

então o 11 não funciona no delphi 7 mesmo? Amigo, acho que voce esta enganado. Se o CR 11 não funcionasse não haveria um VCL para ele correto ? Agora consegui mudar a mensagem de erro. Esta dando incompatibilidade de versões. Eu tenho uma crpe32.dll versão 11.5. x .. E a que esta dentro do delphi é 11.0 Sabe onde posso arrumar ?

Ok. Estou usando odbc mesmo.. Obrigado pelo esclarecimento

Estou com um problema ao usar o Crystal reports 11 com o delphi 7 Se eu tento colocar um CRPE em algum form para chamar meu arquivo *.rpt ele me da erro logo que inicio o projeto. Instalou numa boa mas não funciona. Eu pesquisei um pouco e encontrei essa dll e coloquei-a no system32. Mas quando tento registrar, ela não registra. Ocorre erro de compatibilidade. O erro no delphi é o seguinte : error:104 failed to obtain version information from crpe32.dll - GetCrpeVersion Windows number 2 - O sistema não pode encontrar o arquivo especificado já estou desesperado por causa deste problema. Preciso urgentemente finalizar meu sistema, e falta apenas a parte de relatórios. ;alguém pode favor me ajude.

Ola Jhonas. Meu ingles é bem básico então vou perguntar aqui mesmo, espero que não se encomode. então aquele recurso/programa que instala no delphi- o ZEOS funciona com o principio do odbc ? Pois aqui na maquina da empresa não tem o Driver ODBC e conecto no mysql mesmo assim tanto pelo PHP(xamp) quanto pelo delphi(ZEOS). não entendi muito bem o conceito

Como faço para formatar valor de uma sql feita naquele sql editor do delphi ? Preciso disso pois estou usando datasourte e zquery para povoar um dbgrid, e está tudo sem formatação, ou seja feio pra dedéu rs. Obrigado a quem puder ajudar. Minha sql é esta select p.descricao, item.item, item. id_produto, item.qtd, item.vl_compra, (item.qtd * item.vl_compra) as total from entrada_itens item INNER JOIN produtos p on (item.id_produto = p.idprodutos) where item.identrada = :entrada

Ola galera, queria saber se tem como eu conectar um relatorio em crystal reports 9 sem ter o driver odbc do mysql instalado na maquina ? Se sim alguém pode me explicar como se faz ? Ou passar algum link onde tenha a explicação? Preciso muito desta solução, desde já obrigado.

Já consegui obrigado A quem interessar. consulta.Close; consulta.SQL.text := ('select * from produtos where codbarras =' + QuotedStr(txtCodBarras.Text)); consulta.Open; if not consulta.eof then begin TXTCODIGO.Text := consulta.fieldbyname('idprodutos').text; end;

Ola galera. alguém tem algum material para que eu possa em um form ou um cm dialog, procurar uma foto, depois copia-la para uma pasta na raiz do sistema com um nome que eu escolher, então salvar o caminho desta imagem em um campo no bd, para depois exibi-la no cadastro em um picture box ou image. Sei fazer isto em VB, mas como sou iniciante em delphi não sei como fazer. alguém pode me ajudar ou passar algum tutorial?

Ola galera tudo bem? Estou mesmo precisando da ajuda de voces. Como retorno o valor de uma query para preencher os campos de um cadastro? tipo Oque estou tentando esta assim procedure TfrmCadProd.txtCodigoChange(Sender: TObject); begin if txtcodigo.Text <> '' then begin consulta.SQL.add ('select * from produtos where idprodutos:=' + txtCodigo.Text); consulta.Open; if not consulta.eof then begin pf_MostraCampos; end else begin pf_LimpaCampos; end; end else begin pf_LimpaCampos; end; end; procedure TfrmCadProd.pf_LimpaCampos(); begin txtCodBarras.Text = ''; cmbDescricao.text = ''; txtEstoque.text = ''; txtvalor.Text = ''; end; procedure TfrmCadProd.pf_MostraCampos(); begin txtCodBarras.Text = consulta.Fields('codbarras').value cmbDescricao.text = consulta.Fields('descricao').value txtValor.text = consulta.Fields('vl_venda').value if consulta.Fields('ativo').value = 'S' then begin optSim.checked = true; end else begin optNao.checked = true; end; end; MAs não esta dando certo...alguém pode me ajudar, por favor?

Bom dia galera. Como faço para montar um sql para que retorne um numero X de registros com sua soma. Ex: tenho uma tabela de itens das vendas e uma de produto Como faço para somar em todos os registros e que me retorne os X mais vendidos. não quero fazer um loop para retornar isso.

Boa tarde galera. Como faço para inserir uma imagem dentro do texto? Tipo esta imagem http://www.google.com.br/imgres?q=imagem+d...:429,r:20,s:152

Voce tem alguma rotina no form_keypress que avança automaticamente para o proximo campo ?