campo-sirio/ps/ps1001300a.uml

#include "ps1001300a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "~Salva"
  PICTURE TOOL_SAVEREC
END

BUTTON DLG_NULL 4 2
BEGIN
  PROMPT 2 1 ""
  PICTURE 0
END

BUTTON DLG_CHECKALL 2 2
BEGIN
  PROMPT 3 1 "~Tutti"
  PICTURE TOOL_MULTISEL
END

BUTTON DLG_NULL
BEGIN
  PROMPT 4 1 ""
  PICTURE 0
END

BUTTON DLG_TODATAINI
BEGIN
  PROMPT 5 1 "All.~Ini"
  PICTURE TOOL_TODATAINI
END

BUTTON DLG_TODATAFIN
BEGIN
  PROMPT 6 1 "All.~Fin"
  PICTURE TOOL_TODATAFIN
END

BUTTON DLG_TOMATURATO
BEGIN
  PROMPT 7 1 "All.~Mat"
  PICTURE TOOL_TOCALC
END

BUTTON DLG_NULL
BEGIN
  PROMPT 8 1 ""
  PICTURE 0
END

#include <cancelbar.h>

ENDPAGE

PAGE "Variazione Budget" 0 2 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 "@bCommessa"
END

STRING F_CODCMS 20
BEGIN
  PROMPT 1 1 ""
  USE LF_COMMESSE
  INPUT CODCMS F_CODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCMS CODCMS
  OUTPUT F_DESCRIZ DESCRIZ
  OUTPUT F_DATAINICMS DATAINIZIO
  OUTPUT F_DATAFINECMS DATAFINE
  OUTPUT F_PROROGATA PROROGA
  OUTPUT F_DATAPRORCMS DATAPROR
  CHECKTYPE REQUIRED
END

STRING F_DESCRIZ 50
BEGIN
  PROMPT 25 1 ""
  USE LF_COMMESSE KEY 2
  INPUT DESCRIZ F_DESCRIZ
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCMS
  COPY OUTPUT F_CODCMS
  CHECKTYPE REQUIRED
END

DATE F_DATAINICMS
BEGIN
  PROMPT 1 2 "Inizio "
END

DATE F_DATAFINECMS
BEGIN
  PROMPT 22 2 "Fine "
END

BOOL F_PROROGATA
BEGIN
  PROMPT 43 2 "Prorogata"
  MESSAGE FALSE CLEAR,F_DATAPRORCMS
  MESSAGE TRUE ENABLE,F_DATAPRORCMS
END

DATE F_DATAPRORCMS
BEGIN
  PROMPT 57 2 "Proroga "
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 4 "@bParametri movimenti analitici da generare"
END

DATE F_DATAREG
BEGIN
  PROMPT 1 5 "Data reg. "
  CHECKTYPE REQUIRED
  FLAGS "A"
END

STRINGA F_CODCAUS 3
BEGIN
  PROMPT 24 5 "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 REQUIRED
  FLAGS "U"
END

STRINGA F_DESCAUS 50 37
BEGIN
  PROMPT 38 5 ""
  USE LF_CAUSALI KEY 2 SELECT MOVIND!=''
  INPUT DESCR F_DESCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CODCAUS
  CHECKTYPE REQUIRED
END

TEXT -1
BEGIN
  PROMPT 0 7 "@bRighe movimenti di budget"
END

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 1 8 "Righe"
  ITEM "@1C"
  ITEM "Sede@4"
  ITEM "Fase@5"
  ITEM "Conto@12"
  ITEM "Iniz comp."
  ITEM "AC@C"
  ITEM "Fine comp."
  ITEM "C/R"
  ITEM "Importo@15"
  ITEM "Maturato@15"
  ITEM "Descrizione riga@50"
  ITEM "N. Reg."
  ITEM "Riga"
  ITEM "Tipo"
END

ENDPAGE
ENDMASK


/////////////////////////////////////////
//maschera di riga
PAGE "Riga analitica" -1 -1 70 15

BOOLEAN S_CHECK
BEGIN
  PROMPT 1 1 "Applica  "
END

STRING S_CDC 4
BEGIN
  PROMPT 1 2 "Sede     "
  FLAGS "L"
END

STRING S_FASE 5
BEGIN
  PROMPT 1 3 "Fase     "
  FLAGS "L"
END

STRING S_CONTO 12
BEGIN
  PROMPT 1 4 "Conto    "
  FLAGS "L"
END

DATE S_DATACOMP
BEGIN
  PROMPT 1 5 "Ini.comp "
END

BOOLEAN S_AUTOFCOMP
BEGIN
  PROMPT 1 6 "AutoComp "
END

DATE S_DATAFCOMP
BEGIN
  PROMPT 1 7 "Fin.comp "
END

STRING S_COSRIC 1
BEGIN
  PROMPT 1 8 "Cst/Ric  "
  FLAGS "L"
END

NUMBER S_IMPORTO 15 2
BEGIN
  PROMPT 1 9 "Importo  "
END

NUMBER S_MATURATO 15 2
BEGIN
  PROMPT 1 10 "Maturato "
  FLAGS "L"
END

STRING S_DESCR 50
BEGIN
  PROMPT 1 11 "Descr.   "
END

NUMBER S_NUMREG 7
BEGIN
  PROMPT 1 12 "N. reg.  "
  FLAGS "L"
END

NUMBER S_NUMRIG 3
BEGIN
  PROMPT 1 13 "N. riga  "
  FLAGS "L"
END

STRING S_TIPOMOV 1
BEGIN
  PROMPT 1 14 "Tipo     "
  FLAGS "L"
END

ENDPAGE

TOOLBAR "bottombar" 0 0 0 2

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