mirror of
https://github.com/KeymonSoft/Tortillas_Guerreras.git
synced 2026-04-22 07:00:19 +00:00
verion final
This commit is contained in:
Javier
@@ -20,6 +20,7 @@ Sub Class_Globals
|
||||
Dim trabajar As Button
|
||||
' Dim lat_gps, lon_gps As String
|
||||
Dim c As Cursor
|
||||
Dim a As Cursor
|
||||
Dim d As Cursor
|
||||
Dim b As Cursor
|
||||
Dim e As Cursor
|
||||
@@ -249,6 +250,10 @@ Sub Class_Globals
|
||||
Private b_regreso As Button
|
||||
Private b_productos As Button
|
||||
|
||||
Private L_CANT_PCIK As Label
|
||||
Private et_merma As EditText
|
||||
Private CheckBox1 As CheckBox
|
||||
Private b_terpc As Button
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -719,6 +724,82 @@ End Sub
|
||||
|
||||
|
||||
Sub Subir_Click
|
||||
Starter.skmt.ExecNonQuery("delete from CUENTAA")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("63403"))
|
||||
|
||||
Subs.panelVisible(P_CIEGO,0,0)
|
||||
P_CIEGO.Width = Root.Width
|
||||
P_CIEGO.Height = Root.Height
|
||||
CLV_PICK_CIEGO.Clear
|
||||
Private abor As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_ALMACEN, CAT_GP_NOMBRE, CAT_GP_ID, ifnull(PC_CANT,0) AS PC_CAN FROM CAT_GUNAPROD2 INNER JOIN PICK_CIEGO ON PC_ID_PROD = CAT_GP_ID WHERE CAT_GP_ALMACEN > 0 GROUP BY CAT_GP_ID order by CAT_GP_NOMBRE asc "$)
|
||||
If abor.RowCount > 0 Then
|
||||
|
||||
For fgfg = 0 To abor.RowCount - 1
|
||||
abor.Position = fgfg
|
||||
|
||||
CLV_PICK_CIEGO.Add(CreateListItem(abor.GetString("CAT_GP_ID"),abor.GetString("CAT_GP_NOMBRE"), abor.GetString("PC_CAN"), abor.GetString("CAT_GP_ALMACEN")),fgfg)
|
||||
|
||||
Next
|
||||
|
||||
|
||||
Private abor3 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_ALMACEN, CAT_GP_NOMBRE, CAT_GP_ID FROM CAT_GUNAPROD2 WHERE CAT_GP_ALMACEN > 0 GROUP BY CAT_GP_ID order by CAT_GP_NOMBRE asc "$)
|
||||
|
||||
For tyty = 0 To abor3.RowCount - 1
|
||||
abor3.Position = tyty
|
||||
CLV_PICK_CIEGO.Add(CreateListItem2(abor3.GetString("CAT_GP_ID"), abor3.GetString("CAT_GP_NOMBRE"), abor3.GetString("CAT_GP_ALMACEN")),tyty)
|
||||
Next
|
||||
|
||||
|
||||
|
||||
Else If abor.RowCount = 0 Then
|
||||
|
||||
Private abor2 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_ALMACEN, CAT_GP_NOMBRE, CAT_GP_ID FROM CAT_GUNAPROD2 WHERE CAT_GP_ALMACEN > 0 AND CAT_GP_ID NOT IN (SELECT PC_ID_PROD FROM PICK_CIEGO) GROUP BY CAT_GP_ID order by CAT_GP_NOMBRE asc "$)
|
||||
|
||||
For tyty = 0 To abor2.RowCount - 1
|
||||
abor2.Position = tyty
|
||||
CLV_PICK_CIEGO.Add(CreateListItem2(abor2.GetString("CAT_GP_ID"), abor2.GetString("CAT_GP_NOMBRE"), abor2.GetString("CAT_GP_ALMACEN")),tyty)
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub CreateListItem(Id_prod As String, Prod As String,cant As String,cantreal As String) As Panel
|
||||
Dim pa As B4XView = xui.CreatePanel("")
|
||||
pa.SetLayoutAnimated(0, 0, 0, 1, 10)
|
||||
pa.LoadLayout("PANEL_PICK_CIEGO")
|
||||
pa.Height = 220dip
|
||||
pa.Width = 298dip
|
||||
'pa.Width = clv_orden.GetBase.Width
|
||||
L_PICK_CIEGO.Text = Id_prod & CRLF & Prod
|
||||
L_PICK_CIEGO.TextSize = 15
|
||||
' L_PICK_CIEGO.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)
|
||||
ET_PICK_CIEGO.Text = cant
|
||||
L_CANT_PCIK.Text = cantreal
|
||||
'cxc.Id_prod = mostrar3
|
||||
'Log(pa.Width)
|
||||
Return pa
|
||||
End Sub
|
||||
|
||||
Sub CreateListItem2(Id_prod As String, Prod As String,cantreal As String) As Panel
|
||||
Dim pa As B4XView = xui.CreatePanel("")
|
||||
pa.SetLayoutAnimated(0, 0, 0, 1, 10)
|
||||
pa.LoadLayout("cuentamerma")
|
||||
pa.Height = 220dip
|
||||
pa.Width = 298dip
|
||||
'pa.Width = clv_orden.GetBase.Width
|
||||
L_PICK_CIEGO.Text = Id_prod & CRLF & Prod
|
||||
L_PICK_CIEGO.TextSize = 15
|
||||
' L_PICK_CIEGO.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)
|
||||
L_CANT_PCIK.Text = cantreal
|
||||
'cxc.Id_prod = mostrar3
|
||||
'Log(pa.Width)
|
||||
Return pa
|
||||
End Sub
|
||||
|
||||
|
||||
Sub Envioinfo
|
||||
|
||||
CARGA = "SUBIR"
|
||||
p_mandaInfo.Width = Root.Width
|
||||
p_mandaInfo.Height = Root.Height
|
||||
@@ -787,7 +868,7 @@ Sub Subir_Click
|
||||
' Next
|
||||
' End If
|
||||
' c.Close
|
||||
'
|
||||
'
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO, CAT_CL_CODIGO, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO IS NOT NULL")
|
||||
' If c.RowCount>0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
@@ -917,7 +998,7 @@ Sub Subir_Click
|
||||
' Log(c.GetString("PE_CEDIS")&", "&ALMACEN&", "&c.GetString("PE_COSTO_TOT")&", "&c.GetString("PE_COSTOU")&", "&c.GetString("PE_CANT")&", "&c.GetString("PE_PRONOMBRE")&", "&c.GetString("PE_PROID")&", "&c.GetString("PE_CLIENTE")&", "&c.GetString("PE_FECHA")&", "&c.GetString("PE_USUARIO")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
|
||||
If c.GetString("PE_FOLIO") = "PREVENTA_CONTADO" Then
|
||||
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"PREVENTA")
|
||||
Else If c.GetString("PE_FOLIO") = "PREVENTA_CREDITO" Then
|
||||
Else If c.GetString("PE_FOLIO") = "PREVENTA_CREDITO" Then
|
||||
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"PREVENTA")
|
||||
Else If c.GetString("PE_FOLIO") = "ABORDO" Then
|
||||
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"ABORDO")
|
||||
@@ -1116,6 +1197,7 @@ Sub Subir_Click
|
||||
' End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -1256,10 +1338,10 @@ Sub cargar_Click
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "coords_almacen")
|
||||
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_cat_gunaprod3_TGUERRERAS"
|
||||
' cmd.Parameters = Array As Object(ALMACEN,e_ruta.Text)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "gunaprod3")
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_gunaprod3_TGUERRERAS"
|
||||
cmd.Parameters = Array As Object(ALMACEN,e_ruta.Text)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod3")
|
||||
'
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_GIRO_TGUERRERAS"
|
||||
@@ -1949,7 +2031,6 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_DP_NOMBRE"))
|
||||
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_DP_IMP1"))
|
||||
Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_DP_IMP2"))
|
||||
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
|
||||
Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
|
||||
Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_DP_STS"))
|
||||
Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_DP_TIPO"))
|
||||
@@ -1959,12 +2040,20 @@ 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_DP_TIPOPROD"))
|
||||
Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_DP_INICIATIVA"))
|
||||
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
|
||||
|
||||
Dim CAT_DP_PRECIO10 As Float = records(RESULT.Columns.Get("CAT_DP_PRECIO10"))
|
||||
Dim CAT_DP_PRECIO2 As Float = records(RESULT.Columns.Get("CAT_DP_PRECIO2"))
|
||||
Dim CAT_DP_PRECIO1 As Float = records(RESULT.Columns.Get("CAT_DP_PRECIO1"))
|
||||
Dim CAT_DP_PRECIO3 As Float = records(RESULT.Columns.Get("CAT_DP_PRECIO3"))
|
||||
Dim CAT_DP_PRECIO4 As Float = records(RESULT.Columns.Get("CAT_DP_PRECIO4"))
|
||||
Dim CAT_DP_PRECIO9 As Float = records(RESULT.Columns.Get("CAT_DP_PRECIO9"))
|
||||
|
||||
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))
|
||||
Dim CAT_GP_NOMBRE As String = CAT_GP_NOMBRE.Trim
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD3(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_PRECIO10,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_PRECIO10,CAT_DP_CONVERSION1))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD3(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_PRECIO10,CAT_DP_CONVERSION1, CAT_DP_PRECIO2,CAT_DP_PRECIO1,CAT_DP_PRECIO3,CAT_DP_PRECIO4,CAT_DP_PRECIO9) 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_PRECIO10,CAT_DP_CONVERSION1,CAT_DP_PRECIO2,CAT_DP_PRECIO1,CAT_DP_PRECIO3,CAT_DP_PRECIO4,CAT_DP_PRECIO9))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
@@ -2446,6 +2535,9 @@ Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
Else if Panel5.Visible Then
|
||||
B_OK_PANEL5_Click
|
||||
Return False
|
||||
Else if P_CIEGO.Visible Then
|
||||
P_CIEGO.Visible = False
|
||||
Return False
|
||||
Else If pnlCobranza.Visible Then
|
||||
pnlCobranza.Visible = False
|
||||
Return False
|
||||
@@ -3401,3 +3493,246 @@ Private Sub b_productos_Click
|
||||
c.Close
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CheckBox1_CheckedChange(Checked As Boolean)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub P_CIEGO_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub b_terpc_Click
|
||||
' 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)
|
||||
'
|
||||
' Dim consecutivo As Int = 1000
|
||||
' 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
|
||||
' Dim labelcant As B4XView = innerPanel.GetView(2)
|
||||
' Dim cantidadrestar As String = labelcant.As(Label).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))
|
||||
' f=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
|
||||
' f.Position=0
|
||||
'' Log(f.GetString("RUTAA"))
|
||||
' a=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
' If a.RowCount>0 Then
|
||||
' a.Position=0
|
||||
' End If
|
||||
' Dim k As Cursor = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
|
||||
' k.Position = 0
|
||||
' Dim fechatabulador() As String = Regex.Split(" ", k.GetString("HVD_FECHA"))
|
||||
'' Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
|
||||
' Dim fechatabulador3 As String = fechatabulador(0)
|
||||
' k.Close
|
||||
' If inputText <> "" And inputText <> 0 Then
|
||||
' Log("IMPUT DIFERENTE DE CERO")
|
||||
' Log(idParts(0))
|
||||
' Log(cantidadrestar)
|
||||
' Log(inputText)
|
||||
' Dim restado As Int = cantidadrestar - inputText
|
||||
' Log(cantidadrestar - inputText)
|
||||
' 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
|
||||
'' Log(f.GetString("RUTAA"))
|
||||
'' Log("entro aqui2")
|
||||
'
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA, RESTA) VALUES(?,?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("RUTAA"), fechatabulador3&" "&sTime, restado))
|
||||
' If restado > 0 And inputText <> 0 Then
|
||||
'
|
||||
' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$)
|
||||
' If preciocat.RowCount > 0 Then
|
||||
' preciocat.Position = 0
|
||||
' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO")
|
||||
' End If
|
||||
' preciocat.Close
|
||||
' Log("MAYOR A CERO")
|
||||
' consecutivo = consecutivo + 1
|
||||
' Dim faltantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO = 'FALTANTE'"$)
|
||||
' If faltantes.RowCount > 0 Then
|
||||
' faltantes.Position = 0
|
||||
' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${restado}', PE_COSTO_TOT= '${restado}'*'${preciofull}', PE_TIPO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
|
||||
' Else
|
||||
'' Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_PROID,PE_PRONOMBRE,PE_CANT,PE_CLIENTEOR,PE_CLIENTE,PE_COSTOU,PE_COSTO_TOT,PE_CAJAS,PE_BCAJAS,CONSECUTIVO,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),restado,"",Subs.traeCliente,preciofull,(preciofull*restado),consecutivo,1000,"FALTANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0))
|
||||
' End If
|
||||
' Else If restado < 0 And inputText <> 0 Then
|
||||
'
|
||||
' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$)
|
||||
' If preciocat.RowCount > 0 Then
|
||||
' preciocat.Position = 0
|
||||
' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO")
|
||||
' End If
|
||||
' preciocat.Close
|
||||
' Log("MENOR A CERO")
|
||||
' consecutivo = consecutivo + 1
|
||||
' Dim faltantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO = 'FALTANTE'"$)
|
||||
' If faltantes.RowCount > 0 Then
|
||||
' faltantes.Position = 0
|
||||
' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${(-1*restado)}', PE_COSTO_TOT= ${(-1*restado)}*${preciofull}, PE_TIPO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
|
||||
' Else
|
||||
'' Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_PROID,PE_PRONOMBRE,PE_CANT,PE_CLIENTEOR,PE_CLIENTE,PE_COSTOU,PE_COSTO_TOT,PE_CAJAS,PE_BCAJAS,CONSECUTIVO,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),(-1*restado),"",Subs.traeCliente,preciofull,(-1*(preciofull*restado)),consecutivo,1000,"SOBRANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0))
|
||||
' End If
|
||||
' End If
|
||||
' Else
|
||||
'' Log(f.GetString("RUTAA"))
|
||||
'' Log("entro aqui")
|
||||
' Dim restadoanterior As Cursor = Starter.skmt.ExecQuery($"select RESTA from PICK_CIEGO WHERE PC_ID_PROD = '${idParts(0)}'"$)
|
||||
' restadoanterior.Position = 0
|
||||
'
|
||||
'' Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?, RESTA = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,restado,idParts(0))) '' HACER DENTRO DEL IF
|
||||
' If restadoanterior.GetInt("RESTA") > 0 And restadoanterior.GetInt("RESTA") <> restado Then
|
||||
'
|
||||
'
|
||||
' Dim faltantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO = 'FALTANTE'"$)
|
||||
'
|
||||
' If faltantes.RowCount > 0 Then
|
||||
' faltantes.Position = 0
|
||||
' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$)
|
||||
' If preciocat.RowCount > 0 Then
|
||||
' preciocat.Position = 0
|
||||
' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO")
|
||||
' End If
|
||||
' preciocat.Close
|
||||
'
|
||||
' Log("MAYOR A CERO UPDATE")
|
||||
' Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?, RESTA = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,restado,idParts(0))) '' HACER DENTRO DEL IF
|
||||
' If restado > 0 Then
|
||||
' Log("AQUI ES FALTANTE")
|
||||
'' Log($"update PEDIDO set PE_CANT = IFNULL(PE_CANT,0)+(1*'${restado}'), PE_COSTO_TOT= ((IFNULL(PE_CANT,0)+(1*'${restado}'))*'${preciofull}'), PE_TIPO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
|
||||
' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${restado}', PE_COSTO_TOT= '${restado}'*'${preciofull}', PE_TIPO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
|
||||
' Else If restado < 0 Then
|
||||
' Log("AQUI ES SOBRANTE")
|
||||
'' Log($"update PEDIDO set PE_CANT = '${(-1*restado)}', PE_COSTO_TOT= ${(-1*restado)}*${preciofull}, PE_TIPO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
|
||||
' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${(-1*restado)}', PE_COSTO_TOT= ${(-1*restado)}*${preciofull}, PE_TIPO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
|
||||
' Else If restado = 0 Then
|
||||
' Log("AQUI ES SOBRANTE")
|
||||
' Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
|
||||
'
|
||||
' End If
|
||||
'
|
||||
' End If
|
||||
' Else If restadoanterior.GetInt("RESTA") < 0 And restadoanterior.GetInt("RESTA") <> restado Then
|
||||
' Log("es sobrante")
|
||||
' Dim sobrantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO = 'SOBRANTE'"$)
|
||||
' If sobrantes.RowCount > 0 Then
|
||||
' sobrantes.Position = 0
|
||||
'
|
||||
' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$)
|
||||
' If preciocat.RowCount > 0 Then
|
||||
' preciocat.Position = 0
|
||||
' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO")
|
||||
' End If
|
||||
' preciocat.Close
|
||||
'
|
||||
' Log("MENOR A CERO UPDATE")
|
||||
' Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?, RESTA = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,restado,idParts(0))) '' HACER DENTRO DEL IF
|
||||
' If restado > 0 Then
|
||||
'' Log("AQUI NO ES SOBRANTE")
|
||||
'' Log($"update PEDIDO set PE_CANT = IFNULL(PE_CANT,0)+(1*'${restado}'), PE_COSTO_TOT= ((IFNULL(PE_CANT,0)+(1*'${restado}'))*'${preciofull}'), PE_TIPO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${sobrantes.GetString("CONSECUTIVO")}'"$)
|
||||
' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${restado}', PE_COSTO_TOT= '${restado}'*'${preciofull}', PE_TIPO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${sobrantes.GetString("CONSECUTIVO")}'"$)
|
||||
' Else If restado < 0 Then
|
||||
'' Log("AQUI ES SOBRANTE")
|
||||
'' Log($"update PEDIDO set PE_CANT = IFNULL(PE_CANT,0)+(1*'${(-1*restado)}'), PE_COSTO_TOT= ((IFNULL(PE_CANT,0)+(1*'${(-1*restado)}'))*'${preciofull}'), PE_TIPO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${sobrantes.GetString("CONSECUTIVO")}'"$)
|
||||
' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${-1*restado}', PE_COSTO_TOT= '${-1*restado}'*'${preciofull}', PE_TIPO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${sobrantes.GetString("CONSECUTIVO")}'"$)
|
||||
' Else If restado = 0 Then
|
||||
' Log("a eliminar")
|
||||
' Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${sobrantes.GetString("CONSECUTIVO")}'"$)
|
||||
' '' FALTAN LOS CEROS QUITAR DE PEDIDO Y DEL PICKCIEGO
|
||||
' End If
|
||||
' End If
|
||||
' Else If restadoanterior.GetInt("RESTA") = 0 And restadoanterior.GetInt("RESTA") <> restado Then
|
||||
' Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?, RESTA = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,restado,idParts(0))) '' HACER DENTRO DEL IF
|
||||
' If restado > 0 And inputText <> 0 Then
|
||||
'
|
||||
' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$)
|
||||
' If preciocat.RowCount > 0 Then
|
||||
' preciocat.Position = 0
|
||||
' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO")
|
||||
' End If
|
||||
' preciocat.Close
|
||||
' Log("MAYOR A CERO")
|
||||
' consecutivo = consecutivo + 1
|
||||
' Dim faltantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO = 'FALTANTE'"$)
|
||||
' If faltantes.RowCount > 0 Then
|
||||
' faltantes.Position = 0
|
||||
' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${restado}', PE_COSTO_TOT= '${restado}'*'${preciofull}', PE_TIPO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
|
||||
' Else
|
||||
'' Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_PROID,PE_PRONOMBRE,PE_CANT,PE_CLIENTEOR,PE_CLIENTE,PE_COSTOU,PE_COSTO_TOT,PE_CAJAS,PE_BCAJAS,CONSECUTIVO,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),restado,"",Subs.traeCliente,preciofull,(preciofull*restado),consecutivo,1000,"FALTANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0))
|
||||
' End If
|
||||
' Else If restado < 0 And inputText <> 0 Then
|
||||
'
|
||||
' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$)
|
||||
' If preciocat.RowCount > 0 Then
|
||||
' preciocat.Position = 0
|
||||
' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO")
|
||||
' End If
|
||||
' preciocat.Close
|
||||
' Log("MENOR A CERO")
|
||||
' consecutivo = consecutivo + 1
|
||||
' Dim faltantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO = 'FALTANTE'"$)
|
||||
' If faltantes.RowCount > 0 Then
|
||||
' faltantes.Position = 0
|
||||
' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${(-1*restado)}', PE_COSTO_TOT= ${(-1*restado)}*${preciofull}, PE_TIPO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
|
||||
' Else
|
||||
'' Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_PROID,PE_PRONOMBRE,PE_CANT,PE_CLIENTEOR,PE_CLIENTE,PE_COSTOU,PE_COSTO_TOT,PE_CAJAS,PE_BCAJAS,CONSECUTIVO,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),(-1*restado),"",Subs.traeCliente,preciofull,(-1*(preciofull*restado)),consecutivo,1000,"SOBRANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0))
|
||||
' End If
|
||||
' End If
|
||||
' Else If restadoanterior.GetInt("RESTA") = 0 And restado = 0 Then
|
||||
' Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND PE_TIPO NOT IN ('DANADO') "$)
|
||||
' End If
|
||||
' End If
|
||||
' Else If inputText = "" Or inputText = 0 Then
|
||||
' Log("IMPUT IGUAL DE CERO")
|
||||
' Log(idParts(0))
|
||||
' Log(cantidadrestar)
|
||||
' Log(inputText)
|
||||
' Dim restado As Int = cantidadrestar - inputText
|
||||
' Log(cantidadrestar - inputText)
|
||||
' Dim faltantes As Cursor = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
|
||||
' If faltantes.RowCount > 0 Then
|
||||
' faltantes.Position = 0
|
||||
' Starter.skmt.ExecNonQuery($"delete from PICK_CIEGO where PC_ID_PROD = '${idParts(0)}'"$)
|
||||
' End If
|
||||
'' Dim sobrantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' AND PE_TIPO in ('SOBRANTE','FALTANTE')"$)
|
||||
' Dim sobrantes As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403'"$)
|
||||
' If sobrantes.RowCount > 0 Then
|
||||
' sobrantes.Position = 0
|
||||
' Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${sobrantes.GetString("CONSECUTIVO")}'"$)
|
||||
' End If
|
||||
'
|
||||
' Dim preciocat As Cursor = Starter.skmt.ExecQuery($"select IFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD WHERE CAT_GP_ID = '${idParts(0)}'"$)
|
||||
' If preciocat.RowCount > 0 Then
|
||||
' preciocat.Position = 0
|
||||
' Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO")
|
||||
' End If
|
||||
' preciocat.Close
|
||||
'' Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_PROID,PE_PRONOMBRE,PE_CANT,PE_CLIENTEOR,PE_CLIENTE,PE_COSTOU,PE_COSTO_TOT,PE_CAJAS,PE_BCAJAS,CONSECUTIVO,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),restado,"",Subs.traeCliente,preciofull,(preciofull*restado),consecutivo,1000,"FALTANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0))
|
||||
'
|
||||
' End If
|
||||
' f.Close
|
||||
' a.Close
|
||||
' Log("Processed item " & i)
|
||||
' Next
|
||||
Envioinfo
|
||||
P_CIEGO.Visible = False
|
||||
End Sub
|
||||
Reference in New Issue
Block a user