[RESOLVIDO] Upc Novamente

Ou seja.... me quebrei por enquanto...
heehhaehiuae

sera que abri FO resolve?

cara, acredito q não, mas não custa nada tentar

depois, se puder, posta a resposta da datasul aqui no fórum

vlwww

eae pessoal, voltando ao programa ft0516aa, inseri novamente a upc abaixo

Código:

DEF INPUT PARAM p-ind-event  AS CHAR          NO-UNDO.
DEF INPUT PARAM p-ind-object AS CHAR          NO-UNDO.
DEF INPUT PARAM p-wgh-object AS HANDLE        NO-UNDO.
DEF INPUT PARAM p-wgh-frame  AS WIDGET-HANDLE NO-UNDO.
DEF INPUT PARAM p-cod-table  AS CHAR          NO-UNDO.
DEF INPUT PARAM p-row-table  AS ROWID         NO-UNDO.

DEF VAR c-char AS CHAR  NO-UNDO.
DEF VAR wh-objeto AS WIDGET-HANDLE NO-UNDO.
DEF VAR wh-objeto2 AS WIDGET-HANDLE NO-UNDO.

IF VALID-HANDLE(p-wgh-object) THEN
  ASSIGN c-char = ENTRY(NUM-ENTRIES(p-wgh-object:FILE-NAME,"~/"),p-wgh-object:FILE-NAME,"~/").
ELSE c-char = ?.

   assign wh-objeto  = p-wgh-frame:FIRST-CHILD.
   do while valid-handle(wh-objeto):
      CASE wh-objeto:NAME:
         WHEN "Fpage6" THEN
         DO:

             assign wh-objeto2  = wh-objeto:FIRST-CHILD.
             do while valid-handle(wh-objeto2):
                 CASE wh-objeto2:NAME:
                     WHEN "rsDestiny" THEN
                     DO:
                        message "teste" view-as alert-box.
                        wh-objeto2:DISABLE("Terminal").
                     END.
                     WHEN "rsExecution" THEN
                        wh-objeto2:sensitive = no.
                 END CASE.
         
                 if wh-objeto2:TYPE = 'field-group' then
                     assign wh-objeto2 = wh-objeto2:FIRST-CHILD.
                 else
                     assign wh-objeto2 = wh-objeto2:NEXT-SIBLING.
             END.
         END.
      END CASE.

      if wh-objeto:TYPE = 'field-group' then
         assign wh-objeto = wh-objeto:FIRST-CHILD.
      else
         assign wh-objeto = wh-objeto:NEXT-SIBLING.
   END.

o que acontece é que ele não desabilita a opção TERMINAL, porém ele está setando o valor default como sendo IMPRESSORA, já é algo , sendo que antes da upc ele trazia default TERMINAL

alguém sabe o q pode ser???? Lembrando que estou com a versão 003 atualizei todos os pacotes

vlwwwww

a sim, abri FO na datasul pedindo a respeito e caiu em consultoria

pessoal só para dar um retorno, realmente o problema era a versão do programa, atualizei o mesmo e a upc funcioonou de acordo.