campo-sirio/cg/cg21sld.uml

PAGE "Scadenze"  -1 -1 77 20
     
TEXT DLG_NULL
BEGIN
  PROMPT 1 0 "Imponibili"
END                 

TEXT DLG_NULL
BEGIN
  PROMPT 30 0 "Imposte"
END                 

TEXT DLG_NULL
BEGIN
  PROMPT 59 0 "Spese"
END                 
                    
CURRENCY FS_IMPONIBILI 18
BEGIN         
  PROMPT 1 1  ""
  FLAGS "D"
  CHECKTYPE REQUIRED
END

CURRENCY FS_IMPOSTE 18
BEGIN                       
  PROMPT 30 1 ""
  FLAGS "D"
END

CURRENCY FS_SPESE 18
BEGIN
  PROMPT 59 1 ""
  FLAGS "D"
END

RADIOBUTTON FS_RDIFFER 1 35
BEGIN
  PROMPT 1 2 "Opzioni ricalcolo rate"
  ITEM "1|Differenziate"                 MESSAGE DISABLE,FS_NRATE
  ITEM "2|Uguali (obbligate dalla 2a)"   MESSAGE ENABLE,FS_NRATE
  ITEM "3|Uguali dall'ultima modificata" MESSAGE DISABLE,FS_NRATE
  ITEM "4|Uguali finché possibile"       MESSAGE DISABLE,FS_NRATE
END

STRING FS_NAMEPAG 50 29
BEGIN 
  PROMPT 38 2 "Pagamento "
  FLAGS "D"
END

STRING FS_TIPOPR 50 23
BEGIN 
  PROMPT 38 3 "Tipo prima rata "
  FLAGS "D"
END       

NUMBER FS_NRATE 3
BEGIN
  PROMPT 38 4 "Numero di rate  "
  CHECKTYPE REQUIRED
  FLAGS "U"
END          

BOOLEAN FS_MCOMM
BEGIN
  PROMPT 38 5 "Mese commerciale"       
END          
           
BOOLEAN FS_RECALC
BEGIN
  PROMPT 38 6 "Ricalcolo automatico"       
  MESSAGE FALSE DISABLE,FS_RDIFFER|DISABLE,FS_MCOMM|DISABLE,FS_NRATE 
  MESSAGE TRUE  ENABLE,FS_RDIFFER|ENABLE,FS_MCOMM|PUSH,FS_RDIFFER
END          

STRING FS_VALUTA 3
BEGIN
  PROMPT 67 6 "Valuta "
  FLAGS "DUZ"
  USE %VAL
  INPUT CODTAB FS_VALUTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  OUTPUT FS_VALUTA CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice valuta assente"
  MESSAGE EMPTY RESET,FS_CAMBIO
  GROUP 3
END

DATE FS_DATACAMBIO
BEGIN
  PROMPT 38 7 "Cambio   "
  FLAGS "DR"
  USE CAM 
  INPUT CODTAB[1,3] FS_VALUTA SELECT
  INPUT CODTAB[4,11] FS_DATACAMBIO
  DISPLAY "Valuta" CODTAB[1,3]
  DISPLAY "Data@10" D0
  DISPLAY "Cambio@18" S4
  OUTPUT FS_DATACAMBIO D0
  OUTPUT FS_CAMBIO S4
  CHECKTYPE NORMAL
  GROUP 3
END

NUMBER FS_CAMBIO 15 6
BEGIN
  PROMPT 62 7 ""
  FLAGS "DU"
  PICTURE ".6"
  VALIDATE REQIF_FUNC 1 FS_VALUTA
  WARNING "E' stata specificata una valuta ma non il cambio relativo"
  GROUP 3
END

NUMBER FS_NSABI 5
BEGIN
  PROMPT 2 8 "Ns. Banca ABI "
  FLAGS "Z"      
  USE %BAN SELECT CODTAB?="?????"
  INPUT CODTAB[1,5] FS_NSABI
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT FS_NSABI CODTAB[1,5]
  CHECKTYPE NORMAL
