diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index b55502f..3bf2d8d 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -565,7 +565,7 @@ Sub B4XPage_Appear
 '		
 '	End If
 
-	If (almacen = 81 Or almacen = 94) Then
+	If (almacen = 81 Or almacen = 94 OR Subs.traeAlmacen = 8 Or Subs.traeAlmacen = 92 ) Then
 		HIST.Visible = True
 '		b_cxc.Visible = True
 		b_noEntrega.Visible = True
@@ -840,7 +840,7 @@ Sub gest_Click
 							
 								MsgboxAsync($"Para poder hacer una entrega se necesita liberar '${creditofaltante}' de credito."$,"Atención")
 							
-'								checacredito
+								checacredito
 							End If
 '					Else If cliecred.GetString("CAT_CL_LIMITECREDITO") >= u.GetString("SALDO_PENDIENTE") + l_total.Text.Replace(",","") Then 'AQUI VAMOS A VALIDAR SI EL CREDITO ALCANZA'
 '						MsgboxAsync("Para poder hacer una entrega se necesita liquidar el(los) pagare(s)","Atención")
@@ -850,7 +850,7 @@ Sub gest_Click
 							Dim creditofaltante As Float = 	(cliecred.GetString("CAT_CL_LIMITECREDITO") - ( u.GetString("SALDO_PENDIENTE") + l_total.Text.Replace(",",""))) * -1
 							
 							MsgboxAsync($"Para poder hacer una entrega se necesita liberar '${creditofaltante}' de credito."$,"Atención")
-'							checacredito
+							checacredito
 						End If
 					Else If u.GetString("SALDO_PENDIENTE") = 0 Then
 						checacredito
@@ -910,7 +910,7 @@ Sub checacredito
 			limite_credito = 0
 			If CREDITO = 1 And x1.GetString("CAT_CL_LIMITECREDITO") <> 0 Then '''' se debe de cambiar a si acepta o no credito, aparte de tener la bandera a credito
 				
-				If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 94 Or Subs.traeAlmacen = 6 Then
+				If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 94 Or Subs.traeAlmacen = 88 Or Subs.traeAlmacen = 92  Or Subs.traeAlmacen = 6 Then
 					
 					Log(12)
 					escreditoono = 1
@@ -981,7 +981,7 @@ Sub checacredito
 			limite_credito = 0
 			If CREDITO = 1 And x1.GetString("CAT_CL_LIMITECREDITO") <> 0 Then '''' se debe de cambiar a si acepta o no credito, aparte de tener la bandera a credito
 				
-				If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 6 Then
+				If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 94 Or Subs.traeAlmacen = 88 Or Subs.traeAlmacen = 92  Or Subs.traeAlmacen = 6 Then
 					
 					
 					Dim c4 As Cursor = Starter.skmt.ExecQuery("SELECT IFNULL(CAT_CL_VCREDITO,0) AS CAT_CL_VCREDITO, IFNULL(CAT_CL_VCODIGO,0) AS CAT_CL_VCODIGO FROM kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 6362bf7..68f11be 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -225,7 +225,7 @@ Sub B4XPage_Appear
 	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 = '0050377607'")
 '	Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 0  WHERE CAT_CL_CODIGO = '0050377607'")
-'	Starter.skmt.ExecNonQuery("DELETE FROM CODIGO_CREDITO where CLIENTE = '0050392381'")
+'	Starter.skmt.ExecNonQuery("DELETE FROM CODIGO_CREDITO where CLIENTE = '0052192690'")
 '	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
diff --git a/B4A/guna_reparto.b4a b/B4A/guna_reparto.b4a
index 04b8fd4..d314545 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.04.02_01
+	#VersionName: 6.04.02
 	'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 6e23587..55889f8 100644
--- a/B4A/guna_reparto.b4a.meta
+++ b/B4A/guna_reparto.b4a.meta
@@ -97,6 +97,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Subs,traeCliente,784,0,Subs,traefECHAPREV,1087,0,Tracker,CreateLocationRequest,145,0,C_Cliente,HIST_Click,1446,0,C_Cliente,gest_Click,834,0,C_DetalleVenta,b_prodMenos_Click,576,0,C_Principal,Class_Globals,0,0,Subs,guardaAppInfo,1164,0,Main,Activity_Create,25,0,C_Principal,B4XPage_Appear,219,0
+NavigationStack=C_Cliente,GPS_LocationChanged,628,0,C_Cliente,B4XPage_Appear,561,1,C_Cliente,checacredito,977,1,C_Cliente,B_IMP_Click,2199,0,C_Cliente,imp,7080,0,barcodeGenerator,valorDigitoCODE128,584,0,barcodeGenerator,codigoDigitoCODE128,685,0,QRGenerator,Class_Globals,12,0,C_Principal,cargaGeneral,1349,0,C_Principal,B4XPage_Appear,221,0
 SelectedBuild=0
-VisibleModules=2,17,5,6,8,10,31,30,28,7
+VisibleModules=2,17,5,6,8,10,31,30,28,7,3,29