9. Juni 2006 11:11
9. Juni 2006 15:36
IF NachLagerOrt THEN
ArtPosten.SETRANGE(Lagerortcode,ArtPosten.Lagerortcode);
IF NachLagerfach THEN
ArtPosten.SETRANGE(Lagerfachcode,ArtPosten.Lagerfachcode);
13. Juni 2006 09:30
13. Juni 2006 10:50
13. Juni 2006 12:21
IF (Menge2 <> 0) OR NullMenge THEN BEGIN
INIT;
"Zeilennr." := NächsteZeileNr;
VALIDATE(Buchungsdatum,BuchDatum);
VALIDATE(Postenart,Postenart::Zugang);
VALIDATE("Belegnr.",NächsteBelegNr);
VALIDATE("Artikelnr.",ArtikelNr);
VALIDATE(Variantencode,VariantenCode2);
VALIDATE(Kostenstellencode,KostenstCode2);
VALIDATE(Kostenträgercode,KostentrCode2);
VALIDATE(Lagerortcode,LagerortCode2);
VALIDATE(Lagerfachcode,LagerfachCode2);
MESSAGE(LagerfachCode2);
VALIDATE(Herkunftscode,HerkunftCodeEinrichtung."Inventur Buch.-Blatt");
Inventurmenge := Menge2;
ArtikelBuchBlZeile.Inventur := TRUE;
VALIDATE("Menge (berechnet)",Menge2);
VALIDATE(Stückpreis,0);
ArtPosten.RESET;
ArtPosten.SETCURRENTKEY("Artikelnr.");
ArtPosten.SETRANGE("Artikelnr.",Artikel."Nr.");
IF ArtPosten.FIND('+') THEN
"Letzte Artikelposten Lfd. Nr." := ArtPosten."Lfd. Nr."
ELSE
"Letzte Artikelposten Lfd. Nr." := 0;
INSERT(TRUE);
END;
13. Juni 2006 14:25
13. Juni 2006 14:49