campo-sirio/ce/ce4100a.uml

#include "ce4100a.h"

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

PAGE "Anagrafica cespiti per commessa" 0 2 0 0

GROUPBOX DLG_NULL 78 5
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 SELECT NRIGA==1
  JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
  INPUT CODES F_ESERCIZIO
  INPUT IDCESPITE F_IDCESPITE
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Descrizione@50" LF_CESPI->DESC
  DISPLAY "Cat." LF_CESPI->CODCAT
  DISPLAY "Impianto@10" LF_CESPI->CODIMP
  DISPLAY "Stabilimento@30" LF_CESPI->STABILIM
  DISPLAY "Reparto@30" LF_CESPI->REPARTO
  DISPLAY "Data Acq.@10" LF_CESPI->DTCOMP
  DISPLAY "Data Ali.@10" LF_CESPI->DTALIEN
  OUTPUT F_ESERCIZIO CODES
  OUTPUT F_IDCESPITE IDCESPITE
  OUTPUT F_IDCESPITE_N IDCESPITE
  OUTPUT F_DESC LF_CESPI->DESC
  CHECKTYPE REQUIRED
  FIELD IDCESPITE
  KEY 1
  GROUP 1
END

STRING F_DESC 60 50
BEGIN
  PROMPT 24 4 ""
  FLAGS "DP"
  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
  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

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 2 6 ""
  ITEM "Codice commessa"
  ITEM "Descrizione@50"
  ITEM "% Utilizzo"
  ITEM "% Copertura"
  ITEM "Valore fondo per commessa"
  USE LF_SALCECMS KEY NRIGA
  INPUT CODES F_ESERCIZIO
  INPUT IDCESPITE F_IDCESPITE
  FLAGS "A"
END

ENDPAGE

ENDMASK

//maschera di riga dello sheet
PAGE "Riga" -1 -1 64 8

STRING S_CODCMS 20
BEGIN
  PROMPT 1 1 "Codice commessa "
  USE LF_COMMESSE
  INPUT CODCMS S_CODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT S_CODCMS CODCMS
  OUTPUT S_DESCMS DESCRIZ
  CHECKTYPE REQUIRED
  FIELD CODCMS
  FLAGS "U"
END

STRING S_DESCMS 50 45
BEGIN
 PROMPT 1 2 "Descrizione "
 FLAGS "D"
END

NUMBER S_PERCUTIL 6 2
BEGIN
  PROMPT 1 3 "Percentuale utilizzo  "
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD PERCUTIL
END

NUMBER S_PERCCOPE 6 2
BEGIN
  PROMPT 1 4 "Percentuale copertura "
  FLAGS "U"
  FIELD PERCCOPE
END

CURRENCY S_FONDO 18
BEGIN
  PROMPT 1 5 "Valore fondo per commessa "
  FIELD FONDO
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK