campo-sirio/ve/vetbatr.uml

#include "vetbatr.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Attrezzature" 0 0 0 0

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

STRING ATR_CODICE 16
BEGIN
  PROMPT 2 1 "Codice      "
  FIELD CODTAB
  KEY 1
  USE ATR
  FLAGS "U"
  INPUT CODTAB ATR_CODICE
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT ATR_CODICE CODTAB
  OUTPUT ATR_DESCR S0
  CHECKTYPE REQUIRED
	MESSAGE COPY,10@
END

STRING ATR_DESCR 50
BEGIN
  PROMPT 2 2 "Descrizione "
  FIELD S0
  KEY 2
  USE ATR KEY 2
  INPUT S0 ATR_DESCR
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT ATR_CODICE
  CHECKTYPE REQUIRED
  MESSAGE COPY,20@
END

STRING ATR_TIPORIGA 4
BEGIN
  PROMPT 2 4 "Tipo riga     "
  FIELD S8
  FLAGS "U"
  USE %TRI SELECT S7=="A"
  INPUT CODTAB ATR_TIPORIGA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT ATR_TIPORIGA CODTAB
  OUTPUT ATR_DESCRRIGA S0
  CHECKTYPE REQUIRED
END

STRING ATR_DESCRRIGA 50
BEGIN
  PROMPT 24 4 ""
  USE %TRI KEY 2 SELECT S7=="A"
  INPUT S0 ATR_DESCRRIGA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT ATR_TIPORIGA
END

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

STRING ATR_DESIVA 50
BEGIN
  PROMPT 24 5 ""
  USE %IVA KEY 2
  INPUT S0  ATR_DESIVA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  COPY OUTPUT ATR_CODIVA
  CHECKTYPE NORMAL
END

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

STRING ATR_DESVAL 50
BEGIN
  PROMPT 24 6 ""
  USE %VAL KEY 2
  INPUT S0  ATR_DESVAL
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT ATR_CODVAL
  CHECKTYPE NORMAL
END

LISTBOX ATR_CAMPI 15
BEGIN
  PROMPT 2 8 "Campo default  "
  FIELD S6
  ITEM "Q|Qta prezzo "
  FLAGS "H"
END

CURRENCY ATR_PREZZO 15
BEGIN
  PROMPT 2 8 "Prezzo        "
  FIELD R10          
  FLAGS "U"
END

NUMBER ATR_QTA 13 5
BEGIN
  PROMPT 38 8 "Quantita' "
  FIELD R1
END

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

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

DATE ATR_DISMISS
BEGIN
  PROMPT 2 11 "Data dismissione "
  FIELD D0
END

NUMBER ATR_GRUPPOA 3
BEGIN
  PROMPT 2 12 "Conto acquisti "
  FIELD I3
 END

NUMBER ATR_CONTOA 3
BEGIN
  PROMPT 22 12 ""
  FIELD I4
 END

NUMBER ATR_SOTTOA 6
BEGIN
  PROMPT 28 12 ""
  FIELD I5
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO      ATR_GRUPPOA
  INPUT CONTO       ATR_CONTOA
  INPUT SOTTOCONTO  ATR_SOTTOA
  DISPLAY "Gruppo@3" GRUPPO
  DISPLAY "Conto@3" CONTO
  DISPLAY "Sottoconto@6" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT ATR_GRUPPOA  GRUPPO
  OUTPUT ATR_CONTOA  CONTO
  OUTPUT ATR_SOTTOA  SOTTOCONTO
  OUTPUT ATR_DESCRCONTOA  DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto errato"
  ADD RUN CG0 -0
END

STRING ATR_DESCRCONTOA 50 35
BEGIN
  PROMPT 39 12 ""
  FLAG "U"
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR ATR_DESCRCONTOA
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo@3" GRUPPO
  DISPLAY "Conto@3" CONTO
  DISPLAY "Sottoconto@6" SOTTOCONTO
  COPY OUTPUT ATR_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