campo-sirio/in/in0600a.uml

#include "in0600a.h"

TOOLBAR "relapbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Riepiloghi INTRA" 0 2 0 0

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_PERIODO_M 2 16
BEGIN
  PROMPT 1 3 "Periodo   "
  ITEM "01|Gennaio"
    MESSAGE COPY,F_PERIODO_H
  ITEM "02|Febbraio"
    MESSAGE COPY,F_PERIODO_H
  ITEM "03|Marzo"
    MESSAGE COPY,F_PERIODO_H
  ITEM "04|Aprile"
    MESSAGE COPY,F_PERIODO_H
  ITEM "05|Maggio"
    MESSAGE COPY,F_PERIODO_H
  ITEM "06|Giugno"
    MESSAGE COPY,F_PERIODO_H
  ITEM "07|Luglio"
    MESSAGE COPY,F_PERIODO_H
  ITEM "08|Agosto"
    MESSAGE COPY,F_PERIODO_H
  ITEM "09|Settembre"
    MESSAGE COPY,F_PERIODO_H
  ITEM "10|Ottobre"
    MESSAGE COPY,F_PERIODO_H
  ITEM "11|Novembre"
    MESSAGE COPY,F_PERIODO_H
  ITEM "12|Dicembre"
    MESSAGE COPY,F_PERIODO_H
  FLAGS "A"
  FIELD PERIODO
  KEY 1
END

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

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

NUMBER F_PERIODO_H 2
BEGIN      
  PROMPT 80 80 ""
  FLAGS "HZ"
  FIELD PERIODO
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 33 3 "Anno  "
  FLAGS "AU"
  KEY 1
  FIELD ANNO
  NUM_EXPR #F_ANNO>=1980
  CHECKTYPE REQUIRED  
  WARNING "Anno non valido"
END

LIST F_TIPO 1 10
BEGIN
  PROMPT 49 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

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_H SELECT 
  INPUT NUMRIG F_NUM_RIG
  DISPLAY "Numero" NUMRIG
  DISPLAY "Partita IVA" PIVA
  DISPLAY "Natura" NATURA
  DISPLAY "Nomenclatura" NOMENCL
  DISPLAY "Consegna" CONSEGNA
  DISPLAY "Trasporto" TRASPORTO
  DISPLAY "Paese" PAESE
  OUTPUT F_PERIODO_M PERIODO
  OUTPUT F_NUM_RIG NUMRIG
  CHECKTYPE REQUIRED
  FIELD NUMRIG
  KEY 1
END

STRING F_STATO 2
BEGIN
  PROMPT 1 5 "Stato CEE " 
  FLAGS "U"
  USE %SCE
  INPUT CODTAB F_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO CODTAB
  CHECKTYPE NORMAL
  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
  ADD RUN CG0 -1 #F_TIPO_CF
END

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


STRING F_NATURA_TRANS 1  
BEGIN
  PROMPT 1 8 "Natura transazione  "
  FLAGS "U"
  USE %INT
  INPUT CODTAB F_NATURA_TRANS            
  DISPLAY "Codice" CODTAB  
  DISPLAY "Descrizione@70" S0
  OUTPUT F_NATURA_TRANS CODTAB
  OUTPUT F_NATURA_DESCR S0
  CHECKTYPE REQUIRED
  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_NOMENCLATURA1 4
BEGIN
  PROMPT 1 10 "combinata    "
  FLAGS "Z"
  USE %NOC
  INPUT CODTAB[1,4] F_NOMENCLATURA1
  INPUT CODTAB[5,6] F_NOMENCLATURA2
  INPUT CODTAB[7,8] F_NOMENCLATURA3
  DISPLAY "Codice" CODTAB[1,4]
  DISPLAY "@3" CODTAB[5,6]
  DISPLAY "@3" CODTAB[7,8]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NOMENCLATURA1 CODTAB[1,4]
  OUTPUT F_NOMENCLATURA2 CODTAB[5,6]
  OUTPUT F_NOMENCLATURA3 CODTAB[7,8]
  OUTPUT F_NOMENCL_DESC S0
  VALIDATE REQIF_FUNC 1 F_NOMENCLATURA2
  MESSAGE DIRTY,F_NOMENCLATURA3
  FIELD NOMENCL[1,4] 
  WARNING "Nomenclatura combinata assente"
END

