campo-sirio/db/dbcv00a.uml

#include "dbcv00a.h"
#define G_ARTICOLI 10
#define G_DISTINTE 20

TOOLBAR "" 0 19 0 0

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -11 "~OK"
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 "~Fine"
  MESSAGE EXIT,K_QUIT
  PICTURE BMP_QUIT
  PICTURE BMP_QUITDN
END

ENDPAGE

PAGE "Importazione Distinta base" -1 -1 80 20

STRING DLG_PROFILE 70
BEGIN
  FLAGS "HG"
  PROMPT 1 1 ""
  PSELECT
END

STRING F_PATH 40
BEGIN
  PROMPT 1 1 "Percorso dei files DBF di BPCS "
END

NUMBER F_ANNO 2
BEGIN
  PROMPT 1 3 "Chiedi conferma per le distinte risalenti al "
END
BOOL F_RESETMORTI
BEGIN
  PROMPT 1 4 "Azzera file articoli da ignorare"
END
BOOL F_CREAMAG3
BEGIN
  PROMPT 42 4 "Crea i magazzini terzisti"
END

BOOL F_ARTS 
BEGIN
  PROMPT 1 6 "Carica gli articoli"
  MESSAGE TRUE SHOW,G_ARTICOLI@
  MESSAGE FALSE HIDE,G_ARTICOLI@
END
BOOL F_CHANGEGMC
BEGIN
  PROMPT 38 6 "Ricarica solo i gr.merc."
  MESSAGE TRUE DISABLE,F_EAN 
  MESSAGE FALSE ENABLE,F_EAN 
  GROUP G_ARTICOLI
END

LIST F_EAN 40
BEGIN
  PROMPT 3 7 ""
  ITEM " |Non caricare i codici EAN"
  ITEM "8|Carica codici EAN 8"
  ITEM "13|Carica codici EAN 13"
  GROUP G_ARTICOLI
END
LIST F_ICLAS 40
BEGIN
  PROMPT 3 8 ""
  ITEM " |Non caricare il campo ICLAS"
  ITEM "S|Carica ICLAS come sotto cat.merc."
  ITEM "C|Carica ICLAS come cat.merc."
  GROUP G_ARTICOLI
END
BOOL F_BOMS
BEGIN
  PROMPT 1 10 "Carica le distinte"
END
BOOL F_DIVS
BEGIN
  PROMPT 40 10 "Carica i divisori"
END

BOOL F_MOVMAG
BEGIN
  PROMPT 1 12 "Carica le movimentazioni di magazzino"
END

BOOL F_ORDACQ
BEGIN
  PROMPT 1 14 "Carica gli ordini di acquisto"
END
BOOL F_ORDCLI
BEGIN
  PROMPT 1 16 "Carica gli ordini cliente"
END
BOOL F_ORDPROD
BEGIN
  PROMPT 1 18 "Carica gli ordini di produzione"
END

ENDPAGE

ENDMASK