T_CODDOS = ' '
T1 = SPACE(59)
TR_COD_FIS = SPACE(16)
TR_PAR_IVA = SPACE(11)
T_ANNO1 = SPACE(4)
T_MESE1 = SPACE(2)
T_TRIM = SPACE(1)
T_CODA = SPACE(5)
IMPON_VE = 0
IMP_VE_I = 0
IMP_VE_A = 0
IMP_VE_E = 0
IMPON_AC = 0
IMP_AC_I = 0
IMP_AC_A = 0
IMP_AC_E = 0
T_I_DEB = 0
T_I_CRE = 0
VP7D = 0
VP7C = 0
TR_DIC_CAR = SPACE(1)
TR_DIC_CF = SPACE(16)
FLAG = 0
*-----> Leggo i campi del File DIC_FILE
*-----> Leggo i campi del File DIC_FILE
T_F24 = "C:\FABIO23\per.DAT"
USE F24_IVA.TRA
ZAP
APPEND FROM &T_F24 SDF
CLOSE DATABASE
SELECT 1
USE F24_IVA.TRA
UNLOCK
SELECT 1
DO WHILE .T.
IF EOF()
IF FLAG = 1
RUN ("COPY C:\EBS\LASER\DICPER02\IVA_2.PCL /B LPT1 > NUL ")
STMP_F24 ()
RUN ("COPY C:\EBS\LASER\DICPER02\EJECT.PCL /B LPT1 > NUL ")
ENDIF
EXIT
ENDIF
* T_RIMB = " "
*************
* Record 1 *
*************
T_RK = SUBSTR(F24HOST,001,1)
* Frontespizio
IF T_RK = '1'
IF FLAG = 1
RUN ("COPY C:\EBS\LASER\DICPER02\IVA_2.PCL /B LPT1 > NUL ")
STMP_F24 ()
ELSE
FLAG = 1
ENDIF
T_CODDOS = SUBSTR(F24HOST,010,16)
ENDIF
IF T_RK = '2'
T1 = SUBSTR(F24HOST,020,59)
ENDIF
IF T_RK = '3'
TR_COD_FIS = SUBSTR(F24HOST,020,16)
ENDIF
IF T_RK = '4'
TR_PAR_IVA = SUBSTR(F24HOST,007,11)
T_ANNO1 = SUBSTR(F24HOST,031,4)
T_MESE1 = SUBSTR(F24HOST,037,2)
T_TRIM1 = SUBSTR(F24HOST,041,1)
T_CODA = SUBSTR(F24HOST,044,5)
ENDIF
IF T_RK = '6'
IMPON_VE = VAL(SUBSTR(F24HOST,020,11))
IMP_VE_I = VAL(SUBSTR(F24HOST,032,11))
IMP_VE_E = VAL(SUBSTR(F24HOST,044,11))
IMP_VE_A = VAL(SUBSTR(F24HOST,056,11))
ENDIF
IF T_RK = '7'
IMPON_AC = VAL(SUBSTR(F24HOST,020,11))
IMP_AC_I = VAL(SUBSTR(F24HOST,032,11))
IMP_AC_E = VAL(SUBSTR(F24HOST,044,11))
IMP_AC_A = VAL(SUBSTR(F24HOST,056,11))
ENDIF
IF T_RK = 'N'
T_I_DEB = VAL(SUBSTR(F24HOST,015,11))
ENDIF
IF T_RK = 'O'
T_I_CRE = VAL(SUBSTR(F24HOST,031,11))
ENDIF
IF T_RK = 'A'
VP7D = VAL(SUBSTR(F24HOST,015,11))
VP7C = VAL(SUBSTR(F24HOST,031,11))
ENDIF
IF T_RK = 'H'
TR_DIC_CF = SUBSTR(F24HOST,020,16)
TR_DIC_CAR = VAL(SUBSTR(F24HOST,051,2))
ENDIF
SKIP
ENDDO
CLOSE DATABASE
RETURN
PROCEDURE STMP_F24
SET DEVICE TO PRINT
SETPRC(0, 0)
T_ESC1 = 'CHR(27)+"(10U"+CHR(27)+"(s0p10.00h4099t&l65fs2B"+chr(27)+"&a1r&a1C"'
*T_ESC1 = 'CHR(27)+"(10U"+CHR(27)+"(s0p10.00h4099T"'
@ 0,0 SAY &T_ESC1
@ 01,20 SAY "Dossier " + T_CODDOS
@ 05,33 SAY T1
@ 08,33 SAY TR_COD_FIS PICTURE "@R 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9"
@ 11,18 SAY T_ANNO1 PICTURE '@R 9 9 9 9'
@ 14,18 SAY TR_PAR_IVA PICTURE "@R 9 9 9 9 9 9 9 9 9 9 9"
@ 14,66 SAY T_CODA PICTURE '@R 9 9 9 9 9'
@ 19,18 SAY TR_DIC_CF PICTURE "@R 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9"
@ 19,72 SAY TR_DIC_CAR
@ 24,31 SAY IMPON_VE PICTURE '@ZE 999,999,999,999'
@ 25,59 SAY IMP_VE_I PICTURE '@ZE 999,999,999,999'
@ 26,59 SAY IMP_VE_E PICTURE '@ZE 999,999,999,999'
@ 27,59 SAY IMP_VE_A PICTURE '@ZE 999,999,999,999'
@ 30,31 SAY IMPON_AC PICTURE '@ZE 999,999,999,999'
@ 31,59 SAY IMP_AC_I PICTURE '@ZE 999,999,999,999'
@ 32,59 SAY IMP_AC_E PICTURE '@ZE 999,999,999,999'
@ 33,59 SAY IMP_AC_A PICTURE '@ZE 999,999,999,999'
@ 38,31 SAY T_I_DEB PICTURE '@ZE 999,999,999,999'
@ 40,59 SAY T_I_CRE PICTURE '@ZE 999,999,999,999'
@ 42,31 SAY VP7D PICTURE '@ZE 999,999,999,999'
@ 42,59 SAY VP7C PICTURE '@ZE 999,999,999,999'
SET DEVICE TO SCREEN
RETURN