6.01.07

B4A/C_Principal.bas

@@ -896,7 +896,12 @@ Sub envioinfo
 			Dim fechacap() As String
 			fechacap = Regex.Split("/",pa.GetString("PA_CAPTURA"))
 			Dim fechacapano As String = fechacap(2).SubString(2)
-			Dim fechacapreal As String = fechacap(0)&"/"&fechacap(1)&"/"&fechacapano
+'			Dim mes As Int = DateTime.GetMonth(DateTime.Now)
+			If  DateTime.GetMonth(DateTime.Now) = fechacap(1) Then
+				Dim fechacapreal As String = fechacap(0)&"/"&fechacap(1)&"/"&fechacapano
+			Else
+				Dim fechacapreal As String = fechacap(1)&"/"&fechacap(0)&"/"&fechacapano
+			End If
 			If pa.GetString("PA_CANCELADO") = "2" Then
 				cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),fechareal,pa.GetString("PA_USUARIO"),2)
 			Else
@@ -2014,6 +2019,7 @@ Sub e_ruta_EnterPressed
 			e_ruta.Text = ""
 			Starter.skmt.ExecNonQuery("delete from PICK_CIEGO")
 			Starter.skmt.ExecNonQuery("delete from HIST_REPARTO_GEO")
+			Starter.skmt.ExecNonQuery("delete from REPARTO_GEO")
 			Starter.skmt.ExecNonQuery("delete from pedido_cliente")
 			Starter.skmt.ExecNonQuery("delete from PAGARES")
 			Starter.skmt.ExecNonQuery("DELETE FROM GEOCERCA")
@@ -2897,25 +2903,61 @@ Sub StartPrinter
 End Sub
 
 Private Sub ImageView1_LongClick
-	' NOVENTA
+'	' NOVENTA
-	c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO,NV_FOTO2, NV_REPROGRAMAR FROM NOVENTA")
+'	c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO,NV_FOTO2, NV_REPROGRAMAR FROM NOVENTA")
-	D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
+'	D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
-	If c.RowCount>0 Then
+'	If c.RowCount>0 Then
-		For i=0 To c.RowCount -1
+'		For i=0 To c.RowCount -1
-			c.Position=i
+'			c.Position=i
-			
+'			
-			Dim fotoenvia() As Byte = c.GetBlob("NV_FOTO")
+'			Dim fotoenvia() As Byte = c.GetBlob("NV_FOTO")
+'			Dim cmd As DBCommand
+'			cmd.Initialize
+'			cmd.Name = "insert_reparto_REPG_GUNA_VN2"
+'			cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text,fotoenvia)
+'			reqManager.ExecuteCommand(cmd ,  "inst_noventa_")
+'		Next
+'		c.Close
+'	End If
+'	d.Position=0
+'	cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
+'	d.Close
+
+	'PAGARES.
+	Dim pa As Cursor =Starter.skmt.ExecQuery("select PA_ALMACEN,PA_RUTA_REP,PA_RUTAPREV,PA_FECHA_PREV,PA_CAPTURA,PA_MONTO,PA_USUARIO,PA_CLIENTE,IFNULL(PA_CANCELADO,0) AS PA_CANCELADO from PAGARES")
+	If pa.RowCount > 0 Then
+		For pag = 0 To pa.RowCount - 1
+			pa.Position = pag
 			Dim cmd As DBCommand
 			cmd.Initialize
-			cmd.Name = "insert_reparto_REPG_GUNA_VN2"
+			cmd.Name = "insert_reparto_PAGARES_GUNA_VN"
-			cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text,fotoenvia)
+			Dim fechaenvio() As String
-			reqManager.ExecuteCommand(cmd ,  "inst_noventa_")
+			fechaenvio = Regex.Split(" ",pa.GetString("PA_FECHA_PREV"))
+'			Log(fechaenvio(0))
+			Dim fechaenvio1() As String
+			fechaenvio1 = Regex.Split("/",fechaenvio(0))
+			Dim fechaano As String = fechaenvio1(2).SubString(2)
+			Dim fechareal As String = fechaenvio1(0)&"/"&fechaenvio1(1)&"/"&fechaano
+'			Log(fechareal)
+			Dim fechacap() As String
+			fechacap = Regex.Split("/",pa.GetString("PA_CAPTURA"))
+			Dim fechacapano As String = fechacap(2).SubString(2)
+'			Dim mes As Int = DateTime.GetMonth(DateTime.Now)
+			If  DateTime.GetMonth(DateTime.Now) = fechacap(1) Then
+				Dim fechacapreal As String = fechacap(0)&"/"&fechacap(1)&"/"&fechacapano
+			Else
+				Dim fechacapreal As String = fechacap(1)&"/"&fechacap(0)&"/"&fechacapano
+			End If
+			If pa.GetString("PA_CANCELADO") = "2" Then
+				cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),fechareal,pa.GetString("PA_USUARIO"),2)
+			Else
+				cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),fechareal,pa.GetString("PA_USUARIO"),"")
+			End If
+			reqManager.ExecuteCommand(cmd , "ins_pagares")
 		Next
-		c.Close
 	End If
-	d.Position=0
+	pa.Close
-	cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
+
-	d.Close
 End Sub
 
 Private Sub b_impresion_rec_Click

B4A/guna_reparto.b4a

@@ -260,7 +260,7 @@ Version=12.8
 #Region Project Attributes 
 	#ApplicationLabel: Guna Reparto
 	#VersionCode: 1
-	#VersionName: 6.01.05
+	#VersionName: 6.01.07
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/guna_reparto.b4a.meta

@@ -97,6 +97,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Cliente,HIST_Click,1059,0,C_Cliente,B4XPage_Appear,234,6,C_Cliente,ListView1_ItemLongClick,720,0,C_Cliente,checacredito,802,6,C_Cliente,gest_Click,785,6,C_Principal,cargar_Click,1086,5,C_Principal,envioinfo,1063,0,C_Principal,JobDone,1574,0,C_DetalleVenta,CreateListItem2,502,0,C_DetalleVenta,b_prodMenos_Click,598,3,C_Cliente,B_IMP_Click,1480,6
+NavigationStack=C_NoVenta,GPS_LocationChanged,103,0,C_Cliente,GPS_LocationChanged,620,0,C_Cliente,Guardado,997,0,C_Cliente,esPagoACreditoGuardamosPagare,985,0,C_Cliente,b_acred_Click,2021,0,C_Cliente,b_cancel_pagare_Click,3894,0,Diseñador Visual,cliente.bal,-100,1,C_Principal,envioinfo,873,6,Diseñador Visual,principal.bal,-100,2,C_Principal,ImageView1_LongClick,2909,0
 SelectedBuild=0
 VisibleModules=2,17,5,6,7,8,10,31,30,28