campo-sirio/cg/cg3400a.uml

#include "cg3400a.h"

PAGE "Stampa Libro Giornale" -1 -1 76 14

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 DATA_DA
BEGIN
  PROMPT 1 3 "Dalla data  "
  HELP "Stampa i movimenti a partire dalla data specificata"
END

DATE DATA_A
BEGIN
  PROMPT 40 3 "Alla data  "
  HELP "Stampa i movimenti fino alla data specificata"
  WARNING "Specificare la data di fine stampa"
  CHECKTYPE REQUIRED
END

NUMBER ANNO_ESER 4
BEGIN
  PROMPT 1 5 "Anno            "
  FLAGS "DZ"
END

STRING CODREG 3
BEGIN
  PROMPT 1 6 "Codice registro "
  HELP "Codice del libro giornale da stampare"
  USE REG SELECT (I0=5)||(I0=4)
  INPUT CODTAB[1,4] ANNO_ESER
  INPUT CODTAB[5,7] CODREG
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" I0
  OUTPUT ANNO_ESER CODTAB[1,4]
  OUTPUT CODREG CODTAB[5,7]
  OUTPUT REG_DESC S0
  CHECKTYPE REQUIRED
  WARNING "Registro assente"
  FLAGS "UZ"
END

STRING REG_DESC 50
BEGIN
  PROMPT 24 6 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 35 4
BEGIN
  PROMPT 40 8 "Formato pagina"
END

LISTBOX STAMPA_WIDTH 4
BEGIN
  PROMPT 41 9 "Numero di colonne "
  HELP "Numero di colonne per pagina del modulo di stampa."
  ITEM "1|132"
  ITEM "2|198"
END

NUMBER STAMPA_LEN 3
BEGIN
  PROMPT 41 10 "Numero di righe   "
  HELP "Numero di righe per pagina del modulo di stampa. Se non specificato assume 66 righe"
END

BOOLEAN STAMPA_DEF
BEGIN
  PROMPT 1 9 "Stampa definitiva su bollato"
  HELP "Seleziona la stampa su bollato oppure, se vuoto, la stampa di prova"
  MESSAGE TRUE  CLEAR,DATA_DA
  MESSAGE FALSE ENABLE,DATA_DA
END

BOOLEAN F_ST_CONTSEP
BEGIN
  PROMPT 1 10 "Stampa contabilit<69> separata"
  MODULE NP
END

ENDPAGE


TOOLBAR "" 0 0 0 2

#include "printbar.h"

ENDPAGE

ENDMASK