evertonviana

Bom dia! É por isso que eu gosto muito de ASP, as coisas tem "n" maneiras de funcionarem. Agradeço ao Fercosmig e ao Ricardo que tambem ajudaram, mas eu não saco nada de VB.Script, então ficou meio "salgado" pra mim... Boa Bareta, sua idéia foi muito boa, funciona tipo uma loja Virtual(carrinho de compras), mudei o sistema para sua logica de pensamento e funcionou. Pra ficar como base de consulta, o problema foi solucionado da seguinte maneira: Tela que gera o resumo da folha salarial: <% 'Faz uma limpeza antes de salvar, se houve alguma tentativa sem conclusão de gerar a mesma folha, apaga os registros da base temporaria sql10 = "Select * from salario_os_temp where cod_referencia = '"&referencia&"'" Set remover = Server.CreateObject("ADODB.Recordset") remover.open sql10, conex, 3,3 while not remover.eof if not remover.eof then remover.delete end if remover.movenext wend %> <%while not mostra.eof%> <% 'recupera o numero da OS, pelo registro do contas a pagar os = mostra("os") 'Com os numeros das Os, seleciona os registros sql3 = "select * from os where numero = "&os&"" Set mostra2 = Server.CreateObject("ADODB.Recordset") mostra2.open sql3, conex2, 3,3 'Abre conexão e salva na base temporaria o numero da OS e Numero de referencia dessa folha salarial sql5 = "select * from salario_os_temp" Set salva_temp = Server.CreateObject("ADODB.Recordset") salva_temp.open sql5, conex, 3,3 salva_temp.addnew salva_temp("cod_referencia") = referencia salva_temp("os") = mostra("os") salva_temp.update %> O mesmo codigo acima é aplicado para o contas a pagar, porem com select em itens de tipo "VALE" Na hora de baixar, basta recuperar os itens dessas tabelas auxiliadoras(temporarias), que tenham o numero de referencia igual ao codigo de indexação do registro da folha salarial. Abraço

Fernando, boa tarde! primeiro desculpem a demora pra responder, estava super enrrolado... Ok, consegui quebrar a String com o SPLIT, porem estou com duvida na consulta dos codigos. Vou tentar explicar melhor pra vocês entenderem o que preciso: Essa parte do sistema, faz a baixa de determinada folha de pagamento gerada. Essa string que salvei anteriormente, delimitada por virgulas, contem codigos de identificação de registros do contas a pagar, referente a serviços que foram realizados pelo determinado funcionario. Logo, quando dou baixa na folha de pagamento( ou seja, quando sinalizo para o sistema que paguei o funcionario), preciso que esses registros (do contas a pagar), sejam fechados(baixados) da mesma forma. Porem não faço a minima ideia de como recuperar 1 codigo por vez(que esta delimitado por virgulas), para que possa executar a função de UPDATE no campo status de "Aberto" para "Quitado". Estou aceitando sugestões, caso precise mudar a forma de pensamento...Ou uma solução para essa! Obrigado pela ajuda

Tenta isso: AgendaData BETWEEN #"&data_inicio&"# and #"&data_final&"# Mas acho que você vai ter que especificar um periodo inicial e no final você usa o curdate()...

Galera, boa tarde! Em uma aplicação, salvei codigos separados por virgulas em um campo tipo MEMO. Porem a minha duvida é na hora de resgatar esses codigos e fazer consultas. Como faço para resgatar os codigos e fazer o sistema entender que cada virgula separa um codigo diferente? Obrigado

Boa tarde! Obrigado por responder...E desculpe, mas eu não havia encontrado nem no forum e nem na internet. Como eu disse, o que eu encontrei não havia funcionado. De qualquer forma, obrigado novamente o procedimento funcinou

ninguém?

Salve galera! Bati em um problema aqui, já procurei pela internet e nada que achei funcionou! Meu formato de datas é dd/mm/aaaa, assim que recupero do BD(ACCESS). Gostaria de saber como converto no formato AAAA/MM/DD no ASP...? No aguardo

Tente transformar os dois valores para do tipo LONG, pois ai vai comparar número com número. if cLng(session("valor_pago")) > cLng(mostra("valor")) then Matou a charada meu amigo, eu já tinha tentado essa conversão, mas de outra maneira que achei na internet, que provavelmente esta errada... Enfim, valeu!

Galera, a situação é a seguinte: 'se o valor pago for maior que valor previsto, redireciona para pagina de juros if session("valor_pago") > mostra("valor") then Response.Redirect"baixa_aPagar_juros.asp" else Response.Redirect"salva_baixa_aPagar.asp" end if Não esta funcionando, qualquer que seja o valor, menou ou maior ele esta redirecionando para a pagina de juros... O tipo de campo do item mostra("valor") é moeda no BD...

Vlw fernando, resolveu!

Salve galera, estou querendo de scobrir o porque o codigo abaixo não identifica o caminha especificado em strEnd = Left...: Dim strEnd Dim s_Senha s_Senha = request.form("pwd") if s_Senha = "" then response.redirect("index.asp") strEnd = server.mappath("/") strEnd = left(strEnd, len(strEnd)-3) & "..\database\mdb_config\config.ini" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objAbrirAQV = objFSO.OpenTextFile(strEnd, 1) Dim stag,ssenha,slog, scmp stag = "" ... Abraços

