campo-sirio/ce/ce3200a.uml

#include "ce3200a.h"

PAGE "Selezione stampa scheda storico cespite" -1 -1 90 20

GROUPBOX DLG_NULL 80 6
BEGIN
  PROMPT 1 1 "@bParametri ditta"
  FLAGS "R"
END

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

STRING F_DESCRDITTA 60
BEGIN
  PROMPT 18 2 ""
  FLAGS "D"
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 2 3 "Esercizio "
  FLAGS "Z"
  USE ESC
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Inizio esercizio" D0
  DISPLAY "Fine esercizio" D1
  OUTPUT F_INIZIO_ES D0
  OUTPUT F_FINE_ES D1
  OUTPUT F_ESERCIZIO CODTAB
  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 2 4 "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_D_GRUPPO 60 55
BEGIN
   PROMPT 20 4 ""
   FLAGS "D"
END

STRING F_SPECIE 4
BEGIN
  PROMPT 2 5 "Specie  "
  FLAGS "_"
  USE CCB KEY 1
  JOIN %CAT ALIAS 400 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" 400@->S0
  OUTPUT F_SPECIE CODTAB[7,10]
  OUTPUT F_D_SPECIE 400@->S0      
  CHECKTYPE REQUIRED
END

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

GROUPBOX DLG_NULL 80 10
BEGIN
  PROMPT 1 8 "@BSelezione"
  FLAGS "R"
END

RADIOBUTTON F_TIPOSTAMPA 15
BEGIN
  PROMPT 2 9 "@BStampa per:"
  ITEM "0|Cespite"
  MESSAGE ENABLE,F_CODCESP|ENABLE,F_DESCRCESP|CLEAR,F_CATCESP|CLEAR,F_DESCRCAT|CLEAR,F_IMPCESP|CLEAR,F_DESCRIMP
  ITEM "1|Categoria"
  MESSAGE ENABLE,F_CATCESP|ENABLE,F_DESCRCAT|CLEAR,F_CODCESP|CLEAR,F_DESCRCESP|CLEAR,F_IMPCESP|CLEAR,F_DESCRIMP
  ITEM "2|Impianto"
  MESSAGE ENABLE,F_IMPCESP|ENABLE,F_DESCRIMP|CLEAR,F_CODCESP|CLEAR,F_DESCRCESP|CLEAR,F_CATCESP|CLEAR,F_DESCRCAT
END

GROUPBOX DLG_NULL 61 5
BEGIN
  PROMPT 18 9 ""
  FLAGS "R"
END

NUMBER F_CODCESP 10
BEGIN
  PROMPT 19 10 " "
  USE LF_CESPI SELECT STR(CODCGRA==#F_GRUPPO)&&(TRIM(CODSPA)==TRIM(#F_SPECIE))
  INPUT IDCESPITE F_CODCESP
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Descrizione@50" DESC
  OUTPUT F_CODCESP IDCESPITE
  OUTPUT F_DESCRCESP DESC
  FLAGS "Z"
END                    

STRING F_DESCRCESP 50 36
BEGIN
  PROMPT 39 10 ""
  USE LF_CESPI SELECT STR(CODCGRA==#F_GRUPPO)&&(TRIM(CODSPA)==TRIM(#F_SPECIE))
  INPUT DESC F_DESCRCESP
  DISPLAY "Descrizione@50" DESC
  DISPLAY "Codice@10" IDCESPITE
  COPY OUTPUT F_CODCESP
END

NUMBER F_CATCESP 2
BEGIN
  PROMPT 19 11 " "
  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_CATCESP
  DISPLAY "Gruppo" CODTAB[1,2]
  DISPLAY "Specie" CODTAB[3,6]
  DISPLAY "Categoria" CODTAB[7,8]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CATCESP CODTAB[7,8]
  OUTPUT F_DESCRCAT S0 
END

STRING F_DESCRCAT 60 45
BEGIN
  PROMPT 30 11 ""
  USE %CAC SELECT ((CODTAB[1,2]==#F_GRUPPO) && (CODTAB[3,6]==#F_SPECIE)) || (CODTAB[1,6]=="      ")
  INPUT S0 F_DESCRCAT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Categoria" CODTAB[7,8]
  DISPLAY "Gruppo" CODTAB[1,2]
  DISPLAY "Specie" CODTAB[3,6]
  COPY OUTPUT F_CATCESP
END

NUMBER F_IMPCESP 10
BEGIN
  PROMPT 19 12 " "
  USE CIM
  INPUT CODTAB F_IMPCESP
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_IMPCESP CODTAB
  OUTPUT F_DESCRIMP S0          
  FLAGS "Z"
END

STRING F_DESCRIMP 50 36
BEGIN
  PROMPT 39 12 ""
  USE CIM
  INPUT S0 F_DESCRIMP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_IMPCESP 
END

BOOLEAN F_SITFISC
BEGIN
  PROMPT 2 14 "Situazione fiscale"   
END

BOOLEAN F_SITCIV
BEGIN
  PROMPT 2 15 "Situazione civilistica "
END

BOOLEAN F_SITGEST
BEGIN
  PROMPT 2 16 "Situazione gestionale "
END

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

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

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

ENDPAGE
ENDMASK