campo-sirio/src/bs/bs0500a.uml

#include "bs0500a.h"

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

PAGE "Importazioni da BeeStore" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 1 "@bArchivi"
END

BOOLEAN F_UMS
BEGIN
  PROMPT 2 2 "Unità di misura    "
  FIELD ImpUMS
END

BOOLEAN F_IVA
BEGIN
  PROMPT 2 3 "Codici IVA         "
  FIELD ImpIVA
END

BOOLEAN F_LINEART
BEGIN
  PROMPT 2 4 "Linee Articolo    "
  FIELD ImpLinee
END

BOOLEAN F_DOCUMENTI
BEGIN
  PROMPT 2 5 "Documenti         "
  FIELD ImpDoc
  MESSAGE FALSE CLEAR,F_TIPODOC
  MESSAGE TRUE ENABLE,F_TIPODOC
END

LISTBOX F_TIPODOC 2 20

BEGIN
  PROMPT 20 5 "Tipo Documento"
  ITEM "2|Fatture"
  ITEM "6|Note di credito"
  ITEM "1|Bolle"
  ITEM "9|Ordini"
  ITEM "11|Carichi e scarichi"
  ITEM "13|Scontrini"
  ITEM "14|Generici"
  FIELD ImpTIPODOC
END

BOOLEAN F_CATMER
BEGIN
  PROMPT 30 2 "Categorie Merceologiche"
  FIELD ImpCatMer
END

BOOLEAN F_ART
BEGIN
  PROMPT 30 3 "Articoli          "
  FIELD ImpAnamag
END

BOOLEAN F_VALUTE
BEGIN
  PROMPT 30 4 "Valute"
  FIELD ImpVAL
END

BOOLEAN F_CLIENTI
BEGIN
  PROMPT 60 2 "Clienti"
  FIELD ImpClienti
END

BOOLEAN F_FORNITORI
BEGIN
  PROMPT 60 3 "Fornitori "
  FIELD ImpFornitori
END

DATE F_DAL
BEGIN
  PROMPT 2 7 "Dalla data di modifica "
  FIELD ImpDateFrom
END

DATE F_AL
BEGIN
  PROMPT 42 7 " al "
  FIELD ImpDateTo
END

BOOLEAN F_IMPPARTDOC
BEGIN
  PROMPT 2 9 "Importazione Articoli da Documenti"
  FIELD ImpIMPPARTDOC
  MESSAGE TRUE CLEAR,F_CANCART|CLEAR,F_ART
  MESSAGE FALSE ENABLE,F_CANCART|ENABLE,F_ART
END

BOOLEAN F_CANCART
BEGIN
  PROMPT 40 9 "Elimina Articoli Sospesi"
  FIELD ImpCANCART
END

BOOLEAN F_UNITADEFAULT
BEGIN
  PROMPT 2 10 "Unità di Misura (Default)"
  FIELD ImpUNITADEFAULT
END

LIST F_IMPTYPE 1 20
BEGIN
  PROMPT 40 10 "Importa "
  FIELD ImpTYPE
  ITEM "1|Elementi nuovi"
  ITEM "2|Elementi esistenti"
  ITEM "3|Tutto"
END

SPREADSHEET F_CODNUM 80 10
BEGIN
  PROMPT 2 13 "Numerazioni"
  ITEM "Suffisso"
  ITEM "Fatture"
  ITEM "Note di\ncredito@6"
  ITEM "Bolle@6"
  ITEM "Carichi\nScarichi"
  ITEM "Scontrini"
  ITEM "Generici"
  ITEM "Ordini\nClienti"
END

ENDPAGE

ENDMASK

PAGE "Numerazioni" -1 -1 78 19

STRING  F_SUFFISSO 5
BEGIN
  PROMPT 1 1 "Suffisso numer."
END

