cfa
-
Total de itens
13 -
Registro em
-
Última visita
Posts postados por cfa
-
-
Opa funcionou direitinho, muito obrigado Jonathan!
valeu
-
Sim é isso mesmo, meu problema é que sou bem leigo, estou começando a mexer com desenvolvimento web, e não estou sabendo fazer essa chamada para a função '#home'. Pois ela está funcionando, só queria entender como chamá-la em vez de criar uma outra função para carregar a página. Se puder me indicar tb uns tutoriais on-line eu agradesço!
valeu
cfa
-
Eu tenho este script:
$(document).ready(function(){ $('#home').click(function(){ $('#content').load('home.html'); return false; }); var loading = $( '<img id="loading" alt="Carregando" title="Carregando" src="loading.gif" />' ).appendTo('#content').hide() loading.ajaxStart(function(){ $(this).show(); }); loading.ajaxStop(function(){ $(this).hide(); }); });e tenho um botão que chama esta função:<a id="home" href="#" rel="alternate">Home</a>
até aí beleza, está carregando a página na div belezinha<body> <div id="content"></div> </body>
está página só tem os menus e a div, mais nada, o que não estou sabendo fazer é quando eu chamar a página ex: www.teste.com.br ela carregar na div a página home.html!
não sei se você entendeu!?
-
Olá galera,
Estou com um probleminha para carregar uma página em uma div no onLoad da página, é seguinte eu tenho uma página "index.html" nela eu tenho os menus e uma div, conforme o usuário clica em algum item do menu abre a página correspondente na div, até aí beleza o problema é que preciso fazer a página "home.html" ser carregada na div automáticamente quando chamo a página, sou iniciante em web e estou quebrando a cabeça, se alguém puder me ajudar valeu!!
cfa
-
Boa dia Amigos do fórum,
Estou com um projetinho para desenvolver em VB6 que é o seguinte: O usuário precisa literalmente desenhar placas de sinalização de trânsito e imprimir uma página com as medidas dessa placa para depois ir para a confecção, atravéz de dados que ele vai inserindo como: Textos e objetos. Desenhar isso no VB6 beleza o problema é a impressão disso, conversando com um amigo ele me indicou fazer isso no Crystal Report, o problema é que nunca tinha utilizado o Crystal antes e não sei como inserir BOX e LINE via código do VB, pelo crystal é simples, clico com o botão direito e vou em inserir BOX, só que vou ter que fazer isso pelo código. Alguém poderia me ajudar!
Obs: não utilizo banco de dados para isso!
Grato
-
Obrigado Galera,
já achei um código na net :D e consegui resolver meu problema, vou postar o código aqui, quem sabe ele ajuda um outro brother..
Option Explicit Private Const TH32CS_SNAPPROCESS As Long = 2 Private Const MAX_PATH As Long = 260 Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * MAX_PATH End Type Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" (ByVal lFlags As Long, _ ByVal lProcessID As Long) As Long Private Declare Function Process32First Lib "Kernel32" (ByVal hSnapShot As Long, _ typProcess As PROCESSENTRY32) As Long Private Declare Function Process32Next Lib "Kernel32" (ByVal hSnapShot As Long, _ typProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long) Public Function AppIsRunning(ByVal AppName As String) As Boolean Dim Process As PROCESSENTRY32 Dim hSnapShot As Long Dim r As Long AppName = LCase$(AppName) hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&) If hSnapShot <> -1 Then Process.dwSize = Len(Process) r = Process32First(hSnapShot, Process) Do While r If LCase$(Left$(Process.szExeFile, InStr(1, Process.szExeFile, vbNullChar) - 1)) = AppName Then AppIsRunning = True r = False End If r = Process32Next(hSnapShot, Process) Loop CloseHandle hSnapShot End If End Function 'Uso Private Sub Main() MsgBox AppIsRunning("explorer.exe") End Subbrigaduuuu... :lol:
-
Bom dia Galera,
estou precisando verificar via Visual Basic se o Filzip está ativo no Windows, alguém poderia me ajudar, please!!!
Valeu
-
Turma,
Alguém poderia me ajudar com o Controle ImgEdit?
É o seguinte:
Estou desenvolvendo um sisteminha que faz digitalização de imagens, até aí beleza, já está tudo funcionando, só tem um problema, o usuário tem que preencher alguns campos com dados da imagem, meu problema é que não estou conseguindo fazer o imagem rolar, não sei se fui claro.
Por exemplo:
O usuário precisa digitar o nome da pessoa, quando o TextBox recebe o foco ele aytomáticamente move a imagem para o ponto certo, o ponto onde o nome estará aparecendo!
desde já, valeu galera!! ;)
-
Olá turma,
Estou com uma dúvida, gostaria de fazer uma espécie de FOR ou WHILE (sei lá não sei qual o comando correto no Oracle), no meu banco de dados, para checar em quais tabelas eu tenho o campo "codigo", não sei se isso é possível, se alguém souber como fazer isso, por favor estou precisando dessa ajudinha!!!
Valeu
-
Oi 'cfa'
Você poderia, por favor, passar a estrutura destas tabelas, incluindo seus índices para que eu possa auxiliá-lo ce forma correta de montar esta estrutura? A razão deste pedido é que não estou conseguindo determinar as chaves candidatas aos relacionamentos e, por conseqüência, não consigo orientá-lo.
Olá Denis, desculpe a demora da resposta!
Segue conforme solicitado, as tabelas são relativamente grandes!
TABELA: INFRACAO
ColumnName DataType PrimaryKey NotNull Flags Default Value Comment AutoInc
QT_VAL_AFER BIGINT
QT_VAL_CONS BIGINT
QT_VAL_PER BIGINT
CD_USUAR_CAN VARCHAR(12)
NR_SEQ_PROPR BIGINT
ID_FIS_JUR VARCHAR(1)
DT_LIMITE_JARI DATETIME(7)
TP_PGU BIGINT
DT_ATUALIZA DATETIME(7)
NM_BAIRRO VARCHAR(25)
NR_CHASSI VARCHAR(21)
SG_UFPLACA VARCHAR(2)
ID_ASSINOU DECIMAL(22, 1)
DT_APROV DATETIME(7)
CD_USUAR_APR VARCHAR(10)
ID_INFRAT DECIMAL(22, 1)
DS_LINHA VARCHAR(30)
CD_EMPRES BIGINT
DS_REFER VARCHAR(40)
NR_KMINFR DECIMAL(22, 12)
CD_RODOV VARCHAR(6)
CD_MUNIC_MUL BIGINT
TP_VEIC BIGINT
CD_ESPEC BIGINT
CD_MARCA BIGINT
NR_RENAVAN BIGINT
NR_CPF DECIMAL(22, 16)
QT_PERM_BAFO DECIMAL(22, 12)
NR_EQUIP VARCHAR(15)
DS_MED_BAFO VARCHAR(6)
DT_ENDER DATETIME(7)
NR_RADAR VARCHAR(15)
QT_PESO_AF DECIMAL(22, 5)
QT_VEL_PER DECIMAL(22, 5)
QT_VEL_AF DECIMAL(22, 16)
DT_INCLUS DATETIME(7)
DT_ALTER DATETIME(7)
CD_MUNICMUL BIGINT
CD_PLACAMUL VARCHAR(7)
CD_USUAR VARCHAR(10)
CD_REGIAO VARCHAR(5)
NR_LAUDO VARCHAR(15)
DT_LAUDO DATETIME(7)
ID_EMPFOTO BIGINT 0
DT_LIMITE_REC DATETIME(7)
DS_OBSERV VARCHAR(100)
QT_PESO_PER DECIMAL(22, 5)
QT_VEL_CONS DECIMAL(22, 5)
DT_LIMITE_CON DATETIME(7)
NR_DIGVER DECIMAL(22, 5)
CD_BAIXA_AIT DECIMAL(22, 5)
CD_PELOTAO VARCHAR(5)
CD_COR BIGINT
NR_REGENV DECIMAL(22, 5)
CD_USUAR_AUD VARCHAR(10)
DT_AUDIT DATETIME(7)
CD_CATEG BIGINT
NM_INFRAT VARCHAR(40)
CD_CLIENTE DECIMAL(22, 5)
NR_SERIE VARCHAR(1)
NR_FAIXA DECIMAL(22, 5)
NR_AIIP BIGINT
CD_CLIENTE_L DECIMAL(22, 5)
CD_CANCEL DECIMAL(22, 5)
DT_CANCEL DATETIME(7)
CD_MUNIC BIGINT
CD_PLACA VARCHAR(7)
DS_LOCAL VARCHAR(80)
CD_LOGR DECIMAL(22, 5)
NR_IMOV BIGINT
CD_BAIRRO DECIMAL(22, 5)
NR_LOTE BIGINT
CD_AGENTE BIGINT
DS_MARCA VARCHAR(35)
DS_COR VARCHAR(25)
DT_INFR DATETIME(7)
HR_INFR DATETIME(7)
NR_CDFOTO DECIMAL(22, 5)
ID_DIRFOTO DECIMAL(22, 5)
NR_SEQFOTO DECIMAL(22, 5)
DS_MOD_BAFO VARCHAR(6)
IndexName IndexType Columns
IX_CLI_PLC_END Index CD_CLIENTE
CD_PLACA
DT_ENDER
IX_INFRACAO Index NR_AIIP
IX_INFRACAO_01 Index CD_PLACA
DT_INFR
HR_INFR
IX_INFRACAO_02 Index CD_CLIENTE
NR_SERIE
NR_FAIXA
NR_AIIP
DT_ENDER
DT_CANCEL
IX_INFRACAO_03 Index CD_CLIENTE
NR_LOTE
CD_CANCEL
DT_ENDER
TABELA: LOTE
ColumnName DataType PrimaryKey NotNull Flags Default Value Comment AutoInc
ID_ARQECTBOL CHAR(12)
CD_USUAR_CAN VARCHAR(12)
DT_ATUALIZA DATETIME(7)
NR_LOTE BIGINT PK NN
CD_CLIENTE DECIMAL(22, 5) PK NN
TP_LOTE DECIMAL(22, 5)
DT_INIC DATETIME(7)
DT_FECH DATETIME(7)
DT_CANCEL DATETIME(7)
DT_ENDER DATETIME(7)
CD_TIPO VARCHAR(4)
NR_ARQUIVO BIGINT
QT_LOTE DECIMAL(22, 5)
DT_PUBLIC DATETIME(7)
DT_EMIS DATETIME(7)
DT_ENVAR DATETIME(7)
DT_ENVECT DATETIME(7)
DT_ENVPOST DATETIME(7)
ID_ARQECT VARCHAR(12)
DT_NOT DATETIME(7)
DT_DEVECT DATETIME(7)
DT_RETAIT DATETIME(7)
CD_USUAR VARCHAR(10)
ID_ARQ VARCHAR(12)
DT_VALID DATETIME(7)
DT_AUDIT DATETIME(7)
DT_RETEND DATETIME(7)
CD_ORIGEM VARCHAR(3)
DT_AUTO DATETIME(7)
DT_BOLETO DATETIME(7)
DT_ENVARBOL DATETIME(7)
DT_DEVECTBOL DATETIME(7)
DT_ENVECTBOL DATETIME(7)
IndexName IndexType Columns
PRIMARY PRIMARY NR_LOTE
CD_CLIENTE
TABELA: MULTA
ColumnName DataType PrimaryKey NotNull Flags Default Value Comment AutoInc
DT_RET_END DATETIME(7)
DT_RET_NOT DATETIME(7)
DT_ATUALIZA DATETIME(7)
DT_RET_BOL DATETIME(7)
SG_CORREIO VARCHAR(6)
NR_LOTEAR BIGINT
NR_ARBOL BIGINT
DT_ENVARBOL DATETIME(7)
DT_DEVARBOL DATETIME(7)
DT_ENTARBOL DATETIME(7)
CD_MTVDEVBOL BIGINT
DT_LANCARBOL DATETIME(7)
NR_LOTEARBOL BIGINT
NR_ETQ_ECT BIGINT
FL_DTARQ DATETIME(7)
NR_RENAINF BIGINT
NR_COMP_ECT_B VARCHAR(10)
NR_COMP_ECT_N VARCHAR(10)
NR_RENAINF_OLD BIGINT
DT_ESUS_REN DATETIME(7)
CD_CLIENTE DECIMAL(22, 5)
NR_SERIE VARCHAR(1)
NR_FAIXA DECIMAL(22, 5)
NR_AIIP BIGINT
CD_ENQUADR BIGINT
NR_NOTIF BIGINT
VL_MULTA DECIMAL(22, 12)
DT_PONTUA DATETIME(7)
CD_BAIXA DECIMAL(22, 5)
DT_NOTIF DATETIME(7)
DT_BOLETO DATETIME(7)
DT_VENC DATETIME(7)
NR_AR BIGINT
DT_DEVOL_AR DATETIME(7)
DT_ENTREAR DATETIME(7)
NR_GPRODESP BIGINT
ID_RET_PRODESP DECIMAL(22, 5)
NR_SEQ_DETRAN DECIMAL(22, 5)
CD_MTVDEV BIGINT
CD_SIGAR VARCHAR(2)
NM_RECEB VARCHAR(40)
NR_RGRECEB VARCHAR(12)
DT_LANCAR DATETIME(7)
CD_USUAR VARCHAR(10)
DT_POST DATETIME(7)
ID_COMPANH DECIMAL(22, 5)
QT_PTOACUM DECIMAL(22, 5)
FL_REINC VARCHAR(1)
NR_ANOBOL DECIMAL(22, 5)
IndexName IndexType Columns
IX_MULTA_00 Index CD_CLIENTE
NR_NOTIF
IX_MULTA_01 Index CD_CLIENTE
NR_SERIE
NR_FAIXA
NR_AIIP
CD_ENQUADR
NR_GPRODESP
-
Olá Denis,
Estava pesquisando e tentei efetuar esta mesma consulta utilizando o INNER JOIN, mas está dando o seguinte erro: "ORA-00933: comando SQL não encerrado adequadamente".
Segue o meu SELECT para orientação!
SELECT i.nr_serie, i.nr_faixa, i.nr_aiip, i.ds_local, i.dt_infr, i.hr_infr, i.nr_imov, i.nr_lote, i.qt_vel_cons, i.qt_vel_per, i.qt_vel_af,
m.nr_serie, m.nr_faixa, m.nr_aiip, m.cd_enquadr, m.dt_notif, m.nr_renainf,
l.nr_lote, l.cd_cliente, l.tp_lote
FROM infracao i
INNER JOIN multa m
on i.cd_cliente = m.cd_cliente
on i.nr_serie = m.nr_serie
on i.nr_faixa = m.nr_faixa
on i.nr_aiip = m.nr_aiip
INNER JOIN lote l
on i.nr_lote = l.nr_lote
on i.cd_cliente = l.cd_cliente
on l.tp_lote <> 1
on m.nr_renainf is not null
on m.dt_notif is null
on i.dt_ender <> '01/01/1900'
on i.cd_cancel is null
on i.dt_audit is null
on i.cd_usuar_aud is null
on i.id_empfoto is not null;
Sou realmente bem iniciante em banco de dados, estou estudando e pesquisando, peço que o pessoal do fórum tenha paciência, desde já obrigado pela ajuda!
valeu!
-
Boa tarde galera,
Estou iniciando no Oracle, estou utilizando Oracle 9i, Minha dúvida é a seguinte:
eu tenho 3 tabelas: infracao, multa, lote.
Estou efetuando este select:
SELECT
i.nr_serie, i.nr_faixa, i.nr_aiip, i.ds_local, i.dt_infr,i.hr_infr,
i.nr_imov, i.nr_lote, i.qt_vel_cons, i.qt_vel_per, i.qt_vel_af,
m.nr_serie, m.nr_faixa, m.nr_aiip, m.cd_enquadr, m.dt_notif, m.nr_renainf,
l.nr_lote, l.cd_cliente, l.tp_lote
FROM
infracao i, multa m, lote l
WHERE
i.cd_cliente = 6875 and i.cd_cliente = m.cd_cliente
and i.nr_serie = m.nr_serie and i.nr_faixa = m.nr_faixa
and i.nr_aiip = m.nr_aiip and i.cd_cliente = l.cd_cliente
and i.nr_lote = l.nr_lote and l.tp_lote <> 1
and m.nr_renainf is not null and m.dt_notif is null
and i.dt_ender <> '01/01/1900' and i.cd_cancel is null
and i.dt_audit is null and i.cd_usuar_aud is null
and i.id_empfoto is not null
Mas sem brincadeira, ele está levando mais de 10 minutos!
Gostaria de saber que estou fazendo de errado ou se alguém tem alguma recomendação!?
valeu!
Ajuda com Quebra de Página no DataReport
em Visual Basic
Postado
Bom dia amigos do Fórum,
estou com um problema na geração de um relatório no DataReport, é o seguinte:
Eu tenho uma lista de alunos (Ex: 100 alunos), eu tenho um form onde o usuário pode distribuir esses nomes em salas (Ex: 5 salas = 20 alunos por sala), até aí beleza, o problema é que preciso imprimir um relatório por sala.
Eu tenho uma tabela chamada "relsort" onde eu embaralho os alunos, depois eu crio uma tabela para cada sala, com a qtde de alunos desejada.
O problema ocorre, quando eu eu faço o for para mandar pro DataReport as informação, cada vez que eu entro no "IF" eu teria que mostrar uma nova página no DataReport, mas isso não está ocorrendo.
SEGUE CÓDIGO:
For x = 0 To 9
If gQtClasses(x) <> 0 Then 'gQtClasse(x) vetor do tipo integer - para armazenar a qtde de alunos em cada sala.
If x = 0 Then
Set db = New ADODB.Connection
db.Execute "drop table listas_provas_" & x & ""
vlSQL = ""
vlSQL = "SELECT * INTO listas_provas_" & x & ""
vlSQL = vlSQL & " FROM relsort "
vlSQL = vlSQL & "ORDER BY sort "
vlSQL = vlSQL & "LIMIT " & gQtClasses(x) & " OFFSET " & x & ""
CNN.Execute vlSQL
Else
Set db = New ADODB.Connection
db.Execute "drop table listas_provas_" & x & ""
vlSQL = ""
vlSQL = "SELECT * INTO listas_provas_" & x & ""
vlSQL = vlSQL & " FROM relsort "
vlSQL = vlSQL & "ORDER BY sort "
vlSQL = vlSQL & "LIMIT " & gQtClasses(x) & " OFFSET " & (gQtClasses(x) * (x)) & ""
CNN.Execute vlSQL
End If
End If
Next x
Set rs = New ADODB.Recordset
vl_sLogoTipo = "logo" & tbPara!id & ".jpg"
With rpt_PresAleatoria
.Caption = "Lista de Presença em Prova - " & vl_sNomeColegio
For x = 0 To 9
If gQtClasses(x) <> 0 Then
rs.Open "select * from listas_provas_" & x & " ORDER BY sort", CNN, adOpenForwardOnly, adLockReadOnly
Set .DataSource = Nothing
.DataMember = ""
Set .DataSource = rs
.Sections("Section4").Controls.Item("lbl_ano").Caption = gAnoAtivo
Set .Sections("Section4").Controls.Item("img_logo").Picture = LoadPicture(App.Path & "\logotipos\" & vl_sLogoTipo)
With .Sections("Section1").Controls
.Item("Text1").DataField = "sort"
.Item("Text2").DataField = "nome"
.Item("Text3").DataField = "classe"
End With
End If
Next x
.Refresh
.Show
End With
Tentei utilizar o comando ForcePageBreak, só que ou ele imprimi uma sala só, eu imprimi um nome em cada página!
Se alguém puder me ajudar agradeço!!!
valeu!