campo-sirio/m770/771100d.uml

#include "771100.h"

TOOLBAR "" 0 20 0 2

BUTTON F_ANAGRAFICA 10 2
BEGIN
  PROMPT -15 -1 "~Anagrafica" 
END

BUTTON F_ATTIVITA 10 2
BEGIN
  PROMPT -25 -1 "~Attivit<69>" 
END

BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -35 -1 "~Registra"
MESSAGE EXIT,K_SAVE
END

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

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

ENDPAGE

PAGE "Luogo di conservazione delle scritture contabili" -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 
  JOIN LF_ATTIV TO LF_NDITTE INTO CODDITTA=CODDITTA CODATT=CODATTPREV
  JOIN LF_COMUNI TO LF_ATTIV INTO COM==COMCS
  OUTPUT F_RAGSOC		LF_NDITTE->RAGSOC  
  OUTPUT F_ATTIV 		LF_ATTIV->CODATT
  OUTPUT ASCF_TIPOA LF_ATTIV->TIPOADS
  OUTPUT F_ANAGR 		LF_ATTIV->CODANGRDS   
  OUTPUT F_INDCS 		LF_ATTIV->INDCS
  OUTPUT F_CIVCS 		LF_ATTIV->CIVCS
  OUTPUT F_CAPCS 		LF_ATTIV->CAPCS
  OUTPUT F_COMCS 		LF_COMUNI->DENCOM
  OUTPUT F_PROVCS 	LF_COMUNI->PROVCOM 
  OUTPUT F_PTELCS 	LF_ATTIV->PTELCS
  OUTPUT F_TELCS 		LF_ATTIV->TELCS   
  KEY 1
END

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

STRING F_ATTIV 5
BEGIN
  PROMPT -1 -1 ""
  FLAGS "H"
END

LIST ASCF_TIPOA 9
BEGIN
  PROMPT 1 5 "Tipo persona " 
  ITEMS "G|Societa'"
  ITEMS "F|Fisica"
  FLAGS "D"
END
  
NUMBER F_ANAGR 5
BEGIN
  PROMPT 52 5 "Codice depositario "
  FLAGS "RD"
END
  
STRING F_COGNOME 30
BEGIN
  PROMPT 1 7 "Cognome/Nome "
  FLAGS "D"
END

STRING F_NOME 20
BEGIN
  PROMPT 45 7 ""
  FLAGS "D"
END 

STRING F_RAGIONE 50
BEGIN
  PROMPT 1 7 "Ragione soc. "
  FLAGS "D"
END

STRING F_IND 35
BEGIN
  PROMPT 1 8 "Indirizzo    "
  FLAGS "D"
END

STRING F_CIV 10 
BEGIN
  PROMPT 50 8 ""
  FLAGS "D"
END

STRING F_CAP 5
BEGIN
  PROMPT 64 8 "C.A.P. "
  FLAGS "D"
END
  
STRING F_COM 50
BEGIN
  PROMPT 1 9 "Comune       "
  FLAGS "D"
END

STRING F_PROV 5
BEGIN
  PROMPT 66 9 "Prov."
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 11 "Luogo di conservazione delle scritture contabili (solo se diverso)"
END

STRING F_INDCS 35
BEGIN
  PROMPT 1 12 "Indirizzo "
  FLAGS "D"
END

STRING F_CIVCS 10
BEGIN
  PROMPT 47 12 ""
  FLAGS "D"
END

STRING F_CAPCS 5
BEGIN
  PROMPT 63 12 "C.A.P. "
  FLAGS "D"
END

STRING F_COMCS 50
BEGIN
  PROMPT 1 13 "Comune    "
  FLAGS "D"
END

STRING F_PROVCS 5
BEGIN
  PROMPT 63 13 "Prov.  "
  FLAGS "D"
END                   

STRING F_PTELCS 10
BEGIN
  PROMPT 1 14 "Telefono  " 
  FLAGS "D"
END

STRING F_TELCS 30
BEGIN
  PROMPT 22 14 ""
  FLAGS "D"
END

ENDPAGE 

ENDMASK