Eder

Oba....Micheus...fiz ...mas deu erro ao gerar relatório. erro: NUMBER IS OUT OF RANGE. TABLE DOES NOT EXISTS. TABLE: C:\SSSSS\YYYYY\TmpTable.DB :blush:

R.: Isto mesmo...Micheus..na mosca...era isto mesmo. deve ter marcado sem querer.......e realmente só neste aplicativo tava marcado, os outros não estavam e por isto não davam erro. valeu.... muito grato a você e ao Jonas pela ajuda. Abraços a todos..t+ :)

Ola. R.: Micheus...mas como vou mapear a pasta NO PRÓPRIO SERVIDOR??? pelo que eu sei...só da pra fazer via rede.....na estação de trabalho....tipo localizo o servidor via rede e depois mapeio.. a não ser que estou enganado :blush:

Ola.....desculpa a demora tive que formatar minha máquina..... :blush: e depois instalar tudo de novo.....demorou pra caramba... mas vamos lá. R> não entendi esta parte.....o código que você passou então muda? R> este rel. só será usado por uma pessoa..... :) Grato

Ok..Jonas..vou verificar e ver se da certo. valeu :) grato

Oba...Jonas..Desculpa.. Tive uma problema com minha máquina e tive que formatar e instalar tudo de novo, deu uma trabalheira, mas ta quase tudo certinho..inclusive o D4 Ta.....depois de instalar o D4 de novo....aquele probleminha do tópico que perguntei sobre a Vcl40.bpl eu fiz o que você me disse coloquei na c:\windows\system32 e ai pediu outra bpl em fim foram uns 6 arquivos.....mas funcionou.. A minha pergunta é a seguinte... Nenhum aplicativo meu até hoje pediu esta *.Bpl só este...que fiz esta semana. Porque que ele pede estas *.bpl´s?? e é só este aplicativo, um aplicativo simples....nada de diferente. Será alguam configuração nele? Aguardo retorno.. Grande abraço t+

