campo-sirio/ve/batbprs.uml

#include "batbprs.h"

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

PAGE "Tabella prestazioni" 11 60 14

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

STRING F_CODICE 8
BEGIN
  PROMPT 2 2 "Cod. tabella   "
  FIELD CODTAB
  KEY 1
  USE PRS
  FLAGS "U"
  INPUT CODTAB  F_CODICE
  DISPLAY "Codice "         CODTAB
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR  S0
  CHECKTYPE REQUIRED
END


STRING F_DESCR 50
BEGIN
  PROMPT 2 4  "Descrizione    "
  FIELD S0
  KEY 2
  USE PRS KEY 2
  INPUT S0  F_DESCR
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Codice " CODTAB
  COPY OUTPUT F_CODICE
  CHECKTYPE REQUIRED
END


STRING F_CODASSFIS 4
BEGIN
  PROMPT 2 7  "Codice IVA     "
  FIELD S3
  FLAGS "U"
  USE %IVA
  INPUT CODTAB  F_CODASSFIS
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODASSFIS CODTAB
  OUTPUT F_CODASSFIS1 S0
  CHECKTYPE NORMAL
END

STRING F_CODASSFIS1 50
BEGIN
  PROMPT 25 7 ""
  FLAG "D"
END

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

STRING F_CODDIV1 50
BEGIN
  PROMPT 25 8 ""
  FLAG "D"
END

NUMBER F_PREZZO 13 2
BEGIN
  PROMPT 2 10 "Prezzo         "
  FIELD R0
END

STRING F_UM 2
BEGIN
  PROMPT 35 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
END

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

NUMBER F_CONTOV 3
BEGIN
  PROMPT 22 12 ""
  FIELD I1
  USE LF_PCON SELECT INDBIL=="4"
  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 12 ""
  FIELD I2
  USE LF_PCON
  INPUT GRUPPO      F_GRUPPOV SELECT
  INPUT CONTO       F_CONTOV SELECT
  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 13 ""
  FLAG "D"
END

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

NUMBER F_CONTOA 3
BEGIN
  PROMPT 22 14 ""
  FIELD I4
  USE LF_PCON SELECT INDBIL=="3"
  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 14 ""
  FIELD I5
  USE LF_PCON
  INPUT GRUPPO      F_GRUPPOA SELECT
  INPUT CONTO       F_CONTOA SELECT
  INPUT SOTTOCONTO  F_SOTTOA
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  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 15 ""
  FLAG "D"
END

ENDMASK