campo-sirio/ve/vetbrss.uml

#include "vetbrss.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Risorse" 0 0 0 0

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

STRING RSS_CODICE 16
BEGIN
  PROMPT 2 1 "Codice "
  FIELD CODTAB
  KEY 1
  USE RSS
  FLAGS "U"
  INPUT CODTAB RSS_CODICE
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT RSS_CODICE CODTAB
  OUTPUT RSS_RAGSOC S0
  CHECKTYPE REQUIRED
  MESSAGE COPY,10@
END

STRING RSS_RAGSOC 50
BEGIN
  PROMPT 2 2 "Nome   "
  FIELD S0
  KEY 2
  USE RSS KEY 2
  INPUT S0 RSS_RAGSOC
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT RSS_CODICE
  CHECKTYPE REQUIRED
  MESSAGE COPY,20@
END

STRING RSS_MATRICOLA 20
BEGIN
  PROMPT 42 1 "Matricola  "
  FIELD S3[21,40]
END

STRING RSS_QUALIFICA 20
BEGIN
  PROMPT 42 3 "Qualifica  "
  FIELD S3[41,60]
END

LIST RSS_COLLAB 1 10
BEGIN
  PROMPT 2 3 "Tipo   "
  ITEM "|Nessuno"
    MESSAGE HIDE,1@|HIDE,2@|ENABLE,RSS_RAGSOC
  ITEM "D|Dipendente"
    MESSAGE HIDE,1@|SHOW,2@|DISABLE,RSS_RAGSOC
  ITEM "F|Fornitore"
    MESSAGE SHOW,1@|HIDE,2@|DISABLE,RSS_RAGSOC
  FIELD B0
END

NUMBER RSS_CODFORN 6
BEGIN
  PROMPT 30 3 ""
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF RSS_CODFORN
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT RSS_CODFORN CODCF
  OUTPUT RSS_RAGSOC RAGSOC
  OUTPUT RSS_ADDRESS_F INDCF
  OUTPUT RSS_CIVICO_F CIVCF
  OUTPUT RSS_STATO_F STATOCF 
  OUTPUT RSS_COMUNE_F COMCF
  CHECKTYPE REQUIRED
  FIELD I6
  WARNING "Codice fornitore inesistente"
  ADD RUN CG0 -1
  GROUP 1
END

NUMBER RSS_CODFIS 6
BEGIN
  PROMPT 30 3 ""
  USE LF_ANAG
  INPUT TIPOA "F"
  INPUT CODANAGR RSS_CODFIS
  DISPLAY "Codice" CODANAGR
  DISPLAY "Cognome@30" RAGSOC[1,30]
  DISPLAY "Nome@20" RAGSOC[31,50]
  OUTPUT RSS_CODFIS CODANAGR
  OUTPUT RSS_RAGSOC RAGSOC
  OUTPUT RSS_ADDRESS_C INDRES
  OUTPUT RSS_CIVICO_C CIVRES
  OUTPUT RSS_STATO_C STATORES 
  OUTPUT RSS_COMUNE_C COMRES
  CHECKTYPE REQUIRED
  WARNING "Codice persona inesistente"
  FIELD I6
  ADD RUN BA4 -1
  GROUP 2
END

STRING RSS_ADDRESS_F 35
BEGIN
  PROMPT 2 4 "Indirizzo "
  FLAGS "D"
  GROUP 1
END

STRING RSS_CIVICO_F 5
BEGIN
  PROMPT 65 4 "N. "
  FLAGS "D"
  GROUP 1
END

NUMBER RSS_STATO_F 3
BEGIN
  PROMPT 2 5 "Comune: Stato "
  FLAGS "DZ"
  USE %STA
  INPUT CODTAB RSS_STATO_F
  OUTPUT RSS_DESTATO_F S0
  CHECKTYPE NORMAL
  GROUP 1
END

STRING RSS_DESTATO_F 50
BEGIN
  PROMPT 23 5 ""
  FLAGS "D"
  GROUP 1
