From 25b16f0b258bca4cb012f7d4d2d15558d1c6cb9b Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 16 Apr 2024 10:52:57 -0600 Subject: [PATCH] - Cambios en MAPA_RUTAS para que el numero del globito sea consecutivo y no "numero de serie" - Cambio en cliente, para que la variable CREDITO no se use para restringir venta, solo se usa para mostrar el tipo de forma de pago en el ticket. --- B4A/C_Cliente.bas | 29 ++++++++++++++++------------- B4A/C_Principal.bas | 1 + B4A/Durakelo.b4a.meta | 4 ++-- B4A/MAPA_RUTAS.bas | 12 ++++++------ 4 files changed, 25 insertions(+), 21 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 67f5577..dc3501d 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -255,6 +255,12 @@ Sub B4XPage_Appear m_lon =c.GetString("CAT_CL_LONG") FACTURA = c.GetString("CAT_CL_BFACTURA") CREDITO = c.GetString("CAT_CL_BCREDITO") + '#################################################################################### + '######## Ponemos CREDITO en CERO porque ahora se esta usando para ################# + '######## INFO en el TICKET y no para restringir venta ################# + '#################################################################################### + CREDITO = 0 + '#################################################################################### If l_total.Text <> Null Then @@ -266,16 +272,6 @@ Sub B4XPage_Appear ' b_factura.Visible = True ' End If End If - - If CREDITO = "1" Then - Msgbox("ALTO","Este cliente no se le puede vender ya que tienen adeudo en su crédito") - B_VENTA.Visible = False - gest.Visible = False - Else - B_VENTA.Visible = True - gest.Visible = True - - End If If c.GetString("CAT_CL_NUM_SERIEFISICO") = "0" Then L_QR.Visible = True @@ -320,8 +316,7 @@ Sub B4XPage_Appear If PASA_IMP = "1" Then B_IMP.Enabled = True End If - '''''''''Agregar la parte de si tiene credito o no tiene credito - If la_cuenta.Text="0" Then + If la_cuenta.Text = "0" Then B_VENTA.Visible = False gest.Visible = False Else @@ -353,8 +348,16 @@ Sub B4XPage_Appear B_IMP2.Visible = False B_INV.Visible = False Guardar.Visible = False -End If + End If + If CREDITO = "1" Then + Msgbox("A este cliente no se le puede vender ya que tiene adeudo en su crédito","ALTO") + B_VENTA.Visible = False + gest.Visible = False + Else + B_VENTA.Visible = True + gest.Visible = True + End If c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL")) c.Position =0 diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index e4fc8fa..bdc6c59 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1133,6 +1133,7 @@ Sub JobDone(Job As HttpJob) Dim CAT_CL_BFACTURA As String = records(RESULT.Columns.Get("CAT_CL_BFACTURA")) Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BBLOQUEOCRED")) skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BFACTURA,CAT_CL_BCREDITO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BFACTURA,CAT_CL_BCREDITO)) + Log(">>>>>>>> " & CAT_CL_BCREDITO) Next skmt.TransactionSuccessful Catch diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 39b7a2e..a30cd3a 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -73,6 +73,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Productos,b_rmi_Click,1464,0,C_Productos,b_prodMas_Click,652,0,Subs,actualizaProducto,783,0,C_Productos,b_terminar1_Click,828,0,C_Productos,lv_prodsPedido_ItemLongClick,1082,5,Visual Designer,productos.bal,-100,2,Subs,revisaRMIs,1429,6,C_Productos,B4XPage_Appear,194,0,C_Productos,B4XPage_CloseRequest,505,0,C_Productos,b_rmi_mas_Click,1448,2 +NavigationStack=C_Principal,Subir_Click,600,0,MAPA_RUTAS,Activity_Create,106,0,MAPA_RUTAS,MapFragment1_Ready,214,6,Visual Designer,Cliente.bal,-100,1,C_Principal,connecta_Click,1964,0,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,938,0,C_Principal,JobDone,1127,6,C_Cliente,B4XPage_Created,179,0,C_Cliente,B4XPage_Appear,253,6,C_Cliente,Class_Globals,27,0 SelectedBuild=0 -VisibleModules=1,2,10,4,5,6,8,9,11,24,23 +VisibleModules=1,2,10,4,5,6,8,9,11,24,21 diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas index 0c9d5c0..ddac56a 100644 --- a/B4A/MAPA_RUTAS.bas +++ b/B4A/MAPA_RUTAS.bas @@ -139,8 +139,8 @@ Sub MapFragment1_Ready CODIGO=c.GetString("CAT_CL_CODIGO") Tienda= c.GetString("CAT_CL_NOMBRE") NumSerie=c.GetInt("CAT_CL_NUM_SERIEFISICO") - - MARK_AZUL = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO,LoadBitmap(File.DirAssets, NumSerie &".png")) + Log($"${File.DirAssets} - ${NumSerie}.png - ${c.RowCount} - ${i}"$) + MARK_AZUL = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO,LoadBitmap(File.DirAssets, i &".png")) MARK_AZUL.Snippet = Tienda ' MARK_AZUL = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO, gmap.HUE_BLUE) ' MARK_AZUL.Snippet = Tienda @@ -162,7 +162,7 @@ Sub MapFragment1_Ready CODIGO=c2.GetString("CAT_CL_CODIGO") Tienda= c2.GetString("CAT_CL_NOMBRE") NumSerie=c2.GetInt("CAT_CL_NUM_SERIEFISICO") - MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, NumSerie&"marker-verde-"&".png")) + MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, i&"marker-verde-"&".png")) MARK_VERDE.Snippet = Tienda ' MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN) ' MARK_VERDE.Snippet = Tienda @@ -180,7 +180,7 @@ Sub MapFragment1_Ready Tienda= c2.GetString("CAT_CL_NOMBRE") NumSerie=c2.GetInt("CAT_CL_NUM_SERIEFISICO") - MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, NumSerie&"marker-verde"&".png")) + MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, i&"marker-verde"&".png")) MARK_VERDE.Snippet = Tienda ' MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN) ' MARK_VERDE.Snippet = Tienda @@ -201,7 +201,7 @@ Sub MapFragment1_Ready LatitudRu = c3.GetDouble("CAT_CL_LAT") Tienda= c3.GetString("CAT_CL_NOMBRE") NumSerie=c3.GetInt("CAT_CL_NUM_SERIEFISICO") - MARK_ROJO = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, NumSerie &"marker-rojo" & ".png")) + MARK_ROJO = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, i &"marker-rojo" & ".png")) MARK_ROJO.Snippet = Tienda ' MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED) ' MARK_ROJO.Snippet = Tienda @@ -218,7 +218,7 @@ Sub MapFragment1_Ready LatitudRu = c3.GetDouble("CAT_CL_LAT") Tienda= c3.GetString("CAT_CL_NOMBRE") NumSerie=c3.GetInt("CAT_CL_NUM_SERIEFISICO") - MARK_ROJO = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, "marker-rojo-" & NumSerie &".png")) + MARK_ROJO = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, "marker-rojo-" & i &".png")) MARK_ROJO.Snippet = Tienda ' MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED) ' MARK_ROJO.Snippet = Tienda