campo-sirio/cg/cg5400a.uml

#include "cg5400.h"

PAGE "Ripristino stampa registri" -1 -1 78 11

NUMBER F_FIRM 5
BEGIN
  PROMPT 4 1 "Ditta     "
  FLAGS "RF"
  USE LF_NDITTE
  INPUT CODDITTA F_FIRM
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_FIRM CODDITTA
  OUTPUT F_DFIRM RAGSOC
  HELP "Codice della ditta da cui prelevare i dati"
  WARNING "Ditta assente"
  CHECKTYPE REQUIRED
  MESSAGE DIRTY,F_REG
END

STRING F_DFIRM 50
BEGIN
  PROMPT 22 1 ""
  USE LF_NDITTE KEY 2
  CHECKTYPE NORMAL
  INPUT RAGSOC F_DFIRM
  DISPLAY "Ragione sociale @60" RAGSOC
  DISPLAY "Codice" CODDITTA
  COPY OUTPUT F_FIRM
  HELP "Ragione sociale della ditta da cui prelevare i dati"
  WARNING "Ditta assente"
END

NUMBER F_YEAR 4
BEGIN
  PROMPT 4 3 "Anno      "
  FLAGS "AR"
  CHECKTYPE REQUIRED
  HELP "Anno IVA da cui ripristinare la stampa"
  WARNING "L'anno deve essere specificato"
END

STRING F_REG 3
BEGIN
  PROMPT 4 5 "Registro  "
  FLAGS "UZ"
  USE REG SELECT I0<6
  INPUT CODTAB[1,4] F_YEAR
  INPUT CODTAB[5,7] F_REG
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" I0
  OUTPUT F_YEAR CODTAB[1,4]
  OUTPUT F_REG CODTAB[5,7]
  OUTPUT F_DREG S0
  OUTPUT F_TIPO I0
  CHECKTYPE REQUIRED
  HELP "Codice del registro di cui ripristinare la stampa"
  WARNING "Registro assente"
END

STRING F_DREG 50
BEGIN
  PROMPT 22 5 ""
  USE REG KEY 2 SELECT I0<6
  INPUT S0 F_DREG
  DISPLAY "Descrizione @50" S0
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,7]
  DISPLAY "Tipo" I0
  COPY OUTPUT F_REG
  CHECKTYPE NORMAL
  HELP "Denominazione del registro di cui ripristinare la stampa"
  WARNING "Registro assente"
END

LIST F_TIPO 15
BEGIN
  FLAGS "HG"
  ITEM "1|Vendite" MESSAGE HIDE,F_DAY
  ITEM "2|Vendite" MESSAGE HIDE,F_DAY
  ITEM "3|Riepilogativo" MESSAGE HIDE,F_DAY
  ITEM "5|Giornale" MESSAGE SHOW,F_DAY
END

NUMBER F_DAY 2
BEGIN
  PROMPT 4 6 "Giorno    "
  HELP "Giorno da cui ripristinare la stampa del giornale"
END

LIST F_MESE 10
BEGIN
  PROMPT 4 7 "Mese      "
  FLAGS "M"
  HELP "Mese da cui ripristinare la stampa del registro"
END

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

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -22 -1 ""
  MESSAGE EXIT,K_QUIT
END

ENDPAGE

ENDMASK