Oba.....Jonas..este erro sumiu...mas agora esta aparecendo este na hora de compilar. DEBUGGER KERNEL BORDBK40.DLL IS MISSING OR NOT REGISTERED tentei registrar a dll assim no dos: TREGSVR C:\Arquivos de programas\Arquivos comuns\Borland Shared\Debugger\bordbk40.dll ai deu este resultado...pelo que entendi registrou.... mas ai entro no delphi e tento compilar e o problema persiste :(

Pessoal... tenho varios programas em um servidor. neste servidor foram colocados todos estes programas na pasta: C:\EMPRESA OU seja.....exemplo:C:\EMPRESA\xxx.exe C:\EMPRESA\yyy.exe e outros... nas maquina de rede esta pasta foi mapeada para a letra Y:\ todas......uso a mesma letra(padrão). nestas maquinas foi configurado o BDE os aliases e o configbde NETDIR para: Y:\CONFIGBDE Local Share=True ou seja ta funciona tudo certinho.... agora a gente quer disponibilizar para a filial SPO estes aplicativos via Terminal Server...ou seja eles serão emulados e executados dentro do proprio servidor, i vem o problema......nos teste feitos enquando os usuarios da matriz estão usando via rede os aplicativos estão dando erro........ou seja o pessoal esta executando via rede..e eu estou indo já no terminal server dentro do proprio servidor...ai... Da erro: Directory is controllead by other .NET file Directory: Y:\CONFIGBDE\ FILE: C:\EMPRESA\TB\BDADOS\PDOXUSRS.LCK Mas este erro só acontece quando o pessoal ta usando a rede e eu estou no servidor (terminal server). Neste servidor configurei o BDE assim: NETDIR: C:\EMPRESA\CONFIGBDE LOCAL SHARE: FALSE também já tentei: LOCAL SHARE: TRUE já fiz vários processos e o conflito ocorre sempre..... alguém poderia me dizer se este processo que estou fazendo ta certo......ou se vai funcionar?? Grato

Ola.. pessoal..hoje de manhã..meu delphi não funciona mais como deveria funcionar... se eu compilo qualquer aplicativo, na minha máquina que tem delphi funciona certinho.. mas se eu executo este aplicativo em qualquer outra máquina da este erro abaixo: já tentei compilar a biblioteca DCLUSR40.DPK atraves do File<open> compilando...mas o erro persiste.

Opa.... R> SIM só ela... R> bom ai eu uso a QueryEntrada e QuerySaida.....uma de cada vez......tipo eu coloquei assim no combobox.... If Combobox1.text = 'saida' then saida If Combobox1.text = 'entrada' then entrada e agora então tem a todas: If Combobox1.text = 'todas' then ...seu codigo....... R> sim..fiz assim pra não ficar encalhado no relatorio, pelo menos a saida e a entrada ta prontinho, só falta a todas, neste caso o programa já esta funcionando ...e os usuarios já usam...só não habilitei ainda a TODAS no combobox.... Eu costumo fazer assim com If´s para cada situação......acho que fica mais fácil pra mim ententer o codigo e não me perder nele. :blush: Abraço

OLA...Bom Dia! R.: Eba...então vamos lá.. Carinha...seguinte...tentei montar o esqueminha..mas tenho algumas duvidas.. eu uso este codigo no botão pra gerar o relatorio(neste caso o relatorio tem aquele probleminha de não juntar): {...abaixo mostra o relatorio das filiais SAIDAS/ENTRADA JUNTOS...} If Combobox1.Text = 'TODAS' then begin //determina o nr de filiais do ranking FrDbDataSet3.RangeEndCount:=StrToInt(EditNrClientes.text); //codigo gerador...do rel. TXT:= 'SELECT SUM(Valor_Frete) as VALOR_FRETE_TOTAL, '+ 'SUM(CONTADOR) AS CONTADOR_TOTAL, '+ 'SUM(KG_CALCULO) AS KG_CALCULO_TOTAL, '+ 'SUM(VALOR_N_FISCAL) AS VALOR_N_FISCAL_TOTAL, '+ 'SIGLA_CTRC AS UNIDADE '+ 'FROM ctrc '+ 'WHERE (SITUACAO_CTRC <> "C") '+ 'AND DATA_EMISSAO between :datai and :dataf '+ 'Group By SIGLA_CTRC '+ 'UNION ALL '+ 'SELECT SUM(Valor_Frete) as VALOR_FRETE_TOTAL, '+ 'SUM(CONTADOR) AS CONTADOR_TOTAL, '+ 'SUM(KG_CALCULO) AS KG_CALCULO_TOTAL, '+ 'SUM(VALOR_N_FISCAL) AS VALOR_N_FISCAL_TOTAL, '+ 'FIL_DEST AS UNIDADE '+ 'FROM ctrc '+ 'WHERE (SITUACAO_CTRC <> "C") '+ 'AND DATA_EMISSAO between :datai and :dataf '+ 'Group By FIL_DEST '+ 'ORDER BY 1 DESC'; QueryTodas.Close; QueryTodas.SQL.Text := Txt; QueryTodas.ParamByName('dataI').AsDate := DateTimePicker1.Date; QueryTodas.ParamByName('dataF').AsDate := DateTimePicker2.Date; QueryTodas.Open; FrReport3.ShowReport; Application.ProcessMessages; Aguarde.visible:=FALSE; end; Note que é um codigo que esta num botão...ele tem um if se o usuario escolher TODAS(significa tudo junto entrada e saida). neste caso eu teria que juntar o seu codigo dentro deste if junto com o meu?? se for...poderia juntar pra mim....pois não entendi direito pois no seu codigo tem uma procedure que processa junto dentro... Grato

Corrigindo: Eu fiz o teste de maneira incorreta acredito, pois fiz novamente e realmente aconteceu o que o Micheus mencionou, a ultima linha do arquivo ele não processa(não importa); Então fiz as modificações conforme comentários que peguei aqui no post e o codigo funcionou corretamente assim: procedure TFormTXTDB.XiButton4Click(Sender: TObject); var Txt : TextFile; Entrada : String; begin Assignfile(Txt,'C:\MES\Clientes.Txt'); Reset(Txt); While Not Eof(Txt) do begin Readln(Txt, Entrada); Table1.Insert; Table1.FieldByName('ordem').Value := Trim(Copy(Entrada,10,06)); Table1.FieldByName('nome').Value := Trim(Copy(Entrada,16,42)); Table1.FieldByName('cnpj').Value := Trim(Copy(Entrada,58,18)); Table1.Post; end; CloseFile(Txt); END; Resumindo: o codigo ficou igual ao que eu havia postado inicialmente......exceto trocando esta linha: While Not Eoln(Txt) do Por esta: While Not Eof(Txt) do ou seja trocando EOLN por EOF valeu..pessoal muito grato pela ajuda... abraço a todos. t+

R.: Ola...carinha....Francamente,.......me enrrolei todo. achei muito dificil o esquiminha, e alem disto minha tabela é muito grande tem 95 campos (muito grande). vou ficar apenas nas opções de imprimir separando primeiro da filial de origem e depois imprimir da filial de destino, não vou juntar não, uma que não teria mta finalidade não, parece que em separado da mais visão da ideía......e também demoraria muito pra entender o esquema dos temporários e implementar a idéia, mesmo assim...muito grato pela ajuda até aqui.... abraços :blush:

R> valeu..Micheus...certinho. :) Obrigado a todos..

