PMS32 Online- Hilfereferenz
GetC30 - under construction
BOOLEAN = GetC30(tcIdc30 AS STRING , tlForce AS BOOLEAN)
Rückgabe der Funktion: BOOLEAN
PROCEDURE GetC30 (tcIdc30 AS STRING , tlForce AS Boolean) AS Boolean */ GETC30 holt die Felder aus der C30 für die Übernahme in den Adressmasken LOCAL lnSelect , lcFields AS STRING , lcExFields AS STRING , lcSql AS STRING , lcAnsw AS STRING , llDone AS Boolean IF VARTYPE(m.tcIdc30)<>"C" RETURN .F. ENDIF lnSelect = SELECT() lcFields = My.Globals.GetC30Fields lcExFields = My.Globals.GetC30ExFields lcSql = [SELECT ]+m.lcFields+[ FROM CDBFDIR!C30 WHERE idc30=']+m.tcIdc30+['] */ DO CASE CASE !My.Clients.SQL.SqlRead(SET("Datasession"),m.lcSql,'qrygetc30',2) CASE NOT (m.tlForce OR !IsEmpty(m.lcExFields)) SCATTER MEMO MEMVAR llDone = .T. CASE NOT My.SetValue(My.Functions.Dialoge.Dialog("IDC30UEBERNAHME"),@lcAnsw) CASE m.lcAnsw="JA" SCATTER MEMO MEMVAR llDone = .T. CASE m.lcAnsw="NEIN" SCATTER MEMO MEMVAR EXCEPT &lcExFields llDone = .T. OTHERWISE */ Nichts tun... ENDCASE USE IN (SELECT("qrygetc30")) SELECT (m.lnSelect) IF m.llDone l_Change = .T. ENDIF RETURN m.llDone 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