Corta dos o tres veces elpapel
Publicado por Jorge (18 intervenciones) el 09/05/2017 20:23:05
Buenas Tardes, Compañeros
No se si algunos de ustedes les abra pasado, pero supongo debe haber una solucion, para el impase que se me esta presentando con la impresion de un recibo en una tiquetera, esta es mi rutina, al imprimir la impresora corta el papel antes y despues de imprimir. apreciaria mucho si alguno de ustedes me revisara esta rutina e identificar que estoy haciendo mal o estoy dejando de hacer.
No se si algunos de ustedes les abra pasado, pero supongo debe haber una solucion, para el impase que se me esta presentando con la impresion de un recibo en una tiquetera, esta es mi rutina, al imprimir la impresora corta el papel antes y despues de imprimir. apreciaria mucho si alguno de ustedes me revisara esta rutina e identificar que estoy haciendo mal o estoy dejando de hacer.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
*!* ********************************
*!* *** Encabezado del Documento ***
*!* ********************************
Store 0 To mtotpagado
mnomcliente = Alltrim(Thisform.RazonSocial.Value )
Store ' ' To mmensa1,mmensa2,mmensa3,mmensaje
mmensa1 = Substr(Alltrim(cdirempresa),1,35)
mmensa2 = Substr(Alltrim(cdirempresa),36,40)
mmensa3 = Substr(Alltrim(cdirempresa),73,40)
mtotpagado = (mpago1+mpago2)
Use In(Select('Empresas'))
Use empresas In 0 Shared
Set Console Off
Set Print On
Set Printer To Com1 &&
Set Printer Font 'Courier', 9
??? Chr(18)
?? Chr(15)+Upper(Alltrim(cempresa)) At 10
?
?? Chr(15)+Upper(Alltrim(dempresa)) At 1
?
?? Chr(15)+Alltrim(Upper(mmensa1)) At 1
?
If !Empty(mmensa2)
?? Chr(15)+Alltrim(Upper(mmensa2)) At 1
?
Endif
If !Empty(mmensa3)
?? Chr(15)+Alltrim(Upper(mmensa3)) At 1
?
Endif
?? Chr(15)+Alltrim(Upper(cRucempresa)) At 1
?
?? Chr(15)+'Fecha:'+Dtoc(Date())+' '+Chr(15)+Alltrim(Time()) At 1
?
?? Chr(15)+' '+Chr(15)+Alltrim(InvTipoDoc.Nombre)+':'+Chr(15)+Alltrim(Thisform.Nroserie.Value)+'-'+mnrofac At 1
?
?? '---------------------------------------' At 1
?
?? Chr(15)+ '---Descripcion--- Cant. Pre/Und Total' At 1
?
Select TempVenta
Go Top
Store 0 To mtotal,mtotiva
Do While Not Eof()
?? Chr(15)+Substr(Titulo, 1, 20) At 01,;
alltrim(Str(cantvis, 4, 0)) At 23,;
Alltrim(Str(VrUnit, 8, 2)) At 26,;
Alltrim(Str(VrTotal,8,2)) At 34
?
mtotal = mtotal + VrTotal
mtotiva = mtotiva + VrIva
Skip
Enddo
Store 0 To miva,msubtotal,mpiva
msubtotal = Thisform.Totalgrl.Value- mtotiva
If InvTipoDoc.factura
?
?? Chr(15)+'Sustotal : S/.' At 8,;
msubtotal Picture "@ 999,999.99" At 30
?
?? Chr(15)+'I.G.V. ('+Alltrim(Str(InvConfigImp.igv))+'%): S/.' At 8,;
mtotiva Picture "@ 999,999.99" At 30
Endif
?
?? Chr(15)+'Total Venta : S/.' At 8,;
Thisform.Totalgrl.Value Picture "@ 999,999.99" At 30
?
?
?
If InvTipoDoc.factura
?? Chr(15)+'R.U.C. : '+Chr(15)+Alltrim(Thisform.NroRuc.Value) At 1
?
?? Chr(15)+'RAZON SOCIAL: ' At 1
?
?? Chr(15)+Alltrim(mnomcliente) At 1
Else
?? Chr(15)+'Cliente : '+Chr(15)+Alltrim(Thisform.RazonSocial.Value) At 1
?
Endif
?
?? Chr(15)+'Forma de Pago:'+Chr(15)+Thisform.formapago1.Value At 1
?
?? Chr(15)+'Monto Pagado :'+Chr(15)+Str(mtotpagado,12,2) At 1
?
?? Chr(15)+'Vuelto :'+Chr(15)+Str(Thisform.VrCambio.Value,12,2) At 1 &&&Picture '@9,999,999.99' at 1
?
?? '---------------------------------------' At 1
?
If InvConfigImp.Cajero
?? Chr(15)+'Cajero :'+Chr(15)+Alltrim(musuario) At 1
?
Endif
?
?? Chr(15)+'GRACIAS POR SU PREFERENCIA ' At 8
?
Set Printer To
Set Printer To
???Chr(27)+Chr(105) && Cortar papel. &&tambien uso esta ???Chr(12) &&&+Chr(105) && Cortar papel.
Set Console On
Set Print Off
Messagebox('impresion, ok')
Valora esta pregunta


0