END

STRING RSS_COMUNE_F 4
BEGIN
  PROMPT 8 6 ":Codice "
  FLAGS "DU"
  USE LF_COMUNI
  INPUT STATO RSS_STATO_F
  INPUT COM RSS_COMUNE_F
  OUTPUT RSS_DENCOM_F DENCOM
  CHECKTYPE NORMAL
  GROUP 1
END

STRING RSS_DENCOM_F 50
BEGIN
  PROMPT 23 6 ""
  FLAGS "D"
  GROUP 1
END

STRING RSS_ADDRESS_C 35
BEGIN
  PROMPT 2 4 "Indirizzo "
  FLAGS "D"
  GROUP 2
END

STRING RSS_CIVICO_C 5
BEGIN
  PROMPT 65 4 "N. "
  FLAGS "D"
  GROUP 2
END

NUMBER RSS_STATO_C 3
BEGIN
  PROMPT 2 5 "Comune: Stato "
  FLAGS "DZ"
  USE %STA
  INPUT CODTAB RSS_STATO_C
  OUTPUT RSS_DESTATO_C S0
  CHECKTYPE NORMAL
  GROUP 2
END

STRING RSS_DESTATO_C 50
BEGIN
  PROMPT 23 5 ""
  FLAGS "D"
  GROUP 2
END

STRING RSS_COMUNE_C 4
BEGIN
  PROMPT 8 6 ":Codice "
  FLAGS "DU"
  USE LF_COMUNI
  INPUT STATO RSS_STATO_C
  INPUT COM RSS_COMUNE_C
  OUTPUT RSS_DENCOM_C DENCOM
  CHECKTYPE NORMAL
  GROUP 2
END

STRING RSS_DENCOM_C 50
BEGIN
  PROMPT 23 6 ""
  FLAGS "D"
  GROUP 2
END

STRING RSS_TIPORIGA 4
BEGIN
  PROMPT 1 8 "Tipo riga      "
  FIELD S8
  FLAGS "U"
  USE %TRI SELECT S7=="R"
  INPUT CODTAB RSS_TIPORIGA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT RSS_TIPORIGA CODTAB
  OUTPUT RSS_DESCRRIGA S0
  CHECKTYPE REQUIRED
END

STRING RSS_DESCRRIGA 50
BEGIN
  PROMPT 24 8 ""
  USE %TRI KEY 2 SELECT S7=="R"
  INPUT S0 RSS_DESCRRIGA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT RSS_TIPORIGA
END


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


STRING RSS_DESIVA 50
BEGIN
  PROMPT 24 9 ""
  USE %IVA KEY 2
  INPUT S0  RSS_DESIVA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  COPY OUTPUT RSS_CODIVA
  CHECKTYPE NORMAL
END

STRING RSS_CODVAL 4
BEGIN
  PROMPT 1 10 "Codice valuta  "
  FIELD S4
  FLAGS "U"
  USE %VAL
  INPUT CODTAB  RSS_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT RSS_CODVAL CODTAB
  OUTPUT RSS_DESVAL S0
  CHECKTYPE NORMAL
END

STRING RSS_DESVAL 50
BEGIN
  PROMPT 24 10 ""
  USE %VAL KEY 2
  INPUT S0  RSS_DESVAL
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT RSS_CODVAL
  CHECKTYPE NORMAL
END

STRING RSS_CODART 20
BEGIN
  PROMPT 1 11 "Articolo (CI)  "
  USE LF_ANAMAG
  INPUT CODART RSS_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT RSS_CODART CODART 
  OUTPUT RSS_DESCART DESCR
  CHECKTYPE NORMAL
  FLAGS "U"
  FIELD S2
END

STRING RSS_DESCART 50 34
BEGIN
  PROMPT 40 11 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR RSS_DESCART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT RSS_CODART
  CHECKTYPE NORMAL
  FLAGS "U"
END

