campo-sirio/cg/cg0200b.uml

#include "cg0200.h"

PAGE "" -1 -1 76 16

STRING F_RAGSOCI 50 
BEGIN
PROMPT 1 2 "Rag. soc. "
HELP "Ragione sociale del cliente/fornitore"
GROUP 1
END

STRING F_INDIRI 35
BEGIN
PROMPT 1 4 "Indirizzo "
HELP "Indirizzo del cliente/fornitore"
GROUP 1
END

STRING F_CIVI 10
BEGIN
PROMPT 54 4 "N.       "
HELP "Numero civico del cliente/fornitore"
GROUP 1
END

STRING  F_LOCALI 35
BEGIN
PROMPT 1 5 "Localita  "
HELP "Localita' di residenza del C/F"
GROUP 1
END

STRING F_CAPI 5
BEGIN
PROMPT 54 5 "CAP      "
HELP "Codice di Avviamento Postale del C/F"
FLAGS "RZ"
GROUP 1
END

NUMBER F_STATOI 3
BEGIN
PROMPT 1 6 "Stato     "
FLAGS "Z"
USE %STA
INPUT CODTAB F_STATOI
DISPLAY "Codice" CODTAB
DISPLAY "Stato@50" S0
OUTPUT F_STATOI CODTAB
CHECKTYPE NORMAL
WARNING "Stato assente"
HELP "Codice dello stato del cliente/fornitore"
GROUP 1
END

STRING F_COMI 4
BEGIN
PROMPT 18 6 "Comune "
FLAGS "U"
USE LF_COMUNI
INPUT STATO F_STATOI
INPUT COM F_COMI
DISPLAY "Stato" STATO
DISPLAY "Codice" COM
DISPLAY "Comune@50" DENCOM
OUTPUT F_STATOI STATO
OUTPUT F_COMI COM
OUTPUT F_DENCOMI DENCOM
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD RUN ba4 -0
HELP "Codice del comune del cliente/fornitore"
GROUP 1
END

STRING F_DENCOMI 40
BEGIN
PROMPT 33 6 ""
HELP "Nome del comune del ciente/fornitore"
USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOMI 
DISPLAY "Comune@50" DENCOM
DISPLAY "Stato" STATO
DISPLAY "Codice" COM
COPY OUTPUT F_COMI 
CHECKTYPE NORMAL
ADD RUN ba4 -0
GROUP 1
END

STRING F_INDIR2 35
BEGIN
PROMPT 1 7 "Ind.agg.  "
HELP "Indirizzo aggiuntivo del cliente/fornitore"
GROUP 1
END

GROUPBOX DLG_NULL 72 4
BEGIN
PROMPT 1 8 "Numeri Telefonici"
END

STRING F_PTELI 10
BEGIN
PROMPT 2 9 "Telefono      "
HELP "Prefisso del numero di telefono"
GROUP 1
END

STRING F_TELI 30
BEGIN
PROMPT 40 9 ""
HELP "Numero di telefono del cliente/fornitore"
GROUP 1
END

STRING F_PFAXI 10
BEGIN 
PROMPT 2 10 "Fax           "
HELP "Prefisso del numero di fax"
GROUP 1
END

STRING F_FAXI 30
BEGIN
PROMPT 40 10 ""
HELP "Numero di fax del cliente/fornitore"
GROUP 1
END

BOOLEAN F_IVARIDI 
BEGIN
PROMPT 2 13 "Riduzione IVA"
HELP "Indicare se e' soggetto a riduzione IVA"
GROUP 1
END

ENDPAGE

TOOLBAR "bottombar" 0 0 0 2

BUTTON DLG_OK 10  2
BEGIN
PROMPT 1 1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN 
  PROMPT 2 1 "Elimina"
END

BUTTON DLG_CANCEL 10 2
BEGIN 
PROMPT 3 1 ""
END

ENDPAGE

ENDMASK

PAGE "Contatti" -1 -1 68 7

NUMBER 101 6
BEGIN
  PROMPT 1 0 "Contatto    "
  USE LF_CONTACT KEY 3
  INPUT TIPOCF -F_TIPOCF SELECT
  INPUT CODCF -F_CODCF SELECT
  INPUT CONTACT 101
  DISPLAY "Codice" CONTACT
  DISPLAY "Nome@50" NOME
  DISPLAY "Cognome@50" COGNOME
  OUTPUT 101 CONTACT
  OUTPUT 102 NOME
  OUTPUT 103 COGNOME
  CHECKTYPE REQUIRED
  ADD RUN ba4 -6
END

STRING 102 50
BEGIN
  PROMPT 1 1 "Nome        "
  FLAGS "D"
END

STRING 103 50
BEGIN
  PROMPT 1 2 "Cognome     "
  FLAGS "D"
END

GROUPBOX DLG_NULL 65 4
BEGIN
  PROMPT 1 3 "Documenti / Profili"
END

STRING 104 8 
BEGIN
  PROMPT 2 4 "Tipo 1 "
  CHECKTYPE REQUIRED
END

STRING 105 8 
BEGIN
  PROMPT 24 4 "Tipo 2 "
END

STRING 106 8 
BEGIN
  PROMPT 46 4 "Tipo 3 "
END

STRING 107 8 
BEGIN
  PROMPT 2 5 "Tipo 4 "
END

STRING 108 8 
BEGIN
  PROMPT 24 5 "Tipo 5 "
END

STRING 109 8 
BEGIN
  PROMPT 46 5 "Tipo 6 "
END

ENDPAGE

TOOLBAR "bottombar" 0 0 0 2

BUTTON DLG_OK 10  2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN 
  PROMPT 2 1 "Elimina"
END

BUTTON DLG_CANCEL 10 2
BEGIN 
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK