campo-sirio/ce/ce1301a.uml

#include "ce1301a.h"

TOOLBAR "topbar" 0 0 0 2

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

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Selezione cespiti" -1 -1 78 18

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 1 "@bParametri ditta"
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
  KEY 1
  FIELD CODES
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

RADIOBUTTON F_SELECT 1 75
BEGIN
  PROMPT 1 3 ""
  FLAGS "Z"
  ITEM "A|Attività"
    MESSAGE SHOW,1@|HIDE,2@
  ITEM "I|Impianto"
    MESSAGE SHOW,2@|HIDE,1@
END

NUMBER F_GRUPPO 2
BEGIN
  PROMPT 1 5 "Gruppo    "
  FLAGS "Z"
  GROUP 1
END

STRING F_SPECIE 4
BEGIN
  PROMPT 16 5 "Specie "
  FLAGS "_"
  USE CCB 
  JOIN %CAT ALIAS 400 INTO CODTAB=CODTAB[5,10]
  INPUT CODTAB[1,4] F_ESERCIZIO SELECT
  INPUT CODTAB[5,6] F_GRUPPO
  INPUT CODTAB[7,10] F_SPECIE
  DISPLAY "Gruppo" CODTAB[5,6]
  DISPLAY "Specie" CODTAB[7,10]
  DISPLAY "Descrizione@50" 400@->S0
  OUTPUT F_GRUPPO CODTAB[5,6]
  OUTPUT F_SPECIE CODTAB[7,10]
  OUTPUT F_DESC_GRSP 400@->S0
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_DESC_GRSP 60 45
BEGIN
  PROMPT 31 5 ""
  FLAGS "D"
  GROUP 1
END

NUMBER F_IMPIANTO 10
BEGIN
  PROMPT 1 5 "Impianto  "
  FLAGS "Z"
  USE CIM
  INPUT CODTAB F_IMPIANTO
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_IMPIANTO CODTAB
  OUTPUT F_DESC_IMP S0
  CHECKTYPE FORCED
  GROUP 2
END

STRING F_DESC_IMP 50 45
BEGIN
  PROMPT 26 5 ""
  FLAGS "Z"
  USE CIM KEY 2
  INPUT S0 F_DESC_IMP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@10" CODTAB
  COPY OUTPUT F_IMPIANTO
  CHECKTYPE REQUIRED
  GROUP 2
END

STRING F_IDCESPITE 10
BEGIN
  PROMPT 1 8 "Cespite "
  FLAGS "UZ"
  USE LF_CESPI SELECT (CODCGRA=#F_GRUPPO)&&(CODSPA=#F_SPECIE)
  INPUT IDCESPITE F_IDCESPITE
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Desc@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_DESC DESC
  CHECKTYPE REQUIRED
  FIELD IDCESPITE
  KEY 1
  GROUP 1
END

STRING F_DESC 50
BEGIN
  PROMPT 24 8 ""
  USE LF_CESPI KEY 2 SELECT (CODCGRA=#F_GRUPPO)&&(CODSPA=#F_SPECIE)
  INPUT DESC F_DESC
  DISPLAY "Desc@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
  CHECKTYPE REQUIRED
  GROUP 1
END

STRING F_IDCESPITE_I 10
BEGIN
  PROMPT 1 8 "Cespite "
  FLAGS "UZ"
  USE LF_CESPI SELECT CODIMP=#F_IMPIANTO
  INPUT IDCESPITE F_IDCESPITE_I
  COPY DISPLAY F_IDCESPITE
  OUTPUT F_IDCESPITE_I IDCESPITE
  OUTPUT F_DESC_I DESC
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_IDCESPITE
  FIELD IDCESPITE
  KEY 1
  GROUP 2
END

STRING F_DESC_I 50
BEGIN
  PROMPT 24 8 ""
  USE LF_CESPI KEY 2 SELECT CODIMP=#F_IMPIANTO
  INPUT DESC F_DESC_I
  COPY DISPLAY F_DESC
  COPY OUTPUT F_IDCESPITE_I
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_DESC
  GROUP 2
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 90 ""
  FLAGS "D"
  ITEM "1|1"
  FIELD TPSALDO
  KEY 1
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 91 ""
  FLAGS "D"
  ITEM "1|1"
  FIELD TPAMM
  KEY 1
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 15 "@bRicerce alternative"
END

BUTTON F_SEARCH1 22 2
BEGIN
  PROMPT 2 16 "Per categoria"
END

BUTTON F_SEARCH2 22 2
BEGIN
  PROMPT 28 16 "Per impianto"
END

BUTTON F_SEARCH3 22 2
BEGIN
  PROMPT 54 16 "Per stabilimento"
END

ENDPAGE

ENDMASK