salesPrice.SETRANGE("Sales Type",salesPrice."Sales Type"::Customer");
salesPrice.SETRANGE("Sales Code",<<DEINDEBITOR>>);
IF salesPrice.FIND('-') THEN BEGIN
...
END;
sweikelt hat geschrieben:Das RespCenter an "Sales Price" ist aber kein Standard - verstehe nicht, warum das da dran hängt!
BotoxWade hat geschrieben:Nun möchte ich gerne, dass überall, wo beim Debitor der Wert hinterlegt ist, in der Tabelle Verkaufspreise auch der Wert eingefügt wird.
Kowa hat geschrieben:Hallo BotoxWade,
2. Versuch:
Dein Quelltext ist leichter zu lesen und zu verstehen, wenn du ihn zwischen so genannte Code-Tags setzt. Insbesondere deine Formatierungen werden so auch beibehalten.
Daher bitten wir dich, vor und nach deinem Quelltext diese Code-Tags einzufĂĽgen. Beispiel:
[code]Dein Quelltext[/code]
GruĂź, Kowa
MSDynamics.de-Team
salesPrice.SETRANGE("Sales Type",salesPrice."Sales Type"::Customer);
salesPrice.SETRANGE("Sales Code", '20097');
IF salesPrice.FIND('-') THEN BEGIN
Customer.GET(salesPrice."Sales Code");
IF Customer."Responsibility Center" <> '' THEN BEGIN
IF salesPrice."Sales Code" <> '' THEN BEGIN
salesPrice."Responsibility Center" := Customer."Responsibility Center";
salesPrice.MODIFY;
END;
END;
END;
salesPrice.SETRANGE("Sales Type",salesPrice."Sales Type"::Customer);
salesPrice.SETRANGE("Sales Code", '20097');
IF salesPrice.FIND('-') THEN BEGIN
REPEAT
Customer.GET(salesPrice."Sales Code");
IF Customer."Responsibility Center" <> '' THEN BEGIN
IF salesPrice."Sales Code" <> '' THEN BEGIN
salesPrice."Responsibility Center" := Customer."Responsibility Center";
salesPrice.MODIFY;
END;
END;
UNTIL salesPrice.NEXT = 0;
END;
JRenz hat geschrieben:Versuch es doch mal so:
- Code: Alles auswählen
salesPrice.SETRANGE("Sales Type",salesPrice."Sales Type"::Customer);
salesPrice.SETRANGE("Sales Code", '20097');
IF salesPrice.FIND('-') THEN BEGIN
REPEAT
Customer.GET(salesPrice."Sales Code");
IF Customer."Responsibility Center" <> '' THEN BEGIN
IF salesPrice."Sales Code" <> '' THEN BEGIN
salesPrice."Responsibility Center" := Customer."Responsibility Center";
salesPrice.MODIFY;
END;
END;
UNTIL salesPrice.NEXT = 0;
END;
wobei die Prüfung auf einen nicht-leeren "Sales Code" in Zeile 7 durch den Filter in Zeile 2 unnötig wäre.
Ich gehe mal davon aus, dass das Feld "Responsibility Center" in der VK-Preis-Tabelle nicht im Primärschlüssel der Tabelle enthalten ist.
Item No.,Sales Type,Sales Code,Starting Date,Currency Code,Variant Code,Unit of Measure Code,Minimum Quantity,Responsibility Center
BotoxWade hat geschrieben:Meinst Du so?
m_schneider hat geschrieben:Ah, da das "Responibility Center" Teil des SchlĂĽssels ist, reicht eine Zuweisung nicht. DafĂĽr gibt es den Befehl RENAME.
[/quote]m_schneider hat geschrieben:@BotoxWade RENAME.
ERP-Berater hat geschrieben:m_schneider hat geschrieben:@BotoxWade RENAME.
IIRC ist RENAME fĂĽr umbenennen von Feldinhalten vom Primary Key da?
BotoxWade hat geschrieben:...
Der Primärschlüssel der Tabelle ist:...
- Code: Alles auswählen
Item No.,Sales Type,Sales Code,Starting Date,Currency Code,Variant Code,Unit of Measure Code,Minimum Quantity,Responsibility Center
salesPrice.SETRANGE("Sales Type", salesPrice."Sales Type"::Customer);
salesPrice.SETRANGE("Sales Code", '20097');
salesPrice.SETFILTER("Responsibility Center", '<>%1', ''); //Um wirklich nur die leeren zu finden.
IF salesPrice.FIND('-') THEN BEGIN
REPEAT
Customer.GET(salesPrice."Sales Code");
IF Customer."Responsibility Center" <> '' THEN BEGIN
salesPrice.RENAME(
salesPrice.Item No.,
salesPrice.Sales Type,
salesPrice.Sales Code,
salesPrice.Starting Date,
salesPrice.Currency Code,
salesPrice.Variant Code,
salesPrice.Unit of Measure Code,
salesPrice.Minimum Quantity,
Customer."Responsibility Center";
END;
UNTIL salesPrice.NEXT = 0;
END;
Wenn für einen Debitor eine Preis abgespeichert wird, dazu gibt es eine Funktionalität in unserer NAV-Version, dann wird der Zuständigkeiteinheitencode automatisch gefüllt.
salesPrice.SETRANGE("Sales Type", salesPrice."Sales Type"::Customer);
salesPrice.SETRANGE("Sales Code", '20097');
salesPrice.SETFILTER("Responsibility Center", '<>%1', ''); //Um wirklich nur die leeren zu finden.
IF salesPrice.FIND('-') THEN BEGIN
REPEAT
Customer.GET(salesPrice."Sales Code");
IF Customer."Responsibility Center" <> '' THEN BEGIN
salesPrice.RENAME(
salesPrice."Item No.",
salesPrice."Sales Type",
salesPrice."Sales Code",
salesPrice."Starting Date",
salesPrice."Currency Code",
salesPrice."Variant Code",
salesPrice."Unit of Measure Code",
salesPrice."Minimum Quantity",
Customer."Responsibility Center");
END;
UNTIL salesPrice.NEXT = 0;
END;
Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast