FoxPro/Visual FoxPro - problema en la impresion en foxbase+ dos

   
Vista:

problema en la impresion en foxbase+ dos

Publicado por fran deptovistas@outlook.com (1 intervención) el 09/05/2015 14:45:37
Buenas a todos, tengo un problema en la impresión al generar una planilla, la idea es que me imprima dos "recibos" en papel continuo sin importar si me ocupa una hoja y media de una manera seguida, pero al imprimir en la segunda hoja me hace un salto de línea en la impresión dejándome un espacio vacio en la hoja y después de ese espacio empieza a imprimir el resto, quisiera saber por que y como corregir ya que le especifico q me imprima todo sin espacios de línea, programo en foxbase+ d.o.s

aquí les dejo

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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
* SET PROC TO iimp0
SET TALK OFF
 SET ECHO OFF
 SET DATE BRITISH
 SET CONSOLE OFF
set default to printer
SET PRINTER TO PRN
SET DEVICE TO PRINTER
SET PRINTER ON
* SET DEVICE TO PRINTER
* SET PRINTER ON
 ?? CHR(15)
 ? '                                                                                                           COD:'+CODX+' '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? ' RAZON SOCIAL: '+nomx+'                   EMPLEADO : '+nom+'      '
 ? ' ACTIVIDAD   : '+actividad+''+empr+'        CATEGORIA: '+categoria+'    INGRESO: '+TRANSFORM(ingreso,'99/99/99')+' '
 ? ' DOMICILIO   : '+domd+'                   DOMICILIO: '+dom+'  '
 ? ' LUGAR       : '+lugar+'                         PERIODO  : '+periodo+'        '
 ? ' C.U.I.T.    : '+sussx+'                               C.U.I.L. : '+cuilx+'   BASICO: '+TRANSFORM(SUER,'99,999.99')+' '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? ' BASICO ('+STR(d,4,2,1)+')d.:   '+TRANSFORM(basico,'99,999.99')+'        JUBILACION  ( 11%):     '+TRANSFORM(jub1,'9,999.99')+'            '
 ? ' AC.SAL. ()'+STR(c2,3,2,1)+')d.:   '+TRANSFORM(acuerdo,'9,999.99')+'        LEY 19.032  (  3%):     '+TRANSFORM(jubi2,'9,999.99')+'       '
 ? ' VACAC. ( '+STR(c1,3,1,1)+')d.:    '+TRANSFORM(vac1,'9,999.99')+'        OBRA SOCIAL  ('+STR(obrita,3,2,1)+'):     '+TRANSFORM(obra,'9,999.99')+'     '
 ? ' ANTIGUEDAD     :    '+TRANSFORM(ant,'9,999.99')+'        ANSSAL      ('+str(ansal,3,2,1)+'%):     '+TRANSFORM(anssal,'9,999.99')+'          '
 ? ' ASIST. PERFECTA:    '+TRANSFORM(asis,'9,999.99')+'        SINDICATO   (2,5%):     '+TRANSFORM(sind,'9,999.99')+'        '
 ? ' COMP. SERVICIOS:    '+TRANSFORM(compl,'9,999.99')+'        SEG.V.y SEP.(  1%):     '+TRANSFORM(art,'9,999.99')+'     '
 ? ' HORAS EXT.('+STR(h,3)+'):    '+TRANSFORM(horas,'9,999.99')+'        F.R.S      (   1%):     '+TRANSFORM(frs,'9,999.99')+'     '
 ? ' FERIADOS  ('+TRANSFORM(f,'9.9')+'):    '+TRANSFORM(fer,'9,999.99')+'        SUSPENC.  ('+str(suspencion,1)+') DIAS:     '+TRANSFORM(suspx,'9,999.99')+'   '
 ? ' DESC.NO GOZ.('+STR(desc,1)+'):    '+TRANSFORM(leng,'9,999.99')+'        FALTAS    ('+str(faltas,1)+') DIAS:     '+TRANSFORM(faltax,'9,999.99')+'     '
 
 IF UPPER(EMB)="S"
       IF UPPER(SIT)="N"
 ? ' AGUINALDO      :    '+TRANSFORM(agui,'9,999.99')+'        EMBARGOS     ('+STR(PAUX,2)+'%):'+TRANSFORM(embargo,'9,999.99')+'    '
       else
 ? ' AGUINALDO      :    '+TRANSFORM(agui,'9,999.99')+'        ADEL. SUELDO ('+STR(PAUX,2)+'%):'+TRANSFORM(embargo,'9,999.99')+'    '
       SIT="N"
       ENDIF
 
 ? ' ADIC. ALIMENT  :    '+TRANSFORM(alim,'9,999.99')+'        ANTICIPO A CUENTA   :     '+TRANSFORM(monant,'9,999.99')+'      '
 
       ELSE
 
 ? ' AGUINALDO      :    '+TRANSFORM(agui,'9,999.99')+'        ANTICIPO A CUENTA :     '+TRANSFORM(monant,'9,999.99')+'    '
 ? ' ADIC. ALIMENT  :    '+TRANSFORM(alim,'9,999.99')+'        ALIMENT.EXENTO    :     '+TRANSFORM(plat,'9,999.99')+'      '
 
