campo-sirio/ca/ca3300a.uml

#include "ca3300a.h"

TOOLBAR "" 0 -3 0 3

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

BUTTON DLG_QUIT 10 2
BEGIN
    PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Stampa bilancio" -1 -1 76 16

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta             "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale   "
  FLAGS "D"
END

DATE F_DATASTAMPA
BEGIN
  PROMPT 48 1 "Data stampa "
  HELP "Data che verra' stampata sul bilancio"
  FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 3 "Codice esercizio  "
  HELP "Esercizio di cui si vuole ottenere il bilancio"
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB
  FLAGS "Z"
  CHECKTYPE NORMAL
  WARNING "L'esercizio non esiste"
  ADD RUN cg0 -5 esc
	MESSAGE EMPTY SHOW,6@|HIDE,7@|K_SPACE,F_STAMPA
	MESSAGE HIDE,6@|SHOW,7@|K_SPACE,F_STAMPA
END

LIST F_BILANCIO 22
BEGIN
  PROMPT 2 4 "Tipo bilancio"
  HELP "Indicare il tipo di bilancio da stampare"
  ITEM "1|A sezioni contrapposte"
  MESSAGE HIDE,4@|RESET,4@|SHOW,3@
  ITEM "2|Di verifica"
  MESSAGE SHOW,4@|HIDE,3@|K_SPACE,F_STAMPA
END

LIST F_STAMPA 22
BEGIN
  PROMPT 41 4 "Tipo stampa"
  HELP "Indicare il tipo di stampa"
  ITEM "1|Per date limite"
  MESSAGE SHOW,5@|K_SPACE,F_BILANCIO
  ITEM "2|All'ultima immissione"
  MESSAGE HIDE,5@|RESET,5@
END

GROUPBOX DLG_NULL 40 3
BEGIN
  PROMPT 0 5 "@bData operazione"
	GROUP 6
END

GROUPBOX DLG_NULL 40 3
BEGIN
  PROMPT 0 5 "@bData competenza"
	GROUP 7
END

DATE F_DATADA
BEGIN
  PROMPT 2 6 "Dal "
  HELP "Data dalla quale iniziare la stampa"
	GROUP 4 5
END

DATE F_DATAA
BEGIN
  PROMPT 20 6 "Al  "
	GROUP 5
END

LIST F_STAMPAMPROV 20
BEGIN
  PROMPT 41 6 "Bilancio   "
  ITEM "1|Preventivo"
  ITEM "2|Consuntivo"
  ITEM "3|Raffronto"
	GROUP 3
END

LIST F_STAMPAV 20
BEGIN
  PROMPT 41 6 "Tipo stampa"
  ITEM "1|Movimentati"
  ITEM "2|Con saldo <> da 0"
  ITEM "3|Tutti"
	GROUP 4
END

BOOLEAN F_CODICI
BEGIN
  PROMPT 2 8 "Non stampare codici conti "
  HELP "Indicare se non si devono stampare i codici dei conti"
	GROUP 4
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 9 "@bDa:"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 15 "@bA:"
END

STRING F_REPORT 256 64
BEGIN
  PROMPT 1 21 "Report "
END

ENDPAGE

PAGE "Selezioni" -1 -1 74 20

SPREADSHEET F_RIGHE -1 -2
BEGIN
  PROMPT 0 2 ""
  ITEM "Cdc 1"
  ITEM "Cdc 2"
  ITEM "Cdc 3"
  ITEM "Cdc 4"
  ITEM "Cms 1"
  ITEM "Cms 2"
  ITEM "Cms 3"
  ITEM "Cms 4"
  ITEM "Fas 1"
  ITEM "Fas 2"
  ITEM "Fas 3"
  ITEM "Fas 4"
END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 78 19

STRING S_CDC1 20
BEGIN
  PROMPT 1 2 "Cdc1"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC2 20
BEGIN
  PROMPT 21 2 "Cdc2"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC3 20
BEGIN
  PROMPT 41 2 "Cdc3"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC4 20
BEGIN
  PROMPT 61 2 "Cdc4"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC5 20
BEGIN
  PROMPT 1 3 "Cdc5"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC6 20
BEGIN
  PROMPT 21 3 "Cdc6"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC7 20
BEGIN
  PROMPT 41 3 "Cdc7"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC8 20
BEGIN
  PROMPT 61 3 "Cdc8"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC9 20
BEGIN
  PROMPT 1 4 "Cdc9"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC10 20
BEGIN
  PROMPT 21 4 "Cdc10"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC11 20
BEGIN
  PROMPT 41 4 "Cdc11"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC12 20
BEGIN
  PROMPT 61 4 "Cdc12"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

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

ENDPAGE 

ENDMASK