wen the Form B has been opened by an interactive client (a user)  Starting externally the Report  from one Form A and using @XResultSetPrintReport() the report does not start!

It starts only wen the the Form A is unloaded.

is that correct?

 

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

Hello Ray!

The output writeln is : 

165788
Handle: 0
FileName: C:\SESAME2\REPORTS\EXPORT_2012_01_11_17_00_35.htm

Yes, i have it.