Ir para conteúdo
Fórum Script Brasil

William - TI

Membros
  • Total de itens

    133
  • Registro em

  • Última visita

Tudo que William - TI postou

  1. Já esta Resolvido caso alguém tenha uma duvida como esse. é assim. Basta colocar um qrExpr e colocaoar na Expressao SUM(nome do campo), depois setar a propriedade resetafterprint = true; Resolvido.
  2. Boa tarde Galera, mais uma vez estou presisando da ajuda de vocês . Estou fazendo um relatorio de itens, Descrição e preço so que a cada folha quero somar o total da folha tipo 1 folha 50,00 segunda 63, te como vazer isso? mais uma vez grato pela atenção.
  3. Amigo qual o banco de dados que você usa, isto já vai facilitar um pouco para compreendermos, ficou um pouco confuso sua esplicação teria como explicar melhor? grato...
  4. Amigo você pode fazer na propria tabela do seu sistema, tipo na tabela que você listar coloque um campo MUDALINHA INT 1 DEFUL 0, ai fica facil na quarta linha covê coloca o campo MUDALINHA p/ 1, e o codigo ficará assim isto já deve resolver seu problema.
  5. Obrigado pela ajuda, por enquanto ainda estou usando armazenando na varialve posi ficou mais legivel o codigo e mais simples. muito obrigado pela ajuda de vocês.
  6. Amigo é muito simples. primeiro o ideal e fazer como sugeri no 1º post com um cadastro de clientes para não precisar digitar os dados a cada compra do cliente. depois no novo pedido é so você criar o cabelhalho primeiro e colocar um botão inserir itens, assim que clicar ele salva os dados do cabeça e armazena em uma variavel o gerado no vendas depois é só indo inserindo os itens setando VENDA_ID para o valor da variavel e a cada inserção você faz uma pesquisa select * from movimento vendas where VENDA_ID=VARIAVEL. acho que é só isso.
  7. Obrigado pelos topicos jonas. mais ainda não consegui gerar o TXT como preciso. Só para verificar se minha lógica esta correta. estou gerando cada linha do TXT primeiro em uma Variavel String e preenchendo ela de acordo com o layout para depois gerar a linha no TXT com Writeln(ARQUIVO, VARIAVEL); até agora esta funcionando, a duvida é isto esta correto ou o ideal e gerar dereto no txt setando a coluna como o layout? mais uma vez grato pela atenção.
  8. entendi eu não achei o erro mais deixa em aberto caso alguém mais esperiente encontre. a te mais.
  9. Caro amigo, compilei seu codigo e ele esta complilando normal parece que esta tudo OK. da erro em que parte?
  10. Caro amigo não estou conseguindo assimilar direito mais vamos lá você que criar uma tabela de pedidos? se for é simples precisa criar duas tabelas uma com o cabeçlho e outras com os itens tipo cabeçalho. Id id_cliente valor total e a itens id id_produto pr_unitario qtde id_cabecalho e a tabela de clientes id nome como fazer isto no seu sistema coloca apenas o codigo do cliente o sistema te mostra os dados dele mais no banco você so salva o codigo, nos itens você pode salvar n itens para um pedido. lembrando que não entendi muito bem mais ve se te ajuda ou posta um pouco mais detalhado.
  11. amigo é muito simples. como você quer dar dois cliques não precisa relacionar as tabelas. 1º tela você usa um DBGRID uma QUERY e um DATASOURSE que fica na aba DATA ACCESS faz a ligação entre eles. QUERY1.ACTIVE :=FALSE; QRERY1.SQL.CLEAR; QUERY1.SQL.ADD('select * from clientes'); QRERY1.ACTICE :=TRUE; Isto mostrara todos os clientes e no ondblclic do dbgrid você cham uma segunda tela com os mesmos componentes da anterior porem você modifica um pouco a pesquisa QUERY1.ACTIVE :=FALSE; QRERY1.SQL.CLEAR; QUERY1.SQL.ADD('select * recebimento where codcliente="'+form1.query1.fieldbyname('codigo').asString+'"'); QRERY1.ACTICE :=TRUE; isto mostrará todos os recebimentos caso não for isto poste aqui, caso queira relacionar e mais ou menos assim select clientes.nome, recebmento.* where clientes.codigo=1 and clientes.codigo=recebimento.codcliente mais ou menos. assim.
  12. da pra fazer isso sim meu amigo na aba internet existe um componente chamado WebBrowser1 basta colocar este componente e acrescentar um botan ou no onactivate do forma WebBrowser1.Navigate('www.google.com.br'); esta ok. tem este tutorial que explica melhor de uma olhada Tutorial navegador web em delphi
  13. Entendo, é realmente aqui funciona pois usamos windows server 2003 e colocamos a politica de segurança que usuarios normais não tem acesso ao ambiente de rede e nem pornt de comando em o executar , resumindo o computador tem acesso a pasta porem o usuario não , (não que isso seja impossivel, mais já é um pouco mais seguro). agora no caso de servidor linux já complica um pouco. de Socket eu entendo muito pouco se entendese mais te ajudaria. abraços.
  14. o amigo pode contar sim, desculpa não ter respondido o outro post pois estava sem net aqui.
  15. Caro amigo desculpa não ter respondido mais pois aqui estava sem internet agora que volou, fico feliz que já tenha resolvido.
  16. Jonas o codigo que você me passou funciona perfeito só que o que eu preciso é gerar um txt. Não sei se você conhece o arquivo Sintegra? Preciso gerar ele vou colocar um breve passo do layout para você verificar. de onde pegar os dados eu sei porém só não consigo gerar o txt. este é o primeiro registro. Nº Denominação do Campo Conteúdo Tamanho Posição Formato 1 Tipo “10” 2 1 2 N 2 CNPJ CNPJ do estabelecimento informante 14 3 16 N 3 Inscrição Estadual Inscrição estadual do estabelecimento informante 14 17 30 X 4 Nome do Contribuinte Razão social do contribuinte 35 31 65 X 5 Município Município onde está domiciliado o estabelecimento informante 30 66 95 X 6 Unidade da Federação Unidade da Federação referente ao Município 2 96 97 X e gerar neste layout, mais uma vez grato pela atenção.
  17. Amigo. Tenta criar uma pasta no servidor e liberar o acesso apenas para esta pasta e salvar os campos que estão como blob cria um arquivo que pode ate ser txt no caso de texto, e se for imagem salva a propria imagem. e na base de dados salva apenas nome do arquivo e o sistema configura para buscar nesta pasta eu faço isso aqui com imagens, pr anão carregar muito o banco.
  18. Amigão verifica se este link te ajuda. undefined http://www.linhadecodigo.com.br/Artigo.aspx?id=47 Abraços.
  19. o motivo é que sua query esta vazia a epsquisa não esta retornando nada. foi minha primeira pergunta verifica a pesquisa novamente.
  20. Caros amigos estou precisando da ajuda de vocês para gerar um TXT Preciso gerar tipo assim geraTXT('00', 1,2); onde o primeiro parametro é o texto o segundo a linha e o terceiro o coluna. Se eu existir apenas o geraTXT('00', 2); onde o primeiro parametro é o texto o segundo a coluna já me ajuda bastante. mais uma vez grato pela ajuda.
  21. a pesquisa esta retornando os dados corretos? se tiver é so você fazer um wile para preencher um variavel com o valor cujo CAIDIN = 'X'. este codigo abaixo não irá funcionar é só a logica. EX. var Soma : real; begin Soma :=0; QueryRelCaixa.firt; while not QueryRelCaixa.eof do begin if QueryRelCaixa.fieldbyname('CAIDIN').asString=X then begin Soma :=soma + QueryRelCaixa.fieldbyname('VALOR').asFloat; end; QueryRelCaixa.next; end; end;
  22. vamos lá. ficaria assim inseri um zeus ZMySqlTable1 no formulario e na propriedade database ligue ela ao database e no tablename coloque o nome da tabela. procedure TForm1.Button1Click(Sender: TObject); begin if ZMySqlTable1.RECORDCOUNT > 0 then begin ZMySqlTable2.active :=true; end else clientDataSet2.close; end; procedure TForm1.Button4Click(Sender: TObject); begin ZMySqlTable1.Cancel; end; procedure TForm1.Button2Click(Sender: TObject);begin ZMySqlTable1.post; end; Este eu não sei o oque ele faz. Caso de algum erro ou não esteja correto as ligações que eu fiz pos tai fazendo um favor, pois como não trabalho com ClientDataSet1 não sei ao certo o que ele faz se quisar postar tipo: pois para mim fica mais facil de entender. até mais.
  23. Amigão o alritimo esta mais ou menos correto precisa de algumas modificação caso o peso esteja mais que 50 você pode tirar as variaves P2 e P3 que esta em excesso Tire os dois ultimos retanguos e no primeiro troque por E = P-50 segungo troque por isto M=E * 4 prontinho problema resolvido.
  24. William - TI

    HeidiSql

    Boa tarde. o HeidiSQL é uma excelente ferramentapara, é parecida com myslq - fronte e sqlYoung, já usei e aprovei. em minha opnião é bem mais facil que o phpMyAdmin, mais se for usr o HeidiSQL para acessar uma base de dados remotamente (hospedada), o phpMyAdmin é mais facil para configurar, agora se for localmente o HeidiSQL com certeza. te mais. abraços.
×
×
  • Criar Novo...