campo-sirio/src/bs/bs0200a.uml

#include "bs0200a.h"

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

PAGE "Sincronizzazione Bee Store" 0 2 0 0

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

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

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

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

BOOLEAN F_CATMER
BEGIN
  PROMPT 2 5 "Categorie Merceologiche"
  FIELD SyncCatMer
END

BOOLEAN F_ART
BEGIN
  PROMPT 2 6 "Articoli          "
  FIELD SyncAnamag
END

STRING F_LIST 3
BEGIN
  PROMPT 40 6 "Listino "
  USE LF_CONDV 
  INPUT TIPO "L"
  INPUT CATVEN ""
  INPUT TIPOCF ""
  INPUT CODCF ""
  INPUT COD 148
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Valuta@5" CODVAL
  DISPLAY "Inizio@10" VALIN
  DISPLAY "Fine@10" VALFIN
  OUTPUT 148 COD
  FIELD SyncListino
END

BOOLEAN F_SCONTRINI
BEGIN
  PROMPT 2 7 "Scontrini         "
  FIELD SyncScontr
END

BOOLEAN F_CORRISPETTIVI
BEGIN
  PROMPT 2 8 "Corrispettivi     "
  FIELD SyncCorr
END

BOOLEAN F_DOCUMENTI
BEGIN
  PROMPT 2 9 "Documenti         "
  FIELD SyncDoc
END

BOOLEAN F_CARSCAR
BEGIN
  PROMPT 2 10 "Carichi/scarichi "
  FIELD SyncCarScar
END

BOOLEAN F_GENERICI
BEGIN
  PROMPT 2 11 "Mov.generici     "
  FIELD SyncGenerici
END

BOOLEAN F_VALUTE
BEGIN
  PROMPT 40 2 "Valute"
  FIELD SyncVAL
END

BOOLEAN F_CLIENTI
BEGIN
  PROMPT 40 3 "Clienti"
  FIELD SyncClienti
END

BOOLEAN F_FORNITORI
BEGIN
  PROMPT 40 4 "Fornitori "
  FIELD SyncFornitori
END

BOOLEAN F_BARCODE
BEGIN
  PROMPT 40 5 "Codici a barre"
  FIELD SyncBarCode
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 14 "@bFiltri"
END

DATE F_DAL
BEGIN
  PROMPT 2 15 "Dalla data di modifica "
  FIELD SyncDateFrom
END

DATE F_AL
BEGIN
  PROMPT 42 15 " al "
  FIELD SyncDateTo
END

ENDPAGE

PAGE "Parametri" 0 2 0 0

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 1 "@bMovimenti"
END

STRING F_C_CARSCAR 4
BEGIN
  PROMPT 2 2 "Causale magazzino car./scar.   "
  USE %CAU SELECT (S2[8,8]=1)&&(S6="P")
  INPUT CODTAB F_C_CARSCAR
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_CARSCAR CODTAB
  OUTPUT F_D_CARSCAR S0
  CHECKTYPE NORMAL
  FIELD CODCAUS(1)
  ADD RUN mg0 -0 %CAU 
END

STRING F_D_CARSCAR 50 36
BEGIN
  PROMPT 40 2 ""
  FLAGS "D"
END

STRING F_C_DOCUMENTI 4
BEGIN
  PROMPT 2 3 "Causale magazzino documenti    "
  USE %CAU SELECT (S2[8,8]=1)&&(S6="P")
  INPUT CODTAB F_C_DOCUMENTI
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_DOCUMENTI CODTAB
  OUTPUT F_D_DOCUMENTI S0
  CHECKTYPE NORMAL
  FIELD CODCAUS(2)
  ADD RUN mg0 -0 %CAU 
END

STRING F_D_DOCUMENTI 50 36
BEGIN
  PROMPT 40 3 ""
  FLAGS "D"
END

STRING F_C_SCONTRINI 4
BEGIN
  PROMPT 2 4 "Causale magazzino scontrini    "
  USE %CAU SELECT (S2[8,8]=1)&&(S6="P")
  INPUT CODTAB F_C_SCONTRINI
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCONTRINI CODTAB
  OUTPUT F_D_SCONTRINI S0
  CHECKTYPE NORMAL
  FIELD CODCAUS(3)
  ADD RUN mg0 -0 %CAU 
END

STRING F_D_SCONTRINI 50 36
BEGIN
  PROMPT 40 4 ""
  FLAGS "D"
END

STRING F_C_GENERICI 4
BEGIN
  PROMPT 2 5 "Causale magazzino mov.generici "
  USE %CAU SELECT (S2[8,8]=1)&&(S6="P")
  INPUT CODTAB F_C_GENERICI
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_GENERICI CODTAB
  OUTPUT F_D_GENERICI S0
  CHECKTYPE NORMAL
  FIELD CODCAUS(4)
  ADD RUN mg0 -0 %CAU 
END

STRING F_D_GENERICI 50 36
BEGIN
  PROMPT 40 5 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 8 "@bCorrispettivi"
END

STRING F_C_CORRISPETTIVI 4
BEGIN
  PROMPT 2 9 "Causale contabile           "
  USE LF_CAUSALI SELECT TIPODOC="CR"
  INPUT CODCAUS F_C_CORRISPETTIVI
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_C_CORRISPETTIVI CODCAUS
  OUTPUT F_D_CORRISPETTIVI DESCR
  CHECKTYPE NORMAL
  FIELD CODCAUSC
  ADD RUN cg0 -4
END

STRING F_D_CORRISPETTIVI 50 36
BEGIN
  PROMPT 40 9 ""
  FLAGS "D"
END

ENDPAGE

ENDMASK