campo-sirio/in/in0600a.uml

#include "in0600a.h"

TOOLBAR "Toolbar" 0 -3 0 3

#include <toolbar.h>

BUTTON F_RIEPILOGHI 28 1
BEGIN
  PROMPT -11 0 "~Generazione Riepiloghi"
END

ENDPAGE

PAGE "Riepiloghi 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

LIST F_TIPO 1 10
BEGIN
  PROMPT 1 3 "Tipo riepilogo  "
  ITEM "C|Cessioni"
    MESSAGE "C",F_TIPO_CF|SHOW,GR_CESSIONI@|HIDE,GR_ACQUISTI@
  ITEM "A|Acquisti"
    MESSAGE "F",F_TIPO_CF|SHOW,GR_ACQUISTI@|HIDE,GR_CESSIONI@
  KEY 1
  FIELD TIPO
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 33 3 "Anno  "
  FLAGS "AU"
  KEY 1
  FIELD ANNO
END

LIST F_PERIODO_M 2 16
BEGIN
  PROMPT 50 3 "Periodo "
  FLAGS "AM"
  FIELD PERIODO
  KEY 1
END

LIST F_PERIODO_T 2 16
BEGIN
  PROMPT 50 3 "Periodo "
  ITEM "01|Gennaio-Marzo"
    MESSAGE COPY,F_PERIODO_M
  ITEM "02|Aprile-Giugno"
    MESSAGE COPY,F_PERIODO_M
  ITEM "03|Luglio-Settembre"
    MESSAGE COPY,F_PERIODO_M
  ITEM "04|Ottobre-Dicembre"
    MESSAGE COPY,F_PERIODO_M
  FIELD PERIODO
  KEY 1
END

LIST F_PERIODO_A 2 16
BEGIN
  PROMPT 50 3 "Periodo "
  ITEM "01|Annuale"
    MESSAGE COPY,F_PERIODO_M
  FIELD PERIODO
  KEY 1
END

NUBER F_NUM_RIG 7
BEGIN
  PROMPT 1 4 "Riga di riepilogo  "
  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 "Stato" STATO
  DISPLAY "Partita IVA" PIVA
  DISPLAY "Natura" NATURA
  DISPLAY "Nomenclatura" NOMENCL
  DISPLAY "Regime" REGIME
  DISPLAY "Trasporto" TRASPORTO
  DISPLAY "Paese" PAESE
  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 1 5 "Stato CEE "
  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"
  FIELD STATO
END

LIST F_TIPO_CF 1 10
BEGIN
  PROMPT 33 5 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FLAGS "D"
END

STRING F_PARTITA_IVA 12
BEGIN
  PROMPT 50 5 "Partita IVA "
  USE LF_CLIFO KEY 5
  INPUT TIPOCF F_TIPO_CF SELECT
  INPUT STATOPAIV F_STATO
  INPUT PAIV F_PARTITA_IVA
  DISPLAY "Stato" STATOPAIV
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_STATO STATOPAIV
  OUTPUT F_PARTITA_IVA PAIV
  OUTPUT F_PARTITA_DESC RAGSOC
  VALIDATE PI_FUNC F_STATO
  CHECKTYPE REQUIRED
  WARNING "Lunghezza partita IVA errata"
  FIELD PIVA
END

STRING F_PARTITA_DESC 50
BEGIN
  PROMPT 1 6 "Denominazione            "
  FLAGS "D"
END


NUMBER F_NATURA_TRANS 1  
BEGIN
  PROMPT 1 8 "Natura transazione  "
  SHEET "Cod.|Descrizione@66"
  INPUT F_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 F_NATURA_TRANS
  OUTPUT F_NATURA_DESCR
  FIELD NATURA
END

MEMO F_NATURA_DESCR 50 3
BEGIN
  PROMPT 26 7 ""
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 9 "Nomenclatura"
END

NUMBER F_NOMENCLATURA 8
BEGIN
  PROMPT 1 10 "combinata    "
  FLAGS "Z"
  USE %NOC
  INPUT CODTAB F_NOMENCLATURA
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NOMENCLATURA CODTAB
  OUTPUT F_NOMENCL_DESC S0
  CHECKTYPE REQUIRED
  FIELD NOMENCL
END

STRING F_NOMENCL_DESC 50
BEGIN
  PROMPT 26 10 ""
  FLAGS "D"
END

LIST F_REGIME_C 1 24
BEGIN
  PROMPT 1 11 "Regime       "
  ITEM "1|Spedizione definitiva"
  ITEM "2|Spedizione temporanea"
  ITEM "3|Rispedizione"
  GROUP GR_CESSIONI
  FIELD REGIME
END

LIST F_REGIME_A 1 24
BEGIN
  PROMPT 1 11 "Regime       "
  ITEM "4|Introduzione definitiva"
  ITEM "5|Introduzione temporanea"
  ITEM "6|Reintroduzione"
  GROUP GR_ACQUISTI
  FIELD REGIME
END

LIST F_TRASPORTO 1 20
BEGIN
  PROMPT 44 11 "Trasporto "
  ITEM "1|Marittimo"
  ITEM "2|Ferroviario"
  ITEM "3|Stradale"
  ITEM "4|Aereo"
  ITEM "5|Spedizione postale"
  ITEM "7|Installazioni fisse"
  ITEM "8|Via acqua"
  ITEM "9|Propulsione propria"
  FIELD TRASPORTO
END


TEXT DLG_NULL
BEGIN
  PROMPT 1 12 "Pase di destinazione"
  GROUP GR_CESSIONI
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 12 "Pase di provenienza"
  GROUP GR_ACQUISTI
END

LIST F_PAESE 2 20
BEGIN
  PROMPT 22 12 ""
  ITEM "  |"
  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"
  FIELD PAESE
END

LIST F_PAESE_ORIG 2 20
BEGIN
  PROMPT 1 13 "Pase di origine      "
  ITEM "  |"
  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"
  GROUP GR_ACQUISTI
  FIELD PAESEORIG
END

TEXT DLG_NULL
BEGIN
  PROMPT 46 12 "Provincia d'origine " 
  GROUP GR_CESSIONI
END

TEXT DLG_NULL
BEGIN
  PROMPT 46 12 "Prov. destinazione "
  GROUP GR_ACQUISTI
END

STRING F_PROV 2
BEGIN
  PROMPT 66 12 ""
  FLAGS "U"
  FIELD PROV
END

CURRENCY F_AMM_LIRE 18
BEGIN
  PROMPT 1 15 "Ammontare in lire "
  FIELD AMMLIRE
END

STRING F_VALUTA 3
BEGIN
  PROMPT 41 15 "in valuta  "
  FIELD CODVAL
  FLAGS "D"
END

CURRENCY F_AMM_VALUTA 18
BEGIN
  PROMPT 59 15 ""
  DRIVENBY F_VALUTA
  FIELD AMMVALUTA
END

NUMBER F_VALORE_STAT 18
BEGIN
  PROMPT 1 16 "Valore statistico "
  PICTURE "."
  FIELD VALSTAT
END

NUMBER F_MASSA_KG 18 5
BEGIN
  PROMPT 1 17 "Massa netta in Kg "
  PICTURE ".5"
  FIELD MASSAKG
END

NUMBER F_MASSA_UMS 18 5
BEGIN
  PROMPT 41 17 "in unita' supp.   "
  PICTURE ".5"
  FIELD MASSAUMS
END


ENDPAGE

ENDMASK