cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-17 19:36:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Cambios en ticket.

Browse Source 
- Cambios en resumen dia
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-04-04 16:49:02 -06:00
parent 577f80dc8c
commit e122b8c83e
6 changed files with 84 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
B4A/C_Cliente.bas
View File

@@ -236,7 +236,6 @@ Sub B4XPage_Appear
c=Starter.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BFACTURA,CAT_CL_BCREDITO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
s=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
s.Position=0
c.Position=0
la_cuenta.Text = c.GetString("CAT_CL_CODIGO")
La_nombre.Text = c.GetString("CAT_CL_NOMBRE")
@@ -603,7 +602,7 @@ Sub B_IMP_Click
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
c.Position=0
usuario = c.GetString("USUARIO")
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.DateFormat = "MM/dd/yyyy HH:mm:ss"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c.Close
@@ -648,23 +647,25 @@ Sub B_IMP_Click
Dim bmp As Bitmap
bmp.InitializeResize(File.DirAssets, "durakelo1.png", 376, 129, True) 'ignore
Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
myimage = Printer1.DitherImage2D(myimage, 128)
myimage= Printer1.PackImage(myimage)
Printer1.WriteString(CRLF) ' nudge the printer to show the user something is happening
Printer1.WriteString(Printer1.REVERSE)
Printer1.PrintImage(myimage)
Printer1.WriteString(Printer1.UNREVERSE)
Private x As ResultSet = Starter.skmt.ExecQuery($"SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION ='DOMICILIO'"$)
Private domicilioF As String = ""
Do While x.NextRow
domicilioF = x.GetString("CAT_VA_VALOR")
Loop
'Printer1.Justify = 1
'printer.Initialize(cmp20.OutputStream)
Printer1.WriteString("DURAKELO S.A. de C.V." & CRLF)
Printer1.WriteString("RFC: DUR-011025-T12" & CRLF)
Printer1.WriteString("REGIMEN GENERAL DE LEY DE PERSONAS MORALES" & CRLF)
Printer1.WriteString("DOM: " & domicilioF & CRLF)
Printer1.WriteString(sucursal & CRLF)
Printer1.WriteString(sDate & CRLF)
Printer1.WriteString(sTime & CRLF)
Printer1.WriteString(Subs.fechanormal(DateTime.Now) & CRLF)
Printer1.WriteString("Vendedor:" & usuario & CRLF)
Printer1.WriteString("Tienda: " & La_nombre.Text & CRLF)
Printer1.WriteString("ID.Cliente: " & la_cuenta.Text & CRLF)
@@ -819,6 +820,13 @@ Sub B_IMP_Click
c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) and PE_TIPO = 'PREVENTA'")
C.Position=0
Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF)
Private bc As ResultSet = Starter.skmt.ExecQuery($"select CAT_CL_BCREDITO from kmt_info where CAT_CL_CODIGO = '${Subs.traeCliente}'"$)
Private formaPago As String = "Efectivo"
Do While bc.NextRow
If bc.GetString("CAT_CL_BCREDITO") = 1 Then formaPago = "Por definir"
Loop
Printer1.WriteString("Forma de pago: " & formaPago & CRLF)
c.Close
End If
@@ -859,7 +867,7 @@ Sub B_IMP2_Click
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
c.Position=0
usuario = c.GetString("USUARIO")
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.DateFormat = "MM/dd/yyyy HH:mm:ss"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c.Close
@@ -903,23 +911,25 @@ Sub B_IMP2_Click
Dim bmp As Bitmap
bmp.InitializeResize(File.DirAssets, "durakelo1.png", 376, 129, True) 'ignore
Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
myimage = Printer1.DitherImage2D(myimage, 128)
myimage= Printer1.PackImage(myimage)
Log("Iniciamos 2 ...")
Printer1.WriteString(CRLF) ' nudge the printer to show the user something is happening
Printer1.WriteString(Printer1.REVERSE)
Printer1.PrintImage(myimage)
Printer1.WriteString(Printer1.UNREVERSE)
Private x As ResultSet = Starter.skmt.ExecQuery($"SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION ='DOMICILIO'"$)
Private domicilioF As String = ""
Do While x.NextRow
domicilioF = x.GetString("CAT_VA_VALOR")
Loop
' printer.Initialize(cmp20.OutputStream)
Printer1.WriteString("DURAKELO S.A. de C.V." & CRLF)
Printer1.WriteString("RFC: DUR-011025-T12" & CRLF)
Printer1.WriteString("REGIMEN GENERAL DE LEY DE PERSONAS MORALES" & CRLF)
Printer1.WriteString("DOM: " & domicilioF & CRLF)
Printer1.WriteString(sucursal & CRLF)
Printer1.WriteString(sDate & CRLF)
Printer1.WriteString(sTime & CRLF)
Printer1.WriteString(Subs.fechanormal(DateTime.Now) & CRLF)
Printer1.WriteString("Vendedor:" & usuario & CRLF)
Printer1.WriteString("Tienda: " & La_nombre.Text & CRLF)
Printer1.WriteString("ID.Cliente: " & la_cuenta.Text & CRLF)
@@ -1039,6 +1049,12 @@ Sub B_IMP2_Click
c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) and PE_TIPO = 'PREVENTA' ")
C.Position=0
Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF)
Private bc As ResultSet = Starter.skmt.ExecQuery($"select CAT_CL_BCREDITO from kmt_info where CAT_CL_CODIGO = '${Subs.traeCliente}'"$)
Private formaPago As String = "Efectivo"
Do While bc.NextRow
If bc.GetString("CAT_CL_BCREDITO") = 1 Then formaPago = "Por definir"
Loop
Printer1.WriteString("Forma de pago: " & formaPago & CRLF)
c.Close
' Printer1.WriteString("------------VENTA-------------")
' Printer1.WriteString("TOTAL COMPRA: $:" & total_cliente)