-
Welcome to B4X forum!
B4X is a set of simple and powerful cross platform RAD tools:
- B4A (free) - Android development
- B4J (free) - Desktop and Server development
- B4i - iOS development
- B4R (free) - Arduino, ESP8266 and ESP32 development
Android Question LIST Print
- Thread starter RobyLaga
- Start date
-
- Tags
- list
- Similar Threads Similar Threads
ho quasi vergogna a pubblicare il modulo ,cmq è il seguente :
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim EditText11 As String
Dim EditText22 As String 'PreLista01.Editext22
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 backgroundImage As ImageView
Dim myImage As Bitmap
Private Panel1 As Panel
Private titleImage As ImageView
Private Data01 As Label
Dim pdf As PdfDocument '''''''''''''''''''
Private printer As Printer ''''''''''''''''''' libreria aggiunta a "mano" per stampare
Private ListViewArt22 As ListView
Private ListViewArt33 As ListView
Type ListViewData22(FirstRow22 As String, SecondRow22 As String)
Type ListViewData33(FirstRow33 As String, SecondRow33 As String)
Dim ListResults22(1000) As String
Dim ListResults33(1000) As String
Private EditText1 As EditText
Private EditText2 As EditText
Private ConArt01 As Button
Private OkArt02 As Button
Private backButt01 As Button
Dim ProCod As Int
Private ProCliTbl As Label
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private panelTitleLabel As Label
Private panelLabel As Label
Private CodInt011 As Label
Private CodInt022 As Label
Private descriInt011 As Label
Private descriInt022 As Label
Private umInt011 As Label
Private ArtQta01 As EditText
Private AggArt01 As Button
Private AggArt02 As Button
Private prezzoInt011 As Label
Private prezzoInt022 As Label
Private panelButton As Button
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim CodInt01 As String ' agg su questa versione
Dim CodInt02 As String ' agg su questa versione
Dim descriInt01 As String ' agg su questa versione
Dim descriInt02 As String ' agg su questa versione
Dim prezzoInt01 As String ' agg su questa versione
Dim prezzoInt02 As String ' agg su questa versione
Dim umInt01 As String ' agg su questa versione
Dim tipoInt01 As String ' agg su questa versione
Dim tipoInt02 As String ' agg su questa versione
Dim tipoInt03 As String ' agg su questa versione
Dim tipoInt04 As String ' agg su questa versione
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim ProCodList02 As String
Dim ProCod As Int
Dim ListLMA01 As List
Dim ArtPos01 As String
Private ArtPos011 As Label
Dim lvd33 As ListViewData33
Dim IME As IME
Private Tipo011 As Label
Private Tipo022 As Label
Private Tipo033 As Label
Private Tipo044 As Label
Private Tipo0111 As EditText
Dim Tipo0111 As EditText
Dim spTipo011 As Spinner
Dim tipo0PL1(30) As String
Private Tipo0222 As EditText
Dim Tipo0222 As EditText
Dim spTipo022 As Spinner
Dim tipo0PL2(30) As String
Private Tipo0333 As EditText
Dim Tipo0333 As EditText
Dim spTipo033 As Spinner
Dim tipo0PL3(30) As String
Private Tipo0444 As EditText
Dim Tipo0444 As EditText
Dim spTipo044 As Spinner
Dim tipo0PL4(30) As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("PreLista01")
IME.Initialize("IME")
''''''''''''''''''''''''''''''''''''''''''''''''''
ListViewArt33.Clear
'Carico immagine a quadretti di fondo
backgroundImage.Bitmap = LoadBitmap(File.DirAssets, "mathPaper.png")
'carico immagine titolo
titleImage.Bitmap = LoadBitmap(File.DirAssets, "Logo_H24.jpg")
myImage.Initialize(File.DirAssets, "button-blue.png")
Panel1.Visible = False
printer.Initialize("")
myImage.Initialize(File.DirAssets, "panelBack.png")
Panel1.SetBackgroundImage(myImage)
ListViewArt22.Color = Colors.RGB(200,255,255)
ListViewArt22.Visible = True
ListViewArt22.SetLayout(0.5%x,24.9%y,99%x,33%y)
ListViewArt33.Color = Colors.RGB(200,255,255)
ListViewArt33.Visible = True
ListViewArt33.SetLayout(0.5%x,58.4%y,99%x,33%y)
Data01.Color = Colors.RGB(200,255,255)
Data01.TextColor = Colors.RGB(0,0,255)
Data01.Typeface = Typeface.DEFAULT
Data01.TextSize = 13
Data01.Text = " " & DateTime.Date(DateTime.Now)
ProCliTbl.Text = ""
ProCliTbl.Color = Colors.RGB(200,255,255)
ProCliTbl.TextColor = Colors.RGB(0,0,255)
ProCliTbl.Typeface = Typeface.DEFAULT
ProCliTbl.TextSize = 13
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If File.Exists(File.DirRootExternal, "VideoCam12/ProCli.txt") Then ''
ProCliTbl.Text = " Num. : " & File.ReadString(File.DirRootExternal, "VideoCam12/ProCli.txt") ''
Else '' -- "OTTIMO, Bravo Bob
" --
ProCliTbl.Text = " Num. : " & 1 ''
End If ''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
EditText1.Color = Colors.RGB(200,255,255)
EditText1.TextColor = Colors.RGB(255,0,0)
EditText1.Typeface = Typeface.MONOSPACE
EditText1.TextSize = 10
EditText1.Text = EditText11 ' cambiato destinazione
EditText2.Color = Colors.RGB(200,255,255)
EditText2.TextColor = Colors.RGB(255,0,0)
EditText2.Typeface = Typeface.MONOSPACE
EditText2.TextSize = 12
'EditText2.Text = Prev01.EditText20
EditText2.Text = EditText22
'''''''
Tipo0111.Color = Colors.RGB(200,255,255)
Tipo0111.TextColor = Colors.RGB(255,0,0)
Tipo0111.Typeface = Typeface.MONOSPACE
Tipo0111.TextSize = 12
Tipo0111.Text = "- Tipo 1 -"
Tipo0222.Color = Colors.RGB(200,255,255)
Tipo0222.TextColor = Colors.RGB(255,0,0)
Tipo0222.Typeface = Typeface.MONOSPACE
Tipo0222.TextSize = 12
Tipo0222.Text = "- Tipo 2 -"
ConArt01.Visible = False ' Pulsante OK
ConArt01.Color = Colors.RGB(200,255,255)
ConArt01.TextColor = Colors.RGB(255,0,0)
ConArt01.Typeface = Typeface.DEFAULT
ConArt01.TextSize = 16
ConArt01.text = "- OK -"
OkArt02.Visible = False ' Pulsante Lista
OkArt02.Color = Colors.RGB(200,255,255)
OkArt02.TextColor = Colors.RGB(255,0,0)
OkArt02.Typeface = Typeface.DEFAULT
OkArt02.TextSize = 16
OkArt02.text = "- Lista -"
backButt01.Color = Colors.RGB(200,255,255)
backButt01.TextColor = Colors.RGB(255,0,0)
backButt01.Typeface = Typeface.DEFAULT_BOLD
backButt01.TextSize = 16
backButt01.text = "---- Esci ----"
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ''''''''''''''''''''ComboBOx TIPO0444 ''''''''''''''''''''''''''''''''''''''''''''''''''''''
spTipo044.Initialize("Tipo0444")
spTipo044.Color = Colors.Transparent
spTipo044.DropdownBackgroundColor = Colors.ARGB(255,200,255,255) ' colore fondo menu a tenda
spTipo044.DropdownTextColor = Colors.ARGB(255,0,0,255) ' test menu a tenda
spTipo044.TextColor = Colors.aRGB(255,0,127,255) ' Colore test "FERMO" della Combo
spTipo044.Color = Colors.ARGB(255,200,255,255) ' colore fondo fermo
spTipo044.TextSize = 12
spTipo044.Add("- 4 -") 'variabile ("- Tipo 03: -")
tipo0PL4(0) = "- NVR3 4-"
tipo0PL4(1) = "- DVR3 4-"
tipo0PL4(2) = "- HVR3 4-"
tipo0PL4(2) = "- Bullet IP 4-"
tipo0PL4(3) = "- Bullet HD 4-"
tipo0PL4(4) = "- Dome IP 4-"
tipo0PL4(5) = "- Dome HD 4-"
tipo0PL4(6) = "- Speed Dome IP 4-"
tipo0PL4(7) = "- Speed Dome HD 4-"
tipo0PL4(8) = "- Fisheye 4-"
tipo0PL4(9) = "- Discrete IP 4-"
tipo0PL4(10) = "- Discrete HD 4-"
tipo0PL4(11) = "- Chiavi F.Stella 4-"
tipo0PL4(12) = "- Cacciavite a croce X 4-"
tipo0PL4(13) = "- Cacciavite piano \ 4-"
tipo0PL4(14) = "- Forbice 4 -"
tipo0PL4(15) = "- Dadi 4 -"
tipo0PL4(16) = "- Bulloni 4 -"
tipo0PL4(17) = "- Rondelle 4 -"
tipo0PL4(18) = "- Scale 4 -"
tipo0PL4(19) = "- 20 4 -"
tipo0PL4(20) = "- 21 4 -"
tipo0PL4(21) = "- 22 4 -"
tipo0PL4(22) = "- 23 4 -"
tipo0PL4(23) = "- 24 4 -"
tipo0PL4(24) = "- 25 4 -"
tipo0PL4(25) = "- 26 4 -"
tipo0PL4(26) = "- 27 4 -"
tipo0PL4(27) = "- 28 4 -"
tipo0PL4(28) = "- 29 4 -"
tipo0PL4(29) = "- 30 4 -"
spTipo044.AddAll(tipo0PL4)
spTipo044.Prompt = "Clicca il TIPO 4"
Activity.AddView(spTipo044, 50%x,19%y,48%x,5%y)
Tipo0444.SetLayout (50%x,19%y,48%x,5%y)
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ''''''''''''''''''''ComboBOx TIPO0333 ''''''''''''''''''''''''''''''''''''''''''''''''''''''
spTipo033.Initialize("Tipo0333")
spTipo033.Color = Colors.Transparent
spTipo033.DropdownBackgroundColor = Colors.ARGB(255,200,255,255) ' colore fondo menu a tenda
spTipo033.DropdownTextColor = Colors.ARGB(255,0,0,255) ' test menu a tenda
spTipo033.TextColor = Colors.aRGB(255,0,127,255) ' Colore test "FERMO" della Combo
spTipo033.Color = Colors.ARGB(255,200,255,255) ' colore fondo fermo
spTipo033.TextSize = 12
spTipo033.Add("- 3 -") 'variabile ("- Tipo 03: -")
tipo0PL3(0) = "- NVR3 3-"
tipo0PL3(1) = "- DVR3 3-"
tipo0PL3(2) = "- HVR3 3-"
tipo0PL3(2) = "- Bullet IP 3-"
tipo0PL3(3) = "- Bullet HD 3-"
tipo0PL3(4) = "- Dome IP 3-"
tipo0PL3(5) = "- Dome HD 3-"
tipo0PL3(6) = "- Speed Dome IP 3-"
tipo0PL3(7) = "- Speed Dome HD 3-"
tipo0PL3(8) = "- Fisheye 3-"
tipo0PL3(9) = "- Discrete IP 3-"
tipo0PL3(10) = "- Discrete HD 3-"
tipo0PL3(11) = "- Chiavi F.Stella 3-"
tipo0PL3(12) = "- Cacciavite a croce X 3-"
tipo0PL3(13) = "- Cacciavite piano \ 3-"
tipo0PL3(14) = "- Forbice 3-"
tipo0PL3(15) = "- Dadi 3 -"
tipo0PL3(16) = "- Bulloni 3 -"
tipo0PL3(17) = "- Rondelle 3 -"
tipo0PL3(18) = "- Scale3 -"
tipo0PL3(19) = "- 203 -"
tipo0PL3(20) = "- 213 -"
tipo0PL3(21) = "- 223 -"
tipo0PL3(22) = "- 233 -"
tipo0PL3(23) = "- 243 -"
tipo0PL3(24) = "- 253 -"
tipo0PL3(25) = "- 263 -"
tipo0PL3(26) = "- 273 -"
tipo0PL3(27) = "- 283 -"
tipo0PL3(28) = "- 293 -"
tipo0PL3(29) = "- 303 -"
spTipo033.AddAll(tipo0PL3)
spTipo033.Prompt = "Clicca il TIPO 3"
Activity.AddView(spTipo033, 50%x,13.5%y,48%x,5%y)
Tipo0333.SetLayout (50%x,13.5%y,48%x,5%y)
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ''''''''''''''''''''ComboBOx TIPO0222 ''''''''''''''''''''''''''''''''''''''''''''''''''''''
spTipo022.Initialize("Tipo0222")
spTipo022.Color = Colors.Transparent
spTipo022.DropdownBackgroundColor = Colors.ARGB(255,200,255,255) ' colore fondo menu a tenda
spTipo022.DropdownTextColor = Colors.ARGB(255,0,0,255) ' test menu a tenda
spTipo022.TextColor = Colors.aRGB(255,0,127,255) ' Colore test "FERMO" della Combo
spTipo022.Color = Colors.ARGB(255,200,255,255) ' colore fondo fermo
spTipo022.TextSize = 12
spTipo022.Add("- 2 -") 'variabile ("- Tipo 02: -")
tipo0PL2(0) = "- NVR -"
tipo0PL2(1) = "- DVR -"
tipo0PL2(2) = "- HVR -"
tipo0PL2(2) = "- Bullet IP -"
tipo0PL2(3) = "- Bullet HD -"
tipo0PL2(4) = "- Dome IP -"
tipo0PL2(5) = "- Dome HD -"
tipo0PL2(6) = "- Speed Dome IP -"
tipo0PL2(7) = "- Speed Dome HD -"
tipo0PL2(8) = "- Fisheye -"
tipo0PL2(9) = "- Discrete IP -"
tipo0PL2(10) = "- Discrete HD -"
tipo0PL2(11) = "- Chiavi F.Stella -"
tipo0PL2(12) = "- Cacciavite a croce X -"
tipo0PL2(13) = "- Cacciavite piano \ -"
tipo0PL2(14) = "- Forbice -"
tipo0PL2(15) = "- Dadi -"
tipo0PL2(16) = "- Bulloni.. -"
tipo0PL2(17) = "- Rondelle -"
tipo0PL2(18) = "- Scale -"
tipo0PL2(19) = "- 20 -"
tipo0PL2(20) = "- 21 -"
tipo0PL2(21) = "- 22 -"
tipo0PL2(22) = "- 23 -"
tipo0PL2(23) = "- 24 -"
tipo0PL2(24) = "- 25 -"
tipo0PL2(25) = "- 26 -"
tipo0PL2(26) = "- 27 -"
tipo0PL2(27) = "- 28 -"
tipo0PL2(28) = "- 29 -"
tipo0PL2(29) = "- 30 -"
spTipo022.AddAll(tipo0PL2)
spTipo022.Prompt = "Clicca il TIPO 2"
Activity.AddView(spTipo022, 0.5%x,19%y,48%x,5%y)
Tipo0222.SetLayout (0.5%x,19%y,48%x,5%y)
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ''''''''''''''''''''ComboBax TIPO0111 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
spTipo011.Initialize("Tipo0111")
spTipo011.Color = Colors.Transparent
spTipo011.DropdownBackgroundColor = Colors.ARGB(255,200,255,255) ' colore fondo menu a tenda
spTipo011.DropdownTextColor = Colors.ARGB(255,0,0,255) ' test menu a tenda
spTipo011.TextColor = Colors.ARGB(255,0,127,255) ' Colore test "FERMO" della Combo
spTipo011.Color = Colors.ARGB(255,200,255,255) ' colore fondo fermo
spTipo011.TextSize = 12
spTipo011.Add("- 1 -") 'variabile ("- Tipo 01: -")
tipo0PL1(0) = "- Video Sorveglianza -"
tipo0PL1(1) = "- Video Sorveglianza IP -"
tipo0PL1(2) = "- Video Sorveglianza HD -"
tipo0PL1(3) = "- Allarmi -"
tipo0PL1(4) = "- Allarmi Filo -"
tipo0PL1(5) = "- Allarmi Radio -"
tipo0PL1(6) = "- Allarmi Ibridi -"
tipo0PL1(7) = "- Cavo Allarme -"
tipo0PL1(8) = "- Conduttori Multipli-"
tipo0PL1(9) = "- Corde -"
tipo0PL1(10) = "- Tubazioni -"
tipo0PL1(11) = "- Scatole Incasso -"
tipo0PL1(12) = "- Scatole Esterno -"
tipo0PL1(13) = "- Serie Civile 1 -"
tipo0PL1(14) = "- Serie Civile 2 -"
tipo0PL1(15) = "- Automatici -"
tipo0PL1(16) = "- Ferramenta -"
tipo0PL1(17) = "- Attrezzi Lavoro -"
tipo0PL1(18) = "- Strumenti -"
tipo0PL1(19) = "- Quadri - Rack -"
tipo0PL1(20) = "- Plafoniere Ufficio -"
tipo0PL1(21) = "- Plafoniere Capannone -"
tipo0PL1(22) = "- Proiettori Esterni -"
tipo0PL1(23) = "- 24 -"
tipo0PL1(24) = "- 25 -"
tipo0PL1(25) = "- 26 -"
tipo0PL1(26) = "- 27 -"
tipo0PL1(27) = "- 28 -"
tipo0PL1(28) = "- 29 -"
tipo0PL1(29) = "- 30 -"
spTipo011.AddAll(tipo0PL1)
spTipo011.Prompt = "Clicca il TIPO 1"
Activity.AddView(spTipo011, 0.5%x,13.5%y,48%x,5%y)
Tipo0111.SetLayout (0.5%x,13.5%y,48%x,5%y)
'
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ToastMessageShow("Premi sul Prodotto nella lista sopra, inserisci le quanità desiderate per inserirlo nel carrello sotto ", True)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'
'LoadTests22 ' Tab sopra
Activity_Resume ' ex LoadTeats22 Tab sopra
LoadTests33 ' Tab sotto
'
'
End Sub
Sub panelButton_Click
Panel1.Visible = False
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Activity_Resume
ListViewArt22.Clear
'Carico i dati dal file di testo
'Controllo se il file esiste
Dim List8 As List
'primo ciclo
If File.Exists(File.DirRootExternal, "VideoCam02/ListResults01.txt") Then
'Carico i dati dal file di testo
List8 = File.ReadList(File.DirRootExternal, "VideoCam02/ListResults01.txt")
' Dim Bitmap22 As Bitmap
For i = 0 To 999
ListResults22(i) = List8.Get(i)
'creo un mini array con tutte le parti della riga esaminata
Dim stringArray() As String = Regex.Split("\|",ListResults22(i))
If ListResults22(i) <> "0" Then
' If ListResults22(i) <> "0" And stringArray(7) = "- Video Sorveglianza HD -" Then
' If ListResults22(i) <> "0" And (stringArray(7) = Tipo0111.Text Or stringArray(8) = Tipo0222.Text Or stringArray(9) = Tipo0333.Text Or stringArray(10) = Tipo0444.Text) Then
' Log(stringArray(7))
' Log(Tipo0111.Text)
Dim lvd22 As ListViewData22
lvd22.Initialize
lvd22.FirstRow22 = " - " & stringArray(0) & " - " & stringArray(2) & " - "
lvd22.SecondRow22 = " - " & stringArray(4) & " : " & stringArray(11) & " - " & " €: " & stringArray(5)
ListViewArt22.AddTwoLines(lvd22.FirstRow22,lvd22.SecondRow22) ',lvd33.Picture33,lvd33)
ListViewArt22.TwoLineslayout.ItemHeight = 39.5dip
ListViewArt22.ScrollingBackgroundColor = Colors.Transparent
ListViewArt22.TwoLinesLayout.Label.TextColor = Colors.Rgb(0,0,255)
ListViewArt22.TwoLinesLayout.Label.Height = 22dip
ListViewArt22.TwoLinesLayout.Label.Width = 99%x
ListViewArt22.TwoLinesLayout.Label.Left = 0.5%x
ListViewArt22.TwoLinesLayout.Label.TextSize = 9
ListViewArt22.TwoLinesLayout.Label.Color = Colors.ARGB(235,230,230,230)
ListViewArt22.TwoLinesLayout.SecondLabel.TextColor = Colors.Rgb(0,0,255)
ListViewArt22.TwoLinesLayout.SecondLabel.Height = 30dip
ListViewArt22.TwoLinesLayout.SecondLabel.Width = 99%x
ListViewArt22.TwoLinesLayout.SecondLabel.Left = 0.5%x
ListViewArt22.TwoLinesLayout.SecondLabel.Top = ListViewArt22.TwoLinesLayout.Label.Height + 0.15%y
ListViewArt22.TwoLinesLayout.SecondLabel.TextSize = 8
ListViewArt22.TwoLinesLayout.SecondLabel.Color = Colors.ARGB(235,230,230,230)
End If
Next
End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''
'
'End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub LoadTests33
'' '' Secondo Ciclo ''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''
'Prima pulisco la listview
ListViewArt33.Clear
'Carico i dati dal file di testo
'Controllo se il file esiste
Dim List9 As List
If File.Exists(File.DirRootExternal, "VideoCam12/ListResults10.txt") Then
'Carico i dati dal file di testo
List9 = File.ReadList(File.DirRootExternal, "VideoCam12/ListResults10.txt")
For i = 0 To 999
ListResults33(i) = List9.Get(i)
'creo un mini array con tutte le parti della riga esaminata
Dim stringArray() As String = Regex.Split("\|",ListResults33(i))
'''''''''''''''''''''''''*****************************************'''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''*****************************************'''''''''''''''''''''''''''''''''
' If ListResults33(i) <> 0 And EditText1.Text = stringArray(14) Then ' Cippi Cippi
If ListResults33(i) <> 0 And EditText1.Text = stringArray(14) Then ' Cippi Cippi
' Dim lvd33 As ListViewData33
lvd33.Initialize
lvd33.FirstRow33 = stringArray(11)
lvd33.SecondRow33 = stringArray(0) & " - " & stringArray(2) & " - " & stringArray(4) & " : " & stringArray(16) ' & " - Tot.: € " & ((stringArray(5))*(stringArray(16))) & " - "
ListViewArt33.AddTwoLines(lvd33.FirstRow33,lvd33.SecondRow33)
ListViewArt33.TwoLineslayout.ItemHeight = 31.5dip
ListViewArt33.ScrollingBackgroundColor = Colors.Transparent
''
ListViewArt33.TwoLinesLayout.Label.TextColor = Colors.Rgb(0,0,255)
ListViewArt33.TwoLinesLayout.Label.Height = 22dip
ListViewArt33.TwoLinesLayout.Label.Width = 99%x
ListViewArt33.TwoLinesLayout.Label.Left = 0.5%x
ListViewArt33.TwoLinesLayout.Label.TextSize = 8
ListViewArt33.TwoLinesLayout.Label.Color = Colors.ARGB(235,230,230,230)
ListViewArt33.TwoLinesLayout.SecondLabel.TextColor = Colors.Rgb(0,0,255)
ListViewArt33.TwoLinesLayout.SecondLabel.Height = 30dip
ListViewArt33.TwoLinesLayout.SecondLabel.Width = 99%x
ListViewArt33.TwoLinesLayout.SecondLabel.Left = 0.5%x
ListViewArt33.TwoLinesLayout.SecondLabel.Top = ListViewArt33.TwoLinesLayout.Label.Height - 3.25%y
ListViewArt33.TwoLinesLayout.SecondLabel.TextSize = 9
ListViewArt33.TwoLinesLayout.SecondLabel.Color = Colors.ARGB(235,230,230,230)
' ListViewArt33.SetLayout(0.5%X,0.5%Y,90%x,55%y) ' sposta tutta la label
ArtPos01 = stringArray(11)
ArtPos011.Text = stringArray(11)
End If
Next
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ListViewArt22_ItemClick (Position As Int, Value As Object)
AggArt02.Visible = False
AggArt01.Visible = True
Dim List8 As List
If File.Exists(File.DirRootExternal, "VideoCam02/ListResults01.txt") Then
'Carico i dati dalla List alla List2 dal file di testo
List8 = File.ReadList(File.DirRootExternal, "VideoCam02/ListResults01.txt")
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End If
Dim stringMom As String = List8.Get(Position)
Dim stringArray() As String = Regex.Split("\|",stringMom)
CodInt01 = stringArray(0)
CodInt02 = stringArray(1)
descriInt01 = stringArray(2)
descriInt02 = stringArray(3)
umInt01 = stringArray(4)
prezzoInt01 = stringArray(5)
prezzoInt02 = stringArray(6)
tipoInt01 = stringArray(7)
tipoInt02 = stringArray(8)
tipoInt03 = stringArray(9)
tipoInt04 = stringArray(10)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'apro il pannello
Panel1.Visible = True
panelTitleLabel.Text = "- Anagafica Articoli -"
panelTitleLabel.TextSize = 22
'panelTitleLabel.textColor = Colors.RGB(0,0,0)
panelTitleLabel.TextColor = Colors.ARGB(255,0,0,255)
panelTitleLabel.SingleLine = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
panelLabel.SetVisibleAnimated(1.05,True) 'nascondo la label tengo .... RISERVA CODICE Roberto-----
Sleep(20) '2000 ' messo io per prova....
panelLabel.Visible= False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CodInt011.SingleLine = True
CodInt011.Text = "Cod. 1: " & CodInt01 '1
CodInt011.TextSize = 14
CodInt011.Typeface = Typeface.DEFAULT
CodInt011.TextColor = Colors.RGB(0,127,255)
CodInt022.Text = EditText1.Text '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CodInt022.SingleLine = True
CodInt022.Text = "Cod. 2: " & CodInt02 '1
CodInt022.TextSize = 14
CodInt022.Typeface = Typeface.DEFAULT
CodInt022.TextColor = Colors.RGB(0,127,255)
descriInt011.SingleLine = True
descriInt011.Text = descriInt01 '1
descriInt011.TextSize = 14
descriInt011.Typeface = Typeface.DEFAULT
descriInt011.TextColor = Colors.RGB(0,127,255)
descriInt022.SingleLine = True
descriInt022.Text = descriInt02 '2
descriInt022.TextSize = 14
descriInt022.Typeface = Typeface.DEFAULT
descriInt022.TextColor = Colors.RGB(0,127,255)
umInt011.SingleLine = True
umInt011.Text = "Um: " & umInt01 '1
umInt011.TextSize = 16
umInt011.Typeface = Typeface.DEFAULT
umInt011.TextColor = Colors.RGB(0,127,255)
ArtQta01.SingleLine = True
ArtQta01.Text = "" ' inserisce gli articoli
ArtQta01.TextSize = 14
ArtQta01.Typeface = Typeface.DEFAULT_BOLD
ArtQta01.TextColor = Colors.RGB(0,127,255)
ArtQta01.Color = Colors.Yellow
AggArt01.SingleLine = True
AggArt01.Text = "- Inserisci Prodotto -"
AggArt01.TextSize = 12
AggArt01.Typeface = Typeface.DEFAULT
AggArt01.TextColor = Colors.RGB(0,127,255)
AggArt01.Color = Colors.Yellow
AggArt02.Visible = False
prezzoInt011.SingleLine = True
prezzoInt011.Text = prezzoInt01 '1
prezzoInt011.TextSize = 16
prezzoInt011.Typeface = Typeface.DEFAULT
prezzoInt011.TextColor = Colors.RGB(0,127,255)
prezzoInt022.SingleLine = True
prezzoInt022.Text = prezzoInt02 '2
prezzoInt022.TextSize = 16
prezzoInt022.Typeface = Typeface.DEFAULT
prezzoInt022.TextColor = Colors.RGB(0,127,255)
Tipo011.SingleLine = True
Tipo011.Text = "Fam. 01: " &tipoInt01 '2
Tipo011.TextSize = 14
Tipo011.Typeface = Typeface.DEFAULT
Tipo011.TextColor = Colors.RGB(0,127,255)
Tipo022.SingleLine = True
Tipo022.Text = "Fam. 02: " & tipoInt02 '2
Tipo022.TextSize = 14
Tipo022.Typeface = Typeface.DEFAULT
Tipo022.TextColor = Colors.RGB(0,127,255)
Tipo033.SingleLine = True
Tipo033.Text = "Fam. 03: " & tipoInt03 '2
Tipo033.TextSize = 14
Tipo033.Typeface = Typeface.DEFAULT
Tipo033.TextColor = Colors.RGB(0,127,255)
Tipo044.SingleLine = True
Tipo044.Text = "Fam. 04: " & tipoInt04 '2
Tipo044.TextSize = 14
Tipo044.Typeface = Typeface.DEFAULT
Tipo044.TextColor = Colors.RGB(0,127,255)
panelButton.SingleLine = True
panelButton.Text = " - ESCI - "
panelButton.TextSize = 12
panelButton.Typeface = Typeface.DEFAULT_BOLD
panelButton.TextColor = Colors.aRGB(255,255,0,0)
panelButton.Color = Colors.Yellow
AggArt02.Visible = False
AggArt01.Visible = True
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ListViewArt33_ItemClick(Position1 As Int , Value1 As Object)
AggArt01.Visible = False
AggArt02.Visible = True
ArtPos01 = Value1
ArtPos011.Text = Value1
For i = 0 To 999
Dim List833 As List
List833.Initialize
If File.Exists(File.DirRootExternal, "VideoCam12/ListResults10.txt") Then
'Carico i dati dalla List alla List2 dal file di testo
List833 = File.ReadList(File.DirRootExternal, "VideoCam12/ListResults10.txt") ''''''''''''''''''''''''''''''
Dim stringMom01 As String = List833.Get(Value1-1)
Dim stringArrayLMA02() As String = Regex.Split("\|",stringMom01)
End If
'apro il pannello
Next
Panel1.Visible = True
' If ListResults33(i) <> "0" Then
panelTitleLabel.Text = "- Modifica Prodotti -"
panelTitleLabel.TextSize = 22
panelTitleLabel.TextColor = Colors.ARGB(255,0,0,255)
panelTitleLabel.SingleLine = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
panelLabel.SetVisibleAnimated(1.05,True) 'nascondo la label tengo .... RISERVA CODICE Roberto-----
Sleep(20) '2000 ' messo io per prova....
panelLabel.Visible= False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CodInt011.SingleLine = True
' CodInt011.Text = "Cod. 1: " & CodInt01 '1
CodInt011.TextSize = 12
CodInt011.Typeface = Typeface.DEFAULT
CodInt011.TextColor = Colors.RGB(0,127,255)
CodInt011.Text = stringArrayLMA02(0) ' array ZERO uguale a codice riga
CodInt022.Text = EditText1.Text '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CodInt022.SingleLine = True
'CodInt022.Text = "Cod. 2: " & CodInt02 '1
CodInt022.TextSize = 12
CodInt022.Typeface = Typeface.DEFAULT
CodInt022.TextColor = Colors.RGB(0,127,255)
CodInt022.Text = stringArrayLMA02(1)
' descriInt011.SingleLine = True
'descriInt011.Text = descriInt01 '1
descriInt011.TextSize = 12
descriInt011.Typeface = Typeface.DEFAULT
descriInt011.TextColor = Colors.RGB(0,127,255)
descriInt011.Text = stringArrayLMA02(2)
' descriInt022.SingleLine = True
'descriInt022.Text = descriInt02 '2
descriInt022.TextSize = 12
descriInt022.Typeface = Typeface.DEFAULT
descriInt022.TextColor = Colors.RGB(0,127,255)
descriInt022.Text = stringArrayLMA02(3)
umInt011.SingleLine = True
'umInt011.Text = "Um: " & umInt01 '1
umInt011.TextSize = 14
umInt011.Typeface = Typeface.DEFAULT
umInt011.TextColor = Colors.RGB(0,127,255)
umInt011.Text = stringArrayLMA02(4)
ArtQta01.SingleLine = True
' ArtQta01.Text = "" ' inserisce gli articoli
ArtQta01.TextSize = 12
ArtQta01.Typeface = Typeface.DEFAULT_BOLD
ArtQta01.TextColor = Colors.RGB(0,127,255)
ArtQta01.Color = Colors.Yellow
ArtQta01.Text = stringArrayLMA02(16)
AggArt02.SingleLine = False 'AggArt01
AggArt02.Text = "- Inserisci Prodotto -"
AggArt02.TextSize = 12
AggArt02.Typeface = Typeface.DEFAULT
AggArt02.TextColor = Colors.RGB(0,127,255)
AggArt02.Color = Colors.Yellow
AggArt01.Visible = False
'AggArt02.Text = stringArrayLMA02(6)
ArtPos011.Visible = False ' ArtPos011
ArtPos011.Color = Colors.RGB(200,255,255)
ArtPos011.TextColor = Colors.RGB(255,0,0)
ArtPos011.Typeface = Typeface.DEFAULT
ArtPos011.TextSize = 14
ArtPos011.Color = Colors.LightGray
ArtPos011.Text = ArtPos01
prezzoInt011.SingleLine = True
prezzoInt011.Text = prezzoInt01 '33
prezzoInt011.TextSize = 12
prezzoInt011.Typeface = Typeface.DEFAULT
prezzoInt011.TextColor = Colors.RGB(0,127,255)
prezzoInt011.Text = stringArrayLMA02(5)
prezzoInt022.SingleLine = True
prezzoInt022.Text = prezzoInt02 '33
prezzoInt022.TextSize = 12
prezzoInt022.Typeface = Typeface.DEFAULT
prezzoInt022.TextColor = Colors.RGB(0,127,255)
prezzoInt011.Text = stringArrayLMA02(6)
Tipo011.SingleLine = True
Tipo011.Text = "Fam. 01: " &tipoInt01 '2
Tipo011.TextSize = 11
Tipo011.Typeface = Typeface.DEFAULT
Tipo011.TextColor = Colors.RGB(0,127,255)
Tipo011.Text = stringArrayLMA02(7)
Tipo022.SingleLine = True
Tipo022.Text = "Fam. 02: " & tipoInt02 '2
Tipo022.TextSize = 11
Tipo022.Typeface = Typeface.DEFAULT
Tipo022.TextColor = Colors.RGB(0,127,255)
Tipo022.Text = stringArrayLMA02(8)
Tipo033.SingleLine = True
Tipo033.Text = "Fam. 03: " & tipoInt03 '2
Tipo033.TextSize = 11
Tipo033.Typeface = Typeface.DEFAULT
Tipo033.TextColor = Colors.RGB(0,127,255)
Tipo033.Text = stringArrayLMA02(9)
Tipo044.SingleLine = True
Tipo044.Text = "Fam. 04: " & tipoInt04 '2
Tipo044.TextSize = 11
Tipo044.Typeface = Typeface.DEFAULT
Tipo044.TextColor = Colors.RGB(0,127,255)
Tipo044.Text = stringArrayLMA02(10)
panelButton.SingleLine = True
panelButton.Text = " - ESCI - "
panelButton.TextSize = 12
panelButton.Typeface = Typeface.DEFAULT_BOLD
panelButton.TextColor = Colors.aRGB(255,255,0,0)
panelButton.Color = Colors.Yellow
AggArt01.Visible = False
AggArt02.Visible = True
'End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub RegisterResults
Dim List8 As List
'Controllo se il file di testo esiste nella ROOT "VideoCam04/ListResults10.txt"
If File.Exists(File.DirRootExternal, "VideoCam12/ListResults10.txt") Then
'se il file esiste
'Carico i dati dal file di testo, da List3 = File.readlist(File.DirRootExternal, "VideoCam04/ListResults10.txt")
List8 = File.ReadList(File.DirRootExternal, "VideoCam12/ListResults10.txt")
Dim trovato As Boolean
trovato = False
For i = 0 To 999
ListResults22(i) = List8.Get(i)
If ListResults22(i) = "0" And trovato = False Then '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ProCodList02 = File.ReadString(File.DirRootExternal, "VideoCam12/ProCod.txt")
ProCod = ProCodList02 +1
File.WriteString(File.DirRootExternal, "VideoCam12/ProCod.txt", ProCod)
If ProCod <2 Then
Msgbox(" - Modifica Progressiva N° : " & ProCod," - - Progressivo - - -")
Else
Msgbox(" - Modifiche Progressive N° : " & ProCod," - - - Progressivo - - -")
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'riempio lo slot dell'array con i valori da registrare
ListResults22(i) = CodInt01 & "|" & CodInt02 & "|" & descriInt01 & "|" & descriInt02 & "|" & umInt01 & "|" & prezzoInt01 & "|" & prezzoInt02 & "|" & tipoInt01 & "|" & tipoInt02 & "|" & tipoInt03 & "|" & tipoInt04 & "|" & ProCod & "|" & DateTime.Date(DateTime.Now) & "|" & EditText1.text & "|" & EditText1.Text & "|" & EditText1.Text & "|" & ArtQta01.Text & "|"
File.WriteString(File.DirRootExternal,"VideoCam12/InsArt.txt", ListResults22(i)) 'Scrive Ultimo Articolo modificato. solo ULTIMO
' Log("2 -" & trovato)
trovato = True
End If
Next
'se trova tutti gli slot occupati cancella il primo e sposta tutto in su di uno
If trovato = False Then
For i = 1 To 999
ListResults22(i-1) = ListResults22(i)
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ProCodList02 = File.ReadString(File.DirRootExternal, "VideoCam12/ProCod.txt")
ProCod = ProCodList02 +1
File.WriteString(File.DirRootExternal, "VideoCam12/ProCod.txt", ProCod)
If ProCod <2 Then
Msgbox("Modifica Progressiva N° : " & ProCod,"- - - Progressivo - - -")
Else
Msgbox("Modifiche Progressive N° : " & ProCod,"- - - Progressivo - - -")
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ListResults22(999) = CodInt01 & "|" & CodInt02 & "|" & descriInt01 & "|" & descriInt02 & "|" & umInt01 & "|" & prezzoInt01 & "|" & prezzoInt02 & "|" & tipoInt01 & "|" & tipoInt02 & "|" & tipoInt03 & "|" & tipoInt04 & "|" & ProCod & "|" & DateTime.Date(DateTime.Now) & "|" & EditText1.text & "|" & EditText1.Text & "|" & EditText1.Text & "|" & ArtQta01.Text & "|"
End If
'Salvo l'array nel file di testo
File.WriteList(File.DirRootExternal, "VideoCam12/ListResults10.txt",ListResults22)
Else 'se il file non esiste - questo: ListResults.txt
For i = 0 To 999
ListResults22(i) = "0"
Next
ListResults22(0) = CodInt01 & "|" & CodInt02 & "|" & descriInt01 & "|" & descriInt02 & "|" & umInt01 & "|" & prezzoInt01 & "|" & prezzoInt02 & "|" & tipoInt01 & "|" & tipoInt02 & "|" & tipoInt03 & "|" & tipoInt04 & "|" & EditText1.text & "|" & DateTime.Date(DateTime.Now) & "|" & EditText1.text & "|" & EditText1.Text & "|" & EditText1.Text & "|" & ArtQta01.Text & "|"
'creo la directory nel Cellulare poi diventa VideoCamXX/ListResults.txt
File.MakeDir(File.DirRootExternal, "VideoCam12")
'Salvo l'array nel file di testo
File.WriteList(File.DirRootExternal, "VideoCam12/ListResults10.txt",ListResults22)
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub RegisterResults01
ListLMA01.Initialize
'ListLMA02.Initialize
'Controllo se il file di testo esiste nella ROOT "VideoCam02/ListResults01.txt"
If File.Exists(File.DirRootExternal, "VideoCam12/ListResults10.txt") Then
'se il file esiste
'Carico i dati dal file di testo, da List3 = File.readlist(File.DirRootExternal, "VideoCam02/ListResults01.txt")
ListLMA01 = File.ReadList(File.DirRootExternal, "VideoCam12/ListResults10.txt")
For i = 0 To 999
ListResults33(i) = ListLMA01.Get(i)
Dim stringArrayLMA01() As String = Regex.Split("\|",ListResults33(i))
If ListResults33(i) <> "0" And CodInt011.Text = stringArrayLMA01(0) And ArtPos01 = (stringArrayLMA01(11)) Then '
' If 6 = (stringArrayLMA01(11)) Then '
' Log(" B 01 > " & (stringArrayLMA01(11)) &" " & ArtPos01)
' Log(" B 02 >> " & (stringArrayLMA01(0)) &" " & CodInt011.Text)
' Log(" B 03 >>> " & " " & ArtPos011.Text)
' Log(" B 04 >>>> " & ArtPos01)
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CodInt01 = CodInt011.Text
CodInt02 = CodInt022.Text
descriInt01 = descriInt011.Text
descriInt02 = descriInt022.Text
umInt01 = umInt011.Text
prezzoInt01 = "1"
prezzoInt02 = "1"
tipoInt01 = Tipo011.Text
tipoInt02 = Tipo022.Text
tipoInt03 = Tipo033.Text
tipoInt04 = Tipo044.Text
' ArtQta01.Text = ArtQta01.Text
' ArtPos01 = ArtPos011.Text
''''''' qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq
'ListResults33(i) = CodInt011.Text & "|" & CodInt02 & "|" & descriInt01 & "|" & descriInt02 & "|" & umInt01 & "|" & prezzoInt01 & "|" & prezzoInt02 & "|" & tipoInt01 & "|" & tipoInt02 & "|" & tipoInt03 & "|" & tipoInt04 & "|" & EditText1.text & "|" & DateTime.Date(DateTime.Now) & "|" & EditText1.text & "|" & EditText1.Text & "|" & EditText1.Text & "|" & ArtQta01.Text & "|"
ListResults33(i) = CodInt011.Text & "|" & CodInt02 & "|" & descriInt01 & "|" & descriInt02 & "|" & umInt01 & "|" & prezzoInt01 & "|" & prezzoInt02 & "|" & tipoInt01 & "|" & tipoInt02 & "|" & tipoInt03 & "|" & tipoInt04 & "|" & ArtPos011.Text & "|" & DateTime.Date(DateTime.Now) & "|" & EditText1.text & "|" & EditText1.Text & "|" & EditText1.Text & "|" & ArtQta01.Text & "|"
File.WriteList(File.DirRootExternal, "VideoCam12/ListResults10.txt",ListResults33)
End If
Next
End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub AggArt01_Click
RegisterResults
Activity.Finish
StartActivity("PreLista01")
panelButton_Click
End Sub
Sub AggArt02_Click
RegisterResults01
Activity.Finish
'StartActivity("Prev01")
StartActivity("PreLista01")
panelButton_Click
End Sub
Sub backButt01_Click ' "- Materiali -"
Activity.Finish
StartActivity(Prev01)
End Sub
Sub Tipo0111_ItemClick (Position As Int, Value As Object)
Tipo0111.Text = Value
Tipo0111.Visible = False
End Sub
Sub Tipo0222_ItemClick (Position As Int, Value As Object)
Tipo0222.Text = Value
Tipo0222.Visible = False
End Sub
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim EditText11 As String
Dim EditText22 As String 'PreLista01.Editext22
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 backgroundImage As ImageView
Dim myImage As Bitmap
Private Panel1 As Panel
Private titleImage As ImageView
Private Data01 As Label
Dim pdf As PdfDocument '''''''''''''''''''
Private printer As Printer ''''''''''''''''''' libreria aggiunta a "mano" per stampare
Private ListViewArt22 As ListView
Private ListViewArt33 As ListView
Type ListViewData22(FirstRow22 As String, SecondRow22 As String)
Type ListViewData33(FirstRow33 As String, SecondRow33 As String)
Dim ListResults22(1000) As String
Dim ListResults33(1000) As String
Private EditText1 As EditText
Private EditText2 As EditText
Private ConArt01 As Button
Private OkArt02 As Button
Private backButt01 As Button
Dim ProCod As Int
Private ProCliTbl As Label
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private panelTitleLabel As Label
Private panelLabel As Label
Private CodInt011 As Label
Private CodInt022 As Label
Private descriInt011 As Label
Private descriInt022 As Label
Private umInt011 As Label
Private ArtQta01 As EditText
Private AggArt01 As Button
Private AggArt02 As Button
Private prezzoInt011 As Label
Private prezzoInt022 As Label
Private panelButton As Button
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim CodInt01 As String ' agg su questa versione
Dim CodInt02 As String ' agg su questa versione
Dim descriInt01 As String ' agg su questa versione
Dim descriInt02 As String ' agg su questa versione
Dim prezzoInt01 As String ' agg su questa versione
Dim prezzoInt02 As String ' agg su questa versione
Dim umInt01 As String ' agg su questa versione
Dim tipoInt01 As String ' agg su questa versione
Dim tipoInt02 As String ' agg su questa versione
Dim tipoInt03 As String ' agg su questa versione
Dim tipoInt04 As String ' agg su questa versione
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim ProCodList02 As String
Dim ProCod As Int
Dim ListLMA01 As List
Dim ArtPos01 As String
Private ArtPos011 As Label
Dim lvd33 As ListViewData33
Dim IME As IME
Private Tipo011 As Label
Private Tipo022 As Label
Private Tipo033 As Label
Private Tipo044 As Label
Private Tipo0111 As EditText
Dim Tipo0111 As EditText
Dim spTipo011 As Spinner
Dim tipo0PL1(30) As String
Private Tipo0222 As EditText
Dim Tipo0222 As EditText
Dim spTipo022 As Spinner
Dim tipo0PL2(30) As String
Private Tipo0333 As EditText
Dim Tipo0333 As EditText
Dim spTipo033 As Spinner
Dim tipo0PL3(30) As String
Private Tipo0444 As EditText
Dim Tipo0444 As EditText
Dim spTipo044 As Spinner
Dim tipo0PL4(30) As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("PreLista01")
IME.Initialize("IME")
''''''''''''''''''''''''''''''''''''''''''''''''''
ListViewArt33.Clear
'Carico immagine a quadretti di fondo
backgroundImage.Bitmap = LoadBitmap(File.DirAssets, "mathPaper.png")
'carico immagine titolo
titleImage.Bitmap = LoadBitmap(File.DirAssets, "Logo_H24.jpg")
myImage.Initialize(File.DirAssets, "button-blue.png")
Panel1.Visible = False
printer.Initialize("")
myImage.Initialize(File.DirAssets, "panelBack.png")
Panel1.SetBackgroundImage(myImage)
ListViewArt22.Color = Colors.RGB(200,255,255)
ListViewArt22.Visible = True
ListViewArt22.SetLayout(0.5%x,24.9%y,99%x,33%y)
ListViewArt33.Color = Colors.RGB(200,255,255)
ListViewArt33.Visible = True
ListViewArt33.SetLayout(0.5%x,58.4%y,99%x,33%y)
Data01.Color = Colors.RGB(200,255,255)
Data01.TextColor = Colors.RGB(0,0,255)
Data01.Typeface = Typeface.DEFAULT
Data01.TextSize = 13
Data01.Text = " " & DateTime.Date(DateTime.Now)
ProCliTbl.Text = ""
ProCliTbl.Color = Colors.RGB(200,255,255)
ProCliTbl.TextColor = Colors.RGB(0,0,255)
ProCliTbl.Typeface = Typeface.DEFAULT
ProCliTbl.TextSize = 13
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If File.Exists(File.DirRootExternal, "VideoCam12/ProCli.txt") Then ''
ProCliTbl.Text = " Num. : " & File.ReadString(File.DirRootExternal, "VideoCam12/ProCli.txt") ''
Else '' -- "OTTIMO, Bravo Bob
" --ProCliTbl.Text = " Num. : " & 1 ''
End If ''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
EditText1.Color = Colors.RGB(200,255,255)
EditText1.TextColor = Colors.RGB(255,0,0)
EditText1.Typeface = Typeface.MONOSPACE
EditText1.TextSize = 10
EditText1.Text = EditText11 ' cambiato destinazione
EditText2.Color = Colors.RGB(200,255,255)
EditText2.TextColor = Colors.RGB(255,0,0)
EditText2.Typeface = Typeface.MONOSPACE
EditText2.TextSize = 12
'EditText2.Text = Prev01.EditText20
EditText2.Text = EditText22
'''''''
Tipo0111.Color = Colors.RGB(200,255,255)
Tipo0111.TextColor = Colors.RGB(255,0,0)
Tipo0111.Typeface = Typeface.MONOSPACE
Tipo0111.TextSize = 12
Tipo0111.Text = "- Tipo 1 -"
Tipo0222.Color = Colors.RGB(200,255,255)
Tipo0222.TextColor = Colors.RGB(255,0,0)
Tipo0222.Typeface = Typeface.MONOSPACE
Tipo0222.TextSize = 12
Tipo0222.Text = "- Tipo 2 -"
ConArt01.Visible = False ' Pulsante OK
ConArt01.Color = Colors.RGB(200,255,255)
ConArt01.TextColor = Colors.RGB(255,0,0)
ConArt01.Typeface = Typeface.DEFAULT
ConArt01.TextSize = 16
ConArt01.text = "- OK -"
OkArt02.Visible = False ' Pulsante Lista
OkArt02.Color = Colors.RGB(200,255,255)
OkArt02.TextColor = Colors.RGB(255,0,0)
OkArt02.Typeface = Typeface.DEFAULT
OkArt02.TextSize = 16
OkArt02.text = "- Lista -"
backButt01.Color = Colors.RGB(200,255,255)
backButt01.TextColor = Colors.RGB(255,0,0)
backButt01.Typeface = Typeface.DEFAULT_BOLD
backButt01.TextSize = 16
backButt01.text = "---- Esci ----"
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ''''''''''''''''''''ComboBOx TIPO0444 ''''''''''''''''''''''''''''''''''''''''''''''''''''''
spTipo044.Initialize("Tipo0444")
spTipo044.Color = Colors.Transparent
spTipo044.DropdownBackgroundColor = Colors.ARGB(255,200,255,255) ' colore fondo menu a tenda
spTipo044.DropdownTextColor = Colors.ARGB(255,0,0,255) ' test menu a tenda
spTipo044.TextColor = Colors.aRGB(255,0,127,255) ' Colore test "FERMO" della Combo
spTipo044.Color = Colors.ARGB(255,200,255,255) ' colore fondo fermo
spTipo044.TextSize = 12
spTipo044.Add("- 4 -") 'variabile ("- Tipo 03: -")
tipo0PL4(0) = "- NVR3 4-"
tipo0PL4(1) = "- DVR3 4-"
tipo0PL4(2) = "- HVR3 4-"
tipo0PL4(2) = "- Bullet IP 4-"
tipo0PL4(3) = "- Bullet HD 4-"
tipo0PL4(4) = "- Dome IP 4-"
tipo0PL4(5) = "- Dome HD 4-"
tipo0PL4(6) = "- Speed Dome IP 4-"
tipo0PL4(7) = "- Speed Dome HD 4-"
tipo0PL4(8) = "- Fisheye 4-"
tipo0PL4(9) = "- Discrete IP 4-"
tipo0PL4(10) = "- Discrete HD 4-"
tipo0PL4(11) = "- Chiavi F.Stella 4-"
tipo0PL4(12) = "- Cacciavite a croce X 4-"
tipo0PL4(13) = "- Cacciavite piano \ 4-"
tipo0PL4(14) = "- Forbice 4 -"
tipo0PL4(15) = "- Dadi 4 -"
tipo0PL4(16) = "- Bulloni 4 -"
tipo0PL4(17) = "- Rondelle 4 -"
tipo0PL4(18) = "- Scale 4 -"
tipo0PL4(19) = "- 20 4 -"
tipo0PL4(20) = "- 21 4 -"
tipo0PL4(21) = "- 22 4 -"
tipo0PL4(22) = "- 23 4 -"
tipo0PL4(23) = "- 24 4 -"
tipo0PL4(24) = "- 25 4 -"
tipo0PL4(25) = "- 26 4 -"
tipo0PL4(26) = "- 27 4 -"
tipo0PL4(27) = "- 28 4 -"
tipo0PL4(28) = "- 29 4 -"
tipo0PL4(29) = "- 30 4 -"
spTipo044.AddAll(tipo0PL4)
spTipo044.Prompt = "Clicca il TIPO 4"
Activity.AddView(spTipo044, 50%x,19%y,48%x,5%y)
Tipo0444.SetLayout (50%x,19%y,48%x,5%y)
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ''''''''''''''''''''ComboBOx TIPO0333 ''''''''''''''''''''''''''''''''''''''''''''''''''''''
spTipo033.Initialize("Tipo0333")
spTipo033.Color = Colors.Transparent
spTipo033.DropdownBackgroundColor = Colors.ARGB(255,200,255,255) ' colore fondo menu a tenda
spTipo033.DropdownTextColor = Colors.ARGB(255,0,0,255) ' test menu a tenda
spTipo033.TextColor = Colors.aRGB(255,0,127,255) ' Colore test "FERMO" della Combo
spTipo033.Color = Colors.ARGB(255,200,255,255) ' colore fondo fermo
spTipo033.TextSize = 12
spTipo033.Add("- 3 -") 'variabile ("- Tipo 03: -")
tipo0PL3(0) = "- NVR3 3-"
tipo0PL3(1) = "- DVR3 3-"
tipo0PL3(2) = "- HVR3 3-"
tipo0PL3(2) = "- Bullet IP 3-"
tipo0PL3(3) = "- Bullet HD 3-"
tipo0PL3(4) = "- Dome IP 3-"
tipo0PL3(5) = "- Dome HD 3-"
tipo0PL3(6) = "- Speed Dome IP 3-"
tipo0PL3(7) = "- Speed Dome HD 3-"
tipo0PL3(8) = "- Fisheye 3-"
tipo0PL3(9) = "- Discrete IP 3-"
tipo0PL3(10) = "- Discrete HD 3-"
tipo0PL3(11) = "- Chiavi F.Stella 3-"
tipo0PL3(12) = "- Cacciavite a croce X 3-"
tipo0PL3(13) = "- Cacciavite piano \ 3-"
tipo0PL3(14) = "- Forbice 3-"
tipo0PL3(15) = "- Dadi 3 -"
tipo0PL3(16) = "- Bulloni 3 -"
tipo0PL3(17) = "- Rondelle 3 -"
tipo0PL3(18) = "- Scale3 -"
tipo0PL3(19) = "- 203 -"
tipo0PL3(20) = "- 213 -"
tipo0PL3(21) = "- 223 -"
tipo0PL3(22) = "- 233 -"
tipo0PL3(23) = "- 243 -"
tipo0PL3(24) = "- 253 -"
tipo0PL3(25) = "- 263 -"
tipo0PL3(26) = "- 273 -"
tipo0PL3(27) = "- 283 -"
tipo0PL3(28) = "- 293 -"
tipo0PL3(29) = "- 303 -"
spTipo033.AddAll(tipo0PL3)
spTipo033.Prompt = "Clicca il TIPO 3"
Activity.AddView(spTipo033, 50%x,13.5%y,48%x,5%y)
Tipo0333.SetLayout (50%x,13.5%y,48%x,5%y)
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ''''''''''''''''''''ComboBOx TIPO0222 ''''''''''''''''''''''''''''''''''''''''''''''''''''''
spTipo022.Initialize("Tipo0222")
spTipo022.Color = Colors.Transparent
spTipo022.DropdownBackgroundColor = Colors.ARGB(255,200,255,255) ' colore fondo menu a tenda
spTipo022.DropdownTextColor = Colors.ARGB(255,0,0,255) ' test menu a tenda
spTipo022.TextColor = Colors.aRGB(255,0,127,255) ' Colore test "FERMO" della Combo
spTipo022.Color = Colors.ARGB(255,200,255,255) ' colore fondo fermo
spTipo022.TextSize = 12
spTipo022.Add("- 2 -") 'variabile ("- Tipo 02: -")
tipo0PL2(0) = "- NVR -"
tipo0PL2(1) = "- DVR -"
tipo0PL2(2) = "- HVR -"
tipo0PL2(2) = "- Bullet IP -"
tipo0PL2(3) = "- Bullet HD -"
tipo0PL2(4) = "- Dome IP -"
tipo0PL2(5) = "- Dome HD -"
tipo0PL2(6) = "- Speed Dome IP -"
tipo0PL2(7) = "- Speed Dome HD -"
tipo0PL2(8) = "- Fisheye -"
tipo0PL2(9) = "- Discrete IP -"
tipo0PL2(10) = "- Discrete HD -"
tipo0PL2(11) = "- Chiavi F.Stella -"
tipo0PL2(12) = "- Cacciavite a croce X -"
tipo0PL2(13) = "- Cacciavite piano \ -"
tipo0PL2(14) = "- Forbice -"
tipo0PL2(15) = "- Dadi -"
tipo0PL2(16) = "- Bulloni.. -"
tipo0PL2(17) = "- Rondelle -"
tipo0PL2(18) = "- Scale -"
tipo0PL2(19) = "- 20 -"
tipo0PL2(20) = "- 21 -"
tipo0PL2(21) = "- 22 -"
tipo0PL2(22) = "- 23 -"
tipo0PL2(23) = "- 24 -"
tipo0PL2(24) = "- 25 -"
tipo0PL2(25) = "- 26 -"
tipo0PL2(26) = "- 27 -"
tipo0PL2(27) = "- 28 -"
tipo0PL2(28) = "- 29 -"
tipo0PL2(29) = "- 30 -"
spTipo022.AddAll(tipo0PL2)
spTipo022.Prompt = "Clicca il TIPO 2"
Activity.AddView(spTipo022, 0.5%x,19%y,48%x,5%y)
Tipo0222.SetLayout (0.5%x,19%y,48%x,5%y)
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ''''''''''''''''''''ComboBax TIPO0111 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
spTipo011.Initialize("Tipo0111")
spTipo011.Color = Colors.Transparent
spTipo011.DropdownBackgroundColor = Colors.ARGB(255,200,255,255) ' colore fondo menu a tenda
spTipo011.DropdownTextColor = Colors.ARGB(255,0,0,255) ' test menu a tenda
spTipo011.TextColor = Colors.ARGB(255,0,127,255) ' Colore test "FERMO" della Combo
spTipo011.Color = Colors.ARGB(255,200,255,255) ' colore fondo fermo
spTipo011.TextSize = 12
spTipo011.Add("- 1 -") 'variabile ("- Tipo 01: -")
tipo0PL1(0) = "- Video Sorveglianza -"
tipo0PL1(1) = "- Video Sorveglianza IP -"
tipo0PL1(2) = "- Video Sorveglianza HD -"
tipo0PL1(3) = "- Allarmi -"
tipo0PL1(4) = "- Allarmi Filo -"
tipo0PL1(5) = "- Allarmi Radio -"
tipo0PL1(6) = "- Allarmi Ibridi -"
tipo0PL1(7) = "- Cavo Allarme -"
tipo0PL1(8) = "- Conduttori Multipli-"
tipo0PL1(9) = "- Corde -"
tipo0PL1(10) = "- Tubazioni -"
tipo0PL1(11) = "- Scatole Incasso -"
tipo0PL1(12) = "- Scatole Esterno -"
tipo0PL1(13) = "- Serie Civile 1 -"
tipo0PL1(14) = "- Serie Civile 2 -"
tipo0PL1(15) = "- Automatici -"
tipo0PL1(16) = "- Ferramenta -"
tipo0PL1(17) = "- Attrezzi Lavoro -"
tipo0PL1(18) = "- Strumenti -"
tipo0PL1(19) = "- Quadri - Rack -"
tipo0PL1(20) = "- Plafoniere Ufficio -"
tipo0PL1(21) = "- Plafoniere Capannone -"
tipo0PL1(22) = "- Proiettori Esterni -"
tipo0PL1(23) = "- 24 -"
tipo0PL1(24) = "- 25 -"
tipo0PL1(25) = "- 26 -"
tipo0PL1(26) = "- 27 -"
tipo0PL1(27) = "- 28 -"
tipo0PL1(28) = "- 29 -"
tipo0PL1(29) = "- 30 -"
spTipo011.AddAll(tipo0PL1)
spTipo011.Prompt = "Clicca il TIPO 1"
Activity.AddView(spTipo011, 0.5%x,13.5%y,48%x,5%y)
Tipo0111.SetLayout (0.5%x,13.5%y,48%x,5%y)
'
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ToastMessageShow("Premi sul Prodotto nella lista sopra, inserisci le quanità desiderate per inserirlo nel carrello sotto ", True)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'
'LoadTests22 ' Tab sopra
Activity_Resume ' ex LoadTeats22 Tab sopra
LoadTests33 ' Tab sotto
'
'
End Sub
Sub panelButton_Click
Panel1.Visible = False
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Activity_Resume
ListViewArt22.Clear
'Carico i dati dal file di testo
'Controllo se il file esiste
Dim List8 As List
'primo ciclo
If File.Exists(File.DirRootExternal, "VideoCam02/ListResults01.txt") Then
'Carico i dati dal file di testo
List8 = File.ReadList(File.DirRootExternal, "VideoCam02/ListResults01.txt")
' Dim Bitmap22 As Bitmap
For i = 0 To 999
ListResults22(i) = List8.Get(i)
'creo un mini array con tutte le parti della riga esaminata
Dim stringArray() As String = Regex.Split("\|",ListResults22(i))
If ListResults22(i) <> "0" Then
' If ListResults22(i) <> "0" And stringArray(7) = "- Video Sorveglianza HD -" Then
' If ListResults22(i) <> "0" And (stringArray(7) = Tipo0111.Text Or stringArray(8) = Tipo0222.Text Or stringArray(9) = Tipo0333.Text Or stringArray(10) = Tipo0444.Text) Then
' Log(stringArray(7))
' Log(Tipo0111.Text)
Dim lvd22 As ListViewData22
lvd22.Initialize
lvd22.FirstRow22 = " - " & stringArray(0) & " - " & stringArray(2) & " - "
lvd22.SecondRow22 = " - " & stringArray(4) & " : " & stringArray(11) & " - " & " €: " & stringArray(5)
ListViewArt22.AddTwoLines(lvd22.FirstRow22,lvd22.SecondRow22) ',lvd33.Picture33,lvd33)
ListViewArt22.TwoLineslayout.ItemHeight = 39.5dip
ListViewArt22.ScrollingBackgroundColor = Colors.Transparent
ListViewArt22.TwoLinesLayout.Label.TextColor = Colors.Rgb(0,0,255)
ListViewArt22.TwoLinesLayout.Label.Height = 22dip
ListViewArt22.TwoLinesLayout.Label.Width = 99%x
ListViewArt22.TwoLinesLayout.Label.Left = 0.5%x
ListViewArt22.TwoLinesLayout.Label.TextSize = 9
ListViewArt22.TwoLinesLayout.Label.Color = Colors.ARGB(235,230,230,230)
ListViewArt22.TwoLinesLayout.SecondLabel.TextColor = Colors.Rgb(0,0,255)
ListViewArt22.TwoLinesLayout.SecondLabel.Height = 30dip
ListViewArt22.TwoLinesLayout.SecondLabel.Width = 99%x
ListViewArt22.TwoLinesLayout.SecondLabel.Left = 0.5%x
ListViewArt22.TwoLinesLayout.SecondLabel.Top = ListViewArt22.TwoLinesLayout.Label.Height + 0.15%y
ListViewArt22.TwoLinesLayout.SecondLabel.TextSize = 8
ListViewArt22.TwoLinesLayout.SecondLabel.Color = Colors.ARGB(235,230,230,230)
End If
Next
End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''
'
'End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub LoadTests33
'' '' Secondo Ciclo ''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''
'Prima pulisco la listview
ListViewArt33.Clear
'Carico i dati dal file di testo
'Controllo se il file esiste
Dim List9 As List
If File.Exists(File.DirRootExternal, "VideoCam12/ListResults10.txt") Then
'Carico i dati dal file di testo
List9 = File.ReadList(File.DirRootExternal, "VideoCam12/ListResults10.txt")
For i = 0 To 999
ListResults33(i) = List9.Get(i)
'creo un mini array con tutte le parti della riga esaminata
Dim stringArray() As String = Regex.Split("\|",ListResults33(i))
'''''''''''''''''''''''''*****************************************'''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''*****************************************'''''''''''''''''''''''''''''''''
' If ListResults33(i) <> 0 And EditText1.Text = stringArray(14) Then ' Cippi Cippi
If ListResults33(i) <> 0 And EditText1.Text = stringArray(14) Then ' Cippi Cippi
' Dim lvd33 As ListViewData33
lvd33.Initialize
lvd33.FirstRow33 = stringArray(11)
lvd33.SecondRow33 = stringArray(0) & " - " & stringArray(2) & " - " & stringArray(4) & " : " & stringArray(16) ' & " - Tot.: € " & ((stringArray(5))*(stringArray(16))) & " - "
ListViewArt33.AddTwoLines(lvd33.FirstRow33,lvd33.SecondRow33)
ListViewArt33.TwoLineslayout.ItemHeight = 31.5dip
ListViewArt33.ScrollingBackgroundColor = Colors.Transparent
''
ListViewArt33.TwoLinesLayout.Label.TextColor = Colors.Rgb(0,0,255)
ListViewArt33.TwoLinesLayout.Label.Height = 22dip
ListViewArt33.TwoLinesLayout.Label.Width = 99%x
ListViewArt33.TwoLinesLayout.Label.Left = 0.5%x
ListViewArt33.TwoLinesLayout.Label.TextSize = 8
ListViewArt33.TwoLinesLayout.Label.Color = Colors.ARGB(235,230,230,230)
ListViewArt33.TwoLinesLayout.SecondLabel.TextColor = Colors.Rgb(0,0,255)
ListViewArt33.TwoLinesLayout.SecondLabel.Height = 30dip
ListViewArt33.TwoLinesLayout.SecondLabel.Width = 99%x
ListViewArt33.TwoLinesLayout.SecondLabel.Left = 0.5%x
ListViewArt33.TwoLinesLayout.SecondLabel.Top = ListViewArt33.TwoLinesLayout.Label.Height - 3.25%y
ListViewArt33.TwoLinesLayout.SecondLabel.TextSize = 9
ListViewArt33.TwoLinesLayout.SecondLabel.Color = Colors.ARGB(235,230,230,230)
' ListViewArt33.SetLayout(0.5%X,0.5%Y,90%x,55%y) ' sposta tutta la label
ArtPos01 = stringArray(11)
ArtPos011.Text = stringArray(11)
End If
Next
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ListViewArt22_ItemClick (Position As Int, Value As Object)
AggArt02.Visible = False
AggArt01.Visible = True
Dim List8 As List
If File.Exists(File.DirRootExternal, "VideoCam02/ListResults01.txt") Then
'Carico i dati dalla List alla List2 dal file di testo
List8 = File.ReadList(File.DirRootExternal, "VideoCam02/ListResults01.txt")
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End If
Dim stringMom As String = List8.Get(Position)
Dim stringArray() As String = Regex.Split("\|",stringMom)
CodInt01 = stringArray(0)
CodInt02 = stringArray(1)
descriInt01 = stringArray(2)
descriInt02 = stringArray(3)
umInt01 = stringArray(4)
prezzoInt01 = stringArray(5)
prezzoInt02 = stringArray(6)
tipoInt01 = stringArray(7)
tipoInt02 = stringArray(8)
tipoInt03 = stringArray(9)
tipoInt04 = stringArray(10)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'apro il pannello
Panel1.Visible = True
panelTitleLabel.Text = "- Anagafica Articoli -"
panelTitleLabel.TextSize = 22
'panelTitleLabel.textColor = Colors.RGB(0,0,0)
panelTitleLabel.TextColor = Colors.ARGB(255,0,0,255)
panelTitleLabel.SingleLine = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
panelLabel.SetVisibleAnimated(1.05,True) 'nascondo la label tengo .... RISERVA CODICE Roberto-----
Sleep(20) '2000 ' messo io per prova....
panelLabel.Visible= False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CodInt011.SingleLine = True
CodInt011.Text = "Cod. 1: " & CodInt01 '1
CodInt011.TextSize = 14
CodInt011.Typeface = Typeface.DEFAULT
CodInt011.TextColor = Colors.RGB(0,127,255)
CodInt022.Text = EditText1.Text '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CodInt022.SingleLine = True
CodInt022.Text = "Cod. 2: " & CodInt02 '1
CodInt022.TextSize = 14
CodInt022.Typeface = Typeface.DEFAULT
CodInt022.TextColor = Colors.RGB(0,127,255)
descriInt011.SingleLine = True
descriInt011.Text = descriInt01 '1
descriInt011.TextSize = 14
descriInt011.Typeface = Typeface.DEFAULT
descriInt011.TextColor = Colors.RGB(0,127,255)
descriInt022.SingleLine = True
descriInt022.Text = descriInt02 '2
descriInt022.TextSize = 14
descriInt022.Typeface = Typeface.DEFAULT
descriInt022.TextColor = Colors.RGB(0,127,255)
umInt011.SingleLine = True
umInt011.Text = "Um: " & umInt01 '1
umInt011.TextSize = 16
umInt011.Typeface = Typeface.DEFAULT
umInt011.TextColor = Colors.RGB(0,127,255)
ArtQta01.SingleLine = True
ArtQta01.Text = "" ' inserisce gli articoli
ArtQta01.TextSize = 14
ArtQta01.Typeface = Typeface.DEFAULT_BOLD
ArtQta01.TextColor = Colors.RGB(0,127,255)
ArtQta01.Color = Colors.Yellow
AggArt01.SingleLine = True
AggArt01.Text = "- Inserisci Prodotto -"
AggArt01.TextSize = 12
AggArt01.Typeface = Typeface.DEFAULT
AggArt01.TextColor = Colors.RGB(0,127,255)
AggArt01.Color = Colors.Yellow
AggArt02.Visible = False
prezzoInt011.SingleLine = True
prezzoInt011.Text = prezzoInt01 '1
prezzoInt011.TextSize = 16
prezzoInt011.Typeface = Typeface.DEFAULT
prezzoInt011.TextColor = Colors.RGB(0,127,255)
prezzoInt022.SingleLine = True
prezzoInt022.Text = prezzoInt02 '2
prezzoInt022.TextSize = 16
prezzoInt022.Typeface = Typeface.DEFAULT
prezzoInt022.TextColor = Colors.RGB(0,127,255)
Tipo011.SingleLine = True
Tipo011.Text = "Fam. 01: " &tipoInt01 '2
Tipo011.TextSize = 14
Tipo011.Typeface = Typeface.DEFAULT
Tipo011.TextColor = Colors.RGB(0,127,255)
Tipo022.SingleLine = True
Tipo022.Text = "Fam. 02: " & tipoInt02 '2
Tipo022.TextSize = 14
Tipo022.Typeface = Typeface.DEFAULT
Tipo022.TextColor = Colors.RGB(0,127,255)
Tipo033.SingleLine = True
Tipo033.Text = "Fam. 03: " & tipoInt03 '2
Tipo033.TextSize = 14
Tipo033.Typeface = Typeface.DEFAULT
Tipo033.TextColor = Colors.RGB(0,127,255)
Tipo044.SingleLine = True
Tipo044.Text = "Fam. 04: " & tipoInt04 '2
Tipo044.TextSize = 14
Tipo044.Typeface = Typeface.DEFAULT
Tipo044.TextColor = Colors.RGB(0,127,255)
panelButton.SingleLine = True
panelButton.Text = " - ESCI - "
panelButton.TextSize = 12
panelButton.Typeface = Typeface.DEFAULT_BOLD
panelButton.TextColor = Colors.aRGB(255,255,0,0)
panelButton.Color = Colors.Yellow
AggArt02.Visible = False
AggArt01.Visible = True
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ListViewArt33_ItemClick(Position1 As Int , Value1 As Object)
AggArt01.Visible = False
AggArt02.Visible = True
ArtPos01 = Value1
ArtPos011.Text = Value1
For i = 0 To 999
Dim List833 As List
List833.Initialize
If File.Exists(File.DirRootExternal, "VideoCam12/ListResults10.txt") Then
'Carico i dati dalla List alla List2 dal file di testo
List833 = File.ReadList(File.DirRootExternal, "VideoCam12/ListResults10.txt") ''''''''''''''''''''''''''''''
Dim stringMom01 As String = List833.Get(Value1-1)
Dim stringArrayLMA02() As String = Regex.Split("\|",stringMom01)
End If
'apro il pannello
Next
Panel1.Visible = True
' If ListResults33(i) <> "0" Then
panelTitleLabel.Text = "- Modifica Prodotti -"
panelTitleLabel.TextSize = 22
panelTitleLabel.TextColor = Colors.ARGB(255,0,0,255)
panelTitleLabel.SingleLine = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
panelLabel.SetVisibleAnimated(1.05,True) 'nascondo la label tengo .... RISERVA CODICE Roberto-----
Sleep(20) '2000 ' messo io per prova....
panelLabel.Visible= False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CodInt011.SingleLine = True
' CodInt011.Text = "Cod. 1: " & CodInt01 '1
CodInt011.TextSize = 12
CodInt011.Typeface = Typeface.DEFAULT
CodInt011.TextColor = Colors.RGB(0,127,255)
CodInt011.Text = stringArrayLMA02(0) ' array ZERO uguale a codice riga
CodInt022.Text = EditText1.Text '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CodInt022.SingleLine = True
'CodInt022.Text = "Cod. 2: " & CodInt02 '1
CodInt022.TextSize = 12
CodInt022.Typeface = Typeface.DEFAULT
CodInt022.TextColor = Colors.RGB(0,127,255)
CodInt022.Text = stringArrayLMA02(1)
' descriInt011.SingleLine = True
'descriInt011.Text = descriInt01 '1
descriInt011.TextSize = 12
descriInt011.Typeface = Typeface.DEFAULT
descriInt011.TextColor = Colors.RGB(0,127,255)
descriInt011.Text = stringArrayLMA02(2)
' descriInt022.SingleLine = True
'descriInt022.Text = descriInt02 '2
descriInt022.TextSize = 12
descriInt022.Typeface = Typeface.DEFAULT
descriInt022.TextColor = Colors.RGB(0,127,255)
descriInt022.Text = stringArrayLMA02(3)
umInt011.SingleLine = True
'umInt011.Text = "Um: " & umInt01 '1
umInt011.TextSize = 14
umInt011.Typeface = Typeface.DEFAULT
umInt011.TextColor = Colors.RGB(0,127,255)
umInt011.Text = stringArrayLMA02(4)
ArtQta01.SingleLine = True
' ArtQta01.Text = "" ' inserisce gli articoli
ArtQta01.TextSize = 12
ArtQta01.Typeface = Typeface.DEFAULT_BOLD
ArtQta01.TextColor = Colors.RGB(0,127,255)
ArtQta01.Color = Colors.Yellow
ArtQta01.Text = stringArrayLMA02(16)
AggArt02.SingleLine = False 'AggArt01
AggArt02.Text = "- Inserisci Prodotto -"
AggArt02.TextSize = 12
AggArt02.Typeface = Typeface.DEFAULT
AggArt02.TextColor = Colors.RGB(0,127,255)
AggArt02.Color = Colors.Yellow
AggArt01.Visible = False
'AggArt02.Text = stringArrayLMA02(6)
ArtPos011.Visible = False ' ArtPos011
ArtPos011.Color = Colors.RGB(200,255,255)
ArtPos011.TextColor = Colors.RGB(255,0,0)
ArtPos011.Typeface = Typeface.DEFAULT
ArtPos011.TextSize = 14
ArtPos011.Color = Colors.LightGray
ArtPos011.Text = ArtPos01
prezzoInt011.SingleLine = True
prezzoInt011.Text = prezzoInt01 '33
prezzoInt011.TextSize = 12
prezzoInt011.Typeface = Typeface.DEFAULT
prezzoInt011.TextColor = Colors.RGB(0,127,255)
prezzoInt011.Text = stringArrayLMA02(5)
prezzoInt022.SingleLine = True
prezzoInt022.Text = prezzoInt02 '33
prezzoInt022.TextSize = 12
prezzoInt022.Typeface = Typeface.DEFAULT
prezzoInt022.TextColor = Colors.RGB(0,127,255)
prezzoInt011.Text = stringArrayLMA02(6)
Tipo011.SingleLine = True
Tipo011.Text = "Fam. 01: " &tipoInt01 '2
Tipo011.TextSize = 11
Tipo011.Typeface = Typeface.DEFAULT
Tipo011.TextColor = Colors.RGB(0,127,255)
Tipo011.Text = stringArrayLMA02(7)
Tipo022.SingleLine = True
Tipo022.Text = "Fam. 02: " & tipoInt02 '2
Tipo022.TextSize = 11
Tipo022.Typeface = Typeface.DEFAULT
Tipo022.TextColor = Colors.RGB(0,127,255)
Tipo022.Text = stringArrayLMA02(8)
Tipo033.SingleLine = True
Tipo033.Text = "Fam. 03: " & tipoInt03 '2
Tipo033.TextSize = 11
Tipo033.Typeface = Typeface.DEFAULT
Tipo033.TextColor = Colors.RGB(0,127,255)
Tipo033.Text = stringArrayLMA02(9)
Tipo044.SingleLine = True
Tipo044.Text = "Fam. 04: " & tipoInt04 '2
Tipo044.TextSize = 11
Tipo044.Typeface = Typeface.DEFAULT
Tipo044.TextColor = Colors.RGB(0,127,255)
Tipo044.Text = stringArrayLMA02(10)
panelButton.SingleLine = True
panelButton.Text = " - ESCI - "
panelButton.TextSize = 12
panelButton.Typeface = Typeface.DEFAULT_BOLD
panelButton.TextColor = Colors.aRGB(255,255,0,0)
panelButton.Color = Colors.Yellow
AggArt01.Visible = False
AggArt02.Visible = True
'End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub RegisterResults
Dim List8 As List
'Controllo se il file di testo esiste nella ROOT "VideoCam04/ListResults10.txt"
If File.Exists(File.DirRootExternal, "VideoCam12/ListResults10.txt") Then
'se il file esiste
'Carico i dati dal file di testo, da List3 = File.readlist(File.DirRootExternal, "VideoCam04/ListResults10.txt")
List8 = File.ReadList(File.DirRootExternal, "VideoCam12/ListResults10.txt")
Dim trovato As Boolean
trovato = False
For i = 0 To 999
ListResults22(i) = List8.Get(i)
If ListResults22(i) = "0" And trovato = False Then '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ProCodList02 = File.ReadString(File.DirRootExternal, "VideoCam12/ProCod.txt")
ProCod = ProCodList02 +1
File.WriteString(File.DirRootExternal, "VideoCam12/ProCod.txt", ProCod)
If ProCod <2 Then
Msgbox(" - Modifica Progressiva N° : " & ProCod," - - Progressivo - - -")
Else
Msgbox(" - Modifiche Progressive N° : " & ProCod," - - - Progressivo - - -")
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'riempio lo slot dell'array con i valori da registrare
ListResults22(i) = CodInt01 & "|" & CodInt02 & "|" & descriInt01 & "|" & descriInt02 & "|" & umInt01 & "|" & prezzoInt01 & "|" & prezzoInt02 & "|" & tipoInt01 & "|" & tipoInt02 & "|" & tipoInt03 & "|" & tipoInt04 & "|" & ProCod & "|" & DateTime.Date(DateTime.Now) & "|" & EditText1.text & "|" & EditText1.Text & "|" & EditText1.Text & "|" & ArtQta01.Text & "|"
File.WriteString(File.DirRootExternal,"VideoCam12/InsArt.txt", ListResults22(i)) 'Scrive Ultimo Articolo modificato. solo ULTIMO
' Log("2 -" & trovato)
trovato = True
End If
Next
'se trova tutti gli slot occupati cancella il primo e sposta tutto in su di uno
If trovato = False Then
For i = 1 To 999
ListResults22(i-1) = ListResults22(i)
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ProCodList02 = File.ReadString(File.DirRootExternal, "VideoCam12/ProCod.txt")
ProCod = ProCodList02 +1
File.WriteString(File.DirRootExternal, "VideoCam12/ProCod.txt", ProCod)
If ProCod <2 Then
Msgbox("Modifica Progressiva N° : " & ProCod,"- - - Progressivo - - -")
Else
Msgbox("Modifiche Progressive N° : " & ProCod,"- - - Progressivo - - -")
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ListResults22(999) = CodInt01 & "|" & CodInt02 & "|" & descriInt01 & "|" & descriInt02 & "|" & umInt01 & "|" & prezzoInt01 & "|" & prezzoInt02 & "|" & tipoInt01 & "|" & tipoInt02 & "|" & tipoInt03 & "|" & tipoInt04 & "|" & ProCod & "|" & DateTime.Date(DateTime.Now) & "|" & EditText1.text & "|" & EditText1.Text & "|" & EditText1.Text & "|" & ArtQta01.Text & "|"
End If
'Salvo l'array nel file di testo
File.WriteList(File.DirRootExternal, "VideoCam12/ListResults10.txt",ListResults22)
Else 'se il file non esiste - questo: ListResults.txt
For i = 0 To 999
ListResults22(i) = "0"
Next
ListResults22(0) = CodInt01 & "|" & CodInt02 & "|" & descriInt01 & "|" & descriInt02 & "|" & umInt01 & "|" & prezzoInt01 & "|" & prezzoInt02 & "|" & tipoInt01 & "|" & tipoInt02 & "|" & tipoInt03 & "|" & tipoInt04 & "|" & EditText1.text & "|" & DateTime.Date(DateTime.Now) & "|" & EditText1.text & "|" & EditText1.Text & "|" & EditText1.Text & "|" & ArtQta01.Text & "|"
'creo la directory nel Cellulare poi diventa VideoCamXX/ListResults.txt
File.MakeDir(File.DirRootExternal, "VideoCam12")
'Salvo l'array nel file di testo
File.WriteList(File.DirRootExternal, "VideoCam12/ListResults10.txt",ListResults22)
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub RegisterResults01
ListLMA01.Initialize
'ListLMA02.Initialize
'Controllo se il file di testo esiste nella ROOT "VideoCam02/ListResults01.txt"
If File.Exists(File.DirRootExternal, "VideoCam12/ListResults10.txt") Then
'se il file esiste
'Carico i dati dal file di testo, da List3 = File.readlist(File.DirRootExternal, "VideoCam02/ListResults01.txt")
ListLMA01 = File.ReadList(File.DirRootExternal, "VideoCam12/ListResults10.txt")
For i = 0 To 999
ListResults33(i) = ListLMA01.Get(i)
Dim stringArrayLMA01() As String = Regex.Split("\|",ListResults33(i))
If ListResults33(i) <> "0" And CodInt011.Text = stringArrayLMA01(0) And ArtPos01 = (stringArrayLMA01(11)) Then '
' If 6 = (stringArrayLMA01(11)) Then '
' Log(" B 01 > " & (stringArrayLMA01(11)) &" " & ArtPos01)
' Log(" B 02 >> " & (stringArrayLMA01(0)) &" " & CodInt011.Text)
' Log(" B 03 >>> " & " " & ArtPos011.Text)
' Log(" B 04 >>>> " & ArtPos01)
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CodInt01 = CodInt011.Text
CodInt02 = CodInt022.Text
descriInt01 = descriInt011.Text
descriInt02 = descriInt022.Text
umInt01 = umInt011.Text
prezzoInt01 = "1"
prezzoInt02 = "1"
tipoInt01 = Tipo011.Text
tipoInt02 = Tipo022.Text
tipoInt03 = Tipo033.Text
tipoInt04 = Tipo044.Text
' ArtQta01.Text = ArtQta01.Text
' ArtPos01 = ArtPos011.Text
''''''' qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq
'ListResults33(i) = CodInt011.Text & "|" & CodInt02 & "|" & descriInt01 & "|" & descriInt02 & "|" & umInt01 & "|" & prezzoInt01 & "|" & prezzoInt02 & "|" & tipoInt01 & "|" & tipoInt02 & "|" & tipoInt03 & "|" & tipoInt04 & "|" & EditText1.text & "|" & DateTime.Date(DateTime.Now) & "|" & EditText1.text & "|" & EditText1.Text & "|" & EditText1.Text & "|" & ArtQta01.Text & "|"
ListResults33(i) = CodInt011.Text & "|" & CodInt02 & "|" & descriInt01 & "|" & descriInt02 & "|" & umInt01 & "|" & prezzoInt01 & "|" & prezzoInt02 & "|" & tipoInt01 & "|" & tipoInt02 & "|" & tipoInt03 & "|" & tipoInt04 & "|" & ArtPos011.Text & "|" & DateTime.Date(DateTime.Now) & "|" & EditText1.text & "|" & EditText1.Text & "|" & EditText1.Text & "|" & ArtQta01.Text & "|"
File.WriteList(File.DirRootExternal, "VideoCam12/ListResults10.txt",ListResults33)
End If
Next
End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub AggArt01_Click
RegisterResults
Activity.Finish
StartActivity("PreLista01")
panelButton_Click
End Sub
Sub AggArt02_Click
RegisterResults01
Activity.Finish
'StartActivity("Prev01")
StartActivity("PreLista01")
panelButton_Click
End Sub
Sub backButt01_Click ' "- Materiali -"
Activity.Finish
StartActivity(Prev01)
End Sub
Sub Tipo0111_ItemClick (Position As Int, Value As Object)
Tipo0111.Text = Value
Tipo0111.Visible = False
End Sub
Sub Tipo0222_ItemClick (Position As Int, Value As Object)
Tipo0222.Text = Value
Tipo0222.Visible = False
End Sub
Upvote
0
I'm sorry this is a forum in English, we don't know what "PRATICONE" means.
You can translate into English or write in the Spanish language section
PS: Please do not tolerate the code that does not understand anything, put the TAG CODE
Last edited:
Upvote
0
Sorry but your intervention is off topic.
The question was how to send a customized list via WhatsApp
Upvote
0
Sorry but your intervention is off topic.
The question was how to send a customized list via WhatsApp
List
Upvote
0
hi @RobyLaga . Quello che cercano di dirti è che il codice deve andare come dice @manfred in modo che non si diffonda sullo schermo ed è più facile da capire. D'altra parte se scrivi in italiano dovresti cercare il forum italiano che è qui o tradurre tutto con Google in modo che gli esperti capiscano e possano aiutarti. in questo forum solo in inglese. Saluti paisano.-
Upvote
0
Upvote
0
- Status
Similar Threads
- Question
