Masenrücksprung

[Rolf Ramacher]

Hallo zusammen,

innerhalb meines Etikettendruckprogramms können Etiketten gelöscht werden- Nach der Abfrage eines Verteilers springt er wieder zurück.

Hier die Abfrage innerhalb des Löschvorgangs

Code: Alles auswählen

If lAlle=.f. .and. lEinzel=.f. .and. lFil=.f. 
		If cEtiketArt<>"storndru"
			AbfrageVerteiler(aDb,oParent,lDrAlle,lDrEinzel,lDrFil,cEtiketArt,;
				cEtikettenTitel)
msgbox("kein löschen")
		Else
			Freigabe(aDb)
			oParent:destroy()
		   RunShell( cEtiketArt, "etikettendruck.exe", .T. ) 
			Quit			
		EndIf
	EndIf

aus der Function AbfrageVerteiler() - geht das Programm hier weiter.
warum ??


Hier die Function zur Verteilerabfrage:

Code: Alles auswählen

Function AbfrageVerteiler(aDb,oParent,lDrAlle,lDrEinzel,lDrFil,cEtiketArt,;
			cEtikettenTitel)

   LOCAL nEvent, mp1, mp2
   LOCAL oDlg, oXbp, drawingArea, aEditControls := {}, oStatic

	oParent:disable()
	Do Case
		Case cEtiketArt="preisdru"
			AAdd(aDb,"spprver")
		Case cEtiketArt="ersdru"
			AAdd(aDb,"sperver")
	EndCase
	// Erzeugen der Maske
   oDlg := XbpDialog():new( SetAppWindow(), , {320,150}, {300,200}, , .F.)
   oDlg:taskList := .T.
	oDlg:sysmenu:=.f.
   oDlg:title := "Wollen Sie Verteiler Drucken ?? "
   oDlg:create()

   drawingArea := oDlg:drawingArea
   drawingArea:setFontCompoundName( "9.Arial" )

   oXbp := XbpPushButton():new( drawingArea, , {050,100}, {50,20}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 } } )
   oXbp:caption := "JA"
   oXbp:tabStop := .T.
   oXbp:create()
   oXbp:activate := {|| VerteilerErstellen(aDb,lDrAlle,lDrEinzel,lDrFil,cEtiketArt,cEtikettenTitel) }

   oXbp := XbpPushButton():new( drawingArea, , {200,100}, {50,20}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 } } )
   oXbp:caption := "NEIN"
   oXbp:tabStop := .T.
   oXbp:create()
   oXbp:activate := {|| oParent:enable(),oParent:destroy(),oDlg:destroy(),;
								Freigabe(aDb),aStartDaten[1]:enable(),;
								EtikettenAbfrage(aStartDaten[1],aStartDaten[2],aStartDaten[3],;
									aStartDaten[4],aStartDaten[5],aStartDaten[6]),PostAppEvent( xbeP_Close ) }

oDlg:show()
SetAppFocus(oDlg)

   nEvent := xbe_None
   DO WHILE nEvent <> xbeP_Close
      nEvent := AppEvent( @mp1, @mp2, @oXbp )
      oXbp:handleEvent( nEvent, mp1, mp2 )
   ENDDO

Return Nil

die Functtion Etikettenabfrage ist der Programmstart. aStartDaten[1] beinhaltet den 1. Dialog- des Programms- die Maske erscheint auch.