Ola...tou tentando fazer uma consulta sql...muito simpples porem não estou conseguindo que o resultado saia correto... Esta aqui funciona certinho.....mostra os clientes iguais na Clientes.cnpj = MClientes.Cnpj Select Clientes.Cnpj, Clientes.Nome From CLIENTES, MCLIENTES WHERE (CLIENTES.CNPJ = MCLIENTES.CNPJ) Order By Clientes.Nome, Clientes.Cnpj Porem eu preciso fazer diferente...mostrar os clientes DIFERENTES e NÃO IGUAIS Tentei assim mas não da certo: Select Clientes.Cnpj, Clientes.Nome From CLIENTES, MCLIENTES WHERE (CLIENTES.CNPJ <> MCLIENTES.CNPJ) Order By Clientes.Nome, Clientes.Cnpj Neste caso aparece o mesmo resultado do acima, porem duplicados varias vezes... Todos campos Alphanumericos + paradox. O que esta Incorreto?? Grato

R.:são mais registros....de outras filiais, só passei da filial BLU e SPO como modelo...mas todos com a mesma linha. quanto ao Paradox sim é ele mesmo.... R.: sim foi o que imaginei.. então, acho que é aquilo que citei acima, você poderia conferir conforme sugeri. R>: sim fiz o teste...e realmente se processada em separado ele processa certinho....mas quando faço junto o codigo com o Union All ai.....não funca...direito. :blush: R.: sim...com certeza. R.: pois é...acho que só sobrou ela....rs. :blush: poderias me ajudar?? :blush: valeu...grande abraço

Valeu..Pessoal :) Obrigado pela ajuda. haaa....com o codigo que o Deniz passou em fiz o teste: R. Micheus...respondendo a pergunta, pois eu fiz o testezinho, funcionou certinho.....eu tinha um arquivo texto de 30 linhas e ele processou certinho todos as linhas. :D Abraço t+ t+

Ola...tou testando um codigo pra gerar dados de um *.txt para *.db(paradox) O codigo que estou usando eu configurei e ele importe certinho, exceto pelo seguinte...ele importa de traz para frente em relação ao *.txt, ou seja ele começa a pegar os dados do final do *.txt alguém sabe porque ele faz isto e como corrigir este pequeno probleminha.. o Codigo que estou usando é este: procedure TForm1.Button2Click(Sender: TObject); var Txt : TextFile; Entrada : String; begin Assignfile(Txt,'C:\MES\Clientes.Txt'); Reset(Txt); While Not Eoln(Txt) do begin Readln(Txt, Entrada); Table1.Insert; Table1.FieldByName('ordem').Value := Trim(Copy(Entrada,10,06)); Table1.FieldByName('nome').Value := Trim(Copy(Entrada,16,42)); Table1.FieldByName('cnpj').Value := Trim(Copy(Entrada,58,18)); Table1.Post; end; CloseFile(Txt); end; Grato

OPA.. Corrigindo(tinha colocado incorreto a ordem): R.: sim adicionei R.: oK... Micheus...tava pensando....como foi feito na instrução.......assim: SIGLA_CTRC AS UNIDADE e depois logo abaixo: FIL_DEST AS UNIDADE ai acho que ele acaba mostrando os dois ....pois é o que ta acontecendo.... ele mostra primeiro o Blu em seguido o Spo..... pois existe a origem e o destino..e tava verificando ele mostra certinho separadamente.... seu eu tirar um relatorio só da origem ou só do destino, os dados são exatamente iguais a este resultado..certinho. Ele não junta......só falta juntar mesmo... quanto a eu usar o Freereport, acredito que se eu for fazer no quick é quase o mesmo esquema....até acredito que ele vai dar o mesmo resultado(problema). Aqui no forum......praticamente ninguém mexe com Freereport, pois já coloquei post aqui e quase ninguém respondeu... Vou tentar um forum que mexe exclusivamente com FreeReport. Demais..muito obrigado. Abraço