STRING  F_COD_FATTURE 4
BEGIN
  PROMPT 1 3 "Num.Fatture    "
  USE %NUM SELECT I1=="2"
  INPUT CODTAB F_COD_FATTURE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COD_FATTURE CODTAB
  OUTPUT F_DES_FATTURE S0
  FLAG "UPA"
  CHECKTYPE NORMAL
  WARNING "Numerazione assente"
END

STRING  F_DES_FATTURE 50
BEGIN
  PROMPT 25 3 ""
  FLAGS "D"
END

STRING  F_COD_NOTE 4
BEGIN
  PROMPT 1 5 "Num.Note cred. "
  COPY USE F_COD_FATTURE
  INPUT CODTAB F_COD_NOTE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COD_NOTE CODTAB
  OUTPUT F_DES_NOTE S0
  FLAG "UPA"
  CHECKTYPE NORMAL
  WARNING "Numerazione assente"
END

STRING  F_DES_NOTE 50
BEGIN
  PROMPT 25 5 ""
  FLAGS "D"
END
STRING F_COD_BOLLE 4
BEGIN
  PROMPT 1 7 "Num.Bolle      "
  USE %NUM SELECT I1=="1"
  INPUT CODTAB F_COD_BOLLE
  COPY DISPLAY F_COD_FATTURE
  OUTPUT F_COD_BOLLE CODTAB
  OUTPUT F_DES_BOLLE S0
  FLAG "UPA"
  WARNING "Numerazione assente"
END

STRING F_DES_BOLLE 50
BEGIN
  PROMPT 25 7 ""
  FLAGS "D"
END

STRING F_COD_CARSCAR 4
BEGIN
  PROMPT 1 9 "Num.Car.Scar.  "
  USE %NUM SELECT I1=="0"
  INPUT CODTAB F_COD_CARSCAR
  COPY DISPLAY F_COD_FATTURE
  OUTPUT F_COD_CARSCAR CODTAB
  OUTPUT F_DES_CARSCAR S0
  FLAG "UPA"
  CHECKTYPE NORMAL
  WARNING "Numerazione assente"
END

STRING F_DES_CARSCAR 50
BEGIN
  PROMPT 25 9 ""
  FLAGS "D"
END

STRING F_COD_SCONTRINI 4
BEGIN
  PROMPT 1 11 "Num.Scontrini  "
  COPY USE F_COD_CARSCAR
  INPUT CODTAB F_COD_SCONTRINI
  COPY DISPLAY F_COD_FATTURE
  OUTPUT F_COD_SCONTRINI CODTAB
  OUTPUT F_DES_SCONTRINI S0
  FLAG "UPA"
  CHECKTYPE NORMAL
  WARNING "Numerazione assente"
END

STRING F_DES_SCONTRINI 50
BEGIN
  PROMPT 25 11 ""
  FLAGS "D"
END

STRING F_COD_GENERICI 4
BEGIN
  PROMPT 1 13 "Num.Scontrini  "
  COPY USE F_COD_CARSCAR
  INPUT CODTAB F_COD_GENERICI
  COPY DISPLAY F_COD_FATTURE
  OUTPUT F_COD_GENERICI CODTAB
  OUTPUT F_DES_GENERICI S0
  FLAG "UPA"
  CHECKTYPE NORMAL
  WARNING "Numerazione assente"
END

STRING F_DES_GENERICI 50
BEGIN
  PROMPT 25 13 ""
  FLAGS "D"
END


STRING F_COD_ORDCLI 4
BEGIN
  PROMPT 1 15 "Num.Ordini Cli."
  USE %NUM SELECT I1=="3"
  INPUT CODTAB F_COD_ORDCLI
  COPY DISPLAY F_COD_FATTURE
  OUTPUT F_COD_ORDCLI CODTAB
  OUTPUT F_DES_ORDCLI S0
  FLAG "UPA"
  CHECKTYPE NORMAL
  WARNING "Numerazione assente"
END

STRING F_DES_ORDCLI 50
BEGIN
  PROMPT 25 15 ""
  FLAGS "D"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE
ENDMASK