campo-sirio/ca/ca2200a.uml

#include "ca2200a.h"
#include "camask.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -11 "~Elabora"
  PICTURE BMP_ELABORA
END

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -23 -11 ""
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

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

ENDPAGE    

TOOLBAR "" 0 -2 0 2

STRING DLG_PROFILE 50
BEGIN
  PROMPT 9 -11 "Profilo "
  PSELECT
END

ENDPAGE

PAGE "Ripartizione\Compattamento movimenti" 0 0 0 2

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 1 "@bParametri di elaborazione"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 2 "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
  OUTPUT F_DATAINI D0
  OUTPUT F_DATAFIN D1
  CHECKTYPE REQUIRED
  FLAGS "RZ"
  ADD NONE
END

DATA F_DATAINI
BEGIN
  PROMPT 2 3 "Dalla data "
  CHECKTYPE REQUIRED
END

DATA F_DATAFIN
BEGIN
  PROMPT 42 3 "Alla data  "
  CHECKTYPE REQUIRED
END 

RADIOBUTTON F_COMPATTA 1 40
BEGIN
  PROMPT 2 4 "Elaborazione richiesta"
  ITEM " |Ripartizione"
  MESSAGE ENABLE,F_DEFINITIVO
  ITEM "X|Compattamento"
  MESSAGE CLEAR,F_DEFINITIVO
  FLAGS "Z"
END

BOOLEAN F_DEFINITIVO
BEGIN
  PROMPT 2 7 "Blocca movimenti elaborati (DEFINITIVO e vale solo per ripartizione)"
END

TEXT -1
BEGIN
  PROMPT 1 9 "@bCommesse/CdC da pareggiare"
END

SPREADSHEET F_RIGHE -1 -1
BEGIN
  PROMPT 1 10 ""
  ITEM "Cms 1"
  ITEM "Cms 2"
  ITEM "Cms 3"
  ITEM "Cms 4"
  ITEM "Cms 5"
  ITEM "Cms 6"
  ITEM "Cms 7"
  ITEM "Cms 8"
  ITEM "Cms 9"
  ITEM "Cms 10"
  ITEM "Cms 11"
  ITEM "Cms 12"
  ITEM "Causale"
  ITEM "Descrizione@50"
END
  
ENDPAGE

ENDMASK

PAGE "Riga Commesse/CdC da pareggiare" -1 -1 78 15

STRING F_CODCAUS 3
BEGIN
  PROMPT 1 0 "Causale  "
  USE LF_CAUSALI SELECT MOVIND!=""
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_DESCAUS DESCR
  CHECKTYPE NORMAL
  ADD RUN cg0 -4
  FLAGS "U"
END

STRING F_DESCAUS 50
BEGIN
  PROMPT 23 0 ""
  USE LF_CAUSALI KEY 2 SELECT MOVIND!=""
  INPUT DESCR F_DESCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CODCAUS
  ADD RUN cg0 -4
END

//Non cancellare GROUP 1 dai 12 campi successivi, pena la comparsa di campi inutili e perniciosi nella
//maschera di riga
STRING S_CDC1 20
BEGIN
  PROMPT 1 2 "Cms1 "
  FLAGS "B"
  GROUP 1
END

STRING S_CDC2 20
BEGIN
  PROMPT 1 3 "Cms2 "
  FLAGS "B"
  GROUP 1
END

STRING S_CDC3 20
BEGIN
  PROMPT 1 4 "Cms3 "
  FLAGS "B"
  GROUP 1
END

STRING S_CDC4 20
BEGIN
  PROMPT 1 5 "Cms4 "
  FLAGS "B"
  GROUP 1
END

STRING S_CDC5 20
BEGIN
  PROMPT 1 6 "Cms5 "
  FLAGS "B"
  GROUP 1
END

STRING S_CDC6 20
BEGIN
  PROMPT 1 7 "Cms6 "
  FLAGS "B"
  GROUP 1
END

STRING S_CDC7 20
BEGIN
  PROMPT 1 8 "Cms7 "
  FLAGS "B"
  GROUP 1
END

STRING S_CDC8 20
BEGIN
  PROMPT 1 9 "Cms8 "
  FLAGS "B"
  GROUP 1
END

STRING S_CDC9 20
BEGIN
  PROMPT 1 10 "Cms9 "
  FLAGS "B"
  GROUP 1
END

STRING S_CDC10 20
BEGIN
  PROMPT 1 11 "Cms10 "
  FLAGS "B"
  GROUP 1
END

STRING S_CDC11 20
BEGIN
  PROMPT 1 12 "Cms11 "
  FLAGS "B"
  GROUP 1
END

STRING S_CDC12 20
BEGIN
  PROMPT 1 13 "Cms12 "
  FLAGS "B"
  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