campo-sirio/ce/ce2300a.uml

#include "ce2300a.h"

TOOLBAR "Toolbar" 0 -3 0 3

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -16 -11 "~Registra"
  MESSAGE EXIT,K_SAVE
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

BUTTON DLG_NEWREC 10 2
BEGIN
  PROMPT -26 -11 "~Nuovo"
  MESSAGE EXIT,K_INS
  PICTURE BMP_NEWREC
  PICTURE BMP_NEWRECDN
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -36 -11 "~Elimina"
  MESSAGE EXIT,K_DEL
  PICTURE BMP_DELREC
  PICTURE BMP_DELRECDN
END

BUTTON DLG_FINDREC 10 2
BEGIN
  PROMPT -46 -11 "Ri~cerca"
  MESSAGE EXIT,K_F9
  PICTURE 126
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -56 -11 "~Annulla"
  MESSAGE EXIT,K_ESC
  PICTURE 102
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -66 -11 "~Fine"
  MESSAGE EXIT,K_QUIT
  PICTURE BMP_QUIT
  PICTURE BMP_QUITDN
END

ENDPAGE

PAGE "Collegamenti contabili" -1 -1 78 18

GROUPBOX DLG_NULL 78 5
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
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

NUMBER F_GRUPPO 2
BEGIN
  PROMPT 1 4 "Gruppo    "
  FLAGS "PZ"
  FIELD CODGRUPPO
  KEY 1
END

STRING F_SPECIE 4
BEGIN
  PROMPT 16 4 "Specie "
  FLAGS "_P"
  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 FORCED
  FIELD CODSPECIE
  KEY 1
END

STRING F_DESC_GRSP 60 45
BEGIN
  PROMPT 31 4 ""
  FLAGS "D"
END

RADIOBUTTON F_TIPO 1 14
BEGIN
  PROMPT 0 6 "Selezione"
  ITEM "1|Categorie"
    MESSAGE ENABLE,F_CODCAT|CLEAR,F_IDCESPITE|REQUIRED,F_CODCAT|NORMAL,F_IDCESPITE|"1",F_TIPO2
  ITEM "2|Cespiti"
    MESSAGE ENABLE,F_IDCESPITE|CLEAR,F_CODCAT|NORMAL,F_CODCAT|REQUIRED,F_IDCESPITE|"2",F_TIPO2
  GROUP 1  
END

RADIOBUTTON F_TIPO2 1 14
BEGIN
  PROMPT 0 6 "Selezione"
  FLAGS "P"
  ITEM "1|Categorie"
    MESSAGE ENABLE,F_CODCAT2|CLEAR,F_IDCESPITE2|REQUIRED,F_CODCAT2,NORMAL,F_IDCESPITE2
  ITEM "2|Cespiti"
    MESSAGE ENABLE,F_IDCESPITE2|CLEAR,F_CODCAT2|NORMAL,F_CODCAT2,REQUIRED,F_IDCESPITE2
  GROUP 2
END


NUMBER F_CODCAT 2
BEGIN                  
  PROMPT 16 7 ""
  FLAGS "BZ"
  CHECKTYPE REQUIRED
  FIELD CODCAT
  KEY 1
  MESSAGE COPY,F_CODCAT2
  GROUP 1  
END

NUMBER F_CODCAT2 2
BEGIN                  
  PROMPT 16 7 ""
  FLAGS "BHZ"
  DRIVENBY F_GRUPPO
  DRIVENBY F_SPECIE
  CHECKTYPE REQUIRED
  FIELD CODCAT
  MESSAGE COPY,F_CODCAT
  KEY 1
  GROUP 2
END

STRING F_DESCAT 70 54
BEGIN                  
  PROMPT 22 7 ""
  FLAGS "D"
END

STRING F_IDCESPITE 10
BEGIN
  PROMPT 16 8 ""
  FLAGS "UZ"
  USE LF_COLLCES SELECT IDCESPITE!=""
  JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
  INPUT CODGRUPPO F_GRUPPO SELECT
  INPUT CODSPECIE F_SPECIE SELECT
  INPUT IDCESPITE F_IDCESPITE
  DISPLAY "Cespite@10" IDCESPITE
  DISPLAY "Categoria" LF_CESPI->CODCAT
  DISPLAY "Descrizione@50" LF_CESPI->DESC
  OUTPUT F_IDCESPITE IDCESPITE
  OUTPUT F_DESCES LF_CESPI->DESC
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_IDCESPITE2
  FIELD IDCESPITE
  KEY 1
  GROUP 1  
END

STRING F_IDCESPITE2 10
BEGIN
  PROMPT 16 8 ""
  FLAGS "HUZ"
  USE LF_CESPI
  INPUT IDCESPITE F_IDCESPITE2
  COPY DISPLAY F_IDCESPITE
  COPY OUTPUT F_IDCESPITE
  CHECKTYPE REQUIRED
  FIELD IDCESPITE
  MESSAGE COPY,F_IDCESPITE
  KEY 1
  GROUP 2
  WARNING "Inserire un cespite valido"
END

STRING F_DESCES 50 47
BEGIN                  
  PROMPT 29 8 ""
  FLAGS "D"
END

ENDPAGE

ENDMASK