campo-sirio/cm/cm1100b.uml

#include "cm1100b.h"

TOOLBAR "" 0 -2 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -12 -1 ""
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Costi / Pagamenti" -1 -1 78 20

TEXT -1
BEGIN
  PROMPT 1 0 "@bCosti"
END

SPREADSHEET F_COSTI 78 10
BEGIN
  PROMPT 1 1 "Costi"
  ITEM "Gruppo"
  ITEM "Conto"
  ITEM "Sottoconto"
  ITEM "Descrizione@50"
END

TEXT -1
BEGIN
  PROMPT 1 11 "@bPagamenti"
END

SPREADSHEET F_PAGAMENTI 78
BEGIN
  PROMPT 1 12 "Pagamenti"
  ITEM "Gruppo"
  ITEM "Conto"
  ITEM "Sottoconto"
  ITEM "Descrizione@50"
END

ENDPAGE


PAGE "Ritenute Fiscali / Sociali" -1 -1 78 20

TEXT -1
BEGIN
  PROMPT 1 0 "@bRitenute fiscali"
END

SPREADSHEET F_RITFIS 78 10
BEGIN
  PROMPT 1 1 "Costi"
  ITEM "Gruppo"
  ITEM "Conto"
  ITEM "Sottoconto"
  ITEM "Descrizione@50"
END

TEXT -1
BEGIN
  PROMPT 1 11 "@bRitenute sociali"
END

SPREADSHEET F_RITSOC 78
BEGIN
  PROMPT 1 12 "Pagamenti"
  ITEM "Gruppo"
  ITEM "Conto"
  ITEM "Sottoconto"
  ITEM "Descrizione@50"
END

ENDPAGE

ENDMASK

//----------------------MOVIMENTI IVA------------------------------//
//-----------Pagina di riga dello sheet costi----------------------//

PAGE "Riga Costo" -1 -1 66 10

NUMBER F_SC_GRUPPO 3
BEGIN
  PROMPT 1 2 "Gruppo "
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO F_SC_GRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SC_GRUPPO GRUPPO    
  CHECKTYPE REQUIRED
END

NUMBER F_SC_CONTO 3
BEGIN
  PROMPT 1 3 "Conto  "
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
  INPUT GRUPPO F_SC_GRUPPO 
  INPUT CONTO  F_SC_CONTO    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR   
  OUTPUT F_SC_CONTO CONTO  
  OUTPUT F_SC_GRUPPO GRUPPO
  CHECKTYPE NORMAL 
END

NUMBER F_SC_SOTTOCONTO 6
BEGIN
  PROMPT 1 4 "Sottoconto  "
  USE LF_PCON
  INPUT GRUPPO F_SC_GRUPPO 
  INPUT CONTO  F_SC_CONTO 
  INPUT SOTTOCONTO F_SC_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SC_SOTTOCONTO SOTTOCONTO
  OUTPUT F_SC_GRUPPO GRUPPO
  OUTPUT F_SC_CONTO CONTO  
  OUTPUT F_SC_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

STRING F_SC_DESCRIZIONE 50
BEGIN
  PROMPT 1 5 "Descrizione "
  USE LF_PCON KEY 2
  INPUT DESCR F_SC_DESCRIZIONE
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT F_SC_SOTTOCONTO SOTTOCONTO
  OUTPUT F_SC_CONTO CONTO
  OUTPUT F_SC_GRUPPO GRUPPO
  OUTPUT F_SC_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
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

//-----------Pagina di riga dello sheet pagamenti----------------------//

PAGE "Riga Pagamento" -1 -1 66 10

NUMBER F_SP_GRUPPO 3
BEGIN
  PROMPT 1 2 "Gruppo "
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO F_SP_GRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SP_GRUPPO GRUPPO    
  CHECKTYPE REQUIRED
END

NUMBER F_SP_CONTO 3
BEGIN
  PROMPT 1 3 "Conto  "
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
  INPUT GRUPPO F_SP_GRUPPO 
  INPUT CONTO  F_SP_CONTO    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR   
  OUTPUT F_SP_CONTO CONTO  
  OUTPUT F_SP_GRUPPO GRUPPO
  CHECKTYPE NORMAL 
END

