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
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