STRING F_NOMENCLATURA2 2 
BEGIN
  PROMPT 22 10 ""
  COPY ALL F_NOMENCLATURA1
  FIELD NOMENCL[5,6]
  VALIDATE REQIF_FUNC 1 F_NOMENCLATURA3
  MESSAGE DIRTY,F_NOMENCLATURA3
  WARNING "Nomenclatura combinata assente"
END

NUMBER F_NOMENCLATURA3 2 
BEGIN
  PROMPT 28 10 ""
  FLAGS "Z"
  COPY ALL F_NOMENCLATURA1
  CHECKTYPE NORMAL
  FIELD NOMENCL[7,8]
  WARNING "Nomenclatura combinata assente"
END

STRING F_NOMENCL_DESC 40
BEGIN
  PROMPT 36 10 ""
  FLAGS "D"
END

STRING F_CONSEGNA 3
BEGIN
  PROMPT 1 11 "Condiz. consegna  "
  USE %ICC
  FLAGS "U"
  INPUT CODTAB F_CONSEGNA            
  DISPLAY "Codice" CODTAB  
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CONSEGNA CODTAB
  OUTPUT F_CONSEGNA_DESC S0
  CHECKTYPE REQUIRED
  FIELD CONSEGNA 
  WARNING "Condizione di consegna assente"
END

STRING F_CONSEGNA_DESC 50
BEGIN
  PROMPT 26 11 ""
  FLAGS "D"
END

NUMBER F_TRASPORTO 1
BEGIN
  PROMPT 1 12 "Modo di trasporto "
  USE %IMT
  INPUT CODTAB F_TRASPORTO
  DISPLAY "Codice" CODTAB  
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TRASPORTO CODTAB
  OUTPUT F_TRASPORTO_DESC S0
  CHECKTYPE REQUIRED
  FIELD TRASPORTO
  WARNING "Modo di trasporto assente"
END

STRING F_TRASPORTO_DESC 50
BEGIN
  PROMPT 26 12 ""
  FLAGS "D"
END


TEXT DLG_NULL
BEGIN
  PROMPT 1 13 "Paese di destinazione"
  GROUP GR_CESSIONI
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 13 "Paese di provenienza"
  GROUP GR_ACQUISTI
END

STRING F_PAESE 2
BEGIN
  PROMPT 26 13 ""
  FLAGS "U"
  USE %SCE
  INPUT CODTAB F_PAESE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_PAESE CODTAB
  CHECKTYPE REQUIRED
  FIELD PAESE
  WARNING "Paese assente"
END

STRING F_PAESE_ORIG 2
BEGIN
  PROMPT 1 14 "Paese di origine     "
  GROUP GR_ACQUISTI
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD PAESEORIG
  WARNING "Paese di origine assente"
END

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

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

STRING F_PROV 2
BEGIN
  PROMPT 66 13 ""
  FLAGS "U"
  FIELD PROV
  CHECTYPE REQUIRED
  WARNING "Provincia assente"
END

CURRENCY F_AMM_LIRE 18
BEGIN
  PROMPT 1 15 "Ammontare         "
  FIELD AMMLIRE
  CHECKTYPE REQUIRED
  WARNING "E' necessario inserire l'ammontare"
END

STRING F_VALUTA 3
BEGIN
  PROMPT 41 15 "in valuta  "
  USE %VAL
  INPUT CODTAB F_VALUTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  CHECKTYPE NORMAL
  OUTPUT F_VALUTA CODTAB
  FIELD CODVAL
  FLAGS "GUZ"
END

CURRENCY F_AMM_VALUTA 18
BEGIN
  PROMPT 59 15 ""
  DRIVENBY F_VALUTA
  FIELD AMMVALUTA
  WARNING "Inserire l'ammontare in valuta"
END

CURRENCY F_VALORE_STAT 18
BEGIN
  PROMPT 1 16 "Valore statistico "
  FIELD VALSTAT
END

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

STRING F_UMS 2
BEGIN
  PROMPT 41 17 "Unita' supp. "
  FLAGS "DU"
END

NUMBER F_MASSA_UMS 18 5
BEGIN
  PROMPT 59 17 ""
  PICTURE ".5"
  FIELD MASSAUMS
  WARNING "Inserire la massa in unit<69> supplementare"
END

BUTTON F_RIEPILOGHI 20 2
BEGIN
  PROMPT -11 -1 "~Generazione Riepiloghi"
END

ENDPAGE

ENDMASK