kuroi
Membros-
Total de itens
7.184 -
Registro em
-
Última visita
Tudo que kuroi postou
-
acho q você tem q fazer uma conexao ODBC Painel de Controle -> Ferramentas Administrativas -> Fontes de Dados (ODBC)
-
onde você esta com dificuldade? faca o grupo do nome e, dentro dele, ponha o grupo da descricao. não é necessario fazer outros, ponha os totais dentro do grupo da descricao, no group header ou no group footer.
-
tem certeza q não aparece a imagem? enquanto você esta no mode design, o crystal reports mostra a primeira imagem q estiver no banco. quando você for pro preview, ou chamar o report pelo visual basic, as imagens vao aparecer corretamente. quantas tabelas você tem no report? tem certeza e elas estao linkadas corretamente?
-
ainda não deu pra entender tudo, mas o q eu disse nesse post não ajudou?
-
o esquema é redirecionar para uma pagina q pegue os dados do usuario do banco de dados.
-
so pra detalhar, é a juncao dos caracteres 13 e 10 da tabela ASCII. 13 - CR (Carriage Return) 10 - LF (Line Feed)
-
o campo esta mesmo vazio ou esta nulo? se estiver vazio faca: select * from pedido where numNF = '' se estiver nulo faca: select * from pedido where numNF Is Null
-
grave com o formato yyyy-mm-dd. (veja q é - no lugar de /)
-
cara ta foda de entender... me explica uma coisa. esses campos Text tem alguma relação com os campos do banco? em todas as linhas o texto das labels será o mesmo ou não? se não, da onde você vai tirar esse texto? se sim, porque você não simplesmente coloca o campo nos details para q apareca em todas as linhas? como assim, você não consegue formatar multiplas colunas? em cada linha elas devem tamanho e/ou caracteristicas diferentes? se não não tem porque não conseguir. ia falar pra você me mandar o rpt por e-mail pra eu dar uma olhada, mas como não tenho a sua versao do crystal (a minha é 8.5) então nem vai dar.
-
tente assim: ASP <!--#include file="conexao.asp"--><% Dim ObjRs2 Set ObjRs2 = Server.CreateObject ("ADODB.RecordSet") ObjConn.Open conex strSq3 = "select * from t_venda" Set ObjRs = objConn.Execute(strSq3) While NOT ObjRs.EOF cd_ma = ObjRs("cd_prod") nm_ma = ObjRs("nm_prod") qtd_ma2 = ObjRs("quant") nota = ObjRs("cd_nf") cdnf = Request.QueryString("cdnf") If nota = cdnf then strSq3 = "select * from t_uni where cod = "&cd_ma Set ObjRs2 = objConn.Execute(strSq3) quantidade_pedida = qtd_ma2 saldo_em_estoque = Cint(ObjRs2("qtd_ma")) if quantidade_pedida > saldo_em_estoque then %> <body <%=colorbg1%>> <script language="javascript"> alert("A QUANTIDADE PEDIDA E MAIOR DO QUE A QUANTIDADE EM ESTOQUE !"); javascript:history.back(-1) </script> <% Response.End end if estoque = saldo_em_estoque - quantidade_pedida strSq2 = "Update t_uni Set qtd_ma='"&estoque&"' where cod = "&cd_ma objConn.Execute strSq2 Else End if objRS.MoveNext Wend %>
-
foi mal: VariavelNova= Split(Texto,vbCRLF) for x=LBound(VariavelNova) to UBound(VariavelNova)
-
tente assim: set rs_soma=objdb.execute("select sum(teste.pontos) as pontos,nome from teste GROUP BY nome")
-
entendi, tente assim: ASP VariavelNova= Split(Texto,vbCRLF)for x=LBound(dados) to UBound(dados) %> Dados= Split(VariavelNova(x),Chr(09)) <tr> <td align=left colspan=50 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><a href="/Produto/<%=session("NOME")%>/<%=session("etap")%>/Relat/SE01_001.pdf" target=window><%=dados(0)%></a> <td align=left colspan=80 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(1)%> <td align=CENTER colspan=58 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(2)%> <td align=CENTER colspan=50 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(3)%> <td align=CENTER colspan=40 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(4)%> <td align=CENTER colspan=50 <% if (x)<>0 then : response.write "bgcolor=#c4d4ee" else response.write "bgcolor=#e2eedf" : end if%> ><%=dados(5)%> </tr> não tenho como testar se o codigo funciona, mas o esquema é separar primeiro todas as linhas e depois pegar linha por linha e separar por coluna.
-
é porque toda vez q ele entra no while, ele da outro select alterando o objRs eternamente: strSq0 = "select * from t_uni where cod = "&cd_ma Set ObjRs = objConn.Execute(strSq0) o melhor é você criar o rs novo pra usar nesse select.
-
faca assim: strSq2 = "Update t_uni Set qtd_ma='"&estoque&"' where cd_ma = "&cd_ma objConn.Execute strSq2 strsql = "Insert into t_hist_uni (cd, cd_ma, nm_ma, qtd_ma, dt_ma, cd_func, nm_func2, loca, data) values ('"&cd&"', '"&cd_ma&"', '"&nm_ma&"', '"&qtd_ma&"', '"&dt_ma&"', '"&cd_func&"', '"&nm_func2&"', '"&loca &"', '"&data&"')" ObjConn.execute strsql q o seu while vai funcionar. como você tava usando o objrs no execute, o recordset estava ficando zerado por isso o while não funcionava.
-
não entendi direto, mas e se em vez de: ASP Dados= Split(Replace(Texto,Chr(10),""),Chr(09)) você fizesse: ASP Dados= Split(Texto,vbCRLF) acho q resolve se você fizer assim: ASP for x=LBound(dados) to UBound(dados) Step 6
-
talvez não precisasse separar em bancos, mas em tabelas. cada vez q ele fosse cadastrar uma empresa, você criava as tabelas com o nome ou um identificador da empresa no final. cada vez q a empresa logasse, você acessaria as tabelas q tivessem esse identificador no nome.
-
mas se você importar um banco, vazio ou não, a estrutura vem junto.
-
e porque você não importa?
-
veja se é isso: http://scriptbrasil.com.br/forum/index.php?showtopic=69924
-
respondi em access.
-
ainda não entendi direito o q você quer fazer q é tão dificil. o q você quer por acaso é por textos diferentes para cada linha, é isso? se for assim, em vez de usar text, pode fazer um campo formula baseado no campo Record Number, q você encontra entre os Special Fields. isso se na sua versao esse negocio for igual na minha q é a 8.5. esse campo Record Number, como o nome diz guarda o numero do registro, ou da linha. por exemplo, na linha 1 ele vale 1, na linha 2 vale 2 e assim vai. você sabendo quantas linhas vai ter em cada pagina, e so usar a logica. se cada pagina tem um numero diferente, entre com o Page Number tb nessa formula. entendeu mais ou menos? ou não é isso q você quer? qualquer coisa poste.
-
não tem como não, mas você pode importar o banco. nunca usei firebird, mas deve ter uma opcao de importar tabelas, não tem?
-
sim, mas isso q eu disse no outro post tb é verdadeiro. estava deduzindo isso com base no q você disse nesse e no outro tópico. porque eu tentei isso: Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Text = "ffsd" End Sub Private Sub Button1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = TextBox2.Text & "X" End Sub e funcionou. ele alterou tanto o text do button1 quanto do textbox2 (veja tb q eu tirei o button1.gotocus da funcao Button1_GotFocus)
-
entendi, então no clique de um botao, posso chamar automaticamente varias subs.