mirror of
https://github.com/KeymonSoft/Guna_Reparto_Imp.git
synced 2026-04-17 21:06:09 +00:00
v5.05.07
This commit is contained in:
cvaldes1201
@@ -114,6 +114,7 @@ Sub Class_Globals
|
||||
Dim escreditoono As String
|
||||
Dim m_lat, m_lon As String
|
||||
Dim distance As Long
|
||||
Private b_imprimesegun As Button
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -209,6 +210,15 @@ Sub B4XPage_Appear
|
||||
L_CANT.Text = cym.Get("cantidad")
|
||||
l_total.Text = Round2(cym.Get("monto"), 2)
|
||||
|
||||
Dim mostrarimp As Cursor = Starter.skmt.ExecQuery($"SELECT gestion from kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)"$)
|
||||
mostrarimp.Position = 0
|
||||
If mostrarimp.GetString("gestion") = "0" Then
|
||||
b_imprimesegun.Visible = False
|
||||
Else if mostrarimp.GetString("gestion") = "2" Then
|
||||
b_imprimesegun.Visible = True
|
||||
End If
|
||||
mostrarimp.Close
|
||||
|
||||
' If CREDITO = "1" Then
|
||||
' Msgbox("AVISO","SE TIENE QUE IMPRIMIR PAGARÉ") 'ignore
|
||||
' End If
|
||||
@@ -471,7 +481,7 @@ Sub checacredito
|
||||
Msgbox2Async("EL CLIENTE TIENE CREDITO DISPONIBLE, UNA VEZ SELECCIONADA UNA OPCION NO SE PODRA MODIFICAR!!!!!","Forma de pago","","Credito","Efectivo",LoadBitmap(File.DirAssets,"alert2.png"),False)
|
||||
Wait For Msgbox_Result (Result As Int)
|
||||
If Result= DialogResponse.POSITIVE Then
|
||||
' Log(1)
|
||||
Log(1)
|
||||
' p_credito.Visible = True
|
||||
' 'monto
|
||||
' c=Starter.skmt.ExecQuery("select sum(HVD_COSTO_TOT) AS MONTO from HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND HVD_RECHAZO = 0 AND HVD_PARCIAL = 0")
|
||||
@@ -486,28 +496,34 @@ Sub checacredito
|
||||
B_IMP_Click
|
||||
banderaimp = 1
|
||||
Else If Result = DialogResponse.CANCEL Then
|
||||
Log(12)
|
||||
escreditoono = 1
|
||||
If l_total.Text.Replace(",","") <= NumberFormat2( x1.GetString("CAT_CL_LIMITECREDITO").Replace(",",""),0,2,2,False) Then
|
||||
Private cliente As String = Subs.traeCliente
|
||||
c = Starter.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info where cat_cl_codigo = '${cliente}'"$)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
Private RUTA_PREVENTA = c.GetString("CAT_CL_RUTA")
|
||||
End If
|
||||
c = Starter.skmt.ExecQuery($"select distinct hvd_num_ticket from hist_ventas where hvd_cliente = '${cliente}'"$)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
NOTA = c.GetString("HVD_NUM_TICKET")
|
||||
End If
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
ProgressDialogShow("Un momento por favor!!")
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insertaPagareGunaRep"
|
||||
cmd.Parameters = Array As Object(Subs.traeAlmacen, RUTA_PREVENTA, Subs.traeRutaReparto, cliente, l_total.Text.Replace(",",""), NOTA, sDate & " " & sTime)
|
||||
reqManager.ExecuteCommand(cmd, $"insertaPagare_${NOTA}"$)
|
||||
' If l_total.Text.Replace(",","") <= NumberFormat2( x1.GetString("CAT_CL_LIMITECREDITO").Replace(",",""),0,2,2,False) Then
|
||||
esPagoACreditoGuardamosPagare'' para brincar el r
|
||||
Log(3)
|
||||
'' descomentar
|
||||
' Private cliente As String = Subs.traeCliente
|
||||
' c = Starter.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info where cat_cl_codigo = '${cliente}'"$)
|
||||
' If c.RowCount > 0 Then
|
||||
' c.Position = 0
|
||||
' Private RUTA_PREVENTA = c.GetString("CAT_CL_RUTA")
|
||||
' End If
|
||||
' c = Starter.skmt.ExecQuery($"select distinct hvd_num_ticket from hist_ventas where hvd_cliente = '${cliente}'"$)
|
||||
' If c.RowCount > 0 Then
|
||||
' c.Position = 0
|
||||
' NOTA = c.GetString("HVD_NUM_TICKET")
|
||||
' End If
|
||||
' DateTime.DateFormat = "MM/dd/yyyy"
|
||||
' sDate=DateTime.Date(DateTime.Now)
|
||||
' sTime=DateTime.Time(DateTime.Now)
|
||||
' ProgressDialogShow("Un momento por favor!!")
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insertaPagareGunaRep"
|
||||
' cmd.Parameters = Array As Object(Subs.traeAlmacen, RUTA_PREVENTA, Subs.traeRutaReparto, cliente, l_total.Text.Replace(",",""), NOTA, sDate & " " & sTime)
|
||||
' reqManager.ExecuteCommand(cmd, $"insertaPagare_${NOTA}"$)
|
||||
'' fin descomentar
|
||||
|
||||
' Else
|
||||
' MsgboxAsync("El cliente debe de dar un pago de "& (l_total.Text.Replace(",","") - x1.GetString("CAT_CL_LIMITECREDITO")) &"","Atención")
|
||||
' Log(3)
|
||||
@@ -554,9 +570,10 @@ Sub checacredito
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA_REP, PA_RUTAPREV, PA_FECHA_PREV, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (almacen,rutarep,rutaprev,fechaprev,(sDate),l_total.Text,usuario,cuenta))
|
||||
' B_IMP_Click
|
||||
' banderaimp = 1
|
||||
End If
|
||||
' End If
|
||||
End If
|
||||
Else
|
||||
Log(4)
|
||||
escreditoono = 0
|
||||
B_IMP_Click
|
||||
banderaimp = 1
|
||||
@@ -676,6 +693,7 @@ Sub Guardado
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
' cmd.Parameters = Array As String(l_total.Text,"1", l_total.Text,B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"1", l_total.Text.Replace(",",""),B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"CREDITO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
|
||||
' Dim cmd As DBCommand
|
||||
@@ -700,7 +718,8 @@ Sub Guardado
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
cmd.Parameters = Array As String(l_total.Text,"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
|
||||
End If
|
||||
@@ -1001,16 +1020,22 @@ Sub B_IMP_Click
|
||||
Printer1.WriteString("-------PROMOS ENTREGA--------" & CRLF)
|
||||
Printer1.WriteString("Cant. Precio Importe" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Dim restacobranza As Int = 0
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
If s.GetString("HVD_PRONOMBRE") <> "Cobranza Pendiente" Then
|
||||
|
||||
|
||||
If s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT") > 0 Then
|
||||
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)
|
||||
' Printer1.WriteString("* "&s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
|
||||
Else
|
||||
Printer1.WriteString(s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
End If
|
||||
|
||||
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)
|
||||
@@ -1030,9 +1055,13 @@ Sub B_IMP_Click
|
||||
ESPACIO = 29
|
||||
BLANCO = " "
|
||||
Printer1.Justify = 0
|
||||
End If
|
||||
Else
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
restacobranza = 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
@@ -1072,7 +1101,7 @@ Sub B_IMP_Click
|
||||
' End If
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("Total Articulos: " & L_CANT.Text & CRLF)
|
||||
Printer1.WriteString("Total Articulos: " & (L_CANT.Text.Replace(",","") -restacobranza) & CRLF)
|
||||
Printer1.WriteString("Total: $" & l_total.Text)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
@@ -1247,6 +1276,10 @@ Sub JobDone(Job As HttpJob)
|
||||
Log(NOTA)
|
||||
p_transPagare2.Visible = True
|
||||
CrearQR(NOTA)
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
If resultado.Tag.As(String).IndexOf("pagareConfirmado_") > -1 Then
|
||||
ProgressDialogHide
|
||||
@@ -1627,7 +1660,7 @@ Sub imprime_abonopagare
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
DateTime.DateFormat = "ddMMyyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
Printer1.WriteBarCode("F",notaabono&sDate)
|
||||
Printer1.WriteBarCode("I",notaabono&sDate)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
@@ -1652,9 +1685,9 @@ Sub imprime_abonopagare
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
imprime_abonopagare
|
||||
p_abono.Visible = False
|
||||
Starter.skmt.ExecNonQuery($"INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha) VALUES ('${Subs.traeUsuarioDeBD}', '${Subs.traeRuta(Subs.traeCliente)}', '${Subs.traeCliente}' ,'${et_abono.text}', '${Subs.fechaKMT(DateTime.now)}')"$)
|
||||
ToastMessageShow("Abono guardado", False)
|
||||
' p_abono.Visible = False
|
||||
' Starter.skmt.ExecNonQuery($"INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha) VALUES ('${Subs.traeUsuarioDeBD}', '${Subs.traeRuta(Subs.traeCliente)}', '${Subs.traeCliente}' ,'${et_abono.text}', '${Subs.fechaKMT(DateTime.now)}')"$)
|
||||
' ToastMessageShow("Abono guardado", False)
|
||||
Else
|
||||
|
||||
h = Starter.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
||||
@@ -1860,7 +1893,7 @@ Sub imprime_pagare
|
||||
Printer1.WriteString("Colonia: " & la_col.Text & CRLF)
|
||||
Printer1.WriteString("Telefono: " & telefono & CRLF)
|
||||
Dim Ticket As String = 0
|
||||
Dim c6 As Cursor = Starter.skmt.ExecQuery("select distinct HVD_NUM_TICKET FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Dim c6 As Cursor = Starter.skmt.ExecQuery("select distinct HVD_NUM_TICKET FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND HVD_PRONOMBRE <> 'Cobranza Pendiente'")
|
||||
If c6.RowCount > 0 Then
|
||||
For k = 0 To c6.RowCount -1
|
||||
c6.Position = k
|
||||
@@ -1955,9 +1988,12 @@ Sub imprime_pagare
|
||||
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)
|
||||
' Printer1.WriteString("* "&s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
Else
|
||||
Printer1.WriteString((s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT") ) &" "&s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
If s.GetString("HVD_PRONOMBRE") <> "Cobranza Pendiente" Then
|
||||
' Printer1.WriteString(s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
Printer1.WriteString((s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT") ) &" "&s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
End If
|
||||
End If
|
||||
' Dim punit As String =NumberFormat2((s.GETSTRING("HVD_COSTO_TOT")/s.GetString("HVD_CANT")),0,2,2,False)
|
||||
' TAMANO = punit.Length + TAMANO
|
||||
@@ -2009,7 +2045,8 @@ Sub imprime_pagare
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
DateTime.DateFormat = "ddMMyyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
Printer1.WriteBarCode("F",Ticket&sDate)
|
||||
' Printer1.WriteString("JHGHGH " & CRLF)
|
||||
Printer1.WriteBarCode("I",Ticket&sDate)
|
||||
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
@@ -2065,7 +2102,9 @@ Private Sub b_cancel_pagare_Click
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ACTUAL_GEO_GUNA_VN"
|
||||
cmd.Parameters = Array As String(l_total.Text,"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,rutaprev)
|
||||
' cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
cmd.Parameters = Array As String(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_REPARTO_GEO(HIST_RG_MONTO , HIST_RG_CREDITO , HIST_RG_MONTO_CREDITO , HIST_RG_LAT , HIST_RG_LONG , HIST_RG_RECHAZO , HIST_RG_MOTIVO , HIST_RG_USUARIO_ENTREGO , HIST_RG_RUTA_REP , HIST_RG_ESTATUS_ENTREGA , HIST_RG_COMENTARIO_ENTREGA , HIST_RG_FORMA_PAGO , HIST_RG_GEOCERCA_MTS , HIST_RG_NO_ART , HIST_RG_CLIENTE , HIST_RG_FECHA , HIST_RG_ALMACEN , HIST_RG_RUTA_PRE) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(l_total.Text.Replace(",",""),"0", "",B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,"","",usuario,ruta,"ENTREGA", entregatotaloparial,"EFECTIVO", distance, L_CANT.text,la_cuenta.Text,fechaprev,almacen,Subs.traerUTAPREV))
|
||||
reqManager.ExecuteCommand(cmd, "up_geo")
|
||||
banderaimp = 1
|
||||
End If
|
||||
@@ -2288,4 +2327,262 @@ End Sub
|
||||
Private Sub b_cerrarqr_Click
|
||||
i_qr.Clear
|
||||
p_transPagare2.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub b_imprimesegun_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)
|
||||
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 = 28
|
||||
BLANCO = " "
|
||||
Dim bmp As Bitmap
|
||||
bmp.InitializeResize(File.DirAssets, "logo-guna-18.jpg", 192, 192, 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)
|
||||
' Dim Ticket As String = 0
|
||||
' Dim c6 As Cursor = Starter.skmt.ExecQuery("select distinct HVD_NUM_TICKET FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
' If c6.RowCount > 0 Then
|
||||
' c6.Position = 0
|
||||
' Ticket = c6.GetString("HVD_NUM_TICKET")
|
||||
' End If
|
||||
' c6.Close
|
||||
Dim telefono As String = ""
|
||||
Dim c7 As Cursor = Starter.skmt.ExecQuery("select IFNULL(CAT_CL_TELEFONO,' ') AS CAT_CL_TELEFONO FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c7.RowCount > 0 Then
|
||||
c7.Position = 0
|
||||
telefono = c7.GetString("CAT_CL_TELEFONO")
|
||||
End If
|
||||
c7.Close
|
||||
|
||||
Printer1.WriteString("DISTRIBUIDORA ROCHA TULA PACHUCA" & CRLF)
|
||||
Printer1.WriteString(sDate & CRLF)
|
||||
Printer1.WriteString(sTime & CRLF)
|
||||
Printer1.WriteString("Reparto:" & 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("Telefono: " & telefono & CRLF)
|
||||
|
||||
Dim Ticket As String = 0
|
||||
Dim c6 As Cursor = Starter.skmt.ExecQuery("select distinct HVD_NUM_TICKET FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c6.RowCount > 0 Then
|
||||
For k = 0 To c6.RowCount -1
|
||||
c6.Position = k
|
||||
Ticket = c6.GetString("HVD_NUM_TICKET")
|
||||
Printer1.WriteString("Num. Ticket " & (k +1)&": " & Ticket & CRLF)
|
||||
Next
|
||||
End If
|
||||
c6.Close
|
||||
|
||||
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 A "& Tipoentrega &"------" & 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"$)
|
||||
|
||||
If S.RowCount>0 Then
|
||||
Printer1.WriteString("-------PROMOS ENTREGA--------" & CRLF)
|
||||
Printer1.WriteString("Cant. Precio Importe" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Dim restacobranza As Int = 0
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
If s.GetString("HVD_PRONOMBRE") <> "Cobranza Pendiente" Then
|
||||
|
||||
|
||||
If s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT") > 0 Then
|
||||
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)
|
||||
|
||||
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
|
||||
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
|
||||
Else
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
restacobranza = 1
|
||||
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
|
||||
' 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 = 29
|
||||
' BLANCO = " "
|
||||
' Printer1.Justify = 0
|
||||
' Next
|
||||
' End If
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("Total Articulos: " & (L_CANT.Text.Replace(",","") -restacobranza) & CRLF)
|
||||
Printer1.WriteString("Total: $" & l_total.Text)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & 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
|
||||
ProgressDialogHide
|
||||
End Sub
|
||||
Reference in New Issue
Block a user