campo-sirio/ce/ce3100a.uml

#include "ce3100a.h"

TOOLBAR "" 0 -3 0 3

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -11 ""
  PICTURE BMP_PRINT
END

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

ENDPAGE

PAGE "Stampa Registro cespiti" -1 -1 78 6

GROUPBOX DLG_NULL 77 6
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER F_CODDITTA 5
BEGIN
   PROMPT 2 1 "Ditta "
   FLAGS "DF"
   USE LF_NDITTE
   INPUT CODDITTA F_CODDITTA
   OUTPUT F_RAGSOC RAGSOC
   CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
   PROMPT 15 1 ""
   FLAGS "D"
END

NUMBER F_ESERCIZIO 4
BEGIN
   PROMPT 2 2 "Esercizio "
   FLAGS "Z"
   USE CCE
   JOIN ESC ALIAS 105 INTO CODTAB==CODTAB
   INPUT CODTAB F_ESERCIZIO
   DISPLAY "Codice esercizio" CODTAB 
   DISPLAY "Data inizio esercizio" 105@->D0
   DISPLAY "Data fine esercizio" 105@->D1
   OUTPUT F_ESERCIZIO CODTAB
   OUTPUT F_DATAINIZIO 105@->D0
   OUTPUT F_DATAFINE 105@->D1
   CHECKTYPE REQUIRED
   MESSAGE CHECK,F_SPECIE
END

DATE F_DATAINIZIO 
BEGIN
   PROMPT 20 2 "Data inizio "
   FLAGS "D"
END

DATE F_DATAFINE
BEGIN
  PROMPT 45 2 "Data fine " 
  FLAGS "D"
END

NUMBER F_GRUPPO 2
BEGIN
   PROMPT 2 3 "Gruppo    "
   FLAGS "Z"
   USE CCB KEY 1
   JOIN %CGR ALIAS 106 INTO CODTAB==CODTAB[5,6]
   INPUT CODTAB[1,4] F_ESERCIZIO SELECT
   INPUT CODTAB[5,6] F_GRUPPO
   INPUT CODTAB[7,10] F_SPECIE
   DISPLAY "Codice" CODTAB[5,6]
   DISPLAY "Descrizione@60" 106@->S0
   OUTPUT F_GRUPPO CODTAB[5,6]
   OUTPUT F_D_GRUPPO 106@->S0
   CHECKTYPE NORMAL
END

STRING F_SPECIE 4
BEGIN
   PROMPT 2 4 "Specie    "
   FLAGS "_"         
   USE CCB KEY 1
   JOIN %CAT ALIAS 107 INTO CODTAB[1,2]==CODTAB[5,6] CODTAB[3,6]==CODTAB[7,10]
   INPUT CODTAB[1,4] F_ESERCIZIO SELECT
   INPUT CODTAB[5,6] F_GRUPPO SELECT
   INPUT CODTAB[7,10] F_SPECIE
   DISPLAY "Gruppo" CODTAB[5,6]
   DISPLAY "Specie" CODTAB[7,10]
   DISPLAY "Descrizione@60" 107@->S0
   OUTPUT F_SPECIE CODTAB[7,10]
   OUTPUT F_D_SPECIE 107@->S0
   OUTPUT F_CODREG S6
   CHECKTYPE NORMAL
END

STRING F_D_GRUPPO 60 55
BEGIN
   PROMPT 20 3 ""
   FLAGS "D"
END

STRING F_D_SPECIE 60 55
BEGIN
   PROMPT 20 4 ""
   FLAGS "D"
END

DATE F_DATAULTCALC
BEGIN
  PROMPT 2 6 "Data ultimo calcolo ammortamenti "
  FLAGS "D"
END
           