EMB="N"
ENDIF
 
 ? '                 -------------                           --------------    '
 ? ' HABER LEGAL   :     '+TRANSFORM(subtotal1,'99,999.99')+'        SUMA A DEDUCIR    :     '+TRANSFORM(subtotal2,'9,999.99')
 ? ' ALIMEN.EXENTO :      '+TRANSFORM(anexo,'9,999.99')+'                                '
 ? ' PLAN JEFE/H.  :      '+TRANSFORM(JEFA,'9,999.99')+'                                                                                 '
 ? ' TOTAL         :     '+TRANSFORM(subtotal11,'99,999.99')+'        NETO A PERCIBIR   :     '+TRANSFORM(subtotal4,'9,999.99')+'             V/n/G('+STR(c,3,1,1)+'):    '+TRANSFORM(vac,'9,999.99')+'         '
 ? '                                                                                                                      '
 ? '                                  '+rec1+' '
 ? '                                                                                                                      '
 ? '                    '+rec2+'                                       '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                '+rec3+'                                   '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '             '+rec4+'                                               '+rec5+'         '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
? '                                                                                                           COD:'+CODX+' '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? ' RAZON SOCIAL: '+nomx+'                   EMPLEADO : '+nom+'      '
 ? ' ACTIVIDAD   : '+actividad+''+empr+'        CATEGORIA: '+categoria+'    INGRESO: '+TRANSFORM(ingreso,'99/99/99')+' '
 ? ' DOMICILIO   : '+domd+'                   DOMICILIO: '+dom+'  '
 ? ' LUGAR       : '+lugar+'                         PERIODO  : '+periodo+'        '
 ? ' C.U.I.T.    : '+sussx+'                               C.U.I.L. : '+cuilx+'   BASICO: '+TRANSFORM(SUER,'99,999.99')+' '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? ' BASICO ('+STR(d,4,2,1)+')d.:   '+TRANSFORM(basico,'99,999.99')+'        JUBILACION  ( 11%):     '+TRANSFORM(jub1,'9,999.99')+'            '
 ? ' AC.SAL. ()'+STR(c2,3,2,1)+')d.:   '+TRANSFORM(acuerdo,'9,999.99')+'        LEY 19.032  (  3%):     '+TRANSFORM(jubi2,'9,999.99')+'       '
 ? ' VACAC. ( '+STR(c1,3,1,1)+')d.:    '+TRANSFORM(vac1,'9,999.99')+'        OBRA SOCIAL  ('+STR(obrita,3,2,1)+'):     '+TRANSFORM(obra,'9,999.99')+'     '
 ? ' ANTIGUEDAD     :    '+TRANSFORM(ant,'9,999.99')+'        ANSSAL      ('+str(ansal,3,2,1)+'%):     '+TRANSFORM(anssal,'9,999.99')+'          '
 ? ' ASIST. PERFECTA:    '+TRANSFORM(asis,'9,999.99')+'        SINDICATO   (2,5%):     '+TRANSFORM(sind,'9,999.99')+'        '
 ? ' COMP. SERVICIOS:    '+TRANSFORM(compl,'9,999.99')+'        SEG.V.y SEP.(  1%):     '+TRANSFORM(art,'9,999.99')+'     '
 ? ' HORAS EXT.('+STR(h,3)+'):    '+TRANSFORM(horas,'9,999.99')+'        F.R.S      (   1%):     '+TRANSFORM(frs,'9,999.99')+'     '
 ? ' FERIADOS  ('+TRANSFORM(f,'9.9')+'):    '+TRANSFORM(fer,'9,999.99')+'        SUSPENC.  ('+str(suspencion,1)+') DIAS:     '+TRANSFORM(suspx,'9,999.99')+'   '
 ? ' DESC.NO GOZ.('+STR(desc,1)+'):    '+TRANSFORM(leng,'9,999.99')+'        FALTAS    ('+str(faltas,1)+') DIAS:     '+TRANSFORM(faltax,'9,999.99')+'     '
 
 IF UPPER(EMB)="S"
       IF UPPER(SIT)="N"
 ? ' AGUINALDO      :    '+TRANSFORM(agui,'9,999.99')+'        EMBARGOS     ('+STR(PAUX,2)+'%):'+TRANSFORM(embargo,'9,999.99')+'    '
       else
 ? ' AGUINALDO      :    '+TRANSFORM(agui,'9,999.99')+'        ADEL. SUELDO ('+STR(PAUX,2)+'%):'+TRANSFORM(embargo,'9,999.99')+'    '
       SIT="N"
       ENDIF
 
 ? ' ADIC. ALIMENT  :    '+TRANSFORM(alim,'9,999.99')+'        ANTICIPO A CUENTA   :     '+TRANSFORM(monant,'9,999.99')+'      '
 
       ELSE
 
 ? ' AGUINALDO      :    '+TRANSFORM(agui,'9,999.99')+'        ANTICIPO A CUENTA :     '+TRANSFORM(monant,'9,999.99')+'    '
 ? ' ADIC. ALIMENT  :    '+TRANSFORM(alim,'9,999.99')+'        ALIMENT.EXENTO    :     '+TRANSFORM(plat,'9,999.99')+'      '
 
