Campo Calc em Browse

Discussão em 'Progress 4GL' iniciado por alexandretm, Abril 23, 2012.

  1. alexandretm

    alexandretm Membro Participativo

    Srs.Desenvolvi m programa de consulta de pedidos, a coloquei o campos calculo onde pesquiso se existe op para o pedido em questao, ate neste passo beleza, o browser marca no campo calc X se tem ou deixa em branco se nao tiver, so que coloquei um botao para mostrar todos pedidos que tenham OP, mas nao consigo mostras apenas os pedidos que tenham op.OBS nao posso vincular a tabela no for principal, pois, fica lento, e ate mesmo por outros motivos, alguem ja fez isto.

    seque codigo

    /* Definitions for BROWSE brw-pedidos */
    &Scoped-define FIELDS-IN-QUERY-brw-pedidos ~
    IF NOT CAN-FIND (FIRST TT-PED-VENDA-AUX WHERE TT-PED-VENDA-AUX.NR-PEDIDO = PED-VENDA.NR-PEDIDO AND TT-PED-VENDA-AUX.NOME-ABREV = PED-VENDA.NOME-ABREV AND TT-PED-VENDA-AUX.SELEC = YES) THEN "" ELSE "X" ~
    ped-venda.dt-entrega ped-venda.nr-pedido ped-venda.nome-abrev ~
    IF NOT CAN-FIND (first ord-prod where ord-prod.nr-pedido = ped-venda.nr-pedcli and ord-prod.nome-abrev = ped-venda.nome-abrev) THEN "" ELSE "X" ~
    IF NOT CAN-FIND (first pre-apontamento where pre-apontamento.nr-pedido = ped-venda.nr-pedido and pre-apontamento.nome-abrev = ped-venda.nome-abrev) THEN "" ELSE "X" ~
    ped-venda.bairro ped-venda.cidade ped-venda.estado transporte.nome-abrev ~
    transporte.bairro transporte.cidade transporte.estado cond-pagto.descricao
    &Scoped-define ENABLED-FIELDS-IN-QUERY-brw-pedidos
    &Scoped-define QUERY-STRING-brw-pedidos FOR EACH ped-venda ~
    WHERE ped-venda.cod-sit-ped <= 2 NO-LOCK, ~
    FIRST transporte WHERE transporte.nome-abrev = ped-venda.nome-transp OUTER-JOIN NO-LOCK, ~
    FIRST cond-pagto OF ped-venda OUTER-JOIN NO-LOCK ~
    BY ped-venda.nome-abrev
    &Scoped-define OPEN-QUERY-brw-pedidos OPEN QUERY brw-pedidos FOR EACH ped-venda ~
    WHERE ped-venda.cod-sit-ped <= 2 NO-LOCK, ~
    FIRST transporte WHERE transporte.nome-abrev = ped-venda.nome-transp OUTER-JOIN NO-LOCK, ~
    FIRST cond-pagto OF ped-venda OUTER-JOIN NO-LOCK ~
    BY ped-venda.nome-abrev.
  2. jdchaves

    jdchaves Membro Participativo

    o teu problema é o campo calculado ou a performance? não entendi muito bem.
  3. alexandretm

    alexandretm Membro Participativo

    Fiz Browse com for each tabela ped-venda, ai coloquei 1 campo calculado com instrucao de can-find com regra de que se encontrar uma OP no pedido ele traga neste campo X, assim o browse aparece 1 campo calc onde demonstra X caso haja op para o pedido.

    O Meu problema é colocar um botao na frame que quando clicado faca o filtro no browse para trazer apenas os pedidos que estejam com campo calc marcado com X, nao consigo fazer um filtro.

    tenho rotina no sistema assim
    EXEMPLO:

    OPEN QUERY BRW-PEDIDOS
    FOR EACH PED-VENDA NO-LOCK
    COMO COLOCAR UM FILTRO NESSE COMANDO COM CAMPO CALC.
  4. alexandretm

    alexandretm Membro Participativo

    Segue Tela do Programa, no frame-a tem um tg-pesagem que queria quando clicado filtra-se e mostra-se no browse apenas os pedidos que estao com campo calc na columa exp, os registros que estiverem com X

    Arquivos Anexados:

Compartilhe esta Página