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 f2ddbbf..a6dc819 100644 Binary files a/B4A/Files/cliente.bal and b/B4A/Files/cliente.bal differ diff --git a/B4A/guna_reparto.b4a b/B4A/guna_reparto.b4a index 10aa983..ee94a6b 100644 --- a/B4A/guna_reparto.b4a +++ b/B4A/guna_reparto.b4a @@ -262,7 +262,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Guna Reparto #VersionCode: 1 - #VersionName: 6.02.20 + #VersionName: 6.02.26 '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 00eabcf..1e6c66f 100644 --- a/B4A/guna_reparto.b4a.meta +++ b/B4A/guna_reparto.b4a.meta @@ -97,6 +97,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,JobDone,1555,0,B4XMainPage,Class_Globals,1281,0,B4XMainPage,B4XPage_Created,1299,1,B4XMainPage,Initialize,1298,0,C_Principal,B_carga_Click,2277,0,C_Principal,e_ruta_EnterPressed,2397,0,C_Principal,envioinfo,1116,2,Subs,traeRuta,800,0,C_Principal,trabajar_Click,827,0,C_Principal,JobDone,1472,0 +NavigationStack=C_Cliente,imp,5942,1,C_Cliente,B_IMP_Click,1557,1,C_Cliente,Guardado,1302,0,Main,Activity_Create,32,0,C_Principal,JobDone,1660,0,Main,Activity_ActionBarHomeClick,37,0,MAPA_RUTAS,MapFragment1_Ready,146,0,C_Principal,envioinfo,992,0,C_Principal,Class_Globals,7,0,C_Principal,B4XPage_Appear,215,0 SelectedBuild=0 VisibleModules=2,17,5,6,8,10,31,30,28,7