25. Januar 2015 16:04
25. Januar 2015 18:34
recz.SETCURRENTKEY(Arbeitszeit);
recz.ASCENDING(FALSE) ; // Absteigende Reihenfolge
IF recz.FIND('-') THEN
REPEAT
MyRecCounter += 1;
Message'Erster Datensatz ist: %1, %2, %3', recz."Personal_NR", recz.Arbeitstag, recz.Arbeitszeit);
UNTIL (recz.NEXT = 0) OR (MyRecCounter = 3);
MyFilter := 'Meier*'; // Textvaiable
Customer.RESET;
Customer.SETCURRENTKEY(Name);
Customer.ASCENDING(FALSE); // Absteigende Reihenfolge
Customer.SETFILTER(Name,'%1',MyFilter); // Das Wichtigste
IF Customer.FIND('-') THEN
REPEAT
MyCounter += 1; //Integervariable
MESSAGE('%1 %2 %3 %4',MyCounter,Customer."No.",Customer.Name,Customer.City);
UNTIL (Customer.NEXT = 0) OR (MyCounter = 3); // Bis nimmer geht aber maximal drei
27. Januar 2015 00:08
27. Januar 2015 09:46
Cihan61 hat geschrieben:Produkte.GET("P-100");
IF Produkte.FIND('-') THEN BEGIN
REPEAT
MESSAGE ('Die Losgroesse betraegt: %1', Produkte.Losgroesse)
ELSE
MESSAGE ('Kein Datensatz');
END;
UNUTIL Produkte.NEXT = 0;
27. Januar 2015 12:53
IF uw.FIND('-') THEN
REPEAT
Counter += 1;
MESSAGE ('Anzahl der Datensätze beträgt: %1', Counter);
UNITIL uw.NEXT = 0;
rec52.DELETEALL
IF rec50.FINDFIRST THEN
REPEAT
IF rec52.GET( rec50.Zname, rec50.zArtikel, rec50.zJahr ) THEN BEGIN //Vergleicht mit den Datensätzen aus ec50
MESSAGE ('Datensatz bereits vorhanden');
END ELSE BEGIN
rec52.COPY(rec50)
rec52.INSERT; << Diesmal geht es ja, weil ich keine Datensätze mehr in der Tabelle hatte.
END;
UNITIL rec50.next=0;
rec50.SETCURRENTKEY(Zumsatz)
rec50.ASCENDING(FALSE) // Absteigend sortieren
IF rec50.FIND('-') THEN
REPEAT
MyCounter +=1; //Integervariable
tmp50.COPY(rec50); //Kopieren in die temporäre Tabelle 50
tmp50.INSERT; // Einfügen
UNITIL (rec50.NEXT=0) OR (MyCounter = 3);
27. Januar 2015 13:18
Cihan61 hat geschrieben:Bei der letzten Prüfung kam die Frage "was verstehen sie unter w1" vor, nur die Antwort kennt irgendwie niemand so wirklich.
27. Januar 2015 13:24
MESSAGE('Anzahl der Datensätze beträgt: %1',uw.COUNT);
27. Januar 2015 15:00
rec50.SETFILTER(rec50.Zname, rec50.zartikel, rec50.jahr);
IF rec50.FINDFIRST THEN
REPEAT
rec52.zname := rec50.zname;
rec52.zartikel := rec50.zartikel;
rec52.zjahr := rec50.jahr;
rec52.INSERT;
UNITIL rec50.NEXT = 0;
27. Januar 2015 15:32
27. Januar 2015 18:56