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
  GROUP 3
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
  GROUP 3
END

BUTTON DLG_NULL
BEGIN
  PROMPT 4 1 ""
  PICTURE 0
END

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

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

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

#include <cancelbar.h>

ENDPAGE

PAGE "Gestione Budget" 0 2 0 0

GROUPBOX DLG_NULL 78 5
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 "
  GROUP 3
END

DATE F_DATAFINECMS
BEGIN
  PROMPT 22 2 "Fine "
  GROUP 3
END

BOOL F_PROROGATA
BEGIN
  PROMPT 43 2 "Prorogata"
  MESSAGE FALSE HIDE,F_DATAPRORCMS
  MESSAGE TRUE SHOW,F_DATAPRORCMS
  GROUP 3
END

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

BOOL F_CHIUSA
BEGIN
  PROMPT 57 3 "Chiusa"
  GROUP 3
END

BOOLEAN F_INCLUDESUPP
BEGIN
  PROMPT 1 3 "Includere le righe con commesse di supporto"
END

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

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

STRINGA F_CODCAUS 3
BEGIN
  PROMPT 24 6 "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 6 ""
  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 DLG_NULL
BEGIN
  PROMPT -11 8 "@bRighe movimenti di budget e saldi consuntivi"
END

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 1 10 "Righe"
  ITEM "@1C"
  ITEM "Commessa@20"
  ITEM "Sede@4"
  ITEM "Fase@5"
  ITEM "Conto@12"
  ITEM "Inizio\nCompetenza@10"
  ITEM "AC@C"
  ITEM "Fine\nCompetenza@10"
  ITEM "C/R"
  ITEM "Importo@15"
  ITEM "Saldo\nPreventivo@15"
  ITEM "Saldo\nMaturato@15"
  ITEM "Saldo\nImpegnato@15"
  ITEM "Descrizione riga@50"
  ITEM "Numero\nRegistr@7"
  ITEM "Riga"
  ITEM "Tipo"
END

ENDPAGE


PAGE "Istruzioni " 0 2 0 0

TEXT DLG_NULL
BEGIN
  PROMPT 1 1 "_ Le date della commessa possono essere modificate." 
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 2 "_ I pulsanti All.Ini, All.Fin, All.Mat hanno effetto solo sulle righe il cui primo campo <20> spuntato" 
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 3 "_ All.Ini (Allinea all'Inizio) allinea le date di competenza alla data inizio commessa" 
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 4 "_ All.Fin (Allinea alla Fine) allinea le date di fine competenza alla data fine commessa" 
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "_ All.Mat (Allinea al Maturato) modifica gli importi in modo da portare il Preventivo al valore del Maturato" 
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 6 "_ E' possibile modificare manualmente gli importi sulle righe, il Preventivo viene ricalcolato di conseguenza" 
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "_ In fase di registrazione vengono eliminate le righe ad importo nullo (azzerare quindi l'importo se si"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 8 "  desidera rimuovere una riga)." 
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 9 "_ In fase di registrazione le nuove righe vengono assegnate a nuovi movimenti analitici preventivi" 
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 10 "_ In fase di registrazione le righe provenienti da saldi consuntivi vengono assegnate all'ultimo movimento di preventivo" 
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 11 "_ Il pulsante Tutti spunta le righe, una per ogni chiave Sede/Fase/Conto" 
END

ENDPAGE

ENDMASK


/////////////////////////////////////////
//maschera di riga
PAGE "Riga analitica" -1 -1 74 20

BOOLEAN S_CHECK
BEGIN
  PROMPT 1 0 "Applica"
END

LIST S_CMS 20
BEGIN
  PROMPT 1 1 "Commessa   "
  FLAGS "D"
  GROUP 1
END

STRING S_CDC 4
BEGIN
  PROMPT 1 2 "Sede       "
  USE LF_CDC
  INPUT CODCOSTO S_CDC
  DISPLAY "Sede" CODCOSTO
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT S_CDC CODCOSTO
  OUTPUT S_CDC_DESCR DESCRIZ
  CHECKTYPE NORMAL
  FLAGS "D"
  GROUP 1
END

STRING S_CDC_DESCR 50
BEGIN
  PROMPT 20 2 ""
  USE LF_CDC KEY 2
  INPUT DESCRIZ S_CDC_DESCR
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Sede" CODCOSTO
  COPY OUTPUT S_CDC
  FLAGS "D"
  GROUP 1
