From 80173f1f35f39bed8ed06434052ccbab4d32775f Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 19 Sep 2024 15:44:57 -0600 Subject: [PATCH] - VERSION 4.09.17 - Se quito el logo de los cacahuates (NATTSU) del ticket. --- B4A/C_Cliente.bas | 12 ++++++------ B4A/KelloggsV4.b4a | 2 +- B4A/KelloggsV4.b4a.meta | 4 ++-- B4A/MAPA_RUTAS.bas | 2 +- 4 files changed, 10 insertions(+), 10 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 2d025be..94c6416 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -1228,12 +1228,12 @@ Sub Imprime_ticket Printer1.PrintImage(myimage) Printer1.WriteString(Printer1.UNREVERSE) - Dim bmp As Bitmap - bmp.InitializeResize(File.DirAssets, "cacahuates_original2.jpg", 376, 129, True) 'ignore - Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp) - myimage = Printer1.DitherImage2D(myimage, 128) - myimage= Printer1.PackImage(myimage) - Printer1.PrintImage(myimage) +' Dim bmp As Bitmap +' bmp.InitializeResize(File.DirAssets, "cacahuates_original2.jpg", 376, 129, True) 'ignore +' Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp) +' myimage = Printer1.DitherImage2D(myimage, 128) +' myimage= Printer1.PackImage(myimage) +' Printer1.PrintImage(myimage) Sleep(1000) If la_cuenta.Text = "0" Then Try diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index 97de445..0cf9e38 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -887,7 +887,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Kelloggs Venta #VersionCode: 3000 - #VersionName: 4.09.05 + #VersionName: 4.09.17 #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger:true diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index d9f06d3..4f22ec6 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -91,6 +91,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Principal,Class_Globals,0,0,Diseñador Visual,principal.bal,-100,3,Diseñador Visual,cliente.bal,-100,2,C_Cliente,Class_Globals,0,0,C_Cliente,B_IMP_Click,1041,0,Subs,borraPedidoClienteActual,1487,0,C_Cliente,BP_DOE_R_Click,4168,0,C_Cliente,BP_DOE_A_Click,4163,0,C_Principal,Subir_Click,556,1,C_Principal,B4XPage_Appear,472,0 +NavigationStack=C_Principal,Class_Globals,0,0,C_Cliente,Class_Globals,0,0,C_Cliente,B_IMP_Click,1041,0,Subs,borraPedidoClienteActual,1487,0,C_Cliente,BP_DOE_R_Click,4168,0,C_Cliente,BP_DOE_A_Click,4163,0,C_Principal,Subir_Click,556,1,C_Principal,B4XPage_Appear,472,0,C_Cliente,Imprime_ticket,1232,0,MAPA_RUTAS,MapFragment1_Ready,131,0 SelectedBuild=0 -VisibleModules=1,28,11,3,26,23,29,12,4,13 +VisibleModules=1,28,11,3,26,23,29,12,4,13,25 diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas index 10aa2ef..272d09c 100644 --- a/B4A/MAPA_RUTAS.bas +++ b/B4A/MAPA_RUTAS.bas @@ -138,7 +138,7 @@ Sub MapFragment1_Ready '''''''---------------------------- MARKER AZUL - POR VISITAR If azul = 1 Or todos = 1 Then c.IsInitialized - c=Starter.skmt.ExecQuery2("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_NUM_SERIEFISICO from kmt_info where CAT_CL_NOMBRE <>'VENTA ABORDO' AND CAT_CL_CODIGO NOT IN (Select PE_CLIENTE from PEDIDO) AND CAT_CL_CODIGO NOT In (Select NV_CLIENTE from NOVENTA) AND gestion <> '4' AND CAT_CL_CODIGO NOT LIKE 'N%' and CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'DIA_VISITA') and cat_cl_codigo <> 0 AND CAT_CL_TIPO_RUTA IN (?,?) ORDER BY CAT_CL_NUM_SERIEFISICO", Array As String(SEMANA, "SEMANAL")) + c=Starter.skmt.ExecQuery2("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_NUM_SERIEFISICO from kmt_info where CAT_CL_NOMBRE <> 'VENTA ABORDO' AND CAT_CL_CODIGO NOT IN (Select PE_CLIENTE from PEDIDO) AND CAT_CL_CODIGO NOT In (Select NV_CLIENTE from NOVENTA) AND gestion <> '4' AND CAT_CL_CODIGO NOT LIKE 'N%' and CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'DIA_VISITA') and cat_cl_codigo <> 0 AND CAT_CL_TIPO_RUTA IN (?,?) ORDER BY CAT_CL_NUM_SERIEFISICO", Array As String(SEMANA, "SEMANAL")) ' skmt.Initialize(ruta,"kmt.db", True) Log($"Por visitar = ${c.RowCount}"$) If c.RowCount > 0 Then