Micheus.....tava montando o relatorio no FreeReport....e ai...tou com um probleminha. fiz conforme você me disse...no DBD funcionou certinho.... No Freereport sai assim o resultado: Note que ao invés de ele juntar os registros de BLU e SPO ele não juntou....ta separando... No Freereport na Memo Group eu configurei. [([QUERYTodas.Unidade])] deveria funcionar pois UNIDADE você tinha feito um AS: POR exemplo se eu optasse por tirar separada....eu faria assim no group(e funciona): ou assim pelo destino Não sei se fui claro....... :blush: Grato

R.: Deu certo...fez exatamente o que precisava. :D valeu...muito Agradecido Abraço :)

Ola. R.: sim....sempre levando em consideração....que no mesmo registro existe a filial de origem e a filial de destino, ou seja...neste caso se o peso da carga for 10 kgs vai ter que duplicar ou seja 20 kgs, pois foi manipulado na filial de origem a coleta da mercadoria e depois foi manipulado na filial de destino também os 20 kgs que serão entregues ao destinatario.....então ao todo foi manipulado 10 na origem + 10 na destino = 20 kgs.no final do relatorio o somatório terá que ser o faturamento x 2(o dobro). Pois eu já consegui montar separado os dois.....na origem e no destino...mas agora tenho que fazer um resultado geral onde mostre saidas/entradas juntos. R.: não usei não..que eu me lembro nunca usei o Union.......o paradox suporte este comando, poderias dar um exemplo no codigo? R.: sim uso.....bom..se você acha que não vai ficar 100%....bom ai tenho que mostrar somente os dois relatorios que tenho... :blush: R.: Bom...eu tenho a RxLib instalada....mas nem imagino como fazer este processo que você menciona.... Mas beleza.....amigão. o importante que o meu objetivo principal era mostrar hoje sexta feira os dois relatorio de entradas e saidas separados..., e isto já consegui, se a gente conseguir montar este aqui(os dois juntos)....ai é lucro....digo a gente pois, você sempre me ajuda.... :blush: Abraço

Oba..Micheus..agora que vi sua resposta.. carinha....como é bastante codigo que você postou....eu final de semana vou dar uma estudada com calma em casa... Realmente.....otimiza bastante o codigo, e é mais uma opção pra importar..... Esta semana tou meio enrrolado aqui na empresa..então só sobrou em casa...rs. Inclusive tou com um problema num relatorio que postei aqui no forum de manhã..tenho que terminar este relotorio até amanhã....não sei como..mas vou tentar.. :blush: valeu....por mais esta dica.... Abraço :)

Ola...preciso montar relatorio que aparentemente é fácil mas não to conseguindo montar a instrução sql. Seguinte.....no mesmo registro tenho a filial emitente(SIGLA_CTRC) e a Filial Destino(FIL_DEST) notem que neste caso os valores de faturamento tentem a duplicar no relatorio pois existe um faturamento para duas alternativas(emitente e destino), mas tudo bem..é normal neste caso. eu preciso montar um relatorio onde mostre o Ranking das filiais no Geral ou seja, tudo que as filiais faturam... Eu consegui fazer elas separadas ou seja só as FILIAIS EMITENTE(SIGLA_CTRC) com este codigo sql: e depois o codigo pra FILIAL DESTINO assim: Txt:='SELECT SUM(Valor_Frete) as VALOR_FRETE_TOTAL, '+ 'SUM(CONTADOR) AS CONTADOR_TOTAL, '+ 'SUM(KG_CALCULO) AS KG_CALCULO_TOTAL, '+ 'SUM(VALOR_N_FISCAL) AS VALOR_N_FISCAL_TOTAL, '+ 'FIL_DEST '+ 'FROM ctrc '+ 'WHERE (SITUACAO_CTRC <> "C") '+ 'AND DATA_EMISSAO between :datai and :dataf '+ 'Group By FIL_DEST ORDER BY 1 DESC'; funcionou direitinho....ficou beleza. agora preciso juntar tudo as emitentes e destinos e mostrar..... Como ficaria a instrução sql juntando tudo? Estou usando para este relatório o Gerador de Relatorios FREEREPORT, pois estes dados no final vou montar gráficos, já esta tudo funcionando....menos esta 3 opção que seria juntar tudo. Espero que fui claro.... :blush: muito Grato

R.: não este é outro.....aquele era de conhecimento de transportes rodoviario de cargas...e este agora é de clientes(somente)a coluna agora é a 9.....rs :) R.: beleza..deu certo....era tão fácil nem pensei nisto..... :blush: valeu...muito Grato abraço :D