STRING F_CATINI 2
BEGIN
   PROMPT 2 7 "Da categoria  "
   USE %CAC // SELECT ((CODTAB[1,2]==#F_GRUPPO) && (CODTAB[3,6]==#F_SPECIE)) || (CODTAB[1,6]=="      ")
   INPUT CODTAB[1,2] F_GRUPPO
   INPUT CODTAB[3,6] F_SPECIE
   INPUT CODTAB[7,8] F_CATINI
   DISPLAY "Gruppo" CODTAB[1,2]
   DISPLAY "Specie" CODTAB[3,6]
   DISPLAY "Cat." CODTAB[7,8]
   DISPLAY "Descrizione@60" S0
   OUTPUT F_CATINI CODTAB[7,8]
   OUTPUT F_D_CATINI S0
   CHECKTYPE SEARCH
   GROUP 1
END

STRING F_D_CATINI 60 50
BEGIN
   PROMPT 22 7 ""
   USE %CAC // SELECT ((CODTAB[1,2]==#F_GRUPPO) && (CODTAB[3,6]==#F_SPECIE)) || (CODTAB[1,6]=="      ")
   INPUT S0 F_D_CATINI
   DISPLAY "Descrizione@50" S0
   DISPLAY "Categoria" CODTAB[7,8]
   DISPLAY "Gruppo" CODTAB[1,2]
   DISPLAY "Specie" CODTAB[3,6]
   COPY OUTPUT F_CATINI
   CHECKTYPE SEARCH
   GROUP 1
END

STRING F_CATFIN 2
BEGIN
   PROMPT 2 8 "A categoria   "
   USE %CAC // SELECT ((CODTAB[1,2]==#F_GRUPPO) && (CODTAB[3,6]==#F_SPECIE)) || (CODTAB[1,6]=="      ")
   INPUT CODTAB[1,2] F_GRUPPO
   INPUT CODTAB[3,6] F_SPECIE 
   INPUT CODTAB[7,8] F_CATFIN
   DISPLAY "Gruppo" CODTAB[1,2]
   DISPLAY "Specie" CODTAB[3,6]
   DISPLAY "Cat." CODTAB[7,8]
   DISPLAY "Descrizione@60" S0
   OUTPUT F_CATFIN CODTAB[7,8]
   OUTPUT F_D_CATFIN S0 
   CHECKTYPE SEARCH
   GROUP 1
END

STRING F_D_CATFIN 60 50
BEGIN
   PROMPT 22 8 ""
   USE %CAC // SELECT ((CODTAB[1,2]==#F_GRUPPO) && (CODTAB[3,6]==#F_SPECIE)) || (CODTAB[1,6]=="      ")
   INPUT S0 F_D_CATFIN
   DISPLAY "Descrizione@50" S0
   DISPLAY "Categoria" CODTAB[7,8]
   DISPLAY "Gruppo" CODTAB[1,2]
   DISPLAY "Specie" CODTAB[3,6]
   COPY OUTPUT F_CATFIN 
   CHECKTYPE SEARCH
   GROUP 1
END

RADIOBUTTON F_TIPOREGISTRO 30
BEGIN
  PROMPT 2 9 "Stampa registro"
  ITEM "1|di Prova"

  MESSAGE ENABLE, F_AMMORTAMENTI|ENABLE,1@
  ITEM "2|Bollato"
  MESSAGE "X",F_CALCOLO|CLEAR,1@
  MESSAGE "1",F_AMMORTAMENTI|DISABLE,F_AMMORTAMENTI
  FLAGS "Z"
END

STRING F_CODREG 3
BEGIN
  PROMPT 35 10 "Codice registro "
  FLAGS "D" 
END
   
BOOLEAN F_CALCOLO
BEGIN
  PROMPT 2 12 "Esegui calcolo ammortamenti prima di stampare"
END
   
RADIOBUTTON F_AMMORTAMENTI 16
BEGIN
  PROMPT 2 13 "Ammortamenti"
  ITEM "1|Fiscali"
  ITEM "2|Civilistici"
END

ENDPAGE