LISTBOX RSS_CAMPI 15
BEGIN
  PROMPT 1 12 "Campo default  "
  FIELD S6
  ITEM "Q|Qta prezzo "
  FLAGS "H"
END

CURRENCY RSS_PREZZO 15
BEGIN
  PROMPT 1 12 "Prezzo         "
  FIELD R10          
  FLAGS "U"
END

NUMBER RSS_QTA 13 5
BEGIN
  PROMPT 38 12 "Quantita' "
  FIELD R1
END

STRING RSS_UM 2
BEGIN
  PROMPT 67 12 "U.M. "
  FIELD S7
  FLAGS "U"
  USE %UMS
  INPUT CODTAB RSS_UM
  DISPLAY "U.M." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT RSS_UM CODTAB
  CHECKTYPE NORMAL
END

STRING RSS_PRESTAZ 8 
BEGIN
  PROMPT 1 13 "Prestazione per fatturazione "
  USE PRS
  INPUT CODTAB RSS_PRESTAZ
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT RSS_PRESTAZ CODTAB
  CHECKTYPE NORMAL
  FIELD S5
END

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

STRING RSS_IMPIANTO 5
BEGIN
  PROMPT 25 14 "Impianto "
  FIELD S3[5,9]
  USE IMP
  INPUT CODTAB RSS_IMPIANTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT RSS_IMPIANTO CODTAB
  GROUP 9
END

STRING RSS_LINEA 5
BEGIN
  PROMPT 45 14 "Linea "
  FIELD S3[10,14]
  USE LNP
  INPUT CODTAB RSS_LINEA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT RSS_LINEA CODTAB
  GROUP 9
END

NUMBER RSS_GRUPPOA 3
BEGIN
  PROMPT 2 15 "Conto acquisti "
  FIELD I3
 END

NUMBER RSS_CONTOA 3
BEGIN
  PROMPT 22 15 ""
  FIELD I4
 END

NUMBER RSS_SOTTOA 6
BEGIN
  PROMPT 28 15 ""
  FIELD I5
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO      RSS_GRUPPOA
  INPUT CONTO       RSS_CONTOA
  INPUT SOTTOCONTO  RSS_SOTTOA
  DISPLAY "Gruppo@3" GRUPPO
  DISPLAY "Conto@3" CONTO
  DISPLAY "Sottoconto@6" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT RSS_GRUPPOA  GRUPPO
  OUTPUT RSS_CONTOA  CONTO
  OUTPUT RSS_SOTTOA  SOTTOCONTO
  OUTPUT RSS_DESCRCONTOA  DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto errato"
  ADD RUN CG0 -0
END

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

STRING RSS_TIPOSTRA1 2
BEGIN
  PROMPT 1 17 "Tipo ora straordinaria 1 "
  USE &CIORE 
  INPUT CODTAB RSS_TIPOSTRA1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT RSS_TIPOSTRA1 CODTAB
  CHECKTYPE NORMAL
  FIELD S9
END

NUMBER RSS_DOPOSTRA1 2
BEGIN
  PROMPT 41 17 "dopo ore "
  FIELD R5
END

CURRENCY RSS_COSTOSTRA1 9
BEGIN
  PROMPT 59 17 "Costo "
  FIELD R6
END

STRING RSS_TIPOSTRA2 2
BEGIN
  PROMPT 1 18 "Tipo ora straordinaria 2 "
  COPY USE RSS_TIPOSTRA1
  INPUT CODTAB RSS_TIPOSTRA2
  COPY DISPLAY RSS_TIPOSTRA1
  OUTPUT RSS_TIPOSTRA2 CODTAB
  CHECKTYPE NORMAL
  FIELD S10
END

NUMBER RSS_DOPOSTRA2 2
BEGIN
  PROMPT 41 18 "dopo ore "
  FIELD R7
END

CURRENCY RSS_COSTOSTRA2 9
BEGIN
  PROMPT 59 18 "Costo "
  FIELD R8
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