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

Dúvida Retorno Conta Aplicação - CD0138

Discussão em 'Progress 4GL' iniciado por Marcos Frasson, Maio 8, 2018.

  1. Marcos Frasson

    Marcos Frasson Membro Participativo

    Boa tarde Pessoal.

    Tenho código anexo, que ao clicar no campo do meu programa customizado ele abri o Zoom igual ao campo conta de aplicação do CD0138, porém não imagino como retornar essas informações para meu campo do programa.

    Alguém já precisou abrir esse Zoom e retornar os valore da coluna Conta Contábil?

    Obrigado desde já!

    Arquivos Anexados:

  2. odair.batista

    odair.batista Sem Pontuação

    Segue exemplo:
    Código:
    /* Colocar nas definições do programa */
    define new global shared variable v_rec_cta_ctbl_integr as recid no-undo.
    
    
    /* Colocar na trigger do campo */
    run prgint/utb/utb033na.p
        ("ACR"          /* Informe o módulo */
         , 'PLAN01'     /* Informe o plano de contas */
         , 'FIN01').    /* Informe a finalidade */
    
    if v_rec_cta_ctbl_integr <> ? then do:
        assign
            <campo tela codigo>:screen-value in frame {&frame-name} = ''
            <campo tela descri>:screen-value in frame {&frame-name} = ''
            .
    
        for first cta_ctbl_integr
            where recid(cta_ctbl_integr) = v_rec_cta_ctbl_integr
            no-lock:
    
            assign
                <campo tela codigo>:screen-value in frame {&frame-name} = string(cta_ctbl_integr.cod_cta_ctbl).
    
            for first cta_ctbl
                where cta_ctbl.cod_cta_ctbl       = cta_ctbl_integr.cod_cta_ctbl
                  and cta_ctbl.cod_plano_cta_ctbl = cta_ctbl_integr.cod_plano_cta_ctbl
                no-lock:
       
                assign
                    <campo tela descri>:screen-value in frame {&frame-name} = cta_ctbl.des_tit_ctbl.
       
        end.
    
        apply "entry" to <campo tela codigo> in frame {frame-name}.
    end.
    
  3. Marcos Frasson

    Marcos Frasson Membro Participativo

    Bom dia @odair.batista , Obrigado pelo envio do exemplo.

    Você saberia me dizer sobre essa variável v_rec_cta_ctbl_integr ? Eu sei que pra chamar zoom's que estão na zoomvar.i tem algumas variáveis que precisam estar declaradas, como wh-pesquisa, etc..
  4. Marcos Frasson

    Marcos Frasson Membro Participativo

    Bom Dia.

    Quando fui olhar o código eu acabei baixando a barra de rolagem e não tinha visto a declaração da variável v_rec_cta_ctbl_integr .

    Declarei a variável e programa compilou, mais ao abrir o programa do Zoom, ainda não consegui retornar a informação para o campo. Fiz todas as alterações de campos que é passado no exemplo acima e mesmo assim, a informação escolhida no Zoom não retorna para o campo da tela.
  5. Marcos Frasson

    Marcos Frasson Membro Participativo

    Informe que consegui resolver.

    Obrigado!

Compartilhe esta Página