mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-18 02:29:13 +00:00
28/10/23 - Se agrega còdigo para indicar la fecha del respaldo a restaurar.
- Si se agrega un numero negativo despues de la contraseña de la carga local, se toma el respaldo de "hoy menos x dias" para restaurar.
This commit is contained in:
@@ -279,6 +279,8 @@ Sub Class_Globals
|
||||
Dim errorImpresora As Int = 0
|
||||
Private b_inicioFinVenta As Button
|
||||
Dim dentroDeGeocerca As Boolean = False
|
||||
Dim motivoNoVenta As String = ""
|
||||
Dim precision As Int = 0
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -366,7 +368,7 @@ Sub B4XPage_Appear
|
||||
' Log(Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
|
||||
b_inicioFinVenta.Text = "INICIAR VENTA"
|
||||
b_inicioFinVenta.BringToFront
|
||||
If Not(Starter.enVenta) Then
|
||||
If Not(Starter.enVenta) And la_cuenta.Text <> "0" Then
|
||||
b_inicioFinVenta.Visible = True
|
||||
' Log("EnVenta Visible")
|
||||
Else
|
||||
@@ -378,7 +380,7 @@ Sub B4XPage_Appear
|
||||
|
||||
' P_INF_GENERAL.Height = Root.Height
|
||||
' P_INF_GENERAL.Width = Root.Width
|
||||
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
|
||||
c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
|
||||
c.Position = 0
|
||||
If c.RowCount > 0 Then
|
||||
MAC_IMPRESORA = c.GetString("CAT_VA_VALOR")
|
||||
@@ -393,6 +395,8 @@ Sub B4XPage_Appear
|
||||
If Not(muestraBoleta) Then Subs.panelVisibleCompleto(P_INF_GENERAL, Root)
|
||||
p_pideGeoPass.Visible = False
|
||||
' If Logger Then Log(muestraBoleta)
|
||||
usuario = Subs.traeUsuarioDeBD
|
||||
Id_Almacen = Subs.traeAlmacen
|
||||
CallSubDelayed(Tracker, "StartFLP2")
|
||||
b_ubicacion.Text = "SIN GPS"
|
||||
b_ubicacion.TextColor = Colors.Red
|
||||
@@ -430,6 +434,7 @@ Sub B4XPage_Appear
|
||||
l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
|
||||
l_total.Text = s.GetString("TOTAL_CLIE")
|
||||
total_cliente = s.GetString("TOTAL_CLIE")
|
||||
' Log(Subs.sumaPedido(Subs.traeCliente) & " - " & total_cliente)
|
||||
m_lat =c.GetString("CAT_CL_LAT")
|
||||
m_lon =c.GetString("CAT_CL_LONG")
|
||||
CREDITO_DISPONIBLE = c.GetString("CAT_CL_BFACTURA")
|
||||
@@ -444,7 +449,7 @@ Sub B4XPage_Appear
|
||||
End If
|
||||
|
||||
LONGITUD = 0
|
||||
If c.GetString("CAT_CL_LONG") <> Null And c.GetString("CAT_CL_LONG") <> "null" And IsNumber(c.GetString("CAT_CL_LONG")) Then LONGITUD = c.GetString("CAT_CL_LONG")
|
||||
If c.GetString("CAT_CL_LONG") <> Null And c.GetString("CAT_CL_LONG") <> "null" And IsNumber(c.GetString("CAT_CL_LONG")) Then LONGITUD = c.GetString("CAT_CL_LONG")
|
||||
LATITUD = 0
|
||||
If c.GetString("CAT_CL_LAT") <> Null And c.GetString("CAT_CL_LAT") <> "null" And IsNumber(c.GetString("CAT_CL_LAT")) Then LATITUD = c.GetString("CAT_CL_LAT")
|
||||
' LogColor($"${c.GetString("CAT_CL_LAT")}, ${c.GetString("CAT_CL_LONG")}"$, Colors.red)
|
||||
@@ -458,6 +463,7 @@ Sub B4XPage_Appear
|
||||
If la_cuenta.Text = "0" Then
|
||||
CREDITO_DISPONIBLE = 10000000
|
||||
CREDITO = 0
|
||||
b_inicioFinVenta.Visible = False
|
||||
End If
|
||||
End If
|
||||
If S1.GetString("CUANTOS") = 0 Then
|
||||
@@ -494,7 +500,7 @@ Sub B4XPage_Appear
|
||||
|
||||
la_saldotot.Text = MONTO_COMPRA
|
||||
If MONTO_COMPRA <> "0" Then
|
||||
META2 = 300 - MONTO_COMPRA
|
||||
META2 = NumberFormat2((300 - MONTO_COMPRA), 0, 4, 2, False)
|
||||
Else
|
||||
META2 = 300
|
||||
End If
|
||||
@@ -569,7 +575,7 @@ Sub B4XPage_Appear
|
||||
|
||||
c=Starter.skmt.ExecQuery("select count(*) as conNoVenta FROM NOVENTA WHERE NV_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position = 0
|
||||
If c.GetString("conNoVenta") = 1 Then b_noVenta.Visible = False 'Si ya tiene NoVenta, ocultamos el boton.
|
||||
If c.GetString("conNoVenta") = 1 Then b_noVenta.Visible = False 'Si ya tiene NoVenta, ocultamos el boton.
|
||||
c.Close
|
||||
Else
|
||||
RutaBoleta=Starter.rutaV
|
||||
@@ -611,7 +617,7 @@ Sub B4XPage_Appear
|
||||
c2=Starter.skmt.ExecQuery2("SELECT CAT_GP_ALMACEN FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = ? ", Array As String("1008094223"))
|
||||
c2.Position = 0
|
||||
If c2.GetString("CAT_GP_ALMACEN") > 0 Then
|
||||
b_whats.Visible = True
|
||||
' b_whats.Visible = True
|
||||
End If
|
||||
c2.Close
|
||||
End If
|
||||
@@ -786,12 +792,10 @@ Sub Guardar_Click
|
||||
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||
c.Position=0
|
||||
clie_id = c.GetString("CUENTA")
|
||||
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
c.Position=0
|
||||
usuario = c.GetString("USUARIO")
|
||||
usuario = Subs.traeUsuarioDeBD
|
||||
If l_total.Text <> Null And l_total.Text <> "null" Then Subs.ponImpreso(clie_id) 'Solo lo marcamos com impreso si tiene venta (total > 0).
|
||||
c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
c = Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position = 0
|
||||
If c.GetString("CUANTOS") > 0 Then
|
||||
Starter.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
|
||||
Starter.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||
@@ -837,7 +841,14 @@ Sub Guardar_Click
|
||||
' B4XPages.ShowPageAndRemovePreviousPages("Principal")
|
||||
Guardar.SendToBack
|
||||
b_inicioFinVenta.Text = "TERMINAR VENTA"
|
||||
b_inicioFinVenta.Visible = True
|
||||
If la_cuenta.Text <> "0" Then 'Si es ABORDO, no mostramos el boton b_inicioFinVenta y regresamos a Principal.
|
||||
b_inicioFinVenta.Visible = True
|
||||
Else
|
||||
b_inicioFinVenta.Visible = False
|
||||
Starter.enVenta = False
|
||||
Subs.iniciaActividad("principal")
|
||||
B4XPages.ShowPageAndRemovePreviousPages("Principal")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub NUEVO_Click
|
||||
@@ -990,15 +1001,15 @@ Sub B_IMP2_Click
|
||||
If la_cuenta.Text <> "0" And la_cuenta.Text <> "null" Then
|
||||
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_TIPO = ? WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ", Array As Object("VENTA"))
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set IMPRESION = 1 where CAT_CL_CODIGO In (select cuenta from cuentaa)")''
|
||||
Guardar.Visible = True
|
||||
End If
|
||||
Guardar.Visible = True
|
||||
Starter.skmt.ExecNonQuery("delete from pedido3")
|
||||
Starter.skmt.ExecNonQuery("INSERT INTO PEDIDO3 (PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_USUARIO ) SELECT PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, SUM(PE_COSTO_TOT) AS PE_COSTO_TOT, PE_COSTOU, SUM(PE_CANT) As PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) GROUP BY PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTOU, PE_PRONOMBRE, PE_PROID, PE_CLIENTE ")
|
||||
Starter.skmt.ExecNonQuery("INSERT INTO PEDIDO3 (PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_USUARIO) SELECT PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, SUM(PE_COSTO_TOT) AS PE_COSTO_TOT, PE_COSTOU, SUM(PE_CANT) As PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) GROUP BY PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTOU, PE_PRONOMBRE, PE_PROID, PE_CLIENTE ")
|
||||
c=Starter.skmt.ExecQuery("select PE_PRECIO2,PE_TIPO,PE_FOLIO,PE_DESC,PE_COSTO_SIN,PE_RUTA,PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE, PE_FECHA,PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount -1
|
||||
c.Position = i
|
||||
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO3 SET PE_FECHA= ? WHERE PE_CLIENTE = ? AND PE_PRONOMBRE = ? AND PE_PROID = ? AND PE_CEDIS = ? AND PE_FOLIO = ?", Array As Object(c.GetString("PE_FECHA"), c.GetString("PE_CLIENTE"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CEDIS"), c.GetString("PE_FOLIO")))
|
||||
Next
|
||||
End If
|
||||
@@ -1046,20 +1057,20 @@ Sub B_IMP2_Click
|
||||
If la_cuenta.Text = "0" Then
|
||||
Try
|
||||
Printer1.WriteString("KELLOGG COMPANY MEXICO" & CRLF)
|
||||
Printer1.WriteString(sDate &" " & sTime & CRLF)
|
||||
Printer1.WriteString("Vendedor:" & usuario & CRLF)
|
||||
Printer1.WriteString("Ruta:" & ruta_tienda & CRLF)
|
||||
Printer1.WriteString("Tienda: " & La_nombre.Text & CRLF)
|
||||
Printer1.WriteString("ID.Cliente: " & la_cuenta.Text & CRLF)
|
||||
Printer1.WriteString("Calle: " & la_Calle.Text & CRLF)
|
||||
Printer1.WriteString("Colonia: " & la_col.Text & CRLF)
|
||||
Printer1.WriteString("C.P.: " & la_cp.Text & CRLF)
|
||||
Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
|
||||
Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
|
||||
Printer1.WriteString(sDate &" " & sTime & CRLF)
|
||||
Printer1.WriteString("Vendedor:" & usuario & CRLF)
|
||||
Printer1.WriteString("Ruta:" & ruta_tienda & CRLF)
|
||||
Printer1.WriteString("Tienda: " & La_nombre.Text & CRLF)
|
||||
Printer1.WriteString("ID.Cliente: " & la_cuenta.Text & CRLF)
|
||||
Printer1.WriteString("Calle: " & la_Calle.Text & CRLF)
|
||||
Printer1.WriteString("Colonia: " & la_col.Text & CRLF)
|
||||
Printer1.WriteString("C.P.: " & la_cp.Text & CRLF)
|
||||
Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
|
||||
Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("PEDIDO" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("ABORDO","CAMBIO"))
|
||||
If S.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
@@ -1090,7 +1101,7 @@ Sub B_IMP2_Click
|
||||
End If
|
||||
s.Close
|
||||
Printer1.WriteString(CRLF)
|
||||
Printer1.WriteString("------------RMI---------------" & CRLF)
|
||||
Printer1.WriteString("------------RMI---------------" & CRLF)
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("ABORDO","CAMBIO"))
|
||||
If S.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
@@ -1135,7 +1146,7 @@ Sub B_IMP2_Click
|
||||
End If
|
||||
Printer1.WriteString( "Total entrega: $" & NumberFormat2(sTotal1, 1, 2, 2, False) & CRLF)
|
||||
|
||||
Printer1.WriteString("===============================" & CRLF)
|
||||
Printer1.WriteString("===============================" & CRLF)
|
||||
''bold para las nuevas impresoras
|
||||
Private total3 As String = 0
|
||||
If s.GETSTRING("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then total3 = s.GETSTRING("TOTAL")
|
||||
@@ -1147,7 +1158,7 @@ Sub B_IMP2_Click
|
||||
Private total4 As String = "0"
|
||||
If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then total4 = s.GetString("TOTAL")
|
||||
Printer1.WriteString( Printer1.BOLD & "No. Productos: " & total4 & CRLF)
|
||||
Printer1.WriteString("===============================" & CRLF)
|
||||
Printer1.WriteString("===============================" & CRLF)
|
||||
s.Close
|
||||
Printer1.WriteString(Printer1.DEFAULTS)
|
||||
|
||||
@@ -1200,13 +1211,13 @@ Sub B_IMP2_Click
|
||||
|
||||
''''''' PEDIDOS DOE
|
||||
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("DOE"))
|
||||
s= Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("DOE"))
|
||||
|
||||
'' s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and pe_codpromo = ? and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("VENTA", "DOE", "CAMBIO"))
|
||||
If S.RowCount>0 Then
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("PEDIDO DON TOÑO" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
|
||||
@@ -1237,24 +1248,26 @@ Sub B_IMP2_Click
|
||||
End If
|
||||
s.Close
|
||||
|
||||
s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("DOE"))
|
||||
s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("DOE"))
|
||||
s.Position = 0
|
||||
Private sTotal2 As Double
|
||||
Log(sTotal2)
|
||||
If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then
|
||||
sTotal2 = s.GetString("TOTAL")
|
||||
sTotal2 = Subs.sumaPedido(Subs.traeCliente)
|
||||
Printer1.WriteString( $"Sub Total : $${NumberFormat2(sTotal2, 1, 2, 2, False)}"$ & CRLF)
|
||||
|
||||
Else
|
||||
sTotal2 = 0
|
||||
End If
|
||||
Log(sTotal2)
|
||||
Private cantidad1 As String = "0"
|
||||
If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then
|
||||
cantidad1 = s.GetString("CANTIDAD")
|
||||
|
||||
Printer1.WriteString( "No. Productos: " & cantidad1 & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("FIN PEDIDO DON TOÑO" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
End If
|
||||
|
||||
' Printer1.WriteString(CRLF)
|
||||
@@ -1262,9 +1275,9 @@ Sub B_IMP2_Click
|
||||
''''SE MODIFCA EL QUERY POR LOS PEDIDOS DOE
|
||||
S=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CEDIS <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("VENTA","CAMBIO","DOE"))
|
||||
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("VENTA" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
''s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and pe_codpromo <> ? and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("VENTA", "DOE", "CAMBIO"))
|
||||
If S.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
@@ -1295,7 +1308,7 @@ Sub B_IMP2_Click
|
||||
Next
|
||||
End If
|
||||
s.Close
|
||||
s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CEDIS <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO","DOE"))
|
||||
s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CEDIS <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO","DOE"))
|
||||
s.Position = 0
|
||||
Private sTotal2 As Double
|
||||
If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then
|
||||
@@ -1303,14 +1316,14 @@ Sub B_IMP2_Click
|
||||
Else
|
||||
sTotal2 = 0
|
||||
End If
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & $"Sub Total Venta: $${NumberFormat2(sTotal2, 1, 2, 2, False)}"$ & CRLF)
|
||||
Private cantidad1 As String = "0"
|
||||
If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then cantidad1 = s.GetString("CANTIDAD")
|
||||
Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & "No. Productos: " & cantidad1 & CRLF)
|
||||
Printer1.WriteString(CRLF)
|
||||
s.Close
|
||||
Printer1.WriteString("------------RMI---------------" & CRLF)
|
||||
Printer1.WriteString("------------RMI---------------" & CRLF)
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
|
||||
If S.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
@@ -1342,7 +1355,7 @@ Sub B_IMP2_Click
|
||||
End If
|
||||
s.Close
|
||||
|
||||
s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
|
||||
s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
|
||||
s.Position = 0
|
||||
Private sTotal3 As Double
|
||||
If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then
|
||||
@@ -1350,7 +1363,7 @@ Sub B_IMP2_Click
|
||||
Else
|
||||
sTotal3 = 0
|
||||
End If
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD & "Sub Total CAMBIOS: $" & NumberFormat2(sTotal3, 1, 2, 2, False) & CRLF)
|
||||
Private cantidad2 As String = "0"
|
||||
If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then cantidad2 = s.GetString("CANTIDAD")
|
||||
@@ -1360,24 +1373,24 @@ Sub B_IMP2_Click
|
||||
Printer1.WriteString(CRLF)
|
||||
s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
s.Position =0
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Private total2 As String = 0
|
||||
If s.GETSTRING("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then total2 = s.GETSTRING("TOTAL")
|
||||
Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD & "Total venta: $" & NumberFormat2(total2, 1, 2, 2, False) & CRLF)
|
||||
' Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD & "Total venta: $" & s.GetString("TOTAL") & CRLF)
|
||||
' Printer1.WriteString("===============================" & CRLF)
|
||||
' Printer1.WriteString("===============================" & CRLF)
|
||||
'
|
||||
' Printer1.WriteString( "Total venta: $" & s.GetString("TOTAL") & CRLF)
|
||||
s.Close
|
||||
s=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
s=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
s.Position =0
|
||||
Private total5 As String = "0"
|
||||
If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then total5 = s.GetString("TOTAL")
|
||||
Printer1.WriteString(Printer1.BOLD & "No. Productos vendidos: " & (total5 - cantidad2) & CRLF)
|
||||
Printer1.WriteString(Printer1.BOLD & "Productos devueltos : " & cantidad2 & CRLF)
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
' Printer1.WriteString( "No. Productos: " & s.GetString("TOTAL") & CRLF)
|
||||
' Printer1.WriteString( "===============================" & CRLF)
|
||||
' Printer1.WriteString( "===============================" & CRLF)
|
||||
s.Close
|
||||
Printer1.WriteString(Printer1.UNREVERSE)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
@@ -1463,18 +1476,18 @@ Sub B_IMP2BAK_Click
|
||||
End If
|
||||
' If Logger Then Log($"Impresora Conectada: ${Printer1.IsConnected}"$)
|
||||
If la_cuenta.Text <> "0" And la_cuenta.Text <> "null" Then
|
||||
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_TIPO = ? WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ", Array As Object("VENTA"))
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set IMPRESION = 1 where CAT_CL_CODIGO In (select cuenta from cuentaa)")''
|
||||
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_TIPO = ? WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ", Array As Object("VENTA"))
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set IMPRESION = 1 where CAT_CL_CODIGO In (select cuenta from cuentaa)")''
|
||||
Guardar.Visible = True
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery("delete from pedido3")
|
||||
Starter.skmt.ExecNonQuery("INSERT INTO PEDIDO3 (PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_USUARIO ) SELECT PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, SUM(PE_COSTO_TOT) AS PE_COSTO_TOT, PE_COSTOU, SUM(PE_CANT) As PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) GROUP BY PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTOU, PE_PRONOMBRE, PE_PROID, PE_CLIENTE ")
|
||||
Starter.skmt.ExecNonQuery("INSERT INTO PEDIDO3 (PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_USUARIO ) SELECT PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, SUM(PE_COSTO_TOT) AS PE_COSTO_TOT, PE_COSTOU, SUM(PE_CANT) As PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) GROUP BY PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTOU, PE_PRONOMBRE, PE_PROID, PE_CLIENTE ")
|
||||
c=Starter.skmt.ExecQuery("select PE_PRECIO2,PE_TIPO,PE_FOLIO,PE_DESC,PE_COSTO_SIN,PE_RUTA,PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE, PE_FECHA,PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO3 SET PE_FECHA= ? WHERE PE_CLIENTE = ? AND PE_PRONOMBRE = ? AND PE_PROID = ? AND PE_CEDIS = ? AND PE_FOLIO = ?", Array As Object(c.GetString("PE_FECHA"), c.GetString("PE_CLIENTE"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CEDIS"), c.GetString("PE_FOLIO")))
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO3 SET PE_FECHA= ? WHERE PE_CLIENTE = ? AND PE_PRONOMBRE = ? AND PE_PROID = ? AND PE_CEDIS = ? AND PE_FOLIO = ?", Array As Object(c.GetString("PE_FECHA"), c.GetString("PE_CLIENTE"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CEDIS"), c.GetString("PE_FOLIO")))
|
||||
Next
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery("delete from pedido WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ")
|
||||
@@ -1521,20 +1534,20 @@ Sub B_IMP2BAK_Click
|
||||
If la_cuenta.Text = "0" Then
|
||||
Try
|
||||
Printer1.WriteString("KELLOGG COMPANY MEXICO" & CRLF)
|
||||
Printer1.WriteString(sDate &" " & sTime & CRLF)
|
||||
Printer1.WriteString("Vendedor:" & usuario & CRLF)
|
||||
Printer1.WriteString("Ruta:" & ruta_tienda & CRLF)
|
||||
Printer1.WriteString("Tienda: " & La_nombre.Text & CRLF)
|
||||
Printer1.WriteString("ID.Cliente: " & la_cuenta.Text & CRLF)
|
||||
Printer1.WriteString("Calle: " & la_Calle.Text & CRLF)
|
||||
Printer1.WriteString("Colonia: " & la_col.Text & CRLF)
|
||||
Printer1.WriteString("C.P.: " & la_cp.Text & CRLF)
|
||||
Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
|
||||
Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
|
||||
Printer1.WriteString(sDate &" " & sTime & CRLF)
|
||||
Printer1.WriteString("Vendedor:" & usuario & CRLF)
|
||||
Printer1.WriteString("Ruta:" & ruta_tienda & CRLF)
|
||||
Printer1.WriteString("Tienda: " & La_nombre.Text & CRLF)
|
||||
Printer1.WriteString("ID.Cliente: " & la_cuenta.Text & CRLF)
|
||||
Printer1.WriteString("Calle: " & la_Calle.Text & CRLF)
|
||||
Printer1.WriteString("Colonia: " & la_col.Text & CRLF)
|
||||
Printer1.WriteString("C.P.: " & la_cp.Text & CRLF)
|
||||
Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
|
||||
Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("PEDIDO" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("ABORDO","CAMBIO"))
|
||||
If S.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
@@ -1565,7 +1578,7 @@ Sub B_IMP2BAK_Click
|
||||
End If
|
||||
s.Close
|
||||
Printer1.WriteString(CRLF)
|
||||
Printer1.WriteString("------------RMI---------------" & CRLF)
|
||||
Printer1.WriteString("------------RMI---------------" & CRLF)
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("ABORDO","CAMBIO"))
|
||||
If S.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
@@ -1610,7 +1623,7 @@ Sub B_IMP2BAK_Click
|
||||
End If
|
||||
Printer1.WriteString( "Total entrega: $" & NumberFormat2(sTotal1, 1, 2, 2, False) & CRLF)
|
||||
|
||||
Printer1.WriteString("===============================" & CRLF)
|
||||
Printer1.WriteString("===============================" & CRLF)
|
||||
''bold para las nuevas impresoras
|
||||
Private total3 As String = 0
|
||||
If s.GETSTRING("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then total3 = s.GETSTRING("TOTAL")
|
||||
@@ -1622,7 +1635,7 @@ Sub B_IMP2BAK_Click
|
||||
Private total4 As String = "0"
|
||||
If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then total4 = s.GetString("TOTAL")
|
||||
Printer1.WriteString( Printer1.BOLD & "No. Productos: " & total4 & CRLF)
|
||||
Printer1.WriteString("===============================" & CRLF)
|
||||
Printer1.WriteString("===============================" & CRLF)
|
||||
s.Close
|
||||
Printer1.WriteString(Printer1.DEFAULTS)
|
||||
|
||||
@@ -1675,10 +1688,10 @@ Sub B_IMP2BAK_Click
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
|
||||
''''''' PEDIDOS DOE
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("PEDIDO DON TOÑO" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("DOE"))
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
s = Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("DOE"))
|
||||
|
||||
'' s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and pe_codpromo = ? and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("VENTA", "DOE", "CAMBIO"))
|
||||
If S.RowCount>0 Then
|
||||
@@ -1711,7 +1724,7 @@ Sub B_IMP2BAK_Click
|
||||
End If
|
||||
s.Close
|
||||
|
||||
s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("DOE"))
|
||||
s = Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("DOE"))
|
||||
s.Position = 0
|
||||
Private sTotal2 As Double
|
||||
If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then
|
||||
@@ -1727,17 +1740,17 @@ Sub B_IMP2BAK_Click
|
||||
s.Close
|
||||
''''SE MODIFCA EL QUERY POR LOS PEDIDOS DOE
|
||||
S=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CEDIS <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("VENTA","CAMBIO","DOE"))
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("FIN PEDIDO DON TOÑO" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("VENTA" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
''s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and pe_codpromo <> ? and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("VENTA", "DOE", "CAMBIO"))
|
||||
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("VENTA" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
' printer.WriteLine("-----------ENTREGA------------")
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("VENTA","CAMBIO"))
|
||||
If S.RowCount>0 Then
|
||||
@@ -1769,7 +1782,7 @@ Sub B_IMP2BAK_Click
|
||||
Next
|
||||
End If
|
||||
s.Close
|
||||
s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
|
||||
s = Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
|
||||
s.Position = 0
|
||||
Private sTotal2 As Double
|
||||
If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then
|
||||
@@ -1783,7 +1796,7 @@ Sub B_IMP2BAK_Click
|
||||
Printer1.WriteString( "No. Productos: " & cantidad1 & CRLF)
|
||||
Printer1.WriteString(CRLF)
|
||||
s.Close
|
||||
Printer1.WriteString("------------RMI---------------" & CRLF)
|
||||
Printer1.WriteString("------------RMI---------------" & CRLF)
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
|
||||
If S.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
@@ -1815,7 +1828,7 @@ Sub B_IMP2BAK_Click
|
||||
End If
|
||||
s.Close
|
||||
|
||||
s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
|
||||
s = Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
|
||||
s.Position = 0
|
||||
Private sTotal3 As Double
|
||||
If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then
|
||||
@@ -1832,23 +1845,23 @@ Sub B_IMP2BAK_Click
|
||||
Printer1.WriteString(CRLF)
|
||||
s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
s.Position =0
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Private total2 As String = 0
|
||||
If s.GETSTRING("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then total2 = s.GETSTRING("TOTAL")
|
||||
Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD & "Total venta: $" & NumberFormat2(total2, 1, 2, 2, False) & CRLF)
|
||||
' Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD & "Total venta: $" & s.GetString("TOTAL") & CRLF)
|
||||
' Printer1.WriteString("===============================" & CRLF)
|
||||
' Printer1.WriteString("===============================" & CRLF)
|
||||
'
|
||||
' Printer1.WriteString( "Total venta: $" & s.GetString("TOTAL") & CRLF)
|
||||
s.Close
|
||||
s=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
s=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
s.Position =0
|
||||
Private total5 As String = "0"
|
||||
If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then total5 = s.GetString("TOTAL")
|
||||
Printer1.WriteString(Printer1.BOLD & "No. Productos: " & total5 & CRLF)
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
' Printer1.WriteString( "No. Productos: " & s.GetString("TOTAL") & CRLF)
|
||||
' Printer1.WriteString( "===============================" & CRLF)
|
||||
' Printer1.WriteString( "===============================" & CRLF)
|
||||
s.Close
|
||||
Printer1.WriteString(Printer1.UNREVERSE)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
@@ -1941,7 +1954,6 @@ Sub StartPrinter
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Sub B_VENTA_Click
|
||||
If la_cuenta.Text = "0" Then
|
||||
Starter.tipov = "ABORDO"
|
||||
@@ -2020,7 +2032,7 @@ Sub Cuestionario
|
||||
Subs.iniciaActividad("foto")
|
||||
' Msgbox("paso2","a")
|
||||
Exit
|
||||
ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 3 Then ' Tipo SI/NO
|
||||
ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 3 Then ' Tipo SI/NO
|
||||
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
|
||||
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
|
||||
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
|
||||
@@ -2433,7 +2445,7 @@ End Sub
|
||||
|
||||
'''' MONEDAS
|
||||
Sub L_CALCULA_MONEDA_Click
|
||||
If EDT_CANDIEZ.Text="" Or EDT_CANCI.Text="" Or EDT_CANDO.Text="" Or EDT_CANUN.Text="" Or EDT_CANCEN.Text="" Or EDT_CANVEINTE.Text="" Then
|
||||
If EDT_CANDIEZ.Text="" Or EDT_CANCI.Text="" Or EDT_CANDO.Text="" Or EDT_CANUN.Text="" Or EDT_CANCEN.Text="" Or EDT_CANVEINTE.Text="" Then
|
||||
Msgbox("Por favor llena todas las cantidades","") 'ignore
|
||||
Pnl_Billete.RequestFocus
|
||||
Else
|
||||
@@ -2679,7 +2691,7 @@ Sub LBL_RETURN_Click
|
||||
LBL_RETURN.Visible=False
|
||||
LBL_REGRESA.Visible=False
|
||||
''' CALCULO FINAL
|
||||
If TOTALMONEDA.Text="" Or TOTALBILLETES.Text="" Then
|
||||
If TOTALMONEDA.Text="" Or TOTALBILLETES.Text="" Then
|
||||
TOTALMONEDA.Text=0
|
||||
TOTALBILLETES.Text=0
|
||||
B_SUM_TOTAL.Text="$"& (TOTALMONEDA.Text + TOTALBILLETES.Text)
|
||||
@@ -2768,40 +2780,40 @@ Sub IMG_IMPRESORA_Click
|
||||
Printer1.WriteString(sDate &" " & sTime & CRLF)
|
||||
Printer1.WriteString("Vendedor:" & usuario & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("BILLETES" & CRLF)
|
||||
Printer1.WriteString("$1,000 X " & EDT_CANMIL.TEXT & " = " & LBL_TMIL.TEXT & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("$500 X " & EDT_CANQUIN.TEXT & " = " & LBL_TQUIN.TEXT &CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("$200 X " & EDT_CANDOS.TEXT & " = " & LBL_TDOS.Text & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("$100 X " & EDT_CANCIEN.TEXT & " = " & LBL_TCIEN.Text & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("$50 X " & EDT_CANCIN.TEXT & " = " & LBL_TCIN.Text & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("$20 X " & EDT_CANVEIN.TEXT & " = " & LBL_TVEIN.Text & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("TOTAL BILLETES...... " & Btn_TOTALBILLETE.TEXT & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("TOTAL BILLETES...... " & Btn_TOTALBILLETE.TEXT & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("MONEDAS" & CRLF)
|
||||
Printer1.WriteString("$20 X " & EDT_CANVEINTE.TEXT & " = " & LBL_TVEINTE.TEXT &CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("$10 X " & EDT_CANDIEZ.TEXT & " = " & LBL_TDIEZ.TEXT &CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("$5 X " & EDT_CANCI.TEXT & " = " & LBL_TCI.Text & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("$2 X " & EDT_CANDO.TEXT & " = " & LBL_TDO.Text & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("$1 X " & EDT_CANUN.TEXT & " = " & LBL_TUN.Text & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("$.50 X " & EDT_CANCEN.TEXT & " = " & LBL_TCEN.Text & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("TOTAL MONEDAS....... " & B_TOTALMONEDA.TEXT & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("TOTAL MONEDAS....... " & B_TOTALMONEDA.TEXT & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("TOTAL .........." & B_SUM_TOTAL.TEXT & CRLF)
|
||||
Printer1.WriteString("TOTAL .........." & B_SUM_TOTAL.TEXT & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("Nombre y Firma" & CRLF)
|
||||
@@ -2855,19 +2867,19 @@ Sub B_IMP_INVBAK_Click
|
||||
BLANCO = " "
|
||||
Printer1.WriteString("KELLOG COMPANY MEXICO" & CRLF)
|
||||
Printer1.WriteString("RESUMEN DIA" & CRLF)
|
||||
Printer1.WriteString(sDate & " " & sTime & CRLF)
|
||||
Printer1.WriteString("Vendedor:" & usuario & CRLF)
|
||||
Printer1.WriteString("-------INVENTARIO A BORDO----------" & CRLF)
|
||||
Printer1.WriteString("---II---CD---IIT---VT---RMI---IF---" & CRLF)
|
||||
Printer1.WriteString(sDate & " " & sTime & CRLF)
|
||||
Printer1.WriteString("Vendedor:" & usuario & CRLF)
|
||||
Printer1.WriteString("-------INVENTARIO A BORDO----------" & CRLF)
|
||||
Printer1.WriteString("---II---CD---IIT---VT---RMI---IF---" & CRLF)
|
||||
|
||||
' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
|
||||
s=Starter.skmt.ExecQuery2 ("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_ALMACEN from cat_gunaprod2 where CAT_GP_CLASIF <> ? ORDER BY CAT_GP_NOMBRE ", Array As String("PROMOS"))
|
||||
s = Starter.skmt.ExecQuery2 ("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_ALMACEN from cat_gunaprod2 where CAT_GP_CLASIF <> ? ORDER BY CAT_GP_NOMBRE ", Array As String("PROMOS"))
|
||||
Log($"Reglones: ${s.RowCount}"$)
|
||||
If s.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
If s.RowCount > 0 Then
|
||||
For i = 0 To S.RowCount - 1
|
||||
Log(i)
|
||||
Try
|
||||
s.Position=i
|
||||
s.Position = i
|
||||
Printer1.WriteString(s.GetString("CAT_GP_NOMBRE") & CRLF)
|
||||
Log("p"&i)
|
||||
Catch
|
||||
@@ -2875,10 +2887,10 @@ Sub B_IMP_INVBAK_Click
|
||||
If logger Then Log("Saliendo con Try/Catch")
|
||||
Exit
|
||||
End Try
|
||||
S1=Starter.skmt.ExecQuery2("select CAT_GP_ALMACEN from cat_gunaprod5 where CAT_GP_ID = ?", Array As String(s.GetString("CAT_GP_ID")))
|
||||
S1.Position=0
|
||||
S3=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID")))
|
||||
S3.Position=0
|
||||
S1 = Starter.skmt.ExecQuery2("select CAT_GP_ALMACEN from cat_gunaprod5 where CAT_GP_ID = ?", Array As String(s.GetString("CAT_GP_ID")))
|
||||
S1.Position = 0
|
||||
S3 = Starter.skmt.ExecQuery2("select count(*) as CUANTOS from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID")))
|
||||
S3.Position = 0
|
||||
If S3.GetString("CUANTOS") > 0 Then
|
||||
S2=Starter.skmt.ExecQuery2("select HIST_CANT from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID")))
|
||||
S2.Position=0
|
||||
@@ -2898,8 +2910,8 @@ Sub B_IMP_INVBAK_Click
|
||||
'Printer1.WriteString("CARGA TOTAL : " & S1.GetString("CAT_GP_ALMACEN") & CRLF)
|
||||
a_total = S1.GetString("CAT_GP_ALMACEN")
|
||||
|
||||
C4=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? and PE_PROID = ? ", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID")))
|
||||
C4.Position=0
|
||||
C4 = Starter.skmt.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? and PE_PROID = ? ", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID")))
|
||||
C4.Position = 0
|
||||
If C4.GetString("CUANTOS") > 0 Then
|
||||
C3=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID")))
|
||||
C3.Position=0
|
||||
@@ -2910,8 +2922,8 @@ Sub B_IMP_INVBAK_Click
|
||||
a_venta = 0
|
||||
End If
|
||||
C4.Close
|
||||
C4=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID")))
|
||||
C4.Position=0
|
||||
C4 = Starter.skmt.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID")))
|
||||
C4.Position = 0
|
||||
If C4.GetString("CUANTOS") > 0 Then
|
||||
C1=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO", s.GetString("CAT_GP_ID")))
|
||||
C1.Position=0
|
||||
@@ -3150,20 +3162,20 @@ Sub B_IMP_INV_Click
|
||||
BLANCO = " "
|
||||
Printer1.WriteString("KELLOG COMPANY MEXICO" & CRLF)
|
||||
Printer1.WriteString("RESUMEN DIA" & CRLF)
|
||||
Printer1.WriteString(sDate & " " & sTime & CRLF)
|
||||
Printer1.WriteString("Vendedor:" & usuario & CRLF)
|
||||
Printer1.WriteString("-------INVENTARIO A BORDO----------" & CRLF)
|
||||
''' se cambia este Printer1.WriteString("---II---CD---IIT---VT---RMI---IF---" & CRLF) ------- sin RMI
|
||||
Printer1.WriteString("---II---CD---IIT---VT---------IF---" & CRLF)
|
||||
Printer1.WriteString(sDate & " " & sTime & CRLF)
|
||||
Printer1.WriteString("Vendedor:" & usuario & CRLF)
|
||||
Printer1.WriteString("-------INVENTARIO A BORDO----------" & CRLF)
|
||||
''' se cambia este Printer1.WriteString("---II---CD---IIT---VT---RMI---IF---" & CRLF) ------- sin RMI
|
||||
Printer1.WriteString("---II---CD---IIT---VT---------IF---" & CRLF)
|
||||
|
||||
' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
|
||||
s=Starter.skmt.ExecQuery2 ("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_ALMACEN from cat_gunaprod2 where CAT_GP_CLASIF <> ? ORDER BY CAT_GP_NOMBRE ", Array As String("PROMOS"))
|
||||
s = Starter.skmt.ExecQuery2 ("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_ALMACEN from cat_gunaprod2 where CAT_GP_CLASIF <> ? ORDER BY CAT_GP_NOMBRE ", Array As String("PROMOS"))
|
||||
Log($"Reglones: ${s.RowCount}"$)
|
||||
If s.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
If s.RowCount > 0 Then
|
||||
For i = 0 To S.RowCount - 1
|
||||
Log(i)
|
||||
Try
|
||||
s.Position=i
|
||||
s.Position = i
|
||||
Printer1.WriteString(s.GetString("CAT_GP_NOMBRE") & CRLF)
|
||||
Log("p"&i)
|
||||
Catch
|
||||
@@ -3171,13 +3183,13 @@ Sub B_IMP_INV_Click
|
||||
If logger Then Log("Saliendo con Try/Catch")
|
||||
Exit
|
||||
End Try
|
||||
S1=Starter.skmt.ExecQuery2("select CAT_GP_ALMACEN from cat_gunaprod5 where CAT_GP_ID = ?", Array As String(s.GetString("CAT_GP_ID")))
|
||||
S1.Position=0
|
||||
S3=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID")))
|
||||
S3.Position=0
|
||||
S1 = Starter.skmt.ExecQuery2("select CAT_GP_ALMACEN from cat_gunaprod5 where CAT_GP_ID = ?", Array As String(s.GetString("CAT_GP_ID")))
|
||||
S1.Position = 0
|
||||
S3 = Starter.skmt.ExecQuery2("select count(*) as CUANTOS from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID")))
|
||||
S3.Position = 0
|
||||
If S3.GetString("CUANTOS") > 0 Then
|
||||
S2=Starter.skmt.ExecQuery2("select HIST_CANT from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID")))
|
||||
S2.Position=0
|
||||
S2 = Starter.skmt.ExecQuery2("select HIST_CANT from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID")))
|
||||
S2.Position = 0
|
||||
a_inicial = S1.GetString("CAT_GP_ALMACEN") - S2.GetString("HIST_CANT")
|
||||
Else
|
||||
a_inicial = S1.GetString("CAT_GP_ALMACEN")
|
||||
@@ -3194,8 +3206,8 @@ Sub B_IMP_INV_Click
|
||||
'Printer1.WriteString("CARGA TOTAL : " & S1.GetString("CAT_GP_ALMACEN") & CRLF)
|
||||
a_total = S1.GetString("CAT_GP_ALMACEN")
|
||||
|
||||
C4=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? and PE_PROID = ? ", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID")))
|
||||
C4.Position=0
|
||||
C4 = Starter.skmt.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? and PE_PROID = ? ", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID")))
|
||||
C4.Position = 0
|
||||
If C4.GetString("CUANTOS") > 0 Then
|
||||
C3=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID")))
|
||||
C3.Position=0
|
||||
@@ -3207,11 +3219,11 @@ Sub B_IMP_INV_Click
|
||||
End If
|
||||
C4.Close
|
||||
''' se conenta esto para el cambio de RMI
|
||||
C4=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID")))
|
||||
C4.Position=0
|
||||
C4 = Starter.skmt.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID")))
|
||||
C4.Position = 0
|
||||
If C4.GetString("CUANTOS") > 0 Then
|
||||
C1=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO", s.GetString("CAT_GP_ID")))
|
||||
C1.Position=0
|
||||
C1 = Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO", s.GetString("CAT_GP_ID")))
|
||||
C1.Position = 0
|
||||
RMI = C1.GetString("CANTIDAD")
|
||||
Else
|
||||
RMI = 0
|
||||
@@ -3315,7 +3327,7 @@ Sub B_IMP_INV_Click
|
||||
|
||||
t3.Initialize("T3", 4000) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
Wait For t3_tick
|
||||
TAMANO = 0
|
||||
End If
|
||||
Next
|
||||
@@ -3345,13 +3357,13 @@ Sub B_IMP_INV_Click
|
||||
End Try
|
||||
If CUANTOS <> CUANTOS1 Then
|
||||
Try
|
||||
c=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO"))
|
||||
c = Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO"))
|
||||
Printer1.WriteString(CRLF)
|
||||
Printer1.WriteString("-----------RMI----------------" & CRLF)
|
||||
Printer1.WriteString("-----------RMI----------------" & CRLF)
|
||||
Printer1.WriteString(CRLF)
|
||||
If C.RowCount>0 Then
|
||||
For i=0 To C.RowCount -1
|
||||
C.Position=i
|
||||
If C.RowCount > 0 Then
|
||||
For i = 0 To C.RowCount - 1
|
||||
C.Position = i
|
||||
Printer1.WriteString(C.GetString("CANTIDAD") & " " & C.GetString("PE_PRONOMBRE") & CRLF)
|
||||
Next
|
||||
End If
|
||||
@@ -3364,31 +3376,31 @@ Sub B_IMP_INV_Click
|
||||
' TOTALES DE LOS ARCHIVOS
|
||||
|
||||
s.Close
|
||||
S=Starter.skmt.ExecQuery2("select SUM(CAT_GP_ALMACEN) AS CAT_GP_ALMACEN from cat_gunaprod2 WHERE CAT_GP_CLASIF <> ? ", Array As String("PROMOS"))
|
||||
S.Position=0
|
||||
S = Starter.skmt.ExecQuery2("select SUM(CAT_GP_ALMACEN) AS CAT_GP_ALMACEN from cat_gunaprod2 WHERE CAT_GP_CLASIF <> ? ", Array As String("PROMOS"))
|
||||
S.Position = 0
|
||||
a_final =s.GetString("CAT_GP_ALMACEN")
|
||||
|
||||
S1.Close
|
||||
S1=Starter.skmt.ExecQuery("select SUM(CAT_GP_ALMACEN) AS CAT_GP_ALMACEN from cat_gunaprod5 ")
|
||||
S1.Position=0
|
||||
S1 = Starter.skmt.ExecQuery("select SUM(CAT_GP_ALMACEN) AS CAT_GP_ALMACEN from cat_gunaprod5 ")
|
||||
S1.Position = 0
|
||||
a_total = S1.GetString("CAT_GP_ALMACEN")
|
||||
a_inicial = S1.GetString("CAT_GP_ALMACEN")
|
||||
S1.Close
|
||||
ABORDO =0
|
||||
C3=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD, SUM(PE_COSTO_TOT) AS PE_TOTAL from pedido where pe_proid <> pe_cedis and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE <> ?", Array As String("CAMBIO", "0"))
|
||||
C8=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS PE_TOTAL from pedido where pe_proid <> pe_cedis AND PE_CLIENTE <> ?", Array As String( "0"))
|
||||
ABORDO = 0
|
||||
C3 = Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD, SUM(PE_COSTO_TOT) AS PE_TOTAL from pedido where pe_proid <> pe_cedis and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE <> ?", Array As String("CAMBIO", "0"))
|
||||
C8 = Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS PE_TOTAL from pedido where pe_proid <> pe_cedis AND PE_CLIENTE <> ?", Array As String( "0"))
|
||||
C8.Position=0
|
||||
If C3.RowCount > 0 Then
|
||||
C3.Position=0
|
||||
C3.Position = 0
|
||||
a_venta = C3.GetString("CANTIDAD")
|
||||
Else
|
||||
a_venta = 0
|
||||
End If
|
||||
|
||||
If a_venta = Null Then a_venta = 0
|
||||
If CUANTOS <> CUANTOS1 Then
|
||||
C1=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL from pedido where substr(pe_pronombre,1,6) = ? ", Array As String("CAMBIO"))
|
||||
C1.Position=0
|
||||
If CUANTOS <> CUANTOS1 Then
|
||||
C1 = Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL from pedido where substr(pe_pronombre,1,6) = ? ", Array As String("CAMBIO"))
|
||||
C1.Position = 0
|
||||
RMI = C1.GetString("CANTIDAD")
|
||||
RMI_VALOR = C1.GetString("TOTAL")
|
||||
C1.Close
|
||||
@@ -3430,9 +3442,7 @@ Sub Bt_GuardarBoleta_Click
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
cursorBoleta=Starter.skmt.ExecQuery("select ID_ALMACEN FROM CAT_ALMACEN")
|
||||
cursorBoleta.Position=0
|
||||
Id_Almacen=cursorBoleta.GetString("ID_ALMACEN")
|
||||
' Id_Almacen = Subs.traeAlmacen
|
||||
Starter.skmt.ExecNonQuery("delete from TMP_CAT_BILLETE")
|
||||
Starter.skmt.ExecNonQuery("delete from TMP_CAT_MONEDAS")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO TMP_CAT_BILLETE (TMP_BILLE_RUTA, TMP_BILLE_IDALMACEN, TMP_BILLE_FECHA, TMP_BILLE_MIL, TMP_BILLE_QUINIENTOS, TMP_BILLE_DOSCIENTOS, TMP_BILLE_CIEN, TMP_BILLE_CINCUENTA, TMP_BILLE_VEINTE) values (?,?,?,?,?,?,?,?,?)", Array As Object (RutaBoleta,Id_Almacen,sDate & sTime,EDT_CANMIL.Text,EDT_CANQUIN.Text,EDT_CANDOS.Text,EDT_CANCIEN.Text,EDT_CANCIN.Text,EDT_CANVEIN.Text))
|
||||
@@ -3689,15 +3699,8 @@ Private Sub b_aceptarrpomo_Click
|
||||
c.Position=0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c.Close
|
||||
c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
If c.RowCount>0 Then
|
||||
C.Position=0
|
||||
Id_Almacen = C.GetString("ID_ALMACEN")
|
||||
End If
|
||||
c.Close
|
||||
|
||||
' Id_Almacen = Subs.traeAlmacen
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_PROMO_WHATS VALUES (?,?)", Array As Object(l_promowhats.Text, "PROMO ACEPTADA"))
|
||||
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (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(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0 , 0, 1, "KIT DE BIENVENIDA DON TOÑO", "PROMODOE",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,Starter.tipov,0))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (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(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0.01 , 0.01, 1, "CAJA CHOCO ZUCARITAS 260 GR", "1008094223",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,Starter.tipov,0))
|
||||
Starter.skmt.ExecNonQuery2("update cat_gunaprod2 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object("1", "1008094223"))
|
||||
@@ -3791,12 +3794,7 @@ Sub JobDone(Job As HttpJob)
|
||||
End Sub
|
||||
|
||||
Private Sub BP_DOE_A_Click
|
||||
c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
If c.RowCount>0 Then
|
||||
C.Position=0
|
||||
Id_Almacen = C.GetString("ID_ALMACEN")
|
||||
End If
|
||||
c.Close
|
||||
' Id_Almacen = Subs.traeAlmacen
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
@@ -3881,15 +3879,14 @@ Private Sub BP_DOE_R1_Click
|
||||
End Sub
|
||||
|
||||
Private Sub b_inicioFinVenta_Click
|
||||
Private precision As Int = 0
|
||||
If dentroDeGeocerca Then precision = 1
|
||||
If Starter.enVenta Then
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario, Id_Almacen, ruta_tienda, "Termina Venta", la_cuenta.text, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, "", "")
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Id_Almacen, ruta_tienda, "Termina Venta", la_cuenta.text, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, motivoNoVenta, "")
|
||||
Starter.enVenta = False
|
||||
Subs.iniciaActividad("principal")
|
||||
B4XPages.ShowPageAndRemovePreviousPages("Principal")
|
||||
Else
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario, Id_Almacen, ruta_tienda, "Inicia Venta", la_cuenta.text, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, precision, "", "")
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario, Id_Almacen, ruta_tienda, "Inicia Venta", la_cuenta.text, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, precision, motivoNoVenta, "")
|
||||
Starter.enVenta = True
|
||||
End If
|
||||
b_inicioFinVenta.Visible = False
|
||||
|
||||
Reference in New Issue
Block a user