cheveguerra/Marquez
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Marquez.git synced 2026-04-20 22:29:28 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 4.06.30

Browse Source
This commit is contained in:
cvaldes1201
2024-07-01 13:27:47 -06:00
parent c482cacfd2
commit 010df93244
10 changed files with 417 additions and 140 deletions
Download Patch File Download Diff File Expand all files Collapse all files

107
B4A/C_Principal.bas
View File

@@ -220,6 +220,8 @@ Sub Class_Globals
Private L_PICK_CIEGO As Label
Private P_CIEGO As Panel
Dim Panel4 As Panel
Dim q_buscar As String
Private et_buspc As EditText
End Sub
'You can add more parameters here.
@@ -553,87 +555,7 @@ Sub B4XPage_Appear
End Sub
Sub ET_PICK_CIEGO_TextChanged (Old As String, New As String)
Dim et As EditText = Sender
If New.Length > 4 Then
et.Text = Old
End If
End Sub
Private Sub B_PC_ENV_Click
Dim sDate As String
DateTime.DateFormat = "MM/dd/yyyy"
sDate = DateTime.Date(DateTime.Now)
For i = 0 To CLV_PICK_CIEGO.Size - 1
' Retrieve the panel and child views for the current item
Dim itemPanel As B4XView = CLV_PICK_CIEGO.GetPanel(i)
Dim innerPanel As B4XView = itemPanel.GetView(0)
Dim editText As B4XView = innerPanel.GetView(1)
Dim inputText As String = editText.As(EditText).Text
' Check if the input text matches the regex pattern for zeros or if it's empty
If Regex.IsMatch("^[0]+$", inputText) Or inputText = "" Then
inputText = "0"
End If
' Retrieve and process the ID label
Dim idLabel As B4XView = innerPanel.GetView(0)
Dim idText As String = idLabel.As(Label).Text
Dim idParts() As String = Regex.Split(CRLF, idText)
Log(idParts(1))
' Insert data into the database
Log($"Inserting: PC_ID_PROD=${idParts(0)}, PC_NOM_PROD=${idParts(1)}, PC_CANT=${inputText}, PC_ALMACEN=${ALMACEN}, PC_RUTA=${l_ruta.Text}, PC_FECHA=${sDate}"$)
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, ALMACEN, l_ruta.Text, sDate))
Log("Processed item " & i)
Next
Log("Finished processing all items")
P_CIEGO.Visible = False
End Sub
Sub Subir_Click
Msgbox2Async("Parara hacer el envio de tu Informacion, antes debes revisar tu inventario abordo, ¿Deceas revisarlo?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
Wait For Msgbox_Result (resultado As Int)
If resultado = DialogResponse.POSITIVE Then
P_CIEGO.Visible=True
Log(2)
d = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_GP_ID, CAT_GP_NOMBRE FROM CAT_GUNAPROD2 WHERE CAT_GP_CLASIF <> 'PROMOS'")
CLV_PICK_CIEGO.Clear
For i = 0 To d.RowCount - 1
d.Position = i
CLV_PICK_CIEGO.Add(CreateListItem(d.GetString("CAT_GP_ID"), d.GetString("CAT_GP_NOMBRE")),i)
' Log(d.GetString("CAT_GP_ID"))
' Log(d.GetString("CAT_GP_NOMBRE"))
Next
d.Close
Else
End If
End Sub
Sub CreateListItem(Id_prod As String, Prod As String) As Panel
Dim pa As B4XView = xui.CreatePanel("")
pa.SetLayoutAnimated(0, 0, 0, 1, 10)
pa.LoadLayout("PANEL_PICK_CIEGO")
pa.Height = 55dip
pa.Width = 298dip
'pa.Width = clv_orden.GetBase.Width
L_PICK_CIEGO.Text = Id_prod & CRLF & Prod
L_PICK_CIEGO.TextSize = 12
L_PICK_CIEGO.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)
'cxc.Id_prod = mostrar3
'Log(pa.Width)
Return pa
End Sub
Sub envio_info
CARGA = "SUBIR"
p_mandaInfo.Width = Root.Width
p_mandaInfo.Height = Root.Height
@@ -923,6 +845,7 @@ Sub envio_info
End If
End Sub
Sub cargar_Click
Dim pedidodiaanterior As Boolean = False
Dim cp As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * from PEDIDO")
@@ -1067,10 +990,10 @@ Sub cargar_Click
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
' cmd.Initialize
' cmd.Name = "select_cat_clientes_todos_MARQUEZ"
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
' reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
cmd.Initialize
cmd.Name = "select_cat_clientes_todos_MARQUEZ"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
cmd.Initialize
cmd.Name = "select_hist_datos_MARQUEZ"
@@ -1110,10 +1033,10 @@ Sub cargar_Click
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
' cmd.Initialize
' cmd.Name = "select_cat_clientes_todos_MARQUEZ"
' cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
' reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
cmd.Initialize
cmd.Name = "select_cat_clientes_todos_MARQUEZ"
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
cmd.Initialize
cmd.Name = "select_hist_datos_MARQUEZ"
@@ -1663,9 +1586,12 @@ Sub JobDone(Job As HttpJob)
' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA"))
Dim CAT_DP_PRECIO4 As Int = records(RESULT.Columns.Get("CAT_DP_PRECIO4"))
Dim CAT_DP_CONVERSION1 As Int = records(RESULT.Columns.Get("CAT_DP_CONVERSION1"))
' CAT_GP_INICIATIVA = 5
' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,0,1))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1))
Next
Listo2=1
If PB2.Progress = 0 Then
@@ -2067,6 +1993,8 @@ End Sub
Private Sub B4XPage_CloseRequest As ResumableSub
'Return True to close, False to cancel
If SCROLL_RESDIA.Visible Then
SCROLL_RESDIA.Visible = False
B_OK_RES_Click
@@ -2160,6 +2088,7 @@ Sub e_ruta_EnterPressed
e_ruta.Text = ""
Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
B4XPages.MainPage.skmt.ExecNonQuery("delete from CLIENTE_NUEVO")
B4XPages.MainPage.skmt.ExecNonQuery("delete from PICKCIEGO_HECHO")
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente")
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido")
B4XPages.MainPage.skmt.ExecNonQuery("delete from PAGARES")