campo-sirio/ca/ca0300a.uml

#include "ca0300a.h"

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

PAGE "Dati generali" -1 -1 78 10

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 1 "@bLivelli generali"
END

DATE F_DATAATTCA 
BEGIN
   PROMPT 2 2 "Data attivazione "
   FIELD DtAttCa
END

LIST F_LEVEL_1 3 15
BEGIN
  PROMPT 2 3 "Primo livello    "
  ITEM "CDC|Centro di Costo"
  ITEM "CMS|Commessa"
  FIELD Level(1)
END

LIST F_LEVEL_2 3 15
BEGIN
  PROMPT 2 4 "Secondo livello  "
  ITEM "   |Nessuno"
  ITEM "CDC|Centro di Costo"
  ITEM "CMS|Commessa"
  FIELD Level(2)
END

BOOLEAN F_ATTIVA_FASI
BEGIN
  PROMPT 2 5 "Utilizza le fasi "
  MESSAGE FALSE CLEAR,F_FATHER_FASI
  MESSAGE TRUE ENABLE,F_FATHER_FASI
  FIELD AttFasi
END

LIST F_FATHER_FASI 3 15
BEGIN
  PROMPT 2 6 "Liv. sup. fase   "
  ITEM "   |Nessuno"
  ITEM "CDC|Centro di Costo"
  ITEM "CMS|Commessa"
  FIELD FathFasi
END

ENDPAGE

PAGE "Configurazione campi 1" 0 0 0 2

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 1 "@bCentro di costo"
END

TEXT -1
BEGIN
  PROMPT 4 2 "Formato codice"
END

TEXT -1
BEGIN
  PROMPT 27 2 "Descrizione"
END

STRING F_CDC_1 20
BEGIN
  PROMPT 2 3 "1 "
  MESSAGE EMPTY CLEAR,F_CDC_2|CLEAR,F_DESCDC_2|K_TAB,F_CDC_2|RESET,F_DESCDC_1
  MESSAGE ENABLE,F_CDC_2|ENABLE,F_DESCDC_2
  FIELD CdC(1)
END

STRING F_DESCDC_1 50
BEGIN
  PROMPT 27 3 ""
  FIELD CdCDes(1)
END

STRING F_CDC_2 20
BEGIN
  PROMPT 2 4 "2 "
  MESSAGE EMPTY CLEAR,F_CDC_3|CLEAR,F_DESCDC_3|K_TAB,F_CDC_3|RESET,F_DESCDC_2
  MESSAGE ENABLE,F_CDC_3|ENABLE,F_DESCDC_3
  FLAGS "G"
  FIELD CdC(2)
END

STRING F_DESCDC_2 50
BEGIN
  PROMPT 27 4 ""
  FIELD CdCDes(2)
END

STRING F_CDC_3 20
BEGIN
  PROMPT 2 5 "3 "
  MESSAGE EMPTY CLEAR,F_CDC_4|CLEAR,F_DESCDC_4|K_TAB,F_CDC_4|RESET,F_DESCDC_3
  MESSAGE ENABLE,F_CDC_4|ENABLE,F_DESCDC_4
  FLAGS "G"
  FIELD CdC(3)
END

STRING F_DESCDC_3 50
BEGIN
  PROMPT 27 5 ""
  FIELD CdCDes(3)
END

STRING F_CDC_4 20
BEGIN
  PROMPT 2 6 "4 "
  MESSAGE EMPTY RESET,F_DESCDC_4
  FLAGS "G"
  FIELD CdC(4)
END

STRING F_DESCDC_4 50
BEGIN
  PROMPT 27 6 ""
  FIELD CdCDes(4)
END

BOOLEAN F_CDCREQ
BEGIN
  PROMPT 2 7 "Obbligatorio nelle righe dei movimenti"
  FIELD CdcRequired
END

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 9 "@bCommessa"
END

TEXT -1
BEGIN
  PROMPT 4 10 "Formato codice"
END

TEXT -1
BEGIN
  PROMPT 27 10 "Descrizione"
END

STRING F_CMS_1 20
BEGIN
  PROMPT 2 11 "1 "
  MESSAGE EMPTY CLEAR,F_CMS_2|CLEAR,F_DESCMS_2|K_TAB,F_CMS_2|RESET,F_DESCMS_1
  MESSAGE ENABLE,F_CMS_2|ENABLE,F_DESCMS_2
  FIELD Cms(1)
