campo-sirio/cg/cg5500d.uml

#include "cg5500a.h"

TOOLBAR "topbar" 0 0 0 2

#include "cg5500t.h"

ENDPAGE

PAGE "Visualizzazione liquidazione"  0 0 0 2
     
GROUPBOX F_YEAR 78 3
BEGIN
  PROMPT 0 0 "@bDitta corrente"
END                 


NUMBER F_CODDITTA 5
BEGIN         
  PROMPT 2 1  "Codice "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN                       
  PROMPT 16 1 "Rag. soc. "
  FLAGS "D"
END                                                           

LISTBOX F_PERIODOM 30
BEGIN
  PROMPT 2 3 "Periodo liquidazione    "
  FLAGS "D"
  ITEM "1|Gennaio"
  ITEM "2|Febbraio"
  ITEM "3|Marzo"
  ITEM "4|Aprile"
  ITEM "5|Maggio"
  ITEM "6|Giugno"
  ITEM "7|Luglio"
  ITEM "8|Agosto"
  ITEM "9|Settembre"
  ITEM "10|Ottobre"
  ITEM "11|Novembre"
  ITEM "12|Dicembre"
  ITEM "13|Annuale" 
END

LISTBOX F_PERIODOT 30
BEGIN
  PROMPT 2 3 "Periodo liquidazione    "
  FLAGS "D"
  ITEM "3|1° Trimestre"
  ITEM "6|2° Trimestre"
  ITEM "9|3° Trimestre"
  ITEM "12|4° Trimestre"
  ITEM "13|Annuale"
END

BROWSEFILE F_VISFLQ 78 10
BEGIN
  PROMPT 1 4 ""
END

/* gruppo 1: edit rimborso */

CURRENCY F_RIMBORSO 15
BEGIN 
  PROMPT 2 17 "Rimborsi : "
  GROUP 1
  FLAGS "H"
END                         
                         
/* gruppo 2: edit rettifiche */

CURRENCY F_RETTIFICA 15
BEGIN 
  PROMPT 2 17 "Importo rettif.  "
  GROUP 2
  FLAGS "H" 
END                         
            
LIST F_DEBCRE 7
BEGIN
  PROMPT 35 17 " a "  
  GROUP 2
  ITEM "D|Debito"
  ITEM "C|Credito"
  FLAGS "H"
END          
            
STRING F_DESCR1 60
BEGIN
  PROMPT 2 18 "Descrizione      " 
  GROUP 2
    FLAGS "H"
END

STRING F_DESCR2 60
BEGIN
  PROMPT 2 19 "                 " 
  GROUP 2
  FLAGS "H"
END

/* gruppo 3: edit acconto */


CURRENCY F_ACCONTO 15
BEGIN 
  PROMPT 3 17 "Acconto versato:      "
  GROUP 3
  FLAGS "RH"
END                         

/* gruppo 4: edit delega */

DATE F_DELDATE
BEGIN
  PROMPT 3 17 "Data       "
  GROUP 4
  FLAGS "H"
END

CURRENCY F_DELIMP 15
BEGIN 
  PROMPT 26 17 "Importo versato "
  GROUP 4
  FLAGS "RH"
END

NUMBER F_DELABI 5
BEGIN
  PROMPT 3 18 "Codice ABI "
  HELP "Codice ABI banca di appoggio"
  FIELD S7
  FLAGS "RZH" 
  GROUP 4
  USE %BAN KEY 1 SELECT CODTAB ?= "?????"
  INPUT CODTAB[1,5] F_DELABI
//  INPUT CODTAB[6,10] F_DELCAB
  DISPLAY "Codice ABI" CODTAB[1,5]
//  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Descrizione @50" S0
  OUTPUT F_DELABI CODTAB[1,5]
//  OUTPUT F_DELCAB CODTAB[6,10]
  CHECKTYPE NORMAL
  MESSAGE EMPTY RESET,F_DELCAB
END


NUMBER F_DELCAB 5
BEGIN
  PROMPT 26 18 "Codice CAB      "
  HELP "Codice CAB banca di appoggio"
  FIELD S8
  FLAGS "RZH"
  GROUP 4
  USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
  INPUT CODTAB[1,5] F_DELABI
  INPUT CODTAB[6,10] F_DELCAB
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_DELABI CODTAB[1,5]
  OUTPUT F_DELCAB CODTAB[6,10]
  VALIDATE REQIF_FUNC 1 F_DELABI
  //COPY ALL F_DELABI
  CHECKTYPE NORMAL
  WARNING "Banca assente"
END


NUMBER F_DELCON 3
BEGIN
  PROMPT 51 18 "Concessione "  
  HELP "Codice Concessione del Comune di residenza fiscale"
  FLAGS "RZH" 
  USE %UCC
  INPUT CODTAB F_DELCON
  DISPLAY "Concessione " CODTAB[1,5]
  DISPLAY "Descrizione @50" S0
  OUTPUT F_DELCON CODTAB
  CHECKTYPE NORMAL
  WARNING "Concessione assente"
  GROUP 4
END

/* gruppo 5: edit descrizione */

STRING F_DESCR3 60
BEGIN
  PROMPT 2 18 "Descrizione      " 
  GROUP 5
  FLAGS "H"
END

/* gruppo 6: edit Variazioni d'imposta */

CURRENCY F_VARIMP 15
BEGIN
  PROMPT 2 17 "Variazioni d'imposta "
  PICTURE "."
  GROUP 6
  FLAGS "H"
END

LIST F_VARIMP_DC 7
BEGIN
  PROMPT 40 17 "a "  
  GROUP 6
  ITEM "D|Debito"
  ITEM "C|Credito"
  FLAGS "H"
END          

/* gruppo 7: edit Imposta non versata*/

CURRENCY F_IMPNONVER 15
BEGIN
  PROMPT 2 17 "Imposta non versata "
  PICTURE "."
  GROUP 7
  FLAGS "H"
END

/* gruppo 8: edit crediti speciali */

CURRENCY F_CREDSPEC 15
BEGIN
  PROMPT 2 17 "Crediti speciali : "
  GROUP 8
  FLAGS "H"
  PICTURE "."
END                         
                         

ENDPAGE

ENDMASK