PRWEBMaster

Então, fiz o teste conforme passou o codigo acima, só que quando dou GRAVAR ele da baixa mais de 1 vez. O que preciso é que quando já aberto uma OF eu so posso fazer alteração se caso alterar o valor da quantidade. Não sei se é possivel. Muito obrigado

Tudo bem? Fiz o teste e deu o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) Dynamic SQL Error expression evaluation not supported /sistema_interno_hcs_v.1.0/hcs/ef_altera_of.asp, line 121 Nesta linha: oConn.execute("update TB_GERENCIAR_PRODUCAO set quant_estoque = quant_estoque-1 where EQUIPAMENTO = '"&equipamento&"'") Muito obrigado

Tudo bem pessoal Tenho uma pagina que gera um codigo O.S. e neste eu posso criar vários produtos neste mesmo numero de CÓDIGO. Quando vou colocar as informações de produto e a quantidade eu clico em GRAVAR ele altera as informações que coloquei neste formulario e grava tudo certinho, só que preciso fazer uma pagina do estoque, conforme vou colocando os produtos ele dando baixa na quantidade de estoque. Segue o código da pagina que altero com uma parte aonde dou baixa, so que toda vez que vou clicar no botão GRAVAR ele da baixa mais de 1 vez na quantidade de estoque. id_cliente = request.QueryString("id_cliente") nome_empresa = request.QueryString("nome_empresa") num_os = request.QueryString("no_os") 'Função para remover caracteres especiais dos números Function RemoveReal(valor) if (valor <> "") then RemoveReal = Replace(valor, ".", ",") 'Troca vírgula por ponto end if End Function id_ch = request.QueryString("id_ch") id_cliente = request.QueryString("id_cliente") num_os = request.QueryString("no_os") id = request.QueryString("id") nome_empresa = request.QueryString("nome_empresa") descricao = request.QueryString("descricao") sistema = request.QueryString("sistema") gerar_of_om = request.QueryString("gerar_of_om") descricao = Request.Form("descricao") departamento = Request.Form("departamento") situacao_of_om = Request.Form("situacao_of_om") equipamento = Request.Form("equipamento") gerar_cob = Request.Form("gerar_cob") solicitado_por = Request.Form("solicitado_por") urgente = Request.Form("opt") separado = Request.Form("opt10") fechado_por = Request.Form("fechado_por") v_unitario = RemoveReal(Request.Form("v_unitario")) v_total = RemoveReal(Request.Form("v_total")) valor_total = RemoveReal(Request.Form("valor_total")) sub_total = RemoveReal(Request.form("sub_total")) custo_envio = RemoveReal(Request.form("custo_envio")) outros = RemoveReal(Request.form("outros")) total_geral = RemoveReal(Request.form("total_geral")) transporte = Request.form("transporte") outras = Request.form("outras") observacoes = Replace(Request.form("observacoes"),"'","''") tipo_coleta = Request.form("opt2") quant_entregue = Request.form("quant_entregue") data_entregue = Request.form("data_entregue") quant_entregue = Request.form("quant_entregue") prod_pendente = Request.QueryString("prod_pendente") prod_pago = Request.QueryString("prod_pago") desconto = Request.form("desconto") data_saida = Request.Form("data_saida") 'Conexao tabela INTERBASE Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Firebird/Interbase® driver}; DBNAME=localhost:c:\Inetpub\wwwroot\sistema_interno_hcs_v.1.0\bd\BD_HCS.GDB; UID=SYSDBA;PWD=masterkey") 'Verificando quantidade de registros Set os = server.createobject("adodb.recordset") Set os = oConn.execute ("SELECT COUNT(*) AS temp FROM TB_GERAR_OF_OM_CAD_ITENS") if (os.eof) then set os = nothing set os = oConn.execute ("select * from TB_GERAR_F_M_C_I where id = '"&id&"'") end if num_rows = os("temp") os.Close() for i = 1 to num_rows id = Request.form("id_"&i) quant = Request.form("quant_"&i) quant_entregue = Request.form("quant_entregue_"&i) data_entregue = Request.form("data_entregue_"&i) quant_pendente = Request.form("quant_pendente_"&i) equipamento = Request.form("equipamento_"&i) obs_prod = Request.form("obs_prod_"&i) v_unitario = RemoveReal(Request.form("v_unitario_"&i)) v_total = RemoveReal(Request.form("v_total_"&i)) valor_total = RemoveReal(Request.form("valor_total_"&i)) prod_pendente = Request.form("opt1_"&i) prod_pago = Request.form("prod_pago_"&i) usuario_altera = session("usuario_altera") ip_altera = Request.ServerVariables("REMOTE_ADDR") set os = oConn.execute ("select * from TB_GERAR_OF_OM_CAD_ITENS where id = '"&id&"'") if not os.eof then if prod_pendente = "" then prod_pendente = "0" else prod_pendente = "1" end if Aqui está o codigo que da baixa no estoque: 'SELECIONE CODIGO DO PRODUTO (NO_OS DA TB_GERENCIAR_PRODUCAO E GRAVA NO_OS NO CAMPO ID_PRODUTO DA TABELA TB_GERAR_OF_OM_CAD_ITENS) set estoque = oConn.execute ("select * from TB_GERENCIAR_PRODUCAO where equipamento = '"&equipamento&"'") if not (estoque.eof) then 'Obtem campo com a quantidade atual do estoque quant_atual_estoque = estoque("quant_estoque") 'Faz a subtração do valor gravado pelo valor obtido do estoque nova_quant_estoque = quant_atual_estoque - quant 'Faz UPDATE na tabela do estoque com a nova quantidade oConn.execute("update TB_GERENCIAR_PRODUCAO set quant_estoque = '"&nova_quant_estoque&"' where EQUIPAMENTO = '"&equipamento&"'") end if 'Atualiza informaçoes no INTERBASE 'TB_GERAR_OF_CAD_ITENS' oConn.execute ("update TB_GERAR_OF_OM_CAD_ITENS Set situacao_of_om = '"&situacao_of_om&"', descricao = '"&descricao&"', solicitado_por = '"&solicitado_por&"', departamento = '"&departamento&"', urgente = '"&urgente&"',equipamento = '"&equipamento&"', quant = '"&quant&"', obs_prod = '"&obs_prod&"', v_unitario = '"&v_unitario&"', v_total = '"&v_total&"', sub_total = '"&sub_total&"', custo_envio = '"&custo_envio&"', outros = '"&outros&"', total_geral = '"&total_geral&"', transporte = '"&transporte&"', outras = '"&outras&"', observacoes = '"&observacoes&"', tipo_coleta = '"&tipo_coleta&"', quant_entregue = '"&quant_entregue&"', data_entregue = '"&data_entregue&"', quant_pendente = '"&quant_pendente&"', prod_pendente = '"&prod_pendente&"', prod_pago = '"&prod_pago&"', separado = '"&separado&"', desconto = '"&desconto&"', data_saida = '"&data_saida&"' WHERE id = " & cdbl(id)) set os1 = oConn.execute ("select * from TB_GERAR_F_M_C_I where id = '"&id&"'") 'Atualiza informaçoes no INTERBASE 'TB_GERAR_F_M_C_I' oConn.execute ("update TB_GERAR_F_M_C_I Set situacao_of_om = '"&situacao_of_om&"', descricao = '"&descricao&"', solicitado_por = '"&solicitado_por&"', departamento = '"&departamento&"', urgente = '"&urgente&"',equipamento = '"&equipamento&"', quant = '"&quant&"', obs_prod = '"&obs_prod&"', v_unitario = '"&v_unitario&"', v_total = '"&v_total&"', sub_total = '"&sub_total&"', custo_envio = '"&custo_envio&"', outros = '"&outros&"', total_geral = '"&total_geral&"', transporte = '"&transporte&"', outras = '"&outras&"', observacoes = '"&observacoes&"', tipo_coleta = '"&tipo_coleta&"', quant_entregue = '"&quant_entregue&"', data_entregue = '"&data_entregue&"', quant_pendente = '"&quant_pendente&"', prod_pendente = '"&prod_pendente&"', prod_pago = '"&prod_pago&"', separado = '"&separado&"', desconto = '"&desconto&"', data_saida = '"&data_saida&"' WHERE id = " & cdbl(id)) 'Atualiza informaçoes no INTERBASE 'TB_GERAR_OF_CAD' oConn.execute ("update TB_GERAR_OF_OM_CAD Set situacao_of_om = '"&situacao_of_om&"', solicitado_por = '"&solicitado_por&"', descricao = '"&descricao&"', departamento = '"&departamento&"', urgente = '"&urgente&"', total_geral = '"&total_geral&"', tipo_coleta = '"&tipo_coleta&"', separado = '"&separado&"', data_saida = '"&data_saida&"' WHERE no_os = "&Request.QueryString("no_os")) set os2 = oConn.execute ("select * from TB_GERAR_F_M_C where no_os = '"&no_os&"'") 'Atualiza informaçoes no INTERBASE 'TB_GERAR_F_M_C' oConn.execute ("update TB_GERAR_F_M_C Set situacao_of_om = '"&situacao_of_om&"', solicitado_por = '"&solicitado_por&"', descricao = '"&descricao&"', departamento = '"&departamento&"', urgente = '"&urgente&"', total_geral = '"&total_geral&"', tipo_coleta = '"&tipo_coleta&"', separado = '"&separado&"', data_saida = '"&data_saida&"' WHERE no_os = "&Request.QueryString("no_os")) else end if next set os = nothing set os1 = nothing set os2 = nothing ato = request.Form("opt3") dd10 = request.Form("opt12") dd15 = request.Form("opt4") dd30 = request.Form("opt5") dd45 = request.Form("opt6") dd60 = request.Form("opt7") dd75 = request.Form("opt14") dd90 = request.Form("opt8") dd120 = request.Form("opt9") dd135 = request.Form("opt13") dd150 = request.Form("opt11") forma_pagto = request.Form("forma_pagto") data_venc_pagto = Request.Form("data_venc_pagto") valor_pagto = Request.Form("valor_pagto") anotacao1 = Request.Form("anotacao1") numeracao = Request.Form("numeracao") banco = Request.Form("banco") cliente = Request.Form("cliente") agencia = Request.Form("agencia") Function conv_data(data_venc_pagto) dia = day(data_venc_pagto) if len(dia) < 2 then dia = "0" & dia end if mes = month(data_venc_pagto) if len(mes) < 2 then mes = "0" & mes end if ano = year(data_venc_pagto) conv_data = dia & "." & mes & "." & ano End Function data_venc_pagto = conv_data(data_venc_pagto) 'Verificando quantidade de registros Set campos = server.createobject("adodb.recordset") Set campos = oConn.execute ("SELECT COUNT(*) AS temp FROM TB_INFO_PAGTO") num_rows = campos("temp") campos.Close() for i = 1 to num_rows id_ch = Request.form("id_ch_"&i) data_venc_pagto = Request.form("data_venc_pagto_"&i) forma_pagto = Request.form("forma_pagto_"&i) anotacao1 = Request.form("anotacao1_"&i) valor_pagto = Request.form("valor_pagto_"&i) numeracao = Request.form("numeracao_"&i) banco = Request.form("banco_"&i) cliente = Request.form("cliente_"&i) agencia = Request.form("agencia_"&i) 'Atualiza informaçoes no INTERBASE 'TB_CAD_CHEQUES_OF' oConn.execute ("update TB_INFO_PAGTO Set ato = '"&ato&"', dd10 = '"&dd10&"', dd15 = '"&dd15&"', dd30 = '"&dd30&"', dd45 = '"&dd45&"', dd60 = '"&dd60&"', dd75 = '"&dd75&"', dd90 = '"&dd90&"', dd120 = '"&dd120&"', dd135 = '"&dd135&"', dd150 = '"&dd150&"', forma_pagto = '"&forma_pagto&"', data_venc_pagto = '"&conv_data(data_venc_pagto)&"', valor_pagto = '"&valor_pagto&"', valor_pago = '0', anotacao1 = '"&anotacao1&"', numeracao = '"&numeracao&"', banco = '"&banco&"', cliente = '"&cliente&"', agencia = '"&agencia&"' WHERE id_ch = " & cdbl(id_ch)) next set campos = nothing

