campo-sirio/in/in0500a.uml

#include "in0500a.h"

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

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

NUMBER F_NUM_REG 7
BEGIN
  PROMPT 1 3 "Numero registrazione  "
  USE LF_INTRA
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
  INPUT NUMREG F_NUM_REG
  DISPLAY "Numero" NUMREG
  DISPLAY "Data@10" DATAREG
  DISPLAY "C/A" TIPOMOV
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_NUM_REG NUMREG
  CHECKTYPE REQUIRED
  FLAGS "G"
  KEY 1
  FIELD NUMREG
END

DATA F_DATA_DOC
BEGIN
  PROMPT 34 3 "Documento numero "
  FLAGS "D"
END

DATA F_NUM_DOC
BEGIN  
  PROMPT 63 3 "Data "
  FLAGS "D"
END

DATA F_DATA_REG 
BEGIN
  PROMPT 1 4 "Data di registrazione "
  FLAGS "A"
  CHECKTYPE REQUIRED
  FIELD DATAREG
END

DATA F_DATA_INT
BEGIN
  PROMPT 49 4 "Data di competenza "
  FLAGS "D"
END

LIST F_TIPO_MOV 1 12
BEGIN
  PROMPT 1 5 "Tipo movimento "
  ITEM "C|Cessione" 
    MESSAGE "C",F_TIPO_CF
  ITEM "A|Acquisto" 
    MESSAGE "F",F_TIPO_CF
  FIELD TIPOMOV
END

LISTA F_TIPO_CF 1 10
BEGIN
  PROMPT 1 6 ""
  FLAGS "D"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FIELD TIPOCF
END

NUMBER F_CLIFO 5 
BEGIN
  PROMPT 16 6 ""
  USE LF_CLIFO
  INPUT TIPOCF F_TIPO_CF SELECT
  INPUT CODCF F_CLIFO
  DISPLAY "Codice" CODCF
  DISPLAY "Stato" STATOPAIV
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CLIFO CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_STATO STATOPAIV
  OUTPUT F_PARTITA_IVA PAIV
  CHECKTYPE REQUIRED
  ADD RUN CG0 -1
  FIELD CODCF
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 26 6 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPO_CF SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Stato" STATOPAIV
  DISPLAY "Partita IVA@12" PAIV
  COPY OUTPUT F_CLIFO
  CHECKTYPE REQUIRED
END

STRING F_STATO 2 
BEGIN
  PROMPT 1 7 "Stato CEE      "
  FLAGS "D"
END

STRING F_PARTITA_IVA 12
BEGIN
  PROMPT 49 7 "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
  COPY OUTPUT F_CLIFO
  CHECKTYPE REQUIRED
END

CURRENCY F_TOT_DOC 18
BEGIN
  PROMPT 1 8 "Totale documento da controllare "
  FIELD TOTDOC
END

CURRENCY F_TOT_IMM 18
BEGIN
  PROMPT 1 9 "Totale documento immesso        "
  FIELD TOTDOCIMM     
  FLAGS "D"
END

STRING F_VALUTA 3
BEGIN
  PROMPT 66 8 "Valuta "
  FLAGS "U"
  USE %VAL
  INPUT CODTAB F_VALUTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_VALUTA  CODTAB
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_CAMBIO
  MESSAGE ENABLE,F_CAMBIO
  FIELD CODVAL
END

NUMBER F_CAMBIO 18 6
BEGIN
  PROMPT 53 9 "Cambio "
  CHECKTYPE REQUIRED
  FIELD CAMBIO
END

SPREADSHEET F_RIGHE 78 -3
BEGIN
  PROMPT 0 10 ""
  ITEM "Ammontare\nOperaz.@18"
  ITEM "Ammontare\nValuta@18"
  ITEM "Natura\nTransaz.@7"
  ITEM "Nomenclat.\ncombinata@10"
  ITEM "@5"
  ITEM "@5"
  ITEM "Massa Kg@13"
  ITEM "Massa Ums@13"
  ITEM "U.M."
  ITEM "Valore\nStatistico@15" 
  ITEM "Condiz.\nCons.@6"
  ITEM "Modo\nTrasp.@5"
  ITEM "Paese\nDest.@6" 
  ITEM "Paese\nOrig.@6" 
  ITEM "Provincia\nOrig." 
  FLAGS "A"
  USE LF_RINTRA KEY NUMRIG
  INPUT NUMREG F_NUM_REG
END

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

ENDPAGE

