 
//---------------------------------------------------------------
// 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;

OBS/Preislisten/Preislisten per Macro kopieren

5 Freie Srcipter Lib Commandos

Beispiel

Navigationsmenü

OBS/Preislisten/Preislisten per Macro kopieren

5 Freie Srcipter Lib Commandos

Beispiel

Navigationsmenü

Suche