campo-sirio/ha/ha1200a.uml

#include "ha1200a.h"

PAGE "Esportazione archivi in formato .txt" -1 -1 78 13

STRING F_PATH 256 50
BEGIN
  PROMPT 1 1 "Cartella creazione files "
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 11
BEGIN
  PROMPT 1 2 "@bArchivi da trasferire"
END

BOOLEAN F_AGENTI
BEGIN
  PROMPT 2 3 "Agenti"
END

BOOLEAN F_CLIENTI
BEGIN
  PROMPT 2 4 "Clienti"
END

NUMBER F_DA_CODCLI 6
BEGIN
  PROMPT 12 4 "Dal cli: "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_DA_CODCLI
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_DA_CODCLI CODCF
  CHECKTYPE NORMAL
END

BOOLEAN F_SOSPESI
BEGIN
  PROMPT 2 5 "Sospesi"
END

NUMBER F_DA_SOSP_CODCLI 6
BEGIN
  PROMPT 12 5 "Dal cli: "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_DA_SOSP_CODCLI
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_DA_SOSP_CODCLI CODCF
  CHECKTYPE NORMAL
END

BOOLEAN F_LISTINI
BEGIN
  PROMPT 2 6 "Listini"
END

BOOLEAN F_CONTRATTI
BEGIN
  PROMPT 2 7 "Contratti"
END

BOOLEAN F_PROMOZIONI
BEGIN
  PROMPT 2 8 "Promozioni"
END

BOOLEAN F_DECODART
BEGIN
  PROMPT 2 9 "Codici articolo alternativi"
END

BOOLEAN F_PRODOTTI
BEGIN
  PROMPT 32 3 "Prodotti"
END

BOOLEAN F_LINEE
BEGIN
  PROMPT 32 4 "Linee"
END

BOOLEAN F_BARCODE
BEGIN
  PROMPT 32 5 "Barcode"
END

BOOLEAN F_ATTREZZA
BEGIN
  PROMPT 53 3 "Attrezzature"
END

BOOLEAN F_TABPAG
BEGIN
  PROMPT 53 4 "Condizioni pagamento"
END

BOOLEAN F_CARICO
BEGIN
  PROMPT 53 5 "Documenti di carico"
  MESSAGE FALSE HIDE,2@
  MESSAGE TRUE SHOW,2@
END

NUMBER F_DA_CARDOC 7
BEGIN
  PROMPT 53 6 "Dal doc. n. "
  USE DOC SELECT (STATO=#F_STATO)
  INPUT PROVV "D"
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_DA_CARDOC
  DISPLAY "N. doc.@7" NDOC
  DISPLAY "Codnum" CODNUM
  DISPLAY "Anno" ANNO
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Data@10" DATADOC
  DISPLAY "Stato" STATO
  DISPLAY "Cliente" CODCF
  OUTPUT F_DA_CARDOC NDOC
  CHECKTYPE NORMAL
  GROUP 2
END

NUMBER F_A_CARDOC 7
BEGIN
  PROMPT 53 7 "Al doc n.   "
  COPY USE F_DA_CARDOC
  INPUT PROVV "D"
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_DA_CARDOC
  COPY DISPLAY F_DA_CARDOC
  OUTPUT F_A_CARDOC NDOC
  CHECKTYPE NORMAL
  NUM_EXPR (#F_A_CARDOC>=#F_DA_CARDOC)||(#F_A_CARDOC==0)
  WARNING "Il numero documento finale deve essere > di quello iniziale oppure lasciato vuoto"
  GROUP 2
END

STRING F_CODNUM 4
BEGIN
  PROMPT 53 8 "Num. " 
  FLAGS "D"
  GROUP 2
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 63 8 "Anno "
  FLAGS "A"
  MESSAGE K_SPACE,F_CARICO
  CHECKTYPE REQUIRED
  GROUP 2
END

STRING F_STATO 1
BEGIN
  PROMPT 77 8 ""
  FLAGS "H"
END

BOOLEAN F_INIMAG
BEGIN
  PROMPT 53 9 "Ripristina magazzino"
  MESSAGE FALSE HIDE,3@
  MESSAGE TRUE SHOW,3@
END

STRING F_CODMAG 3
BEGIN
  PROMPT 53 10 "Mag. "
  USE MAG SELECT CODTAB[4,5]==""
  FLAGS "U"
  INPUT CODTAB F_CODMAG
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Denominazione magazzino@50" S0
  OUTPUT F_CODMAG CODTAB[1,3]
  CHECKTYPE REQUIRED
  GROUP 3
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 64 10 "Anno "
  FLAGS "A"
  MESSAGE K_SPACE,F_INIMAG
  CHECKTYPE REQUIRED
  GROUP 3
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

#include <elabar.h>

ENDPAGE

ENDMASK