PMS32 Online- Hilfereferenz
Lagerkorrektur - under construction
BOOLEAN = Lagerkorrektur()
Rückgabe der Funktion: BOOLEAN
PROCEDURE Lagerkorrektur () AS Boolean */ Durchführen einer Preiskorrektur des Lagers durch einen Lagerab- und Lagerzugang LOCAL lcDbf AS STRING , lcFilter AS STRING , lxFilter AS STRING, lcWhere AS STRING, loLK AS OBJECT , lcIdi32 AS STRING IF TYPE("m.Master")<>"C" OR EMPTY(m.Master) OR !USED(m.Master) RETURN .F. ENDIF lcDbf = JUSTSTEM(DBF(m.Master)) IF NOT m.lcDbf $ ",B01,C66,K10,I40," */ Falscher Master RETURN .F. ENDIF */ Die Weiteren Einstellungen zur Umbuchung loLK = My.AppForms.AppForms.AppLK(m.lcDbf) IF ISNULL(m.loLK) */ Benutzerabbruch RETURN .F. ENDIF */ Die Filter-Werte ermitteln lcFilter = FILTER(m.Master) && Hauptfilter lxFilter = IIF(TYPE("m.brow_for")="C",m.brow_for,"") && Nebenfilter DO CASE CASE !EMPTY(m.lcFilter) AND !EMPTY(m.lxFilter) lcFilter = "(" + m.lcFilter + ") AND (" + m.lxFilter + ")" CASE !EMPTY(m.lcFilter) CASE !EMPTY(m.lxFilter) lcFilter = m.lxFilter OTHERWISE lcFilter = "" ENDCASE lcFilter = STRTRAN(STRTRAN(STRTRAN(m.lcFilter,".AND."," AND "),".OR."," OR "),".NOT."," NOT ") */ Die Where-Klausel ermitteln DO CASE CASE m.lcDbf = "B01" lxFilter = "b01.idb01='"+m.idb01+"'" lcWhere = "I01.IDB01 IN (SELECT b01.idb01 FROM CDBFDIR!B01 WHERE 1=1)" CASE m.lcDbf = "C66" lxFilter = "c66.idc66='"+m.idc66+"'" lcWhere = "I01.IDC66 IN (SELECT c66.idc66 FROM CDBFDIR!C66 WHERE 1=1)" CASE m.lcDbf = "I40" lxFilter = "i40.idi40='"+m.idi40+"'" lcWhere = "I01.IDB01+I01.IDK10+I01.IDC66 IN (SELECT i41.idb01+i41.idk10+i41.idc66 FROM CDBFDIR!I41 WHERE i41.idi40 IN (SELECT i40.idi40 FROM CDBFDIR!I40 WHERE 1=1))" CASE m.lcDbf = "K10" lxFilter = "k10.idk10='"+m.idk10+"'" lcWhere = "I01.IDK10 IN (SELECT k10.idk10 FROM CDBFDIR!K10 WHERE 1=1)" ENDCASE */ Jetzt ausführen lcIdi32 = My.Bussines.MaWi.MaWi.I3xKorrektur(m.lcWhere,m.lxFilter,m.lcFilter,m.loLK,m.lcDbf) */ Prüfung IF EMPTY(m.lcIdi32) */ Ein Fehler ist aufgetreten =My.Bussines.MaWi.MaWi.DialogError(20000,.F.) ELSE =My.Clients.FireEvents.MenuHitExt("I3201",.NULL.,m.lcIdi32,"IDI32") ENDIF ENDPROC
Siehe auch : Hauptmenü / Hauptindex / Such Index / Cursor Index / Programm Module / Tabellen Index / Tabellenmodule / Masken Index / Programmcode Index / Servicepacks / My.Struktur / Funktionen / Sonstiges Index
Lokale Benutzerhilfe : Meine eigene Hilfe / Zurück zur PMS32 - Hilfe
Dateiversion:1.0.04#3648 - H.U.DD#SSFF 02.12.2022
Senden Sie Ihren Kommentar zu diesem Thema an das Entwicklungsteam von PMS32
Weitere Informationen finden Sie unter der aktuellen
PMS32 WEB-Hilfe
Die Informationen dieser Mitteilung sind vertraulich und nur für Sie bestimmt. Unbefugtes Weiterleiten,
Veröffentlichen, Kopieren usw. sind untersagt und werden gerichtlich verfolgt.
© PMS Compelec GmbH 2022 ® el-Projekt