campo-sirio/lv/lv4900a.uml

#include "lv4900a.h"

TOOLBAR "topbar" 0 0 0 2
#include <elabar.h>
ENDPAGE

PAGE "Aggiornamento prezzi" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 0 "@bParametri elaborazione"
END

RADIOBUTTON F_PREZZO 1 56
BEGIN
  PROMPT 1 0 ""
  ITEM "1|Prezzo"
  ITEM "2|Nolo"
  ITEM "3|Entrambi"
  FLAGS "Z"
END

BOOLEAN F_DEFINITIVO
BEGIN
  PROMPT 55 1 "Calcolo definitivo"
END

NUMBER F_PERC 5 1
BEGIN
  PROMPT 2 2 "% variazione   "
  CHECKTYPE REQUIRED
END

LIST F_ARROTONDA 1 12
BEGIN
  PROMPT 27 2 "Arrotondamento "
  ITEM "0|matematico"
  ITEM "1|per eccesso"
END

NUMBER F_DECIMALS 1
BEGIN
  PROMPT 66 2 "Decimali "
  FLAGS "D"
END

CURRENCY F_MINIMO 5
BEGIN
  PROMPT 2 3 "Aumento minimo "
  FLAGS "U"
END

DATE F_DATA
BEGIN
  PROMPT 61 3 "Data "
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 5 "@bCategorie"
END

BOOLEAN F_USEPORTO
BEGIN
  PROMPT 2 6 "Porto"
  MESSAGE FALSE CLEAR,F_PORTO|CLEAR,F_DPORTO
  MESSAGE TRUE ENABLE,F_PORTO|ENABLE,F_DPORTO
END

STRING F_PORTO 3
BEGIN
  PROMPT 18 6 ""
  USE %POR
  INPUT CODTAB F_PORTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_PORTO CODTAB
  OUTPUT F_DPORTO S0
  CHECKTYPE NORMAL
END

STRING F_DPORTO 50
BEGIN
  PROMPT 25 6 ""
  USE %POR KEY 2
  INPUT S0 F_DPORTO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_PORTO
  CHECKTYPE NORMAL
END

BOOLEAN F_USECATCON
BEGIN
  PROMPT 2 7 "Cat. contabile"
  MESSAGE FALSE CLEAR,F_CATCON|CLEAR,F_DCATCON
  MESSAGE TRUE ENABLE,F_CATCON|ENABLE,F_DCATCON
END

STRING F_CATCON 3
BEGIN
  PROMPT 18 7 ""
  USE CCO
  INPUT CODTAB F_CATCON
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CATCON CODTAB
  OUTPUT F_DCATCON S0
  CHECKTYPE NORMAL
END

STRING F_DCATCON 50
BEGIN
  PROMPT 25 7 ""
  USE CCO KEY 2
  INPUT S0 F_DCATCON
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CATCON
  CHECKTYPE NORMAL
END

BOOLEAN F_USECATVEN
BEGIN
  PROMPT 2 8 "Cat. vendita"
  MESSAGE FALSE CLEAR,F_CATVEN|CLEAR,F_DCATVEN
  MESSAGE TRUE ENABLE,F_CATVEN|ENABLE,F_DCATVEN
END

STRING F_CATVEN 3
BEGIN
  PROMPT 18 8 ""
  USE CVE
  INPUT CODTAB F_CATVEN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CATVEN CODTAB
  OUTPUT F_DCATVEN S0
  CHECKTYPE NORMAL
END

STRING F_DCATVEN 50
BEGIN
  PROMPT 25 8 ""
  USE CVE KEY 2
  INPUT S0 F_DCATVEN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CATVEN
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 10 "@bClienti"
END

NUMBER F_FROMCLI 6
BEGIN
  PROMPT 2 11 "Dal    "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_FROMCLI
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Sospeso@C" SOSPESO
  OUTPUT F_FROMCLI CODCF
  OUTPUT F_FROMRAGSOC RAGSOC
  ADD RUN cg0 -1 C
  CHECKTYPE NORMAL
END

STRING F_FROMRAGSOC 50
BEGIN
  PROMPT 25 11 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_FROMRAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  COPY OUTPUT F_FROMCLI
  ADD RUN cg0 -1 C
  CHECKTYPE NORMAL
END

NUMBER F_TOCLI 6
BEGIN
  PROMPT 2 12 "Al     "
  COPY USE F_FROMCLI
  INPUT TIPOCF "C"
  INPUT CODCF F_TOCLI
  COPY DISPLAY F_FROMCLI
  OUTPUT F_TOCLI CODCF
  OUTPUT F_TORAGSOC RAGSOC
  ADD RUN cg0 -1 C
  CHECKTYPE NORMAL
END

STRING F_TORAGSOC 50
BEGIN
  PROMPT 25 12 ""
  COPY USE F_FROMRAGSOC
  INPUT TIPOCF "C"
  INPUT RAGSOC F_TORAGSOC
  COPY DISPLAY F_FROMRAGSOC
  COPY OUTPUT F_TOCLI
  ADD RUN cg0 -1 C
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 14 "@bArticoli"
END

STRING F_FROMCODART 20 14
BEGIN
  PROMPT 2 15 "Dal "
  USE LF_ANAMAG
  INPUT CODART F_FROMCODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sospeso@C" SOSPESO
  OUTPUT F_FROMCODART CODART
  OUTPUT F_FROMDESCART DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
END

STRING F_FROMDESCART 50
BEGIN
  PROMPT 25 15 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_FROMDESCART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  DISPLAY "Sospeso@C" SOSPESO
  COPY OUTPUT F_FROMCODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
END

STRING F_TOCODART 20 14
BEGIN
  PROMPT 2 16 "Al  "
  COPY USE F_FROMCODART
  INPUT CODART F_TOCODART
  COPY DISPLAY F_FROMCODART
  OUTPUT F_TOCODART CODART
  OUTPUT F_TODESCART DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
END

STRING F_TODESCART 50
BEGIN
  PROMPT 25 16 ""
  COPY USE F_FROMDESCART
  INPUT DESCR F_TODESCART
  COPY DISPLAY F_FROMDESCART
  COPY OUTPUT F_TOCODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
END

ENDPAGE

ENDMASK