campo-sirio/ve/vetbdip.uml

#include "vetbdip.h"

TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE

PAGE "Tabella dipendenti" 11 60 14

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

STRING F_CODICE 16
BEGIN
  PROMPT 2 1 "Codice  "
  FIELD CODTAB
  KEY 1
  USE DIP
  FLAGS "U"
  INPUT CODTAB  F_CODICE
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Cognome@40" S0[1,40]
  DISPLAY "Nome@30" S0[41,70]
  OUTPUT F_CODICE CODTAB
  OUTPUT F_COGNOME S0[1,40]
  OUTPUT F_NOME S0[41,70]
  CHECKTYPE REQUIRED
  MESSAGE COPY,11@
END

STRING F_COGNOME 40
BEGIN
  PROMPT 2 2 "Cognome "
  FIELD S0[1,40]
  KEY 2
  USE DIP KEY 2
  INPUT S0[1,40] F_COGNOME
  DISPLAY "Cognome@40" S0[1,40]
  DISPLAY "Nome@30" S0[41,70]
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_CODICE
  CHECKTYPE REQUIRED
  MESSAGE COPY,12@
END

STRING F_NOME 30
BEGIN
  PROMPT 2 3 "Nome    "
  FIELD S0[41,70]
  KEY 2
  USE DIP KEY 2
  INPUT S0[41,70] F_NOME
  DISPLAY "Nome@30" S0[41,70]
  DISPLAY "Cognome@40" S0[1,40]
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_CODICE
  CHECKTYPE REQUIRED
  MESSAGE COPY,13@
END

BOOLEAN F_COLLAB
BEGIN
  PROMPT 2 5 "Collaboratore"
  FIELD B0
  MESSAGE FALSE CLEAR,F_CODFORN|ENABLE,10@
  MESSAGE TRUE ENABLE,F_CODFORN|CLEAR,10@
END

NUMBER F_CODFORN 6
BEGIN
  PROMPT 2 6 "Codice fornitore "
  FIELD I6
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_CODFORN
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODFORN CODCF
  OUTPUT F_ADDRESS INDCF
  OUTPUT F_CIVICO CIVCF
  OUTPUT F_STATO STATOCF 
  OUTPUT F_COMUNE COMCF
  OUTPUT F_LOCALITA LOCALITACF
  OUTPUT F_CAP CAPCF
  OUTPUT F_CODFIS COFI
  OUTPUT F_CODIVA PAIVA
END

STRING F_CODFIS 16
BEGIN
  PROMPT 2 7 "Codice fiscale   "
  FIELD S3[5,21]
  FLAGS "U"
  GROUP 10
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 8 "@bRecapito"
END

STRING F_ADDRESS 35
BEGIN
  PROMPT 2 9 "Indirizzo "
  FIELD S1[1,35]
  GROUP 10
END

STRING F_CIVICO 5
BEGIN
  PROMPT 65 9 "N. "
  FIELD S3[26,35]
  GROUP 10
END

NUMBER F_STATO 3
BEGIN
  PROMPT 2 10 "Comune: Stato "
  FIELD I7
  FLAGS "Z"
  USE %STA
  INPUT CODTAB F_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Stato@50" S0
  OUTPUT F_STATO CODTAB
  OUTPUT F_DESTATO S0
  CHECKTYPE NORMAL
  GROUP 10
END

STRING F_DESTATO 50
BEGIN
  PROMPT 23 10 ""
  USE %STA KEY 2
  INPUT S0 F_DESTATO
  DISPLAY "Stato@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_STATO
  GROUP 10
END

STRING F_COMUNE 4
BEGIN
  PROMPT 8 11 ":Codice "
  FIELD S3[22,25]
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO F_STATO SELECT
  INPUT COM F_COMUNE
  DISPLAY "Stato" STATO
  DISPLAY "Codice" COM
  DISPLAY "Comune@50" DENCOM
  OUTPUT F_STATO STATO
  OUTPUT F_COMUNE COM
  OUTPUT F_CAP CAPCOM
  OUTPUT F_DENCOM DENCOM
  OUTPUT F_PROV PROVCOM
  CHECKTYPE NORMAL
  ADD RUN ba4 -0
  GROUP 10
END

STRING F_DENCOM 50
BEGIN
  PROMPT 23 11 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_DENCOM
  DISPLAY "Comune@50" DENCOM
  DISPLAY "Stato" STATO
  DISPLAY "Codice" COM
  COPY OUTPUT F_COMUNE
  ADD RUN ba4 -0
  GROUP 10
END

STRING F_LOCALITA 35
BEGIN
  PROMPT 2 12 "Localita'     "
  FIELD S1[36,70]
  GROUP 10
END

STRING F_CAP 5
BEGIN
  PROMPT 53 12 "CAP "
  FIELD I8
  GROUP 10
END