Tudo bem pessoal? Não estou conseguindo resolver o meu problema. Quando mando rodar a pagina ele mostra 1000 registros numa pagina só, sendo que coloquei assim: 'CONECTA A TABELA DE CLIENTES CADASTRADOS '* Filtro NOME EMPRESA * if (nome_empresa <> "") then set cadastro = oConn.execute("SELECT * FROM TB_DADOS_CLIENTES WHERE nome_empresa LIKE '%" & Request.QueryString("nome_empresa") & "%' ORDER BY nome_empresa ASC") else set cadastro = oConn.execute("SELECT * FROM TB_DADOS_CLIENTES ORDER BY nome_empresa ASC") end if 'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset cadastro.PageSize = 2 'Criamos as Validações if cadastro.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>cadastro.PageCount then intpagina = cadastro.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if while not(cadastro.eof) id_cliente = cadastro("id_cliente") 'CONECTA A TABELA COBRANÇAS temp_sql = "SELECT * FROM TB_INFO_PAGTO_2 WHERE (id_cliente = " & cadastro("id_cliente") & ") AND (data_venc_pagto > '01/01/1990') AND " '* Filtro STATUS PAGTO * if (status_pagto <> "") then temp_sql = temp_sql & "(status_pagto = '" & status_pagto & "') AND " end if '* Filtro FORMA PAGTO * if (forma_pagto <> "") then temp_sql = temp_sql & "(forma_pagto = '" & forma_pagto & "') AND " end if '* Filtro DATA * IF (Request.QueryString("data_inicial") <> "") AND (Request.QueryString("data_final") <> "") THEN data_inicial = troca_dia_mes(Request.QueryString("data_inicial")) data_final = troca_dia_mes(Request.QueryString("data_final")) if data_final = "" then temp_sql = temp_sql & "cast(data_cobranca as date) >= cast('" & data_inicial & "' as date) AND " else if data_inicial = "" then temp_sql = temp_sql & "cast(data_cobranca as date) <= cast('" & data_final & "' as date) AND " else temp_sql = temp_sql & "cast(data_cobranca as date) >= cast('" & data_inicial & "' as date) AND cast(data_cobranca as date) <= cast('" & data_final & "' as date) AND " end if end if '* Finalizando filtro * temp_sql = Left(temp_sql,Len(temp_sql)-4) & "ORDER BY no_cob ASC" set tcobranca = oConn.execute(temp_sql) if not(tcobranca.eof) then ' MOSTRA NOME DO CLIENTE Muito obrigado

