campo-sirio/src/ce/ce4100a.uml

#include "ce4100a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_CALCPERC 2 2
BEGIN    
  PROMPT 1 1 "~Calcola"
  PICTURE TOOL_RECALC
END

BUTTON DLG_COPY 2 2
BEGIN    
  PROMPT 1 1 "~Genera"
  PICTURE TOOL_COPY
END

#include <relapbar.h>
ENDPAGE

PAGE "Ripartizione analitica cespiti" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 1 "@bParametri cespite"
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 1 2 "Ditta     "
  FLAGS "DF"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 26 2 ""
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FLAGS "D"
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 1 3 "Esercizio "
  FLAGS "AZ"
  USE CCE
  JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Inizio esercizio" 104@->D0
  DISPLAY "Fine esercizio" 104@->D1
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_INIZIO_ES 104@->D0
  OUTPUT F_FINE_ES 104@->D1
  CHECKTYPE REQUIRED
  FIELD CODES
  KEY 1
END

DATE F_INIZIO_ES
BEGIN
  PROMPT 26 3 "Inizio "
  FLAGS "D"
END

DATE F_FINE_ES
BEGIN
  PROMPT 50 3 "Fine "
  FLAGS "D"
END

LIST F_NRIGA 3
BEGIN
  PROMPT 1 100 ""
  FLAGS "D"
  ITEM "1|1"
  FIELD NRIGA
  KEY 1
END

STRING F_IDCESPITE 10
BEGIN
  PROMPT 1 4 "Cespite "
  FLAGS "UZ"
  USE LF_SALCECMS KEY 2 SELECT NRIGA==1
  JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
  INPUT CODES F_ESERCIZIO SELECT
  INPUT IDCESPITE F_IDCESPITE
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Descrizione@50" LF_CESPI->DESC
  DISPLAY "Cat." LF_CESPI->CODCAT
  DISPLAY "Esercizio" CODES
  OUTPUT F_IDCESPITE IDCESPITE
  OUTPUT F_IDCESPITE_N IDCESPITE
  OUTPUT F_DESC LF_CESPI->DESC
  CHECKTYPE FORCED
  FIELD IDCESPITE
  KEY 1
  GROUP 1
END

STRING F_DESC 60 50
BEGIN
  PROMPT 26 4 ""
  FLAGS "DPG"
  GROUP 1
END

STRING F_IDCESPITE_N 10
BEGIN
  PROMPT 1 4 "Cespite "
  FLAGS "UZ"
  FIELD IDCESPITE
  USE LF_CESPI
  INPUT IDCESPITE F_IDCESPITE_N
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Descrizione@50" DESC
  DISPLAY "Cat." CODCAT
  DISPLAY "Impianto@10" CODIMP
  DISPLAY "Stabilimento@30" STABILIM
  DISPLAY "Reparto@30" REPARTO
  DISPLAY "Data Acq.@10" DTCOMP
  DISPLAY "Data Ali.@10" DTALIEN
  OUTPUT F_IDCESPITE IDCESPITE
  OUTPUT F_IDCESPITE_N IDCESPITE
  OUTPUT F_DESC_N DESC
  CHECKTYPE REQUIRED
  FIELD IDCESPITE
  KEY 1
  GROUP 2
END

STRING F_DESC_N 60 50
BEGIN
  PROMPT 24 4 ""
  USE LF_CESPI KEY 3
  INPUT DESC F_DESC_N
  DISPLAY "Descrizione@50" DESC
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Cat." CODCAT
  DISPLAY "Impianto@10" CODIMP
  DISPLAY "Stabilimento@30" STABILIM
  DISPLAY "Reparto@30" REPARTO
  DISPLAY "Data Acq.@10" DTCOMP
  DISPLAY "Data Ali.@10" DTALIEN
  COPY OUTPUT F_IDCESPITE_N
  CHECKTYPE REQUIRED
  GROUP 2
  KEY 2	//chiave civetta per provocare l'entrata in modalita' INSERIMENTO in caso di ricerca per descrizione
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "Date limite di uso del cespite nell'esercizio"
END

DATE F_INIZIO_CES
BEGIN
  PROMPT 40 5 "Inizio "
  FLAGS "D"
END

DATE F_FINE_CES
BEGIN
  PROMPT 61 5 "Fine "
  FLAGS "D"
END

SPREADSHEET F_RIGHE -1 -1
BEGIN
  PROMPT 1 8 "@bRipartizione cespite"
  ITEM "Commessa@20"
  ITEM "Fase@10"
  ITEM "Centro di costo@20"
  ITEM "Inizio Uso"
  ITEM "Fine Uso@10"
  ITEM "% Utilizzo"
  ITEM "Inizio Cms"
  ITEM "Fine Cms@10"
  ITEM "Proroga Cms"
  USE LF_SALCECMS KEY NRIGA
  INPUT CODES F_ESERCIZIO
  INPUT IDCESPITE F_IDCESPITE
  FLAGS "A"
