Claudio Volles

Esse é bem simples, mas funciona R<%=Replace(Replace(Replace(Replace(FormatCurrency(RS_IMP_SUM("valor")), ",", "x"), ".", "b"), "b", ","), "x", ".")%>

A dica é criar 2 novos campos na tabela, ANO e mês e enviar os dados para uma tb_temp e re-alimentar a base. Assim você poderá tratar isso facilmente outra opção é cria uma VIEW ---------------------------------------------- create view SOMANDO_MES_ANO as select mês=datepart(month,emissao),ano=datepart(year,emissao),SUM(valor_da_verba) valor from tb_verbas group by emissao select mês,ano,SUM(valor) from SOMANDO_MES_ANO group by mês,ano -------------------------------------------

Obrigado Marcos, funcionou. CLaudio

OK, testei e funciona, só que não estou conseguido fazer ele funcionar da forma que preciso, pois a solicitação de deletar sai do FORM action="deletar.asp", o problema é que nessa página eu coloquei a SCRIPT e não está funcionando corretamente, pois eu tenho 1 destino do FORM e 2 destinos do IF. Claudio

O correto é você colocar o período da SOMA no where. select datas,SUM(vendas_R$) from TABELA Where mês=month(data_entered) and ano=year(data_entered) group by datas

Olá! Preciso pedir ao usuário que confirme que realmente ele quer deletar o registro X da tabela Y, já tentei com javascript e não tive sucesso. Grato! Claudio Volles

beleza Andréa, vou testa isso. Claudio Sua dica foi muito boa. O problema era que avariável estava recebendo o numero como texto e foi só mudar isso. Graças ao response.write "passou" BJS Claudio

Ai está Andréa <% i=1 for i=1 to 20 loop_valor_verba=Request.form("FORM_valor_verba"&(i)) 'por padrão esse valor quando ausente é 1 loop_cod_produto=Request.form("FORM_cod_produto"&(i)) loop_nom_produto=Request.form("FORM_nom_produto"&(i)) if i<=Count_Solicitacao then UPDATE_VERBAS_DML="update tb_verbas_deletar set Tipo_Verba='"&EDITANDO_TIPO_VERBA&"',Data_BI='"&EDITANDO_DT_BI_ANO&"-"&EDITANDO_DT_BI_MES&"-"&EDITANDO_DT_BI_DIA&"'," UPDATE_VERBAS_DML=UPDATE_VERBAS_DML+"Data_Negociacao='"&EDITANDO_DT_NEG_ANO&"-"&EDITANDO_DT_NEG_MES&"-"&EDITANDO_DT_NEG_DIA&"'," UPDATE_VERBAS_DML=UPDATE_VERBAS_DML+"Data_Competencia='"&EDITANDO_DT_COMP_ANO&"-"&EDITANDO_DT_COMP_MES&"-"&EDITANDO_DT_COMP_DIA&"'," UPDATE_VERBAS_DML=UPDATE_VERBAS_DML+"Data_Vencimento='"&EDITANDO_DT_VENC_ANO&"-"&EDITANDO_DT_VENC_mes&"-"&EDITANDO_DT_VENC_DIA&"'," UPDATE_VERBAS_DML=UPDATE_VERBAS_DML+"Data_Realizacao='"&EDITANDO_DT_REALIZ_ANO&"-"&EDITANDO_DT_REALIZ_MES&"-"&EDITANDO_DT_REALIZ_DIA&"'," UPDATE_VERBAS_DML=UPDATE_VERBAS_DML+"Dia_BI="&EDITANDO_DT_REALIZ_DIA&",Mes_BI="&EDITANDO_DT_REALIZ_MES&",Ano_BI="&EDITANDO_DT_REALIZ_ANO&"," UPDATE_VERBAS_DML=UPDATE_VERBAS_DML+"Num_Contrato="&EDITANDO_NUM_CONTRATO&",Valor_da_Verba=replace('"&loop_valor_verba&"',',','.'),Historico='"&EDITANDO_HSTORICO&"',Pedidos_Envolvidos='"&EDITANDO_PED_ENVOLV&"'," UPDATE_VERBAS_DML=UPDATE_VERBAS_DML+"Produto='"&loop_nom_produto&"',Cod_Produto="&loop_cod_produto&",Forma_Pagamento='"&EDITANDO_PAGAMENTO&"',Centro_Custo='"&EDITANDO_CENTRO_CUSTO&"'," UPDATE_VERBAS_DML=UPDATE_VERBAS_DML+"usuario='"&USUARIO_LOGADO&"',atualizado_em=getdate() where solicitacao="&EDITANDO_SOLICITACAO&" and Cod_Produto="&loop_cod_produto set UPDATE_VERBAS = cn.Execute (UPDATE_VERBAS_DML) else if loop_valor_verba>1 then INSERT_VERBA_DML="insert tb_verbas_deletar select top 1 Solicitacao,Emissao,Cod_Cliente,Cod_Rep,Nome_Cliente,CNPJ,Tipo_Verba,Data_BI,Data_Negociacao,Data_Competencia, " INSERT_VERBA_DML=INSERT_VERBA_DML&"Data_Vencimento,Data_Realizacao,Dia_BI,Mes_BI,Ano_BI,Num_Contrato,Valor_da_Verba="&loop_valor_verba&",Historico,Pedidos_Envolvidos,Produto="&loop_nom_produto&"," INSERT_VERBA_DML=INSERT_VERBA_DML&"Cod_Produto="&loop_cod_produto&",Forma_Pagamento,Centro_Custo,Banco,Agencia,Conta,nro_raiz_cnpj,usuario,atualizado_em" INSERT_VERBA_DML=INSERT_VERBA_DML&" from tb_verbas_deletar" INSERT_VERBA_DML=INSERT_VERBA_DML&" where solicitacao="&EDITANDO_SOLICITACAO set INSERT_VERBA = cn.Execute (INSERT_VERBA_DML) end if end if next %>