NUMBER F_SP_SOTTOCONTO 6
BEGIN
  PROMPT 1 4 "Sottoconto  "
  USE LF_PCON
  INPUT GRUPPO F_SP_GRUPPO 
  INPUT CONTO  F_SP_CONTO 
  INPUT SOTTOCONTO F_SP_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SP_SOTTOCONTO SOTTOCONTO
  OUTPUT F_SP_GRUPPO GRUPPO
  OUTPUT F_SP_CONTO CONTO  
  OUTPUT F_SP_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

STRING F_SP_DESCRIZIONE 50
BEGIN
  PROMPT 1 5 "Descrizione "
  USE LF_PCON KEY 2
  INPUT DESCR F_SP_DESCRIZIONE
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT F_SP_SOTTOCONTO SOTTOCONTO
  OUTPUT F_SP_CONTO CONTO
  OUTPUT F_SP_GRUPPO GRUPPO
  OUTPUT F_SP_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
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

//-------------------MOVIMENTI CONTABILI---------------------------//
//-----------Pagina di riga dello sheet costi----------------------//

PAGE "Riga Ritenuta Fiscale" -1 -1 66 10

NUMBER F_FI_GRUPPO 3
BEGIN
  PROMPT 1 2 "Gruppo "
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO F_FI_GRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FI_GRUPPO GRUPPO    
  CHECKTYPE REQUIRED
END

NUMBER F_FI_CONTO 3
BEGIN
  PROMPT 1 3 "Conto  "
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
  INPUT GRUPPO F_FI_GRUPPO 
  INPUT CONTO  F_FI_CONTO    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR   
  OUTPUT F_FI_CONTO CONTO  
  OUTPUT F_FI_GRUPPO GRUPPO
  CHECKTYPE NORMAL 
END

NUMBER F_FI_SOTTOCONTO 6
BEGIN
  PROMPT 1 4 "Sottoconto  "
  USE LF_PCON
  INPUT GRUPPO F_FI_GRUPPO 
  INPUT CONTO  F_FI_CONTO 
  INPUT SOTTOCONTO F_FI_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FI_SOTTOCONTO SOTTOCONTO
  OUTPUT F_FI_GRUPPO GRUPPO
  OUTPUT F_FI_CONTO CONTO  
  OUTPUT F_FI_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

STRING F_FI_DESCRIZIONE 50
BEGIN
  PROMPT 1 5 "Descrizione "
  USE LF_PCON KEY 2
  INPUT DESCR F_FI_DESCRIZIONE
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT F_FI_SOTTOCONTO SOTTOCONTO
  OUTPUT F_FI_CONTO CONTO
  OUTPUT F_FI_GRUPPO GRUPPO
  OUTPUT F_FI_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
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

//-----------Pagina di riga dello sheet pagamenti----------------------//

PAGE "Riga Ritenuta Sociale" -1 -1 66 10

NUMBER F_SO_GRUPPO 3
BEGIN
  PROMPT 1 2 "Gruppo "
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO F_SO_GRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SO_GRUPPO GRUPPO    
  CHECKTYPE REQUIRED
END

NUMBER F_SO_CONTO 3
BEGIN
  PROMPT 1 3 "Conto  "
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
  INPUT GRUPPO F_SO_GRUPPO 
  INPUT CONTO  F_SO_CONTO    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR   
  OUTPUT F_SO_CONTO CONTO  
  OUTPUT F_SO_GRUPPO GRUPPO
  CHECKTYPE NORMAL 
END

NUMBER F_SO_SOTTOCONTO 6
BEGIN
  PROMPT 1 4 "Sottoconto  "
  USE LF_PCON
  INPUT GRUPPO F_SO_GRUPPO 
  INPUT CONTO  F_SO_CONTO 
  INPUT SOTTOCONTO F_SO_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SO_SOTTOCONTO SOTTOCONTO
  OUTPUT F_SO_GRUPPO GRUPPO
  OUTPUT F_SO_CONTO CONTO  
  OUTPUT F_SO_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

STRING F_SO_DESCRIZIONE 50
BEGIN
  PROMPT 1 5 "Descrizione "
  USE LF_PCON KEY 2
  INPUT DESCR F_SO_DESCRIZIONE
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT F_SO_SOTTOCONTO SOTTOCONTO
  OUTPUT F_SO_CONTO CONTO
  OUTPUT F_SO_GRUPPO GRUPPO
  OUTPUT F_SO_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
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