STRING F_PROV 5
BEGIN
  PROMPT 64 12 "Prov"
  FLAGS "D"
  GROUP 10
END

BOOLEAN F_MRP_ATTIVO
BEGIN
  PROMPT 1 14 "@bCollegamento M.R.P.:"
  MESSAGE FALSE CLEAR,9@
  MESSAGE TRUE ENABLE,9@
//  FLAGS "H"
END

STRING F_IMPIANTO 5
BEGIN
  PROMPT 23 14 "Impianto "
  FIELD S8
  USE IMP
  INPUT CODTAB F_IMPIANTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_IMPIANTO CODTAB
  GROUP 9
END

STRING F_LINEA 5
BEGIN
  PROMPT 45 14 "Linea "
  FIELD S9
  USE LNP
  INPUT CODTAB F_LINEA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_LINEA CODTAB
  GROUP 9
END

ENDPAGE

PAGE "Pagina 2" 11 60 14

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

STRING DLG_NULL 16
BEGIN
  PROMPT 2 1 "Codice  "
  FLAGS "UD"
  GROUP 11
END

STRING DLG_NULL 40
BEGIN
  PROMPT 2 2 "Cognome "
  FLAGS "D"
  GROUP 12
END

STRING DLG_NULL 30
BEGIN
  PROMPT 2 3 "Nome    "
  FLAGS "D"
  GROUP 13
END

STRING F_CODIVA 4
BEGIN
  PROMPT 2 7 "Codice IVA     "
  FIELD S3[1,4]
  FLAGS "U"
  USE %IVA
  INPUT CODTAB  F_CODIVA
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIVA CODTAB
  OUTPUT F_DESIVA S0
  CHECKTYPE NORMAL
END


STRING F_DESIVA 50
BEGIN
  PROMPT 25 7 ""
  USE %IVA KEY 2
  INPUT S0  F_DESIVA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  COPY OUTPUT F_CODIVA
  CHECKTYPE NORMAL
END

STRING F_CODVAL 4
BEGIN
  PROMPT 2 8 "Codice valuta  "
  FIELD S4
  FLAGS "U"
  USE %VAL
  INPUT CODTAB  F_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODVAL CODTAB
  OUTPUT F_DESVAL S0
  CHECKTYPE NORMAL
END

STRING F_DESVAL 50
BEGIN
  PROMPT 25 8 ""
  USE %VAL KEY 2
  INPUT S0  F_DESVAL
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODVAL
  CHECKTYPE NORMAL
END

LISTBOX F_CAMPI 15
BEGIN
  PROMPT 2 9 "Campo default  "
  FIELD S6
  ITEM "Q|Qta prezzo "
  MESSAGE SHOW,1@|ENABLE,2@
  FLAGS "D"
END

CURRENCY F_PREZZO 15
BEGIN
  PROMPT 2 10 "Prezzo         "
  FIELD R0          
  FLAGS "U"
  GROUP 1
END

NUMBER F_QTA 13 5
BEGIN
  PROMPT 35 10 "Quantita' "
  FIELD R1
  GROUP 1 2
END

STRING F_UM 2
BEGIN
  PROMPT 63 10 "U.M.   "
  FIELD S7
  FLAGS "U"
  USE %UMS
  INPUT CODTAB F_UM
  DISPLAY "U.M." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_UM CODTAB
  CHECKTYPE NORMAL
  GROUP 1
END

NUMBER F_GRUPPOV 3
BEGIN
  PROMPT 2 11 "Conto vendita  "
  FIELD I0
  CHECKTYPE NORMAL
 END

NUMBER F_CONTOV 3
BEGIN
  PROMPT 22 11 ""
  FIELD I1
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
  INPUT GRUPPO      F_GRUPPOV
  INPUT CONTO       F_CONTOV
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPOV  GRUPPO
  OUTPUT F_CONTOV  CONTO
  CHECKTYPE NORMAL
  ADD RUN CG0 -0
  WARNING "Il conto deve essere un ricavo"
 END

NUMBER F_SOTTOV 6
BEGIN
  PROMPT 30 11 ""
  FIELD I2
  USE LF_PCON SELECT SOTTOCONTO!=""
  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT GRUPPO      F_GRUPPOV
  INPUT CONTO       F_CONTOV
  INPUT SOTTOCONTO  F_SOTTOV
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPOV  GRUPPO
  OUTPUT F_CONTOV  CONTO
  OUTPUT F_SOTTOV  SOTTOCONTO
  OUTPUT F_DESCRCONTOV  DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto errato"
  ADD RUN CG0 -0
END

STRING F_DESCRCONTOV 50
BEGIN
  PROMPT 17 12 ""
  FLAG "U"
  USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT DESCR F_DESCRCONTOV
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOV
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere un ricavo"
  ADD RUN CG0 -0
END

NUMBER F_GRUPPOA 3
BEGIN
  PROMPT 2 13 "Conto acquisti "
  FIELD I3
  CHECKTYPE NORMAL
 END

