From a80af328a728549f087627d001a80e67990f7ac9 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Mon, 13 Apr 2026 11:42:48 -0600 Subject: [PATCH] 6.02.26 --- B4A/C_Cliente.bas | 131 +++++++- B4A/C_NoVenta.bas | 6 +- B4A/C_Principal.bas | 616 ++++++++++++++++++++++---------------- B4A/Files/cliente.bal | Bin 57737 -> 58398 bytes B4A/guna_reparto.b4a | 2 +- B4A/guna_reparto.b4a.meta | 2 +- 6 files changed, 476 insertions(+), 281 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 7647e6d..e4589e3 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -170,6 +170,9 @@ Sub Class_Globals Private b_aceptarFD As Button Private et_passFinDia As EditText Private teclado As IME + + Private P_Imagengrande As Panel + Private I_fotogrande As ImageView End Sub 'You can add more parameters here. @@ -225,6 +228,10 @@ End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub B4XPage_Appear + + + + iv_foto.Bitmap = LoadBitmap(File.DirAssets,"images.png") reimpresion = 0 banderaimp = 0 @@ -276,6 +283,7 @@ Sub B4XPage_Appear m_lon_al = latlong(0) End If + Subs.centraPanel(P_Imagengrande,Root.Width) barcode.Initialize qr.Initialize(B4XImageView1.mBase.Width) @@ -336,7 +344,7 @@ Sub B4XPage_Appear b_noEntrega.Visible = True gest.Visible = True Else If geo.GetInt("ACTIVA") = 1 Then - HIST.Visible = False + HIST.Visible = True ' b_cxc.Visible = False b_noEntrega.Visible = False gest.Visible = False @@ -569,6 +577,10 @@ Sub B4XPage_Appear b_cxc_Click Impimir = 0 End If + HIST.Visible= True + b_cxc.Visible= False + b_noEntrega.Visible= False + gest.Visible= False End Sub Sub Activity_Pause (UserClosed As Boolean) @@ -594,6 +606,7 @@ Sub GPS_LocationChanged (Location1 As Location) Log("Coords set to: " & B4XPages.MainPage.lat_gps & " and " & B4XPages.MainPage.lon_gps) End If + If LATITUD.Length < 5 Then Else @@ -612,12 +625,14 @@ Sub GPS_LocationChanged (Location1 As Location) Log("DISTANCIA "&distance) + l_montoefec.Text = 0 + l_montoefec.Text = distance Dim geo As Cursor = Starter.skmt.ExecQuery("SELECT ACTIVA FROM GEOCERCA") If geo.RowCount > 0 Then geo.Position = 0 If geo.GetInt("ACTIVA") = 1 Then - If (almacen = 88 Or almacen = 92) Then + If (almacen = 81 Or almacen = 94 Or almacen = 88 Or almacen = 92) Then If distance2 < 100 Then HIST.Visible = True @@ -646,7 +661,7 @@ Sub GPS_LocationChanged (Location1 As Location) b_noEntrega.Visible = True gest.Visible = True Else - HIST.Visible = False + HIST.Visible = True b_cxc.Visible = False b_noEntrega.Visible = False gest.Visible = False @@ -1252,12 +1267,16 @@ Sub Guardado Dim entregatotaloparial As String = "ENTREGA PARCIAL" End If + Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${la_cuenta.Text}' "$) + cds.Position = 0 +' cds.GetString("HVD_RUTA") + Dim cmd As DBCommand cmd.Initialize cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN" ' cmd.Parameters = Array As String(l_total.Text,"1", l_total.Text,B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV) - cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV) - Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)) + cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,cds.GetString("HVD_RUTA")) +' Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)) reqManager.ExecuteCommand(cmd, "up_geo") ' Dim cmd As DBCommand @@ -1279,11 +1298,15 @@ Sub Guardado Else Dim entregatotaloparial As String = "ENTREGA PARCIAL" End If + + Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${la_cuenta.Text}' "$) + cds.Position = 0 +' cds.GetString("HVD_RUTA") Dim cmd As DBCommand cmd.Initialize cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN" - cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV) - Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)) + cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,cds.GetString("HVD_RUTA")) +' Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)) reqManager.ExecuteCommand(cmd, "up_geo") End If @@ -1386,7 +1409,8 @@ Sub NUEVO_Click End Sub Sub HIST_Click - +' If l_montoefec.Text <> 0 AND l_montoefec.Text < 100 Then + Dim pagacheca2 As Cursor = Starter.skmt.ExecQuery("SELECT * FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") If pagacheca2.RowCount > 0 Then Msgbox2Async("El pagare ya fue generdo, no se puede realizar modificación.","Atención","","","Ok",LoadBitmap(File.DirAssets,"alert2.png"),False) @@ -1469,7 +1493,7 @@ Sub HIST_Click '' B4XPages.MainPage.historico.clv_pedido.Clear ' B4XPages.ShowPage("Historico") ' B4XPages.MainPage.historico.clv_pedido.Clear - +' End If End Sub Sub B_IMP_Click @@ -1513,6 +1537,65 @@ Sub B_IMP_Click Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_ESTATUS = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") + + If escreditoono = "1" Then + + Dim g5 As Cursor = Starter.skmt.ExecQuery("SELECT SUM(HVD_COSTO_TOT) as HVD_COSTO_TOT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") + g5.Position = 0 + Dim totaltotal2 As String = NumberFormat2(g5.GetString("HVD_COSTO_TOT"),0,2,2,False) + g5.Close + LogColor(totaltotal2,Colors.Red) + LogColor(l_total.Text.Replace(",",""),Colors.Red) + If totaltotal2 = l_total.Text.Replace(",","") Then + Dim entregatotaloparial As String = "ENTREGA TOTAL" + Else + Dim entregatotaloparial As String = "ENTREGA PARCIAL" + End If + + Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${la_cuenta.Text}' "$) + cds.Position = 0 +' cds.GetString("HVD_RUTA") + + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN" +' cmd.Parameters = Array As String(l_total.Text,"1", l_total.Text,B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV) + cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,cds.GetString("HVD_RUTA")) + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)) + reqManager.ExecuteCommand(cmd, "up_geo") + +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN" +' cmd.Parameters = Array As String(l_total.Text,"fue credito", "MONTO SI FUE A CREDITO",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"RECHAZO O NO",usuario,ruta,"entrega o rechazo", "parcial o total","efectivo o credito", "mts", L_CANT.text,la_cuenta.Text,fechaprev,almacen,rutaprev) +' reqManager.ExecuteCommand(cmd, "up_geo") + + Else + + Dim g5 As Cursor = Starter.skmt.ExecQuery("SELECT SUM(HVD_COSTO_TOT) as HVD_COSTO_TOT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") + g5.Position = 0 + Dim totaltotal2 As String = NumberFormat2(g5.GetString("HVD_COSTO_TOT"),0,2,2,False) + g5.Close + LogColor(totaltotal2,Colors.Red) + LogColor(l_total.Text.Replace(",",""),Colors.Red) + If totaltotal2 = l_total.Text.Replace(",","") Then + Dim entregatotaloparial As String = "ENTREGA TOTAL" + Else + Dim entregatotaloparial As String = "ENTREGA PARCIAL" + End If + + Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${la_cuenta.Text}' "$) + cds.Position = 0 +' cds.GetString("HVD_RUTA") + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN" + cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,cds.GetString("HVD_RUTA")) + Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)) + reqManager.ExecuteCommand(cmd, "up_geo") + + End If + ' DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "dd/MM/yyyy" sDate=DateTime.Date(DateTime.Now) @@ -2114,7 +2197,7 @@ Printer1.WriteString(" " & CRLF) Printer1.WriteString("Subtotal: $" & NumberFormat2(totaltotal,0,2,2,False)& CRLF) Printer1.WriteString("Total Articulos: " & (L_CANT.Text.Replace(",","") -restacobranza) & CRLF) Printer1.WriteString("Descuento: %" & NumberFormat2((100-((l_total.Text.Replace(",","")*100)/totaltotal)),0,2,2,False)& CRLF) - Printer1.WriteString("Monto descuento: %" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF) + Printer1.WriteString("Monto descuento: $" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF) Printer1.WriteString("Total: $" & l_total.Text) Printer1.WriteString(" " & CRLF) @@ -5217,7 +5300,7 @@ Private Sub b_imprimesegun_Click Printer1.WriteString("Subtotal: $" & NumberFormat2(totaltotal,0,2,2,False)& CRLF) Printer1.WriteString("Total Articulos: " & (L_CANT.Text.Replace(",","") -restacobranza) & CRLF) Printer1.WriteString("Descuento: %" & NumberFormat2((100-((l_total.Text.Replace(",","")*100)/totaltotal)),0,2,2,False)& CRLF) - Printer1.WriteString("Monto descuento: %" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF) + Printer1.WriteString("Monto descuento: $" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF) Printer1.WriteString("Total: $" & l_total.Text) Printer1.WriteString(" " & CRLF) Printer1.WriteString("------------------------------" & CRLF) @@ -6994,7 +7077,7 @@ Sub imp Printer1.WriteString("Subtotal: $" & NumberFormat2(totaltotal,0,2,2,False)& CRLF) Printer1.WriteString("Total Articulos: " & (L_CANT.Text.Replace(",","") -restacobranza) & CRLF) Printer1.WriteString("Descuento: %" & NumberFormat2((100-((l_total.Text.Replace(",","")*100)/totaltotal)),0,2,2,False)& CRLF) - Printer1.WriteString("Monto descuento: %" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF) + Printer1.WriteString("Monto descuento: $" & NumberFormat2((totaltotal-l_total.Text.Replace(",","")),0,2,2,False)& CRLF) Printer1.WriteString("Total: $" & l_total.Text) Printer1.WriteString(" " & CRLF) @@ -7773,4 +7856,28 @@ Sub imprime_abonopagare3 ' mandaAbonosPANUEPendientes +End Sub + +Private Sub iv_foto_Click + Private fotomostrar As Cursor = Starter.skmt.ExecQuery("SELECT FOTO FROM FOTOS where CLIENTE IN (SELECT CUENTA FROM CUENTAA)") + If fotomostrar.RowCount > 0 Then + + fotomostrar.Position = 0 + Private fotomostrarfinal() As Byte = fotomostrar.GetBlob("FOTO") + Dim InputStream1 As InputStream + InputStream1.InitializeFromBytesArray(fotomostrarfinal, 0, fotomostrarfinal.Length) + Dim Bitmap1 As Bitmap + Bitmap1.Initialize2(InputStream1) + InputStream1.Close + I_fotogrande.Bitmap = Bitmap1 + Log("aqui si hay foto") + Else + I_fotogrande.Bitmap = LoadBitmap(File.DirAssets,"images.png") + Log("aqui no hay foto") + End If + P_Imagengrande.Visible = True +End Sub + +Sub P_Imagengrande_click + P_Imagengrande.Visible = False End Sub \ No newline at end of file diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas index dbd47f1..75064eb 100644 --- a/B4A/C_NoVenta.bas +++ b/B4A/C_NoVenta.bas @@ -219,7 +219,9 @@ Sub GUARDA_Click Dim g5 As Cursor = Starter.skmt.ExecQuery("SELECT SUM(HVD_COSTO_TOT) AS HVD_COSTO_TOT, SUM(HVD_CANT) AS HVD_CANT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") g5.Position = 0 - + Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${cuenta}' "$) + cds.Position = 0 +' cds.GetString("HVD_RUTA") Dim cmd As DBCommand cmd.Initialize cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN" @@ -229,7 +231,7 @@ Sub GUARDA_Click Log(g5.GetString("HVD_COSTO_TOT")) Log(g5.GetString("HVD_CANT")) - cmd.Parameters = Array As String(g5.GetString("HVD_COSTO_TOT"),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,1,motivo,usuario,ruta,"RECHAZO", "RECHAZO TOTAL","", B4XPages.MainPage.cliente.distance, g5.GetString("HVD_CANT"),cuenta,fechaprev,B4XPages.MainPage.almacen,Subs.traerUTAPREV) + cmd.Parameters = Array As String(g5.GetString("HVD_COSTO_TOT"),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,1,motivo,usuario,ruta,"RECHAZO", "RECHAZO TOTAL","", B4XPages.MainPage.cliente.distance, g5.GetString("HVD_CANT"),cuenta,fechaprev,B4XPages.MainPage.almacen,cds.GetString("HVD_RUTA")) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(g5.GetString("HVD_COSTO_TOT"),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,1,motivo,usuario,ruta,"RECHAZO", "RECHAZO TOTAL","", B4XPages.MainPage.cliente.distance, g5.GetString("HVD_CANT"),cuenta,fechaprev,B4XPages.MainPage.almacen,Subs.traerUTAPREV)) reqManager.ExecuteCommand(cmd, "up_geo") g5.Close diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 865a7a6..e326eae 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -223,6 +223,10 @@ Sub B4XPage_Appear reqManager.Initialize(Me, B4XPages.MainPage.server) Starter.skmt.ExecNonQuery("DELETE FROM ABONOS where a_abono is null or a_abono = ''") Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA where NV_CLIENTE is null or NV_CLIENTE = ''") +' Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA where NV_CLIENTE is null or NV_CLIENTE = '0050371272'") +' Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 0 WHERE CAT_CL_CODIGO = '0050371272'") +' Starter.skmt.ExecNonQuery("DELETE FROM CODIGO_CREDITO where CLIENTE = '0050392381'") +' Starter.skmt.ExecNonQuery("update kmt_info set gestion = 0 where CAT_CL_CODIGO = '0050392381' ") p_principal.Width = Root.Width p_principal.Height = Root.Height *.80 Private c As Cursor = Starter.skmt.ExecQuery("SELECT * FROM NOVENTA") @@ -845,21 +849,52 @@ Sub trabajar_Click End Sub Sub Subir_Click + ime.HideKeyboard + Dim pedidodiaanterior As Boolean = False + Dim cp As Cursor = Starter.skmt.ExecQuery("select * from NOVENTA") + If cp.RowCount > 0 Then + cp.Position = 0 + Private fecha As String = cp.GetString("NV_FECHA") + Log(cp.GetString("NV_FECHA")) + Dim fecha2() As String = Regex.Split(" ",fecha) + Log(fecha2(0)) + Dim fecha3() As String = Regex.Split("/",fecha2(0)) + DateTime.DateFormat = "yyyyMMdd" + DateTime.TimeFormat = "" + If fecha3(2).Length > 4 Then + Dim dia As String = fecha3(2).SubString2(0,5)&fecha3(0)&fecha3(1) + Else + Dim dia As String = fecha3(2)&fecha3(0)&fecha3(1) + End If + Log(dia) + Dim dia2 As String = DateTime.Date(DateTime.Now) + Log(dia & " , " & dia2) + If dia < dia2 Then + pedidodiaanterior = True + End If + End If - If e_ruta.Text = "FIN DIA" Then - MsgboxAsync("Para enviar escribe tu ruta y envia informacion, pon atención, el sistema no es estupido, el estupido es el que tiene el telefono en las manos.","Atención") - Else + + If Not (pedidodiaanterior) Then + If e_ruta.Text = "FIN DIA" Then + MsgboxAsync("Para enviar escribe tu ruta y envia informacion, pon atención, el sistema no es estupido, el estupido es el que tiene el telefono en las manos.","Atención") + Else - If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión") - c=Starter.skmt.ExecQuery("select usuario from usuarioa") - c.Position = 0 - usuario = c.GetString("USUARIO") - c.Close + If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión") + c=Starter.skmt.ExecQuery("select usuario from usuarioa") + c.Position = 0 + usuario = c.GetString("USUARIO") + c.Close - P_ENVIO.Visible = True - envioinfo - tenvio.Initialize("tenvio",60000) - tenvio.Enabled = True + P_ENVIO.Visible = True + envioinfo + tenvio.Initialize("tenvio",60000) + tenvio.Enabled = True + End If + + Else + Log("XXXX") + MsgboxAsync("No se puede hacer envio de informadion de un día anterior. Por favor haz FIN DIA y carga ruta..","Atención") End If End Sub @@ -889,268 +924,272 @@ Sub envioinfo recibidos = 0 l_envio.Text = "ENVIANDO" ' 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") - cuantosenvio = cuantosenvio + c.RowCount - 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 fotoenvio() As Byte = C.GetBlob("NV_FOTO2") - 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, C.GetString("NV_REPROGRAMAR"),fotoenvio) - reqManager.ExecuteCommand(cmd , "envio_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_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"),NumberFormat2(pa.GetString("PA_MONTO"),0,2,2,False),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),Subs.traeRutaReparto,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"),Subs.traeRutaReparto,fechareal,pa.GetString("PA_USUARIO"),"") - End If - reqManager.ExecuteCommand(cmd , "ins_pagares") - Next - End If - pa.Close +' 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") +' cuantosenvio = cuantosenvio + c.RowCount +' 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 fotoenvio() As Byte = C.GetBlob("NV_FOTO2") +' 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, C.GetString("NV_REPROGRAMAR"),fotoenvio) +' reqManager.ExecuteCommand(cmd , "envio_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_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"),NumberFormat2(pa.GetString("PA_MONTO"),0,2,2,False),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),Subs.traeRutaReparto,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"),Subs.traeRutaReparto,fechareal,pa.GetString("PA_USUARIO"),"") +' End If +' reqManager.ExecuteCommand(cmd , "ins_pagares") +' Next +' End If +' pa.Close Dim ca As Cursor = Starter.skmt.ExecQuery($"SELECT * FROM HIST_REPARTO_GEO "$) If ca.RowCount > 0 Then For JQANKSN = 0 To ca.rowcount -1 ca.Position = JQANKSN + Dim cds As Cursor = Starter.skmt.ExecQuery($"SELECT HVD_RUTA FROM HIST_VENTAS where HVD_CLIENTE = '${ca.GetString("HIST_RG_CLIENTE")}' "$) + cds.Position = 0 + cds.GetString("HVD_RUTA") + cmd.Initialize cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN" ' cmd.Parameters = Array As String(l_total.Text,"1", l_total.Text,B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV) - cmd.Parameters = Array As String(ca.GetString("HIST_RG_MONTO"),ca.GetString("HIST_RG_CREDITO"),ca.GetString("HIST_RG_MONTO_CREDITO"),ca.GetString("HIST_RG_LAT"),ca.GetString("HIST_RG_LONG"),ca.GetString("HIST_RG_RECHAZO"),ca.GetString("HIST_RG_MOTIVO"),ca.GetString("HIST_RG_USUARIO_ENTREGO"),ca.GetString("HIST_RG_RUTA_REP"),ca.GetString("HIST_RG_ESTATUS_ENTREGA"),ca.GetString("HIST_RG_COMENTARIO_ENTREGA"),ca.GetString("HIST_RG_FORMA_PAGO"),ca.GetString("HIST_RG_GEOCERCA_MTS"),ca.GetString("HIST_RG_NO_ART"),ca.GetString("HIST_RG_CLIENTE"),ca.GetString("HIST_RG_FECHA"),ca.GetString("HIST_RG_ALMACEN"),ca.GetString("HIST_RG_RUTA_PRE")) + cmd.Parameters = Array As String(ca.GetString("HIST_RG_MONTO"),ca.GetString("HIST_RG_CREDITO"),ca.GetString("HIST_RG_MONTO_CREDITO"),ca.GetString("HIST_RG_LAT"),ca.GetString("HIST_RG_LONG"),ca.GetString("HIST_RG_RECHAZO"),ca.GetString("HIST_RG_MOTIVO"),ca.GetString("HIST_RG_USUARIO_ENTREGO"),ca.GetString("HIST_RG_RUTA_REP"),ca.GetString("HIST_RG_ESTATUS_ENTREGA"),ca.GetString("HIST_RG_COMENTARIO_ENTREGA"),ca.GetString("HIST_RG_FORMA_PAGO"),ca.GetString("HIST_RG_GEOCERCA_MTS"),ca.GetString("HIST_RG_NO_ART"),ca.GetString("HIST_RG_CLIENTE"),ca.GetString("HIST_RG_FECHA"),ca.GetString("HIST_RG_ALMACEN"),cds.GetString("HVD_RUTA")) reqManager.ExecuteCommand(cmd, "up_geo") Next End If - 'ABONOS - d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") - d.Position = 0 - Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NULL"$) - Log(ab.RowCount) - If ab.RowCount > 0 Then - For i=0 To ab.RowCount -1 - ab.Position = i -' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$) - Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$) - ab1.Position = 0 - - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_abono_REP_GUNA_VN2" - cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), NumberFormat2(ab.GetString("a_abono"),0,2,2,False), ab.GetString("a_fecha"),ALMACEN,"REPARTO",d.GetString("RUTAA"), "", ab.GetString("TIPO_PAGO"),ab.GetString("a_ticket"),ab.GetString("a_numpago")) - reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$) - ab1.Close - Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$) - Next - End If - ab.Close - d.Close - - - c=Starter.skmt.ExecQuery("SELECT RUTA_PREV, RUTA_REP, FECHA_PREV, FECHA, ALMACEN, NUM_TICKET, MONTO, METODO_PAGO, USUARIO, CLIENTE, NUM_PAGO FROM CONTADOS") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_CONTADO_GUNA_VN" - cmd.Parameters = Array As Object(c.GetString("RUTA_PREV"), c.GetString("RUTA_REP"), c.GetString("FECHA_PREV"), c.GetString("ALMACEN"), c.GetString("NUM_TICKET"),NumberFormat2(c.GetString("MONTO").Replace(",",""),0,2,2,False) , c.GetString("METODO_PAGO"), c.GetString("USUARIO"), c.GetString("CLIENTE"), c.GetString("NUM_PAGO")) - reqManager.ExecuteCommand(cmd , "ins_CONTADOS") - Next - c.Close - End If - - 'ABONOS NUEVOS - d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") - d.Position = 0 - Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NOT NULL"$) - Log(ab.RowCount) - If ab.RowCount > 0 Then - For i=0 To ab.RowCount -1 - ab.Position = i -' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NOT NULL"$) - Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NOT NULL"$) - ab1.Position = 0 - - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_abono_REP_GUNA_VN2" - cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), NumberFormat2(ab.GetString("a_abono"),0,2,2,False), ab.GetString("a_fecha"),ALMACEN,"REPARTO",d.GetString("RUTAA"), "1", ab.GetString("TIPO_PAGO"),ab.GetString("a_ticket"),ab.GetString("a_numpago") ) - reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$) - ab1.Close - Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$) - Next - End If - ab.Close - d.Close - -' pedido - c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO") - cuantosenvio = cuantosenvio + c.RowCount - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_pedido_REP_GUNA_VN" - cmd.Parameters = Array As Object(c.GetString("PE_TIPO"), c.GetString("PE_RUTA"), c.GetString("PE_CEDIS"), c.GetString("PE_COSTO_TOT"), c.GetString("PE_COSTOU"), c.GetString("PE_CANT"), c.GetString("PE_PRONOMBRE"), c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"), c.GetString("PE_FECHA"), c.GetString("PE_USUARIO"), c.GetString("PE_CLIENTEOR"), c.GetString("PE_CAJAS"), c.GetString("PE_BCAJAS"), c.GetString("CONSECUTIVO"), c.GetString("FECHA_PREV"), c.GetString("RUTA_REP"), c.GetString("PE_REGALO")) - reqManager.ExecuteCommand(cmd , "envio_ins_pedido") - Next - c.Close - End If - - 'TABULADOR - c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS") - d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") - b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") - f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") - d.Position = 0 - b.Position = 0 - f.Position = 0 - cuantosenvio = cuantosenvio + c.RowCount - If c.RowCount > 0 Then - For i = 0 To c.RowCount - 1 - c.Position=i - Dim cmd As DBCommand - Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) - - Dim fechatabulador3 As String = fechatabulador(0) - cmd.Initialize - cmd.Name = "insert_tabulador_monedas_GUNA_VN" - cmd.Parameters = Array As Object(d.GetString("RUTAA"), b.GetString("ID_ALMACEN"),c.GetString("VEINTE"),c.GetString("DIEZ"),c.GetString("CINCO"),c.GetString("DOS"),c.GetString("PESO"),c.GetString("CENTAVO"),fechatabulador3) - reqManager.ExecuteCommand(cmd , "envio_ins_tabulador_mon") - Next - c.Close - d.Close - b.Close - f.Close - End If - c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES") - d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") - b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") - f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") - d.Position = 0 - b.Position = 0 - f.Position = 0 - cuantosenvio = cuantosenvio + c.RowCount - If c.RowCount > 0 Then - For i = 0 To c.RowCount - 1 - c.Position=i - Dim cmd As DBCommand - Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) - Dim fechatabulador3 As String = fechatabulador(0) - cmd.Initialize - cmd.Name = "insert_tabulador_billetes_GUNA_VN" - cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"), d.GetString("RUTAA"),c.GetString("MIL"),c.GetString("QUINIENTOS"),c.GetString("DOCIENTOS"),c.GetString("CIEN"),c.GetString("CINCUENTA"),c.GetString("VEINTE"),fechatabulador3) - reqManager.ExecuteCommand(cmd , "envio_ins_tabulador_bill") - Next - c.Close - d.Close - b.Close - f.Close - End If - 'FIN TABULADOR - - - - c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_RUTA, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS where HVD_PRONOMBRE <> 'Cobranza Pendiente'") - - If c.RowCount > 0 Then - For i=0 To c.RowCount -1 - c.Position = i -' Log(c.GetString("HVD_CLIENTE")) - Private d4 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$) - d4.Position = 0 -' Log(d4.GetString("CAT_CL_RUTA")) - Private d5 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(Sum(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTEOR = '${c.GetString("HVD_CLIENTE")}' AND PE_PROID = '${c.GetString("HVD_PROID")}' AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$) - d5.Position = 0 - Private restacant As String = d5.GetString("PE_CANT") - d5.Close - - Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA")) - - Dim fecha3 As String = fecha1(0) -' Log(fecha3) - Dim hora() As String = Regex.Split("\.", fecha1(1)) -' Log(hora(0)) - - Dim sDate, sTime As String - DateTime.DateFormat = "dd/MM/yyyy" - DateTime.TimeFormat = "HH:mm:ss" - sDate = DateTime.Date(DateTime.Now) - sTime = DateTime.Time(DateTime.Now) - If c.GetString("HVD_RECHAZOCANT") <> "0" Then -' Log((c.GetString("HVD_RECHAZOCANT")-restacant)) - cmd.Initialize - - cmd.Name = "update_HVD_GUNA_VN2" -' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), c.GetString("HVD_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) - cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), Subs.traeRuta(c.GetString("HVD_CLIENTE")),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) - reqManager.ExecuteCommand(cmd, "update_hvd") -' Log("ENVIE RECHAZO") - Else - cmd.Initialize - cmd.Name = "update_HVD_GUNA_VN2" -' Log( c.GetString("CANTC")& c.GetString("HVD_CLIENTE")& c.GetString("HVD_PROID")&fecha3&" "&hora(0)& d4.GetString("CAT_CL_RUTA")&ALMACEN&l_ruta.Text&c.GetString("HVD_CODPROMO")&c.GetString("HVD_NUM_TICKET")& c.GetString("HVD_CANT")) - cmd.Parameters = Array As String("","","0",Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), Subs.traeRuta(c.GetString("HVD_CLIENTE")),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) - reqManager.ExecuteCommand(cmd, "update_hvd") - End If - d4.Close - Next - End If - c.Close - - Dim ab2 As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS"$) - Dim ab3 As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NULL"$) - Dim ab3_1 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(SUM(a_abono),0) AS SUMABO from ABONOS where a_tipoabono IS NULL"$) - ab3_1.Position = 0 - - Dim ab4 As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NOT NULL"$) - Dim ab4_1 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(SUM(a_abono),0) AS SUMABO from ABONOS where a_tipoabono IS NOT NULL"$) - ab4_1.Position = 0 - - Dim pa2 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") - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_drop_rep_GUNA_VN2" - cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO",l_pagaresnuevos.Text, pa2.RowCount, l_pagarescobrados.Text,ab2.RowCount,NumberFormat2( ab3_1.GetDouble("SUMABO"),0,2,2,False), ab3.RowCount, NumberFormat2( ab4_1.GetDouble("SUMABO"),0,2,2,False), ab4.RowCount ) - reqManager.ExecuteCommand(cmd , "inst_drop") - +' 'ABONOS +' d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") +' d.Position = 0 +' Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NULL"$) +' Log(ab.RowCount) +' If ab.RowCount > 0 Then +' For i=0 To ab.RowCount -1 +' ab.Position = i +'' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$) +' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$) +' ab1.Position = 0 +' +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_abono_REP_GUNA_VN2" +' cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), NumberFormat2(ab.GetString("a_abono"),0,2,2,False), ab.GetString("a_fecha"),ALMACEN,"REPARTO",d.GetString("RUTAA"), "", ab.GetString("TIPO_PAGO"),ab.GetString("a_ticket"),ab.GetString("a_numpago")) +' reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$) +' ab1.Close +' Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$) +' Next +' End If +' ab.Close +' d.Close +' +' +' c=Starter.skmt.ExecQuery("SELECT RUTA_PREV, RUTA_REP, FECHA_PREV, FECHA, ALMACEN, NUM_TICKET, MONTO, METODO_PAGO, USUARIO, CLIENTE, NUM_PAGO FROM CONTADOS") +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_CONTADO_GUNA_VN" +' cmd.Parameters = Array As Object(c.GetString("RUTA_PREV"), c.GetString("RUTA_REP"), c.GetString("FECHA_PREV"), c.GetString("ALMACEN"), c.GetString("NUM_TICKET"),NumberFormat2(c.GetString("MONTO").Replace(",",""),0,2,2,False) , c.GetString("METODO_PAGO"), c.GetString("USUARIO"), c.GetString("CLIENTE"), c.GetString("NUM_PAGO")) +' reqManager.ExecuteCommand(cmd , "ins_CONTADOS") +' Next +' c.Close +' End If +' +' 'ABONOS NUEVOS +' d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") +' d.Position = 0 +' Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NOT NULL"$) +' Log(ab.RowCount) +' If ab.RowCount > 0 Then +' For i=0 To ab.RowCount -1 +' ab.Position = i +'' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NOT NULL"$) +' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NOT NULL"$) +' ab1.Position = 0 +' +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_abono_REP_GUNA_VN2" +' cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), NumberFormat2(ab.GetString("a_abono"),0,2,2,False), ab.GetString("a_fecha"),ALMACEN,"REPARTO",d.GetString("RUTAA"), "1", ab.GetString("TIPO_PAGO"),ab.GetString("a_ticket"),ab.GetString("a_numpago") ) +' reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$) +' ab1.Close +' Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$) +' Next +' End If +' ab.Close +' d.Close +' +'' pedido +' c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO") +' cuantosenvio = cuantosenvio + c.RowCount +' If c.RowCount>0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_pedido_REP_GUNA_VN" +' cmd.Parameters = Array As Object(c.GetString("PE_TIPO"), c.GetString("PE_RUTA"), c.GetString("PE_CEDIS"), c.GetString("PE_COSTO_TOT"), c.GetString("PE_COSTOU"), c.GetString("PE_CANT"), c.GetString("PE_PRONOMBRE"), c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"), c.GetString("PE_FECHA"), c.GetString("PE_USUARIO"), c.GetString("PE_CLIENTEOR"), c.GetString("PE_CAJAS"), c.GetString("PE_BCAJAS"), c.GetString("CONSECUTIVO"), c.GetString("FECHA_PREV"), c.GetString("RUTA_REP"), c.GetString("PE_REGALO")) +' reqManager.ExecuteCommand(cmd , "envio_ins_pedido") +' Next +' c.Close +' End If +' +' 'TABULADOR +' c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS") +' d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") +' b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") +' f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") +' d.Position = 0 +' b.Position = 0 +' f.Position = 0 +' cuantosenvio = cuantosenvio + c.RowCount +' If c.RowCount > 0 Then +' For i = 0 To c.RowCount - 1 +' c.Position=i +' Dim cmd As DBCommand +' Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) +' +' Dim fechatabulador3 As String = fechatabulador(0) +' cmd.Initialize +' cmd.Name = "insert_tabulador_monedas_GUNA_VN" +' cmd.Parameters = Array As Object(d.GetString("RUTAA"), b.GetString("ID_ALMACEN"),c.GetString("VEINTE"),c.GetString("DIEZ"),c.GetString("CINCO"),c.GetString("DOS"),c.GetString("PESO"),c.GetString("CENTAVO"),fechatabulador3) +' reqManager.ExecuteCommand(cmd , "envio_ins_tabulador_mon") +' Next +' c.Close +' d.Close +' b.Close +' f.Close +' End If +' c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES") +' d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") +' b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") +' f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") +' d.Position = 0 +' b.Position = 0 +' f.Position = 0 +' cuantosenvio = cuantosenvio + c.RowCount +' If c.RowCount > 0 Then +' For i = 0 To c.RowCount - 1 +' c.Position=i +' Dim cmd As DBCommand +' Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) +' Dim fechatabulador3 As String = fechatabulador(0) +' cmd.Initialize +' cmd.Name = "insert_tabulador_billetes_GUNA_VN" +' cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"), d.GetString("RUTAA"),c.GetString("MIL"),c.GetString("QUINIENTOS"),c.GetString("DOCIENTOS"),c.GetString("CIEN"),c.GetString("CINCUENTA"),c.GetString("VEINTE"),fechatabulador3) +' reqManager.ExecuteCommand(cmd , "envio_ins_tabulador_bill") +' Next +' c.Close +' d.Close +' b.Close +' f.Close +' End If +' 'FIN TABULADOR +' +' +' +' c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_RUTA, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS where HVD_PRONOMBRE <> 'Cobranza Pendiente'") +' +' If c.RowCount > 0 Then +' For i=0 To c.RowCount -1 +' c.Position = i +'' Log(c.GetString("HVD_CLIENTE")) +' Private d4 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$) +' d4.Position = 0 +'' Log(d4.GetString("CAT_CL_RUTA")) +' Private d5 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(Sum(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTEOR = '${c.GetString("HVD_CLIENTE")}' AND PE_PROID = '${c.GetString("HVD_PROID")}' AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$) +' d5.Position = 0 +' Private restacant As String = d5.GetString("PE_CANT") +' d5.Close +' +' Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA")) +' +' Dim fecha3 As String = fecha1(0) +'' Log(fecha3) +' Dim hora() As String = Regex.Split("\.", fecha1(1)) +'' Log(hora(0)) +' +' Dim sDate, sTime As String +' DateTime.DateFormat = "dd/MM/yyyy" +' DateTime.TimeFormat = "HH:mm:ss" +' sDate = DateTime.Date(DateTime.Now) +' sTime = DateTime.Time(DateTime.Now) +' If c.GetString("HVD_RECHAZOCANT") <> "0" Then +'' Log((c.GetString("HVD_RECHAZOCANT")-restacant)) +' cmd.Initialize +' +' cmd.Name = "update_HVD_GUNA_VN2" +'' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), c.GetString("HVD_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) +' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), Subs.traeRuta(c.GetString("HVD_CLIENTE")),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) +' reqManager.ExecuteCommand(cmd, "update_hvd") +'' Log("ENVIE RECHAZO") +' Else +' cmd.Initialize +' cmd.Name = "update_HVD_GUNA_VN2" +'' Log( c.GetString("CANTC")& c.GetString("HVD_CLIENTE")& c.GetString("HVD_PROID")&fecha3&" "&hora(0)& d4.GetString("CAT_CL_RUTA")&ALMACEN&l_ruta.Text&c.GetString("HVD_CODPROMO")&c.GetString("HVD_NUM_TICKET")& c.GetString("HVD_CANT")) +' cmd.Parameters = Array As String("","","0",Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), Subs.traeRuta(c.GetString("HVD_CLIENTE")),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) +' reqManager.ExecuteCommand(cmd, "update_hvd") +' End If +' d4.Close +' Next +' End If +' c.Close +' +' Dim ab2 As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS"$) +' Dim ab3 As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NULL"$) +' Dim ab3_1 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(SUM(a_abono),0) AS SUMABO from ABONOS where a_tipoabono IS NULL"$) +' ab3_1.Position = 0 +' +' Dim ab4 As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_tipoabono IS NOT NULL"$) +' Dim ab4_1 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(SUM(a_abono),0) AS SUMABO from ABONOS where a_tipoabono IS NOT NULL"$) +' ab4_1.Position = 0 +' +' Dim pa2 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") +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_drop_rep_GUNA_VN2" +' cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO",l_pagaresnuevos.Text, pa2.RowCount, l_pagarescobrados.Text,ab2.RowCount,NumberFormat2( ab3_1.GetDouble("SUMABO"),0,2,2,False), ab3.RowCount, NumberFormat2( ab4_1.GetDouble("SUMABO"),0,2,2,False), ab4.RowCount ) +' reqManager.ExecuteCommand(cmd , "inst_drop") +' ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) End Sub @@ -1476,7 +1515,7 @@ Sub JobDone(Job As HttpJob) For Each records() As Object In result.Rows Dim HVD_IMPRESO_RECHAZO As String = records(result.Columns.Get("HVD_IMPRESO_RECHAZO")) Log(HVD_IMPRESO_RECHAZO) -' HVD_IMPRESO_RECHAZO=0 + HVD_IMPRESO_RECHAZO=0 If HVD_IMPRESO_RECHAZO = 0 Then LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red) If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión") @@ -1549,7 +1588,7 @@ Sub JobDone(Job As HttpJob) For Each records() As Object In result.Rows Dim HVD_IMPRESO_RECHAZO As String = records(result.Columns.Get("HVD_IMPRESO_RECHAZO")) Log(HVD_IMPRESO_RECHAZO) -' HVD_IMPRESO_RECHAZO=0 + HVD_IMPRESO_RECHAZO=0 If HVD_IMPRESO_RECHAZO = 0 Then LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red) If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión") @@ -1572,7 +1611,7 @@ Sub JobDone(Job As HttpJob) For Each records() As Object In result.Rows Dim HVD_IMPRESO_RECHAZO As String = records(result.Columns.Get("HVD_IMPRESO_RECHAZO")) Log(HVD_IMPRESO_RECHAZO) -' HVD_IMPRESO_RECHAZO=0 + HVD_IMPRESO_RECHAZO=0 If HVD_IMPRESO_RECHAZO = 0 Then LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red) If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión") @@ -1603,7 +1642,7 @@ Sub JobDone(Job As HttpJob) For Each records() As Object In result.Rows Dim HVD_IMPRESO_RECHAZO As String = records(result.Columns.Get("HVD_IMPRESO_RECHAZO")) Log(HVD_IMPRESO_RECHAZO) -' HVD_IMPRESO_RECHAZO=0 + HVD_IMPRESO_RECHAZO=0 If HVD_IMPRESO_RECHAZO = 0 Then LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red) If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión") @@ -1627,7 +1666,7 @@ Sub JobDone(Job As HttpJob) For Each records() As Object In result.Rows Dim HVD_IMPRESO_RECHAZO As String = records(result.Columns.Get("HVD_IMPRESO_RECHAZO")) Log(HVD_IMPRESO_RECHAZO) -' HVD_IMPRESO_RECHAZO=0 + HVD_IMPRESO_RECHAZO=0 If HVD_IMPRESO_RECHAZO = 0 Then LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red) If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión") @@ -3787,6 +3826,53 @@ Sub imp_LIQUIDACION End Sub Private Sub connecta_LongClick +' +' c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_RUTA, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS where HVD_PRONOMBRE <> 'Cobranza Pendiente'") +' +' If c.RowCount > 0 Then +' For i=0 To c.RowCount -1 +' c.Position = i +'' Log(c.GetString("HVD_CLIENTE")) +' Private d4 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$) +' d4.Position = 0 +'' Log(d4.GetString("CAT_CL_RUTA")) +' Private d5 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(Sum(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTEOR = '${c.GetString("HVD_CLIENTE")}' AND PE_PROID = '${c.GetString("HVD_PROID")}' AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$) +' d5.Position = 0 +' Private restacant As String = d5.GetString("PE_CANT") +' d5.Close +' +' Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA")) +' +' Dim fecha3 As String = fecha1(0) +'' Log(fecha3) +' Dim hora() As String = Regex.Split("\.", fecha1(1)) +'' Log(hora(0)) +' +' Dim sDate, sTime As String +' DateTime.DateFormat = "dd/MM/yyyy" +' DateTime.TimeFormat = "HH:mm:ss" +' sDate = DateTime.Date(DateTime.Now) +' sTime = DateTime.Time(DateTime.Now) +' If c.GetString("HVD_RECHAZOCANT") <> "0" Then +'' Log((c.GetString("HVD_RECHAZOCANT")-restacant)) +' cmd.Initialize +' +' cmd.Name = "update_HVD_GUNA_VN2" +'' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), c.GetString("HVD_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) +' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1,Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), Subs.traeRuta(c.GetString("HVD_CLIENTE")),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) +' reqManager.ExecuteCommand(cmd, "update_hvd") +'' Log("ENVIE RECHAZO") +' Else +' cmd.Initialize +' cmd.Name = "update_HVD_GUNA_VN2" +'' Log( c.GetString("CANTC")& c.GetString("HVD_CLIENTE")& c.GetString("HVD_PROID")&fecha3&" "&hora(0)& d4.GetString("CAT_CL_RUTA")&ALMACEN&l_ruta.Text&c.GetString("HVD_CODPROMO")&c.GetString("HVD_NUM_TICKET")& c.GetString("HVD_CANT")) +' cmd.Parameters = Array As String("","","0",Subs.traeUsuario, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), Subs.traeRuta(c.GetString("HVD_CLIENTE")),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT")) +' reqManager.ExecuteCommand(cmd, "update_hvd") +' End If +' d4.Close +' Next +' End If +' c.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") diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index f2ddbbf8d0f7ad14795d3112a10cdaa377de9484..a6dc81974f5077a63b47eabe15b71d3b72a3cb8f 100644 GIT binary patch delta 2929 zcmZ{mdr(wm6u|c^Xx>$JVRusmM09}|LRbX_c?l?Q1^d?cBesfk8PGmZZ_I@3%qbLiZ=faexSH&i8%iZrugD z<|}p%V^k`YqfVvL(C@Bx2M0UH2}FsOB5Rp-)rS0%f}IFWG@<7AnuZ5b?Nibaf5 z7^gB$W1P-7gYja5P}Rjv4g~;t;sfnuL2eZbic8D`Jx{dozM;{#IMCHz*kOMz#H3Jyv0vX>;UkkcaFrTxAi(-s;1PsC+Ma1WD|H5 zkDPoAeuH^=V&5sfqo2|aa9!$Dn1Sx6Tfv_U4cL1+6avt2#-#ICnqotr8TW;b!_8-E zoz0|^_FkAtAbp&qbEFbxq4QZUA&};Rq}>BV84K0ozvo>j{6XdElnnDJ16LZ6+Uy&{CSi(=KNg1v@Q#oQAGwfThw;O0ABv) z`3_IIptV_``IZLzyBZGV8bPoE?gOaiWGt=-^Sykiih`yW&QHluBqeO@rF+!~-hUVo> znvdz-2=mc;#RUhtwd%nTxppNv2uNyTc_E49AlLW*s2sq-aB9PjDNv1 zek4yirQM|=IOAF)^#(cs&Qi;kPfn5|Tp~WZ z_6sD_l75)Cnr_qEddFmiMUwog>V<$U;*wA+hV5z)d zNq>ZHsWKR)VZ?nK^{@)W+V!WJ;cf$%f>&^-Ro!X~BF6HP)&z`1O zgBu-I`O_f%k8~rUmfwBWgpcp&@Sl=6wPm>N`bz&)*c2upPbd f$sWO|p(#12JsC}*0aQ}F&F(`jp4z;<8dU!QwrZJc delta 2634 zcmZ{ldr*{B6u`f;OXQO5ZVMVuL0B0_5k(QilJrwWjA;cZT8=b%4B9?WC4>Ia>gB z%U56g8*JWW<3lowB#dM>NjT#O#&d`xN#>H67)LRVW*oyfmhrr&Y?I=i4y1U-35@46 zUcfk!@j}K)jLnP}Fu zl1+MxU^B@Ul3~tgyp{1b#s!SGGv2{?C*xg=3++txf7?Egq<0waX8bPWBF3V9!<#N< zyoYfK<5I?Z1&h9k?8}(qJ;wVO?`K?2{60wqNhRYC7=I`qcijw-DSPTXHDkw+X2E*v zx`MnNo8|c)pE=8aPAGShKM!n+L(3QLZVyN=9s?+W!50BS(6VTWv%?z zdY@SIv%28EdNXF!)xs+n+UtcADhznxnhwAF%A00V>O;T-i|QYN=QCPQMe9Y{R5|f@ zB!D-W#9&W@f#~MfVJaWMSU}1*= ze`_#ccD*n7;kk~zs4sR0f1KDjQ#BFL^t(3%V18pTeGfGjLm*oEOqkI$U1bEkv@HNn zHfg{}DnIOP>ca9SBc3SM;MpcE&E9Jsz$48@ynjlA-Oc`3Rc08f#%Vlv%7g>W1~#X~ z!v{68C1>}*=o7Yn|vg{k(E ziOei52Hn&VOXRosLoimi)WI~eb;IP=xzwtCt%3S!j+TJgwg`OOTIw;K6e_WS83f}0 zLfk+}6N;7RCTV8U+$=GV6DvI2goPI=LA;eO3#*yf)9i;%ZQCJ?3O66mw*>+1_h>ME zMa>Q#?ZO9bMyx!h(S?)u({yLck>?8mB8J{IQO2QPXOLSI+1#L=J3pzZsp%FegkaOhhM@cMU$|ob&M(mFvJ$1U+Ud>if#Mpif zUiir!Tl5tZ@KWl^j zpSoa`Z45r_{}?m--O;zxbvP-y%eU?Z;>mukYWZL$VFQ#&>0Nj1xfiWl<+vK<