OBS/Preislisten/Preislisten per Macro kopieren: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
5 Freie Srcipter Lib Commandos
Böhrer (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „Hello! I am Arlette. I smile that I could join to the whole globe. I live in Netherlands, in the NB region. I dream to go to the different countries, to obtain…“) |
KKeine Bearbeitungszusammenfassung |
||
| (2 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
| Zeile 1: | Zeile 1: | ||
{{Kostenpflichtige Module}} | |||
=5 Freie Srcipter Lib Commandos<br/> = | |||
CMD_COPY_MACRO1 - CMD_COPY_MACRO5<br/> | |||
Name ScriptLib: PL_CMD1 - PL_CMD5<br/> | |||
Methodenname "Preisliste"<br/> | |||
Parameter Methode [oMyDB, cPlNr, cPara]<br/> | |||
==Beispiel== | |||
<source lang="delphi"> | |||
//--------------------------------------------------------------- | |||
// 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; | |||
</source> | |||
Aktuelle Version vom 28. Oktober 2022, 12:13 Uhr
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
OBS-Waage
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;