campo-sirio/ce/ce2100a.uml

#include "ce2100a.h"

TOOLBAR "Toolbar" 0 -3 0 3

BUTTON DLG_OK 10 2
BEGIN    
  PROMPT -12 -11 "~Elabora"
  PICTURE BMP_ELABORA
END

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

ENDPAGE

PAGE "Calcolo ammortamenti" -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 ESC
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Inizio esercizio" D0
  DISPLAY "Fine esercizio" D1
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_INIZIO_ES D0
  OUTPUT F_FINE_ES D1
  CHECKTYPE REQUIRED
  FIELD CODTAB[1,4]
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 "Z"
  FIELD CODTAB[5,6]
END

STRING F_SPECIE 4
BEGIN
  PROMPT 12 4 "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
  OUTPUT F_DATA_CALC D0
  OUTPUT F_SPMS_MATGEN R0
  OUTPUT F_SPMS_AUTOTRAS R1
  OUTPUT F_MSPD_MATGEN R2
  OUTPUT F_MSPD_AUTOTRAS R3
  CHECKTYPE REQUIRED
  FIELD CODTAB[7,10]
END

STRING F_DESC_GRSP 60 50
BEGIN
  PROMPT 26 4 ""
  FLAGS "D"
END

DATA F_DATA_CALC
BEGIN
  PROMPT 1 5 "Data ultimo calcolo ammortamento "
  FLAGS "D"
  FIELD D0
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 7 "@bSpese di manutenzione sostenute"
END

CURRENCY F_SPMS_MATGEN 18
BEGIN
  PROMPT 1 8 "Per beni materiali generici (deduz. al 5%) "
  FIELD R0
END

CURRENCY F_SPMS_AUTOTRAS 18
BEGIN
  PROMPT 1 9 "Per autotrasporti c/terzi (deduz. al 25%)  "
  FIELD R1
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 11 "@bMonte spese deducibili"
END

CURRENCY F_MSPD_MATGEN 18
BEGIN
  PROMPT 1 12 "Per beni materiali generici (deduz. al 5%) "
  FLAGS "D"
  FIELD R2
END

CURRENCY F_MSPD_AUTOTRAS 18
BEGIN
  PROMPT 1 13 "Per autotrasporti c/terzi (deduz. al 25%)  "
  FLAGS "D"
  FIELD R3
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 15 "@bSpese di manutenzione eccedenti"
END

CURRENCY F_SPME_MATGEN 18
BEGIN
  PROMPT 1 16 "Per beni materiali generici (deduz. al 5%) "
  FLAGS "D"
END

CURRENCY F_SPME_AUTOTRAS 18
BEGIN
  PROMPT 1 17 "Per autotrasporti c/terzi (deduz. al 25%)  "
  FLAGS "D"
END

ENDPAGE
       
ENDMASK