diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 83784e1..a4bb156 100644 --- a/B4A/C_Principal.bas +++ b/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 - 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") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - - Dim fotoenvia() As Byte = c.GetBlob("NV_FOTO") +' ' 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") +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' +' 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.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_") + cmd.Name = "insert_reparto_PAGARES_GUNA_VN" + Dim fechaenvio() As String + 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 - cuantos_noventa = D.GetString("CUANTOS_NOVENTA") - d.Close + pa.Close + End Sub Private Sub b_impresion_rec_Click diff --git a/B4A/guna_reparto.b4a b/B4A/guna_reparto.b4a index 771b3bd..311a697 100644 --- a/B4A/guna_reparto.b4a +++ b/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 diff --git a/B4A/guna_reparto.b4a.meta b/B4A/guna_reparto.b4a.meta index 547e180..d9a2278 100644 --- a/B4A/guna_reparto.b4a.meta +++ b/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