Build1=Default,shub.dpm
Build2=DPM,shub.dpm,Vollversion
File1=About.bal
File10=StopScan.png
File2=daten.png
File3=icon.png
File4=LData.bal
File5=main.bal
File6=Parameter.bal
File7=Patient.png
File8=Scan.PNG
File9=Splash.bal
FileGroup1=Default Group
FileGroup10=Default Group
FileGroup2=Default Group
FileGroup3=Default Group
FileGroup4=Default Group
FileGroup5=Default Group
FileGroup6=Default Group
FileGroup7=Default Group
FileGroup8=Default Group
FileGroup9=Default Group
Group=Default Group
Library1=animation
Library10=xui
Library11=xui views
Library12=xui2d
Library13=dateutils
Library2=audio
Library3=billscanner
Library4=core
Library5=javaobject
Library6=json
Library7=okhttputils2
Library8=phone
Library9=stringfunctions
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="28"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.DarkTheme)~\n~CreateResourceFromFile(Macro, Core.NetworkClearText)~\n~'End of default text.~\n~~\n~AddApplicationText(<meta-data~\n~            android:name="com.google.android.gms.version"~\n~            android:value="@integer/google_play_services_version" />~\n~        <meta-data~\n~            android:name="com.google.android.gms.vision.DEPENDENCIES"~\n~            android:value="barcode" />)~\n~'        <meta-data~\n~'            android:name="com.google.android.gms.vision.DEPENDENCIES"~\n~'            android:value="ocr" />)~\n~			~\n~AddManifestText(<uses-feature android:name="android.hardware.camera" android:required="true" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.autofocus" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.flash" android:required="false" />)~\n~~\n~~\n~''Put your key here!!!!!!!!!!!	~\n~'AddApplicationText(<meta-data android:name="my_api_key" android:value="b68f0ca489d783d318c07cc7b244227aabd5-97e5-11e8-bbf1-4b59" />~\n~')	~\n~'SetApplicationAttribute(android:name, "androidx.multidex.MultiDexApplication")	
Module1=About
Module2=AppMain
Module3=ListData
Module4=Param
Module5=Starter
Module6=TempData
NumberOfFiles=10
NumberOfLibraries=13
NumberOfModules=6
Version=11
@EndOfDesignText@
#Region  Project Attributes 
	#ApplicationLabel: DPM ChargeScan
	#VersionCode: 1
	#VersionName: Initial
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
	#MultiDex: True

#End Region


#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	'Public PatID As String
	'Public sURL As String=""
	
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

'	Private bs1 As BillScanner
'	Private Button1 As Button
'
'	Private Button2 As Button
'	Dim JobName As String
'
'	Dim PatName As String
'	Private txtPatNr As EditText
'	Private pnlEnterPatID As Panel
'	Private lblPatient As Label
'	Private timeout As Long
'
'
'
'	Private btnSearchPat As Button
'	Dim PatTimer As Timer
'	Dim StartTimer As Timer
	Private Label3 As Label
	Private ImageView1 As ImageView

End Sub

Sub Activity_Create(FirstTime As Boolean)
	If FirstTime=True Then
    Activity.LoadLayout("Splash")
	Label3.text=  Chr(0x00A9)& "2021 - Stefan Hutter Unternehmensberatung"
	Dim ani As Animation
	
	
	ImageView1.Left=(100%x-ImageView1.Width)/2
	ani.InitializeScaleCenter("",0,0,1,1,ImageView1)
	ani.Duration=800
	ImageView1.Tag=ani
	ani.Start(ImageView1)

	
	Sleep(4000)
	End If
	StartActivity("AppMain")
	End Sub

