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

Urgente UPC PD4000 capturar nr-pedido

Discussão em 'EMS , HCM e Totvs 11' iniciado por Renan Cano, Maio 13, 2021.

  1. Renan Cano

    Renan Cano Membro Participativo

    Pessoal estou precisando de help, preciso capturar o numero do pedido de venda (ped-venda.nr-pedido), aquele que fica exibido na parte superior do Treeview, alguem sabe me informar como consigo capturar esse bendito ao acessar e navegar pelos pedidos preciso que pegue esse numero do pedido que o usuario esta.
  2. rafael.andrade

    rafael.andrade Membro Master Equipe de Suporte

    Mas você já tem uma UPC?

    Se você já tem, só pegar um evento que passe na tabela ped-venda trazendo o RowID pelos parâmetros básicos da UPC, assim vc faz um FIND e tem o pedido inteiro.

    Parâmetros da UPC com um FIND básico
    Código:
    DEFINE INPUT PARAMETER Evento           AS CHAR          NO-UNDO.
    DEFINE INPUT PARAMETER Objeto           AS CHAR          NO-UNDO.
    DEFINE INPUT PARAMETER hObjeto          AS HANDLE        NO-UNDO.
    DEFINE INPUT PARAMETER hFrame           AS WIDGET-HANDLE NO-UNDO.
    DEFINE INPUT PARAMETER Tabela           AS CHAR          NO-UNDO.
    DEFINE INPUT PARAMETER RegRowID         AS ROWID         NO-UNDO.
    
    MESSAGE "Evento: "   + Evento                SKIP
            "Objeto: "   + Objeto                SKIP
            "hObjeto: "  + STRING(VALID-HANDLE(hObjeto),"Válido/Inválido") SKIP
            "Frame: "    + hFrame:NAME           SKIP
            "Tabela: "   + Tabela                SKIP
            "RegRowID: " + STRING(RegRowID)
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
    
    IF Tabela = "ped-venda" AND RegRowID <> ? THEN DO:
       FIND FIRST ped-venda WHERE ROWID(ped-venda) = RegRowID NO-LOCK NO-ERROR.
    
       MESSAGE ped-venda.nr-pedido
           VIEW-AS ALERT-BOX INFO BUTTONS OK.
    END.
    
    Mas lembre-se, o ideal é pegar no evento correto que você vai usar, senão pode gerar vários bugs no programa.
  3. Renan Cano

    Renan Cano Membro Participativo

    Muito obrigado, resolveu meu problema.

Compartilhe esta Página