#include "in0700a.h" TOOLBAR "Toolbar" 0 -3 0 3 #include ENDPAGE PAGE "Rettifiche INTRA" -1 -1 78 18 GROUPBOX DLG_NULL 78 3 BEGIN PROMPT 1 0 "@bDitta" END NUMBER F_DITTA 5 BEGIN PROMPT 3 1 "" FLAGS "DF" USE LF_NDITTE INPUT CODDITTA F_DITTA OUTPUT F_DITTA_DESCR RAGSOC CHECKTYPE REQUIRED END STRING F_DITTA_DESCR 50 BEGIN PROMPT 10 1 "Ragione Sociale " FLAGS "D" END GROUPBOX DLG_NULL 78 8 BEGIN PROMPT 1 3 "@bRiepilogo originale" END LIST O_TIPO 1 10 BEGIN PROMPT 2 4 "Tipo " ITEM "C|Cessioni" MESSAGE "C",O_TIPO_CF ITEM "A|Acquisti" MESSAGE "F",O_TIPO_CF FLAGS "D" END NUMBER O_ANNO 4 BEGIN PROMPT 21 4 "Anno " FLAGS "AU" FIELD ANNORETT CHECKTYPE REQUIRED NUM_EXPR #O_ANNO<=#O_ANNO WARNING "Si possono rettificare solo gli anni precedenti" END LIST O_PERIODO_M 2 16 BEGIN PROMPT 33 4 "Periodo " FLAGS "AM" FIELD PERETT NUM_EXPR (#O_ANNO=#F_ANNO)||(#O_PERIODO_M<#F_PERIODO_M) WARINIG "Si possono rettificare solo i periodi precedenti" END LIST O_PERIODO_T 2 16 BEGIN PROMPT 33 4 "Periodo " ITEM "01|Gennaio-Marzo" MESSAGE COPY,O_PERIODO_M ITEM "02|Aprile-Giugno" MESSAGE COPY,O_PERIODO_M ITEM "03|Luglio-Settembre" MESSAGE COPY,O_PERIODO_M ITEM "04|Ottobre-Dicembre" MESSAGE COPY,O_PERIODO_M FIELD PERETT NUM_EXPR (#O_ANNO=#F_ANNO)||(#O_PERIODO_T<#F_PERIODO_T) WARINIG "Si possono rettificare solo i periodi precedenti" END LIST O_PERIODO_A 2 16 BEGIN PROMPT 33 4 "Periodo " ITEM "01|Annuale" MESSAGE COPY,O_PERIODO_M END NUBER O_NUM_RIG 7 BEGIN PROMPT 63 4 "Riga " USE LF_RIEPRETT INPUT TIPO O_TIPO SELECT INPUT ANNO O_ANNO SELECT INPUT PERIODO O_PERIODO_M INPUT NUMRIG O_NUM_RIG DISPLAY "Tipo" TIPO DISPLAY "Anno" ANNO DISPLAY "Periodo" PERIODO DISPLAY "Numero" NUMRIG DISPLAY "Stato" STATO DISPLAY "Partita IVA" PIVA DISPLAY "Natura" NATURA DISPLAY "Nomenclatura" NOMENCL DISPLAY "Consegna" CONSEGNA DISPLAY "Trasporto" TRASPORTO DISPLAY "Paese" PAESE OUTPUT O_PERIODO_M PERIODO OUTPUT O_PERIODO_T PERIODO OUTPUT O_NUM_RIG NUMRIG OUTPUT O_STATO STATO OUTPUT O_PARTITA_IVA PIVA OUTPUT O_NATURA_TRANS NATURA OUTPUT O_NOMENCLATURA NOMENCL OUTPUT O_AMM_LIRE AMMLIRE OUTPUT O_VALUTA CODVAL OUTPUT F_VALUTA CODVAL OUTPUT O_AMM_VALUTA AMMVALUTA OUTPUT O_VALORE_STAT VALSTAT CHECKTYPE SEARCH FIELD NUMRETT END LIST O_STATO 2 16 BEGIN PROMPT 2 5 "Stato CEE " ITEM "AT|Austria" ITEM "BE|Belgio" ITEM "DE|Germania" ITEM "DK|Danimarca" ITEM "EL|Grecia" ITEM "ES|Spagna" ITEM "FR|Francia" ITEM "GB|Gran Bretagna" ITEM "IE|Irlanda" ITEM "IT|Italia" ITEM "LU|Lussemburgo" ITEM "NL|Olanda" ITEM "PT|Portogallo" ITEM "SE|Svezia" GROUP GR_ORIGINAL END LIST O_TIPO_CF 1 10 BEGIN PROMPT 33 5 "" ITEM "C|Cliente" ITEM "F|Fornitore" FLAGS "D" END STRING O_PARTITA_IVA 12 BEGIN PROMPT 51 5 "Partita IVA " USE LF_CLIFO KEY 5 INPUT TIPOCF O_TIPO_CF SELECT INPUT STATOPAIV O_STATO INPUT PAIV O_PARTITA_IVA DISPLAY "Stato" STATOPAIV DISPLAY "Partita IVA@12" PAIV DISPLAY "Codice" CODCF DISPLAY "Ragione Sociale@50" RAGSOC OUTPUT O_STATO STATOPAIV OUTPUT O_PARTITA_IVA PAIV OUTPUT O_PARTITA_DESC RAGSOC VALIDATE PI_FUNC O_STATO CHECKTYPE REQUIRED WARNING "Lunghezza partita IVA errata" GROUP GR_ORIGINAL END STRING O_PARTITA_DESC 50 BEGIN PROMPT 2 6 "Ragione sociale " FLAGS "D" END NUMBER O_NATURA_TRANS 1 BEGIN PROMPT 2 7 "Natura transazione " SHEET "Cod.|Descrizione@66" INPUT O_NATURA_TRANS ITEM "1|Acquisto o vendita (compreso il baratto)" ITEM "2|Restituzione o sostituzione di merci" ITEM "3|Aiuti gernativi, privati o finanziati dalla comunita' europea" ITEM "4|Operazione in vista di una lavorazione per conto terzi o di una riparazione" ITEM "5|Operazione successiva ad una lavorazione per conto terzi o di una riparazione" ITEM "6|Movimento di merci senza trasferimento di proprieta' (per noleggio, leasing operativo, ecc.)" ITEM "7|Operazione a titolo di un programma comune di difesa o di un altro programma intergovernativo di fabbricazione coordinata" ITEM "8|Fornitura di materiali e macchinari nel quadro di un contratto generale di costruzione o di genio civile" ITEM "9|Altre transazioni" OUTPUT O_NATURA_TRANS GROUP GR_ORIGINAL END NUMBER O_NOMENCLATURA 8 BEGIN PROMPT 30 7 "Nomenclatura combinata " FLAGS "Z" USE %NOC INPUT CODTAB O_NOMENCLATURA DISPLAY "Codice@8" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT O_NOMENCLATURA CODTAB CHECKTYPE REQUIRED GROUP GR_ORIGINAL END CURRENCY O_AMM_LIRE 18 BEGIN PROMPT 2 8 "Ammontare in lire " CHECKTYPE REQUIRED GROUP GR_ORIGINAL END STRING O_VALUTA 3 BEGIN PROMPT 43 8 "in valuta " FLAGS "D" FIELD CODVAL END CURRENCY O_AMM_VALUTA 18 BEGIN PROMPT 59 8 "" DRIVENBY O_VALUTA CHECKTYPE REQUIRED GROUP GR_ORIGINAL END NUMBER O_VALORE_STAT 18 BEGIN PROMPT 2 9 "Valore statistico " PICTURE "." GROUP GR_ORIGINAL END GROUPBOX DLG_NULL 78 8 BEGIN PROMPT 1 11 "@bRettifica" END LIST F_TIPO 1 10 BEGIN PROMPT 2 12 "Tipo " ITEM "D|Cessioni" MESSAGE "C",F_TIPO_CF|"C",O_TIPO ITEM "B|Acquisti" MESSAGE "F",F_TIPO_CF|"A",O_TIPO KEY 1 FIELD TIPO END NUMBER F_ANNO 4 BEGIN PROMPT 21 12 "Anno " FLAGS "AU" KEY 1 FIELD ANNO END LIST F_PERIODO_M 2 16 BEGIN PROMPT 33 12 "Periodo " FLAGS "AM" FIELD PERIODO KEY 1 END LIST F_PERIODO_T 2 16 BEGIN PROMPT 33 12 "Periodo " ITEM "01|Gennaio-Marzo" MESSAGE COPY,O_PERIODO_M ITEM "02|Aprile-Giugno" MESSAGE COPY,O_PERIODO_M ITEM "03|Luglio-Settembre" MESSAGE COPY,O_PERIODO_M ITEM "04|Ottobre-Dicembre" MESSAGE COPY,O_PERIODO_M FIELD PERIODO END LIST F_PERIODO_A 2 16 BEGIN PROMPT 33 12 "Periodo " ITEM "01|Annuale" MESSAGE COPY,O_PERIODO_M END NUBER F_NUM_RIG 7 BEGIN PROMPT 63 12 "Riga " USE LF_RIEPRETT INPUT TIPO F_TIPO SELECT INPUT ANNO F_ANNO SELECT INPUT PERIODO F_PERIODO_M INPUT NUMRIG F_NUM_RIG DISPLAY "Tipo" TIPO DISPLAY "Anno" ANNO DISPLAY "Periodo" PERIODO DISPLAY "Numero" NUMRIG DISPLAY "Anno rett." ANNORETT DISPLAY "Periodo rett." PERETT DISPLAY "Numero rett." NUMRETT OUTPUT F_PERIODO_M PERIODO OUTPUT F_PERIODO_T PERIODO OUTPUT F_NUM_RIG NUMRIG CHECKTYPE REQUIRED FIELD NUMRIG KEY 1 END LIST F_STATO 2 16 BEGIN PROMPT 2 13 "Stato CEE " ITEM "AT|Austria" ITEM "BE|Belgio" ITEM "DE|Germania" ITEM "DK|Danimarca" ITEM "EL|Grecia" ITEM "ES|Spagna" ITEM "FR|Francia" ITEM "GB|Gran Bretagna" ITEM "IE|Irlanda" ITEM "IT|Italia" ITEM "LU|Lussemburgo" ITEM "NL|Olanda" ITEM "PT|Portogallo" ITEM "SE|Svezia" FIELD STATO END LIST F_TIPO_CF 1 10 BEGIN PROMPT 33 13 "" ITEM "C|Cliente" ITEM "F|Fornitore" FLAGS "D" END STRING F_PARTITA_IVA 12 BEGIN PROMPT 51 13 "Partita IVA " USE LF_CLIFO KEY 5 INPUT TIPOCF O_TIPO_CF SELECT INPUT STATOPAIV O_STATO INPUT PAIV O_PARTITA_IVA DISPLAY "Stato" STATOPAIV DISPLAY "Partita IVA@12" PAIV DISPLAY "Codice" CODCF DISPLAY "Ragione Sociale@50" RAGSOC OUTPUT O_STATO STATOPAIV OUTPUT O_PARTITA_IVA PAIV OUTPUT O_PARTITA_DESC RAGSOC VALIDATE PI_FUNC O_STATO CHECKTYPE REQUIRED WARNING "Lunghezza partita IVA errata" FIELD PIVA END STRING F_PARTITA_DESC 50 BEGIN PROMPT 2 14 "Ragione sociale " FLAGS "D" END NUMBER F_NATURA_TRANS 1 BEGIN PROMPT 2 15 "Natura transazione " SHEET "Cod.|Descrizione@66" INPUT O_NATURA_TRANS ITEM "1|Acquisto o vendita (compreso il baratto)" ITEM "2|Restituzione o sostituzione di merci" ITEM "3|Aiuti gernativi, privati o finanziati dalla comunita' europea" ITEM "4|Operazione in vista di una lavorazione per conto terzi o di una riparazione" ITEM "5|Operazione successiva ad una lavorazione per conto terzi o di una riparazione" ITEM "6|Movimento di merci senza trasferimento di proprieta' (per noleggio, leasing operativo, ecc.)" ITEM "7|Operazione a titolo di un programma comune di difesa o di un altro programma intergovernativo di fabbricazione coordinata" ITEM "8|Fornitura di materiali e macchinari nel quadro di un contratto generale di costruzione o di genio civile" ITEM "9|Altre transazioni" OUTPUT O_NATURA_TRANS FIELD NATURA END NUMBER F_NOMENCLATURA 8 BEGIN PROMPT 30 15 "Nomenclatura combinata " FLAGS "Z" USE %NOC INPUT CODTAB O_NOMENCLATURA DISPLAY "Codice@8" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT O_NOMENCLATURA CODTAB CHECKTYPE REQUIRED FIELD NOMENCL END LIST F_SEGNO 1 BEGIN PROMPT 68 15 "Segno " ITEM "+|+" ITEM "-|-" FIELD SEGNORETT END CURRENCY F_AMM_LIRE 18 BEGIN PROMPT 2 16 "Ammontare in lire " FIELD AMMLIRE END STRING F_VALUTA 3 BEGIN PROMPT 43 16 "in valuta " FLAGS "D" FIELD CODVAL END CURRENCY F_AMM_VALUTA 18 BEGIN PROMPT 59 16 "" DRIVENBY F_VALUTA FIELD AMMVALUTA END NUMBER F_VALORE_STAT 18 BEGIN PROMPT 2 17 "Valore statistico " PICTURE "." FIELD VALSTAT END ENDPAGE ENDMASK