END

STRING S_FASE 5
BEGIN
  PROMPT 1 3 "Fase       "
  USE LF_FASI
  INPUT CODCMSFAS -F_CODCMS SELECT
  INPUT CODFASE S_FASE
  DISPLAY "Fase@10" CODFASE
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT S_FASE CODFASE
  OUTPUT S_FASE_DESCR DESCRIZ
  CHECKTYPE NORMAL
  FLAGS "D"
  GROUP 1
END

STRING S_FASE_DESCR 50
BEGIN
  PROMPT 20 3 ""
  FLAGS "D"
  GROUP 1
END

NUMBER S_GR 3
BEGIN
  PROMPT 1 4 "Conto      "
  USE LF_PCON SELECT CONTO=""
  INPUT GRUPPO S_GR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_GR GRUPPO
  OUTPUT S_CONTO_DESCR DESCR
  CHECKTYPE NORMAL
  FLAGS "DZ"
  GROUP 1
END

NUMBER S_CO 3
BEGIN
  PROMPT 18 4 ""
  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT S_GR
  INPUT CONTO S_CO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_GR GRUPPO
  OUTPUT S_CO CONTO
  OUTPUT S_CONTO_DESCR DESCR
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 S_SO
  FLAGS "DZ"
  GROUP 1
END

NUMBER S_SO 6
BEGIN
  PROMPT 24 4 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  COPY INPUT S_CO
  INPUT SOTTOCONTO S_SO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_GR GRUPPO
  OUTPUT S_CO CONTO
  OUTPUT S_SO SOTTOCONTO
  OUTPUT S_CONTO_DESCR DESCR
  CHECKTYPE REQUIRED
  FLAGS "GDZ"
  GROUP 1
END

STRING S_CONTO_DESCR 50 36
BEGIN
  PROMPT 34 4 ""
  USE LF_PCON KEY 2
  INPUT DESCR S_CONTO_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT S_SO
  GROUP 1
  FLAGS "GD"
END

NUMBER S_CONTO 12
BEGIN
  PROMPT 1 50 "Conto completo"
  //coordinate fuori schermo per non vederlo
  FLAGS "ZD"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "@bDate Competenza"
END

DATE S_DATACOMP
BEGIN
  PROMPT 1 6 "Inizio     "
  CHECKTYPE REQUIRED
END

BOOLEAN S_AUTOFCOMP
BEGIN
  PROMPT 34 6 "Automatica"
  MESSAGE FALSE ENABLE,S_DATAFCOMP
  MESSAGE TRUE CLEAR,S_DATAFCOMP
END

DATE S_DATAFCOMP
BEGIN
  PROMPT 53 6 "Fine "
  VALIDATE DATE_CMP_FUNC >= F_DATACOMP
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "@bImporto riga"
END

STRING S_COSRIC 1
BEGIN
  PROMPT 1 8 "Csti/Ricavi"
  FLAGS "D"
  CHECKTYPE REQUIRED
END

NUMBER S_IMPORTO 15 2
BEGIN
  PROMPT 18 8 "Importo "
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 9 "@bSaldi (ad ultima immissione)"
END

NUMBER S_PREVENTIVO 15 2
BEGIN
  PROMPT 1 10 "Preventivo "
  FLAGS "D"
END

NUMBER S_MATURATO 15 2
BEGIN
  PROMPT 1 11 "Maturato   "
  FLAGS "D"
END

NUMBER S_IMPEGNATO 15 2
BEGIN
  PROMPT 1 12 "Impegnato  "
  FLAGS "D"
END

STRING S_DESCR 50
BEGIN
  PROMPT 1 14 "Descrizione"
END

NUMBER S_NUMREG 7
BEGIN
  PROMPT 1 15 "N. reg.    "
  FLAGS "GD"
  MESSAGE EMPTY ENABLE,1@
  MESSAGE DISABLE,1@
END

NUMBER S_NUMRIG 3
BEGIN
  PROMPT 1 16 "Num. riga  "
  FLAGS "D"
END

STRING S_TIPOMOV 1
BEGIN
  PROMPT 1 17 "Tipo mov.  "
  FLAGS "D"
END

ENDPAGE

TOOLBAR "bottombar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_RESET 2 2
BEGIN
  PROMPT 2 1 "~Azzera"
  PICTURE TOOL_RESET
  MESSAGE RESET,S_IMPORTO
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE
ENDMASK