Zeoslib Portal

Code: Select all

procedure TFormAdo.BtnRunSQlClick(Sender: TObject);
begin
    if not DM.ZQPo.Active  then ShowMessage('Connection not active!'); //for test

     with DM.ZUPo.Params do begin
       DM.ZUPo.Params.ParamByName('PurchaseOrderDate').AsString:='{d''2024-03-07''}';
       DM.ZUPo.Params.ParamByName('OrderType').AsString:='S';
       DM.ZUPo.Params.ParamByName('MasterRepeatingPOOrSO').AsString:='  ';
       DM.ZUPo.Params.ParamByName('Old_PurchaseOrderNumber').AsString:=DM.ZQPo.FieldByName('PurchaseOrderNumber').AsString;
       DM.ZUPo.Params.ParamByName('Old_Division').AsString:=DM.ZQPo.FieldByName('Division').AsString;
     end;
     Dm.ZQPo.Active:=false;
     Dm.ZUPo.ModifySQL.SaveToFile('adosql.txt');
     Try
      DM.ZQPo.ExecSQL;
      if( DM.ZqPo.RowsAffected>0) then begin; not get update the register
         DM.ZQPo.ApplyUpdates;
      end else begin
        ShowMessage('Purchase Order not Updated');
      end;
    except  on e: Exception do begin
      DM.ZQPo.CancelUpdates;
      Showmessage('Exceptionclass = ' + E.ClassName + ' / ' + E.Message);
     end;
    end;
    DM.ZQPo.Open;
end;