Não sei se está parte abaixo está no local correto da estrutura do relatório: 'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset cadastro.PageSize = 2 'Criamos as Validações if cadastro.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>cadastro.PageCount then intpagina = cadastro.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if while not(cadastro.eof) id_cliente = cadastro("id_cliente")

Não estou consiguindo paginar. Quando clico para carregar a pagina ele carrega todos os itens e não a quantidade que quero por pagina. Muito obrigado

Tudo bem pessoal? Estou quebrando a cabeça para desenvolver um relatório com paginação. Gostaria de ver a possíbilidade de verificarem se meu código está certo. Segue abaixo: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' technocurve arc 3 asp vb mv block1/3 start Dim moColor1, moColor2, moColor moColor1 = "#BCF7B9" moColor2 = "#CCCCCC" moColor3 = "#CCCCCC" moColor = moColor1 ' technocurve arc 3 asp vb mv block1/3 start Response.Buffer = FALSE Response.CacheControl = "no-cache" Response.AddHeader "Pragma","no-cache" Session.TimeOut = 1440 Server.ScriptTimeOut = 999.999 Session.LCID = 4106 'BRASIL id_cliente = request.QueryString("id_cliente") no_cob = request.QueryString("no_cob") no_os = request.QueryString("no_os") descricao = request.QueryString("descricao") data_fechado = request.QueryString("data_fechado") fechado_por = request.QueryString("fechado_por") status_pagto = Request.QueryString("status_pagto") forma_pagto = Request.QueryString("forma_pagto") nome_empresa = Request.QueryString("nome_empresa") set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Firebird/Interbase® driver}; DBNAME=localhost:c:\Inetpub\wwwroot\sistema_interno_hcs_v.1.0\bd\BD_HCS.GDB; UID=SYSDBA;PWD=masterkey") %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Relat&oacute;rio Cobran&ccedil;a Linear-HCS</title> <script type="text/javascript" src="validations.js"></script> <script type="text/javascript" src="jquery.js"></script> <script type="text/javascript" src="jquery.mask.js"></script> <script type="text/javascript"> $(document).ready(function(){ //Ativando as mascaras $('input:text').setMask(); }); </script> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } body,td,th { font-family: Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; } .style18 {color: #000000} .style53 {font-family: Verdana, Arial, Helvetica, sans-serif} .style14 {font-family: Calibri} .style70 { font-size: 12px } .style73 {font-size: 11px; font-family: Arial, Helvetica, sans-serif; } .style196 { color: #FF0000; font-family: Arial, Helvetica, sans-serif; } .style161 {color: #333333} .style197 { color: #FFFFFF; font-family: Arial, Helvetica, sans-serif; } .style198 { color: #000000; font-weight: bold; font-family: Arial, Helvetica, sans-serif; font-size: 10px; } .style79 { font-family: Arial, Helvetica, sans-serif; font-size: 10px; } .style80 {font-family: Arial, Helvetica, sans-serif} .bodyline { -moz-border-radius: 5px; -webkit-border-radius: 5px; font-size: 10px; color: #000000; font-family: Arial, Helvetica, sans-serif; border: 1px solid #333333; } .style43 {font-family: Calibri; font-size: 10px; color: #000000; font-weight: bold; } .bodyline1 { -moz-border-radius: 5px; -webkit-border-radius: 5px; font-size: 10px; color: #000000; font-family: Arial, Helvetica, sans-serif; border: 1px solid #333333; } --> </style> <link href="../css/campo_branco.css" rel="stylesheet" type="text/css"> <link type="text/css" media="screen" rel="stylesheet" href="colorbox/example5/colorbox.css" /> <script type="text/javascript" src="colorbox/colorbox/jquery.colorbox.js"></script> <script type="text/javascript"> $(document).ready(function(){ //Examples of how to assign the ColorBox event to elements $("a[rel=example1]").colorbox(); $("a[rel=example2]").colorbox({transition:"fade"}); $("a[rel=example3]").colorbox({transition:"none", width:"80%", height:"80%"}); $("a[rel=example4]").colorbox({slideshow:true}); $(".example5").colorbox(); $(".example6").colorbox({iframe:true, innerWidth:425, innerHeight:344}); $(".example7").colorbox({width:"100%", height:"100%", iframe:true}); $(".example7a").colorbox({width:"50%", height:"70%", iframe:true}); $(".example7b").colorbox({width:"40%", height:"50%", iframe:true}); $(".example8").colorbox({width:"100%", inline:true, href:"#inline_example1"}); $(".example9").colorbox({ onOpen:function(){ alert('onOpen: colorbox is about to open'); }, onLoad:function(){ alert('onLoad: colorbox has started to load the targeted content'); }, onComplete:function(){ alert('onComplete: colorbox has displayed the loaded content'); }, onCleanup:function(){ alert('onCleanup: colorbox has begun the close process'); }, onClosed:function(){ alert('onClosed: colorbox has completely closed'); } }); //Example of preserving a JavaScript event for inline calls. $("#click").click(function(){ $('#click').css({"background-color":"#f00", "color":"#fff", "cursor":"inherit"}).text("Open this window again and this message will still be here."); return false; }); }); </script> <style type="text/css"> <!-- .bodyline2 { -moz-border-radius: 5px; -webkit-border-radius: 5px; font-size: 10px; color: #000000; font-family: Arial, Helvetica, sans-serif; border: 1px solid #333333; } .bodyline3 { -moz-border-radius: 5px; -webkit-border-radius: 5px; font-size: 10px; color: #000000; font-family: Arial, Helvetica, sans-serif; border: 1px solid #333333; } .bodyline4 { -moz-border-radius: 5px; -webkit-border-radius: 5px; font-size: 10px; color: #000000; font-family: Arial, Helvetica, sans-serif; border: 1px solid #333333; } .style154 {font-size: 14px; font-weight: bold; } .style171 {color: #000000; font-size: 18px; font-weight: bold; } .bodyline5 { -moz-border-radius: 5px; -webkit-border-radius: 5px; font-size: 10px; color: #000000; font-family: Arial, Helvetica, sans-serif; border: 1px solid #333333; } .bodyline6 { -moz-border-radius: 5px; -webkit-border-radius: 5px; font-size: 10px; color: #000000; font-family: Arial, Helvetica, sans-serif; border: 1px solid #333333; } .campo_maior {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 14px; color: #000000; background-color: #FFFFFF; border: 1px solid #FFFFFF; font-weight: bold; } .style200 {font-size: 11px} .style202 { font-weight: bold; font-size: 11px; } a:link { text-decoration: none; } a:visited { text-decoration: none; } a:hover { text-decoration: none; } a:active { text-decoration: none; } .style203 {font-size: 10px} .style204 {font-weight: bold; font-size: 10px; } .bodyline7 { -moz-border-radius: 5px; -webkit-border-radius: 5px; font-size: 10px; color: #000000; font-family: Arial, Helvetica, sans-serif; border: 1px solid #333333; } .style205 {font-weight: bold} .style206 {font-size: 12} .style207 { font-size: 12; color: #000000; font-weight: bold; } --> </style> </head> <body> <% 'CONECTA A TABELA DE CLIENTES CADASTRADOS '* Filtro NOME EMPRESA * if (nome_empresa <> "") then set cadastro = oConn.execute("SELECT * FROM TB_DADOS_CLIENTES WHERE nome_empresa LIKE '%" & Request.QueryString("nome_empresa") & "%' ORDER BY nome_empresa ASC") else set cadastro = oConn.execute("SELECT * FROM TB_DADOS_CLIENTES ORDER BY nome_empresa ASC") end if while not(cadastro.eof) id_cliente = cadastro("id_cliente") 'CONECTA A TABELA COBRANÇAS temp_sql = "SELECT * FROM TB_INFO_PAGTO_2 WHERE (id_cliente = " & cadastro("id_cliente") & ") AND (data_venc_pagto > '01/01/1990') AND " '* Filtro STATUS PAGTO * if (status_pagto <> "") then temp_sql = temp_sql & "(status_pagto = '" & status_pagto & "') AND " end if '* Filtro FORMA PAGTO * if (forma_pagto <> "") then temp_sql = temp_sql & "(forma_pagto = '" & forma_pagto & "') AND " end if '* Finalizando filtro * temp_sql = Left(temp_sql,Len(temp_sql)-4) & "ORDER BY no_cob ASC" set tcobranca = oConn.execute(temp_sql) if not(tcobranca.eof) then ' MOSTRA NOME DO CLIENTE 'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset cadastro.PageSize = 2 'Criamos as Validações if cadastro.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>cadastro.PageCount then intpagina = cadastro.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if %> <table width="100%" border="0" cellspacing="1" cellpadding="0"> <tr> <td colspan="12" class="style206 style207"><%=cadastro("nome_empresa")%></td> </tr> <tr> <td bgcolor="#CCCCCC"><div align="center" class="style73 style202 style203 style205"> <div align="center">N. &ordm; COB.</div> </div></td> <td bgcolor="#CCCCCC"><div align="center" class="style204"><span class="style80">DATA COBRAN&Ccedil;A</span></div></td> <td bgcolor="#CCCCCC"><div align="center" class="style204"><span class="style80">TIPO PAGAMENTO</span></div></td> <td bgcolor="#CCCCCC"><div align="center" class="style204"><span class="style80">NUMERA&Ccedil;&Atilde;O</span></div></td> <td bgcolor="#CCCCCC"><div align="center" class="style204"><span class="style80">VENCIMENTO</span></div></td> <td bgcolor="#CCCCCC"><div align="center" class="style204"><span class="style80">A PAGAR</span></div></td> <td bgcolor="#CCCCCC"><div align="center" class="style204"><span class="style80">DATA PAGTO</span></div></td> <td bgcolor="#CCCCCC"><div align="center" class="style204"><span class="style80">VALOR PAGO</span></div></td> <td bgcolor="#CCCCCC"><div align="center" class="style204"><span class="style80">SITUA&Ccedil;&Atilde;O</span></div></td> <td width="161" bgcolor="#CCCCCC"><div align="center" class="style204">D&Eacute;BITO</div></td> <td bgcolor="#CCCCCC"><div align="center" class="style204">CR&Eacute;DITO</div></td> <td bgcolor="#CCCCCC"><div align="center"><strong>SALDO</strong></div></td> </tr> <% end if while not(tcobranca.eof) ' EXIBE COBRANÇAS %> <tr <% ' technocurve arc 3 asp vb mv block2/3 start Response.Write(" style='background-color:" & moColor & "' onMouseOver='this.style.backgroundColor=" & chr(34) & moColor3 & chr(34) & "' onMouseOut='this.style.backgroundColor=" & chr(34) & moColor & chr(34) & "'") ' technocurve arc 3 asp vb mv block2/3 start %>> <td width="65"><div align="center"><a class="example7" href="gerar_cobranca.asp?id_cliente=<%=tcobranca("id_cliente")%>&amp;no_cob=<%=tcobranca("no_cob")%>&amp;no_os=<%=tcobranca("no_os")%>"><span class="style70 style18 style14"><strong><span class="style73 style206"><%=tcobranca("no_cob")%></span></strong></span></a></div></td> <td width="125"><div align="center"><span class="style190 style190"><span class="style18"> <% set TABELA2 = oConn.execute ("SELECT * FROM TB_GERAR_COB_CAD WHERE no_os = '"&tcobranca("no_os")&"' ") while not(TABELA2.eof) data_cobranca = TABELA2("data_cobranca") TABELA2.MoveNext() wend %> </span></span><span class="style154"> </span></div></td> <td width="125"><div align="center" class="style161 style14 style70 style197"><span class="style18 style190 style79 style80 style203"> <% Select Case tcobranca("forma_pagto") Case "0" Response.write("A DEFINIR") Case "1" Response.write("BOLETO") Case "2" Response.write("BOLETO + NF") Case "3" Response.write("CART&Atilde;O BNDES") Case "4" Response.write("CHEQUE À VISTA") Case "11" Response.write("CHEQUE PRÉ") Case "5" Response.write("COBRAN&Ccedil;A MENSAL") Case "6" Response.write("DEP&Oacute;SITO") Case "7" Response.write("DINHEIRO") Case "10" Response.write("DOC") Case "12" Response.write("LEASING") Case "8" Response.write("OUTROS") Case "9" Response.write("TRANSFER&Ecirc;NCIA") End Select %> </span></div></td> <td width="125"><div align="center"><span class="style160 style161 style190 style190 style80"><%=tcobranca("numeracao")%> </span></div></td> <td width="125"><div align="center"><span class="style196 style53 style160 style190 style190"> <% if tcobranca("data_venc_pagto") = (Cdate("01/01/1990")) then response.write ("") else response.write(tcobranca("data_venc_pagto")) end if %> </span></div></td> <td width="125"><div align="center"><span class="style198"> <input name="valor_pagto_<%=i%>" type="text" class="campo_branco" id="v_total_<%=i%>" value="<%=ROUND(tcobranca("valor_pagto"),2)%>" size="10" alt="decimal"/> </span></div></td> <td width="125"><div align="center"><span class="style160 style161 style190 style200"><%=tcobranca("data_pago")%></span></div></td> <td width="125"><div align="center"><span class="style198"> <input name="valor_pago_<%=i%>" type="text" class="campo_branco" id="valor_pago_<%=i%>" value="<%=ROUND(tcobranca("valor_pago"),2)%>" size="10" alt="decimal"/> </span></div></td> <td width="125"><div align="center"><span class="style160 style161 style190 style190 style80"> <% Select Case tcobranca("status_pagto") Case "1" Response.write("A VENCER") Case "2" Response.write("CHEQUES PENDENTES") Case "3" Response.write("PROTESTADO") Case "4" Response.write("PAGO") Case "5" Response.write("VENCIDO") Case "6" Response.write("SEM CUSTO") End Select %> </span></div></td> <td><div align="center"><span class="style154"> <% soma2 = 0 set TABELA2 = oConn.execute ("SELECT * FROM TB_DEBITO WHERE no_cob = '"&tcobranca("no_cob")&"' ") while not(TABELA2.eof) soma2 = soma2 + Cdbl(TABELA2("valor_debito")) TABELA2.MoveNext() wend %> <span class="style171"> <input name="valor_debito" type="text" class="campo_branco" disabled="disabled" id="valor_debito" value="<%=ROUND(soma2,2)%>" size="10" alt="decimal"/> </span></span></div></td> <td><div align="center"><span class="style154"> <% soma3 = 0 set TABELA2 = oConn.execute ("SELECT * FROM TB_CREDITO WHERE no_cob = '"&tcobranca("no_cob")&"' ") while not(TABELA2.eof) soma3 = soma3 + Cdbl(TABELA2("valor_credito")) TABELA2.MoveNext() wend %> </span><span class="style171"> <input name="valor_credito" type="text" class="campo_branco" disabled="disabled" id="valor_credito" value="<%=ROUND(soma3,2)%>" size="10" alt="decimal"/> </span></div></td> <td><div align="center"><span class="style154"> <% pago = 0 set TABELA2 = oConn.execute ("SELECT * FROM TB_INFO_PAGTO_2 WHERE no_cob = '"&tcobranca("no_cob")&"' ") while not(TABELA2.eof) pago = pago + Cdbl(TABELA2("valor_pago")) TABELA2.MoveNext() wend var_novo_total = soma1 + soma2 - soma3 var_novo_total = ROUND(var_novo_total,2) %> </span><span class="style171"> <input name="v_total_cred_deb" type="text" class="campo_branco" id="v_total_cred_deb" value="<%=var_novo_total%>" size="10" alt="signed-decimal" /> </span></div></td> </tr> <% ' technocurve arc 3 asp vb mv block3/3 start if moColor = moColor1 then moColor = moColor2 else moColor = moColor1 end if ' technocurve arc 3 asp vb mv block3/3 start %> <tr> <% tcobranca.movenext Wend cadastro.MoveNext() intrec = intrec + 1 if cadastro.eof then response.write " " end if wend %> <td colspan="5"><div align="right" class="style79">TOTAL &Agrave; PAGAR:</div></td> <td><div align="center"><span class="style168 style14 style70"> <% set TABELA1 = oConn.execute ("SELECT * FROM TB_GERAR_F_M_C WHERE id_cliente =" & id_cliente & " order by no_os ASC") pagto = 0 while not(TABELA1.eof) if (v_status_pagto <> "") then set TABELA2 = oConn.execute ("SELECT * FROM TB_INFO_PAGTO_2 WHERE (no_os =" & TABELA1("no_os") & ") and (id_cliente =" & id_cliente & ") AND (status_pagto = '" & v_status_pagto & "') order by no_os ASC") else set TABELA2 = oConn.execute ("SELECT * FROM TB_INFO_PAGTO_2 WHERE (no_os =" & TABELA1("no_os") & ") AND (id_cliente =" & id_cliente & ") order by no_os ASC") end if while not(TABELA2.eof) pagto = pagto + Cdbl(TABELA2("valor_pagto")) TABELA2.MoveNext() wend TABELA1.MoveNext() wend %> </span><span class="style43"> <input name="valor_pagto_<%=i%>" type="text" class="campo_branco" id="valor_pagto_<%=i%>" value="<%=ROUND(pagto,2)%>" size="10" alt="decimal"/> </span></div></td> <td><div align="right" class="style79">TOTAL PAGO:</div></td> <td><div align="center"><span class="style168 style14 style70"> <% set TABELA1 = oConn.execute ("SELECT * FROM TB_GERAR_F_M_C WHERE id_cliente =" & id_cliente & " order by no_os ASC") pago = 0 while not(TABELA1.eof) if (v_status_pagto <> "") then set TABELA2 = oConn.execute ("SELECT * FROM TB_INFO_PAGTO_2 WHERE (no_os =" & TABELA1("no_os") & ") and (id_cliente =" & id_cliente & ") AND (status_pagto = '" & v_status_pagto & "') order by no_os ASC") else set TABELA2 = oConn.execute ("SELECT * FROM TB_INFO_PAGTO_2 WHERE (no_os =" & TABELA1("no_os") & ") AND (id_cliente =" & id_cliente & ") order by no_os ASC") end if while not(TABELA2.eof) pago = pago + Cdbl(TABELA2("valor_pago")) TABELA2.MoveNext() wend TABELA1.MoveNext() wend %> </span><span class="style43"> <input name="valor_pago_<%=i%>" type="text" class="campo_branco" id="valor_pago_<%=i%>" value="<%=ROUND(pago,2)%>" size="10" alt="decimal"/> </span></div></td> <td>&nbsp;</td> <td valign="middle">&nbsp;</td> <td width="173"><div align="left" class="style190"> <div align="right"><span class="style35"><strong>&nbsp;TOTAL COBRAN&Ccedil;AS: </strong></span></div> </div></td> <td width="173"><div align="center"><span class="style154"> <% soma1 = 0 set TABELA2 = oConn.execute ("SELECT * FROM TB_GERAR_F_M_C WHERE id_cliente =" & id_cliente & " ") while not(TABELA2.eof) soma1 = soma1 + Cdbl(TABELA2("total_geral")) TABELA2.MoveNext() wend %> </span><span class="style171"> <input name="total_geral" type="text" class="campo_branco" disabled="disabled" id="total_geral" value="<%=ROUND(soma1,2)%>" size="10" alt="decimal"/> </span></div></td> </tr> </table> <div></div> <div align="center"> <% 'Criamos as Valida&ccedil;&otilde;es para a navega&ccedil;&atilde;o "Anterior" e "Pr&oacute;ximo" if intpagina > 1 then %> <a href="relatorio_cobranca.asp?pagina=<%=intpagina+1%>">Anterior</a> <% end if if StrComp(intpagina,cadastro.PageCount)<>0 then %> <a href="relatorio_cobranca.asp?pagina=<%=intpagina + 1%>">Pr&oacute;ximo</a> </div> <span class="style70"></span> </body> </html> <% end if tcobranca.close Set tcobranca = Nothing %> Muito obrigado