Brother! Resolveu e salvou minha vida! Vlw!

Galera, bom dia! Preciso muito que isso funcione, segue a linha e posteriormente digo o problema: sql = "select * from os where posicao = 'a' and analise = 'Financeiro' and os_de = 'lab' or os_de = 'lab_p'" Problema: Até os_de = 'lab', a instrução é entendida perfeitamente porem após o OR, parece que a instrução é ignorada. A sintaxe esta errada?

PuTZ! valeu FUNCIONOU!

Galera, bom dia! A duvida é a seguinte, tenho a seguinte situação: De 1 a 15 = Mensal De 16 a 30 = Quinzenal De 31 a 90 = Semanal De 91 em diante = FullTime Como fazer essa condição, seja por If/Then/Else ou via Case, em 1 mesma pagina...? Já tentei "n" coisas e nunca fica direito...

Bom dia, Darkdemo! Beleza, mas isso eu já até tinha colocado no problema, sei dessa parte, queria saber mesmo se conforme for selecionando os itens(produtos), eles devem ser gravador no banco de dados? E se alguém teria uma loja virtual simplificada para entender como é feito todo esse processo, simplificado...

Bom dia a todos! Na aplicação que venho montando, estou implantando um modulo para que o comercial da empresa, monte as propostas pelo sistema. Logo tenho a seguinte situação: nas propostas comerciais que necessitam de discriminação de produtos, Ex.: Usaremos 50 Metros de cabo UTP, 70 RJ45 e bla, bla e bla..., precisaria acrescentar esses itens a proposta a partir de itens que foram registrados na base de dados de produtos, de forma que o comercial possa inserir esses itens de acordo coma necessidade de uso no serviço. Até aqui tenho tudo na minha cabeça. Porem não faço a mínima idéia de como fazer, pensei em fazer da mesma maneira que na loja virtual, que você insere itens no "carrinho de compras", peguei na internet lojas virtuais prontas, para entender como era feito esse processo, mas fui frustrado pela complicação que a maioria faz no processo de inserção do carrinho de compras. Enfim, preciso de uma ajuda para entender a essencial da loja virtual(que acredito ser o que preciso). Duvida principal: * Quando inserimos um produto no carrinho de compras, esse ID do produto é inserido em uma session, ou é salvo na base de dados, tipo: registro: Compra = 1, iD produto = 2, mais um item adicionado ficaria assim: Compra = 1, id produto=4, ou seja na compra 1 tenho 2 produtos... Caso alguém tenha uma loja virtual simplificada, e quiser me indicar para aprender, agradeço. Ou qualquer dica a mais que estejam a fim de dizer, estou a todo ouvidos! Obrigado!

Amigos, boa tarde! Tenho a seguinte situação em uma intranet que administro, tenho alguns itens como: <li class="submenu"><a href="#">Prospecções</a> <ul class="menu"> <li class="item"><a href="java script:janela('../relatorios/pro/rel_pro_per.asp',500,910)">Por período</a></li> <li class="item"><a href="java script:janela('../relatorios/pro/rel_pro_cli.asp',500,910)">Por Cliente</a></li> </li> </ul> <li class="submenu"><a href="#">Equipamentos</a> <ul class="menu"> <li class="item"><a href="java script:janela('../relatorios/equip/rel_cli_cod.asp',500,910)">Lista de equipamentos</a></li> </li> </ul> Nota-se que as pessoas podem visualizar o caminho dos arquivos de paginas, gostaria de saber se tem como fazer com que não se visualize essas partes quando o usuário pedir pra visualizar o código fonte... No aguardo

O tópico acabou de salvar minha vida! Vlw"!

Bem, só para fechar, acabei fazendo como o Leandro SM sugeriu! Abraços!

Matou Fercosmig! Era exatamente isso! Valeu!

sql3 = "select TOP 1 * from inventario where equipamento LIKE '"&session("cod_cli")&"%' order by equipamento DESC" Set cria_equip = Server.CreateObject("ADODB.Recordset") cria_equip.open sql3, conex1, 3,3 teste = cria_equip("equipamento") + 1 A idéia é após obter o código do cliente(que é o inicio da numeração dos equipamentos), organiza-los decrescentemetne. Após isso, pegar o resultado e adicionar + 1 a numeração, para obter uma numeração nova, acrescentando um novo equipamento. Deu pra entender ou enrrolou? o problema todo é que o Order By não ta compreendendo a sequencia dos numeros... Vlw!

Boa tarde, Jow! Sim esta funcionando, é porque eu não quis complicar muito no exemplo, mas o Select esta assim, pois tem um LIKE no meio. Mas independente disso, o Order By continua não entendendo a orde da numeração... Algo mais?

Galera, A dificuldade é a seguinte, tenho o seguinte Select: sql = "select * from inventario where equipamento order by equipamento ASC" A consulta retorna os códigos dessa forma: 101 102 113 13 14 15 16 (...) Como posso fazer com que o ORDER BY entenda que a contagem seria 99, 100,101,102 etc etc?

Opa, valeu! E desculpa a ignorância!