campo-sirio/m770/771100c.uml

// 771100c.uml - Dati rappresentante
#include "771100.h"

//
// Lista modifiche
//
// 2.4.96	Aggiunto numero di telefono
//

TOOLBAR "" 0 20 0 2

BUTTON F_FISICA 10 2
BEGIN
  PROMPT -14 -1 "~Fisiche"
END

BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -24 -1 ""
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 "Dati relativi al rappresentante" -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 
  KEY 1
END

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

NUMBER F_ANAGR 5
BEGIN
  PROMPT 1 4 "Codice rappresentante   "
  FLAGS "D"             
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  FIELD LF_NDITTE->RAPPR   
  CHECKTYPE NORMAL
  JOIN LF_ANAG INTO CODANAGR=RAPPR TIPOA="F"
  JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR   
  JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
  JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
  JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
  OUTPUT F_COFI 		LF_ANAG->COFI
  OUTPUT F_COGNOME 	LF_ANAG->RAGSOC[1,30]
  OUTPUT F_NOME 		LF_ANAG->RAGSOC[31,50]
  OUTPUT F_SESSO 		LF_ANAGFIS->SESSO
  OUTPUT F_DATANASC LF_ANAGFIS->DATANASC     
  OUTPUT F_COMNASC 	LF_COMUNI->DENCOM
  OUTPUT F_PROVNASC	LF_COMUNI->PROVCOM
  OUTPUT F_INDRES		LF_ANAG->INDRES
  OUTPUT F_CIVRES 	LF_ANAG->CIVRES
  OUTPUT F_CAPRES 	LF_ANAG->CAPRES
  OUTPUT F_INDRF 		LF_ANAG->INDRF
  OUTPUT F_CIVRF 		LF_ANAG->CIVRF
  OUTPUT F_CAPRF 		LF_ANAG->CAPRF
  OUTPUT F_COMRES 	1@->DENCOM
  OUTPUT F_PROVRES 	1@->PROVCOM
  OUTPUT F_COMRF 		2@->DENCOM
  OUTPUT F_PROVRF 	2@->PROVCOM 
  OUTPUT F_DOMFISC 	LF_ANAG->VARSLORES
  OUTPUT F_ANAGR 		LF_ANAGFIS->CODANAGR
  OUTPUT F_PTELRF 	LF_ANAG->PTELRF
  OUTPUT F_TELRF  	LF_ANAG->TELRF   
END

/*
NUMBER F_ANAGR 5
BEGIN
  PROMPT 1 4 "Codice rappresentante   "
  USE LF_ANAGFIS KEY 1
  INPUT CODANAGR F_ANAGR             
  JOIN LF_ANAG TO LF_ANAGFIS INTO CODANAGR=CODANAGR TIPOA="F"   
  JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
  JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
  JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
  DISPLAY "Codice" CODANAGR
  DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
  OUTPUT F_COFI 		LF_ANAG->COFI
  OUTPUT F_COGNOME 	LF_ANAG->RAGSOC[1,30]
  OUTPUT F_NOME 		LF_ANAG->RAGSOC[31,50]
  OUTPUT F_SESSO 		SESSO
  OUTPUT F_DATANASC DATANASC     
  OUTPUT F_COMNASC 	LF_COMUNI->DENCOM
  OUTPUT F_PROVNASC	LF_COMUNI->PROVCOM
  OUTPUT F_INDRES		LF_ANAG->INDRES
  OUTPUT F_CIVRES 	LF_ANAG->CIVRES
  OUTPUT F_CAPRES 	LF_ANAG->CAPRES
  OUTPUT F_INDRF 		LF_ANAG->INDRF
  OUTPUT F_CIVRF 		LF_ANAG->CIVRF
  OUTPUT F_CAPRF 		LF_ANAG->CAPRF
  OUTPUT F_COMRES 	1@->DENCOM
  OUTPUT F_PROVRES 	1@->PROVCOM
  OUTPUT F_COMRF 		2@->DENCOM
  OUTPUT F_PROVRF 	2@->PROVCOM 
  OUTPUT F_DOMFISC 	LF_ANAG->VARSLORES
  OUTPUT F_ANAGR 		LF_ANAGFIS->CODANAGR
  OUTPUT F_PTELRF 	LF_ANAG->PTELRF
  OUTPUT F_TELRF  	LF_ANAG->TELRF   
  FIELD LF_BASE->RAPPR
  CHECKTYPE NORMAL
  FLAGS "R"
END
*/
STRING F_COFI 16
BEGIN
  PROMPT 1 5 "Codice fiscale "
  FLAGS "D" 
END

STRING F_COGNOME 30
BEGIN
  PROMPT 1 6 "Cognome        "
  FLAGS "D"
END

STRING F_NOME 20
BEGIN
  PROMPT 1 7 "Nome           "
  FLAGS "D"
END 

STRING F_SESSO 1
BEGIN
  PROMPT 39 7 "Sesso "   
  FLAGS "D"
END

DATE F_DATANASC 
BEGIN
  PROMPT 49 7 "Data di nascita "
  FLAGS "D"
END

STRING F_COMNASC 50
BEGIN
  PROMPT 1 8 "Comune nascita "
  FLAGS "D"
END

STRING F_PROVNASC 5
BEGIN
  PROMPT 70 8 ""
  FLAGS "D"
END

LIST F_CARRAP 51
BEGIN
  PROMPT 1 9 "Carica         "
  HELP "Codice della carica del rappresentante legale"
  ITEM " |Nessun rappresentante"
  ITEM "1|Rappresentante legale o di fatto"
  ITEM "2|Curatore fallimentare"
  ITEM "3|Liquidatore"
  ITEM "4|Nominato in Italia per societ<65> con sede all'estero"
  ITEM "5|Erede"
  ITEM "6|Curatore di eredit<69> giacente"
  FIELD LF_BASE->CARRAPP
END

BOOLEAN F_DOMFISC
BEGIN
  PROMPT 15 10 "Dom.fiscale o residenza variati rispetto all'anno precedente "
  FLAGS "D"
END

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

STRING F_INDRES 35
BEGIN
  PROMPT 1 11 "Indirizzo "
  FLAGS "D"
END

STRING F_CIVRES 10
BEGIN
  PROMPT 47 11 ""
  FLAGS "D"
END

STRING F_CAPRES 5
BEGIN
  PROMPT 63 11 "C.A.P. "
  FLAGS "D"
END

STRING F_COMRES 50
BEGIN
  PROMPT 1 12 "Comune    "
  FLAGS "D"
END

STRING F_PROVRES 5
BEGIN
  PROMPT 63 12 "Prov.  "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 14 "Domicilio fiscale "
END

STRING F_PTELRF 10
BEGIN
  PROMPT 1 15 "Telefono  "
  FLAGS "D"
END

STRING F_TELRF 30
BEGIN
  PROMPT 20 15 ""
  FLAGS "D"
END

STRING F_INDRF 35
BEGIN
  PROMPT 1 16 "Indirizzo "
  FLAGS "D"
END

STRING F_CIVRF 10
BEGIN
  PROMPT 47 16 ""
  FLAGS "D"
END

STRING F_CAPRF 5
BEGIN
  PROMPT 63 16 "C.A.P. "
  FLAGS "D"
END

STRING F_COMRF 50
BEGIN
  PROMPT 1 17 "Comune    "
  FLAGS "D"
END

STRING F_PROVRF 5
BEGIN
  PROMPT 63 17 "Prov.  "
  FLAGS "D"
END

ENDPAGE 

ENDMASK