'	Activity.AddMenuItem("Parameter","bt1")
'	Activity.AddMenuItem("Über...","bt2")
'	'Do not forget to load the layout file created with the visual designer. For example:
'	Activity.LoadLayout("main")
'	Activity.Title="DPM - Charge-Scanner"
'	bs1.ScanMode = bs1.FORMAT_ONE_D
'	PatID=0
'	If File.Exists(File.DirInternal ,"DPM.ini") = True Then
'		Get_Params
'	Else
'		'StartActivity("Param")
'	End If
'	PatTimer.Initialize("timer",timeout)
'	If TempData.pid<>"" Then 
'		get_Pat(TempData.pid)
'		TempData.pid=""
'	End If
'	End Sub
'
'	Sub Activity_Resume
'	If TempData.pid<>"" Then PatID=TempData.pid 
'	If File.Exists(File.DirInternal ,"DPM.ini") = True Then 
'		Get_Params
'		PatTimer.Enabled=False
'		PatTimer.Initialize("timer",timeout)
'		PatTimer.Enabled=True
'	End If
'	End Sub
'
'	Sub Activity_Pause (UserClosed As Boolean)
'
'	Try
'	  bs1.stopScanning
'	  Catch
'	  	End Try
'	  PatID=0
'	End Sub
'
'
'	Sub Timer_Tick
'	PatID=0
'	lblPatient.Text="Bitte Patient auswählen"
'	End Sub
'
'	Sub Get_Params
'	Dim TR As TextReader
'	Dim inp As InputStream
'	inp=File.OpenInput(File.DirInternal , "DPM.ini")
'	TR.Initialize(inp)
'	Try
'	   sURL=TR.Readline
'	Catch
'	   sURL=""
'	End Try
'	Try
'		timeout = TR.ReadLine
'
'	Catch
'		timeout=30000
'	End Try
'
'	TR.Close
'	End Sub
'
'	Sub bs1_scan_value(val As String, rawbyte() As Byte, barcodetype As Int)
'
'	Log("Value = " & val)
'	Log("type = " & barcodetype)
'	Log(" ")
'
'	Dim job As HttpJob
'	JobName="PostCharche"
'	job.Initialize(JobName, Me)
'
'	job.PostString(sURL&"/DPMService/api/PatCharge/"&PatID&"/"&val,"")
'	bs1.stopScanning
'	Dim b As Beeper
'	b.Initialize(300, 500) '300 milliseconds, 500 hz
'	b.Beep
'	PatTimer.Enabled=True
'	End Sub
'
'	Sub Button1_Click
'	If PatID=0 Then
'	ToastMessageShow("Bitte zuerst Patient wählen",True)
'	End If
'	bs1.startScanning
'	PatTimer.Enabled=False
'	End Sub
'
'	Private Sub Button2_Click
'	Try
'	bs1.stopScanning
'	Catch
'		End Try
'	End Sub
'
'
'	Sub get_Pat(id As String)
'	Dim job As HttpJob
'	JobName="GetPat"
'	job.Initialize(JobName, Me)
'
'	Dim callurl As String
'	callurl=sURL&"/DPMService/api/Service_View_Pat/"&id
'	job.Download(callurl)
'	'job.Download("http://192.168.111.67/DPMService/api/Service_View_Pat/"&id)
'
'	End Sub
'
'
'	Sub JobDone(Job As HttpJob)
'	ProgressDialogHide
'	If Job.Success Then
'		Dim res As String
'		res = Job.GetString
'		Dim parser As JSONParser
'		parser.Initialize(res)
'		
'		Log("Response from server: " & res)
'		
'		Select Job.JobName
'			Case "GetPat"
'
'				Dim list1 As List
'				list1 = parser.NextArray
'				If list1.Size<1 Then
'					ToastMessageShow("Patient nicht vorhanden.",True)
'					pnlEnterPatID.Visible=True
'				Return
'				End If
'				Dim map1 As Map
'				map1 = list1.Get(0)
'				Log(map1)
'				
'				PatID = map1.Get("id")
'				PatName=map1.Get("pat")
'				lblPatient.Text=PatName
'			Case "PostCharche"
'				ToastMessageShow("Barcode erfolgreich gespeichert",False)
'		End Select
'	Else
'		ToastMessageShow("Funktionsaufruf fehlgeschlagen.",True)
'	End If
'	Job.Release
'	End Sub
'
'
'
'	Private Sub btnSearchPat_Click
'	PatTimer.Enabled=False
'	get_Pat(txtPatNr.Text)
'	pnlEnterPatID.Visible=False
'	btnSearchPat.RequestFocus
'	PatTimer.Enabled=True
'	End Sub
'
'	Private Sub btnEnterPatID_Click
'	txtPatNr.ForceDoneButton=True
'	pnlEnterPatID.Visible=True
'	txtPatNr.Text=""
'	txtPatNr.RequestFocus
'	End Sub
'
'	Private Sub lblPatient_LongClick
'	StartActivity("Param")
'	End Sub
'
'	Sub bt1_Click
'	StartActivity("Param")
'	End Sub
'	Sub bt2_click
'	StartActivity("About")
'	End Sub
'
'	Private Sub btnListdata_Click
'
'	'StartActivity(ListData)
'	'CallSubDelayed3(ListData,"get_data",txtPatNr.text,sURL)
'	ListData.PatID=PatID
'	TempData.pid=PatID
'	TempData.pname=lblPatient.Text
'	ListData.sURL=sURL
'	'CallSubDelayed(ListData,"")
'
'	StartActivity("ListData")
'	End Sub
'