TVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentJLeft = 1 Top = 220 Width = 520 Height = 200 Name = "Dataenvironment" 11addform"..\..\..\..\ddrive\relax4\base.vcxform TOURISMUSDataSession = 1 Top = 11 Left = 9 Height = 400 Width = 560 DoCreate = .T. ShowTips = .T. Caption = "Tourismus" linkwithtoolbar = .T. nopath = .F. Name = "TOURISMUS" PROCEDURE Refresh IF ! EMPTY(poF.ID) SET KEY TO poF.ID + "*" IN Kondition SET KEY TO poF.ID + "*" IN Umsatz THISFORM.txtFFN.Enabled = .T. THISFORM.txtFHG.Enabled = .T. THISFORM.txtFUID.Enabled = .T. THISFORM.cmbRechtsform.Enabled = .T. THISFORM.btnAddKondition.Enabled = .T. THISFORM.btnAddUmsatz.Enabled = .T. THISFORM.cmbFBranche.Enabled = .T. THISFORM.spnMitarbeiter.Enabled = .T. THISFORM.txtFUmsatz.Enabled = .T. THISFORM.grdKondition.Enabled = .T. THISFORM.grdUmsatz.Enabled = .T. THISFORM.btnSum.Enabled = .T. ELSE SET KEY TO "**********" IN Kondition SET KEY TO "**********" IN Umsatz THISFORM.txtFFN.Enabled = .F. THISFORM.txtFHG.Enabled = .F. THISFORM.txtFUID.Enabled = .F. THISFORM.cmbRechtsform.Enabled = .F. THISFORM.btnAddKondition.Enabled = .F. THISFORM.btnAddUmsatz.Enabled = .F. THISFORM.cmbFBranche.Enabled = .F. THISFORM.spnMitarbeiter.Enabled = .F. THISFORM.txtFUmsatz.Enabled = .F. THISFORM.grdKondition.Enabled = .F. THISFORM.grdUmsatz.Enabled = .F. THISFORM.btnSum.Enabled = .F. ENDIF GO TOP IN Kondition GO TOP IN Umsatz THISFORM.btnSum.Click =DODEFAULT() ENDPROC  f%9%JUB%C  Gy(*Gy(*TaTaTaT aT aT aT aT aTaTaTaTaGy( **********Gy( **********T-T-T-T -T -T -T -T -T-T-T-T- #) #)  CUPOFID KONDITIONUMSATZTHISFORMTXTFFNENABLEDTXTFHGTXTFUID CMBRECHTSFORMBTNADDKONDITION BTNADDUMSATZ CMBFBRANCHESPNMITARBEITER TXTFUMSATZ GRDKONDITION GRDUMSATZBTNSUMCLICKRefresh,11qqA1~) oldvalue gridgrid grdKondition TOURISMUSColumnCount = 5 Height = 92 Left = 12 Panel = 1 RecordSource = "Kondition" RecordSourceType = 1 ScrollBars = 2 Top = 180 Width = 540 Name = "grdKondition" Column1.ControlSource = "Kondition.konlzvon" Column1.DynamicForeColor = "IIF(KonLZVon <= DATE() AND DATE() <= KonLZBis, RGB(192,0,0), RGB(0,0,0))" Column1.DynamicFontBold = "KonLZVon <= DATE() AND DATE() <= KonLZBis" Column1.Name = "Column1" Column2.ControlSource = "kondition.konlzbis" Column2.DynamicForeColor = "IIF(KonLZVon <= DATE() AND DATE() <= KonLZBis, RGB(192,0,0), RGB(0,0,0))" Column2.DynamicFontBold = "KonLZVon <= DATE() AND DATE() <= KonLZBis" Column2.Name = "Column2" Column3.ControlSource = "kondition.konzahlart" Column3.Width = 104 Column3.DynamicForeColor = "IIF(KonLZVon <= DATE() AND DATE() <= KonLZBis, RGB(192,0,0), RGB(0,0,0))" Column3.DynamicFontBold = "KonLZVon <= DATE() AND DATE() <= KonLZBis" Column3.Name = "Column3" Column4.ControlSource = "kondition.konvolumen" Column4.Width = 106 Column4.Sparse = .F. Column4.DynamicForeColor = "IIF(KonLZVon <= DATE() AND DATE() <= KonLZBis, RGB(192,0,0), RGB(0,0,0))" Column4.DynamicFontBold = "KonLZVon <= DATE() AND DATE() <= KonLZBis" Column4.Name = "Column4" Column5.ControlSource = "kondition.voucher" Column5.Sparse = .F. Column5.Name = "Column5" \PROCEDURE AfterRowColChange LPARAMETERS nColIndex THISFORM.edtKonInfo.refresh ENDPROC  )%qU U NCOLINDEXTHISFORM EDTKONINFOREFRESHAfterRowColChange,1q1Q)headerheaderHeader1TOURISMUS.grdKondition.Column1,Caption = "Laufzeit von" Name = "Header1" textboxtextboxText1TOURISMUS.grdKondition.Column1YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" PROCEDURE GotFocus THISFORM.OldValue = THIS.value ENDPROC PROCEDURE LostFocus IF THISFORM.OldValue != THIS.value = PROTOCOL( "KONDITION", "KONDITION", "KONLZVON", THISFORM.OldValue, THIS.value, .F., "KONID" ) ENDIF ENDPROC  3%)UTUTHISFORMOLDVALUETHISVALUE`%YBC KONDITION KONDITIONKONLZVON-KONIDUTHISFORMOLDVALUETHISVALUEPROTOCOLGotFocus, LostFocusg112q!A12R)headerheaderHeader1TOURISMUS.grdKondition.Column2,Caption = "Laufzeit bis" Name = "Header1" textboxtextboxText1TOURISMUS.grdKondition.Column2YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1TOURISMUS.grdKondition.Column3+Caption = "Zahlungsart" Name = "Header1" comboboxcomboboxcmbZahlungsartTOURISMUS.grdKondition.Column3FontSize = 7 RowSourceType = 1 Height = 24 Left = 33 Margin = 2 SpecialEffect = 1 Style = 2 Top = 35 Width = 100 Name = "cmbZahlungsart" lPROCEDURE Init THIS.RowSource = READPRF("Auswahl", "Zahlungsart", poEnv.oMain.Parent.dbAssocINI) ENDPROC  ]%U85TCAuswahl ZahlungsartUTHIS ROWSOURCEREADPRFPOENVOMAINPARENT DBASSOCINIInit,1Q1a)headerheaderHeader1TOURISMUS.grdKondition.Column4'Caption = "Volumen" Name = "Header1" comboboxcombobox cmbVolumenTOURISMUS.grdKondition.Column4FontSize = 7 RowSourceType = 1 Height = 24 Left = 41 SpecialEffect = 1 Style = 2 Top = 23 Width = 100 Name = "cmbVolumen" &PROCEDURE Valid THIS.ToolTipText = READPRF("Auswahl", THIS.Value, poEnv.oMain.Parent.dbAssocINI) ENDPROC PROCEDURE Init THIS.RowSource = READPRF("Auswahl", "Volumen", poEnv.oMain.Parent.dbAssocINI) THIS.ToolTipText = READPRF("Auswahl", THIS.Value, poEnv.oMain.Parent.dbAssocINI) ENDPROC  +J%ZwU0-TCAuswahlUTHIS TOOLTIPTEXTREADPRFVALUEPOENVOMAINPARENT DBASSOCINIa1TCAuswahlVolumen-TCAuswahlU THIS ROWSOURCEREADPRFPOENVOMAINPARENT DBASSOCINI TOOLTIPTEXTVALUEValid,Init121a|)headerheaderHeader1TOURISMUS.grdKondition.Column5'Caption = "Voucher" Name = "Header1" checkboxcheckboxCheck1TOURISMUS.grdKondition.Column5MTop = 23 Left = 37 Height = 17 Width = 60 Caption = "" Name = "Check1"  commandbutton commandbuttonbtnAddKondition TOURISMUSXTop = 181 Left = 13 Height = 18 Width = 17 Caption = "+" Name = "btnAddKondition" PROCEDURE Click INSERT INTO Kondition (konid, konfid) VALUES ; (_UNIQID(poEnv.Node, "Kondition"), poF.ID) THISFORM.Refresh ENDPROC 5 Ƶ%UK>r KonditionC Kondition U KONIDKONFID_UNIQIDPOENVNODEPOFIDTHISFORMREFRESHClick,11)rlxlabel"..\..\..\..\ddrive\relax4\base.vcxlabel Rlxlabel1 TOURISMUSdCaption = "Firmenbuch" Left = 37 Top = 17 TabIndex = 8 ForeColor = 128,0,0 Name = "Rlxlabel1" rlxlabel"..\..\..\..\ddrive\relax4\base.vcxlabel Rlxlabel2 TOURISMUShCaption = "Handelsgericht" Left = 21 Top = 40 TabIndex = 9 ForeColor = 128,0,0 Name = "Rlxlabel2" rlxlabel"..\..\..\..\ddrive\relax4\base.vcxlabel Rlxlabel3 TOURISMUSbCaption = "UID-Nr." Left = 56 Top = 63 TabIndex = 10 ForeColor = 128,0,0 Name = "Rlxlabel3" rlxlabel"..\..\..\..\ddrive\relax4\base.vcxlabel Rlxlabel4 TOURISMUSeCaption = "Rechtsform" Left = 38 Top = 86 TabIndex = 11 ForeColor = 128,0,0 Name = "Rlxlabel4" rlxlabel"..\..\..\..\ddrive\relax4\base.vcxlabel Rlxlabel5 TOURISMUS_Caption = "Art" Left = 79 Top = 109 TabIndex = 14 ForeColor = 128,0,0 Name = "Rlxlabel5" rlxtext"..\..\..\..\ddrive\relax4\base.vcxtextboxtxtFFN TOURISMUSFontBold = .F. ControlSource = "poF.FFN" Height = 22 InputMask = "" Left = 96 Margin = 2 TabIndex = 1 Top = 12 Width = 90 ForeColor = 128,0,0 Name = "txtFFN" comboboxcombobox cmbRechtsform TOURISMUSFontBold = .F. FontName = "MS Sans Serif" RowSourceType = 5 RowSource = "_ARF" ControlSource = "poF.FRechtsf" Height = 22 Left = 96 Margin = 2 Style = 2 TabIndex = 4 Top = 81 Width = 90 ForeColor = 128,0,0 BoundTo = .F. Name = "cmbRechtsform" PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 7 THIS.Value = 0 ENDIF ENDPROC PROCEDURE InteractiveChange poEnv.oMain.Parent.Changed ENDPROC n UU%U3 %,TUNKEYCODE NSHIFTALTCTRLTHISVALUEUPOENVOMAINPARENTCHANGEDKeyPress,InteractiveChange1A21b)Urlxlabel"..\..\..\..\ddrive\relax4\base.vcxlabel Rlxlabel7 TOURISMUSgCaption = "Mitarbeiter" Left = 43 Top = 132 TabIndex = 12 ForeColor = 128,0,0 Name = "Rlxlabel7" rlxlabel"..\..\..\..\ddrive\relax4\base.vcxlabel Rlxlabel8 TOURISMUSbCaption = "Umsatz" Left = 57 Top = 155 TabIndex = 13 ForeColor = 128,0,0 Name = "Rlxlabel8" rlxtext"..\..\..\..\ddrive\relax4\base.vcxtextboxtxtFHG TOURISMUSFontBold = .F. ControlSource = "poF.FHG" Height = 22 InputMask = "" Left = 96 Margin = 2 TabIndex = 2 Top = 35 Width = 90 ForeColor = 128,0,0 Name = "txtFHG" rlxtext"..\..\..\..\ddrive\relax4\base.vcxtextboxtxtFUID TOURISMUSFontBold = .F. ControlSource = "poF.FUID" Height = 22 InputMask = "" Left = 96 Margin = 2 TabIndex = 3 Top = 58 Width = 90 ForeColor = 128,0,0 Name = "txtFUID" comboboxcombobox cmbFBranche TOURISMUSFontBold = .F. FontName = "MS Sans Serif" RowSourceType = 5 RowSource = "_ABRANCHE" ControlSource = "poF.FBranche" Height = 22 Left = 96 Margin = 2 Style = 2 TabIndex = 5 Top = 104 Width = 90 ForeColor = 128,0,0 BoundTo = .F. Name = "cmbFBranche" PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 7 THIS.Value = 0 ENDIF ENDPROC PROCEDURE InteractiveChange poEnv.oMain.Parent.Changed ENDPROC n UU%U3 %,TUNKEYCODE NSHIFTALTCTRLTHISVALUEUPOENVOMAINPARENTCHANGEDKeyPress,InteractiveChange1A21b)Urlxtext"..\..\..\..\ddrive\relax4\base.vcxtextbox txtFUmsatz TOURISMUSFontBold = .F. ControlSource = "poF.FUmsatz" Height = 22 InputMask = "###,###,###" Left = 96 Margin = 2 TabIndex = 7 Top = 150 Width = 90 ForeColor = 128,0,0 Name = "txtFUmsatz" spinnerspinnerspnMitarbeiter TOURISMUSFontBold = .F. FontName = "MS Sans Serif" Height = 22 InputMask = "###,###,###" Left = 96 Margin = 2 TabIndex = 6 Top = 127 Width = 90 ForeColor = 128,0,0 ControlSource = "poF.FMitarb" Name = "spnMitarbeiter" BPROCEDURE InteractiveChange poEnv.oMain.Parent.Changed ENDPROC  %b}UUPOENVOMAINPARENTCHANGEDInteractiveChange,117)rlxlabel"..\..\..\..\ddrive\relax4\base.vcxlabel Rlxlabel6 TOURISMUSbCaption = "Anlage" Left = 262 Top = 16 TabIndex = 13 ForeColor = 128,0,0 Name = "Rlxlabel6" rlxtext"..\..\..\..\ddrive\relax4\base.vcxtextbox txtFCreate TOURISMUSFontBold = .F. ControlSource = "poF.FCreate" Height = 22 InputMask = "99.99.9999" Left = 299 Margin = 2 ReadOnly = .T. TabIndex = 1 Top = 11 Width = 90 ForeColor = 128,0,0 Name = "txtFCreate" rlxlabel"..\..\..\..\ddrive\relax4\base.vcxlabel Rlxlabel9 TOURISMUSdCaption = "nderung" Left = 249 Top = 38 TabIndex = 13 ForeColor = 128,0,0 Name = "Rlxlabel9" rlxtext"..\..\..\..\ddrive\relax4\base.vcxtextbox txtFModify TOURISMUSFontBold = .F. ControlSource = "poF.FLastmod" Height = 22 InputMask = "99.99.9999" Left = 299 Margin = 2 ReadOnly = .T. TabIndex = 1 Top = 33 Width = 90 ForeColor = 128,0,0 Name = "txtFModify" rlxtext"..\..\..\..\ddrive\relax4\base.vcxtextbox txtFUGesEur TOURISMUSControlSource = "" Format = "K" Height = 19 InputMask = "###,###,###.##" Left = 299 ReadOnly = .T. TabIndex = 12 Top = 62 Width = 90 ForeColor = 128,0,0 Name = "txtFUGesEur" rlxlabel"..\..\..\..\ddrive\relax4\base.vcxlabel Rlxlabel10 TOURISMUSsAlignment = 0 Caption = "Umstze" Left = 254 Top = 65 TabIndex = 20 ForeColor = 128,0,0 Name = "Rlxlabel10" rlxtext"..\..\..\..\ddrive\relax4\base.vcxtextbox txtFULetzt TOURISMUSControlSource = "" Height = 19 Left = 299 ReadOnly = .T. TabIndex = 13 Top = 82 Width = 90 ForeColor = 128,0,0 Name = "txtFULetzt" rlxlabel"..\..\..\..\ddrive\relax4\base.vcxlabel Rlxlabel11 TOURISMUSsAlignment = 0 Caption = "letzter" Left = 267 Top = 85 TabIndex = 23 ForeColor = 128,0,0 Name = "Rlxlabel11" rlxtext"..\..\..\..\ddrive\relax4\base.vcxtextboxtxtFUAnz TOURISMUSControlSource = "" Height = 19 InputMask = "###,###" Left = 299 ReadOnly = .T. TabIndex = 14 Top = 102 Width = 90 ForeColor = 128,0,0 Name = "txtFUAnz" rlxlabel"..\..\..\..\ddrive\relax4\base.vcxlabel Rlxlabel12 TOURISMUSsAlignment = 0 Caption = "Anzahl" Left = 263 Top = 105 TabIndex = 22 ForeColor = 128,0,0 Name = "Rlxlabel12" linelineLine1 TOURISMUSVHeight = 0 Left = 225 Top = 58 Width = 163 BorderColor = 0,0,128 Name = "Line1"  commandbutton commandbuttonbtnSum TOURISMUSdTop = 59 Left = 225 Height = 22 Width = 20 FontName = "Symbol" Caption = "S" Name = "btnSum" PROCEDURE Click SELECT SUM(UmsBetrag), MAX(UmsDatum), SUM(UmsAnzahl) ; FROM Umsatz WHERE Umsatz.UmsFID = poF.ID INTO ARRAY laResult IF _TALLY = 1 THISFORM.txtFUAnz.Value = laResult[3] THISFORM.txtFUGesEur.Value = laResult[1] THISFORM.txtFULetzt.Value = laResult[2] ELSE THISFORM.txtFUAnz.Value = 0 THISFORM.txtFUGesEur.Value = 0 THISFORM.txtFULetzt.Value = "" ENDIF ENDPROC  % U=oUmsatzCCC% T CT CT CT T T USUM UMSBETRAGUMSDATUM UMSANZAHLUMSATZUMSFIDPOFIDLARESULTTHISFORMTXTFUANZVALUE TXTFUGESEUR TXTFULETZTClick,1qqq111A3)editboxeditbox edtKonInfo TOURISMUSjHeight = 92 Left = 444 Top = 72 Width = 108 ControlSource = "Kondition.koninfo" Name = "edtKonInfo" gridgrid grdUmsatz TOURISMUS2ColumnCount = 3 Height = 92 Left = 12 RecordSource = "Umsatz" RecordSourceType = 1 ScrollBars = 2 Top = 288 Width = 348 Name = "grdUmsatz" Column1.ControlSource = "Umsatz.UmsDatum" Column1.Sparse = .F. Column1.DynamicForeColor = "" Column1.DynamicFontBold = "" Column1.Name = "Column1" Column2.ControlSource = "Umsatz.UmsAnzahl" Column2.DynamicForeColor = "" Column2.DynamicFontBold = "" Column2.Name = "Column2" Column3.ControlSource = "Umsatz.UmsBetrag" Column3.DynamicForeColor = "" Column3.DynamicFontBold = "" Column3.Name = "Column3" \PROCEDURE AfterRowColChange LPARAMETERS nColIndex THISFORM.edtUmsInfo.refresh ENDPROC  )%qU U NCOLINDEXTHISFORM EDTUMSINFOREFRESHAfterRowColChange,1q1Q)headerheaderHeader1TOURISMUS.grdUmsatz.Column1%Caption = "Datum" Name = "Header1" textboxtextboxText1TOURISMUS.grdUmsatz.Column1vBorderStyle = 0 Format = "" InputMask = "" Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" PROCEDURE LostFocus IF THISFORM.OldValue != THIS.value = PROTOCOL( "KONDITION", "KONDITION", "KONLZVON", THISFORM.OldValue, THIS.value, .F., "KONID" ) ENDIF ENDPROC PROCEDURE GotFocus THISFORM.OldValue = THIS.value ENDPROC  3%)U`%YBC KONDITION KONDITIONKONLZVON-KONIDUTHISFORMOLDVALUETHISVALUEPROTOCOLTUTHISFORMOLDVALUETHISVALUE LostFocus,GotFocus1q!A211)headerheaderHeader1TOURISMUS.grdUmsatz.Column2&Caption = "Anzahl" Name = "Header1" textboxtextboxText1TOURISMUS.grdUmsatz.Column2YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1TOURISMUS.grdUmsatz.Column3&Caption = "Betrag" Name = "Header1" textboxtextboxText1TOURISMUS.grdUmsatz.Column3YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" editboxeditbox edtUmsInfo TOURISMUShHeight = 92 Left = 372 Top = 288 Width = 180 ControlSource = "Umsatz.UmsInfo" Name = "edtUmsInfo"  commandbutton commandbutton btnAddUmsatz TOURISMUSUTop = 289 Left = 13 Height = 18 Width = 17 Caption = "+" Name = "btnAddUmsatz" qPROCEDURE Click INSERT INTO Umsatz (umsid, umsfid) VALUES ; (_UNIQID(poEnv.Node, "Umsatz"), poF.ID) ENDPROC  %U;8rUmsatzCUmsatzUUMSIDUMSFID_UNIQIDPOENVNODEPOFIDClick,11f)Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 7, 4, 12, 9, 24, 3, 0 MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0 MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0 Symbol, 0, 9, 7, 15, 12, 13, 3, 0