END

ENDPAGE

PAGE "Istruzioni" 0 2 0 0

TEXT DLG_NULL
BEGIN
  PROMPT 1 1 "- Esercizio: <20> l'esercizio per cui la ripartizione inserita <20> valida"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 2 "- Inizio - Fine uso: sono le date limite di utilizzo del cespite per la chiave CdC/Cms/Fase sulla stessa riga"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 3 "  Tali date devono ricadere all'interno della durata della Commessa, se presente, oppure all'interno della"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 4 "  vita utile del cespite nell'esercizio selezionato (il cespite potrebbe essere stato acquistato o venduto"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "  nel corso dell'esercizio selezionato, riducendone cos<6F> il periodo di utilizzo)."
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 6 "- % utilizzo: <20> la % di uso del cespite, nell'esercizio selezionato, attribuita alla chiave CdC/Cms/Fase"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "  sulla stessa riga. Viene proposta in automatico una volta immesse le date di inizio - fine uso, ma"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 8 "  pu<70> essere corretta manualmente."
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 9 "- Una volta terminata l'assegnazione delle varie % uso sulle righe, la quota mancante per raggiungere"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 10 "  la copertura temporale completa dell'esercizio viene assegnata alla chiave CdC/Cms/Fase standard"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 11 "  precedentemente definita nella tabella Esercizi cespiti per ogni esercizio."
END

ENDPAGE

ENDMASK

//maschera di riga dello sheet
PAGE "Riga" -1 -1 76 9

STRING S_CODCMS 20
BEGIN
  PROMPT 1 1 "Commessa  "
  USE LF_COMMESSE
  INPUT CODCMS S_CODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT S_CODCMS CODCMS
  OUTPUT S_DESCMS DESCRIZ
  OUTPUT S_DTINICMS DATAINIZIO
  OUTPUT S_DTFINCMS DATAFINE
  OUTPUT S_DTPRORCMS DATAPROR
  CHECKTYPE NORMAL
  FIELD CODCMS
  FLAGS "U"
END

STRING S_DESCMS 50 37
BEGIN
  PROMPT 35 1 ""
  USE LF_COMMESSE KEY 2
  INPUT DESCRIZ S_DESCMS
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCMS
  COPY OUTPUT S_CODCMS
END

STRING S_CODFASE 10
BEGIN
  PROMPT 1 3 "Fase      "
  USE LF_FASI
  INPUT CODCMSFAS S_CODCMS SELECT
  INPUT CODFASE S_CODFASE
  DISPLAY "Fase@10" CODFASE
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT S_CODFASE CODFASE
  OUTPUT S_DESFASE DESCRIZ
  CHECKTYPE NORMAL
  FIELD CODFASE
  FLAGS "U"
END

STRING S_DESFASE 50 37
BEGIN
  PROMPT 35 3 ""
  FLAGS "D"
END

STRING S_CODCDC 20
BEGIN
  PROMPT 1 4 "C.d.costo "
  USE LF_CDC
  INPUT CODCOSTO S_CODCDC
  DISPLAY "Codice@20" CODCOSTO
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT S_CODCDC CODCOSTO
  OUTPUT S_DESCDC DESCRIZ
  CHECKTYPE NORMAL
  FIELD CODCDC
  FLAGS "U"
END

STRING S_DESCDC 50 37
BEGIN
  PROMPT 35 4 ""
  USE LF_CDC KEY 2
  INPUT DESCRIZ S_DESCDC
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCOSTO
  COPY OUTPUT S_CODCDC
END

GROUPBOX DLG_NULL 72 4 
BEGIN
  PROMPT 1 5 "Uso cespite"
END

DATE S_DTINIUSE
BEGIN
  PROMPT 2 6 "Inizio "
  FIELD DTINIUSE
END

DATE S_DTFINUSE
BEGIN
  PROMPT 24 6 "Fine "
  FIELD DTFINUSE
  VALIDATE DATE_CMP_FUNC >= S_DTINIUSE
  WARNING "La data fine uso non pu<70> essere precedente alla data inizio uso!"
END

NUMBER S_PERCUTIL 6 2
BEGIN
  PROMPT 2 7 "% uso  "
  FLAGS "U"
  FIELD PERCUTIL
END

DATE S_DTINICMS 
BEGIN
  PROMPT 1 2 "Inizio    "
  FLAGS "D"
END

DATE S_DTFINCMS
BEGIN
  PROMPT 30 2 "Fine "
  FLAGS "D"
END

DATE S_DTPRORCMS
BEGIN
  PROMPT 54 2 "Proroga "
  FLAGS "D"
END
  
ENDPAGE

TOOLBAR "bottombar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK