IF(CLIFO.TIPOCF=='C', "CLIENTE", "FORNITORE") CLIFO.CODCF CLIFO.RAGSOC CLIFO.INDCF+", "+CLIFO.CIVCF CLIFO.CAPCF COMUNI.DENCOM+" "+COMUNI.PROVCOM CLIFO.COFI CLIFO.PAIV CLIFO.REFERENTE CLIFO.PTEL+" "+CLIFO.TEL CLIFO.PTEL2+" "+CLIFO.TEL2 CLIFO.PTEL3+" "+CLIFO.TEL3 CLIFO.PFAX+" "+CLIFO.FAX CLIFO.MAIL CODPAG MESSAGE TABLEREAD,%CPG,CODPAG,S0 CLIFO.CODABI CODABI MESSAGE TABLEREAD,%BAN,CODABI,S0 CLIFO.CODCAB CODCAB MESSAGE TABLEREAD,%BAN,CODABI+CODCAB,S0 CLIFO.NUMCC CFVEN.ASSFIS MESSAGE TABLEREAD,%IVA,CFVEN.ASSFIS,S0 CFVEN.VSNRPROT CFVEN.VSDATAREG CFVEN.NSNPROT CFVEN.NSDATAREG CFVEN.CODSPMEZZO MESSAGE TABLEREAD,%MSP,CFVEN.CODSPMEZZO,S0 CFVEN.CODPORTO MESSAGE TABLEREAD,%POR,CFVEN.CODPORTO,S0 110@.S0 110@.S1[1,35]+110@.S1[36,45] 110@.S7 111@.DENCOM+" "+111@.PROVCOM "TEL. " +110@.S5[1,10]+" "+110@.S3+" - FAX. "+110@.S5[11,20]+" "+110@.S4 IF(CFVEN.ADDBOLLI=='X',"SI","NO") 104@.S0+" "+105@.S0+" "+106@.S0+" "+107@.S0 CFVEN.CODABIPR CFVEN.CODCABPR CFVEN.NONACCEFF CFVEN.CODNOTESP1 MESSAGE TABLEREAD,%NDO,CFVEN.CODNOTESP1,S0 CFVEN.CODNOTESP2 MESSAGE TABLEREAD,%NDO,CFVEN.CODNOTESP2,S0 CFVEN.CODAG CFVEN.PERCPROVV 200@.RAGSOC 200@.INDIR+" "+200@.CIV 200@.CAP 300@.DENCOM+" "+300@.PROVCOM 200@.LOCALITA 200@.PTEL+200@.TEL 200@.PFAX+200@.FAX 400@.RAGSOC 400@.INDIR+" "+400@.CIV 400@.CAP 500@.DENCOM+" "+500@.PROVCOM 400@.LOCALITA 400@.PTEL+400@.TEL 400@.PFAX+400@.FAX

USE CLIFO KEY #F_PD6030_SORT JOIN COMUNI INTO STATO==STATOCF COM==COMCF JOIN CFVEN INTO TIPOCF==TIPOCF CODCF==CODCF JOIN SPP TO CFVEN ALIAS 104 INTO CODTAB==CODSP1 JOIN SPP TO CFVEN ALIAS 105 INTO CODTAB==CODSP2 JOIN SPP TO CFVEN ALIAS 106 INTO CODTAB==CODSP3 JOIN SPP TO CFVEN ALIAS 107 INTO CODTAB==CODSP4 JOIN %VET TO CFVEN ALIAS 110 INTO CODTAB==CODVETT1 JOIN COMUNI TO 110@ ALIAS 111 INTO STATO==S8 COM==S9 JOIN INDSPED TO CFVEN ALIAS 200 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP JOIN COMUNI TO 200@ ALIAS 300 INTO STATO==STATO COM==COM JOIN INDSPED TO CFVEN ALIAS 400 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDDOC JOIN COMUNI TO 400@ ALIAS 500 INTO STATO==STATO COM==COM FROM TIPOCF=#F_PD6030_TYPE CODCF=#DACODCF RAGSOC=#DARAGSOC TO TIPOCF=#F_PD6030_TYPE CODCF=#ACODCF RAGSOC=#ARAGSOC