END

STRING F_DESCMS_1 50
BEGIN
  PROMPT 27 11 ""
  FIELD CmsDes(1)
END

STRING F_CMS_2 20
BEGIN
  PROMPT 2 12 "2 "
  MESSAGE EMPTY CLEAR,F_CMS_3|CLEAR,F_DESCMS_3|K_TAB,F_CMS_3|RESET,F_DESCMS_2
  MESSAGE ENABLE,F_CMS_3|ENABLE,F_DESCMS_3
  FLAGS "G"
  FIELD Cms(2)
END

STRING F_DESCMS_2 50
BEGIN
  PROMPT 27 12 ""
  FIELD CmsDes(2)
END

STRING F_CMS_3 20
BEGIN
  PROMPT 2 13 "3 "
  MESSAGE EMPTY CLEAR,F_CMS_4|CLEAR,F_DESCMS_4|K_TAB,F_CMS_4|RESET,F_DESCMS_3
  MESSAGE ENABLE,F_CMS_4|ENABLE,F_DESCMS_4
  FLAGS "G"
  FIELD Cms(3)
END

STRING F_DESCMS_3 50
BEGIN
  PROMPT 27 13 ""
  FIELD CmsDes(3)
END

STRING F_CMS_4 20
BEGIN
  PROMPT 2 14 "4 "
  MESSAGE EMPTY RESET,F_DESCMS_4
  FLAGS "G"
  FIELD Cms(4)
END

STRING F_DESCMS_4 50
BEGIN
  PROMPT 27 14 ""
  FIELD CmsDes(4)
END

BOOLEAN F_CMSREQ
BEGIN
  PROMPT 2 15 "Obbligatorio nelle righe dei movimenti"
  FIELD CmsRequired
END

ENDPAGE

PAGE "Configurazione campi 2" -1 -1 78 10

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 1 "@bFase"
END

TEXT -1
BEGIN
  PROMPT 4 2 "Formato codice"
END

TEXT -1
BEGIN
  PROMPT 21 2 "Descrizione"
END

STRING F_FASE_1 10
BEGIN
  PROMPT 2 3 "1 "
  MESSAGE EMPTY CLEAR,F_FASE_2|CLEAR,F_DESFASE_2|K_TAB,F_FASE_2|RESET,F_DESFASE_1
  MESSAGE ENABLE,F_FASE_2|ENABLE,F_DESFASE_2
  FIELD Fsc(1)
END

STRING F_DESFASE_1 50
BEGIN
  PROMPT 21 3 ""
  FIELD FscDes(1)
END

STRING F_FASE_2 10
BEGIN
  PROMPT 2 4 "2 "
  MESSAGE EMPTY CLEAR,F_FASE_3|CLEAR,F_DESFASE_3|K_TAB,F_FASE_3|RESET,F_DESFASE_2
  MESSAGE ENABLE,F_FASE_3|ENABLE,F_DESFASE_3
  FLAGS "G"
  FIELD Fsc(2)
END

STRING F_DESFASE_2 50
BEGIN
  PROMPT 21 4 ""
  FIELD FscDes(2)
END

STRING F_FASE_3 10
BEGIN
  PROMPT 2 5 "3 "
  MESSAGE EMPTY CLEAR,F_FASE_4|CLEAR,F_DESFASE_4|K_TAB,F_FASE_4|RESET,F_DESFASE_3
  MESSAGE ENABLE,F_FASE_4|ENABLE,F_DESFASE_4
  FLAGS "G"
  FIELD Fsc(3)
END

STRING F_DESFASE_3 50
BEGIN
  PROMPT 21 5 ""
  FIELD FscDes(3)
END

STRING F_FASE_4 10
BEGIN
  PROMPT 2 6 "4 "
  MESSAGE EMPTY RESET,F_DESFASE_4
  FLAGS "G"
  FIELD Fsc(4)
END

STRING F_DESFASE_4 50
BEGIN
  PROMPT 21 6 ""
  FIELD FscDes(4)
END

BOOLEAN F_FSCREQ
BEGIN
  PROMPT 2 7 "Obbligatorio nelle righe dei movimenti"
  FIELD FscRequired
