OBS/Preislisten/Preislisten per Macro kopieren
Zur Navigation springen
Zur Suche springen
Internet-Shop
Der modified ECommerce Shop
Shop-Menü
- A Preise aktualisieren
- C Personen übertragen
- E Kategorien verwalten
- G Kataloge verwalten
- I Merkliste übertragen
- K Varianten übertragen
- L Artikelvarianten übertragen
- M Referenzarten übertragen
- N Lagerbestände verwalten
- U Bestellungen einlesen
- V leere Passworte füllen
- W Update-Informationen zurücksetzen
- X Konfiguration
- Z Protokoll
Automatische Vorgänge
Preislisten
ZUGFeRD
Factoring
UPS
IMS Professional
SMS
Mehrlager-Verwaltung
Mehrsprachen Modul
Multilanguage Modul
Einfache Produktionsnachverfolgung
DMS - Dokumenten Management System
DMS Dokumente
Tasten und Schaltflächen
F10 Weit.
QR Zeiterfassung
EVA Marketing Tool
Technikersteuerung
Termin-Projekte
Edifact-Schnittstelle
Backup Überwachung Email
Anlagenbuchhaltung
OBS Geo Daten
DeliSprint / DPD
Filialen
Auto-Waagen
Cashback
Moebelschnittstelle
Tourenplanung
Dokumenten Manager
DocuWare-Schnittstelle
OFML-Kalkulation
Pascom
Versicherungsschaden
Gutschriftsanzeigen
OCPP Ladestationen
Kameraverwaltung
DataInOut
REST-Schnittstelle
Sammelverträge
5 Freie Srcipter Lib Commandos
CMD_COPY_MACRO1 - CMD_COPY_MACRO5
Name ScriptLib: PL_CMD1 - PL_CMD5
Methodenname "Preisliste"
Parameter Methode [oMyDB, cPlNr, cPara]
Beispiel
//---------------------------------------------------------------
// Preisliste kopieren
// aktive Lagerartikel in eine andere Preisliste kopieren
//
// 27-10-2022 Jörg Hoheneder
//---------------------------------------------------------------
function Preisliste(oMyDB:TxDB;cPL:String; cParam:String):boolean;
var cSQL : String;
begin
cSQL := 'DELETE FROM arti_pl WHERE pl_nr='+DB_SQLVal(cParam);
DB_SQLExec(oMyDB,cSQL);
cSQL := 'INSERT INTO arti_pl (pl_nr,pl_artnr,pl_vk1,pl_staffmenge,sys_uid)'+
' SELECT '+DB_SQLVal(cParam)+','+
' a.a_nr,'+
' b.pl_vk1,'+
' b.pl_staffmenge,'+
' RIGHT(UUID_SHORT(),10)'+
' FROM artikel AS a LEFT JOIN arti_pl AS b ON a.a_nr=b.pl_artnr AND'+
' b.pl_nr='+DB_SQLVal(cPL)+' AND'+
' b.pl_staffmenge=1'+
' WHERE a_inaktiv<>"1" AND'+
' a_lager="1"';
DB_SQLExec(oMyDB,cSQL);
end;