campo-sirio/src/ca/ca3300.uml

#include "ca3300.h"

#define ALL_EXPORT
#define REPORT
#define CLASS_NAME "ca3300a"

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

TOOLBAR "bottombar" 0 -3 0 1
#include <bprintbar.h>
ENDPAGE

PAGE "Stampa bilancio" 0 0 0 2

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 "@bDitta"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Codice "
  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 58
BEGIN
  PROMPT 19 1 ""
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 3 "Codice esercizio "
  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 "Esercizio assente"
  ADD RUN cg0 -5 esc
  MESSAGE K_SPACE,F_STAMPA
END

DATE F_DATASTAMPA
BEGIN
  PROMPT 52 3 "Data di stampa "
  FLAGS "A"
END

RADIOBUTTON F_BILANCIO 1 28
BEGIN
  PROMPT 2 4 "@bBilancio"
  ITEM "C|A sezioni contrapposte"
  MESSAGE ENABLE,F_PRINT_CONTO_ECON
  ITEM "V|Di verifica"
  MESSAGE CLEAR,F_PRINT_CONTO_ECON
END

LIST F_TIPOSTAMPA 11
BEGIN
  PROMPT 12 4 ""
  ITEM "C|Consuntivo"
  ITEM "P|Preventivo"
  ITEM "R|Raffronto"
END

RADIOBUTTON F_STAMPA 26
BEGIN
  PROMPT 31 4 "@bStampa"
  ITEM "1|Per date limite"
  ITEM "2|All'ultima immissione"
END

GROUPBOX DLG_NULL 20 4
BEGIN
  PROMPT 58 4 "@bData di competenza"
END

DATE F_DATADA
BEGIN
  PROMPT 59 5 "Dal "
END

DATE F_DATAA
BEGIN
  PROMPT 59 6 "Al  "
END

LIST F_STAMPAV 1 20
BEGIN
  PROMPT 2 8 "Selezione conti "
  ITEM "1|Movimentati"
  ITEM "2|Con saldo non nullo"
  ITEM "3|Tutti"
  GROUP 4
END

LIST F_COMPLETA 1 16
BEGIN
  PROMPT 42 8 "Stampa completa "
  ITEM "0|               " MESSAGE SHOW,F_RIGHE
  ITEM "1|Primo livello  " MEGGASE HIDE,F_RIGHE
  ITEM "2|Secondo livello" MESSAGE HIDE,F_RIGHE
  ITEM "3|Terzo livello  " MEGGASE HIDE,F_RIGHE
END


BOOLEAN F_PRINT_CONTO_ECON
BEGIN
  PROMPT 2 9 "Stampa situazione conto economico"
END

STRING F_CONTSEP 6
BEGIN
  PROMPT 1 10 "Cont. separata "
  USE &NPENT
  INPUT CODTAB F_CONTSEP
  DISPLAY "Codice@6" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CONTSEP CODTAB
  OUTPUT F_DESCONTSEP S0
  CHECKTYPE NORMAL
  FIELD CONTSEP
  MODULE NP
END

STRING F_DESCONTSEP 50 48
BEGIN
  PROMPT 26 10 ""
  USE &NPENT KEY 2
  INPUT S0 F_DESCONTSEP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@6" CODTAB
  COPY OUTPUT F_CONTSEP
  CHECKTYPE NORMAL
  MODULE NP
END

SPREADSHEET F_RIGHE -1 -1
BEGIN
  PROMPT 0 12 ""
  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

PAGE "Conti" -1 -1 74 20

LIST F_PIANO 1 20
BEGIN
  PROMPT 1 1 "Piano dei conti "
  ITEM "A|Analitico"
    MESSAGE HIDE,5@|SHOW,6@
  ITEM "C|Contabile"
    MESSAGE SHOW,5@|HIDE,6@
  FLAGS "G"
END

GROUPBOX F_PRE0 78 6
BEGIN
  PROMPT 1 3 "@bPrefisso del piano dei conti analitico:"
  GROUP 6
END

GROUPBOX F_PDC0_INI 78 6
BEGIN
  PROMPT 1 9 "@bDa conto:"
  GROUP 4
END

GROUPBOX F_PDC0_FIN 78 6
BEGIN
  PROMPT 1 15 "@bA conto:"
  GROUP 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