select distinct PMORDF.PROFILO as "INSERITO DA",
PMORDF.TIPO as "PRELEVATO",
PMORDF.ORDPRO as "ORDINE LAVORO",
PMORDF.CODART as "COD. ARTICOLO",
(PMORDF.QTRDPO - PMORDF.QTNTPO) as "QUANTITÀ RESIDUA",
year (DTSCAD) as "ANNO", (day (DTSCSD) - day (DTIPPO)) as "GG ATTRAVERSAMENTO",
date(insert(insert(left(char(DTSCAD),8),5,0,'-'),8,0,'-')) as "FINE PROD.",
current date as "DATA CORRENTE",
(date(insert(insert(left(char(DTSCAD),8),5,0,'-'),8,0,'-'))) - (current date) as "RITARDO",
PMORDF.TORDPO as "STATO",
PMORDF.STAMP as "STAMPA",
PMORDF.QTNTPO as "QT. VERSATA",
MGARTF.DSARMA as "DESCR. ARTICOLO"
from S1000000.RAI01DAT.MGARTF MGARTF, S1000000.RAI01DAT.MGART1F MGART1F, S1000000.RAI01DAT.PCIMPF PCIMPF, S1000000.RAI01DAT.PMORDF PMORDF
where PCIMPF.ORPRCI = PMORDF.ORDPRO
and MGART1F.CDARMD = PCIMPF.CDARCI
and MGARTF.CDARMA = MGART1F.CDARMD
and ((PMORDF.DTINPO>20201231))
and TIPO <>'S'
and (QTRDPO-QTNTPO) >0
and (date(insert(insert(left(char(DTSCAD),8),5,0,'-'),8,0,'-'))) - (current date) like '-%'