**BRegie56.prg   -  Regie-Zentrum f�r Bestattungsverwaltung
//                      Serien von Artikeln zum Rechnungsschreiben anlegen

#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Appedit.ch"
#include "Appbrow.ch"
#include "Font.ch"
#include "Fileio.ch"

FUNCTION SerienEingabe( oDlg1, lStart )
   LOCAL oDlg, nEvent, mp1, mp2, oXbp
   LOCAL aSizeDesktop := AppDesktop():currentSize()
   LOCAL nBSb := aSizeDesktop[1]
   LOCAL nBSh := aSizeDesktop[2]
// folgende Zahlen-Werte basieren auf 800x600:
   LOCAL nH := nBSb/800         // Korrekturfaktor f�r tats�chliche Aufl�sung
   LOCAL nV := nBSh/600, nHV := nH/nV  //+07.06.2011 17:28
   LOCAL nOldArea := Select()
   LOCAL lFlucht := .F., nFlucht
   PRIVATE oCB

   PRIVATE nAnz := 0, nt := 0, nRechnr := 0, nGS := 0
   PRIVATE oEdit, oBrowse
   PRIVATE nZeile := 0, a3 := {} , cArt := "1"	//+23.10.2018 18:16 cArt := "1"
   PRIVATE nSum := 0
   PRIVATE nSumme := nSumme0 := nSummeI := nSummeII := 0
// folgende Variablen m�ssen individuell gesetzt werden ( in R3 und R5 ):
   PRIVATE nBezZeil := 2 , nF := 0
   PRIVATE bezZ1 := "bez" , bezZ2 := "bezF1"     // Artikel in Art->
   PRIVATE bZ1 := "b1" , bZ2 := "bezF1"     // Artikel in Serie->
   PRIVATE bezeichZ1 := "bezeich" , bezeichZ2 := "bezeichf2"  // Artikel in AUftr
   PRIVATE nBezWb1 := 40 , nBezWe1 := 40 , nBezWb2 := 40 , nBezWe2 := 40

   PRIVATE cSertemp := "se8"			//21.01.2025 18:29 wieso denn??	+LTrim(Str(Int(Seconds()/10)))
   PRIVATE cXsertemp := "se8X"		//21.01.2025 18:29 wieso denn??	+LTrim(Str(Int(Seconds()/10)))

   oDlg := AKDialog():new( AppDesktop(), oDlg1,,, { { XBP_PP_FGCLR, GRA_CLR_BLACK } } )
   oDlg:create(,, {10,int(30*nV)}, {int(770*nH),int(500*nV)} )

   APPEDIT INTO oEdit;
        PARENT oDlg:drawingArea 

   APPDISPLAY oEdit MODELESS
   oDlg:setModalState( XBP_DISP_APPMODAL )
   oDlg:show()
							   oEdit := oDlg:drawingArea
   oFocus := SetAppFocus( oEdit )

   DO WHILE nEvent <> xbeP_Close
      nEvent := AppEvent( @mp1, @mp2, @oXbp )
      IF lStart == .T.
      	nEvent := xbeP_Close
      ENDIF
      oXbp:handleEvent( nEvent, mp1, mp2 )
   ENDDO

   oDlg:setModalState( XBP_DISP_MODELESS )
   oDlg:destroy()
   SetAppFocus( oFocus )
   Select &nOldArea
RETURN .T.