cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-21 13:19:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-10-16 19:01:04 -06:00
parent eb20c14c48
commit 57ef651054
112 changed files with 1988 additions and 7132 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
B4A/C_Productos.bas
View File

@@ -162,14 +162,14 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
'StartActivity(fila)
If Value = "PROMOS" And fila.cuenta <> "N" Then
entro = "3"
marca = "PROMOS"
tipo = "PROMOS"
Else if Value = "PROMOS" And fila.cuenta = "N" Then
entro = "5"
StartActivity(fila)
End If
' If Value = "PROMOS" And fila.cuenta <> "N" Then
' entro = "3"
' marca = "PROMOS"
' tipo = "PROMOS"
' Else if Value = "PROMOS" And fila.cuenta = "N" Then
' entro = "5"
'' StartActivity(fila)
' End If
If entro = "1" Then
marca = Value
skmt.Initialize(ruta,"kmt.db", True)
@@ -246,7 +246,7 @@ Sub Activity_KeyPress (key As Int) As Boolean
' I want to capture the key here so I return True
StartActivity(fila)
' StartActivity(fila)
Return False
End If
End If
@@ -760,7 +760,7 @@ End Sub
Sub Terminar_Click
If cantidad.Text = "" Then
StartActivity(fila)
' StartActivity(fila)
ELSE If cantidad.Text > l_bodega.Text Then
Msgbox("Exede la existencia", "ADVERTENCIA")
@@ -892,7 +892,7 @@ Sub Terminar_Click
skmt.ExecNonQuery("delete from pedido WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ")
skmt.ExecNonQuery("INSERT INTO PEDIDO SELECT * FROM PEDIDO3")
StartActivity(fila)
' StartActivity(fila)
else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C = 0 Then
skmt.ExecNonQuery("delete from PROIDID")
@@ -965,8 +965,8 @@ Sub Terminar_Click
End If
skmt.ExecNonQuery("delete from pedido WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ")
skmt.ExecNonQuery("INSERT INTO PEDIDO SELECT * FROM PEDIDO3")
StartActivity(fila)
'
' StartActivity(fila)
Else
@@ -1017,7 +1017,7 @@ Sub Terminar_Click
skmt.ExecNonQuery("delete from pedido WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ")
skmt.ExecNonQuery("INSERT INTO PEDIDO SELECT * FROM PEDIDO3")
StartActivity(fila)
' StartActivity(fila)
End If
End Sub
Sub i_fotol_Click
@@ -1029,7 +1029,7 @@ Sub DESC_PROMO_Click
skmt.ExecNonQuery("delete from PROIDID")
skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
StartActivity(detalle_promo)
' StartActivity(detalle_promo)
End Sub
Sub nopromo_Click
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("CAMBIOS"))