EMB="N"
ENDIF
 
 ? '                 -------------                           --------------    '
 ? ' HABER LEGAL   :     '+TRANSFORM(subtotal1,'99,999.99')+'        SUMA A DEDUCIR    :     '+TRANSFORM(subtotal2,'9,999.99')
 ? ' ALIMEN.EXENTO :      '+TRANSFORM(anexo,'9,999.99')+'                                '
 ? ' PLAN JEFE/H.  :      '+TRANSFORM(JEFA,'9,999.99')+'                                                                                 '
 ? ' TOTAL         :     '+TRANSFORM(subtotal11,'99,999.99')+'        NETO A PERCIBIR   :     '+TRANSFORM(subtotal4,'9,999.99')+'             V/n/G('+STR(c,3,1,1)+'):    '+TRANSFORM(vac,'9,999.99')+'         '
 ? '                                                                                                                      '
 ? '                                  '+rec1+' '
 ? '                                                                                                                      '
 ? '                    '+rec2+'                                       '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '                                '+rec3+'                                   '
 ? '                                                                                                                      '
 ? '                                                                                                                      '
 ? '             '+rec4+'                                               '+rec5+'         '
 
 ?? CHR(18)
* SET CONSOLE ON
* SET PRINTER OFF
* SET PRINTER TO
 SET PRINTER OFF
 set default to
 SET DEVICE TO SCREEN
*SET DEVICE TO SCREEN
 
 RETURN
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder