mirror of
https://github.com/KeymonSoft/Marquez_Reparto.git
synced 2026-04-19 05:39:22 +00:00
V 4.11.28
This commit is contained in:
cvaldes1201
@@ -20,7 +20,7 @@ Sub Class_Globals
|
||||
Dim TAMANO As Int
|
||||
Dim ESPACIO As Int
|
||||
Dim BLANCO As String
|
||||
|
||||
Dim impresoraConectada As Boolean = False
|
||||
Dim LONGITUD As String
|
||||
Dim LATITUD As String
|
||||
Dim NOMBRE As String
|
||||
@@ -48,7 +48,7 @@ Sub Class_Globals
|
||||
Dim Tar As Button
|
||||
Private L_QR As Label
|
||||
Private BT_QR As Button
|
||||
|
||||
Dim Printer1 As EscPosPrinter
|
||||
Dim la_comm As Label
|
||||
Dim la_actdte As Label
|
||||
Dim la_usuario As Label
|
||||
@@ -69,6 +69,13 @@ Sub Class_Globals
|
||||
Private p_principal As Panel
|
||||
Private B_PASO2 As Button
|
||||
Private L_CANT As Label
|
||||
Dim errorImpresora As Int = 0
|
||||
Dim banderaimp As Int
|
||||
Private l_credi As Label
|
||||
Private l_pagare As Label
|
||||
Private l_montopag As Label
|
||||
Private l_efectivo As Label
|
||||
Private l_montoefec As Label
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -117,6 +124,7 @@ End Sub
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
|
||||
Sub B4XPage_Appear
|
||||
banderaimp = 0
|
||||
Subs.centraPanel(p_principal, Root.Width)
|
||||
Starter.skmt.Initialize(Starter.ruta,"kmt.db", True)
|
||||
reqManager.Initialize(Me, B4XPages.MainPage.SERVER)
|
||||
@@ -155,26 +163,32 @@ Sub B4XPage_Appear
|
||||
L_CANT.Text = cym.Get("cantidad")
|
||||
l_total.Text = Round2(cym.Get("monto"), 2)
|
||||
|
||||
If CREDITO = "1" Then
|
||||
Msgbox("AVISO","SE TIENE QUE IMPRIMIR PAGARÉ") 'ignore
|
||||
End If
|
||||
' If CREDITO = "1" Then
|
||||
' Msgbox("AVISO","SE TIENE QUE IMPRIMIR PAGARÉ") 'ignore
|
||||
' End If
|
||||
' Private cym As Map = Subs.traemosCantYMonto(clv_pedido)
|
||||
' L_CANT.Text = cym.Get("cantidad")
|
||||
' l_total.Text = cym.Get("monto")
|
||||
|
||||
Private vc As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT, CAT_GP_PRECIO from HIST_VENTAS LEFT JOIN CAT_GUNAPROD ON CAT_GP_ID = HVD_PROID where BCAJAS = 0 and HVD_CODPROMO ='${Subs.traealmacen}' and HVD_CLIENTE in (select cuenta from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery("UPDATE HIST_VENTAS set ESPROMO = 1 where HVD_CODPROMO = HVD_PROID AND HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Private vc As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID,HVD_COSTO_TOT, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT from HIST_VENTAS where BCAJAS = 0 and HVD_CODPROMO ='${Subs.traealmacen}' and HVD_CLIENTE in (select cuenta from cuentaa)"$)
|
||||
|
||||
Private cuenta As String = 0
|
||||
Private cuenta0 As String = 0
|
||||
Private arti As String = 0
|
||||
If vc.RowCount > 0 Then
|
||||
For i = 0 To vc.RowCount - 1
|
||||
vc.Position = i
|
||||
Log(vc.GetString("HVD_CANT")&","&vc.GetString("HVD_RECHAZOCANT"))
|
||||
|
||||
|
||||
cuenta0 = cuenta0 + ((vc.GetString("HVD_CANT") - vc.GetString("HVD_RECHAZOCANT"))*(vc.GetString("HVD_COSTO_TOT")/vc.GetString("HVD_CANT")))
|
||||
|
||||
|
||||
|
||||
' Log(vc.GetString("HVD_CANT")&","&vc.GetString("HVD_RECHAZOCANT"))
|
||||
arti = arti + (vc.GetString("HVD_CANT") - vc.GetString("HVD_RECHAZOCANT"))
|
||||
cuenta = cuenta + ((vc.GetString("HVD_CANT") - vc.GetString("HVD_RECHAZOCANT"))*vc.GetString("CAT_GP_PRECIO"))
|
||||
' Log(vc.GetString("HVD_CANT") &" - "& vc.GetString("HVD_RECHAZOCANT")&" * "& vc8.GetString("CAT_GP_PRECIO"))
|
||||
Next
|
||||
End If
|
||||
Log(cuenta)
|
||||
' Log(cuenta0)
|
||||
|
||||
Private vc2 As Cursor = Starter.skmt.ExecQuery("select HVD_PROID, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT, CANTC,HVD_COSTO_TOT from HIST_VENTAS where HVD_CLIENTE in (select cuenta from cuentaa) AND BCAJAS = 1")
|
||||
Private Cuenta1 As String = 0
|
||||
@@ -191,9 +205,9 @@ Sub B4XPage_Appear
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Log(Cuenta1)
|
||||
' Log(Cuenta1)
|
||||
|
||||
Private vc4 As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT, CANTC,HVD_COSTO_TOT, HVD_RECHAZO, HVD_CODPROMO from HIST_VENTAS where HVD_CLIENTE in (select cuenta from cuentaa) AND BCAJAS = 0 and HVD_CODPROMO <> '${Subs.traeAlmacen}'"$)
|
||||
Private vc4 As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID,HVD_PRONOMBRE,HVD_COSTO_TOT, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT, CANTC,HVD_COSTO_TOT, HVD_RECHAZO, HVD_CODPROMO from HIST_VENTAS where HVD_CLIENTE in (select cuenta from cuentaa) AND BCAJAS = 0 and HVD_CODPROMO <> '${Subs.traeAlmacen}'"$)
|
||||
Private Cuenta2 As String = 0
|
||||
Private arti2 As String = 0
|
||||
If vc4.RowCount > 0 Then
|
||||
@@ -202,14 +216,14 @@ Sub B4XPage_Appear
|
||||
vc4.Position = i
|
||||
If vc4.GetString("HVD_PROID") <> vc4.GetString("HVD_CODPROMO") Then
|
||||
If vc4.GetString("HVD_RECHAZO") = 0 Then
|
||||
Cuenta2 = vc4.GetString("HVD_COSTO_TOT")
|
||||
arti2 = vc4.GetString("HVD_CANT")
|
||||
Cuenta2 = Cuenta2 + vc4.GetString("HVD_COSTO_TOT")
|
||||
arti2 = arti2 + vc4.GetString("HVD_CANT")
|
||||
Else
|
||||
Private vc5 As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_PRECIO from CAT_GUNAPROD where CAT_GP_ID = '${vc4.GetString("HVD_PROID")}'"$)
|
||||
If vc5.RowCount > 0 Then
|
||||
vc5.Position= 0
|
||||
Log(vc5.GetString("CAT_GP_PRECIO"))
|
||||
Cuenta2 = Cuenta2 +((vc4.GetString("HVD_CANT")- vc4.GetString("HVD_RECHAZOCANT"))*vc5.GetString("CAT_GP_PRECIO"))
|
||||
' Log(vc5.GetString("CAT_GP_PRECIO"))
|
||||
Cuenta2 = Cuenta2 +((vc4.GetString("HVD_CANT")- vc4.GetString("HVD_RECHAZOCANT"))*(vc4.GetString("HVD_COSTO_TOT")/vc4.GetString("HVD_CANT")))
|
||||
arti2 = arti2 +(vc4.GetString("HVD_CANT")- vc4.GetString("HVD_RECHAZOCANT"))
|
||||
End If
|
||||
End If
|
||||
@@ -217,7 +231,7 @@ Sub B4XPage_Appear
|
||||
|
||||
Next
|
||||
End If
|
||||
Log(cuenta)
|
||||
' Log(arti2)
|
||||
|
||||
Private c4 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(PE_CANT,0) AS PE_CANT, iFNULL(PE_COSTO_TOT,0) AS PE_COSTO_TOT FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)"$)
|
||||
Private Cuenta3 As String = 0
|
||||
@@ -229,14 +243,60 @@ Sub B4XPage_Appear
|
||||
Cuenta3 = Cuenta3 + c4.GetString("PE_COSTO_TOT")
|
||||
Next
|
||||
End If
|
||||
|
||||
Log(cuenta0)
|
||||
Log(Cuenta1)
|
||||
Log(Cuenta2)
|
||||
Log(Cuenta3)
|
||||
|
||||
l_total.Text = cuenta + Cuenta1 + Cuenta2 + Cuenta3
|
||||
L_CANT.Text = arti + arti1 +arti2 + arti3
|
||||
l_total.Text = NumberFormat2((cuenta0 + Cuenta1 + Cuenta2 + Cuenta3),0,2,2,True)
|
||||
L_CANT.Text = NumberFormat2((arti + arti1 +arti2 + arti3),0,0,0,True)
|
||||
|
||||
' l_total.Text = cuenta + Cuenta1 + Cuenta2
|
||||
' L_CANT.Text = arti + arti1 +arti2
|
||||
|
||||
c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
Starter.MAC_IMPRESORA = c.GetString("CAT_VA_VALOR")
|
||||
End If
|
||||
If Starter.MAC_IMPRESORA = "" Then Starter.MAC_IMPRESORA = "0"
|
||||
' Log("|" & Starter.MAC_IMPRESORA & "|")
|
||||
Printer1.Initialize(Me, "Printer1")
|
||||
|
||||
If Printer1.IsConnected = False Then
|
||||
' Printer1.Connect
|
||||
' Log("1")
|
||||
Else
|
||||
Printer1.DisConnect
|
||||
Printer1.Connect
|
||||
Log("2")
|
||||
End If
|
||||
|
||||
Dim pag As Cursor = Starter.skmt.ExecQuery("select * FROM PAGARES WHERE TMP_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If pag.RowCount > 0 Then
|
||||
pag.Position = 0
|
||||
l_credi.Visible = True
|
||||
l_pagare.Visible = True
|
||||
l_montoefec.Visible = True
|
||||
l_efectivo.Visible = True
|
||||
l_montopag.Visible = True
|
||||
l_montopag.Text = pag.GetString("TMP_MONTO_PAGARE")
|
||||
Dim PAGAREMONTO As Float = cuenta0 + Cuenta1 + Cuenta2 + Cuenta3
|
||||
Dim PAGAREMONTO2 As Float = pag.GetString("TMP_MONTO_PAGARE")
|
||||
' Log
|
||||
If PAGAREMONTO - PAGAREMONTO2 < 0 Then
|
||||
l_montoefec.Text = 0
|
||||
Else
|
||||
l_montoefec.Text = PAGAREMONTO - PAGAREMONTO2
|
||||
End If
|
||||
Else If pag.RowCount = 0 Then
|
||||
l_credi.Visible = False
|
||||
l_pagare.Visible = False
|
||||
l_montoefec.Visible = False
|
||||
l_efectivo.Visible = False
|
||||
l_montopag.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Activity_Pause (UserClosed As Boolean)
|
||||
@@ -259,6 +319,11 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
||||
End Sub
|
||||
|
||||
Sub gest_Click
|
||||
B_IMP_Click
|
||||
banderaimp = 1
|
||||
End Sub
|
||||
|
||||
Sub Guardado
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
@@ -285,7 +350,7 @@ Sub gest_Click
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate &" "& sTime, usuario, "ENTREGA","ENTREGA COMPLETA", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO REPARTO_GEO (CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, TIPO,ENVIO) VALUES(?,?,?,?,?,?,?,?,?,?,0)",Array As String (la_cuenta.Text, usuario, sDate &" "&sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,B4XPages.MainPage.almacen,ruta,rutapre,fechaprev, "ENTREGADO"))
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa) ")
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 2, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) "$)
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_ESTATUS = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
mandaPendientesreparto
|
||||
B4XPages.ShowPage("Principal")
|
||||
@@ -330,127 +395,439 @@ Sub HIST_Click
|
||||
End Sub
|
||||
|
||||
Sub B_IMP_Click
|
||||
' c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
' c.Position=0
|
||||
' usuario = c.GetString("USUARIO")
|
||||
' DateTime.DateFormat = "MM/dd/yyyy"
|
||||
' sDate=DateTime.Date(DateTime.Now)
|
||||
' sTime=DateTime.Time(DateTime.Now)
|
||||
' TAMANO = 0
|
||||
' ESPACIO = 21
|
||||
' BLANCO = " "
|
||||
' CREDITO ="1"
|
||||
' If CREDITO = "1" Then
|
||||
' DateTime.DateFormat = "MM/dd/yyyy"
|
||||
' sDate=DateTime.Date(DateTime.Now)
|
||||
' sTime=DateTime.Time(DateTime.Now)
|
||||
' printer.Initialize(cmp20.OutputStream)
|
||||
' printer.WriteLine("DBC.")
|
||||
' printer.WriteLine("RFC: ")
|
||||
' printer.WriteLine(sDate)
|
||||
' printer.WriteLine(sTime)
|
||||
' printer.WriteLine("Tienda: " & La_nombre.Text)
|
||||
' s=Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
|
||||
' s.Position=0
|
||||
' printer.WriteLine("Debo (emos) y pagare (mos) incondicionamelte a la orden de DBC a la cantidad de $" & s.GetString("PC_MONTO") & " PESOS _______________________________________________________________________________________________________________ ")
|
||||
' printer.WriteLine("en esta ciudad o en cualquier otra que se requiera de pago, valor recibido a mi entera satisfaccion y que me obligo a cumplir el dia______________________.")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine("Si este pagare no fuera cubiertoa su vencimiento Me (nos) obligo (amos) a pagar intereses moratorios a razon de 3 % mensual")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine("------------------------------")
|
||||
' printer.WriteLine(" NOMBRE Y FIRMA ")
|
||||
' printer.WriteLine("------------------------------")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.Flush
|
||||
' End If
|
||||
|
||||
' printer.Initialize(cmp20.OutputStream)
|
||||
' printer.WriteLine("PROFINA")
|
||||
' printer.WriteLine("RFC: ")
|
||||
' printer.WriteLine("Tel.:")
|
||||
' printer.WriteLine(sDate)
|
||||
' printer.WriteLine(sTime)
|
||||
' printer.WriteLine("Vendedor:" & usuario)
|
||||
' printer.WriteLine("Tienda: " & La_nombre.Text)
|
||||
' s=Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
|
||||
' s.Position=0
|
||||
' c=Starter.skmt.ExecQuery("select SUM(PE_CANT) AS PE_CANT, SUM(PE_COSTO_TOT) AS PE_COSTO_TOT FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
' C.Position=0
|
||||
'
|
||||
' printer.WriteLine("Total : $" & (s.GetString("PC_MONTO") + c.GetString("PE_COSTO_TOT")))
|
||||
' s.Close
|
||||
' printer.WriteLine("-----------ENTREGA------------")
|
||||
' S=Starter.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,length(HVD_cant) as L_CANT,HVD_COSTO_TOT,length(HVD_COSTO_TOT) as L_COSTO_TOT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) ")
|
||||
'
|
||||
' 's=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_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
' If S.RowCount>0 Then
|
||||
' For i=0 To S.RowCount -1
|
||||
' S.Position=i
|
||||
' 'If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
||||
' ' printer.WriteLine(s.GetString("PE_PRONOMBRE"))
|
||||
'
|
||||
' 'Else
|
||||
'
|
||||
' printer.WriteLine(s.GetString("HVD_CANT") & " " & s.GetString("HVD_PRONOMBRE"))
|
||||
' TAMANO = s.GetLong("L_CANT") + TAMANO
|
||||
' 'TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
||||
' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
||||
'
|
||||
' ESPACIO = ESPACIO - TAMANO
|
||||
'
|
||||
' For E=0 To ESPACIO -1
|
||||
' BLANCO = " " & BLANCO
|
||||
' Next
|
||||
' printer.WriteLine("$" & s.GETSTRING("HVD_COSTO_TOT") )
|
||||
' TAMANO = 0
|
||||
' ESPACIO = 21
|
||||
' BLANCO = " "
|
||||
' 'End If
|
||||
' Next
|
||||
' End If
|
||||
' s.Close
|
||||
'
|
||||
' 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_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
' If S.RowCount>0 Then
|
||||
' For i=0 To S.RowCount -1
|
||||
' S.Position=i
|
||||
' 'If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
||||
' ' printer.WriteLine(s.GetString("PE_PRONOMBRE"))
|
||||
'
|
||||
' 'Else
|
||||
'
|
||||
' printer.WriteLine(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE"))
|
||||
' TAMANO = s.GetLong("L_CANT") + TAMANO
|
||||
' 'TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
||||
' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
||||
'
|
||||
' ESPACIO = ESPACIO - TAMANO
|
||||
'
|
||||
' For E=0 To ESPACIO -1
|
||||
' BLANCO = " " & BLANCO
|
||||
' Next
|
||||
' printer.WriteLine("$" & s.GETSTRING("PE_COSTO_TOT") )
|
||||
' TAMANO = 0
|
||||
' ESPACIO = 21
|
||||
' BLANCO = " "
|
||||
' 'End If
|
||||
' Next
|
||||
' End If
|
||||
' s.Close
|
||||
' printer.WriteLine("------------------------------")
|
||||
' printer.WriteLine("---NO ES UN COMPROBANTE ------")
|
||||
' printer.WriteLine("---------FISCAL---------------")
|
||||
' printer.WriteLine("---COMPROBANTE DE ENTREGA-----")
|
||||
' printer.WriteLine("------------------------------")
|
||||
'
|
||||
' printer.Flush
|
||||
' printer.Close
|
||||
|
||||
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
c.Position=0
|
||||
usuario = c.GetString("USUARIO")
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
c.Close
|
||||
' c=Starter.skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As String ("SUCURSAL"))
|
||||
' c.Position = 0
|
||||
' sucursal = c.GetString("CAT_VA_VALOR")
|
||||
' c.Close
|
||||
|
||||
ProgressDialogShow("Imprimiendo, un momento ...")
|
||||
Printer1.DisConnect
|
||||
If Not(Printer1.IsConnected) Then
|
||||
' Log("Conectando a impresora ...")
|
||||
Printer1.Connect
|
||||
Private cont As Int = 0
|
||||
Do While Not(impresoraConectada)
|
||||
Sleep(1000)
|
||||
' Log("++++++ " & cont)
|
||||
cont = cont + 1
|
||||
If cont = 2 Then Printer1.Connect 'Tratamos de reconectar
|
||||
If cont > 3 Then impresoraConectada = True
|
||||
Loop
|
||||
Sleep(500)
|
||||
impresoraConectada = False
|
||||
Else
|
||||
' Log("conectando 2")
|
||||
Printer1.Connect
|
||||
Private cont As Int = 0
|
||||
Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
|
||||
Sleep(1000)
|
||||
' Log("****** " & cont)
|
||||
cont = cont + 1
|
||||
If cont = 2 Then Printer1.Connect
|
||||
If cont > 3 Then impresoraConectada = True
|
||||
Loop
|
||||
Sleep(500)
|
||||
impresoraConectada = False
|
||||
End If
|
||||
|
||||
TAMANO = 0
|
||||
ESPACIO = 21
|
||||
ESPACIO = 28
|
||||
BLANCO = " "
|
||||
CREDITO ="1"
|
||||
If CREDITO = "1" Then
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
printer.Initialize(cmp20.OutputStream)
|
||||
printer.WriteLine("DBC.")
|
||||
printer.WriteLine("RFC: ")
|
||||
printer.WriteLine(sDate)
|
||||
printer.WriteLine(sTime)
|
||||
printer.WriteLine("Tienda: " & La_nombre.Text)
|
||||
s=Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
|
||||
s.Position=0
|
||||
printer.WriteLine("Debo (emos) y pagare (mos) incondicionamelte a la orden de DBC a la cantidad de $" & s.GetString("PC_MONTO") & " PESOS _______________________________________________________________________________________________________________ ")
|
||||
printer.WriteLine("en esta ciudad o en cualquier otra que se requiera de pago, valor recibido a mi entera satisfaccion y que me obligo a cumplir el dia______________________.")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine("Si este pagare no fuera cubiertoa su vencimiento Me (nos) obligo (amos) a pagar intereses moratorios a razon de 3 % mensual")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine("------------------------------")
|
||||
printer.WriteLine(" NOMBRE Y FIRMA ")
|
||||
printer.WriteLine("------------------------------")
|
||||
printer.WriteLine(" ")
|
||||
printer.Flush
|
||||
End If
|
||||
|
||||
printer.Initialize(cmp20.OutputStream)
|
||||
printer.WriteLine("PROFINA")
|
||||
printer.WriteLine("RFC: ")
|
||||
printer.WriteLine("Tel.:")
|
||||
printer.WriteLine(sDate)
|
||||
printer.WriteLine(sTime)
|
||||
printer.WriteLine("Vendedor:" & usuario)
|
||||
printer.WriteLine("Tienda: " & La_nombre.Text)
|
||||
s=Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
|
||||
s.Position=0
|
||||
c=Starter.skmt.ExecQuery("select SUM(PE_CANT) AS PE_CANT, SUM(PE_COSTO_TOT) AS PE_COSTO_TOT FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
C.Position=0
|
||||
' Dim bmp As Bitmap
|
||||
' bmp.InitializeResize(File.DirAssets, "mariana.jpg", 192, 250, True) 'ignore
|
||||
' Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
|
||||
|
||||
printer.WriteLine("Total : $" & (s.GetString("PC_MONTO") + c.GetString("PE_COSTO_TOT")))
|
||||
s.Close
|
||||
printer.WriteLine("-----------ENTREGA------------")
|
||||
S=Starter.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,length(HVD_cant) as L_CANT,HVD_COSTO_TOT,length(HVD_COSTO_TOT) as L_COSTO_TOT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) ")
|
||||
' myimage = Printer1.DitherImage2D(myimage, 128)
|
||||
'
|
||||
' myimage= Printer1.PackImage(myimage)
|
||||
' Printer1.WriteString(CRLF) ' nudge the Printer1 to show the user something is happening
|
||||
' Printer1.WriteString(Printer1.REVERSE)
|
||||
'
|
||||
' Printer1.PrintImage(myimage)
|
||||
' Printer1.WriteString(Printer1.UNREVERSE)
|
||||
|
||||
' Printer1.Justify = 1
|
||||
'Printer1.Initialize(cmp20.OutputStream)
|
||||
' Printer1.WriteString("DISTRIBUIDORA ROCHA TULA PACHUCA" & CRLF)
|
||||
Printer1.WriteString("Marquez Distribuciones" & CRLF)
|
||||
' Printer1.WriteString(sucursal & CRLF)
|
||||
Printer1.WriteString(sDate & CRLF)
|
||||
Printer1.WriteString(sTime & CRLF)
|
||||
Printer1.WriteString("Vendedor:" & usuario & 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)
|
||||
c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c.RowCount > 0 Then
|
||||
Printer1.WriteString("------------ENTREGA-----------" & CRLF)
|
||||
|
||||
' Printer1.WriteString("--------------------------------" & CRLF)
|
||||
Printer1.WriteString("Cant. Precio Importe" & CRLF)
|
||||
|
||||
Printer1.WriteString("------------------------------" & 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.ExecQuery($"select HVD_PRONOMBRE, HVD_CANT, length(HVD_CANT) as L_CANT, HVD_COSTO_TOT, length(HVD_COSTO_TOT) as L_COSTOU,HVD_PROID, HVD_CODPROMO,IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_RECHAZO FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PROID"$)
|
||||
If S.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
Log(s.GetString("HVD_RECHAZO"))
|
||||
If s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT") > 0 Then
|
||||
|
||||
|
||||
If s.GetString("HVD_CODPROMO") = Subs.traeAlmacen Then
|
||||
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString(s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
|
||||
|
||||
Dim punit As String = NumberFormat2((s.GETSTRING("HVD_COSTO_TOT")/s.GetString("HVD_CANT")),0,2,2,False)
|
||||
TAMANO = punit.Length + TAMANO
|
||||
|
||||
' Private ptot As String = NumberFormat2((punit*s.GetString("HVD_CANT")),0,2,2,False)
|
||||
Private ptot As String = NumberFormat2(( (s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT")) * punit ),0,2,2,False)
|
||||
TAMANO = ptot.Length + TAMANO
|
||||
|
||||
ESPACIO = (ESPACIO - TAMANO)/2
|
||||
' Log(ESPACIO)
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString( (s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT"))& BLANCO)
|
||||
Printer1.Justify = 1
|
||||
Printer1.WriteString( punit & BLANCO)
|
||||
Printer1.Justify = 2
|
||||
Printer1.WriteString( ptot & CRLF )
|
||||
TAMANO = 0
|
||||
ESPACIO = 29
|
||||
BLANCO = " "
|
||||
|
||||
Else If s.GetString("HVD_RECHAZO") = 1 Then
|
||||
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString(s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
|
||||
Private vc5 As Cursor = Starter.skmt.ExecQuery($"select iFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD where CAT_GP_ID = '${s.GetString("HVD_PROID")}'"$)
|
||||
vc5.Position = 0
|
||||
Dim punit As String = NumberFormat2((vc5.GetString("CAT_GP_PRECIO")),0,2,2,False)
|
||||
TAMANO = punit.Length + TAMANO
|
||||
vc5.Close
|
||||
|
||||
Private ptot As String = NumberFormat2(( (s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT")) * punit ),0,2,2,False)
|
||||
TAMANO = ptot.Length + TAMANO
|
||||
|
||||
ESPACIO = (ESPACIO - TAMANO)/2
|
||||
' Log(ESPACIO)
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString( (s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT"))& BLANCO)
|
||||
Printer1.Justify = 1
|
||||
Printer1.WriteString( punit & BLANCO)
|
||||
Printer1.Justify = 2
|
||||
Printer1.WriteString(ptot& CRLF )
|
||||
TAMANO = 0
|
||||
ESPACIO = 29
|
||||
BLANCO = " "
|
||||
Printer1.Justify = 0
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Printer1.Justify = 0
|
||||
s.Close
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
s=Starter.skmt.ExecQuery($"select HVD_PRONOMBRE, HVD_CANT, length(HVD_CANT) as L_CANT, HVD_COSTO_TOT, length(HVD_COSTO_TOT) as L_COSTOU,HVD_PROID, HVD_CODPROMO,IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) AND HVD_RECHAZO = 0 AND HVD_CODPROMO <> '${Subs.traeAlmacen}' order by HVD_CODPROMO, ESPROMO DESC, HVD_PROID"$)
|
||||
|
||||
's=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_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
If S.RowCount>0 Then
|
||||
Printer1.WriteString("-------PROMOS ENTREGA--------" & CRLF)
|
||||
Printer1.WriteString("Cant. Precio Importe" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
'If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
||||
' printer.WriteLine(s.GetString("PE_PRONOMBRE"))
|
||||
If s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT") > 0 Then
|
||||
|
||||
'Else
|
||||
|
||||
If s.GetString("HVD_CODPROMO") <> Subs.traeAlmacen Then
|
||||
|
||||
Printer1.Justify = 0
|
||||
If s.GetString("HVD_CODPROMO") = s.GetString("HVD_PROID") Then
|
||||
Printer1.WriteString("* "&s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
Else
|
||||
Printer1.WriteString(s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
End If
|
||||
|
||||
|
||||
Dim punit As String =NumberFormat2((s.GETSTRING("HVD_COSTO_TOT")/s.GetString("HVD_CANT")),0,2,2,False)
|
||||
TAMANO = punit.Length + TAMANO
|
||||
|
||||
|
||||
Private ptot As String = NumberFormat2((punit*s.GetString("HVD_CANT")),0,2,2,False)
|
||||
TAMANO = ptot.Length + TAMANO
|
||||
|
||||
printer.WriteLine(s.GetString("HVD_CANT") & " " & s.GetString("HVD_PRONOMBRE"))
|
||||
TAMANO = s.GetLong("L_CANT") + TAMANO
|
||||
'TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
||||
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
||||
|
||||
ESPACIO = ESPACIO - TAMANO
|
||||
ESPACIO = (ESPACIO - TAMANO)/2
|
||||
Log(ESPACIO)
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString( (s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT"))& BLANCO)
|
||||
Printer1.Justify = 1
|
||||
Printer1.WriteString( punit & BLANCO)
|
||||
Printer1.Justify = 2
|
||||
Printer1.WriteString(ptot & CRLF )
|
||||
TAMANO = 0
|
||||
ESPACIO = 29
|
||||
BLANCO = " "
|
||||
Printer1.Justify = 0
|
||||
Else
|
||||
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
s=Starter.skmt.ExecQuery($"select PE_PRONOMBRE, PE_CANT, length(PE_CANT) as L_CANT, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTOU,PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order BY PE_PROID"$)
|
||||
|
||||
If S.RowCount>0 Then
|
||||
Printer1.WriteString("-----------VENTA------------" & CRLF)
|
||||
Printer1.WriteString("Cant. Precio Importe" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
||||
|
||||
|
||||
Dim punit As String =NumberFormat2( (s.GETSTRING("PE_COSTO_TOT")/s.GetString("PE_CANT")),0,2,2,False)
|
||||
TAMANO = punit.Length + TAMANO
|
||||
|
||||
Private ptot As String = NumberFormat2((punit*s.GetString("PE_CANT")),0,2,2,False)
|
||||
TAMANO = ptot.Length + TAMANO
|
||||
|
||||
|
||||
ESPACIO = (ESPACIO - TAMANO)/2
|
||||
Log(ESPACIO)
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
printer.WriteLine("$" & s.GETSTRING("HVD_COSTO_TOT") )
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString( s.GetString("PE_CANT") & BLANCO)
|
||||
Printer1.Justify = 1
|
||||
Printer1.WriteString( punit & BLANCO)
|
||||
Printer1.Justify = 2
|
||||
Printer1.WriteString(ptot & CRLF )
|
||||
TAMANO = 0
|
||||
ESPACIO = 21
|
||||
ESPACIO = 29
|
||||
BLANCO = " "
|
||||
'End If
|
||||
Printer1.Justify = 0
|
||||
|
||||
Next
|
||||
End If
|
||||
s.Close
|
||||
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_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
If S.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
'If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
||||
' printer.WriteLine(s.GetString("PE_PRONOMBRE"))
|
||||
|
||||
'Else
|
||||
|
||||
printer.WriteLine(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE"))
|
||||
TAMANO = s.GetLong("L_CANT") + TAMANO
|
||||
'TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
||||
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
||||
|
||||
Printer1.WriteString("Total Articulos: " & L_CANT.Text & CRLF)
|
||||
Printer1.WriteString("Total: $" & l_total.Text)
|
||||
|
||||
|
||||
ESPACIO = ESPACIO - TAMANO
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
' Printer1.WriteString("ENTREGA EN :" & CRLF)
|
||||
' Printer1.WriteString(la_Calle.Text & CRLF)
|
||||
Printer1.WriteString("----ESTE TICKET NO ES UN -----" & CRLF)
|
||||
Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
|
||||
Printer1.WriteString("--------INFORMATIVO-----------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Sleep(1000)
|
||||
Printer1.DisConnect
|
||||
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
printer.WriteLine("$" & s.GETSTRING("PE_COSTO_TOT") )
|
||||
TAMANO = 0
|
||||
ESPACIO = 21
|
||||
BLANCO = " "
|
||||
'End If
|
||||
Next
|
||||
ProgressDialogHide
|
||||
|
||||
If banderaimp = 1 Then
|
||||
Msgbox2Async("Deseas imprimir de nuevo el ticket?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
B_IMP_Click
|
||||
Else
|
||||
Guardado
|
||||
End If
|
||||
|
||||
' printer.Flush
|
||||
' printer.Close
|
||||
Else If banderaimp = 0 Then
|
||||
Msgbox2Async("Deseas imprimir de nuevo el ticket?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
B_IMP_Click
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Printer1_Connected (Success As Boolean)
|
||||
' If Logger Then Log("Printer1_Connected")
|
||||
If Success Then
|
||||
ToastMessageShow("Impresora conectada", False)
|
||||
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP",Starter.mac_impresora))
|
||||
LogColor("Impresora conectada", Colors.Green)
|
||||
' B_IMP2.Enabled = True
|
||||
impresoraConectada = True
|
||||
Else
|
||||
' Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.") 'ignore
|
||||
' ToastMessageShow("Error conectando la impresora", False)
|
||||
LogColor("Error conectando la impresora", Colors.Red)
|
||||
errorImpresora = errorImpresora + 1
|
||||
If errorImpresora > 1 Then
|
||||
Starter.MAC_IMPRESORA = "0"
|
||||
errorImpresora = 0
|
||||
End If
|
||||
End If
|
||||
s.Close
|
||||
printer.WriteLine("------------------------------")
|
||||
printer.WriteLine("---NO ES UN COMPROBANTE ------")
|
||||
printer.WriteLine("---------FISCAL---------------")
|
||||
printer.WriteLine("---COMPROBANTE DE ENTREGA-----")
|
||||
printer.WriteLine("------------------------------")
|
||||
|
||||
printer.Flush
|
||||
' printer.Close
|
||||
End Sub
|
||||
|
||||
Sub Printer_Connected (Success As Boolean)
|
||||
|
||||
Reference in New Issue
Block a user