mirror of
https://github.com/KeymonSoft/Marquez.git
synced 2026-04-20 06:09:15 +00:00
Se agrego la seccion de agregar monto a la tuerquita.
This commit is contained in:
IsR0d
@@ -23,6 +23,8 @@ Version=9.85
|
||||
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
|
||||
|
||||
Sub Class_Globals
|
||||
Dim c2 As Cursor
|
||||
Dim sDate,sTime As String
|
||||
Private Root As B4XView
|
||||
Private xui As XUI
|
||||
Dim s As C_Subs
|
||||
@@ -120,6 +122,10 @@ Sub Class_Globals
|
||||
Private p_validacion As Panel
|
||||
Private b_recarga As Button
|
||||
Dim recarga As String = "0"
|
||||
Private p_add_monto As Panel
|
||||
Private B_Can_Monto As Button
|
||||
Private B_Aceptar_Monto As Button
|
||||
Private ET_Add_Monto As EditText
|
||||
End Sub
|
||||
|
||||
Public Sub Initialize
|
||||
@@ -199,6 +205,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PAGARES (PA_ALMACEN TEXT, PA_RUTA TEXT, PA_FECHA TEXT, PA_CAPTURA TEXT, PA_MONTO TEXT, PA_USUARIO TEXT, PA_CLIENTE TEXT)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS NOVENTA (NV_CLIENTE TEXT, NV_FECHA TEXT, NV_USER TEXT, NV_MOTIVO TEXT, NV_COMM TEXT, NV_LAT TEXT, NV_LON TEXT)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICK_CIEGO (PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENV_MONTO_LIQ (EML_MONTO TEXT, EML_ALMACEN TEXT, EML_RUTA TEXT, EML_USUARIO TEXT, EML_FECHA_PED TEXT)")
|
||||
Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "INT")
|
||||
Subs.agregaColumna("PEDIDO", "PE_CANTC", "TEXT")
|
||||
Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT")
|
||||
@@ -209,6 +216,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
Subs.agregaColumna("CAT_GUNAPROD2", "CAT_DP_CONVERSION1", "TEXT")
|
||||
Subs.agregaColumna("CAT_GUNAPROD2", "CAT_DP_PRECIO4", "TEXT")
|
||||
Subs.agregaColumna("CAT_GUNAPROD", "CAT_DP_PRECIO4", "TEXT")
|
||||
Subs.agregaColumna("CLIENTES_NUEVOS", "CN_SOLICITA", "TEXT")
|
||||
c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
|
||||
C.Position = 0
|
||||
If c.GetString("CUANTOS") = 0 Then
|
||||
@@ -286,6 +294,12 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
Wait For MES_StorageAvailable
|
||||
End If
|
||||
End If
|
||||
P_CIEGO.Height = Root.Height
|
||||
P_CIEGO.Width = Root.Width
|
||||
p_validacion.Height = Root.Height
|
||||
p_validacion.Width = Root.Width
|
||||
p_add_monto.Height = Root.Height
|
||||
p_add_monto.Width = Root.Width
|
||||
End Sub
|
||||
|
||||
Sub B4XPage_Appear
|
||||
@@ -503,6 +517,65 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "SelectMontoLiq" Then
|
||||
For Each records() As Object In result.Rows
|
||||
Dim CUENTA As String = records(result.Columns.Get("CUENTA"))
|
||||
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
|
||||
f.Position = 0
|
||||
a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
a.Position = 0
|
||||
|
||||
Private c2 As Cursor
|
||||
c2=skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
c2.Position=0
|
||||
If c2.RowCount > 0 Then c2.GetString("USUARIO")
|
||||
|
||||
Log(CUENTA & "----------------------!!")
|
||||
If CUENTA = "0" Then
|
||||
|
||||
c = Starter.skmt.ExecQuery2("SELECT * FROM ENV_MONTO_LIQ WHERE EML_USUARIO = ? AND EML_ALMACEN = ? AND EML_RUTA = ?", Array As String (c2.GetString("USUARIO"), a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA")))
|
||||
If c.RowCount > 0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
c.Position=0
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_Monto_Liq_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"), "VENTA", c.GetString("EML_FECHA_PED"))
|
||||
reqManager.ExecuteCommand(cmd , "ins_Mon_Liq")
|
||||
MsgboxAsync("Monto Enviado", "Atención")
|
||||
' Next
|
||||
End If
|
||||
c.Close
|
||||
Else if CUENTA > "0" Then
|
||||
|
||||
c = Starter.skmt.ExecQuery2("SELECT * FROM ENV_MONTO_LIQ WHERE EML_USUARIO = ? AND EML_ALMACEN = ? AND EML_RUTA = ?", Array As String (c2.GetString("USUARIO"), a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA")))
|
||||
If c.RowCount > 0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
c.Position = 0
|
||||
cmd.Initialize
|
||||
cmd.Name = "update_MontoCuenta_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"))
|
||||
|
||||
Log(c.GetString("EML_MONTO")& " " & c.GetString("EML_ALMACEN")& " " & c.GetString("EML_RUTA")& " " & c.GetString("EML_USUARIO"))
|
||||
reqManager.ExecuteCommand(cmd, "update_MC")
|
||||
MsgboxAsync("Se sobre escribio el Monto", "Atención")
|
||||
' Next
|
||||
End If
|
||||
c2.Close
|
||||
c.Close
|
||||
End If
|
||||
f.Close
|
||||
a.Close
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag.As(String).IndexOf("PICK_C_") > -1 Then 'query tag
|
||||
@@ -936,11 +1009,11 @@ End Sub
|
||||
|
||||
Private Sub B_PC_ENV_Click
|
||||
|
||||
Dim sDate, stime As String
|
||||
Dim sDate, sTime As String
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
sDate = DateTime.Date(DateTime.Now)
|
||||
stime = DateTime.Time(DateTime.Now)
|
||||
sTime = DateTime.Time(DateTime.Now)
|
||||
|
||||
|
||||
For i = 0 To CLV_PICK_CIEGO.Size - 1
|
||||
@@ -974,7 +1047,7 @@ Private Sub B_PC_ENV_Click
|
||||
c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
|
||||
If c.RowCount = 0 Then
|
||||
' Insert data into the database
|
||||
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, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), sDate&" "&stime))
|
||||
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, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), sDate&" "&sTime))
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,idParts(0)))
|
||||
End If
|
||||
@@ -996,11 +1069,11 @@ Private Sub b_terpc_Click
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
|
||||
Dim sDate, stime As String
|
||||
Dim sDate, sTime As String
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
sDate = DateTime.Date(DateTime.Now)
|
||||
stime = DateTime.Time(DateTime.Now)
|
||||
sTime = DateTime.Time(DateTime.Now)
|
||||
|
||||
For i = 0 To CLV_PICK_CIEGO.Size - 1
|
||||
' Retrieve the panel and child views for the current item
|
||||
@@ -1028,12 +1101,11 @@ Private Sub b_terpc_Click
|
||||
End If
|
||||
Log(a.GetString("ID_ALMACEN"))
|
||||
Log(f.GetString("CAT_CL_RUTA"))
|
||||
|
||||
If inputText <> 0 Then
|
||||
c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
|
||||
If c.RowCount = 0 Then
|
||||
' Insert data into the database
|
||||
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, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), sDate&" "&stime))
|
||||
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, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), sDate&" "&sTime))
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,idParts(0)))
|
||||
End If
|
||||
@@ -1042,12 +1114,10 @@ Private Sub b_terpc_Click
|
||||
a.Close
|
||||
Log("Processed item " & i)
|
||||
Next
|
||||
|
||||
Log("Finished processing all items")
|
||||
P_CIEGO.Visible = False
|
||||
et_buspc.Text = ""
|
||||
CLV_PICK_CIEGO.Clear
|
||||
|
||||
c = Starter.skmt.ExecQuery("SELECT PC_ID_PROD, PC_ALMACEN, PC_RUTA, PC_FECHA FROM PICK_CIEGO")
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
@@ -1056,12 +1126,9 @@ Private Sub b_terpc_Click
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_HIST_PICKCIEGO_MARQUEZ" '
|
||||
cmd.Parameters = Array As Object(c.GetString("PC_ID_PROD"), c.GetString("PC_ALMACEN"), c.GetString("PC_RUTA"), c.GetString("PC_FECHA"))
|
||||
reqManager.ExecuteQuery(cmd , 0, $"PICK_C_${c.GetString("PC_ID_PROD")}"$)
|
||||
|
||||
reqManager.ExecuteQuery(cmd , 0, $"PICK_C_${c.GetString("PC_ID_PROD")}"$)
|
||||
Next
|
||||
End If
|
||||
'PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT
|
||||
|
||||
c.close
|
||||
Else
|
||||
|
||||
@@ -1089,13 +1156,83 @@ Private Sub b_aceptar_Click
|
||||
a.Close
|
||||
End Sub
|
||||
|
||||
Private Sub B_Aceptar_Monto_Click
|
||||
' Try
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
|
||||
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
|
||||
f.Position=0
|
||||
|
||||
a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
If a.RowCount>0 Then
|
||||
a.Position=0
|
||||
End If
|
||||
|
||||
Private cI As Cursor
|
||||
Private u As String = "SinUsuario"
|
||||
cI=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
cI.Position=0
|
||||
If cI.RowCount > 0 Then u = cI.GetString("USUARIO")
|
||||
Private g As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * from ENV_MONTO_LIQ")
|
||||
If g.RowCount = 0 Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO ENV_MONTO_LIQ VALUES (?,?,?,?,?)", Array As Object(ET_Add_Monto.Text, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), u, sDate & " " & sTime))
|
||||
f.Close
|
||||
a.Close
|
||||
|
||||
c = Starter.skmt.ExecQuery("SELECT * FROM ENV_MONTO_LIQ")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_MontoCuenta_MARQUEZ"
|
||||
' LogColor("------------" & c.GetString("EML_USUARIO" & c.GetString("EML_ALMACEN") & c.GetString("EML_RUTA")),Colors.Red)
|
||||
cmd.Parameters = Array As Object(c.GetString("EML_USUARIO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"))
|
||||
reqManager.ExecuteQuery(cmd , 0, "SelectMontoLiq")
|
||||
' cmd.Name = "insert_Monto_Liq_MARQUEZ"
|
||||
' cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"), "VENTA", c.GetString("EML_FECHA_PED"))
|
||||
End If
|
||||
c.Close
|
||||
Else
|
||||
Starter.skmt.ExecNonQuery2("UPDATE ENV_MONTO_LIQ SET EML_MONTO = ? WHERE EML_ALMACEN = ? AND EML_RUTA = ? AND EML_USUARIO = ?", Array As String (ET_Add_Monto.Text ,a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), cI.GetString("USUARIO")))
|
||||
f.Close
|
||||
a.Close
|
||||
|
||||
c = Starter.skmt.ExecQuery("SELECT * FROM ENV_MONTO_LIQ")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_MontoCuenta_MARQUEZ"
|
||||
' LogColor("------------" & c.GetString("EML_USUARIO" & c.GetString("EML_ALMACEN") & c.GetString("EML_RUTA")),Colors.Red)
|
||||
cmd.Parameters = Array As Object(c.GetString("EML_USUARIO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"))
|
||||
reqManager.ExecuteQuery(cmd , 0, "SelectMontoLiq")
|
||||
' cmd.Name = "insert_Monto_Liq_MARQUEZ"
|
||||
' cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"), "VENTA", c.GetString("EML_FECHA_PED"))
|
||||
End If
|
||||
c.Close
|
||||
End If
|
||||
|
||||
' MsgboxAsync("Monto Enviado, Si Vuelve a Mandar se sobre escribirá dicho Monto", "Atención")
|
||||
p_add_monto.Visible = False
|
||||
' Catch
|
||||
' Log(LastException.Message)
|
||||
' MsgboxAsync("Error al enviar el monto", "Error")
|
||||
' End Try
|
||||
End Sub
|
||||
|
||||
Private Sub b_cancelarcodigo_Click
|
||||
p_validacion.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub B_Can_Monto_Click
|
||||
p_add_monto.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub b_envioBD_Click
|
||||
' copiaDB
|
||||
' Sleep(1000)
|
||||
'copiaDB
|
||||
'Sleep(1000)
|
||||
Dim FileName As String = "kmt.db"
|
||||
'copy the shared file to the shared folder
|
||||
Log("xxxxxx:"&Provider.SharedFolder)
|
||||
@@ -1105,7 +1242,7 @@ Private Sub b_envioBD_Click
|
||||
email.To.Add("soporte@keymonsoft.com")
|
||||
email.Subject = "Envio Base de datos Marquez"
|
||||
email.Attachments.Add(Provider.GetFileUri(FileName))
|
||||
' email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
|
||||
'email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
|
||||
Dim in As Intent = email.GetIntent
|
||||
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
|
||||
StartActivity(in)
|
||||
@@ -1119,4 +1256,29 @@ Private Sub b_recarga_Click
|
||||
Else
|
||||
MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención")
|
||||
End If
|
||||
End Sub
|
||||
c.Close
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub b_CargarMonto_Click
|
||||
c = skmt.ExecQuery("SELECT COUNT (DISTINCT CAT_CL_RUTA) FROM kmt_info")
|
||||
If c.RowCount > 0 Then
|
||||
Subs.panelVisible(p_add_monto,0,0)
|
||||
Else
|
||||
MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención")
|
||||
End If
|
||||
c.Close
|
||||
End Sub
|
||||
|
||||
Private Sub P_CIEGO_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub p_validacion_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub p_add_monto_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user