6. Februar 2013 13:12
 
 CLEAR(TotalSchrank);
CLEAR(TotalTisch);
CLEAR(TotalContainer);
CLEAR(TotalGesamt);
CLEAR(TotalStuhl);
TourenplanZeileL.SETRANGE("Tourenplannr.","No.");
IF TourenplanZeileL.FINDFIRST THEN 
REPEAT  
  SalesLineL.RESET;
  SalesLineL.SETRANGE("Document Type",SalesLineL."Document Type"::Order);
  SalesLineL.SETRANGE("Document No.",TourenplanZeileL."No.");
  IF SalesLineL.FINDFIRST THEN BEGIN
    REPEAT
      IF ItemL.GET(SalesLineL."No.") THEN BEGIN
        IF (ItemL."Item Category Code" = 'VKTISCHE') THEN
          TotalTisch := TotalTisch + SalesLineL.Quantity;
        IF (ItemL."Item Category Code" = 'SCHRANK') THEN
          TotalSchrank := TotalSchrank + SalesLineL.Quantity;
        IF (ItemL."Item Category Code" = 'STÜHLE') THEN
          TotalStuhl := TotalStuhl + SalesLineL.Quantity;
        IF (ItemL."Item Category Code" = 'CONTAINER') THEN
          TotalContainer := TotalContainer + SalesLineL.Quantity;
        TotalGesamt := TotalGesamt +SalesLineL.Quantity;
      END;
    UNTIL SalesLineL.NEXT = 0;
  END;
UNTIL TourenplanZeileL.NEXT = 0;
CurrForm.UPDATE;6. Februar 2013 13:42
PhilSan hat geschrieben:...Beim OnAFtergetRecord in der Form, bekomme ich immer die Frage: Wollen Sie den DS wirklich umbennnen?
CurrForm.UPDATE;CurrForm.UPDATE(FALSE);6. Februar 2013 13:59
6. Februar 2013 14:07
6. Februar 2013 14:22
6. Februar 2013 15:04