Ir para conteúdo
Fórum Script Brasil

Pirambu!

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    359

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Pirambu!

  2. Quick report

    em Delphi, Kylix

    Postado

    jhonas, estou fazendo o relacionamento da tabelas com esse código abaixo 

    SELECT O.ID_DESENHOS,O.NUMOF, O.DATAEMISSAO,O.DATAPRAZOCLIENTE,O.DATAFECH,O.QTD, O.PEDIDO,F.ID_FLUXO,I.ID_MATERIAL
FROM TAB_PCPORDFAB O
LEFT JOIN TAB_DESENHOS_FLUXO F ON O.ID_DESENHOS = F.ID_DESENHOS
LEFT JOIN tab_desenhos_insumo I ON O.ID_DESENHOS = I.ID_DESENHOS
WHERE O.ID_DESENHOS = '45'
GROUP BY O.ID_DESENHOS,F.ID_FLUXO,ID_MATERIAL 
ORDER BY O.NUMOF,F.ID_FLUXO,ID_MATERIAL

    Estão relacionado pelo o ID_DESENHOS,

    -> Produto (primeiro grupo) "ID_DESENHOS"

    --> operações 1 (Segundo grupo) "ID_DESENHOS"

    --> operações 2 (Segundo grupo) "ID_DESENHOS"

    --> material 1 (Terceiro Grupo) "ID_DESENHOS"

    --> material 2 (Terceiro Grupo) "ID_DESENHOS"

    --> material 3 (Terceiro Grupo) "ID_DESENHOS"

    vou tentar novamente,

  3. Quick report

    em Delphi, Kylix

    Postado

    Jhonas, eu verifique sua ultima sugestão, eu estou conseguindo fazer o agrupamento usando uma Query para as duas tabela, mas quando realizo pegando informações de 3 tabelas, ai é onde esta o problema,as informações teria para fica dessa forma

    -> Produto (primeiro grupo)

    --> operações 1 (Segundo grupo)

    --> operações 2 (Segundo grupo)

    --> material 1 (Terceiro Grupo)

    --> material 2 (Terceiro Grupo)

    --> material 3 (Terceiro Grupo)

    o grupo segundo e terceiro estão lincado ao primeiro grupo.

  4. Quick report

    em Delphi, Kylix

    Postado

    Jhonas, estava evitando criar tudo em uma query, mas acabei criando, agora tenho que agrupamento tenho as seguintes informações

    peças

    -> materiais para fabricar as peças

    -> Operações para fazer a peça.

    tentei montar usando um

    grupo1

    detalhe 1

    datelhe 2

    mas não funcionou.

  6. Quick report

    em Delphi, Kylix

    Postado

    Oi pessoal estou precisando de ajuda para montar um relatório onde tenho duas query, estão no form do relatorio.

    primeira e a "PEDIDO"

    SELECT ID_DESENHOS,NUMOF, DATAEMISSAO,DATAPRAZOCLIENTE,DATAFECH,QTD, PEDIDO
FROM TAB_PCPORDFAB  
GROUP BY ID_DESENHOS
ORDER BY NUMOF

    a segunda e são as informações das peças relacionado ao "ID_DESENHOS".

    SELECT OF.ID_DESENHOS,S.SETOR, F1.RECURSO, O.OPERACAO 
FROM tab_pcpordfab OF
LEFT JOIN tab_desenhos_fluxo F ON OF.ID_DESENHOS = F.ID_DESENHOS
LEFT JOIN tab_fluxo F1 ON F.ID_FLUXO = F1.ID_FLUXO
LEFT JOIN tab_SETOR S ON F1.ID_SETOR = S.ID_SETOR
LEFT JOIN tab_operacao O ON F1.ID_OPERACAO = O.ID_OPERACAO
WHERE OF.ID_DESENHOS = :A

    preciso lista as peças em grupo, onde cada grupo de peça, tenho as informações complementares que seria as informações da segunda query.

  11. Demora na hora de salvar no banco Mysql

    em Delphi, Kylix

    Postado

    Estou testando um programa de vendaBalcao, quando realizo a venda eu uso uma query para enviar os dados para o banco de dados, mas esta demorando aproximadamente 2segundos

    Estou usando esse Escript

    //ADICIONA O ITEM A COMPRA.

    With Qadditem do

    Begin

    Close;

    Sql.Clear;

    Sql.Add('Insert Into TVendaItens(ID_Venda,ID_Produto,ValorUnit,Quantidade,ValorTotal)');

    Sql.Add('Values(:ID_Venda,:ID_Produto,:ValorUnit,:Quantidade,:ValorTotal)');

    Params[0].Value:= ID_Venda;

    Params[1].Value:= QProdutoID_Produto.Value;

    Params[2].Value:= (VUnitario * Percentual);

    Params[3].Value:= 1;

    Params[4].Value:= (VUnitario * Percentual);

    ExecSql;

    end;

    Gostaria de deixar mais rápido.

  14. QuickReport

    em Delphi, Kylix

    Postado

    Estou com tela de pesquisa, quando listo os itens pesquisados, abro o Relatorio no QuickReport normal, mesmo que eu feche o relatorio e abro novamente, mas quando eu fecho o Form de pesquisa e abrir novamente, e listo os memos itens ou outros, no QuickReport apareçe em branco.

    Para Abrir estou a Tela de pesquisa estou usando este codigo:

    IF FPESQ_LISTPECAS = NIL THEN
