campo-sirio/cg/cg1300b.uml

#include "cg1300.h"

PAGE "Rinumerazione numero protocollo" -1 -1 62 12

GROUPBOX DLG_NULL 60 3
BEGIN
  PROMPT 1 0 "@bDitta"
END

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

STRING F_RAGSOC 50
BEGIN
  PROMPT 9 1 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 60 3
BEGIN
  PROMPT 1 3 "@bRegistro IVA"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 4 "Anno "
  FLAGS "A"
  CHECKTYPE REQUIRED 
END

STRING F_REG 3
BEGIN
  PROMPT 31 4 "Codice "
  USE REG SELECT (I0<"3") && (CODTAB[1,4]==#F_ANNO)
  INPUT CODTAB[1,4] F_ANNO SELECT
  INPUT CODTAB[5,7] F_REG
  DISPLAY "Anno " CODTAB[1,4]
  DISPLAY "Codice " CODTAB[5,7]
  DISPLAY "Descrizione @40" S0
  OUTPUT F_ANNO CODTAB[1,4] 
  OUTPUT F_REG CODTAB[5,7]
  OUTPUT F_DA D3
  FLAGS "U"
  VALIDATE ZEROFILL_FUNC 3
  CHECKTYPE REQUIRED  
END

RADIOBUTTON F_MODE 1 24
BEGIN
  PROMPT 1 6 "@bRiparti da "
  ITEM "U|Ultima stampa"
  MESSAGE CLEAR,F_PROT
  ITEM "N|Numero specificato"
  MESSAGE ENABLE,F_PROT
  ITEM "A|Inizio anno"
  MESSAGE CLEAR,F_PROT
END

DATE F_DA
BEGIN
  PROMPT 31 7 "Data   "
  FLAGS "D"
END

NUMBER F_PROT 5
BEGIN
  PROMPT 31 8 "Numero "
END

BUTTON DLG_OK 10 2
BEGIN
 PROMPT -12 -1 ""  
END

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

ENDPAGE

ENDMASK