Tudo bem pessoal? Estou tendando fazer com que está função abaixo ela grave no campo status_pagto = 5 após 3 dias da data que está gravada já na tabela. oConn.execute ("UPDATE TB_INFO_PAGTO_2 SET STATUS_PAGTO = '5' WHERE DATA_VENC_PAGTO < '" & date() & "' and STATUS_PAGTO = '1' and STATUS_PAGTO = '1' and FORMA_PAGTO = '1' and FORMA_PAGTO = '2' and FORMA_PAGTO = '14' and FORMA_PAGTO = '15' and FORMA_PAGTO = '11' and FORMA_PAGTO = '16' and FORMA_PAGTO = '17' and FORMA_PAGTO = '18' ") Como que faço? Muito obrigado

Tudo bem pessoal? Tenho uma dúvida, a um campo numa tabela chamado total_geral e preciso colocar um campo limite_credito aonde determino o crédito para um determinado cliente, ao digitar um valor no campo limite_credito ele verifica se o valor total é igual ao total_geral se caso o valor total for maior q o valor limite ele da uma mensagem e barra a compra algo assim. Teriam como me dar uma ajuda? Muito obrigado

Não consegui resolver este problema. Muito obrigado.

Poderia me ajudar com mais detalhes, pois sou iniciante em javascript. Muito obrigado

