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] Upc Novamente

Discussão em 'EMS , HCM e Totvs 11' iniciado por Will, Setembro 11, 2009.

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

    Will Membro Participativo

    só praconstar no programa cd0401 , ao invés d utilizar page3 , por exemplo, utilizei o f-main para o primeiro wh-objeto
  2. Will

    Will Membro Participativo

    Cleilton, o procedimento está de acordo, porém agora surgiu mais um empecilho, preciso que esssa alteração somente seja executada quando o evento for add. Porém a relação wh-objeto:name, wh-objeto2:name e p-ind-event não tem relação netes momento, tem alguma sugestão? segue o código

    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 "f-main" THEN
             DO:
                /* Neste momento deveria validar se o p-ind-event = "ADD", porém em função do meu objeto:name ser f-main ele não entra na condição */
                assign wh-objeto2  = wh-objeto:FIRST-CHILD.
                do while valid-handle(wh-objeto2):
                   CASE wh-objeto2:NAME:
                      when "rs-trib-pis" then do:
                         assign wh-objeto2:screen-value = "2".
                      end.
                      when "rs-trib-cofins" then do:
                         assign wh-objeto2:screen-value = "2".
                      end.
                   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.
    
    
  3. Cobra.cne

    Cobra.cne Equipe de Suporte Moderador

    Não sei dizer neste momento se é através de parâmetro ou não, mas aqui o campo de código do emitente só fica habilitado quando esta inserindo um campo (ADD), dai pega em qualquer outro evento a handle deste campo, no evento de AFTER-CHANGE-PAGE do CONTAINER onde vc esta atribuindo os valores padrão e verifica se o SENSITIVE do campo EMITENTE está ativo, se sim atribui os valores, caso contrário não.

    Att.
  4. Will

    Will Membro Participativo

    pois é até consegui fazer isso, o únic problema, é que pra minha upc setar o valor do meu campo o usuário deve obrigatoriamente mudar de página no meu folder, não basta ele clicar no botão ALTERAR, que seria onde desejaria que os valores fossem setados. Pelo que analisei até acredito que não tenha o que fazer neste caso, mas se houver alguma solução fico grato, estou postando o código final vlwww

    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.
    def new global shared var lAltera    as logical       no-undo.
    
       assign lAltera = false.
    
       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 "f-main" then DO:
                assign wh-objeto2  = wh-objeto:FIRST-CHILD.
                do while valid-handle(wh-objeto2):
                   CASE wh-objeto2:NAME:
                      when "cod-emitente" then do:
                         if wh-objeto2:sensitive = true then
                            assign lAltera = true.
                         else
                            assign lAltera = false.
                      end.
                      when "rs-trib-pis" then do:
                         if lAltera = true then
                            assign wh-objeto2:screen-value = "1".
                      end.
                      when "rs-trib-cofins" then do:
                         if lAltera = true then
                            assign wh-objeto2:screen-value = "1".
                      end.
                   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.
    
  5. muertebr

    muertebr Membro Participativo

    Alguem ja esta vom a versão V 2.00.00.012 ????

    Eu tento colocar UPC, SCREEN-OPTIMIZER e nada ta pegando no programa.

    Essa versão veio com os fontes fechados...
    Alguem esta trabalhando com ela e conseguiu fazer algo???
  6. Will

    Will Membro Participativo

    estou com a versão 8, se quiser que eu realize um teste mesmo assim, só enviar o código

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

Compartilhe esta Página