campo-sirio/src/ca/ca3200.uml

#include "ca3200.h"
#include "camask.h"

#define ALL_EXPORT
#define REPORT
#define CLASS_NAME "ca3200a"

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

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

PAGE "Selezioni" 0 -3 0 1

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

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 19 1 ""
  FLAGS "D"
END

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

NUMBER F_ANNO 4
BEGIN
  PROMPT 52 3 "Esercizio "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  OUTPUT F_ANNO CODTAB
  CHECKTYPE NORMAL
  CHECKTYPE NORMAL
  FLAGS "RZ"
  ADD NONE
END

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 5 "@bOpzioni stampa"
END

TEXT 96
BEGIN
  PROMPT 2 6 "Dalla data competenza "
END

TEXT 97
BEGIN
  PROMPT 40 6 "Alla data competenza "
END

DATE F_DATAINI 
BEGIN
  PROMPT 26 6 ""
END

DATE F_DATAFIN
BEGIN
  PROMPT 62 6 ""
END

LIST F_TIPOCONTI 24
BEGIN
  PROMPT 2 8 "Selezione conti     "
  ITEM "1|Movimentati nel periodo"  
  ITEM "2|Con saldo diverso da 0"
  ITEM "3|Tutti"
END

LIST F_TIPIMOV 24
BEGIN
  PROMPT 2 9 "Selezione movimenti "
  ITEM " |Qualsiasi"
  ITEM "N|Normale"
  ITEM "P|Preventivo e variazione"
END

BOOLEAN F_PERCONTO
BEGIN
  PROMPT 2 10 "Non suddivisi per Commessa/CDC "
END

STRING F_CONTSEP 6
BEGIN
  PROMPT 1 11 "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 11 ""
  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 13 ""
  ITEM "Cdc1"
  ITEM "Cdc2"
  ITEM "Cdc3"
  ITEM "Cdc4"
  ITEM "Cdc5"
  ITEM "Cdc6"
  ITEM "Cdc7"
  ITEM "Cdc8"
  ITEM "Cdc9"
  ITEM "Cdc10"
  ITEM "Cdc11"
  ITEM "Cdc12"
END

ENDPAGE

PAGE "Conti" -1 -1 78 20

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 3 "@bDa:"
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 9 "@bA:"
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