END

NUMBER FS_NSCAB 5
BEGIN
  PROMPT 25 8 "CAB "
  FLAGS "Z"
  USE %BAN
  INPUT CODTAB[1,5] FS_NSABI
  INPUT CODTAB[6,10] FS_NSCAB
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT FS_NSABI CODTAB[1,5]
  OUTPUT FS_NSCAB CODTAB[6,10]
  OUTPUT FS_DESCNSABI S0
  CHECKTYPE NORMAL
END

STRING FS_DESCNSABI 50 37
BEGIN
  PROMPT 38 8 ""
  USE %BAN KEY 2
  INPUT S0 FS_DESCNSABI
  DISPLAY "Denominazione@50" S0
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  COPY OUTPUT FS_NSABI
  CHECKTYPE NORMAL
END

NUMBER FS_VSABI 5
BEGIN
  PROMPT 2 9 "Vs. Banca ABI "
  FLAGS "Z"
  COPY USE FS_NSABI
  INPUT CODTAB[1,5] FS_VSABI
  COPY DISPLAY FS_NSABI
  OUTPUT FS_VSABI CODTAB[1,5]
  CHECKTYPE NORMAL
END

NUMBER FS_VSCAB 5
BEGIN
  PROMPT 25 9 "CAB "
  FLAGS "Z"            
  COPY USE FS_NSCAB
  INPUT CODTAB[1,5] FS_VSABI
  INPUT CODTAB[6,10] FS_VSCAB
  COPY DISPLAY FS_NSCAB
  OUTPUT FS_VSABI CODTAB[1,5]
  OUTPUT FS_VSCAB CODTAB[6,10]
  OUTPUT FS_DESCVSABI S0
  CHECKTYPE NORMAL
END

STRING FS_DESCVSABI 50 37
BEGIN
  PROMPT 38 9 ""
  COPY USE FS_DESCNSABI
  INPUT S0 FS_DESCVSABI
  COPY DISPLAY FS_DESCNSABI
  COPY OUTPUT FS_VSCAB
  CHECKTYPE NORMAL
END

STRING FS_AGENTE 5
BEGIN
  PROMPT 2 10 "Agente        "
  FLAGS "UZ"
  USE LF_AGENTI
  INPUT CODAGE FS_AGENTE
  DISPLAY "Codice" CODAGE
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT FS_AGENTE CODAGE
  OUTPUT FS_DESCAGENTE RAGSOC
  ADD RUN PR0 -4
  CHECKTYPE NORMAL
END

STRING FS_DESCAGENTE 50
BEGIN
  PROMPT 25 10 ""
  USE LF_AGENTI KEY 2
  INPUT RAGSOC FS_DESCAGENTE
  DISPLAY "Descrizione@60" RAGSOC
  DISPLAY "Codice" CODAGE
  COPY OUTPUT FS_AGENTE
  ADD RUN PR0 -4
  CHECKTYPE NORMAL
END

SPREADSHEET FS_RATESHEET 0 -2
BEGIN  
  PROMPT 1 11 "Rate"                        
  ITEM "Scadenza@10"
  ITEM "Importo@18"
  ITEM "In Valuta@18"
  ITEM "%@6"
  ITEM "Tipo"              
  ITEM "Classif."              
  ITEM "Pagamento@32"              
  ITEM "Ns.ABI"
  ITEM "Ns.CAB"
  ITEM "Vs.ABI"
  ITEM "Vs.CAB"
  ITEM "Note@50"
  ITEM "Bloccata"
  ITEM "Codice"
  ITEM "Motivazione@50"
  ITEM "Non cancellabile"
END

BUTTON FS_RESET 8 1
BEGIN
  PROMPT 1 -1 "Rese~t"
END

ENDPAGE