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