NUMBER F_CONTOA 3
BEGIN
  PROMPT 22 13 ""
  FIELD I4
  COPY USE F_CONTOV
  INPUT GRUPPO      F_GRUPPOA
  INPUT CONTO       F_CONTOA
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPOA  GRUPPO
  OUTPUT F_CONTOA  CONTO
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere un costo"
  ADD RUN CG0 -0
 END

NUMBER F_SOTTOA 6
BEGIN
  PROMPT 30 13 ""
  FIELD I5
  COPY USE F_SOTTOV
  INPUT GRUPPO      F_GRUPPOA
  INPUT CONTO       F_CONTOA
  INPUT SOTTOCONTO  F_SOTTOA
  COPY DISPLAY F_SOTTOV
  OUTPUT F_GRUPPOA  GRUPPO
  OUTPUT F_CONTOA  CONTO
  OUTPUT F_SOTTOA  SOTTOCONTO
  OUTPUT F_DESCRCONTOA  DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto errato"
  ADD RUN CG0 -0
END

STRING F_DESCRCONTOA 50
BEGIN
  PROMPT 17 14 ""
  FLAG "U"
  COPY USE F_DESCRCONTOV
  INPUT DESCR F_DESCRCONTOA
  COPY DISPLAY F_DESCRCONTOV
  COPY OUTPUT F_SOTTOA
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere un ricavo"
  ADD RUN CG0 -0
END

STRING F_GRUPPOPCIA 3
BEGIN
  PROMPT 2 15 "Conto industr. "
  FLAGS "Z"
  FIELD S2[21,23]
  CHECKTYPE NORMAL
 END

STRING F_CONTOPCIA 3
BEGIN
  PROMPT 22 15 ""
  FLAGS "Z"
  FIELD S2[24,26]
END

STRING F_SOTTOPCIA 6
BEGIN
  PROMPT 30 15 ""
  FLAGS "Z"
  FIELD S2[27,32]
  USE PCI SELECT CODTAB[7,12]!=""
  INPUT CODTAB[1,3] F_GRUPPOPCIA
  INPUT CODTAB[4,6] F_CONTOPCIA
  INPUT CODTAB[7,12] F_SOTTOPCIA
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Conto" CODTAB[4,6]
  DISPLAY "Sottoconto" CODTAB[7,12]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_GRUPPOPCIA CODTAB[1,3]
  OUTPUT F_CONTOPCIA  CODTAB[4,6]
  OUTPUT F_SOTTOPCIA  CODTAB[7,12]
  OUTPUT F_DESCRCONTOPCIA S0
  CHECKTYPE NORMAL
  ADD RUN BA3 -0 PCI
END

STRING F_DESCRCONTOPCIA 50
BEGIN
  PROMPT 2 16 "acquisti       "
  FLAG "U"
  USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
  INPUT S0 F_DESCRCONTOPCIA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Conto"  CODTAB[4,6]
  DISPLAY "Sottoconto" CODTAB[7,12]
  COPY OUTPUT F_SOTTOPCIA
  CHECKTYPE NORMAL
  ADD RUN BA0 -3 PCI
END

STRING F_GRUPPOPCIV 3
BEGIN
  PROMPT 2 17 "Conto industr. "
  FLAGS "Z"
  FIELD S2[1,3]
  CHECKTYPE NORMAL
END

STRING F_CONTOPCIV 3
BEGIN
  PROMPT 22 17 ""
  FLAGS "Z"
  FIELD S2[4,6]
END

STRING F_SOTTOPCIV 6
BEGIN
  PROMPT 30 17 ""
  FLAGS "Z"
  FIELD S2[7,12]
  USE PCI SELECT CODTAB[7,12]!=""
  INPUT CODTAB[1,3] F_GRUPPOPCIV
  INPUT CODTAB[4,6] F_CONTOPCIV
  INPUT CODTAB[7,12] F_SOTTOPCIV
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Conto" CODTAB[4,6]
  DISPLAY "Sottoconto" CODTAB[7,12]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_GRUPPOPCIV CODTAB[1,3]
  OUTPUT F_CONTOPCIV  CODTAB[4,6]
  OUTPUT F_SOTTOPCIV  CODTAB[7,12]
  OUTPUT F_DESCRCONTOPCIV S0
  CHECKTYPE NORMAL
  ADD RUN BA3 -0 PCI
END

STRING F_DESCRCONTOPCIV 50
BEGIN
  PROMPT 2 18 "vendita        "
  FLAG "U"
  USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
  INPUT S0 F_DESCRCONTOPCIV
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Conto"  CODTAB[4,6]
  DISPLAY "Sottoconto" CODTAB[7,12]
  COPY OUTPUT F_SOTTOPCIV
  CHECKTYPE NORMAL
  ADD RUN BA0 -3 PCI
END


ENDPAGE

ENDMASK