Application.CreateForm(TFPESQ_LISTPECAS, FPESQ_LISTPECAS);
FPESQ_LISTPECAS.SHOWMODAL;
    E para abrir o Relatorio: 
    IF RPESQ_LISTPECAS = NIL THEN
 Application.CreateForm(TRPESQ_LISTPECAS, RPESQ_LISTPECAS);
 RPESQ_LISTPECAS.QuickRep1.Preview;
    e para Fechar: 
    Action:=Cafree;
FPESQ_LISTPECAS:= nil;

Action:=Cafree;
RPESQ_LISTPECAS:= nil;

  19. (Resolvido) ZUpdateSQL

    em Delphi, Kylix

    Postado

    Jhonas, estou tendo um problema, estou usando um PC como servidor onde esta o banco de dados e 3 terminais onde realiza as consulta no servidor, quando passa o código de barra esta demorando um pouco para carrega as informações do produto, eu estava pensado que o ZUpdateSql poderia ser usando para trazer as informações do produto que estão no servidor para o terminal quando o programa fosse aberto, e quando fecha fosse atualizado no servidor, e fica trabalhando as informações no cache da maquina.

  21. Sinal placa som

    em Delphi, Kylix

    Postado

    Jhonas, eu olhei e instalei o Vu Meter, mas não estava fazendo o que eu queria, eu achei o PhoneToneDecoder você já tinha visto? ele decodifica o sinal e identifica os numeros, da forma que eu queria, mas é um componente pago, mas deu para entender como funciona, acho que agora fica melhor de explicar, ele identifica o pulso pela frequencia e tempo da frequencia tem até um site que gera o sinal para cada numero, agora falta só acha algo que leia a frequencia do sinal na entrada, vou continuar procurando.

  22. Sinal placa som

    em Delphi, Kylix

    Postado

    Jhonas, acho que estou chegando perto, instalei o Tcomport e testei todas as Com1,Com2... disponíveis e não identifiquei a chegada dos dados que quando o dispositivo esta sendo usado ele oculpa uma porta que não são as "COM". Pergunta, quando um dipositivo e ligado em uma porta (exemplo 3822) essa porta fica aberta até que o dispositio seja fechado ou é aberto e fechado quando há alguma transferencia de dados?

    Eu criei um Scaner link que indica as portas abertas, mas como eu posso monitorar o tráfico de dados na porta eu sei como os os dados estão chegando, só não sei como pega-los.

  24. Sinal placa som

    em Delphi, Kylix

    Postado

    Jhonas, ainda não é isso, este componete identifica a entrada da placa de modem. eu estou tentando monitora a entrada da placa de som, que é uma entrada serial, tire uma dúvida, as portas disponivel de entrada são independente do conector(DB9, DB25, Modem e Entrada de Audio)? vou tentar monitora as COM1,COM2... para identificar se o sinal passa algum desses

  25. (Resolvido) Fechar Form

    em Delphi, Kylix

    Postado

    Jhonas, Obrigado, mas não estava querendo usa um botão para isso, eu conseguir ficou assim

    usei isso para minimizar

    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

    begin

    Action := caNone;

    Application.Minimize;

    end;

    depois com um popupmenu usei isso
    procedure TForm1.Button2Click(Sender: TObject);

    begin

    Application.Terminate;

    end;

    ficou bom, obrigado pela força

×
×
  • Criar Novo...