Eu precisava que mostrasse esse conteudo: <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#FFFFFF"> <tr bordercolor="#C0C0C0"> <td width="4%" height="14" bordercolor="#C0C0C0" bgcolor="#E2E2E2" class="style124 style123"><div align="center" class="style18 style68 style14"><span class="style84 style83 style60 style206"><strong>QUANT. SOLIC.</strong></span></div></td> <td width="5%" bordercolor="#000000" bgcolor="#E2E2E2"><div align="center" class="style166 style14"> <div align="center" class="style107 style206"><strong><span class="style139 ">QUANT</span>. ENTREGA</strong></div> </div></td> <td width="5%" bordercolor="#000000" bgcolor="#E2E2E2"><div align="center" class="style155 style14"><strong>DATA ENTREGUE</strong></div></td> <td width="5%" bordercolor="#C0C0C0" bgcolor="#E2E2E2" class="style123 style124"><div align="center" class="style206 style14"><strong>QUANT.<br /> PENDENTE</strong></div></td> <td width="45%" bordercolor="#C0C0C0" bgcolor="#E2E2E2" class="style124 style123"><div align="center" class="style18 style68 style14 style206"><strong>PRODUTO(s)</strong></div></td> <td width="15%" bordercolor="#C0C0C0" bgcolor="#E2E2E2" class="style124 style123"><div align="center" class="style18 style68 style14 style206"><strong>N.&ordm; S&Eacute;RIE</strong></div></td> <td width="5%" bordercolor="#C0C0C0" bgcolor="#E2E2E2" class="style124 style123"><div align="center" class="style14 style206"><strong>PROD. PEND.</strong></div></td> <td width="7%" bordercolor="#C0C0C0" bgcolor="#E2E2E2" class="style124 style123"><div align="center" class="style18 style68 style14 style206"><strong>VALOR UNIT.</strong></div></td> <td width="9%" bordercolor="#C0C0C0" bgcolor="#E2E2E2" class="style124 style123"><div align="center" class="style68 style18 style11 style14 style206">VALOR TOTAL</div></td> </tr> <% set itens = oConn.execute ("select * from TB_GERAR_OF_OM_CAD_ITENS where no_os = "& teste("no_os") &" ORDER BY data_abertura ASC") if (itens.eof) then set itens = nothing set itens = oConn.execute ("select * from TB_GERAR_F_M_C_I where no_os = "& teste("no_os") &" ORDER BY data_abertura ASC") end if i = 1 while (not itens.EOF) %> <tr bordercolor="#C0C0C0"> <td class="style124 style123"><div align="center" class="style18 style14 style206"><%=itens("quant")%></div></td> <td class="style124 style123"><div align="center" class="style14 style206"><span class="style84 style83 style54"><strong><%=itens("quant_entregue")%></strong></span></div></td> <td bordercolor="#000000" class="style46"><div align="center" class="style14 style206"><span class="style54 style83 style84"><%=itens("data_entregue")%></span></div></td> <td class="style124 style123"><div align="center" class="style14 style206"><span class="style84 style83 style54"><strong><%=itens("quant_pendente")%></strong></span></div></td> <td class="style124 style123"><div align="center" class="style18 style14 style206"> <div align="left" class="style36"><%=itens("equipamento")%> </div> </div></td> <td class="style124 style123"><span class="style36 style14 style206"><%=itens("no_serie")%></span></td> <td class="style124 style123"><div align="center" class="style14 style206"><span class="style84 style83 style54"><strong> <% prod_pendente = itens("prod_pendente") if prod_pendente = "1" then Response.Write ("PENDENTE") else if prod_pendente = "0" then Response.Write ("OK") end if end if %></strong></span></div></td> <td class="style124 style123"><div align="center" class="style43 style18 "><span class="style43"> <input name="v_unitario_<%=i%>" type="text" class="campo_branco" id="v_total_<%=i%>" value="<%=ROUND(itens("v_unitario"),2)%>" size="10" alt="decimal"/> </span></div></td> <td class="style124 style123"><div align="center" class="style36 style18 "> <input name="v_total_<%=i%>" type="text" class="campo_branco" id="v_total_<%=i%>" value="<%=ROUND(itens("v_total"),2)%>" size="10" alt="decimal"/> </div></td> <% itens.MoveNext() i = i + 1 wend set itens = oConn.execute("select * from TB_GERAR_OF_OM_CAD_ITENS where no_os = "& teste("no_os") &" ORDER BY data_abertura ASC") %> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><span class="style54 texto"><strong>OBSERVA&Ccedil;&Otilde;ES: </strong> <br /> <%=gerar_os_itens("observacoes")%> </span></td> </tr> </table></td> </tr> <tr> <td height="6" colspan="7" bgcolor="#D7F2FF"><span class="style190">-</span></td> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 teste.MoveNext() i = i + 1 wend %> </tr> </table> </td> </tr> </table> <div align="center"><span class="style23"><span class="style50">TOTAL COBRAN&Ccedil;A(s):</span> <span class="style206"><%=(teste_total)%></span></span></div> <table width="45%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><table width="50%" border="0" align="center"> <tr> <td><div align="center"> <% If MM_offset <> 0 Then %> <a href="<%=MM_moveFirst%>"><img src="First.gif" width="15" height="14" border="0" /></a> <% End If ' end MM_offset <> 0 %> </div></td> <td><div align="center"> <% If MM_offset <> 0 Then %> <a href="<%=MM_movePrev%>"><img src="Previous.gif" width="15" height="13" border="0" /></a> <% End If ' end MM_offset <> 0 %> </div></td> <td><div align="center"> <% If Not MM_atTotal Then %> <a href="<%=MM_moveNext%>"><img src="Next.gif" width="15" height="13" border="0" /></a> <% End If ' end Not MM_atTotal %> </div></td> <td><div align="center"> <% If Not MM_atTotal Then %> <a href="<%=MM_moveLast%>"><img src="Last.gif" width="15" height="14" border="0" /></a> <% End If ' end Not MM_atTotal %> </div></td> </tr> </table></td> </tr> </table> </body> </html> <% teste.Close() Set teste = Nothing %>

