13. Januar 2011 10:32
Produktgruppe   2011   2010
A                  0   1000
B                500   2000
C                  0   1000  Mein Report sieht so aus:
 Mein Report sieht so aus:Produktgruppe    2011    2010
A                 500    1000
B                 500    2000
C                 500    100013. 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
 sieht nur durch das reinkopieren so grausig aus...im Programm selbst nicht...
 sieht nur durch das reinkopieren so grausig aus...im Programm selbst nicht...  
 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