diff --git a/colonia2.bas b/colonia2.bas index 23f28ec..d114d8a 100644 --- a/colonia2.bas +++ b/colonia2.bas @@ -26,7 +26,7 @@ Sub Globals Dim ListView1 As ListView Dim entro As String Dim lfila As Label - Dim marca As String + Dim marca As String Dim tipo As String Private BUSCA As EditText Dim ya_entro As String @@ -90,13 +90,13 @@ Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: 'Activity.LoadLayout("Layout1") Activity.RemoveAllViews - Activity.LoadLayout("PRODUCTOS") + Activity.LoadLayout("PRODUCTOS") 'Dim ruta As String ' valido donde escribo el archivo de la base de datos de kmt ruta = File.DirInternal Panel1.Visible= False ' se crea o no el archivo de la base de ddatos de kmt - 'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE + 'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE 'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA 'SI SE REGRESA A ESTE ACTIVIDAD. If File.Exists(ruta, "kmt.db") = False Then @@ -148,7 +148,7 @@ Sub Activity_Resume If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i - ' bmp = LoadBitmap(File.DirAssets, "palomita_verde.png") + ' bmp = LoadBitmap(File.DirAssets, "palomita_verde.png") ListView1.AddTwoLines(c.GetString("CAT_GP_CLASIF"),c.GetString("CUANTOS")) @@ -165,9 +165,9 @@ Sub Activity_Resume End If c.Close -If PERFIL = "V-COSTO" Then - skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_GP_ID FROM LISTA_PRECIOS WHERE NLISTA = '9' AND PRECIO = '0')") -End If + If PERFIL = "V-COSTO" Then + skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_GP_ID FROM LISTA_PRECIOS WHERE NLISTA = '9' AND PRECIO = '0')") + End If End Sub Sub Activity_Pause (UserClosed As Boolean) @@ -246,56 +246,56 @@ Sub ListView1_ItemClick (Position As Int, Value As Object) End Sub Sub Activity_KeyPress (key As Int) As Boolean - ' BACK key pressed - If key=KeyCodes.KEYCODE_BACK Then - ya_entro ="0" + ' BACK key pressed + If key=KeyCodes.KEYCODE_BACK Then + ya_entro ="0" - If entro = "4" Then - entro = "3" - Activity_Resume - Return True - Else If entro = "3" Then - ' entro = "2" - ' Activity_Resume - ' Return True - ' Else If entro = "2" Then - ' entro = "1" - ' Activity_Resume - ' Return True - 'Else If entro = "1" Then + If entro = "4" Then + entro = "3" + Activity_Resume + Return True + Else If entro = "3" Then + ' entro = "2" + ' Activity_Resume + ' Return True + ' Else If entro = "2" Then + ' entro = "1" + ' Activity_Resume + ' Return True + 'Else If entro = "1" Then ' I want to capture the key here so I return True StartActivity(fila) - Return False - End If - End If - ' Returning False signals the system to handle the key + Return False + End If + End If + ' Returning False signals the system to handle the key End Sub Sub BUSCA_TextChanged (Old As String, New As String) q_buscar = "%" & BUSCA.Text & "%" skmt.Initialize(ruta,"kmt.db", True) - ' c=skmt.ExecQuery2("select CAT_GP_NOMBRE from cat_gunaprod where CAT_GP_ALMACEN > 0 and CAT_GP_NOMBRE like ? AND cat_gp_clasif NOT IN (?,?,?,?,?,?,?,?,?,?) order by CAT_GP_NOMBRE asc", Array As String(q_buscar, "PROCTER","PROMOS","TRES MONTES","CAMPARI","CAMPARI-PRO","CLOROX DE MEXICO","MARS","CONAGRA","VERDE VALLE","MEAD JOHNSON")) + ' c=skmt.ExecQuery2("select CAT_GP_NOMBRE from cat_gunaprod where CAT_GP_ALMACEN > 0 and CAT_GP_NOMBRE like ? AND cat_gp_clasif NOT IN (?,?,?,?,?,?,?,?,?,?) order by CAT_GP_NOMBRE asc", Array As String(q_buscar, "PROCTER","PROMOS","TRES MONTES","CAMPARI","CAMPARI-PRO","CLOROX DE MEXICO","MARS","CONAGRA","VERDE VALLE","MEAD JOHNSON")) c=skmt.ExecQuery2("select CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO,CAT_GP_IMG from " & query & " where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_NOMBRE like ? and CAT_GP_CLASIF <> ? and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID) order by CAT_GP_NOMBRE asc", Array As String(q_buscar,"PROMOS")) 'and CAT_GP_CLASIF <> ? group by CAT_GP_CLASIF order by CAT_GP_CLASIF asc", Array As String("PROMOS") ) - ListView1.Clear + ListView1.Clear - Dim ins As InputStream - Dim bmp As Bitmap - Dim jpeg() As Byte - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - jpeg = c.GetBlob("CAT_GP_IMG") - ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length) - bmp.Initialize2(ins) + Dim ins As InputStream + Dim bmp As Bitmap + Dim jpeg() As Byte + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + jpeg = c.GetBlob("CAT_GP_IMG") + ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length) + bmp.Initialize2(ins) - ListView1.AddTwoLines(c.GetString("CAT_GP_NOMBRE"),"Existencia " & c.GetString("CAT_GP_ALMACEN") & " Precio $" & c.GetString("CAT_GP_PRECIO")) - Next - End If + ListView1.AddTwoLines(c.GetString("CAT_GP_NOMBRE"),"Existencia " & c.GetString("CAT_GP_ALMACEN") & " Precio $" & c.GetString("CAT_GP_PRECIO")) + Next + End If @@ -383,7 +383,7 @@ Sub HACER_PEDIDO End If Else - l_precio.Text = c.GetDouble("CAT_GP_PRECIO") + l_precio.Text = c.GetDouble("CAT_GP_PRECIO") End If l_bodega.Text = c.GetString("CAT_GP_ALMACEN") PROMOS_VENTAS = c.GetString("CAT_GP_ALMACEN") @@ -475,49 +475,49 @@ Sub HACER_PEDIDO End If -If marca <> "PROMOS" Then + If marca <> "PROMOS" Then -If PERFIL = "PREVENTA" Then + If PERFIL = "PREVENTA" Then -t_precio.Visible = False -LV_PRECIOS.Visible = False + t_precio.Visible = False + LV_PRECIOS.Visible = False -ELSE IF PERFIL = "V-ESPECIAL" Then - c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('5','6','7','8','10') AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC") - LV_PRECIOS.Clear - Dim label1 As Label - label1 = LV_PRECIOS.TwoLinesLayout.Label - label1.TextSize = 10 - label1.TextColor = Colors.Black - Dim label2 As Label - label2 = LV_PRECIOS.TwoLinesLayout.SecondLabel - label2.TextSize = 10 - label2.TextColor = Colors.Black + ELSE IF PERFIL = "V-ESPECIAL" Then + c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('5','6','7','8','10') AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC") + LV_PRECIOS.Clear + Dim label1 As Label + label1 = LV_PRECIOS.TwoLinesLayout.Label + label1.TextSize = 10 + label1.TextColor = Colors.Black + Dim label2 As Label + label2 = LV_PRECIOS.TwoLinesLayout.SecondLabel + label2.TextSize = 10 + label2.TextColor = Colors.Black - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - LV_PRECIOS.AddTwoLines(c.GetString("NLISTA"),c.GetString("PRECIO")) - Next - End If -ELSE IF PERFIL = "V-MINI" Then - t_precio.Visible = False - LV_PRECIOS.Visible = False + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + LV_PRECIOS.AddTwoLines(c.GetString("NLISTA"),c.GetString("PRECIO")) + Next + End If + ELSE IF PERFIL = "V-MINI" Then + t_precio.Visible = False + LV_PRECIOS.Visible = False - c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '2' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC") - c.Position=0 - l_precio.Text = c.GetString("PRECIO") - c.Close -ELSE IF PERFIL = "V-COSTO" Then - - t_precio.Visible = False - LV_PRECIOS.Visible = False - - c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '9' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC") - c.Position=0 - l_precio.Text = c.GetString("PRECIO") + c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '2' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC") + c.Position=0 + l_precio.Text = c.GetString("PRECIO") c.Close -ELSE IF PERFIL = "V-SUPER" Then + ELSE IF PERFIL = "V-COSTO" Then + + t_precio.Visible = False + LV_PRECIOS.Visible = False + + c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '9' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC") + c.Position=0 + l_precio.Text = c.GetString("PRECIO") + c.Close + ELSE IF PERFIL = "V-SUPER" Then t_precio.Visible = False LV_PRECIOS.Visible = False @@ -527,59 +527,59 @@ ELSE IF PERFIL = "V-SUPER" Then l_precio.Text = c.GetString("PRECIO") c.Close -End If + End If -End If + End If -'' ESTO ES PARA NO PASAR DE LAS PROMOS ABORDO Y MANDARLAS AL MINIMO INICIO + '' ESTO ES PARA NO PASAR DE LAS PROMOS ABORDO Y MANDARLAS AL MINIMO INICIO If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" Then - If query = "cat_gunaprod2" Then - l_bodega.Text = PROMOS_VENTAS + If query = "cat_gunaprod2" Then + l_bodega.Text = PROMOS_VENTAS ' Msgbox("1","alerta") e=skmt.ExecQuery2("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID = ? ", Array As String(L_PROID.Text) ) - e.Position = 0 + e.Position = 0 - If e.GetString("CUANTOS") > 0 Then + If e.GetString("CUANTOS") > 0 Then ' Msgbox("2","alerta") F=skmt.ExecQuery2("select CAT_DP_IDPROD, CAT_DP_PZAS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID = ? ", Array As String(L_PROID.Text) ) - 'se coloco el if por la mala promocion. + 'se coloco el if por la mala promocion. - For i=0 To F.RowCount -1 - F.Position=i - ' Msgbox(f.GetString("CAT_DP_IDPROD"),"alerta") + For i=0 To F.RowCount -1 + F.Position=i + ' Msgbox(f.GetString("CAT_DP_IDPROD"),"alerta") - c=skmt.ExecQuery2("select count(*) as CUANTOS from cat_gunaprod2 where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD"))) - c.Position=0 - If c.GetString("CUANTOS") > 0 Then + c=skmt.ExecQuery2("select count(*) as CUANTOS from cat_gunaprod2 where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD"))) + c.Position=0 + If c.GetString("CUANTOS") > 0 Then ' Msgbox("4","alerta") - h=skmt.ExecQuery2("select CAT_GP_NOMBRE, CAT_GP_ALMACEN from cat_gunaprod2 where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD"))) - h.Position=0 + h=skmt.ExecQuery2("select CAT_GP_NOMBRE, CAT_GP_ALMACEN from cat_gunaprod2 where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD"))) + h.Position=0 - If h.GetString("CAT_GP_ALMACEN") < l_bodega.Text * f.GetString("CAT_DP_PZAS") Then - l_bodega.Text = "1" - End If - 'skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta,Main.tipov,precio2)) - h.Close - else if c.GetString("CUANTOS") = 0 Then + If h.GetString("CAT_GP_ALMACEN") < l_bodega.Text * f.GetString("CAT_DP_PZAS") Then + l_bodega.Text = "1" + End If + 'skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta,Main.tipov,precio2)) + h.Close + else if c.GetString("CUANTOS") = 0 Then - l_bodega.Text = "0" - End If - c.Close + l_bodega.Text = "0" + End If + c.Close - Next + Next - f.Close - End If - e.Close - End If - '' ESTO ES PARA NO PASAR DE LAS PROMOS ABORDO Y MANDARLAS AL MINIMO FIN + f.Close + End If + e.Close + End If + '' ESTO ES PARA NO PASAR DE LAS PROMOS ABORDO Y MANDARLAS AL MINIMO FIN End If If clie_id="0" Then @@ -596,7 +596,7 @@ Sub guardar_Click ELSE If cantidad.Text > l_bodega.Text Then - Msgbox("Exede la existencia", "ADVERTENCIA") + Msgbox("Excede la existencia", "ADVERTENCIA") Else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C > 0 And cantidad.Text > 0 Then skmt.ExecNonQuery("delete from PROIDID") @@ -673,11 +673,11 @@ Sub guardar_Click cl_ruta = c.GetString("CAT_CL_RUTA") c.Close - Else - c=skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") - c.Position=0 - cl_ruta = c.GetString("CAT_CL_RUTA") - c.Close + Else + c=skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") + c.Position=0 + cl_ruta = c.GetString("CAT_CL_RUTA") + c.Close End If c=skmt.ExecQuery("select USUARIO from usuarioa") @@ -856,7 +856,7 @@ Sub guardar_Click If Main.tipov <> "ABORDO" Then skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") - End If + End If Panel1.Visible= False skmt.ExecNonQuery("delete from pedido3") @@ -1152,13 +1152,13 @@ Sub Terminar_Click End If End Sub Sub i_fotol_Click -i_fotol.Visible = False + i_fotol.Visible = False End Sub Sub DESC_PROMO_Click - skmt.ExecNonQuery("delete from PROIDID") - skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text)) + skmt.ExecNonQuery("delete from PROIDID") + skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text)) StartActivity(detalle_promo) End Sub @@ -1168,30 +1168,30 @@ Sub nopromo_Click CAMBIOS = c.GetString("CAT_VA_VALOR") c.Close If CAMBIOS = "1" Then - c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_RMI WHERE HR_CLIENTE IN (Select CUENTA from cuentaa) and HR_PROID = '" & L_PROID.Text & "'") - c.Position =0 - EXISTE_CAMBIO = c.GetString("CUANTOS") - c.Close - If EXISTE_CAMBIO = 0 Then - EXISTE_CAMBIO = 0 - Else - c=skmt.ExecQuery("select SUM(HR_CANT) AS CUANTOS from HIST_RMI WHERE HR_CLIENTE IN (Select CUENTA from cuentaa) and HR_PROID = '" & L_PROID.Text & "'") + c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_RMI WHERE HR_CLIENTE IN (Select CUENTA from cuentaa) and HR_PROID = '" & L_PROID.Text & "'") c.Position =0 EXISTE_CAMBIO = c.GetString("CUANTOS") c.Close + If EXISTE_CAMBIO = 0 Then + EXISTE_CAMBIO = 0 + Else + c=skmt.ExecQuery("select SUM(HR_CANT) AS CUANTOS from HIST_RMI WHERE HR_CLIENTE IN (Select CUENTA from cuentaa) and HR_PROID = '" & L_PROID.Text & "'") + c.Position =0 + EXISTE_CAMBIO = c.GetString("CUANTOS") + c.Close - End If - If EXISTE_CAMBIO = 0 Then - Msgbox("NO SE VENDIO ESTE PRODUCTO, NO SE PUEDE CAMBIAR","ALERTA") - ELSE If cantidad.Text = "" Then - Msgbox("Cantidad no puede ser 0","Cantidad") - Else If cantidad.Text > EXISTE_CAMBIO Then + End If + If EXISTE_CAMBIO = 0 Then + Msgbox("NO SE VENDIO ESTE PRODUCTO, NO SE PUEDE CAMBIAR","ALERTA") + ELSE If cantidad.Text = "" Then + Msgbox("Cantidad no puede ser 0","Cantidad") + Else If cantidad.Text > EXISTE_CAMBIO Then Msgbox("Exede la existencia", "ADVERTENCIA") Else DateTime.DateFormat = "MM/dd/yyyy" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) - c=skmt.ExecQuery("Select CUENTA from cuentaa") + c=skmt.ExecQuery("Select CUENTA from cuentaa") c.Position=0 clie_id = c.GetString("CUENTA") c=skmt.ExecQuery("select USUARIO from usuarioa") @@ -1202,7 +1202,7 @@ Sub nopromo_Click skmt.ExecNonQuery2("update " & query & " set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text)) - cantidad.Text = "" + cantidad.Text = "" Panel1.Visible= False diff --git a/durakelo.b4a.meta b/durakelo.b4a.meta index 5f8d126..2297f36 100644 --- a/durakelo.b4a.meta +++ b/durakelo.b4a.meta @@ -68,11 +68,11 @@ ModuleClosedNodes23= ModuleClosedNodes24= ModuleClosedNodes3= ModuleClosedNodes4= -ModuleClosedNodes5=2,3,6,7,8,9 +ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9=2,5,6,8,10,11,12,13,24,36,37 -NavigationStack=DBRequestManager,HandleJob,197,0,DBRequestManager,WriteObject,119,0,DBRequestManager,requestTimes,294,0,colonia2,Activity_Create,94,0,colonia2,Globals,78,0,Main,Activity_Create,88,0,Main,Activity_Pause,282,0,seleccion,Globals,25,0,seleccion,cargar_Click,1055,5,seleccion,JobDone,1204,0 +NavigationStack=colonia2,Activity_Create,94,0,colonia2,Globals,78,0,Main,Activity_Create,88,0,Main,Activity_Pause,282,0,seleccion,Globals,25,0,seleccion,cargar_Click,1055,5,seleccion,JobDone,1210,0,colonia2,guardar_Click,632,0,Visual Designer,productos.bal,-100,3,colonia2,HACER_PEDIDO,394,0 SelectedBuild=0 VisibleModules=21,20,24,14,5,6