mirror of
https://github.com/KeymonSoft/Guna_Preventa_BAT.git
synced 2026-04-21 22:59:19 +00:00
VERSION PARA PACHUCA Y GUADALAJARA BAT
This commit is contained in:
cvaldes1201
@@ -2423,6 +2423,17 @@ Sub vent
|
||||
Else If DiferenciaDias > c.GetInt("CAT_CL_DIASCREDITO") + 8 Then
|
||||
MsgboxAsync($"No se puede realizar venta por que presenta ${(DiferenciaDias-(c.GetInt("CAT_CL_DIASCREDITO") +1))} días de atraso en el credito, por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Atención")
|
||||
End If
|
||||
Else If ALMACEN = 88 Or ALMACEN = 92 Then
|
||||
If DiferenciaDias <= c.GetInt("CAT_CL_DIASCREDITO") +1 Then
|
||||
' MsgboxAsync($"Favor de pagar su credito el día de mañana por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio")
|
||||
Msgbox2Async($"Favor de pagar su credito el día de mañana por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio", "Ok", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
gestionar
|
||||
End If
|
||||
Else If DiferenciaDias > c.GetInt("CAT_CL_DIASCREDITO") +1 Then
|
||||
MsgboxAsync($"No se puede realizar venta por que presenta ${(DiferenciaDias-(c.GetInt("CAT_CL_DIASCREDITO") +1))} días de atraso en el credito, por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Atención")
|
||||
End If
|
||||
Else
|
||||
If DiferenciaDias <= c.GetInt("CAT_CL_DIASCREDITO") + 1 Then
|
||||
' MsgboxAsync($"Favor de pagar su credito el día de mañana por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio")
|
||||
@@ -3475,9 +3486,64 @@ Sub B_IMP_Click
|
||||
Else
|
||||
Impresion
|
||||
End If
|
||||
Else If ALMACEN = 88 Or ALMACEN = 94 Then
|
||||
|
||||
Else If ALMACEN = 94 Then
|
||||
Impresion4
|
||||
Else If ALMACEN = 88 Then
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO, IFNULL(CONFIRMADO,0) AS CONFIRMADO from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
||||
c.Position = 0
|
||||
|
||||
If c.GetString("CAT_CL_BCREDITO") = 0 Then
|
||||
Impresion2
|
||||
|
||||
Else If c.GetString("CAT_CL_BCREDITO") = 1 Then
|
||||
If c.GetString("CONFIRMADO") = 0 Then
|
||||
|
||||
Msgbox2Async("La entrega sera a credito o de contado?" , "Atención", "Credito", "Contado", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
Dim creditocod As Cursor = Starter.skmt.ExecQuery("SELECT CODIGO FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Log(creditocod.RowCount)
|
||||
If creditocod.RowCount > 0 Then
|
||||
creditocod.Position = 0
|
||||
Dim cs As CSBuilder
|
||||
cs.Initialize
|
||||
|
||||
' 1. Iniciamos el constructor y definimos el tamaño general más grande (ej. 20)
|
||||
cs.Size(16).Append("Proporciona el siguiente codigo al cliente '")
|
||||
|
||||
' 2. Activamos Negrita (Bold) para el código
|
||||
cs.Bold.Append(creditocod.GetString("CODIGO")).Pop ' .Pop cierra la negrita
|
||||
|
||||
' 3. Continuamos con el texto normal y cerramos todo
|
||||
cs.Append("' para su entrega").PopAll
|
||||
|
||||
' 4. Pasamos el objeto 'cs' en lugar del texto plano
|
||||
Msgbox2Async(cs, "Atención", "Ok", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 1 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Starter.skmt.ExecNonQuery("Update CODIGOS_CREDITO set BANDERA = 1 WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
|
||||
Impresion2
|
||||
End If
|
||||
Else
|
||||
Impresion2
|
||||
End If
|
||||
|
||||
|
||||
Else If resultado = DialogResponse.CANCEL Then
|
||||
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 1 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Impresion2
|
||||
End If
|
||||
Else
|
||||
Impresion2
|
||||
End If
|
||||
End If
|
||||
Else If ALMACEN = 92 Then
|
||||
Impresion2
|
||||
|
||||
|
||||
|
||||
Else If ALMACEN = 81 Or ALMACEN = 102 Then
|
||||
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO, IFNULL(CONFIRMADO,0) AS CONFIRMADO from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
||||
@@ -3625,7 +3691,7 @@ Sub Impresion4
|
||||
|
||||
Printer1.WriteString("--------------------PREVENTA--------------------" & eLINEFEED)
|
||||
' 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=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, IFNULL(PE_RECALCULO,0) AS PE_RECALCULO, length(PE_COSTOU) as L_COSTOU, length(Ifnull(PE_RECALCULO,0)) as L_COSTOREC, PE_CANT * PE_COSTOU AS PE_COSTO_TOT, PE_CANT * IFNULL(PE_RECALCULO,0) AS PE_COSTO_TOTREC, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT, length(PE_CANT * IFNULL(PE_RECALCULO,0)) as L_COSTO_TOTREC, PE_PROID, PE_CEDIS, PE_RECCANT FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_FUTURO = '0' order by PE_PROID", Array As String(Subs.traeAlmacen))
|
||||
s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, IFNULL(PE_RECALCULO,0) AS PE_RECALCULO, length(PE_COSTOU) as L_COSTOU, length(Ifnull(PE_RECALCULO,0)) as L_COSTOREC, PE_CANT * PE_COSTOU AS PE_COSTO_TOT, PE_CANT * IFNULL(PE_RECALCULO,0) AS PE_COSTO_TOTREC, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT, length(PE_CANT * IFNULL(PE_RECALCULO,0)) as L_COSTO_TOTREC, PE_PROID, PE_CEDIS, PE_RECCANT FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_FUTURO = '0' AND PE_CANT > 0 order by PE_PROID", Array As String(Subs.traeAlmacen))
|
||||
If S.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
@@ -3719,7 +3785,7 @@ Sub Impresion4
|
||||
|
||||
totalpromos = 0
|
||||
totalpromostotal = 0
|
||||
s=skmt.ExecQuery("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE LENGTH(PE_CEDIS) > 3 AND PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_FUTURO = '0' order by PE_CEDIS, PE_COSTOU")
|
||||
s=skmt.ExecQuery("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE LENGTH(PE_CEDIS) > 3 AND PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_FUTURO = '0' AND PE_CANT > 0 order by PE_CEDIS, PE_COSTOU")
|
||||
If S.RowCount>0 Then
|
||||
' Printer1.WriteString("------------------PROMOCIONES-------------------" & eLINEFEED)
|
||||
For i=0 To S.RowCount -1
|
||||
@@ -3825,6 +3891,7 @@ Sub Impresion4
|
||||
Printer1.WriteString("----------COMPROBANTE FISCAL, SOLO ES-----------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------INFORMATIVO-------------------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
|
||||
If ALMACEN = 81 Then
|
||||
|
||||
Dim creditocod2 As Cursor = Starter.skmt.ExecQuery("SELECT BANDERA FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
@@ -4463,12 +4530,187 @@ Sub Impresion3
|
||||
' printer.Close
|
||||
End Sub
|
||||
|
||||
'Sub Impresion2
|
||||
' c=skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
' c.Position=0
|
||||
' usuario = c.GetString("USUARIO")
|
||||
' DateTime.DateFormat = "dd/MM/yyyy"
|
||||
'' 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
|
||||
' Public Const eLINEFEED As String = "" & Chr(0x0D) & Chr(0x0A)
|
||||
' ProgressDialogShow("Imprimiendo, un momento ...")
|
||||
' Printer1.DisConnect
|
||||
' If Not(Printer1.IsConnected) Then
|
||||
'' If logger Then Log("conectando 1")
|
||||
' Printer1.Connect
|
||||
' Private cont As Int = 0
|
||||
' Do While Not(impresoraConectada)
|
||||
' Sleep(1000)
|
||||
' cont = cont + 1
|
||||
' If cont = 7 Then Printer1.Connect 'Tratamos de reconectar
|
||||
' If cont > 15 Then impresoraConectada = True
|
||||
' Loop
|
||||
' Sleep(500)
|
||||
' impresoraConectada = False
|
||||
' Else
|
||||
'' If logger Then Log("conectando 2")
|
||||
' Printer1.Connect
|
||||
' Private cont As Int = 0
|
||||
' Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
|
||||
' Sleep(1000)
|
||||
' cont = cont + 1
|
||||
' If cont = 2 Then Printer1.Connect
|
||||
' If cont > 4 Then impresoraConectada = True
|
||||
' Loop
|
||||
' Sleep(500)
|
||||
' impresoraConectada = False
|
||||
' End If
|
||||
'
|
||||
' TAMANO = 0
|
||||
' ESPACIO = 21
|
||||
' BLANCO = " "
|
||||
'' Dim bmp As Bitmap
|
||||
'' bmp.InitializeResize(File.DirAssets, "guna.png", 192, 192, True) 'ignore
|
||||
'' Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
|
||||
''
|
||||
'' myimage = Printer1.DitherImage2D(myimage, 128)
|
||||
''
|
||||
'' myimage= Printer1.PackImage(myimage)
|
||||
'' Printer1.WriteString(eLINEFEED) ' nudge the printer to show the user something is happening
|
||||
'' Printer1.WriteString(Printer1.REVERSE)
|
||||
''
|
||||
'' Printer1.PrintImage(myimage)
|
||||
'' Printer1.WriteString(Printer1.UNREVERSE)
|
||||
'
|
||||
' 'Printer1.Justify = 1
|
||||
' 'printer.Initialize(cmp20.OutputStream)
|
||||
'' Printer1.WriteString("DISTRIBUIDORA ROCHA TULA PACHUCA" & eLINEFEED)
|
||||
' Printer1.WriteString("RFC: DRT-110316-9J1" & eLINEFEED)
|
||||
'' Printer1.WriteString(sucursal & eLINEFEED)
|
||||
' Printer1.WriteString(sDate & eLINEFEED)
|
||||
' Printer1.WriteString(sTime & eLINEFEED)
|
||||
' Printer1.WriteString("Vendedor:" & usuario & eLINEFEED)
|
||||
' Printer1.WriteString("Tienda: " & La_nombre.Text & eLINEFEED)
|
||||
' Printer1.WriteString("ID.Cliente: " & la_cuenta.Text & eLINEFEED)
|
||||
' Printer1.WriteString("Calle: " & la_Calle.Text & eLINEFEED)
|
||||
' Printer1.WriteString("Colonia: " & la_col.Text & eLINEFEED)
|
||||
'' Printer1.WriteString("C.P.: " & la_cp.Text & eLINEFEED)
|
||||
' Printer1.WriteString("Entre calle1: " & l_entre1.Text & eLINEFEED)
|
||||
' Printer1.WriteString("Entre Calle2: " & l_entre2.Text & eLINEFEED)
|
||||
'
|
||||
' Printer1.WriteString("-----------PREVENTA-----------" & eLINEFEED)
|
||||
' ' 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=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CEDIS <> ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("DUR"))
|
||||
' 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
|
||||
' Printer1.WriteString(s.GetString("PE_PRONOMBRE") & eLINEFEED)
|
||||
'
|
||||
' Else
|
||||
'
|
||||
' Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & eLINEFEED)
|
||||
' 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
|
||||
' Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & eLINEFEED )
|
||||
' TAMANO = 0
|
||||
' ESPACIO = 21
|
||||
' BLANCO = " "
|
||||
' End If
|
||||
' Next
|
||||
' End If
|
||||
' s.Close
|
||||
' Printer1.WriteString(" " & eLINEFEED)
|
||||
' s=skmt.ExecQuery("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE LENGTH(PE_CEDIS) > 3 AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU")
|
||||
' If S.RowCount>0 Then
|
||||
' Printer1.WriteString("------------PROMOS------------" & eLINEFEED)
|
||||
' For i=0 To S.RowCount -1
|
||||
' S.Position=i
|
||||
' If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
||||
' Printer1.WriteString(s.GetString("PE_PRONOMBRE") & eLINEFEED)
|
||||
'
|
||||
' Else
|
||||
'
|
||||
' Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & eLINEFEED)
|
||||
' 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
|
||||
' Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & eLINEFEED )
|
||||
' TAMANO = 0
|
||||
' ESPACIO = 21
|
||||
' BLANCO = " "
|
||||
' End If
|
||||
' Next
|
||||
' Printer1.WriteString(" " & eLINEFEED)
|
||||
' End If
|
||||
' s.Close
|
||||
'
|
||||
' s=skmt.ExecQuery("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
' s.Position =0
|
||||
' ' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
||||
' ' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
|
||||
' ' End If
|
||||
' Printer1.WriteString("Subtotal Preventa: $" & s.GetString("TOTAL") & eLINEFEED)
|
||||
' s.Close
|
||||
' c= 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 )")
|
||||
' C.Position=0
|
||||
' Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & eLINEFEED)
|
||||
' c.Close
|
||||
' s=skmt.ExecQuery("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
' s.Position =0
|
||||
' ' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
||||
' ' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
|
||||
' ' End If
|
||||
' Printer1.WriteString("Descuento: $" & 150 & eLINEFEED)
|
||||
' Printer1.WriteString("Total Preventa: $" & (s.GetString("TOTAL") -150 )& eLINEFEED)
|
||||
'
|
||||
' Printer1.WriteString(" " & eLINEFEED)
|
||||
' Printer1.WriteString("------------------------------" & eLINEFEED)
|
||||
' Printer1.WriteString("ENTREGA EN :" & eLINEFEED)
|
||||
' Printer1.WriteString(la_Calle.Text & eLINEFEED)
|
||||
' Printer1.WriteString("----ESTE TICKET NO ES UN -----" & eLINEFEED)
|
||||
' Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & eLINEFEED)
|
||||
' Printer1.WriteString("--------INFORMATIVO-----------" & eLINEFEED)
|
||||
' Printer1.WriteString("------------------------------" & eLINEFEED)
|
||||
' Printer1.WriteString(" " & eLINEFEED)
|
||||
'
|
||||
' Sleep(1000)
|
||||
' Printer1.DisConnect
|
||||
'
|
||||
' ProgressDialogHide
|
||||
'' printer.Flush
|
||||
' ' printer.Close
|
||||
'End Sub
|
||||
|
||||
Sub Impresion2
|
||||
Dim pedinow As Cursor = skmt.ExecQuery("select * FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FUTURO = '0' ")
|
||||
If pedinow.RowCount > 0 Then
|
||||
' Mandapedido
|
||||
|
||||
c=skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
c.Position=0
|
||||
usuario = c.GetString("USUARIO")
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
' DateTime.DateFormat = "MM/dd/yyyy"
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
c.Close
|
||||
@@ -4521,9 +4763,15 @@ Sub Impresion2
|
||||
' Printer1.PrintImage(myimage)
|
||||
' Printer1.WriteString(Printer1.UNREVERSE)
|
||||
|
||||
'Printer1.Justify = 1
|
||||
'printer.Initialize(cmp20.OutputStream)
|
||||
' Printer1.WriteString("DISTRIBUIDORA ROCHA TULA PACHUCA" & eLINEFEED)
|
||||
' Printer1.Justify = 1
|
||||
' printer.Initialize(cmp20.OutputStream)
|
||||
Printer1.WriteString("Centro de atencion a Clientes Bat" & eLINEFEED)
|
||||
Printer1.WriteString("Telefono: 800 400 5000" & eLINEFEED)
|
||||
Printer1.WriteString(eLINEFEED)
|
||||
Printer1.WriteString(eLINEFEED)
|
||||
|
||||
|
||||
Printer1.WriteString("DISTRIBUIDORA ROCHA TULA PACHUCA" & eLINEFEED)
|
||||
Printer1.WriteString("RFC: DRT-110316-9J1" & eLINEFEED)
|
||||
' Printer1.WriteString(sucursal & eLINEFEED)
|
||||
Printer1.WriteString(sDate & eLINEFEED)
|
||||
@@ -4536,44 +4784,110 @@ Sub Impresion2
|
||||
' Printer1.WriteString("C.P.: " & la_cp.Text & eLINEFEED)
|
||||
Printer1.WriteString("Entre calle1: " & l_entre1.Text & eLINEFEED)
|
||||
Printer1.WriteString("Entre Calle2: " & l_entre2.Text & eLINEFEED)
|
||||
|
||||
Printer1.WriteString("-----------PREVENTA-----------" & eLINEFEED)
|
||||
|
||||
Printer1.WriteString("----------PREVENTA-----------" & eLINEFEED)
|
||||
' 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=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CEDIS <> ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("DUR"))
|
||||
s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, IFNULL(PE_RECALCULO,0) AS PE_RECALCULO, length(PE_COSTOU) as L_COSTOU, length(Ifnull(PE_RECALCULO,0)) as L_COSTOREC, PE_CANT * PE_COSTOU AS PE_COSTO_TOT, PE_CANT * IFNULL(PE_RECALCULO,0) AS PE_COSTO_TOTREC, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT, length(PE_CANT * IFNULL(PE_RECALCULO,0)) as L_COSTO_TOTREC, PE_PROID, PE_CEDIS, PE_RECCANT FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_FUTURO = '0' AND PE_CANT > 0 order by PE_PROID", Array As String(Subs.traeAlmacen))
|
||||
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
|
||||
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & eLINEFEED)
|
||||
|
||||
' Printer1.WriteString(s.GetString("PE_PRONOMBRE") & eLINEFEED)
|
||||
Else
|
||||
|
||||
Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & eLINEFEED)
|
||||
TAMANO = s.GetLong("L_CANT") + TAMANO
|
||||
TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
||||
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
||||
If s.GetInt("PE_RECALCULO") = 0 Then
|
||||
Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & eLINEFEED)
|
||||
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
|
||||
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & eLINEFEED& eLINEFEED )
|
||||
TAMANO = 0
|
||||
ESPACIO = 21
|
||||
BLANCO = " "
|
||||
Else if s.GetInt("PE_CANT") = s.GetInt("PE_RECCANT") Then
|
||||
Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & eLINEFEED)
|
||||
TAMANO = s.GetLong("L_CANT") + TAMANO
|
||||
TAMANO = s.GetLong("L_COSTOREC") + TAMANO
|
||||
TAMANO = s.GetLong("L_COSTO_TOTREC") + TAMANO
|
||||
|
||||
ESPACIO = ESPACIO - TAMANO
|
||||
|
||||
ESPACIO = ESPACIO - TAMANO
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
|
||||
Dim descpro As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_PD_RANGO, CAT_PD_DESCUENTO, CAT_PD_RANGO2 FROM CAT_PROMOS_DESCUENTOS WHERE CAT_PD_PRODUCTO IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}') AND INSTR(',' || CAT_PD_TIER || ',' , ',${Subs.traeTipoCliente},') > 0 "$)
|
||||
descpro.Position = 0
|
||||
|
||||
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_RECALCULO") & " $" & s.GETSTRING("PE_COSTO_TOTREC") & eLINEFEED & eLINEFEED )
|
||||
|
||||
Log(s.GetString("PE_PRONOMBRE"))
|
||||
Log(descpro.GetDouble("CAT_PD_DESCUENTO"))
|
||||
Printer1.WriteString(BLANCO & "PL $" & s.GETSTRING("PE_COSTOU") & " Desc.: " & descpro.GetDouble("CAT_PD_DESCUENTO")&"%" & eLINEFEED & eLINEFEED)
|
||||
TAMANO = 0
|
||||
ESPACIO = 21
|
||||
BLANCO = " "
|
||||
Else if s.GetInt("PE_CANT") <> s.GetInt("PE_RECCANT") Then
|
||||
Log(s.GetInt("PE_RECCANT"))
|
||||
Log(s.GetInt("PE_CANT"))
|
||||
Log("aqui")
|
||||
Printer1.WriteString(s.GetString("PE_RECCANT") & " " & s.GetString("PE_PRONOMBRE") & eLINEFEED)
|
||||
TAMANO = s.GetLong("L_CANT") + TAMANO
|
||||
TAMANO = s.GetLong("L_COSTOREC") + TAMANO
|
||||
TAMANO = s.GetLong("L_COSTO_TOTREC") + TAMANO
|
||||
|
||||
ESPACIO = ESPACIO - TAMANO
|
||||
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & eLINEFEED )
|
||||
TAMANO = 0
|
||||
ESPACIO = 21
|
||||
BLANCO = " "
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
|
||||
' Con descuento
|
||||
Dim descpro As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_PD_RANGO, CAT_PD_DESCUENTO, CAT_PD_RANGO2 FROM CAT_PROMOS_DESCUENTOS WHERE CAT_PD_PRODUCTO IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}') AND INSTR(',' || CAT_PD_TIER || ',' , ',${Subs.traeTipoCliente},') > 0 "$)
|
||||
descpro.Position = 0
|
||||
|
||||
Printer1.WriteString(BLANCO & s.GETSTRING("PE_RECCANT") & " X $" & s.GETSTRING("PE_RECALCULO") & " $" & NumberFormat2((s.GETSTRING("PE_RECCANT") * s.GETSTRING("PE_RECALCULO")),1,2,2,False) & eLINEFEED & eLINEFEED )
|
||||
Printer1.WriteString(BLANCO & "PL $" & s.GETSTRING("PE_COSTOU") & " Desc.: " & descpro.GetDouble("CAT_PD_DESCUENTO")&"%" & eLINEFEED & eLINEFEED)
|
||||
|
||||
Private subTot As String = (s.GETSTRING("PE_CANT")-s.GETSTRING("PE_RECCANT")) * s.GETSTRING("PE_COSTOU")
|
||||
TAMANO = s.GetLong("L_CANT") + TAMANO
|
||||
TAMANO = s.GetLong("L_COSTOREC") + TAMANO
|
||||
TAMANO = subTot + TAMANO
|
||||
|
||||
ESPACIO = ESPACIO - TAMANO
|
||||
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
' Sin decuento
|
||||
Printer1.WriteString((s.GETSTRING("PE_CANT")-s.GETSTRING("PE_RECCANT")) & " " & s.GetString("PE_PRONOMBRE") & eLINEFEED)
|
||||
Printer1.WriteString(BLANCO & (s.GETSTRING("PE_CANT")-s.GETSTRING("PE_RECCANT")) & " X $" & s.GETSTRING("PE_COSTOU") & " $" & NumberFormat2(subTot,1,2,2,False) & eLINEFEED & eLINEFEED )
|
||||
|
||||
|
||||
TAMANO = 0
|
||||
ESPACIO = 21
|
||||
BLANCO = " "
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
s.Close
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
s=skmt.ExecQuery("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE LENGTH(PE_CEDIS) > 3 AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU")
|
||||
' Printer1.WriteString(" " & eLINEFEED)
|
||||
|
||||
totalpromos = 0
|
||||
totalpromostotal = 0
|
||||
s=skmt.ExecQuery("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE LENGTH(PE_CEDIS) > 3 AND PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_FUTURO = '0' AND PE_CANT > 0 order by PE_CEDIS, PE_COSTOU")
|
||||
If S.RowCount>0 Then
|
||||
Printer1.WriteString("------------PROMOS------------" & eLINEFEED)
|
||||
' Printer1.WriteString("------------------PROMOCIONES-------------------" & eLINEFEED)
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
||||
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & eLINEFEED)
|
||||
' Printer1.WriteString("* " & s.GetString("PE_PRONOMBRE") &" *" & eLINEFEED)
|
||||
|
||||
Else
|
||||
|
||||
@@ -4587,7 +4901,29 @@ Sub Impresion2
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & eLINEFEED )
|
||||
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & eLINEFEED )
|
||||
|
||||
|
||||
Dim coloressaldo As Cursor=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_CLASIFICADOR2,0) AS CAT_CL_CLASIFICADOR2 from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
||||
coloressaldo.Position = 0
|
||||
|
||||
If coloressaldo.GetString("CAT_CL_CLASIFICADOR2") = "LP222_D" Then
|
||||
|
||||
Dim precioprom As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_LISTAPRECIO AS CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}' "$)
|
||||
Else
|
||||
Dim precioprom As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}' "$)
|
||||
End If
|
||||
|
||||
If precioprom.RowCount > 0 Then
|
||||
precioprom.Position = 0
|
||||
Log (precioprom.GETSTRING("CAT_GP_PRECIO"))
|
||||
Log (s.GETSTRING("PE_COSTOU"))
|
||||
If NumberFormat2(precioprom.GETSTRING("CAT_GP_PRECIO"),0.,2,2,False) <> NumberFormat2(s.GETSTRING("PE_COSTOU"),0.,2,2,False) Then
|
||||
|
||||
Printer1.WriteString(BLANCO & "PL $" & precioprom.GETSTRING("CAT_GP_PRECIO") & " Desc.: " & NumberFormat2(((( precioprom.GETSTRING("CAT_GP_PRECIO")-s.GETSTRING("PE_COSTOU"))*100)/precioprom.GETSTRING("CAT_GP_PRECIO")),0.,2,2,False) &"%" & eLINEFEED & eLINEFEED)
|
||||
End If
|
||||
|
||||
End If
|
||||
TAMANO = 0
|
||||
ESPACIO = 21
|
||||
BLANCO = " "
|
||||
@@ -4597,26 +4933,53 @@ Sub Impresion2
|
||||
End If
|
||||
s.Close
|
||||
|
||||
s=skmt.ExecQuery("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
s.Position =0
|
||||
' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
||||
' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
|
||||
' End If
|
||||
Printer1.WriteString("Subtotal Preventa: $" & s.GetString("TOTAL") & eLINEFEED)
|
||||
s.Close
|
||||
c= 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 )")
|
||||
C.Position=0
|
||||
Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & eLINEFEED)
|
||||
c.Close
|
||||
s=skmt.ExecQuery("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
s.Position =0
|
||||
' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
||||
' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
|
||||
' End If
|
||||
Printer1.WriteString("Descuento: $" & 150 & eLINEFEED)
|
||||
Printer1.WriteString("Total Preventa: $" & (s.GetString("TOTAL") -150 )& eLINEFEED)
|
||||
' s=skmt.ExecQuery("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_FUTURO = '0'")
|
||||
' s.Position =0
|
||||
' ' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
||||
' ' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
|
||||
' ' End If
|
||||
' Printer1.WriteString("Subtotal Preventa: $" & s.GetString("TOTAL") & eLINEFEED)
|
||||
'' Printer1.WriteString("Subtotal Preventa: $" & Subs.calculaTotalConPromoXRango(Subs.traeCliente) & eLINEFEED)
|
||||
'
|
||||
' c= 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_FUTURO = '0'")
|
||||
' C.Position=0
|
||||
' Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & eLINEFEED)
|
||||
' c.Close
|
||||
' Dim s3 As Cursor =skmt.ExecQuery("select IFNULL(SUM(PE_COSTO_TOT),0) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and IFNULL(PE_RECALCULO,0) = 0 and PE_FUTURO = '0'")
|
||||
' s3.Position =0
|
||||
' S2=skmt.ExecQuery("select IFNULL(SUM(PE_RECALCULOTOT),0) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and IFNULL(PE_RECALCULO,0) <> 0 and PE_FUTURO = '0'")
|
||||
' S2.Position =0
|
||||
'
|
||||
' If NumberFormat2((s3.GetString("TOTAL") + S2.GetString("TOTAL")),0,2,2,False) <> s.GetString("TOTAL") Then
|
||||
'
|
||||
' Printer1.WriteString("Descuento: $" & NumberFormat2( (s.GetString("TOTAL") - Subs.calculaTotalConPromoXRango2(Subs.traeCliente)),0,2,2,False)& eLINEFEED)
|
||||
' End If
|
||||
' ' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
||||
' ' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
|
||||
' ' End If
|
||||
'' Printer1.WriteString("Descuento: $" & 150 & eLINEFEED)
|
||||
'' Printer1.WriteString("Total Preventa: $" & NumberFormat2((s3.GetString("TOTAL") + S2.GetString("TOTAL")),0,2,2,False)& eLINEFEED)
|
||||
' Printer1.WriteString("Total Preventa: $" & NumberFormat2(Subs.calculaTotalConPromoXRango2(Subs.traeCliente),0,2,2,False)& eLINEFEED)
|
||||
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
Printer1.WriteString("Subtotal Preventa: $" & NumberFormat2(Subs.calculaTotalConPromoXRango3(Subs.traeCliente),0,2,2,False)& eLINEFEED)
|
||||
If NumberFormat2(Subs.calculaTotalConPromoXRango3(Subs.traeCliente),0,2,2,False) <> NumberFormat2(Subs.calculaTotalConPromoXRango2(Subs.traeCliente),0,2,2,False) Then
|
||||
Printer1.WriteString("Descuento: $" & NumberFormat2( (Subs.calculaTotalConPromoXRango3(Subs.traeCliente) - Subs.calculaTotalConPromoXRango2(Subs.traeCliente)),0,2,2,False)& eLINEFEED)
|
||||
' Printer1.WriteString("Descuento %: " & NumberFormat2( (((Subs.calculaTotalConPromoXRango3(Subs.traeCliente) - Subs.calculaTotalConPromoXRango2(Subs.traeCliente))*100)/NumberFormat2(Subs.calculaTotalConPromoXRango3(Subs.traeCliente),0,2,2,False)),0,2,2,False)& eLINEFEED)
|
||||
End If
|
||||
Printer1.WriteString("Total Preventa: $" & NumberFormat2(Subs.calculaTotalConPromoXRango2(Subs.traeCliente),0,2,2,False)& eLINEFEED)
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
|
||||
Private contadocredito As Cursor = Starter.skmt.ExecQuery($"SELECT BANDERA FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA) "$)
|
||||
If contadocredito.RowCount > 0 Then
|
||||
contadocredito.Position = 0
|
||||
If contadocredito.getstring("BANDERA") = "1" Then
|
||||
Printer1.WriteString("Tipo de entrega: CREDITO"&eLINEFEED)
|
||||
Else
|
||||
Printer1.WriteString("Tipo de entrega: CONTADO"& eLINEFEED)
|
||||
End If
|
||||
End If
|
||||
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------" & eLINEFEED)
|
||||
Printer1.WriteString("ENTREGA EN :" & eLINEFEED)
|
||||
Printer1.WriteString(la_Calle.Text & eLINEFEED)
|
||||
@@ -4624,14 +4987,38 @@ Sub Impresion2
|
||||
Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & eLINEFEED)
|
||||
Printer1.WriteString("--------INFORMATIVO-----------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------" & eLINEFEED)
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
|
||||
|
||||
If ALMACEN = 81 Or ALMACEN = 88 Then
|
||||
|
||||
Dim creditocod2 As Cursor = Starter.skmt.ExecQuery("SELECT BANDERA FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If creditocod2.RowCount > 0 Then
|
||||
creditocod2.Position = 0
|
||||
If creditocod2.GetString("BANDERA") = "1" Then
|
||||
Dim creditocod As Cursor = Starter.skmt.ExecQuery("SELECT CODIGO FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
creditocod.Position = 0
|
||||
Printer1.WriteString("---------CODIGO: "& creditocod.GetString("CODIGO")& "---------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------" & eLINEFEED)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
|
||||
Sleep(1000)
|
||||
Printer1.DisConnect
|
||||
|
||||
ProgressDialogHide
|
||||
End If
|
||||
' printer.Flush
|
||||
' printer.Close
|
||||
Sleep(1000)
|
||||
Dim pedifutu As Cursor = skmt.ExecQuery("select * FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FUTURO = '1' ")
|
||||
If pedifutu.RowCount > 0 Then
|
||||
Impresion5
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Impresion
|
||||
|
||||
Reference in New Issue
Block a user