campo-sirio/m770/771100h.uml

// Manutenzione società trasformate 

#include "771100.h"
TOOLBAR "" 0 20 0 2    

BUTTON DLG_SAVEREC 8 2
BEGIN
PROMPT -16 -1 ""
FLAGS "D"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END

BUTTON DLG_NEWREC 8 2
BEGIN
PROMPT -26 -1 "~Nuovo"
MESSAGE EXIT,K_INS
FLAGS "D"  
PICTURE BMP_NEWREC
PICTURE BMP_NEWRECDN
END

BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -36 -1 "~Elimina"
MESSAGE EXIT,K_DEL
FLAGS "D"
END

BUTTON DLG_FINDREC 8 2
BEGIN
PROMPT -46 -1 "Ri~cerca"
MESSAGE EXIT,K_F9
FLAGS "D" 
PICTURE BMP_FINDREC
END

BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -56 -1 ""
MESSAGE EXIT,K_ESC
END

BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -66 -1 ""
MESSAGE EXIT,K_QUIT
END

ENDPAGE

PAGE " Manutenzione dati societa' trasformate " -1 -1 78 18

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

NUMBER MDSTF_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta             "
  FLAGS "GRD"
  KEY 1
  CHECKTYPE REQUIRED             
  USE LF_NDITTE KEY 1
  INPUT CODDITTA MDSTF_CODDITTA
  OUTPUT MDSTF_RAGSOC RAGSOC
  FIELD LF_SOCTRASF->CODDITTA
END

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

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 4 "Persone fisiche: imprese individuali e soggetti esercenti arti e professioni"
  GROUP 1
END

STRING F_SOC_COFI 16
BEGIN
  PROMPT 1 5 "Codice fiscale "
  CHECKTYPE REQUIRED
  FIELD LF_SOCTRASF->CODFISC 
  GROUP 1
END                       

STRING F_SOC_COGNOME 30
BEGIN
  PROMPT 1 6 "Cognome        "    
  CHECKTYPE REQUIRED
  FIELD LF_SOCTRASF->DENOMIN[1,30]  
  GROUP 1
END

TEXT DLG_NULL
BEGIN
  PROMPT 48 6 "(Per donne quello da nubile)"
  GROUP 1
END

STRING F_SOC_NOME 20
BEGIN
  PROMPT 1 7 "Nome           "
  CHECKTYPE REQUIRED
  FIELD LF_SOCTRASF->NOME
  GROUP 1
END                            

STRING F_SOC_SESSO 1
BEGIN
  PROMPT 39 7 "Sesso "
  FIELD LF_SOCTRASF->SESSO
  GROUP 1
END

DATE F_SOC_DATANAS
BEGIN
  PROMPT 48 7 "Data di nascita  "
  FIELD LF_SOCTRASF->DATANAS
  GROUP 1
END

STRING F_SOC_COMUNE 20
BEGIN
  PROMPT 1 8 "Comune         "
  FIELD LF_SOCTRASF->COMNAS
  GROUP 1
END

STRING F_SOC_PROVNAS 2
BEGIN
  PROMPT 48 8 "Provincia        "
  FIELD LF_SOCTRASF->PROVNAS
  GROUP 1                    
  FLAGS "U"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 4 "Altri soggetti: art.5 e 87 del T.U. imposte sui redditi DPR 22/12/1986 n.917"
  GROUP 2
END

STRING F_SOC_COFIG 16
BEGIN
  PROMPT 1 5 "Codice fiscale "
  CHECKTYPE REQUIRED
  FIELD LF_SOCTRASF->CODFISC 
  GROUP 2
END                       

STRING F_SOC_DENOMIN 40
BEGIN
  PROMPT 1 6 "Denominazione  "
  CHECKTYPE REQUIRED
  FIELD LF_SOCTRASF->DENOMIN
  GROUP 2
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 10 "Domicilio"  
END

STRING F_SOC_COMRES 20
BEGIN
  PROMPT 1 11 "Comune         " 
  FIELD LF_SOCTRASF->COMDOM
END

STRING F_SOC_PROVRES 2
BEGIN
  PROMPT 48 11 "Provincia        "
  FIELD LF_SOCTRASF->PROVDOM
  FLAGS "U"
END

STRING F_SOC_INDRES 35
BEGIN
  PROMPT 1 12 "Indirizzo      "
  FIELD LF_SOCTRASF->INDDOM
END

NUMBER F_SOC_CONSBOCC 5
BEGIN
  PROMPT 1 14 "Consistenza base occupazionale al 12/06/94                           "
  FIELD LF_SOCTRASF->CONSBOCC
END

NUMBER F_SOC_LAVDIPCIN 5
BEGIN
  PROMPT 1 15 "Lavoratori dipendenti in mobilita' o cassa integrazione al 12/06/94  "
  FIELD LF_SOCTRASF->LAVDIPCIN
END

DATE F_SOC_DATAINPI
BEGIN  
  PROMPT 1 16 "Periodo d'imposta dal "
  FIELD LF_SOCTRASF->DATAINPI
END

DATE F_SOC_DATAFINPI
BEGIN
  PROMPT 34 16 " al "
  FIELD LF_SOCTRASF->DATAFINPI
END

ENDPAGE 

ENDMASK