Eder
-
Total de itens
1.002 -
Registro em
-
Última visita
Tudo que Eder postou
-
SK15, perfeito, agora fechou, era este o problema mesmo, não estava sabendo manipular seu código ao meu. Ficou show de bola, objetivo alcançado. Agradeço muito pela ajuda e paciência. Um Grande Abraço e um Ótima Final de Semana :D
-
colega eu entendi perfeitamento seu raciocínio, testei o seu exemplo e funcionou, porem não consigo adapta-lo no meu site no index.htm parte do meu codigo esta ssim já inserindo seu script entre os head´s: <script> function CarregaFrame() { var query_string = document.location.search; var pageshow = (query_string != "") ? query_string.replace("?", "") : "home.htm"; document.getElementById("paginas").src = pageshow; } </script> </head> <body text="black" link="blue" vlink="purple" alink="red" OnLoad="na_preload_img(false, 'images/home2.gif', 'images/empresa2.gif', 'images/unidades2.gif', 'images/atua2.gif', 'images/rastrea2.gif', 'images/licenca_apolice2.gif', 'images/cotacao2.gif', 'images/coleta2.gif', 'images/visita2.gif', 'images/fconosco2.gif');"> note que no inicio da body já existe um Onload, que faz o efeito no menu: OnLoad="na_preload_img(false, 'images/home2.gif', 'images/empresa2.gif', 'images/unidades2.gif', 'images/atua2.gif', 'images/rastrea2.gif', 'images/licenca_apolice2.gif', 'images/cotacao2.gif', 'images/coleta2.gif', 'images/visita2.gif', 'images/fconosco2.gif');">[/ Como ve acima, não sei como adaptar o seu codifo ao meu já existente no index. <body onload="CarregaFrame()"> <iframe src="#" id="paginas"></iframe> </body> Perdão pela falta de entendimento, mas estou tentando pode crer... Grato
-
caro SK15, acho que me expressei mal, pois pelo que você descreveu eu montei o exemplo aqui e não deveria ser assim. vamos supor que o link a ser clickado seja: www.site.com.br/empresa.htm logo eu gostaria que fosse visualizado todo o site index + a página empresa.htm dentro do Frame. Do jeito que você cita o codigo no index.html sempre irá abrir o home.html. Pelo que eu entendi o home.html ficou fixo no index.html. a não ser que tenha entendi errado, :blush: Mesmo assim valeu o esforço pela ajuda. Grato
-
Sk15 perfeito ele carregou... Bom mesmo seria se carregasse a pagina MAIOR e dentro do frame a MENOR conforme foi chamado, assim quando chamado já era mostrado o que o usuario quer. Se você tiver uma idéia, por favor. Muito Obrigado pela sua ajuda. Abraço
-
Ola, necessito de uma ajudinha. tenho um site com IFrame, ou seja, tenho o menu no lado ESQUERDO e quando clicko no botão abre uma pagina interna em uma Cell no lado DIREITO. até aqui tudo certinho funciona perfeito. As paginas internas são paginas simples sem cabeçario, em fim, somente com intuíto de completar a pagina principal index. Ai é que esta o problema, quando alguém pesquisa no google alguma palavra chave, logicamente o google mostra links correspondetes a estas palavras e neste caso mostra link de uma pagina INTERNA e o usuário clika nela e ao invés de abrir o SITE NA PAGINA INICIAL acaba abrindo a pagina INTERNA, toda simples, em fim sem nenhum acabamento. Pergunto: existe algum código para ser inserido nas PAGINAS INTERNAS, para quando acessadas via google ou até mesmo via navegador, elas ao invés de mostrar somente a interna(simples) elas carregue a index, mostrando também a interna a qual foi chamada? O site é em html. Procurei na net a resposta, mas sem sucesso... Muito Obrigado
-
Ok, neste caso acima entendi, não sei porque não havia feito assim!! experimente usar o sql builder do componente Query para montar e testar as suas queries, facilita muito o serviço obs: clique com o botão direito do mouse sobre o componente TQuery e clique na opção SQL Builder... R.: clikei com o lado direito do mouse mas não apareceu a opção SQL BUILDER, uso DELPHI 4 ainda!! deve ser por isto. Mesmo assim, valeu das dicas. Obrigado.
-
Jonas, desculpe mas não consegui entender o seu raciocinio. :blush: Grato
-
Jonas, Obrigado pela sua resposta, mas o codigo não funciona com o TDbEDIT somente TEdit nesta parte: if (Components[i] is TDBEdit) then Grato
-
Bom Dia! Pessoal, estou com problemas numa consulta que roda em cima do OnPrint de um QrLabel do Quireport, é um filtro verificador. Funciona perfeito assim: Só que não gostei desta parte abaixo pelo seguinte> note que é10 campos, e eu não queria, eu gostaria que a verificação fom em cima de uma tabela aonde fosse gravados os registro de maneira infinita ou quase infinita, no caso acima esta no máximo 10 registros, ela é limitada. Tentei substituir estes codigos acima por este: mas ele só valida o primeiro registro que gravei deste tabela CLITDE.DB. alguém teria uma idéia de como fazer para não precisar usar aqueles monte de DbEdits? e tornar uma tabela infinita ou quase infinita. uso Parafox. Muito Grato
-
Ola, Jonas. O lance da string eu peguei até porque o campo é do tipo: String. E ai o seu exemplo acabou caindo a ficha, pois eu tava usando o OR e o correto é o AND Neste caso agora a consulta esta certinha. valeu, Muito Obrigado
-
Ola, Pessoal, estou uma tanto perdido numa consulta, uma verdadeira sinuca de bico. No meio ta consulta tenho assim que funcionava perfeito: 'AND (CTRCT.DEST_CNPJ <> "47.000.286/0001-22") '+ pois só existia este cnpj logo o que era diferente mostrava. agora tenho dois cnpj e ai a consulta não funciona. 'AND((CTRCT.DEST_CNPJ <> "47.000.286/0001-22") '+ 'OR (CTRCT.DEST_CNPJ <> "85.496.111/0001-04")) '+ Neste caso como eu procederia para retornar a consuta corretamente, pois não quero que dados destes dois cnpjs não sejam listados. Muito Obrigado
-
Ok, Jonas, você tem razão. fiz assim e deu certo: '(CTRCTEMP.DEST_CNPJ like ("%")+BCLIENTES.CNPJ+("%")) '+ valeu a dica. Obrigado e um Grande Abraço :D
-
Ola, Jonas. Não funciona, alias não poderia funcionar....pois são diferentes o formato de cadastramento do cnpj. pois aqui(CTRCTEMP.DEST_CNPJ ) ele vai encontrar o formato de preenchimento do cnpj assim 99.999.999/9999-99 e aqui(BCLIENTES.CNPJ) neste formato de preenchimento 99.999.999 portando é parte do cnpj ou seja a parte principal. Nesta ultima eu cadastro somente a parte principal do cnpj, pois como são grandes redes de lojas eu não precisaria estar cadastrando os resto, facilita. Se tiveres mais alguma idéia, por favor Grato
-
Ola, Pessoal Estou com a seguinte consulta abaixo: Txt := 'SELECT * FROM BCLIENTES, CTRCTEMP, NF '+ 'WHERE '+ '(CTRCTEMP.DEST_CNPJ = BCLIENTES.CNPJ) '+ 'AND CTRCTEMP.REMETENTE_CNPJ = ' + QuotedStr(LCNPJ.CAPTION) + ' AND '+ '(CTRCTEMP.SITUACAO_CTRC <> "C") '+ 'AND (CTRCTEMP.NUMERO_CTRC = NF.NUMERO_CTRC) '+ 'AND (cast(CTRCTEMP.ULT_OCORR_DATA as DATE)>=:DATAI) AND (cast(CTRCTEMP.ULT_OCORR_DATA as DATE)<=:DATAF) '+ 'AND (CTRCTEMP.ULT_OCORR_CODIGO = "001") ORDER BY CTRCTEMP.DEST_CNPJ, CTRCTEMP.SIGLA_CTRC, CTRCTEMP.NUMERO_CTRC, NF.NOTA_FISCAL, CTRCTEMP.DATA_EMISSAO'; Ela funciona perfeito, porem agora eu gostaria de nesta linha alterar: '(CTRCTEMP.DEST_CNPJ = BCLIENTES.CNPJ) '+ Notem que o campo cnpj deve ser igual, pois nas tabelas todos os dois campos de cnpj são iguais. Exemplo: 99.999.999/9999-99 Só que agora o campo BCLIENTES.CNPJ vai ter apenas a parte principal do cnpj. Exemplo 99.999.999 então eu gostaria que ele desconsiderasse o resto do cnpj, fazendo o filtro só com a parte principal. como eu poderia alterar esta linha abaixo? '(CTRCTEMP.DEST_CNPJ = BCLIENTES.CNPJ) '+ Não sei se fui claro. Obrigado
-
Beleza, Jonas, Fechou certinho, testei de várias formas. Era esta a minha idéia do começo mas eu não sabia montar esta parte, alias não tinha idéia de como montar: Tabela1.First; For j := 1 to Tabela1.RecordCount do Begin Tabela2.First; For i := 1 To Tabela2.RecordCount Do Este código seu ficou fácil o entendimento. valeu a ajuda mais uma vez. Obrigado e Grande Abraço :)
-
Tabela1 cod--sigla--numero-----codoco 1......BMA.....2566............35 2......BLU......2565............41 3......BLU......2566............67 4......JOI.......2567............10 5......BMA.....2567............35 6......BLU......2567............55 7......BLU......2568............67 8......JOI.......2568............10 Tabela2 cod--sigla--numero-----codoco 1......BMA.....2567............01 2......BLU......2567............01 3......BLU......2568............01 4......JOI.......2568............03 Note que a tabela2 tem poucos dados para serem atualizados na tabela1 ficando assim a tabela1 depois de atualizado: Tabela1 cod--sigla--numero-----codoco 1......BMA.....2566............35 2......BLU......2565............41 3......BLU......2566............67 4......JOI.......2567............10 5......BMA.....2567............01 6......BLU......2567............01 7......BLU......2568............01 8......JOI.......2568............03 Grato
-
Jonas, tinha um errinho, você tinha trocado o Post por Next, mas beleza corrigi e deu certo. Ai percebi, que eu tinha mais um campo para associar ao NUMERO, é a SIGLA, pois somente o NUMERO poderá dar problema, pois tem filial que pode usar o mesmo número que a outra e ai vai dar problema. Então adaptei o codigo assim como esta abaixo, mas não deu certo. procedure TForm1.Button1Click(Sender: TObject); var i,j: integer; NomeCampo: String; begin Tabela2.First; While Not Tabela2.Eof Do Begin For i := 0 To Tabela2.FieldCount-1 Do Begin NomeCampo := Tabela2.Fields[i].FieldName; If (NomeCampo = 'SIGLA') and (Tabela1.FieldbyName(NomeCampo).Value = Tabela2.FieldbyName(NomeCampo).Value ) THEN If (NomeCampo = 'NUMERO') and (Tabela1.FieldbyName(NomeCampo).Value = Tabela2.FieldbyName(NomeCampo).Value ) then begin Tabela1.Edit; if Tabela1.FieldbyName('CODOCO').Value <> Tabela2.FieldbyName('CODOCO').Value then Tabela1.FieldbyName('CODOCO').Value := Tabela2.FieldbyName('CODOCO').Value; Tabela1.Post; end; End; Tabela1.Next; Tabela2.Next; Application.ProcessMessages; end; end; Neste eu não poderia trabalhar com dois campos chaves(filtro) partindo deste código? fiz de várias maneiras e não pega o filtro Tentei também e não deu certo: If ((NomeCampo = 'SIGLA') and (NomeCampo = 'NUMERO')) and (Tabela1.FieldbyName(NomeCampo).Value = Tabela2.FieldbyName(NomeCampo).Value ) THEN valeu...Obrigado.
-
Ola, Jonas Carinha tentei, mas não consegui o resultado esperando, o codigo percorre as tabelas mas não funciona, realmente não sei como fazer dentro do exemplo que demonstrou. Fiz assim: procedure TForm1.Button1Click(Sender: TObject); var i: integer; NomeCampo: String; begin Table1.First; While Not Table1.Eof Do Begin Table2.append; For i := 0 To Table1.FieldCount - 1 Do Begin NomeCampo := Table1.Fields[i].FieldName; if ((Table2Numero.AsString) = (NOMECAMPO)) then begin Table2.Edit; Table2.FieldbyName('CODOCO').Value := Table1.FieldbyName('NOMECAMPO').Value; Table2.post; end; end; Table1.next; Application.ProcessMessages; end; end; Se pudures me ajudar comentando as linhas agradeço, para o melhor entendimento. Muito Obrigado, Abraço
-
Ola, Jonas, Muito Obrigado pela resposta, mas não é esta idéia, perdão se me expressei mal. Seguinte: Eu tenho uma tabela1 que tem dados assim: Outra tabela2 assim: a tabela a ser atualizada é a tabela1 em relação a Tabela2 note que a tabela1 e a tabela2 o campo(NUMERO)tem o valor 2565 e 2567 igual nas duas tabelas....pois é, eu queria alterar somente a linha campo (CODOCO)que possui os campos iguais, no caso depois da atualização a tabela1 ficaria assim. o FILTRO é o campo NUMERO que compara e vê qual o numero a ser alterado o campo CODOCO. No caso o numero 2565 recebeu CODOCO = 10 e o 2567 recebeu = 11 Não sei se você entendeu...o que eu precisaria. Muito Obrigado e Bom Final de Semana.
-
Ola, Pessoal, tenho duas tabelas paradox TB1.db e TB2.db ambas tem os campos iguais porem uma tabela TB1.db tem um campo(COD_OCO) que é atualizado constantemente. O que eu gostaria é copiar os dados deste campo que é sempre atualizado TB1.db(COD_OCO) e atualizar o mesmo campo da TB2.db(COD_OCO). Só que tem um pequeno detalhe como a TB2.db tem dados do ANO INTEIRO e a TB1.db tem dados só de UM MÊS teria que ter um filtro campo chave para atualizar o registro correto. O campo chave é chamado de NUMERO_CTRC alguém poderia me mostrar um pequeno exemplo de como funcionaria esta atualização de dados? Muito Obrigado
-
(Resolvido) Calculo de Dados - Dias Uteis - Função Jonas
pergunta respondeu ao Eder de Eder em Delphi, Kylix
Sim, agora sim, fiz um monte de testes e realmente rodou certinho o relatório, ficou muito Bom e completo. Espero não achar mais nenhum promeminha :blush: . Jonas, valeu a Força. Abraços. :D -
(Resolvido) Calculo de Dados - Dias Uteis - Função Jonas
pergunta respondeu ao Eder de Eder em Delphi, Kylix
Achei que tava tudo certinho, no exemplo que citei realmente ta calculando correto, mas agora fiz outros testes com outras datas e deu resultado incorreto: 08-02 A 13-02 = 5 CORRETO É 4 08-02 A 23-02 =11 CORRETO É 10 15-02 A 24-02 = 8 CORRETO É 7 Ta dando um a mais. Achei que tava resolvido, :blush: Se meche num lugar acaba afetando o outro, não ta facil, não Grato -
(Resolvido) Calculo de Dados - Dias Uteis - Função Jonas
pergunta respondeu ao Eder de Eder em Delphi, Kylix
Perfeito Jonas, Calculou certinho. Muito Obrigado pelo esforço. Grande Abraço -
(Resolvido) Calculo de Dados - Dias Uteis - Função Jonas
pergunta respondeu ao Eder de Eder em Delphi, Kylix
Eder... não sei o que voce esta fazendo de errado, mas os testes que fiz aqui estão corretos. Mas Jonas eu estou fazendo igual ao seu, nem estou jogando no meu relatorio montei o esqueminha aqui no delphi, ou seja, peguei a sua função + o codigo do botão + os datetimer´s e mais nada. Note que estou sempre pegando o dia 06-02 um sabado. seu eu pegar qualquer dia da semana diferente do sabado e domingo ai da certo, tipo: Pode ver que ta dando incorreto. Abraço -
(Resolvido) Calculo de Dados - Dias Uteis - Função Jonas
pergunta respondeu ao Eder de Eder em Delphi, Kylix
Jonas, eu fiz este teste abaixo na sua função alterada e não funciona da o mesmo resultado: Function Dias_Uteis(DataI, DataF:TDate):Integer; var contador, i, n, d :Integer; DataR : Tdate; begin n := 0; d := 0; if DataI > DataF then begin result := 0; exit; end; Contador := 0; while (DataI <= DataF) do begin if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then Inc(Contador); if contador > 1 then d := 1; for i := 0 to Form1.ComboBox1.Items.Count-1 do begin DataR := strtodate(Form1.ComboBox1.Items.Strings[i]); if DataR = int(DataI) then n := n + 1; end; DataI := DataI + 1; end; result := Contador-n-d; end; procedure TForm1.BitBtn1Click(Sender: TObject); var i : integer; begin i := Dias_Uteis(DateTimePicker1.Date ,DateTimePicker2.Date); showmessage('Total de dias úteis no período : ' + inttostr(i)); end; end. Da este resultado igual ao relatorio no quick, ou seja, tirar o TIME não resolveria :wacko: Douglas, SIM EU fi mas ai a função também não responde, ela diz que é SEMANA mas o if aponta FINAL DE SEMANA :wacko: VEJA A FUNÇÃO: function Dias_Uteis(DataI, DataF:TDate):Integer; var contador, i, n :Integer; DataR : Tdate; Var Tipo:string; begin n := 0; if DataI > DataF then begin result := 0; exit; end; Contador := 0; while (DataI <= DataF) do begin Tipo:=''; if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then Inc(Contador); if ((DayOfWeek(DataI) = 1) or (DayOfWeek(DataI) = 7)) then Tipo:='FSEMANA'; for i := 0 to Form1.ComboBox1.Items.Count-1 do begin DataR := strtodate(Form1.ComboBox1.Items.Strings[i]); if DataR = int(DataI) then n := n + 1; end; DataI := DataI + 1; end; if Tipo = 'FSEMANA' Then begin result := Contador-n; //aqui tira um dia showmessage('FINAL DE SEMANA'); end else begin result := Contador-n-1; //aqui não showmessage('SEMANA'); end; end; Obrigado pessoal. :wacko: