mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-22 20:30:08 +00:00
5/12/23 - Cambios para DOE
This commit is contained in:
@@ -25,6 +25,13 @@ Sub Class_Globals
|
||||
Dim b As Cursor
|
||||
Dim e As Cursor
|
||||
Dim f As Cursor
|
||||
Dim C_DOE As Cursor
|
||||
Dim D_DOE As Cursor
|
||||
Dim F_DOE As Cursor
|
||||
Dim TOTAL_DOE_BB As String
|
||||
Dim TOTAL_EFE_DOE As String
|
||||
Dim TOTAL_ENTREGA_DOE As String
|
||||
Private L_DOE As Label
|
||||
Dim DDD As Cursor
|
||||
Dim cargar As Button
|
||||
Dim foto1() As Byte
|
||||
@@ -189,6 +196,7 @@ Sub Class_Globals
|
||||
Private ion As Object
|
||||
Private p_centrado As Panel
|
||||
Private l_version As Label
|
||||
Private p_botonesResumen As Panel
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -250,7 +258,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
L_MONTOD.Text = c.GetString("MONTO_DIA")
|
||||
l_cuantosc.Text = c.GetString("CLIENTES_DIA")
|
||||
l_cuantosn.Text = b.GetString("CUANTOS")
|
||||
drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")
|
||||
Try
|
||||
drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")
|
||||
Catch
|
||||
Log(LastException)
|
||||
End Try
|
||||
l_drop.Text = Round2(drop,2)
|
||||
efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
|
||||
l_efectiva.text = Round2(efectiva*100,2)
|
||||
@@ -259,6 +271,12 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
End If
|
||||
kh.Initialize(Me, "kh", Starter.skmt)
|
||||
kh.RD_Init
|
||||
kh.centraPanel(Panel2, Root.Width)
|
||||
kh.centraPanel(Panel1, Root.Width)
|
||||
kh.centraPanel(p_botonesResumen, Root.Width)
|
||||
' kh.centraPanel(Panel7, Root.Width)
|
||||
' kh.centraPanel(PNL_ACCESO, Root.Width)
|
||||
|
||||
P_RESUMEN.Top = 0 : P_RESUMEN.Left = 0 'Panel Resumen
|
||||
Panel5.Top = 0 : Panel5.Left = 0 ' Panel Resumen Acumualado
|
||||
p_downloadPDF.Top = 0 : p_downloadPDF.left = 0
|
||||
@@ -594,7 +612,6 @@ Sub cargar_Click
|
||||
Starter.skmt.ExecNonQuery("delete from cat_gunaprod2")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD5")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA2")
|
||||
|
||||
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||
Starter.skmt.ExecNonQuery("delete from telefonos")
|
||||
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
||||
@@ -1799,111 +1816,91 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
''' INICIA CARGA PEDIDO DOE
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "cat_gunaprod_doe" Then 'query tag
|
||||
If logger Then Log("TIEMPO gunaprod_DOE : " & ((DateTime.Now-inicioContador)/1000))
|
||||
S_CP.Text = "CARGANDO"
|
||||
Starter.skmt.BeginTransaction
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
|
||||
Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
|
||||
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
|
||||
Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
|
||||
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
|
||||
Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
|
||||
Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
|
||||
Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
|
||||
Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
|
||||
Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
|
||||
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
||||
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"))
|
||||
'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))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD_DOE(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_GP_DEV,CAT_GP_CODPROMO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", 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_GP_DEV))
|
||||
Next
|
||||
Starter.skmt.TransactionSuccessful
|
||||
Starter.skmt.EndTransaction
|
||||
' c=skmt.ExecQuery("select CAT_GP_CLASIF, COUNT(*) AS CUANTOS from CAT_GUNAPROD GROUP BY CAT_GP_CLASIF order by CAT_GP_CLASIF asc")
|
||||
' c.Position=0
|
||||
' skmt.ExecNonQuery("DELETE FROM COUNT_GUNAPROD")
|
||||
' skmt.ExecNonQuery2("INSERT INTO COUNT_GUNAPROD(CAT_GP_CLASIF, CUANTOS) VALUES (?,?)", Array As Object (c.GetString("CAT_GP_CLASIF"), c.GetString("CUANTOS")))
|
||||
' c.Close
|
||||
'Listo2=1
|
||||
|
||||
' ToastMessageShow("Productos Actualizados." , True)
|
||||
|
||||
End If
|
||||
''' CARGAS DOE CATALOGO
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "cat_gunaprod_doe" Then 'query tag
|
||||
If logger Then Log("TIEMPO gunaprod_DOE : " & ((DateTime.Now-inicioContador)/1000))
|
||||
S_CP.Text = "CARGANDO"
|
||||
Starter.skmt.BeginTransaction
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
|
||||
Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
|
||||
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
|
||||
Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
|
||||
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
|
||||
Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
|
||||
Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
|
||||
Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
|
||||
Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
|
||||
Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
|
||||
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
||||
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"))
|
||||
'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))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD_DOE(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_GP_DEV,CAT_GP_CODPROMO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", 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_GP_DEV))
|
||||
Next
|
||||
Starter.skmt.TransactionSuccessful
|
||||
Starter.skmt.EndTransaction
|
||||
' c=skmt.ExecQuery("select CAT_GP_CLASIF, COUNT(*) AS CUANTOS from CAT_GUNAPROD GROUP BY CAT_GP_CLASIF order by CAT_GP_CLASIF asc")
|
||||
' c.Position=0
|
||||
' skmt.ExecNonQuery("DELETE FROM COUNT_GUNAPROD")
|
||||
' skmt.ExecNonQuery2("INSERT INTO COUNT_GUNAPROD(CAT_GP_CLASIF, CUANTOS) VALUES (?,?)", Array As Object (c.GetString("CAT_GP_CLASIF"), c.GetString("CUANTOS")))
|
||||
' c.Close
|
||||
'Listo2=1
|
||||
' ToastMessageShow("Productos Actualizados." , True)
|
||||
End If
|
||||
|
||||
''' FIN CARGA CATALOGO DOE
|
||||
|
||||
''' INICIO CARGA PEDIDO DOE
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "pedido_doe" Then 'query tag
|
||||
If logger Then Log("TIEMPO PEDIDO_DOE : " & ((DateTime.Now-inicioContador)/1000))
|
||||
S_CP.Text = "CARGANDO"
|
||||
Starter.skmt.BeginTransaction
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim HVD_ALMACEN As String = records(RESULT.Columns.Get("HVD_ALMACEN"))
|
||||
Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
|
||||
Dim HVD_COSTOU As String = records(RESULT.Columns.Get("HVD_COSTOU"))
|
||||
Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
|
||||
Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE"))
|
||||
Dim HVD_PROID As String = records(RESULT.Columns.Get("HVD_PROID"))
|
||||
Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE"))
|
||||
Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA"))
|
||||
Dim HVD_USUARIO As String = records(RESULT.Columns.Get("HVD_USUARIO"))
|
||||
Dim HVD_RUTA As String = records(RESULT.Columns.Get("HVD_RUTA"))
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "pedido_doe" Then 'query tag
|
||||
If logger Then Log("TIEMPO PEDIDO_DOE : " & ((DateTime.Now-inicioContador)/1000))
|
||||
S_CP.Text = "CARGANDO"
|
||||
Starter.skmt.BeginTransaction
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim HVD_ALMACEN As String = records(RESULT.Columns.Get("HVD_ALMACEN"))
|
||||
Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
|
||||
Dim HVD_COSTOU As String = records(RESULT.Columns.Get("HVD_COSTOU"))
|
||||
Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
|
||||
Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE"))
|
||||
Dim HVD_PROID As String = records(RESULT.Columns.Get("HVD_PROID"))
|
||||
Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE"))
|
||||
Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA"))
|
||||
Dim HVD_USUARIO As String = records(RESULT.Columns.Get("HVD_USUARIO"))
|
||||
Dim HVD_RUTA As String = records(RESULT.Columns.Get("HVD_RUTA"))
|
||||
|
||||
'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))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO_DOE(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 (?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (HVD_ALMACEN, HVD_COSTO_TOT, HVD_COSTOU,HVD_CANT, HVD_PRONOMBRE, HVD_PROID, HVD_CLIENTE, HVD_FECHA, HVD_USUARIO,HVD_RUTA, "DOE"))
|
||||
Next
|
||||
Starter.skmt.TransactionSuccessful
|
||||
Starter.skmt.EndTransaction
|
||||
'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))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO_DOE(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 (?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (HVD_ALMACEN, HVD_COSTO_TOT, HVD_COSTOU,HVD_CANT, HVD_PRONOMBRE, HVD_PROID, HVD_CLIENTE, HVD_FECHA, HVD_USUARIO,HVD_RUTA, "DOE"))
|
||||
Next
|
||||
Starter.skmt.TransactionSuccessful
|
||||
Starter.skmt.EndTransaction
|
||||
' c=skmt.ExecQuery("select CAT_GP_CLASIF, COUNT(*) AS CUANTOS from CAT_GUNAPROD GROUP BY CAT_GP_CLASIF order by CAT_GP_CLASIF asc")
|
||||
' c.Position=0
|
||||
' skmt.ExecNonQuery("DELETE FROM COUNT_GUNAPROD")
|
||||
' skmt.ExecNonQuery2("INSERT INTO COUNT_GUNAPROD(CAT_GP_CLASIF, CUANTOS) VALUES (?,?)", Array As Object (c.GetString("CAT_GP_CLASIF"), c.GetString("CUANTOS")))
|
||||
' c.Close
|
||||
'Listo2=1
|
||||
|
||||
If PB2.Progress = 0 Then
|
||||
PB2.Progress = 30
|
||||
S_CP.Text = "CARGANDO"
|
||||
ELSE If PB2.Progress = 30 Then
|
||||
PB2.Progress = 60
|
||||
ELSE IF PB2.Progress = 60 Then
|
||||
PB2.Progress = 80
|
||||
ELSE IF PB2.Progress = 80 Then
|
||||
PB2.Progress = 100
|
||||
S_CP.Text = "LISTO"
|
||||
End If
|
||||
' c=skmt.ExecQuery("select CAT_GP_CLASIF, COUNT(*) AS CUANTOS from CAT_GUNAPROD GROUP BY CAT_GP_CLASIF order by CAT_GP_CLASIF asc")
|
||||
' c.Position=0
|
||||
' skmt.ExecNonQuery("DELETE FROM COUNT_GUNAPROD")
|
||||
' skmt.ExecNonQuery2("INSERT INTO COUNT_GUNAPROD(CAT_GP_CLASIF, CUANTOS) VALUES (?,?)", Array As Object (c.GetString("CAT_GP_CLASIF"), c.GetString("CUANTOS")))
|
||||
' c.Close
|
||||
'Listo2=1
|
||||
|
||||
' ToastMessageShow("Productos Actualizados." , True)
|
||||
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "prods_rmi" Then 'query tag
|
||||
If logger Then Log("TIEMPO prods RMI : " & ((DateTime.Now-inicioContador)/1000))
|
||||
Starter.skmt.ExecNonQuery("delete from cat_rmi")
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_ID As String = records(RESULT.COLUMNS.GET("CAT_GP_ID"))
|
||||
Dim CAT_DESCRIPCION As String = records(RESULT.COLUMNS.GET("CAT_GP_NOMBRE"))
|
||||
Dim CAT_MONTO As String = records(RESULT.COLUMNS.GET("CAT_GP_PRECIO"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RMI (CAT_ID, CAT_DESCRIPCION, CAT_MONTO) VALUES (?,?,?)", Array As Object (CAT_ID, CAT_DESCRIPCION, CAT_MONTO))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
' ToastMessageShow("Productos Actualizados." , True)
|
||||
End If
|
||||
''' FIN CARGA PEDIDO DOE
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "prods_rmi" Then 'query tag
|
||||
If logger Then Log("TIEMPO prods RMI : " & ((DateTime.Now-inicioContador)/1000))
|
||||
Starter.skmt.ExecNonQuery("delete from cat_rmi")
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_ID As String = records(RESULT.COLUMNS.GET("CAT_GP_ID"))
|
||||
Dim CAT_DESCRIPCION As String = records(RESULT.COLUMNS.GET("CAT_GP_NOMBRE"))
|
||||
Dim CAT_MONTO As String = records(RESULT.COLUMNS.GET("CAT_GP_PRECIO"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RMI (CAT_ID, CAT_DESCRIPCION, CAT_MONTO) VALUES (?,?,?)", Array As Object (CAT_ID, CAT_DESCRIPCION, CAT_MONTO))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If PB2.Progress = 100 Then S_CP.Text = "LISTO"
|
||||
@@ -2034,7 +2031,7 @@ Sub e_ruta_EnterPressed
|
||||
End If
|
||||
c.Close
|
||||
End If
|
||||
kh.respaldoBatch
|
||||
kh.RD_respaldoBatch
|
||||
If e_ruta.Text = "FIN DIA" And adelanteFinDia Then
|
||||
res = Msgbox2("Seguro que desea hacer el cierre? ... todos los datos se borraran","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||
If res = DialogResponse.POSITIVE Then
|
||||
@@ -2198,6 +2195,19 @@ Sub B_OK_PAS_Click
|
||||
End If
|
||||
End If
|
||||
If CARGA = "CARGAR" And S_CP.Text = "LISTO" And S_CC.Text = "LISTO" And S_CH.Text = "LISTO" Then
|
||||
c=Starter.skmt.ExecQUERY("SELECT COUNT(*) AS CUANTOS FROM PEDIDO_DOE WHERE PE_CLIENTE <> 0")
|
||||
c.Position = 0
|
||||
cuantos_pedidosc = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
If cuantos_pedidosc > 0 Then
|
||||
c=Starter.skmt.ExecQUERY("SELECT PE_PROID, SUM(PE_CANT) AS PE_CANT FROM PEDIDO_DOE WHERE PE_CLIENTE <> 0 GROUP BY PE_PROID")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Starter.skmt.ExecNonQuery2("update CAT_GUNAPROD2 set CAT_GP_ALMACEN = CAT_GP_ALMACEN - ? where CAT_GP_ID = ? ", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
c=Starter.skmt.ExecQuery("select COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES from PEDIDO_DOE ")
|
||||
c.Position = 0
|
||||
If c.GetString("CLIENTES") > 0 Then Msgbox("AVISO TIENES "& c.GetString("CLIENTES") & " PEDIDOS DON TOÑO PARA ENTREGAR"," PEDIDOS DON TOÑO")
|
||||
@@ -2314,6 +2324,23 @@ Sub Resumen_Click
|
||||
l_monto_k.Text = "0"
|
||||
l_monto_ks.Text = "0"
|
||||
Else
|
||||
' aqui poner lo de efectividad de doe y la cantidad de doe para enviar a tiempo real
|
||||
Dim TOTAL_DOE_BB As String
|
||||
Dim TOTAL_EFE_DOE As String
|
||||
Dim TOTAL_ENTREGA_DOE As String
|
||||
C_DOE = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM PEDIDO_DOE")
|
||||
C_DOE.Position = 0
|
||||
If C_DOE.GetString("CUANTOS") > 0 Then
|
||||
F_DOE = Starter.skmt.ExecQuery("SELECT SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO_DOE")
|
||||
F_DOE.Position = 0
|
||||
TOTAL_DOE_BB = F_DOE.GetString("TOTAL")
|
||||
F_DOE.Close
|
||||
D_DOE=Starter.skmt.ExecQuery2("select sum(PE_COSTO_TOT) as DOE from pedido where PE_CEDIS = ? ", Array As String("PROMODOE"))
|
||||
D_DOE.Position = 0
|
||||
TOTAL_ENTREGA_DOE = D_DOE.GetString("DOE")
|
||||
D_DOE.Close
|
||||
End If
|
||||
'' fin de esto modificar lo anterior
|
||||
c=Starter.skmt.ExecQuery2("select sum(pe_cant) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO"))
|
||||
c.Position = 0
|
||||
l_cambios.Text = c.GetString("CAMBIOS")
|
||||
@@ -2796,6 +2823,23 @@ Sub SUBIR_INFO_PEDIDO
|
||||
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
|
||||
PB2.Progress = 100
|
||||
d.Close
|
||||
|
||||
' ENTREGA DOE PEDIDOS_DOE_ENTREGA (PC_CLIENTE, PC_ENTREGA)
|
||||
c=Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_ENTREGA FROM PEDIDOS_DOE_ENTREGA")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_PEDIDOS_DOE_ENTREGA"
|
||||
cmd.Parameters = Array As Object(C.GetString("PC_CLIENTE"),C.GetString("PC_ENTREGA"), ALMACEN, l_ruta.Text)
|
||||
reqManager.ExecuteCommand(cmd , "UPDATE_PEDIDOS_DOE_ENTREGA")
|
||||
PB2.Progress = PB2.Progress + 1
|
||||
contador_env = contador_env + 1
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
|
||||
' CHECK LIST VALIDAR
|
||||
'Msgbox("antesde de mandar","") 'ignore
|
||||
c = Starter.skmt.ExecQuery("SELECT " & Chr(34) & "TMP_AUTO_RUTA " & Chr(34) & " as TMP_AUTO_RUTA," & Chr(34) & "TMP_AUTO_PLACA" & Chr(34) & " as TMP_AUTO_PLACA," & Chr(34) & "TMP_AUTO_CEDIS " & Chr(34) & " as TMP_AUTO_CEDIS," & Chr(34) & "TMP_AUTO_IDALMACEN" & Chr(34) & " as TMP_AUTO_IDALMACEN," & Chr(34) & "TMP_AUTO_FECHA " & Chr(34) & " as TMP_AUTO_FECHA," & Chr(34) & "TMP_AUTO_KILOMETRAJE" & Chr(34) & " as TMP_AUTO_KILOMETRAJE," & Chr(34) & "TMP_AUTO_COMBUSTIBLE" & Chr(34) & " as TMP_AUTO_COMBUSTIBLE," & Chr(34) & "TMP_AUTO_TABLERO " & Chr(34) & " as TMP_AUTO_TABLERO," & Chr(34) & "TMP_AUTO_CLAXON " & Chr(34) & " as TMP_AUTO_CLAXON," & Chr(34) & "TMP_AUTO_PARABRISAS " & Chr(34) & " as TMP_AUTO_PARABRISAS," & Chr(34) & "TMP_AUTO_CINTURON " & Chr(34) & " as TMP_AUTO_CINTURON," & Chr(34) & "TMP_AUTO_ESPEJOS " & Chr(34) & " as TMP_AUTO_ESPEJOS," & Chr(34) & "TMP_AUTO_LICENCIA " & Chr(34) & " as TMP_AUTO_LICENCIA," & Chr(34) & "TMP_AUTO_LIB_OBJETOSINE " & Chr(34) & " as TMP_AUTO_LIB_OBJETOSINE," & Chr(34) & "TMP_AUTO_LIB_OBJETOTMPERVI " & Chr(34) & " as TMP_AUTO_LIB_OBJETOTMPERVI," & Chr(34) & "TMP_AUTO_ORDEN_HERRA " & Chr(34) & " as TMP_AUTO_ORDEN_HERRA," & Chr(34) & "TMP_AUTO_UNILIMPIA " & Chr(34) & " as TMP_AUTO_UNILIMPIA," & Chr(34) & "TMP_AUTO_LIMPIO " & Chr(34) & " as TMP_AUTO_LIMPIO," & Chr(34) & "TMP_AUTO_BASURA " & Chr(34) & " as TMP_AUTO_BASURA," & Chr(34) & "TMP_AUTO_RESPONSABILIDAD " & Chr(34) & " as TMP_AUTO_RESPONSABILIDAD," & Chr(34) & "TMP_AUTO_AUDITORIA " & Chr(34) & " as TMP_AUTO_AUDITORIA," & Chr(34) & "TMP_AUTO_HABITUAL " & Chr(34) & " as TMP_AUTO_HABITUAL," & Chr(34) & "TMP_AUTO_HERRAMIENTAS " & Chr(34) & " as TMP_AUTO_HERRAMIENTAS," & Chr(34) & "TMP_AUTO_CONOS " & Chr(34) & " as TMP_AUTO_CONOS," & Chr(34) & "TMP_AUTO_EDO_CARROCERIA " & Chr(34) & " as TMP_AUTO_EDO_CARROCERIA," & Chr(34) & "TMP_AUTO_FUN_LUCES " & Chr(34) & " as TMP_AUTO_FUN_LUCES," & Chr(34) & "TMP_AUTO_PLACAS_CIRCU " & Chr(34) & " as TMP_AUTO_PLACAS_CIRCU," & Chr(34) & "TMP_AUTO_COND_LLANTAS " & Chr(34) & " as TMP_AUTO_COND_LLANTAS," & Chr(34) & "TMP_AUTO_ACEITEMOTOR " & Chr(34) & " as TMP_AUTO_ACEITEMOTOR," & Chr(34) & "TMP_AUTO_ACEITEDIREC " & Chr(34) & " as TMP_AUTO_ACEITEDIREC," & Chr(34) & "TMP_AUTO_NVL_REFRIGERANTE " & Chr(34) & " as TMP_AUTO_NVL_REFRIGERANTE," & Chr(34) & "TMP_AUTO_NVL_LIQUIDBRISAS " & Chr(34) & " as TMP_AUTO_NVL_LIQUIDBRISAS," & Chr(34) & "TMP_AUTO_COND_BANMOTOR " & Chr(34) & " as TMP_AUTO_COND_BANMOTOR," & Chr(34) & "TMP_AUTO_FUGASGRAL " & Chr(34) & " as TMP_AUTO_FUGASGRAL," & Chr(34) & "TMP_AUTO_FRENOS " & Chr(34) & " as TMP_AUTO_FRENOS," & Chr(34) & "TMP_AUTO_COMENTARIOS " & Chr(34) & " as TMP_AUTO_COMENTARIOS FROM TMP_INSPECCION_AUTO_DIARIA")
|
||||
@@ -3209,4 +3253,16 @@ Sub borraClientesNuevosSinVenta 'ignore
|
||||
LogColor($"Cliente nuevo "${x.GetString("CAT_CL_CODIGO")}" SIN VENTA -> BORRADO!!"$, Colors.red)
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Private Sub Panel1_Click
|
||||
'
|
||||
'End Sub
|
||||
'
|
||||
'Private Sub Panel2_Click
|
||||
'
|
||||
'End Sub
|
||||
|
||||
Private Sub P_RESUMEN_Click
|
||||
|
||||
End Sub
|
||||
Reference in New Issue
Block a user