campo-sirio/src/cg/cg4b00a.uml

#include "cg4b00a.h"

TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_PRINT 2 2
BEGIN
  PROMPT 1 1 "Stampa"
  PICTURE BMP_PRINT
END

BUTTON DLG_SETPRINT 2 2
BEGIN
  PROMPT 1 1 "Imposta"
  PICTURE BMP_SETPRINT
END

BUTTON DLG_EDIT 2 2
BEGIN
  PROMPT 1 1 "~Edit"
  PICTURE BMP_EDIT
END

#include <helpbar.h>

ENDPAGE

PAGE "Stampa" -1 -1 62 5

GROUPBOX DLG_NULL 74 3
BEGIN
  PROMPT 1 0 ""
END

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

STRING F_RAGSOC 50
BEGIN
  PROMPT 15 1 "Ragione "
  FLAGS "D"
END

DATE F_DADATA
BEGIN
  PROMPT 2 3 "Da:   data   "
END

DATE F_ADATA
BEGIN
  PROMPT 2 5 " A:  data    "
	WARINIG "La data di inizio non pu<70> essere successico alla data di fine"
	VALIDATE DATE_CMP_FUNC >= F_>ADATA
END

NUMBER F_DAGRUPPO 3
BEGIN
  PROMPT 2 7 "Da:   Gruppo "
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO F_DAGRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DAGRUPPO GRUPPO    
  CHECKTYPE NORMAL
END

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

NUMBER F_DASOTTOC 6
BEGIN
  PROMPT 36 7 "Sottoconto "
  USE LF_PCON
  INPUT GRUPPO F_DAGRUPPO 
  INPUT CONTO  F_DACONTO 
  INPUT SOTTOCONTO F_DASOTTOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DASOTTOC SOTTOCONTO
  OUTPUT F_DAGRUPPO GRUPPO
  OUTPUT F_DACONTO CONTO  
  OUTPUT F_DADESCR DESCR
  CHECKTYPE NORMAL
END

STRING F_DADESCR 50
BEGIN
  PROMPT 14 9 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_DADESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT F_DASOTTOC SOTTOCONTO
  OUTPUT F_DACONTO CONTO
  OUTPUT F_DAGRUPPO GRUPPO
  OUTPUT F_DADESCR DESCR
  CHECKTYPE NORMAL
END

NUMBER F_AGRUPPO 3
BEGIN
  PROMPT 2 11 " A:   Gruppo "
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO F_AGRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_AGRUPPO GRUPPO    
  CHECKTYPE NORMAL
END

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

NUMBER F_ASOTTOC 6
BEGIN
  PROMPT 36 11 "Sottoconto "
  USE LF_PCON
  INPUT GRUPPO F_AGRUPPO 
  INPUT CONTO  F_ACONTO 
  INPUT SOTTOCONTO F_ASOTTOC
	DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ASOTTOC SOTTOCONTO
  OUTPUT F_AGRUPPO GRUPPO
  OUTPUT F_ACONTO CONTO  
  OUTPUT F_ADESCR DESCR
  CHECKTYPE NORMAL
END

STRING F_ADESCR 50
BEGIN
  PROMPT 14 13 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_ADESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT F_ASOTTOC SOTTOCONTO
  OUTPUT F_ACONTO CONTO
  OUTPUT F_AGRUPPO GRUPPO
  OUTPUT F_ADESCR DESCR
  CHECKTYPE NORMAL
END

BOOLEAN F_COMPUG
BEGIN
	PROMPT 2 15 "Movimenti con competenza uguale alla registrazione"
END

BOOLEAN F_COMPDIV
BEGIN
	PROMPT 2 17 "Movimenti con competenza diversa dalla registrazione"
END

BOOLEAN F_REGRIT
BEGIN
	PROMPT 2 19 "Movimenti registrati in ritardo"
END

STRING F_REPORT 256 50
BEGIN
  PROMPT 2 -3 "Tipo di stampa  "
  RSELECT "cg4b00a"
  CHECKTYPE NORMAL
END

STRING DLG_PROFILE 256 50
BEGIN
  PROMPT 2 -1 "Profilo         "
  PSELECT
END

ENDPAGE

ENDMASK