ENDMASK

PAGE "Righe" -1 -1 78 11

CURRENCY F_AMM_LIRE 18
BEGIN
  PROMPT 1 1 "Ammontare operaz.  "
  FIELD AMMLIRE
  CHECKTYPE REQUIRED
END

CURRENCY F_AMM_VALUTA 18
BEGIN
  PROMPT 40 1 "in valuta "
  DRIVENBY -F_VALUTA
  FIELD AMMVALUTA
  CHECKTYPE REQUIRED
END

STRING F_NATURA_TRANS 1  
BEGIN
  PROMPT 1 3 "Natura transazione "
  FLAGS "U"
  USE %INT
  INPUT CODTAB F_NATURA_TRANS            
  DISPLAY "Codice" CODTAB  
  DISPLAY "Descrizione@70" S0
  OUTPUT F_NATURA_TRANS CODTAB
  CHECKTYPE NORMAL
  FIELD NATURA
END

NUMBER F_NOMENCLATURA1 4
BEGIN
  PROMPT 36 3 "Nomenclatura 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]
  MESSAGE DIRTY,F_NOMENCLATURA3
  VALIDATE REQIF_FUNC 1 F_NOMENCLATURA2
  FIELD NOMENCL[1,4]
  WARNING "Nomenclatura combinata assente"
END

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

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

NUMBER F_MASSA_KG 13 5
BEGIN
  PROMPT 1 4 "Massa Kg."
  PICTURE ".5"
  FIELD MASSAKG
END

NUMBER F_MASSA_UMS 13 5
BEGIN
  PROMPT 36 4 "Massa  "
  PICTURE ".5"
  FIELD MASSAUMS
END

STRING F_UMS 2
BEGIN
  PROMPT 60 4 "U.M. "
  FLAGS "DU"
  USE %UMS
  INPUT CODTAB F_UMS
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_UMS CODTAB
  CHECKTYPE NORMAL
  FIELD UMS
END

CURRENCY F_VALORE_STAT 15
BEGIN
  PROMPT 1 5 "Valore statistico "
  FIELD VALSTAT
END

STRING F_CONSEGNA 3
BEGIN
  PROMPT 43 5 "Condizioni consegna  "
  USE %ICC
  FLAGS "U"
  INPUT CODTAB F_CONSEGNA            
  DISPLAY "Codice" CODTAB  
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CONSEGNA CODTAB
  CHECKTYPE NORMAL
  FIELD CONSEGNA
END

NUMBER F_TRASPORTO 1
BEGIN
  PROMPT 1 6 "Modo di trasporto "
  USE %IMT
  INPUT CODTAB F_TRASPORTO
  DISPLAY "Codice" CODTAB  
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TRASPORTO CODTAB
  CHECKTYPE NORMAL
  FIELD TRASPORTO
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "Paese provenienza"
  GROUP GR_ACQUISTI
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "Paese provenienza  "
  GROUP GR_ACQUISTI
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "Paese destinazione "
  GROUP GR_CESSIONI
END

STRING F_PAESE 2
BEGIN
  PROMPT 20 7 ""
  FLAGS "U"
  USE %SCE
  INPUT CODTAB F_PAESE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_PAESE CODTAB
  CHECKTYPE NORMAL
  FIELD PAESE 
  WARNING "Inserire il codice di un paese CEE valido"
END

STRING F_PAESE_ORIG 2
BEGIN
  PROMPT 1 8 "Paese di origine   "
  FLAGS "U"
  USE %SCE
  INPUT CODTAB F_PAESE_ORIG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_PAESE_ORIG CODTAB
  CHECKTYPE NORMAL
  FIELD PAESEORIG
  GROUP GR_ACQUISTI
  WARNING "Inserire il codice di un paese CEE valido"
ENEND
               
STRING F_PAESE_DUMMY 2
BEGIN
  PROMPT 81 8 "Paese anti NFCHECK "
  FLAGS "D"
  GROUP GR_CESSIONI
END

TEXT DLG_NULL
BEGIN
  PROMPT 43 7 "Provincia d'origine"           
  GROUP GR_CESSIONI
END

TEXT DLG_NULL
BEGIN
  PROMPT 43 7 "Prov. destinazione"
  GROUP GR_ACQUISTI
END

STRING F_PROV 2
BEGIN
  PROMPT 64 7 ""
  FLAGS "U"
  CHECKTYPE NORMAL
  WARNING "Provincia assente"
  FIELD PROV
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK