Hello Ray!
Hier ist my Code:
Subroutine Aendere() var n as Int var vLfdNr as Int var vsucheab as String var VCL as String var vFile as String var vFH as Int var vASC as String var vStr as String var vRun as Int var vSpec as String var vdatei as String
IF Not fileexists("C:\sesame2\ichbinhier.txt") then { vASC = "F:\Sesame2\Data\EXPORT\AUFNAHMEHeute.TXT" } else { vASC = "C:\Sesame2\Data\EXPORT\AUFNAHMEHeute.TXT" }
vSpec = "Importiere von AUFNAHME"
vRun = @LoadImportSpec(vSpec) If vRun = 1 { If FileExists(vASC ) { RunImportSpec(vASC) Loiter(200) } Else { @Msg("Could not find the import file " + vASC) } } Else { @Msg("Could not find the Import spec named " + vSpec) }
End Subroutine
Subroutine ImportierenReste(LfdNrs as String) var vRSHandle as Int var vFilename as String var vFormName as String var success as int var vRSRecordCount as Int var vLabor as String var vExportFile as String ="F:\Sesame2\Data\EXPORT\AUFNAHMEHeute.TXT" var vLoop as Int var vSpec as String var vList1 as String var vDatei as String var vGeraet1 as String var vGeraet2 as String var vRSMax as Int var vMax as Int
IF @Mode() = 0 or @Mode() = 2 { // From sbasic_include.sbas: //SEARCH_MODE_AND = 0 // SEARCH_SYNTAX_QA = 2 vList1 = "CHEMIE;*Abbrechen" PopupSelectPosition(3, @XPos(ThisElement) + (@Width(ThisElement) / 2) , @YPos(ThisElement) + @Height(ThisElement))
vDatei = @PopupChoiceList("@b@S13" + @Replace(vList1, ";", ";@b@S13"), " Welche Datei möchten Sie importieren?") vdatei = @Replace(vdatei, "@b@S13", "")
IF vDatei <> "*Abbrechen" then {
vRSHandle = @XResultSetSearch("Data\MDLAUFNAHME.DB", "Aufnahme", 0,2, "!LfdNr=" + LfdNrs , "!AuftraegeChemie=/=" ) //writeln(vRSHandle ) IF(vRSHandle > -1) Then { XResultSetSort(vRSHandle, "LfdNr:1") vRSRecordCount = @XResultSetTotal(vRSHandle) IF @ASKUSER("SIND SIE SICHER DASS SIE ", vRSRecordCount + " DATENSÄTZE EXPORTIEREN","UND HIER IMPORTIEREN MÖCHTEN?") = "YES" THEN { vFileName = @XResultSetPrintReport("EXPORT",vRSHandle, 4)
XResultSetClose(vRSHandle) Aendere() } }
} else @MSGBOX(" Leider KEINE Datensätze für den export ","zu " + vExportFile," gefunden Für Hilfe fragen Sie einfach Herrn Dr. Belhareth") }
Throwfocus(Ruhe)
End Subroutine
|