1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

[RESOLVIDO] Zoom dentro de um Browse

Discussão em 'EMS , HCM e Totvs 11' iniciado por muertebr, Agosto 7, 2009.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. muertebr

    muertebr Membro Participativo

    Ola pessoal...
    Criei uma tela onde tem um browse com um campo editavel, eu gostaria de saber se tem como, e como q eu faço para colocar o zoom dentro desse campo editavel e como fazer para ser um campo valido??

    Já consegui abri a tela de zoom só que não retorna o valor no campo, e pode ser colocado qualquer valor no campo.

    Se alguem souber, agradeço ;)
  2. mcarril

    mcarril Membro Participativo

    Você consegue enchergar a seleção de valores no programa novo de zoom ? Se sim é só guardar o Recid. Tipo define uma variavel shared do tipo recid .
    No enter do novo programa de zoom você guarda este recid e sai.
    Dentro do programa antigo você tratar o dado, acessa novamente a tabela e mostra ela no browse.
  3. muertebr

    muertebr Membro Participativo

    Ta fiz o recid mais parece q ele não ta buscando o valor selecionado no programa de zoom
  4. mcarril

    mcarril Membro Participativo

    Tem como postar os pgms ?
  5. muertebr

    muertebr Membro Participativo

    /******** BROWSE ***********/
    DEFINE BROWSE BROWSE-4
    &ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS BROWSE-4 w-consim _STRUCTURED
    QUERY BROWSE-4 NO-LOCK DISPLAY
    ped-venda.nome-tr-red FORMAT "x(12)":U
    emitente.telefone[1] FORMAT "x(15)":U WIDTH 13.72
    ped-venda.nr-pedcli FORMAT "x(12)":U WIDTH 9.86
    ped-venda.nome-abrev FORMAT "x(12)":U
    emitente.endereco FORMAT "X(40)":U WIDTH 25
    emitente.cidade FORMAT "x(25)":U WIDTH 18.43
    emitente.estado FORMAT "x(4)":U
    ENABLE
    ped-venda.nome-tr-red

    /************* DUPLO CLIQUE CHAMANDO O ZOOM **********/
    /* _UIB-CODE-BLOCK-END */
    &ANALYZE-RESUME
    &Scoped-define SELF-NAME ped-venda.nome-tr-red
    &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL ped-venda.nome-tr-red w-consim
    ON MOUSE-SELECT-DBLCLICK OF ped-venda.nome-tr-red IN BROWSE BROWSE-4 /* Prev */
    DO:
    RUN eqp\ateq016zoom.p.
    END.

    /************ BUSCAR ZOOM ****************/
    def var wh-pesquisa as widget-handle.
    def new global shared var l-implanta as logical init no.
    def new global shared var h-nome-tr-red as widget-handle no-undo.
    def new global shared var wh-window as handle no-undo.
    def new global shared var adm-broker-hdl as handle no-undo.

    {include/zoomvar.i &prog-zoom=adzoom/Z01AD268.w
    &proghandle=wh-window
    &campohandle=h-nome-tr-red
    &campozoom=nome-abrev}

    OBS: Acredito que o problema esteja no campohandle.... só que se eu tento passa o campo chamado: nome-tr-red ele da erro de extent.
  6. mcarril

    mcarril Membro Participativo

    Vamos aguardar alguem te ajudar porque não trabalho com Datasul, conheço o ambiente, mas não tenho como testar e tentar arrumar por aqui.
    Abraços
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página