Tudo bem galera do forum? Eu novamente, com as dúvidas. Como que faço para conferir se o valor digitado num determinado campo é igual ao valor q está gravado no banco de dados em outro campo? Tipo assim: Se na tabela_1 tiver o valor no campo: total=10,00 no outro campo que digitar o valor 10,00 ele confere com o campo total, se for menor ou maior que 10,00 ele da um alerta e não deixa sair da tela enquanto não mudar este valor. Muito obrigado.

Seguinte, eu precisava que aparecesse o conteudo de uma outra pagina vinculado ao ID ao passar o nome. Muito obrigado

Tudo bem pessoal? Encontrei pela net essa função que vai me ajudar muito: <script type="text/javascript"> function mostraLayer(obj){ var div = document.getElementById(obj).style; div.display = "block"; } function escondeLayer(obj){ var div = document.getElementById(obj).style; div.display = "none"; } </script> <style type="text/css"> #divLayer{ position: absolute; top: 25px; left: 100px; border: solid 1px #696969; width: 50%; height: 50%; display: none; background-color: #D3D3D3; padding: 10px; } </style> <div id="divLayer" name="nm_divLayer"> </div> Só que dentro da DIV eu coloco o conteudo que mostra as informações do banco de dados, conforme vou passando o mouse nos numeros que mostram na tela tem que aparecer as informações de cada registro q vou passando o mouse, só que coloquei o conteudo que aparece as informações do banco de dados so q ele repete. Poderia me ajudar? Muito obrigado