Table of Content
HAL Forum
procedure DBFlush (
)
Description:
It flushes the buffer with records to database
global
updating procedure StorePO(Array record POVc aPOr,Integer pocnt)
BEGIN
  Integer poi;
  record POVc POr;
  row POVc POrw;
  Integer i,rwcnt;
  record MainStockBlock MainStockRec;
  
  BlockLoad(MainStockRec);
  for (poi=0;poi<pocnt;poi=poi+1) begin
    POr = aPOr[poi];
    POr.SerNr = NextSerNr("POVc",POr.TransDate,-1,false,"");
    if (POr.SerNr>0) then begin
      DBFlush;
      DBHold;
      if (RecordStore(POr,false)) then begin
        rwcnt = MatRowCnt(POr);
        for (i=0;i<rwcnt;i=i+1) begin
          MatRowGet(POr,i,POrw);
          if ((POrw.Shipd2<POrw.Quant) and (nonblank(POrw.ArtCode))) then begin
            AddtoPrelORPUStock(POr.SerNr,i+1,POr.TransDate,StringToDate(POr.PlanShip),POr.Location,"POVc",POrw.ArtCode,POrw.Quant-POrw.Shipd2,MainStockRec.MainStock,0);
          end;
        end;
      end;
    end;
  end;
  RETURN;
END;
Related topics:
««