END

GROUPBOX DLG_NULL 78 9
BEGIN
  PROMPT 1 10 "@bPiano dei conti analitico"
END

BOOLEAN F_USE_PDCC
BEGIN
  PROMPT 2 11 "Utilizza il piano dei conti contabile"
  FIELD UsePdcc
  MESSAGE FALSE HIDE,F_PREFIX
  MESSAGE TRUE SHOW,F_PREFIX
END

LIST F_PREFIX 1 10
BEGIN
  PROMPT 54 11 "Prefisso "
  ITEM "0|Nessuno"
  ITEM "1|Livello 1"
  ITEM "2|Livello 2"
  ITEM "3|Livello 3"
  FIELD PdcPrefix
END

TEXT -1
BEGIN
  PROMPT 4 12 "Formato codice"
  GROUP 5
END

TEXT -1
BEGIN
  PROMPT 27 12 "Descrizione"
END

STRING F_PDCI_1 20
BEGIN
  PROMPT 2 13 "1 "
  MESSAGE EMPTY CLEAR,F_PDCI_2|CLEAR,F_DESPDCI_2|K_TAB,F_PDCI_2|RESET,F_DESPDCI_1
  MESSAGE ENABLE,F_PDCI_2|ENABLE,F_DESPDCI_2
  FIELD Pdci(1)
END

STRING F_DESPDCI_1 50
BEGIN
  PROMPT 27 13 ""
  FIELD PdciDes(1)
END

STRING F_PDCI_2 20
BEGIN
  PROMPT 2 14 "2 "
  MESSAGE EMPTY CLEAR,F_PDCI_3|CLEAR,F_DESPDCI_3|K_TAB,F_PDCI_3|RESET,F_DESPDCI_2|CLEAR,F_PREFIX
  MESSAGE ENABLE,F_PDCI_3|ENABLE,F_DESPDCI_3|ENABLE,F_PREFIX
  FLAGS "G"
  FIELD Pdci(2)
END

STRING F_DESPDCI_2 50
BEGIN
  PROMPT 27 14 ""
  FIELD PdciDes(2)
END

STRING F_PDCI_3 20
BEGIN
  PROMPT 2 15 "3 "
  MESSAGE EMPTY CLEAR,F_PDCI_4|CLEAR,F_DESPDCI_4|K_TAB,F_PDCI_4|RESET,F_DESPDCI_3
  MESSAGE ENABLE,F_PDCI_4|ENABLE,F_DESPDCI_4
  FLAGS "G"
  FIELD Pdci(3)
END

STRING F_DESPDCI_3 50
BEGIN
  PROMPT 27 15 ""
  FIELD PdciDes(3)
END

STRING F_PDCI_4 20
BEGIN
  PROMPT 2 16 "4 "
  MESSAGE EMPTY RESET,F_DESPDCI_4
  FLAGS "G"
  FIELD Pdci(4)
END

STRING F_DESPDCI_4 50
BEGIN
  PROMPT 27 16 ""
  FIELD PdciDes(4)
END

BOOLEAN F_PDCREQ
BEGIN
  PROMPT 2 17 "Obbligatorio nelle righe dei movimenti"
  FIELD PdciRequired
END

RADIOBUTTON F_SEZRIF 60
BEGIN
  PROMPT 1 19 "Sezione di riferimento per le ripartizioni Costo/Ricavo"
  ITEM "C|Costo"
  ITEM "R|Ricavo"
  FLAGS "Z"
  FIELD SezRif
END

ENDPAGE

PAGE "Regole rendiconto" -1 -1 78 23

TEXT -1
BEGIN
  PROMPT 1 1 "@bNumerazioni documenti da escludere nel rendiconto"
END

SPREADSHEET F_RIGHE_NUM -1 3
BEGIN
  PROMPT 1 2 ""
  ITEM "Numerazione"
  ITEM "Descrizione@50"
  ITEM "Da escludere"
  ITEM "Da stato"
  ITEM "A stato"
END

TEXT -1
BEGIN
  PROMPT 1 6 "@bNumerazioni documenti per le fatture da ricevere nel rendiconto"
END

SPREADSHEET F_RIGHE_FDR -1 3
BEGIN
  PROMPT 1 7 ""
  ITEM "Numerazione"
  ITEM "Descrizione@50"