Amigos, preciso novamente da ajuda de vocês. Eu tenho um formulário de inserção de metas por produtos. A pessoa pode atualizar os dados e nessa atualização também pode fazer novas inclusões, então eu fiz o seguinte: <% ‘Essa variável receberá o numero total de linhas que já foi inserida e que a pessoa quer editar: Ex: 5 set COUNT_SOLICITACAO= cn.Execute ("select count(solicitacao) as total_solicitacao from tb_verbas_deletar where solicitacao="&NUM_SOLICITACAO) for i=1 to 20 valor_verba=Request.form("FORM_valor_verba"&(i)) cod_produto=Request.form("FORM_cod_produto"&(i)) nom_produto=Request.form("FORM_nom_produto"&(i)) ‘ aquele valor “5” deixará apenas as 5 primeiras linhas serem atualizadas as demais deverão ser inseridas if 1<=Count_Solicitacao then ATUALIZA os VALORES e NOMES ‘esse está funcionando bem Else INSERT ‘esse não está funcionando no IF ELSE, mas o script de insert está ok. End if %> Está rodando sem problemas, mas não está fazendo o INSERT

Outro dia eu usei uma fonte de animais e precisei trabalhar a imagem. Tive que criar um objeto qualquer do lado da fonte e selecionei os dois e logo depois eu fiz uma fusão e pronto, consegui editar a fonte. Ante disso eu tentei converter em curva e não funcionou.

Funcionou, muito obrigado

Estou tentando somar uma variável dentro do FOR e não estou obtendo sucesso <% i=1 soma_total=0 for i=1 to 20 valor=REQUEST.FORM("valor"&(i)) soma_total=soma_total+valor %> <% next %> Total:<%=soma_total%> Foi só postar aqui que acabou funcionando. Obrigado!

você não precisa incrementar o i. tire essa linha= i = i + 1

Queiro fazer um select e retornar apenas os dados dos ultimos 10 minutos de uma seleção, ex: select data, pedido, cod_cliente,cliente from tb_pedidos where pedido=10 and data=data-2minutos

Funcionou, muito obrigado. CLaudio