13. Januar 2011 10:32
Produktgruppe 2011 2010
A 0 1000
B 500 2000
C 0 1000
Produktgruppe 2011 2010
A 500 1000
B 500 2000
C 500 1000
13. Januar 2011 10:46
13. Januar 2011 10:54
LineCounter += 1;
LineTmp.RESET;
LineTmp.SETRANGE(TextKey,PdGroup);
LineTmp.SETRANGE(Text1, DimValue.Name);
IF LineTmp.FINDFIRST THEN BEGIN // gefunden dann aufaddieren
CASE Year OF // Ähnlich wie IF
Year1 :
BEGIN
LineTmp.Dec1 += Values[1];
END;
Year3 :
BEGIN
LineTmp.Dec2 += Values[1];
END;
END;
LineTmp.MODIFY;
END ELSE BEGIN // nicht gefunden dann schreiben
LineTmp.TextKey := PdGroup;
LineTmp.IntKey := LineCounter;
LineTmp.Text1 := DimValue.Name;
CASE Year OF
Year1 :
BEGIN
LineTmp.Dec1 := Values[1];
END;
Year3 :
BEGIN
LineTmp.Dec2 := Values[1];
END;
END;
LineTmp.INSERT;
END;
13. Januar 2011 11:25
13. Januar 2011 11:57
13. Januar 2011 12:27
Deswegen solltest du ja die [code]-Tags verwendenBarbara May hat geschrieben::oops: sieht nur durch das reinkopieren so grausig aus...im Programm selbst nicht...
13. Januar 2011 12:37
13. Januar 2011 15:19
JanGD hat geschrieben:Wie wird das Values-Array gefüllt?
13. Januar 2011 15:47
CalcSalesLineYear(VAR "Sales Line" : Record "Sales Line";Year : Integer // Funktion
PdGroup := '';
ValuesL[1] := 0;
PdGroup := "Sales Line"."Product Group Code";
//---- Dimensionswert Aufträge aus Dimension Vorgang ermitteln
CLEAR(DimValue);
IF DocDimension.GET(DATABASE::"Sales Line",
"Sales Line"."Document No.",
"Sales Line"."Line No.",
SalesSetup."Dimension Code Process") THEN
IF NOT DimValue.GET(DocDimension."Dimension Code",DocDimension."Dimension Value Code") THEN
CLEAR(DimValue);
ValuesL[1] := "Sales Line".Quantity - "Sales Line"."Quantity Invoiced";
AddLine(Year, ValuesL, DimValue.Name, PdGroup);
14. Januar 2011 10:50