campo-sirio/src/cg/cgtbvet.uml

#include "cgtbvet.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Vettori" 0 2 0 0

GROUPBOX DLG_NULL 75 5
BEGIN
 PROMPT 1 1 ""
 FLAGS "R"
END

STRING F_CODVETT 6
BEGIN
PROMPT 2 2 "Codice vettore  "
FIELD CODTAB
HELP "Codice del vettore"
FLAGS "AZR"
USE %VET
CHECKTYPE REQUIRED
INPUT CODTAB F_CODVETT
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
OUTPUT F_CODVETT CODTAB
OUTPUT F_RAGSO S0[1,30]
OUTPUT F_RAGSOA S0[31,50]
KEY 1
END

BOOLEAN F_ISFISICA
BEGIN
PROMPT 40 2 "Persona Fisica"
FIELD B0
HELPT "Indica se è una persona fisica"
END

STRING F_RAGSO 30
BEGIN
PROMPT 2 3 "Cognome/Ragione sociale     "
HELP "Ragione sociale del vettore"
FIELD S0[1,30]
KEY 2
USE %VET KEY 2
INPUT S0[1,30] F_RAGSO
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
COPY OUTPUT F_CODVETT
CHECKTYPE REQUIRED
END

STRING F_RAGSOA 20
BEGIN
  PROMPT 2 4 "Nome/Seconda parte Rag. Soc."
  FIELD S0[31,50]
  KEY 2
  HELP "Seconda parte della ragione sociale o nome"
END


STRING F_STATOPAIV 2
BEGIN
  PROMPT 2 6 "Partita IVA "
  FIELD S3[50,52]
  HELP "Codice ISO dello stato"
  FLAGS "U"
  USE %SCE
  INPUT CODTAB F_STATOPAIV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATOPAIV CODTAB
  CHECKTYPE REQUIRED
END

STRING F_PAIV 28 16
BEGIN
  PROMPT 20 6 ""
  FIELD S3[21,49]
  HELP "Partita IVA del vettore"
  VALIDATE PI_FUNC  F_STATOPAIV
  CHECKTYPE REQUIRED
END

STRING F_COFI 16
BEGIN
  PROMPT 38 6 "Ident. fiscale"
  FIELD S13[29,45]
  HELP "Codice fiscale del vettore"
END

GROUPBOX DLG_NULL 75 8
BEGIN
 PROMPT 1 7 "Recapito"
 FLAGS "R"
END

STRING F_IND 35
BEGIN
PROMPT 2 8 "Indirizzo"
HELP "Indirizzo di residenza del vettore"
FIELD S1[1,35]
END

STRING F_NUM 10
BEGIN
PROMPT 58 8 "N."
HELP "Numero civico del vettore"
FIELD S1[36,45]
END

STRING F_LOCALITA 35
BEGIN
PROMPT 2 9 "Localita'"
HELP "Localita' di residenza del vettore"
FIELD S1[46,70]
END

STRING F_CAP 5
BEGIN
PROMPT 50 9 "C.A.P."
HELP "C.A.P. di residenza del vettore"
FIELD S7
END

STRING F_PROV 2
BEGIN
PROMPT 65 9 "Pr."
FLAGS "D"
HELP "Provincia di residenza del vettore"
END

STRING F_CODCOM 4
BEGIN
PROMPT 2 10 "Comune   "
HELP "Codice comune di residenza del vettore"
FIELD S9
USE LF_COMUNI
INPUT STATO F_CODNAZ
INPUT COM F_CODCOM
DISPLAY "Stato" STATO
DISPLAY "Cod. comune" COM
DISPLAY "Den. comune@50" DENCOM
OUTPUT F_CODNAZ STATO
OUTPUT F_CODCOM COM
OUTPUT F_DENCOM DENCOM
OUTPUT F_CAP CAPCOM
OUTPUT F_PROV PROVCOM
MESSAGE K_TAB,F_CODNAZ
CHECKTYPE NORMAL
WARNING "Comune assente"
END

STRING F_DENCOM 50
BEGIN
PROMPT 20 10 ""
USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOM
DISPLAY "Comune@50" DENCOM
DISPLAY "Stato" STATO
DISPLAY "Codice" COM
COPY OUTPUT F_CODCOM
HELP "Nome del comune del vettore"
END

NUMBER F_CODNAZ 3
BEGIN
PROMPT 2 11 "Stato    "
HELP "Codice nazione di residenza del vettore"
FIELD S8
FLAGS "RZ"
USE %STA
INPUT CODTAB F_CODNAZ
DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT F_CODNAZ CODTAB
OUTPUT F_DENNAZ S0
CHECKTYPE NORMAL
WARNING "Stato assente"
END

STRING F_DENNAZ 50
BEGIN
PROMPT 20 11 ""
USE %STA KEY 2
INPUT S0 F_DENNAZ
DISPLAY "Stato@50" S0
DISPLAY "Codice" CODTAB
HELP "Nome dello stato del vettore"
COPY OUTPUT F_CODNAZ
END

STRING F_ALBO 15
BEGIN
 PROMPT 2 12 "N.ro iscr.all'albo"
 FIELD S13[1,16]
END

STRING F_EORI 17
BEGIN
 PROMPT 2 13 "Codice EORI       "
 FIELD S2[1,17]
END

GROUPBOX DLG_NULL 75 4
BEGIN
 PROMPT 1 15 "Numeri telefonici"
 FLAGS "R"
END

STRING F_PTEL 10
BEGIN
PROMPT 2 16 "Telefono  "
HELP "Prefisso telefonico del vettore"
FIELD S5[1,10]
FLAGS "U"
END

STRING F_TEL 20
BEGIN
PROMPT 30 16 ""
HELP "Numero telefonico del vettore"
FIELD S3[1,20]
FLAGS "U"
END

STRING F_PFAX 10
BEGIN
PROMPT 2 17 "Fax       "
HELP "Numero di Fax del vettore"
FIELD S5[11,20]
FLAGS "U"
END

STRING F_FAX 20
BEGIN
PROMPT 30 17 ""
HELP "Numero di Fax del vettore"
FIELD S4
FLAGS "U"
END

ENDPAGE

ENDMASK