Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
  • Total de itens

    7.184
  • Registro em

  • Última visita

Tudo que kuroi postou

  1. é só usar exatamente esse código aqui: so q faltou o format, é pra ser tipo assim: mkeDataV.Text = Format(DateAdd("d", 30, mkeDataJ.Text), "DD/MM/YYYY") e esse formato é levando em conta q sua mascara esteja __/__/____. caso esteja diferente é só trocar as qtdes de digtios e/ou as posicoes como você quiser no formato.
  2. é, mas tem alguma coisa na variavel Data?? no meu exemplo: vencimento = DateAdd("d", 30, data) substitua data pelo campo data atual (caso você queira a data atual do sistema, pegue pela funcao Date()). outra coisa, pra mostrar o MaskedBox, ponha um formato q se adeque à sua mascara. acho q no seu caso seria tipo isso: mkeDataV.Text = Format(DateAdd("d", 30, Ponha_Aqui_A_Data_Atual), "DD/MM/YYYY")
  3. nossa, posta o codigo q você usou.
  4. tenta: vencimento = DateAdd("d", 30, data)
  5. precisa do IIS e do .NET Framework instalado. o framework é gratis e atualmente estamos na versao 3.0. faca uma busca no google q você deve encontrar pra baxar. tb de uma lida nesse tutorial q ajuda: http://www.macoratti.net/aspnet_1.htm e tb nos demais tutoriais nessa pagina: http://www.macoratti.net/indaspn.htm
  6. kuroi

    Exibir sem repetir o mês

    é, não da pra eu testar o codigo aqui então não da pra ter certeza se vai funcionar direitinho, mas pelo q você mostrou, parece q ta quase la. basicamente o q faz o código é o seguinte. no array $a estao gravados quais são os tres meses em cada um de seus indices. e a variavel $i é um contador. ai, essa linha if ($mes == $a[$i - 1]) checa se o mes do registro atual é o mesmo mes da coluna atual. se não for é porque essa receita não tem lancamento esse mes. ai se não for ele vai pro else pra escrever um td em branco. mas o erro acredito q era porque ele tava quebrando o tr quando o contador chegava a 3 e tinha q ser quando chegava a 4, porque a coluna 3 tb tem q ser impressa. o novo codigo deve ficar mais ou menos assim, veja se da certo. senao me fala q quando der eu tento fazer u teste em casa porque aqui no trampo não tem php. $qry0 = mysql_query("SELECT r.receita, Last_Day(c.data) As MesAno FROM credito c, receita r WHERE r.cod_receita = c.cod_receita AND c.data BETWEEN '$dt_inicio' AND '$dt_fim' GROUP BY Last_Day(c.data) ORDER BY r.receita, Last_Day(c.data)"); $i = 1; while($result = mysql_fetch_row($qry0)){ $mes = substr($result[1],5,2); if ($i == 1) print "<tr>"; if ($mes == $a[$i - 1]) { print "<td width=\"300\" align=\"left\" valign=\"middle\" class=\"fonte\">" .$result[0] . "</td>"; } else { print "<td>&nbsp;</td>"; if ($i == 1) { if ($mes == $a[$i]) { print "<td width=\"300\" align=\"left\" valign=\"middle\" class=\"fonte\">" .$result[0] . "</td>"; } else { print "<td>&nbsp;</td>"; } $i++; } if ($i == 2) { if ($mes == $a[$i]) { print "<td width=\"300\" align=\"left\" valign=\"middle\" class=\"fonte\">" .$result[0] . "</td>"; } else { print "<td>&nbsp;</td>"; } $i++; } } $i++; if ($i == 4) { print "</tr>"; $i = 1; } }[/code]
  7. talvez o campo não esteja em bracno e sim com valor nulo. se for esse o caso, tente assim: para access: SELECT * FROM TEsquemas WHERE IsNull(Chassi) para sql: SELECT * FROM TEsquemas WHERE Chassi Is Null
  8. pra mim deu no firefox. mas tipo, aqui no trampo não da pra testar mas sei q quando você desiste aparece o botao do clipe, mas acho q talvez ele não va abrir, talvez ele so abra se você acertar. tenta la, o primerio é "chrono cross", digita chrono cross, clica ok, o desenho do gameboy tem q ficar verde ai você clica em ver clipe ai tem q abrir.
  9. aqui ele abre uma popup com um video do youtube. tenta otro navegador.
  10. digita o nome do jogo e clique ok. se acertar aparece a opcao ver clipe no lugar da opcao desistir.
  11. kuroi

    VB

    hum?? esse negocio de master pages é coisa de Asp.NET não?? você não leu o aviso la em cima?? essa sala é so pra Visual Basic 6. vou mover pro lugar correto, mas acho q essa parte fica cinza porque você não pode alterar mesmo. isso é da master page e você tem q alterar nela. você só pode alterar o conteudo da pagina atual q você estiver editando. veja esse tutorial: http://www.macoratti.net/aspn2_mp.htm
  12. tipo, "right" ta escrito errado, é right e não rigth. e depois, right não vai centralizar e sim alinhar à direita. pra centralizar ponha align center.
  13. tipo, acho q você tem q fazer o select sem o sum, com os iifs exatamente como eu mostrei no primeiro codigo, e ai você seleciona os demais campos da tabela. ai no data report, esses dois campos calculados devem aparecer normalmente e você pode fazer o sum() no proprio data report pra cada um dos dois campos separados. não seria isso??
  14. tipo, é só você escrever nome de campo por campo no select. e como você vai fazer soma vai ter q agrupar pelos campos selecionados (com Group By no final), mas não tem sentido somar os valores se for pra selecionar todos os campos, a não ser q você tenha registros duplicados (em q todos os campos sejam iguais), já q você estaria selecionando registro por registro.
  15. não gabriel, não precisa de dois campos. o esquema é como o macedo falou, só q com o meu codigo você faz em uma consulta só. tipo, eu sei q você só tem um campo pro valor. mas a consulta transforma e dois. de uma olhada: Select IIf(Con_Tipo = 'CP', Valor, 0) As Valor_CP, IIf(Con_Tipo = 'CR', Valor, 0) As Valor_Cr From Tabela veja esse iif: IIf(Con_Tipo = 'CP', Valor, 0) As Valor_CP note q o campo Valor_CP não existe na Tabela. ele vai ser um campo calculado q vai aparecer nesse select. observe a condicao do iif. quando o Con_Tipo for = 'CP', ele vai retornar o Valor, senao ele retorna 0. ou seja, o Valor_CP vai ser um campo calculado desse seu select q vai ter valor apenas quando o Con_Tipo for 'CP'. quando for 'CR' ele vai ser 0. ai uma soma desse campo calculado vai resultar na soma de todos os valores de contas pra pagar do seu banco. o segundo campo calculado do select acima faz o mesmo, só q pras contas pra receber. você pode ate já fazer as somas assim: Select Sum(IIf(Con_Tipo = 'CP', Valor, 0)) As Valor_CP, Sum(IIf(Con_Tipo = 'CR', Valor, 0)) As Valor_Cr From Tabela mas note q o IIf só funciona em Access. pra SQL tem q ser case e não tenho certeza quanto aos outros bancos. entendeu agora ou isso q eu passei não serve pra você??
  16. "in" significa "em". ele vai selecionar todos os codigos q estiverem no resultado do select (ou, no caso, com o not na frente, vai selecionar todos q não estao).
  17. tenta: $sql=mysql_query("SELECT id_cod FROM foto WHERE not (id_cod in (SELECT id_cod FROM album ))");
  18. va não teria q abrir aspa (") no response.write??
  19. kuroi

    insert

    por exemplo, se você quer gravar no campo, o texto "a'b'c'd", faca assim: Insert Into Tabela(Campo) Values('a''b''c''d') note q são dois ' juntos.
  20. kuroi

    Problema com SUM

    olhando assim, parece q esta certinho. acho q o problema são os outros filtros q estao depois do livro q estao excluindo da consulta os demais livros. so de teste, tente fazer a query somente assim pra ver se ele pega todos os livros: aSQL = _ "select livro, Sum(txredvalorliquido) as valortotal" & _ " from lancamentos" & _ " WHERE (livro = 'Venda de Produtos' or livro = 'Venda de Mercadorias'" & _ "or livro = 'Outros Proveitos' or livro = 'Serviços Prestados')" & _ "group by livro " & _ "order by livro"[/code]
  21. kuroi

    JoB de SQL

    não entendi direito, mas acho q você pode fazer um join entre as tabelas pra pegar os campos em comum. veja aqui q ensina como faz: http://scriptbrasil.com.br/forum/index.php?showtopic=108732 os joins normalmente funcionam em update tb, tenta ai q coisa poste.
  22. é mesmo, pro campo formula entender q era uma string, as aspas tem q ir junto.
  23. kuroi

    Atualizar campo ID

    se o campo é do tipo autonumeracao, é impossivel. se ele for somente numerico, e for você q controle o incremento, então é só, depois da exclusao, fazer um update do tipo: Update Tabela Set Id = Id - 1 Where Id > 3
  24. você usa access?? se for faca com Iif assim: Select IIf(Con_Tipo = 'CP', Valor, 0) As Valor_CP, IIf(Con_Tipo = 'CR', Valor, 0) As Valor_Cr From Tabela se for SQL, em vez de IIf, use case.
×
×
  • Criar Novo...