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á!
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.
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..
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.