campo-sirio/ha/ha1200a.uml

#include "ha1200a.h"

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

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

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

BOOLEAN F_AGENTI
BEGIN
  PROMPT 2 3 "Agenti"
  GROUP 1
END

BOOLEAN F_CLIENTI
BEGIN
  PROMPT 2 4 "Clienti"
  GROUP 1
END

NUMBER F_DA_CODCLI 6
BEGIN
  PROMPT 12 4 "Dal: "
  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
  GROUP 1
END

BOOLEAN F_SOSPESI
BEGIN
  PROMPT 2 5 "Sospesi"
  GROUP 1
END

BOOLEAN F_LISTINI
BEGIN
  PROMPT 2 6 "Listini"
  GROUP 1
END

BOOLEAN F_CONTRATTI
BEGIN
  PROMPT 2 7 "Contratti"
  GROUP 1
END

BOOLEAN F_PROMOZIONI
BEGIN
  PROMPT 2 8 "Promozioni"
  GROUP 1
END

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

BOOLEAN F_PRODOTTI
BEGIN
  PROMPT 28 3 "Prodotti"
  GROUP 1
END

BOOLEAN F_LINEE
BEGIN
  PROMPT 28 4 "Linee"
  GROUP 1
END

BOOLEAN F_BARCODE
BEGIN
  PROMPT 28 5 "Barcode"
  GROUP 1
END

BOOLEAN F_ATTREZZA
BEGIN
  PROMPT 53 3 "Attrezzature"
  GROUP 1
END

BOOLEAN F_TABPAG
BEGIN
  PROMPT 53 4 "Condizioni pagamento"
  GROUP 1
END

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

NUMBER F_DA_CARDOC 7
BEGIN
  PROMPT 53 6 "Dal doc. n. "
  GROUP 2
  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
END

NUMBER F_A_CARDOC 7
BEGIN
  PROMPT 53 7 "Al doc n.   "
  GROUP 2
  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"
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
  GROUP 2
END

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

STRING DLG_PROFILE 50
BEGIN
  PROMPT 1 -1 "Profilo "
  PSELECT
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

#include <elabar.h>

ENDPAGE

ENDMASK