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 "Configurazione parametri stampa pagato" -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

ENDMASK


//-----------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