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 na BO bodi149

Discussão em 'EMS , HCM e Totvs 11' iniciado por mpdelphi, Setembro 26, 2017.

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

    mpdelphi Membro Participativo

    Pessoal boa tarde... preciso criar um upc no pd4000, onde dependendo de uma condição o usuario nao pode adicioanar datas nos pedidos...

    Vi que no pd4000 é bem chatinho, então to criano na bodi149

    O programa passa pele ponto.. que que quero.. se tiver numa condição especifica.. quero "abortar" a data de entrega que o usuario adicionou.... ja tenrei returno "nok" return no-apply return error.
    e nao dá certo... ele grava o registro normalmente....


    {cdp/cdcfgdis.i}
    {include/i-epc200.i1}

    def input param p-ind-event as char no-undo.
    def input-output param table for tt-epc.

    IF p-ind-event = "beforecreateRecord" THEN
    DO:
    run utp/ut-msgs.p (input "show":U,
    input 17006,
    input "Erro !.~~Você nao pode adicionar datas de entrega nesse pedido.").

    RETURN "NOK".
    end.
    reissobr curtiu isso.
  2. ChacMaster

    ChacMaster Membro Participativo

    Tenta assim, sei que na 159 tem algo parecido, vai que rola :)

    PHP:
    {cdp/cdcfgdis.i}
    {include/
    i-epc200.i1}

    Define Input Param p-ind-event As Character No-undo.
    Define Input-output Parameter Table For tt-epc.

    Define Variable h-programa As Handle No-undo.

    If 
    p-ind-event "beforecreateRecord"
    Then Do:
        For 
    First tt-epc
            Where tt
    -epc.cod-event p-ind-event   
              
    And tt-epc.cod-param "Object-Handle":
          
            
    Assign h-bodi149 Handle(tt-epc.val-parameter).
        
    End.

        If 
    Valid-handle(h-bodi149)
        
    Then Do:
           
    Run _insertErrorManual In b-bodi149
               
    (0"EMS":U"ERROR",
               
    'Entrega não incluída!',
               
    'Você nao pode adicionar datas de entrega nesse pedido.',
               
    "").
        
    End.
    End.

    /* Deletar a handle em um evento posterior
    If Valid-handle(h-bodi149) Then Delete Procedure h-bodi149.
    */
  3. ChacMaster

    ChacMaster Membro Participativo

    Escrevi errado ali:

    :):):):)
  4. mpdelphi

    mpdelphi Membro Participativo

    muito obrigado pelo retorno... mais o problema permanece... ele... mostra a mensagem...
    mais mesmo assim.. grava o registro no banco...
    PHP:
    {cdp/cdcfgdis.i}
    {include/
    i-epc200.i1}

    def input        param p-ind-event as char no-undo.
    def input-output param table for tt-epc.

        
    Define Variable h-programa As Handle No-undo.
    def var h-bodi149 as widget-handle no-undo.

    IF 
    p-ind-event "beforecreateRecord" THEN
    DO:
       For 
    First tt-epc
            Where tt
    -epc.cod-event p-ind-event  
              
    And tt-epc.cod-param "Object-Handle":
        
            
    Assign h-bodi149 widget-handle(tt-epc.val-parameter).
            
    MESSAGE 'ADICIOINEI ' tt-epc.val-parameter
                VIEW
    -AS ALERT-BOX INFO BUTTONS OK.
            
    Run _insertErrorManual In h-bodi149
                
    (0"EMS":U"ERROR",
                
    'Entrega não incluída!',
                
    'Você nao pode adicionar datas de entrega nesse Pedido Fechado.',
                
    "").
            RETURN 
    "NOK":U.


        
    End.

    END.
  5. ChacMaster

    ChacMaster Membro Participativo

    Acabei lendo um pouquinho melhor sua pergunta, e se for essa data aqui:

    [​IMG]

    Acredito que seja a BODI159 o local correto, que aí é a do pedido.

    O que teu código atual deve estar fazendo é travando o registro que é criado na "ped-ent".

    Da uma verificada conforme abaixo:

    PHP:
    For Each ped-venda No-lock
       Where ped
    -venda.nome-abrev ""
         
    And ped-venda.nr-pedcli  "":

        
    Disp ped-venda.nome-abrev
             ped
    -venda.nr-pedcli.


        For 
    Each ped-ent Of ped-venda No-lock:
            
    Disp ped-ent.dt-entrega
                 ped
    -ent.it-codigo
                 ped
    -ent.cod-rota.
                
        
    End.
    End.
    Nesse pedido que tu está testando não deve ter nada cadastrado, pois sua UPC está barrando.

    Arquivos Anexados:

  6. mpdelphi

    mpdelphi Membro Participativo

    Ele cadastra sim, mesmo.. saindo e entrendo no pd4000 o registros esta la...
    [​IMG]

    apos fechar o pd4000 e abrir de novo..
    [​IMG]

    Criei isso na BO porque acreditei que ficaria mais facil.. poderia criar um upc no pd4000, mais nao encontrei os devidos pontos de upc na tela do pd4000 :(

    Arquivos Anexados:

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

Compartilhe esta Página