Hello! I would start a Report with name EXPORT(exporting a ascii file) located in external application Aufnahme.DB . This Routine works well if the starting Database is in Sesame server loaded and the externe Database AUFNAHME.DB not. So if both Databases are loaded in the server my report does not work. What am I doing wrong here?
Thank you for the help
hier is my Code:
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\CHEMIEHeute.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
Subroutine Aedern() 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 ="F:\Sesame2\Data\EXPORT\AUFNAHMEHeute.TXT" var vStr as String var vRun as Int var vSpec as String var vdatei as String
vSpec = "Importiere von AUFNAHME"
vRun = @LoadImportSpec(vSpec) If vRun = 1 { If FileExists(vASC ) { RunImportSpec(vASC) @Msg("Waiting") Loiter(1000) @Msg("Done Waiting") } Else { @Msg("Could not find the import file " + vASC) } } Else { @Msg("Could not find the Import spec named " + vSpec) }
End Subroutine
IF @Mode() = 0 { vList1 = "DIVERSE;Abbrechen"
PopupSelectPosition(3, @XPos(ThisElement) + (@Width(ThisElement) / 2) , @YPos(ThisElement) + @Height(ThisElement))
vDatei = @PopupChoiceList("@m" + @Replace(vList1, ";", ";@m"), " Welche Datei möchten Sie importieren?") vdatei = @Replace(vdatei, "@m", "")
IF vDatei <> "Abbrechen" then { //vRSMax = @XResultSetSearch(@FN,"AUFTRAEGE", 0,2, "!LfdNr=Max 1") vRSMax = @XResultSetSearch(@FN,@layout, 0,2, "!LfdNr=Max 1")
IF vRSMax > -1 then { vMax = @XResultSetValue(vRSMax, "LfdNr") vMax = @str(@replace(vMax,",00000000","")) writeln(vRSmax + @nl() + vMax) } XResultSetClose(vRSMax) vRSHandle = @XResultSetSearch("Data\MDLAUFNAHME.DB", "Aufnahme", 0,2, "!LfdNr=>" + vMax , "!AuftraegeABuch=" + "DRO;STEIN" ) //vRSHandle = @XResultSetSearch("Data\MDLAUFNAHME.DB", "Aufnahme", 0,2, "!LfdNr=>" + vMax , "!Allergie=YES" ) //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) Aedern()
} }
} else @MSGBOX(" Leider KEINE Datensätze für den export ","zu " + vExportFile," gefunden Für Hilfe fragen Sie einfach Herrn Dr. Belhareth") }
Throwfocus(Ruhe)
|