campo-sirio/ve/vetbprs.uml

#include "vetbprs.h"

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

PAGE "Prestazioni" 11 60 14

GROUPBOX DLG_NULL 78 4
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING PRS_CODICE 8
BEGIN
  PROMPT 2 1 "Codice      "
  FIELD CODTAB
  KEY 1
  USE PRS
  FLAGS "U"
  INPUT CODTAB  PRS_CODICE
  DISPLAY "Codice "         CODTAB
  DISPLAY "Descrizione@50 " S0
  OUTPUT PRS_CODICE CODTAB
  OUTPUT PRS_DESCR  S0
  CHECKTYPE REQUIRED
	MESSAGE COPY,10@
END

STRING PRS_DESCR 50
BEGIN
  PROMPT 2 2 "Descrizione "
  FIELD S0
  KEY 2
  USE PRS KEY 2
  INPUT S0  PRS_DESCR
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Codice " CODTAB
  COPY OUTPUT PRS_CODICE
  CHECKTYPE REQUIRED
	MESSAGE COPY,20@
END

LISTBOX PRS_SEZIONE 6
BEGIN
  PROMPT 2 3 "Sezione per cooperative "
  FIELD S11
  ITEM "D|Dare"
  ITEM "A|Avere"
END

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

STRING PRS_CODASSFIS1 50
BEGIN
  PROMPT 25 4 ""
  USE %IVA KEY 2
  INPUT S0  PRS_CODASSFIS1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  OUTPUT PRS_CODASSFIS CODTAB
  OUTPUT PRS_CODASSFIS1 S0
  CHECKTYPE NORMAL
END

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

STRING PRS_CODDIV1 50
BEGIN
  PROMPT 25 5 ""
  USE %VAL KEY 2
  INPUT S0  PRS_CODDIV1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  OUTPUT PRS_CODDIV CODTAB
  OUTPUT PRS_CODDIV1 S0
  CHECKTYPE NORMAL
END

LISTBOX PRS_CAMPI 15
BEGIN
  PROMPT 2 6 "Campo default  "
  FIELD S6
  ITEM "Q|Qta prezzo "
  MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@
  ITEM "V|Valore "
  MESSAGE SHOW,1@|"1",2@|DISABLE,2@|HIDE,3@|RESET,3@
  ITEM "P|Percentuale "
  MESSAGE SHOW,3@|HIDE,1@|RESET,1@
END

CURRENCY PRS_PREZZO 15
BEGIN
  PROMPT 2 7 "Prezzo         "
  FIELD R10          
  FLAGS "U"
  GROUP 1
END

NUMBER PRS_QTA 13 5
BEGIN
  PROMPT 35 7 "Quantita' "
  FIELD R1
  GROUP 1 2
END

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

NUMBER PRS_PERCENTUALE 5 2
BEGIN
  PROMPT 49 6 "Percentuale    "
  FIELD R2
  GROUP 3
END

STRING PRS_NCAMPOCAL 10
BEGIN
  PROMPT 2 7 "Formula Doc.   "
  FIELD S5
  FLAG "U"
  USE %FRD
  INPUT CODTAB  PRS_NCAMPOCAL
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT PRS_NCAMPOCAL CODTAB
  OUTPUT PRS_NCAMPOCAL1 S0
  CHECKTYPE NORMAL
  GROUP 3
END

STRING PRS_NCAMPOCAL1 50
BEGIN
  PROMPT 17 7 ""
  USE %FRD KEY 2
  INPUT S0  PRS_NCAMPOCAL1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  OUTPUT PRS_NCAMPOCAL CODTAB
  OUTPUT PRS_NCAMPOCAL1 S0
  CHECKTYPE NORMAL
  GROUP 3
END

NUMBER PRS_GRUPPOV 3
BEGIN
  PROMPT 2 9 "@bConto vendita  "
  FIELD I0
  CHECKTYPE NORMAL
 END

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

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

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

NUMBER PRS_GRUPPOA 3
BEGIN
  PROMPT 2 15 "@bConto acquisti "
  FIELD I3
 END

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

NUMBER PRS_SOTTOA 6
BEGIN
  PROMPT 30 15 ""
  FIELD I5
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO      PRS_GRUPPOA
  INPUT CONTO       PRS_CONTOA
  INPUT SOTTOCONTO  PRS_SOTTOA
  DISPLAY "Gruppo@3" GRUPPO
  DISPLAY "Conto@3" CONTO
  DISPLAY "Sottoconto@6" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT PRS_GRUPPOA  GRUPPO
  OUTPUT PRS_CONTOA  CONTO
  OUTPUT PRS_SOTTOA  SOTTOCONTO
  OUTPUT PRS_DESCRCONTOA  DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto errato"
  ADD RUN CG0 -0
END

STRING PRS_DESCRCONTOA 50
BEGIN
  PROMPT 17 16 ""
  FLAG "U"
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR PRS_DESCRCONTOA
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo@3" GRUPPO
  DISPLAY "Conto@3" CONTO
  DISPLAY "Sottoconto@6" SOTTOCONTO
  COPY OUTPUT PRS_SOTTOA
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere un ricavo"
  ADD RUN CG0 -0
END

ENDPAGE

PAGE "Analitica" 11 60 14

GROUPBOX DLG_NULL 78 4
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING DLG_NULL 8
BEGIN
  PROMPT 2 1 "Codice      " 
  GROUP 10
  FLAGS "D"
END

STRING DLG_NULL 50
BEGIN
  PROMPT 2 2 "Descrizione "
  GROUP 20
  FLAGS "D"
END

ENDPAGE

ENDMASK