CODCORR.CODARTALT CODART 47.DESCR RCONDV.PREZZO RCONDV.PREZZO #THIS @ 1936.27 * 0 ROUND #THIS ! RMOVMAG.QUANT

USE RMOVMAG KEY 2 SELECT (110-E;CODCAUS==#CAUS)(ANSI(110-E;DATAREG)E;=#DADATA)(ANSI(110-E;DATAREG)C;=#ADATA) JOIN MOVMAG INTO NUMREG=NUMREG JOIN 47 INTO CODART=CODART JOIN RCONDV TO 47 INTO TIPO="L" CATVEN="" TIPOCF="" CODCF="" COD=#LIST TIPORIGA="A" JOIN CODCORR INTO CODART=CODART NRIGA=1 FROM CODART=#DACODART TO CODART=#ACODART