campo-sirio/src/bs/bs0300a.uml

#include "bs0300a.h"

TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 "Elabora"
  PICTURE TOOL_ELABORA
END

BUTTON DLG_EDIT 2 2
BEGIN
  PROMPT 1 1 "Compatta DB"
  PICTURE TOOL_WARNING
END

BUTTON DLG_RECALC 2 2
BEGIN
  PROMPT 1 1 "Reset Data"
  PICTURE TOOL_RECALC
END

#include <helpbar.h>
ENDPAGE

PAGE "SKNT Importer" 0 2 0 0

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

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

BOOLEAN F_FORNITORI
BEGIN
  PROMPT 30 2 "Fornitori "
  FIELD SKSyncFornitori
END

BOOLEAN F_ART
BEGIN
  PROMPT 2 3 "Articoli          "
  FIELD SKSyncAnamag
END

BOOLEAN F_DOCUMENTI
BEGIN
  PROMPT 30 3 "Documenti         "
  FIELD SKSyncDoc
END

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 6 "@bImpostazioni documenti"
END

STRING F_CODNUMBOL 4
BEGIN
  PROMPT 2 7 "Numerazione bolle   "
  FIELD SKCODNUMBOL
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUMBOL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUMBOL CODTAB
  FLAG "UPA"
  WARNING "Numerazione assente"
  KEY 1 2
END

STRING F_TIPODOCBOL 4
BEGIN
  PROMPT 40 7 "Tipo bolle     "
  FIELD SKTIPODOCBOL
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOCBOL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOCBOL CODTAB
  FLAG "UP"
END

STRING F_CODNUMFAT 4
BEGIN
  PROMPT 2 8 "Numerazione fatture "
  FIELD SKCODNUMFAT
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUMFAT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUMFAT CODTAB
  FLAG "UPA"
  WARNING "Numerazione assente"
  KEY 1 2
END

STRING F_TIPODOCFAT 4
BEGIN
  PROMPT 40 8 "Tipo fatture   "
  FIELD SKTIPODOCFAT
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOCFAT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOCFAT CODTAB
  FLAG "UP"
END

STRING F_CODNUMNC 4
BEGIN
  PROMPT 2 9 "Numerazione NC      "
  FIELD SKCODNUMNC
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUMNC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUMNC CODTAB
  FLAG "UPA"
  WARNING "Numerazione assente"
  KEY 1 2
END

STRING F_TIPODOCNC 4
BEGIN
  PROMPT 40 9 "Tipo NC        "
  FIELD SKTIPODOCNC
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOCNC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOCNC CODTAB
  FLAG "UP"
END

STRING F_CODNUMTAM 4
BEGIN
  PROMPT 2 10 "Numerazione TAM     "
  FIELD SKCODNUMTAM
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUMTAM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUMTAM CODTAB
  FLAG "UPA"
  WARNING "Numerazione assente"
  KEY 1 2
END

STRING F_TIPODOCTAM 4
BEGIN
  PROMPT 40 10 "Tipo TAM       "
  FIELD SKTIPODOCTAM
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOCTAM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOCTAM CODTAB
  FLAG "UP"
END

STRING F_CODNUMORC 4
BEGIN
  PROMPT 2 11 "Numerazione ORC     "
  FIELD SKCODNUMORC
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUMORC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUMORC CODTAB
  FLAG "UPA"
  WARNING "Numerazione assente"
  KEY 1 2
END

STRING F_TIPODOCORC 4
BEGIN
  PROMPT 40 11 "Tipo ORC       "
  FIELD SKTIPODOCORC
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOCORC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOCORC CODTAB
  FLAG "UP"
END

STRING F_CODIVADEF 4
BEGIN
  PROMPT 2 13 "Utilizza cod.IVA default              "
  USE %IVA
  INPUT CODTAB F_CODIVADEF
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "%@6" R0
  DISPLAY "Tipo" S1
  OUTPUT F_CODIVADEF CODTAB
  HELP "Codice IVA per righe con valore nullo"
  FIELD SKCodIvaDef
  CHECKTYPE REQUIRED
END

STRING F_CODUMSDEF 4
BEGIN
  PROMPT 2 14 "Utilizza UMS default                  "
  USE %UMS
  INPUT CODTAB F_CODUMSDEF
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODUMSDEF CODTAB
  HELP "Codice UmS per righe con valore nullo"
  FIELD SKCodUmsDef
  CHECKTYPE REQUIRED
END

BOOLEAN F_OVERRIG
BEGIN
  PROMPT 2 15 "Riga merce custom"
  FIELD SKUseCustomRiga
  MESSAGE FALSE DISABLE,F_NUMCUSTRIG
  MESSAGE TRUE ENABLE,F_NUMCUSTRIG
END

STRING F_NUMCUSTRIG 2
BEGIN
  PROMPT 40 15 ""
  FIELD SKNumCustomRiga
  FLAGS "D"
  CHECKYPE REQUIRED
END

BOOLEAN F_EMPTYONIMP
BEGIN
  PROMPT 2 16 "Svuola DB dopo importazione"
  FIELD SKEmptyOnImp
END

BOOLEAN F_ENABCONAI
BEGIN
  PROMPT 40 16 "Abilita gestione CONAI"
  FIELD SKEnabCONAI
  FLAGS "H"
END

STRING F_IMPORTUSER 20
BEGIN
  PROMPT 2 17 "Utente che effettua l'importazione    "
  FIELD SKImportUser
END

ENDPAGE

ENDMASK