#include "in0700a.h"

TOOLBAR "Toolbar" 0 -3 0 3

#include <toolbar.h>

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