END

TEXT -1
BEGIN
  PROMPT 1 11 "@bCausali per ratei e risconti"
END

SPREADSHEET F_RIGHE_RER -1 3
BEGIN
  PROMPT 1 12 ""
  ITEM "Causale"
  ITEM "Descrizione@50"
END

TEXT -1
BEGIN
  PROMPT 1 16 "@bRegole su numerazioni Parcella"
END

SPREADSHEET F_RIGHE_PAR -1 3
BEGIN
  PROMPT 1 17 ""
  ITEM "Numerazione"
  ITEM "Descrizione@50"
  ITEM "Stato fattura"
END

ENDPAGE

ENDMASK

PAGE "Riga numerazione da escludere" -1 -1 78 8

STRING SN_CODNUM 4
BEGIN
  PROMPT 1 1 "Codice numerazione "
  USE %NUM
  CHECKTYPE REQUIRED
  INPUT CODTAB SN_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SN_CODNUM CODTAB
  OUTPUT SN_DESCR S0
  KEY 1
  FLAGS "UZ"
END

STRING SN_DESCR 50
BEGIN
  PROMPT 1 3 "Descrizione        "
  USE %NUM KEY 2
  INPUT S0 SN_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT SN_CODNUM
END

BOOLEAN SN_EXCLUDE
BEGIN
  PROMPT 1 5 "Da escudere"
  MESSAGE FALSE ENABLE,1@
  MESSAGE TRUE CLEAR,1@
END

NUMBER SN_DASTATO 1
BEGIN
  PROMPT 20 5 "Da stato "
  CHECKTYPE REQUIRED
  GROUP 1
END

NUMBER SN_ASTATO 1
BEGIN
  PROMPT 35 5 "A stato "
  CHECKTYPE REQUIRED
  NUM_EXPR #SN_ASTATO>=#SN_DASTATO
  WARNING "Lo stato iniziale non puo' essere > dello stato finale"
  GROUP 1
END

ENDPAGE

TOOLBAR "topbar" 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

PAGE "Riga numerazione per fatture da ricevere" -1 -1 78 4

STRING SF_CODNUM 4
BEGIN
  PROMPT 1 1 "Codice numerazione "
  USE %NUM
  CHECKTYPE REQUIRED
  INPUT CODTAB SF_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SF_CODNUM CODTAB
  OUTPUT SF_DESCR S0
  KEY 1
  FLAGS "UZ"
END

STRING SF_DESCR 50
BEGIN
  PROMPT 1 2 "Descrizione        "
  USE %NUM KEY 2
  INPUT S0 SF_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT SF_CODNUM
END

ENDPAGE

TOOLBAR "topbar" 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

PAGE "Riga causali per ratei e risconti" -1 -1 78 4

STRING SR_CODNUM 4
BEGIN
  PROMPT 1 1 "Codice numerazione "
  USE LF_CAUSALI SELECT MOVIND!='' 
  CHECKTYPE REQUIRED
  INPUT CODCAUS SR_CODNUM
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT SR_CODNUM CODCAUS
  OUTPUT SR_DESCR DESCR
  FLAGS "UZ"
END

STRING SR_DESCR 50
BEGIN
  PROMPT 1 2 "Descrizione        "
  USE LF_CAUSALI 
  KEY 2 
  SELECT MOVIND!=''
  INPUT DESCR SR_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT SR_CODNUM
END

ENDPAGE

TOOLBAR "topbar" 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

PAGE "Riga numerazioni di tipo Parcella" -1 -1 78 6

STRING SP_CODNUM 4
BEGIN
  PROMPT 1 1 "Codice numerazione "
  USE %NUM
  CHECKTYPE REQUIRED
  INPUT CODTAB SP_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT SP_CODNUM CODTAB
  OUTPUT SP_DESCR S0
  KEY 1
  FLAGS "UZ"
END

STRING SP_DESCR 50
BEGIN
  PROMPT 1 2 "Descrizione        "
  USE %NUM KEY 2
  INPUT S0 SP_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT SP_CODNUM
END

STRING SP_STATOFATT 1
BEGIN
  PROMPT 1 3 "Stato da cui considerare il documento come fattura "
  CHECKTYPE REQUIRED
END

ENDPAGE

TOOLBAR "topbar" 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