#include "cg1300.h"

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

NUMBER F_CODDITTA 5
BEGIN
    PROMPT 1 1 "Ditta             "
    FLAGS "FRD"
    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 1 2 "Ragione sociale   "
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 4 "Anno                 "
  HELP "Anno di riferimento"
  VALIDATE FIXLEN_FUNC 4
  CHECKTYPE REQUIRED 
  //WARNING "Indicare l'anno"
END

STRING F_REG 3
BEGIN
  PROMPT 1 5 "Codice registro      "
  USE REG SELECT (I0<"3") && (CODTAB[1,4]==#103)
  INPUT CODTAB[1,4] F_ANNO
  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]
  FLAGS "U"
  VALIDATE ZEROFILL_FUNC 3
  CHECKTYPE REQUIRED  
  //WARNING "Indicare il codice registro"
END

NUMBER F_PROT 5
BEGIN
  PROMPT 1 6 "Numero di protocollo "
  HELP "Numero progressivo di protocollo IVA"
  NUM_EXPR (#F_PROT>0)
  WARNING "Inserire un numero maggiore di zero"
END

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

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

ENDPAGE

ENDMASK