campo-sirio/ha/ha1200a.uml

#include "ha1200a.h"

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

STRING F_OUTPUT_PATH 256 49
BEGIN
  PROMPT 1 0 "Cartella creazione files  "
  FLAGS "D"
END

STRING F_CONC_PATH 256 49
BEGIN
  PROMPT 1 1 "Cartella concentratore    "
  FLAGS "D"
END

STRING F_TRANS_PATH 256 49
BEGIN
  PROMPT 1 2 "Cartella file transazione "
  FLAGS "D"
END

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

BOOLEAN F_AGENTI
BEGIN
  PROMPT 2 4 "Agenti"
  FIELD Agenti
END

BOOLEAN F_CLIENTI
BEGIN
  PROMPT 2 5 "Clienti"
  FIELD Clienti
END

NUMBER F_DA_CODCLI 6
BEGIN
  PROMPT 12 5 "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
  FIELD Dacliente
END

BOOLEAN F_SOSPESI
BEGIN
  PROMPT 2 6 "Sospesi"
  FIELD Sospesi
END

NUMBER F_DA_SOSP_CODCLI 6
BEGIN
  PROMPT 12 6 "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
  FIELD Dasospeso
END

BOOLEAN F_LISTINI
BEGIN
  PROMPT 2 7 "Listini"
  FIELD Listini
END

BOOLEAN F_CONTRATTI
BEGIN
  PROMPT 2 8 "Contratti"
  FIELD Contratti
END

BOOLEAN F_PROMOZIONI
BEGIN
  PROMPT 2 9 "Promozioni"
  FIELD Promozioni
END

BOOLEAN F_DECODART
BEGIN
  PROMPT 2 10 "Codici articolo alternativi"
  FIELD Codartalt
END

BOOLEAN F_PRODOTTI
BEGIN
  PROMPT 32 4 "Prodotti"
  FIELD Prodotti
END

BOOLEAN F_LINEE
BEGIN
  PROMPT 32 5 "Linee"
  FIELD Linee
END

BOOLEAN F_BARCODE
BEGIN
  PROMPT 32 6 "Barcode"
  FIELD Barcode
END

BOOLEAN F_ATTREZZA
BEGIN
  PROMPT 53 4 "Attrezzature"
  FIELD Attrezzature
END

BOOLEAN F_TABPAG
BEGIN
  PROMPT 53 5 "Condizioni pagamento"
  FIELD Condpag
END

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

NUMBER F_DA_CARDOC 7
BEGIN
  PROMPT 53 7 "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
  FIELD Dacardoc
END

NUMBER F_A_CARDOC 7
BEGIN
  PROMPT 53 8 "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
  FIELD Acardoc
END

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

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

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

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

STRING F_CODMAG 3
BEGIN
  PROMPT 53 11 "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
  FIELD Codmag
END

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

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

#include <elabar.h>

ENDPAGE

ENDMASK