campo-sirio/src/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 SELECT (#F_CLIFO="")||(#F_CLIFO==CODCF)
  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 "Totale documento@R" TOTDOC
  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 "Tipo@7"
  ITEM "Ammontare\nOperaz.@18"
  ITEM "Ammontare\nValuta@18"
  ITEM "Natura\nTransaz.@7"
  ITEM "Nomenclatura\ncombinata@10"
  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."
  ITEM "Codice\nServizio"
  ITEM "Modalit<69>\nErog."
  ITEM "Modalit<69>\nInc./Pag."
  ITEM "Stato\nInc./Pag."
  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 15

LIST F_TIPO_INTRA 1 7
BEGIN
  PROMPT 1 1 "Tipo               "
  FIELD TIPOINTRA
  ITEM "B|Beni"     MESSAGE ENABLE,GR_BENI@|DISABLE,GR_SERVIZI@
  ITEM "S|Servizi"  MESSAGE DISABLE,GR_BENI@|ENABLE,GR_SERVIZI@
END

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

CURRENCY F_AMM_VALUTA 18
BEGIN
  PROMPT 40 2 "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
  GROUP GR_BENI
END

NUMBER F_NOMENCLATURA 8
BEGIN
  PROMPT 36 3 "Nomenclatura combinata "
  USE %NOC
  INPUT CODTAB F_NOMENCLATURA
  DISPLAY "Codice" CODTAB[1,4]
  DISPLAY "@2" CODTAB[5,6]
  DISPLAY "@2" CODTAB[7,8]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NOMENCLATURA CODTAB
  FIELD NOMENCL
  VALIDATE FIXLEN_FUNC 8
  CHECKTYPE REQUIRED
  GROUP GR_BENI
  FLAGS "Z"
END

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

NUMBER F_MASSA_UMS 13 5
BEGIN
  PROMPT 36 4 "Massa  "
  FIELD MASSAUMS
  GROUP GR_BENI
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
  GROUP GR_BENI
END

CURRENCY F_VALORE_STAT 15
BEGIN
  PROMPT 1 5 "Valore statistico  "
  FIELD VALSTAT
  GROUP GR_BENI
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
  GROUP GR_BENI
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
  GROUP GR_BENI
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "Paese destinazione "
  GROUP GR_CESSIONI 
  FLAGS "G"
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 
  GROUP GR_BENI
  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 GR_BENI
  FLAGS "G"
  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 GR_BENI
  FLAGS "G"
END

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

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

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

STRING F_CODSERV 5
BEGIN
  PROMPT 1 9 "Codice servizio    "
  USE %CPA
  INPUT CODTAB F_CODSERV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODSERV CODTAB
  FIELD CODSERV
  GROUP GR_SERVIZI
END

LIST F_MODEROG 1 15
BEGIN
  PROMPT 1 10 "Modalit<69> Erogazione"
  ITEM "I|Unica soluzione"
  ITEM "R|Pi<50> soluzioni"
  FIELD MODEROG
  GROUP GR_SERVIZI
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 11 "Modalit<69> di incasso  "           
  GROUP GR_CESSIONI GR_SERVIZI
  FLAGS "G"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 11 "Modalit<69> di pagamento"
  GROUP GR_ACQUISTI GR_BENI
  FLAGS "G"
END

LIST F_MODINCPAG 1 9
BEGIN
  PROMPT 20 11 ""
  ITEM "B|Bonifico"
  ITEM "A|Accredito"
  ITEM "X|Altro"
  FIELD MODINCPAG
  GROUP GR_SERVIZI
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 12 "Stato di incasso     "           
  GROUP GR_CESSIONI GR_SERVIZI
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 12 "Stato di pagamento   "
  GROUP GR_ACQUISTI GR_BENI
END

STRING F_STATOINCPAG 2
BEGIN
  PROMPT 20 12 ""
  USE %SCE
  INPUT CODTAB F_STATOINCPAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATOINCPAG CODTAB
  FIELD ISOINCPAG
  GROUP GR_SERVIZI
END

ENDPAGE

TOOLABAR "" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK