You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
307 lines
7.9 KiB
307 lines
7.9 KiB
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
|
|
'
|