campo-sirio/cg/cgtblbu.uml

#include "cgtblbu.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Tabella libro unico" 0 2 0 0

NUMBER F_ANNO 4
BEGIN
  PROMPT 3 1 "Anno esercizio       "
  FIELD CODTAB[1,4]
  FLAGS "AZ"
  USE %LBU
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,7] F_CODLIB
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_CODLIB CODTAB[5,7]
  OUTPUT F_DESCRLBU S0
  CHECKTYPE REQUIRED
  KEY 1
END

STRING F_CODLIB 3
BEGIN
  PROMPT 45 1 "Codice "
  FLAGS "UZ"
  FIELD CODTAB[5,7]
  COPY ALL F_ANNO
  CHECKTYPE REQUIRED
  KEY 1
END

STRING F_DESCRLBU 50
BEGIN
  PROMPT 3 2 "Descrizione          "
  FIELD S0
  USE %LBU KEY 2
  INPUT S0 F_DESCRLBU
  DISPLAY "Descrizione@50" S0
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice libro unico" CODTAB[5,7]
  COPY OUTPUT F_CODLIB
  CHECKTYPE REQUIRED
  KEY 2
END

NUMBER F_CODTABLIB 2
BEGIN
  PROMPT 3 3 "Codice libro         "
  FIELD I3
  FLAGS "Z"
  USE %ITL
  INPUT CODTAB F_CODTABLIB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODTABLIB CODTAB
  OUTPUT F_DESCRLBU S0
  CHECKTYPE NORMAL
END

LIST F_ULT_MESE_STAMP 2 12
BEGIN
  PROMPT 3 5 "Ultimo mese stampa   "
  FIELD I0
  ITEM " |Nessuno"
  FLAGS "M"
END

NUMBER F_ULT_PAG 5
BEGIN
  PROMPT 55 5 "Ultima pagina "
  FIELD I1
END

LIST F_TIPOA 10
BEGIN
  PROMPT 3 6 "Tipo persona         "
  FIELD S2
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
END

NUMBER F_CODANAGR 5
BEGIN
  PROMPT 55 6 "Codice        "
  FIELD I4
  USE LF_ANAG
  INPUT TIPOA F_TIPOA SELECT
  INPUT CODANAGR F_CODANAGR
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_TIPOA TIPOA
  OUTPUT F_CODANAGR CODANAGR
  OUTPUT F_TIPOANAGR RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_TIPOANAGR 50
BEGIN
  PROMPT 3 7 "Tipo anagrafico      "
  USE LF_ANAG KEY 2
  INPUT TIPOA F_TIPOA SELECT
  INPUT RAGSOC F_TIPOANAGR
  DISPLAY "Tipo" TIPOA
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODANAGR
  COPY OUTPUT F_CODANAGR
  CHECKTYPE REQUIRED
END

STRING F_CONSPRESSO 50
BEGIN
  PROMPT 3 8 "Conservato presso    "
  FIELD S1
END

STRING F_CODVID 3
BEGIN
  PROMPT 3 9 "Codice vidimazione   "
  FLAGS "UZ"
  FIELD S4
  USE %VID
  INPUT CODTAB F_CODVID
  DISPLAY "Codice" CODTAB
  DISPLAY "Intestatario@50" S0
  OUTPUT F_CODVID CODTAB
  OUTPUT F_DESVID S0
  OUTPUT F_DATAVID D0
  CHECKTYPE NORMAL
END

STRING F_DESVID 50
BEGIN
  PROMPT 3 10 "Intestatario         "
  USE %VID KEY 2
  INPUT S0 F_DESVID
  DISPLAY "Intestatario@50" S0
  DISPLAY "Codice@10" CODTAB
  COPY OUTPUT F_CODVID
  CHECKTYPE NORMAL
END

DATE F_DATAVID
BEGIN
  PROMPT 3 11 "Data vidimazione     "
  FIELD D0
END

DATE F_DATASCAD
BEGIN
  PROMPT 45 11 "Data scadenza      "
  FIELD D1
END

NUMBER F_NUMPAG 5
BEGIN
  PROMPT 3 12 "Num.pag. libro unico "
  FIELD I2
END

BOOLEAN F_STAMPAINT
BEGIN
  PROMPT 3 13 "Stampa intestazione studio su libro unico"
  FIELD B0
END

BOOLEAN F_STAMPAINDCOMP
BEGIN
  PROMPT 3 14 "Stampa l'indirizzo completo della ditta"
  FIELD B1
END

RADIOBUTTON F_MODULO 27
BEGIN
  PROMPT 3 15 "Formato modulo di stampa   "
  ITEM "66|11 pollici (27,94 cm)"
  ITEM "72|12 pollici (30,48 cm)"
END

RADIOBUTTON F_STAMPA 27
BEGIN
  PROMPT 46 15 "Numero caratteri           "
  ITEM "1|132 caratteri per riga"
  ITEM "2|198 caratteri per riga"
END

ENDPAGE

ENDMASK