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