campo-sirio/m770/771100g.uml

#include "771100.h"

TOOLBAR "" 0 20 0 2

/* questi button vengono abilitati alternativamente
   dal listbox ghost F_TIPOA2BTN */
BUTTON F_BTN_GIURIDICA 10 2
BEGIN
PROMPT -14 -1 "~Giuridiche"
END

BUTTON F_BTN_FISICA 10 2
BEGIN
PROMPT -14 -1 "F~isiche"
END

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

BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -34 -1 ""
MESSAGE EXIT,K_ESC
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -44 -1 ""
MESSAGE EXIT,K_QUIT
END

ENDPAGE

PAGE "Concessione / UIDD" -1 -1 78 18

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
  FLAGS "R"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta             "
  FLAGS "GRD"
  USE LF_NDITTE KEY 1
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA 
  OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
  OUTPUT F_TIPOA TIPOA
  OUTPUT F_ANAGR CODANAGR   
  OUTPUT F_TIPOA2BTN TIPOA                               
  KEY 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 1 2 "Ragione sociale   "
  FLAGS "D"
END                         

STRING F_TIPOA 1
BEGIN
  PROMPT -1 -1 ""
  FLAGS "H"
END

NUMBER F_ANAGR 5
BEGIN
  PROMPT -1 -1 ""
  FLAGS "H"
END       

NUMBER F_CODCONC1 3
BEGIN
  PROMPT 1 5 "Cod.Concessione "
  FLAGS "DRZ"
  FIELD LF_BASEBIS->L0CCONC1
END

NUMBER F_CODCONC2 3
BEGIN
  PROMPT 23 5 "Cod.Concessione "
  FLAGS "RZH"
  USE %UCC
  INPUT CODTAB F_CODCONC2
  DISPLAY "Codice" CODTAB
  DISPLAY "Ufficio@35" S0
  OUTPUT F_CODCONC2 CODTAB
  HELP "Codice dell'ufficio concessioni"
  CHECKTYPE NORMAL   
  FIELD LF_BASEBIS->L0CCONC2
END

NUMBER F_CODCONC3 3
BEGIN
  PROMPT 47 5 "Cod.Concessione "
  FLAGS "RZH"
  COPY USE F_CODCONC2
  INPUT CODTAB F_CODCONC3
  COPY DISPLAY F_CODCONC2
  OUTPUT F_CODCONC3 CODTAB              
  HELP "Codice dell'ufficio concessioni"
  CHECKTYPE NORMAL 
  FIELD LF_BASEBIS->L0CCONC3
END                

NUMBER F_CODTES1 3
BEGIN
  PROMPT 1 6 "Cod.Tesoreria   "
  FLAGS "RZ"
  FIELD LF_BASEBIS->L0CTES1
END

NUMBER F_CODTES2 3
BEGIN
  PROMPT 23 6 "Cod.Tesoreria   "
  FLAGS "RZH"
  FIELD LF_BASEBIS->L0CTES2
END
           
NUMBER F_CODTES3 3
BEGIN
  PROMPT 47 6 "Cod.Tesoreria   "
  FLAGS "RZH"
  FIELD LF_BASEBIS->L0CTES3
END
              
/*
GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 8 ""
END
*/
             
NUMBER F_CODUI 3
BEGIN
  PROMPT 1 9 "Ufficio imposte   "
  FLAGS "RZDH"
  USE %UID
  JOIN LF_COMUNI TO %UID INTO COM==S6
  INPUT CODTAB F_CODUI
  OUTPUT F_DESCRUI S0
  OUTPUT F_INDUI S1
  OUTPUT F_CIVUI S3
  OUTPUT F_CAPUI S7                 
  OUTPUT F_COMUI LF_COMUNI->DENCOM
  OUTPUT F_PROVUI LF_COMUNI->PROVCOM 
  CHECKTYPE NORMAL 
END

STRING F_DESCRUI 50
BEGIN
  PROMPT 25 9 ""
  FLAGS "DH"
END

STRING F_INDUI 35
BEGIN
  PROMPT 1 10 "Indirizzo "
  FLAGS "DH"
END

STRING F_CIVUI 10
BEGIN
  PROMPT 47 10 ""
  FLAGS "DH"
END

STRING F_CAPUI 5
BEGIN
  PROMPT 63 10 "C.A.P. "
  FLAGS "DH"
END

STRING F_COMUI 50
BEGIN
  PROMPT 1 11 "Comune    "
  FLAGS "DH"
END

STRING F_PROVUI 5
BEGIN
  PROMPT 63 11 "Prov.  "
  FLAGS "DH"
END                   

/*           
GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 14 "" 
  FLAGS "H"
END
*/
                     
NUMBER F_CODCS 3
BEGIN
  PROMPT 1 15 "Centro servizi    "
  FLAGS "RZDH"
  USE %UCS
  JOIN LF_COMUNI TO %UCS INTO COM==S6
  INPUT CODTAB F_CODCS
  OUTPUT F_DESCRCS S0
  OUTPUT F_INDCS S1
  OUTPUT F_CIVCS S3
  OUTPUT F_CAPCS S7                  
  OUTPUT F_COMCS LF_COMUNI->DENCOM
  OUTPUT F_PROVCS LF_COMUNI->PROVCOM
  CHECKTYPE NORMAL
END

STRING F_DESCRCS 50
BEGIN
  PROMPT 25 15 ""
  FLAGS "DH"
END
                     
STRING F_INDCS 35
BEGIN
  PROMPT 1 16 "Indirizzo "
  FLAGS "DH"
END

STRING F_CIVCS 10
BEGIN
  PROMPT 47 16 ""
  FLAGS "DH"
END

STRING F_CAPCS 5
BEGIN
  PROMPT 63 16 "C.A.P. "
  FLAGS "DH"
END

STRING F_COMCS 50
BEGIN
  PROMPT 1 17 "Comune    "
  FLAGS "DH"
END

STRING F_PROVCS 5
BEGIN
  PROMPT 63 17 "Prov.  "
  FLAGS "DH"
END   

LISTBOX F_TIPOA2BTN 1 
BEGIN
  PROMPT -1 -1 ""
  FLAGS "GH"
  ITEM "F|F"  
  MESSAGE HIDE,F_BTN_GIURIDICA|SHOW,F_BTN_FISICA
  ITEM "G|G"                            
  MESSAGE SHOW,F_BTN_GIURIDICA|HIDE,F_BTN_FISICA
END                

ENDPAGE 

ENDMASK