B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Activity
Version=9.01
@EndOfDesignText@
#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.
	Private SQL1 As JdbcSQL
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 pnl1 As Panel
	Private btnextrato As Button

	Private DBLocation1 As String = "IP " 'Can use IP address or domain name
	Private DBUsername1 As String = "USER"
	Private DBPassword1 As String = "LOGIN"
	Private lblmesanterior As Label
	Private lblmesatual As Label
	Private lbtotal2 As Label
	Private lblmesatual2 As Label
	Private lblsaidas As Label
	Private lblentradasgeral As Label
	Private lbladicionar As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	SetActionBarColor(Colors.RGB(197,128,128))
	Activity.LoadLayout("frmtela")
	Activity.Color=Colors.RGB(197,128,128)
	Activity.Title=".:: Financeiro Agua viva ::."

	
	buscaentradas
End Sub
Sub SetActionBarColor(Color As Int)
	Dim jo As JavaObject
	jo.InitializeContext
	Dim cd As ColorDrawable
	cd.Initialize(Color, 0)
	jo.RunMethodJO("getActionBar", Null).RunMethod("setBackgroundDrawable", Array(cd))
   
	jo.RunMethodJO("getActionBar", Null).Runmethod("setIcon",Array(cd))
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub buscaentradas
	Dim ValorEntrada As Double
	Dim valorsaida As Double
	Dim ValorEntradaAnterior As Double
	Dim valorsaidaAnterior As Double
	Dim mesatual As String
	Dim mesanterior As String
	btnextrato.Color=Colors.Transparent
	
	Dim Ref As Reflector
	Ref.Target = Ref.RunStaticMethod("android.text.format.DateFormat", "getDateFormat", Array As Object(Ref.GetContext), Array As String("android.content.Context")) 'Returns default system date pattern
	'Then set the date format and store/print the month
	DateTime.DateFormat = "MMMM"
	
	mesatual=DateTime.Date(DateTime.Now)
	mesanterior=DateTime.Date(DateTime.Now)
	' SUBTRAI UM MES
	Select mesatual
		Case "janeiro"
			mesanterior="dezembro"
		Case "fevereiro"
			mesanterior="janeiro"
		Case "março"
			mesanterior="fevereiro"
		Case "abril"
			mesanterior="março"
		Case "maio"
			mesanterior="abril"
		Case "junho"
			mesanterior="maio"
		Case "julho"
			mesanterior="junho"
		Case "agosto"
			mesanterior="julho"
		Case "setembro"
			mesanterior="agosto"
		Case "outubro"
			mesanterior="setembro"
		Case "novembro"
			mesanterior="outubro"
		Case "dezembro"			
			mesanterior="novembro"
	End Select
	
	
	
	
	
	
	

'Log(DateTime.Date(DateTime.Now))
	
	
	
	SQL1.InitializeAsync("MySQL", "com.mysql.jdbc.Driver", $"jdbc:mysql://${DBLocation1}/sysjoins_bddizimos?useSSL=false"$, DBUsername1, DBPassword1)
	'
	'ProgressDialogShow("Aguarde processando")
	
	Wait For MySQL_Ready (Success As Boolean)
	If Success = False Then
		
		Log("Check unfiltered logs for JDBC errors.")
		
	Else
	'	Activity.LoadLayout("frm2")
		Dim RS2 As JdbcResultSet = SQL1.ExecQuery("Select sum(valor) As Total from tbldizimos where Mes like '%" & mesatual & "' And Tipo='Saida'")
		Dim RS1 As JdbcResultSet = SQL1.ExecQuery("Select sum(valor) As Total from tbldizimos where Mes like '%" & mesatual & "' And Tipo='Entrada'")
		Dim RS3 As JdbcResultSet = SQL1.ExecQuery("Select sum(valor) As Total from tbldizimos where Mes like '%" & mesanterior & "' And Tipo='Entrada'")
		Dim RS4 As JdbcResultSet = SQL1.ExecQuery("Select sum(valor) As Total from tbldizimos where Mes like '%" & mesanterior & "' And Tipo='Saida'")
		Do While RS1.NextRow	

			lblentradasgeral.Text=RS1.GetString2(0)
			ValorEntrada=RS1.GetString2(0)
			lblmesatual.Text=RS1.GetString2(0)

		Loop
		Do While RS2.NextRow

			lblsaidas.Text=RS2.GetString2(0)
			valorsaida=RS2.GetString2(0)

		Loop
		
		Do While RS3.NextRow
			ValorEntradaAnterior=RS3.GetString2(0)
		Loop
				
		Do While RS4.NextRow
			valorsaidaAnterior=RS4.GetString2(0)
		Loop
ProgressDialogHide
		
		lblmesatual2.Text=ValorEntrada-valorsaida
		lblmesanterior.Text=ValorEntradaAnterior-valorsaidaAnterior
		
		RS1.Close
		SQL1.Close
		RS2.Close
		
	End If
End Sub



Sub btnextrato_Click
	
End Sub

Sub lbladicionar_Click
	StartActivity(mdllistadedizimos)
End Sub