[RESOLVIDO] UPC na BO bodi149

PHP:

{include/i-epc200.i}

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

Define Variable hbo  As Handle  No-undo.
Define Variable lerr As Logical No-undo Initial No.

Define Temp-table RowObject No-undo Like ped-ent
       Field r-rowid As Rowid.

If p-ind-event = "beforecreateRecord"
Then Do:
   For First tt-epc
       Where tt-epc.cod-parameter = "Object-Handle":

       Assign hbo = Handle(tt-epc.val-parameter).

       Run getRecord In hbo (Output Table RowObject).

       For Each RowObject:
           /* Aqui faz a lõgica para ver se trava ou não a criação do registro */
           /* Lembrando que todas as entragas vão passar aqui, não apenas a que está sendo criada */
           If RowObject.nr-entrega = 20
           Then Do:
               Assign lerr = Yes.
               Run _insertErrorManual In hbo
                   (0, "EMS":U, "ERROR",
                   'Entrega não incluída!',
                   'Você nao pode adicionar datas de entrega nesse Pedido Fechado.',
                   "").
               Delete RowObject.
           End.
       End.

       If lerr
       Then Do:
          Run setRecord In hbo (Input Table RowObject).
          Return "NOK".
       End.
   End.
End.