Storico attrezzature
122-E;CODAGE
MESSAGE RESET,F2
122-E;CODAGE
MESSAGE ISAMREAD,122,CODAGE=#101,RAGSOC
STR(I0)+STR(I1)
MESSAGE RESET,F3
I1
MESSAGE EMPTY ISAMREAD,20,TIPOCF='C'!CODCF=I0,103=RAGSOC!104=INDCF!105=CAPCF!106=COMCF
MESSAGE ISAMREAD,16,TIPOCF='C'!CODCF=I0!CODIND=I1,103=RAGSOC!104=INDIR!105=CAP!106=COM
I0
MESSAGE ISAMREAD,13,COM=#106,DENCOM
CODTAB[1,12]
MESSAGE RESET,F4
MESSAGE ISAMREAD,163,MOD='HA'!COD='ATT'!CODTAB=#102,S0
CODTAB[1,8]
MESSAGE ISAMREAD,47,CODART=#101,DESCR
MESSAGE ISAMREAD,163,MOD='HA'!COD='ATT'!CODTAB=#102,S3
S7[1,1]
B0
D0
S0
S6[1,2]
R0
R1
MESSAGE ADD,F4.110
MESSAGE ADD,F3.110
MESSAGE ADD,F2.110
MESSAGE ADD,F1.110
USE HAHIS SELECT (BETWEEN(S7[1,1];#TIPO;#TIPO))(BETWEEN(122-E;CODAGE,#CODAG,#CODAG))(BETWEEN(I0,#CODCF,#CODCF))(BETWEEN(I1,#INDSPED,#INDSPED))
BY 122-E;CODAGE I0 I1 CODTAB
JOIN HAATT ALIAS 401 INTO CODTAB==CODTAB[1,8]
JOIN CFVEN INTO TIPOCF="C" CODCF==I0
JOIN AGENTI TO CFVEN INTO CODAGE==CODAG
FROM CODTAB=#PROGRESSIVO
TO CODTAB=#PROGRESSIVO