campo-sirio/ve/batbeld.uml

#include "batbeld.h"

TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "Tabella elaborazioni differite" -1 -1 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bElaborazione"
END

STRING F_CODICE 8
BEGIN
   PROMPT 2 2 "Codice      "
   FLAG "U"
   FIELD CODTAB
   CHECKTYPE REQUIRED
   WARNING "E' necessario specificare un valore"
   USE %ELD
   INPUT CODTAB F_CODICE
   DISPLAY "Codice@10" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODICE CODTAB
   OUTPUT F_DESCR S0
   KEY 1
   HELP "Codice dell'elaborazione differita da eseguire"
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 3 "Descrizione "
  FIELD S0
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare un valore"
  USE %ELD KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE
  KEY 2
END

LIST F_TIPO 50
BEGIN
  PROMPT 2 4 "Tipo        "
  ITEM " |Esterna"
  ITEM "1|Consegna Ordini"
  ITEM "2|Fatturazione bolle"
  ITEM "3|Trasferimento a contabilita'"
  ITEM "4|Copia documento"
  ITEM "5|Generazione effetti"
  FIELD I0
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 6 "@bDocumento originale"
END

STRING F_CODNUM_I 4
BEGIN
   PROMPT 2 7 "Codice numerazione "
   FLAGS "U"
   FIELD S5
   USE %NUM
   INPUT CODTAB F_CODNUM_I
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODNUM_I CODTAB
   OUTPUT F_DOC1 S2[1,4]
   OUTPUT F_DOC2 S2[5,8]
   OUTPUT F_DOC3 S2[9,12]
   OUTPUT F_DOC4 S2[13,16]
   OUTPUT F_DOC5 S2[17,20]
   CHECKTYPE NORMAL
   WARNING "Numerazione errata"
END

STRING F_DOC1 4
BEGIN
  PROMPT 30 7 ""
  FLAGS "D"
END

STRING F_DOC2 4
BEGIN
  PROMPT 36 7 ""
  FLAGS "D"
END

STRING F_DOC3 4
BEGIN
  PROMPT 42 7 ""
  FLAGS "D"
END

STRING F_DOC4 4
BEGIN
  PROMPT 48 7 ""
  FLAGS "D"
END

STRING F_DOC5 4
BEGIN
  PROMPT 54 7 ""
  FLAGS "D"
END

STRING F_TIPODOC_I_1 4
BEGIN
   PROMPT 2 8 "Tipo documento     "
   FLAGS "U"
   FIELD S2[1,4]
   USE %TIP
   INPUT CODTAB F_TIPODOC_I_1
   DISPLAY "Codice" CODTAB
   DISPLAY "Tipo documento@50" S0
   OUTPUT F_TIPODOC_I_1 CODTAB
   CHECKTYPE REQUIRED
   STR_EXPR {(#F_CODNUM_I=="")||(#THIS_FIELD==#F_DOC1)||(#THIS_FIELD==#F_DOC2)||(#THIS_FIELD==#F_DOC3)||(#THIS_FIELD==#F_DOC4)||(#THIS_FIELD==#F_DOC5)}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_TIPODOC_I_2 4
BEGIN
   PROMPT 30 8 ""
   FLAGS "U"
   FIELD S2[5,8]
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_2
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_2 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#THIS_FIELD==#F_DOC1)||(#THIS_FIELD==#F_DOC2)||(#THIS_FIELD==#F_DOC3)||(#THIS_FIELD==#F_DOC4)||(#THIS_FIELD==#F_DOC5)}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_TIPODOC_I_3 4
BEGIN
   PROMPT 39 8 ""
   FLAGS "U"
   FIELD S2[9,12]
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_3
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_3 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#THIS_FIELD==#F_DOC1)||(#THIS_FIELD==#F_DOC2)||(#THIS_FIELD==#F_DOC3)||(#THIS_FIELD==#F_DOC4)||(#THIS_FIELD==#F_DOC5)}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_TIPODOC_I_4 4
BEGIN
   PROMPT 48 8 ""
   FLAGS "U"
   FIELD S2[13,15]
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_4
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_4 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#THIS_FIELD==#F_DOC1)||(#THIS_FIELD==#F_DOC2)||(#THIS_FIELD==#F_DOC3)||(#THIS_FIELD==#F_DOC4)||(#THIS_FIELD==#F_DOC5)}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_TIPODOC_I_5 4
BEGIN
   PROMPT 57 8 ""
   FLAGS "U"
   FIELD S2[16,19]
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_4
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_4 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#THIS_FIELD==#F_DOC1)||(#THIS_FIELD==#F_DOC2)||(#THIS_FIELD==#F_DOC3)||(#THIS_FIELD==#F_DOC4)||(#THIS_FIELD==#F_DOC5)}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_STATO_I_DOC_I_1 1
BEGIN
  PROMPT 2 9 "Stato iniziale     "
  FLAGS "U"
  FIELD S7[1,1]
  USE %STD
  INPUT CODTAB F_STATO_I_DOC_I_1 
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO_I_DOC_I_1 CODTAB
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare uno stato iniziale"
END

STRING F_STATO_I_DOC_I_2 1
BEGIN
  PROMPT 30 9 ""
  FLAGS "U"
  USE %STD
  INPUT CODTAB F_STATO_I_DOC_I_2 
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO_I_DOC_I_2 CODTAB
  CHECKTYPE NORMAL
  FIELD S7[2,2]
END

STRING F_STATO_I_DOC_I_3 1
BEGIN
  PROMPT 39 9 ""
  FLAGS "U"
  USE %STD
  INPUT CODTAB F_STATO_I_DOC_I_3
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO_I_DOC_I_3 CODTAB
  CHECKTYPE NORMAL
  FIELD S7[3,3]
END

STRING F_STATO_I_DOC_I_4 1
BEGIN
  PROMPT 48 9 ""
  FLAGS "U"
  USE %STD
  INPUT CODTAB F_STATO_I_DOC_I_4
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO_I_DOC_I_4 CODTAB
  CHECKTYPE NORMAL
  FIELD S7[4,4]
END

STRING F_STATO_I_DOC_I_5 1
BEGIN
  PROMPT 57 9 ""
  FLAGS "U"
  USE %STD
  INPUT CODTAB F_STATO_I_DOC_I_5
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO_I_DOC_I_5 CODTAB
  CHECKTYPE NORMAL
  FIELD S7[5,5]
END

STRING F_STATO_F_DOC_I 1
BEGIN
  PROMPT 2 10 "Stato finale       "
  FLAGS "U"
  FIELD S4
  USE %STD
  INPUT CODTAB F_STATO_F_DOC_I
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO_F_DOC_I CODTAB
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare uno stato finale"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 12 "@bDocumento finale"
END

STRING F_TIPODOC_F 4
BEGIN
   PROMPT 2 13 "Tipo documento     "
   FLAGS "U"
   FIELD S8
   CHECKTYPE REQUIRED
   WARNING "E' necessario specificare un valore"
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_F
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_F CODTAB
END

STRING F_STATO_F_DOC_F 1
BEGIN
  PROMPT 2 14 "Stato finale       "
  FLAGS "U"
  FIELD S9
  USE %STD
  INPUT CODTAB F_STATO_F_DOC_F
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO_F_DOC_F CODTAB
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare uno stato finale"
END

STRING F_CODNUM_F 4
BEGIN
   PROMPT 2 15 "Codice numerazione "
   FLAGS "U"
   FIELD S6
   USE %NUM
   INPUT CODTAB F_CODNUM_F
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODNUM_F CODTAB
   OUTPUT F_ATTIVA_PROVVISORIO B0
   CHECKTYPE REQUIRED
   WARNING "E' necessario specificare un codice di numerazione"
END

BOOLEAN F_ATTIVA_PROVVISORIO
BEGIN
   FLAGS "HG"
   MESSAGE FALSE CLEAR,F_PROVVISORIO
   MESSAGE TRUE ENABLE,F_PROVVISORIO
END

RADIOBUTTON F_PROVVISORIO 20
BEGIN
   PROMPT 42 13 "Tipo numerazione"
   ITEM " |Definitiva"
   ITEM "X|Provvisioria"
   FIELD B4
END

BOOLEAN F_INTERATTIVO
BEGIN
  PROMPT 2 18 "Interattivo"
  FIELD B5
  MESSAGE FALSE CLEAR,F_INSERT_MODE
  MESSAGE TRUE ENABLE,F_INSERT_MODE
END

BOOLEAN F_INSERT_MODE
BEGIN
  PROMPT 42 18 "Attivo solo in creazione"
  FIELD B6
END

STRING F_APPLICAZIONE 20
BEGIN
  PROMPT 2 19 "Applicazione       "
  FIELD S3
END

ENDPAGE

PAGE "Parametri per raggruppamenti" -1 -1 78 20

GROUPBOX DLG_NULL 75 8
BEGIN
  PROMPT 1 1 "Condizioni per raggruppamento documenti"
  FLAG "R"
END

BOOLEAN F_CAMBIO
BEGIN
  PROMPT 2 2 "Cambio"
  FIELD S1[1,1]
END

BOOLEAN F_SCONTO
BEGIN
  PROMPT 2 3 "Sconto"
  FIELD S1[2,2]
END

BOOLEAN F_TIPODOC
BEGIN
  PROMP 2 4 "Tipo documento"
  FIELD S1[3,3]
END

BOOLEAN F_CODNUM
BEGIN
  PROMP 2 5 "Codice numerazione"
  FIELD S1[4,4]
END

BOOLEAN F_SPEDIZIONE
BEGIN
  PROMPT 2 6 "Modalita' di spedizione"
  FIELD S1[9,9]
END

BOOLEAN F_PORTO
BEGIN
  PROMPT 2 7 "Porto"
  FIELD S1[10,10]
END

BOOLEAN F_CONDPAG
BEGIN
  PROMP 40 2 "Condizione di pagamento"
  FIELD S1[5,5]
END

BOOLEAN F_BANCA
BEGIN
  PROMPT 40 3 "Banca di appoggio"
  FIELD S1[6,6]
END

BOOLEAN F_LISTINO
BEGIN
  PROMPT 40 4 "Listino"
  FIELD S1[7,7]
END

BOOLEAN F_AGENTE
BEGIN
  PROMP 40 5 "Agente"
  FIELD S1[8,8]
END

BOOLEAN F_TRASPORTO
BEGIN
  PROMPT 40 6 "Causale di trasporto"
  FIELD S1[11,11]
END

BOOLEAN F_VETTORI
BEGIN
  PROMPT 40 7 "Vettori"
  FIELD S1[12,12]
END

GROUPBOX DLG_NULL 75 4
BEGIN
  PROMPT 1 10 "Modalita' di raggruppamento delle righe"
  FLAG "R"
END

BOOLEAN F_SOMMA_RIGHE
BEGIN
  PROMPT 2 11 "Somma righe simili"
  MESSAGE FALSE ENABLE,F_RIFERIMENTI_IN_TESTA
  MESSAGE TRUE DISABLE,F_RIFERIMENTI_IN_TESTA|"X",F_RIFERIMENTI_IN_TESTA
  FIELD B0
END

BOOLEAN F_MAGAZZINO
BEGIN
  PROMPT 2 12 "Magazzino"
  FIELD S1[40,40]
END

BOOLEAN F_IVA
BEGIN
  PROMPT 28 12 "Codice IVA"
  FIELD S1[41,41]
END

BOOLEAN F_PREZZO
BEGIN
  PROMPT 56 12 "Prezzo e Sconto"
  FIELD S1[42,42]
END

BOOLEAN F_RIFERIMENTI
BEGIN
  PROMPT 2 14 "Gestione riferimenti"
  FIELD B1
END

BOOLEAN F_RIFERIMENTI_IN_TESTA
BEGIN
  PROMPT 40 14 "Tutti i riferimenti in testa"
  FIELD B2
END

BOOLEAN F_IGNORA_DESCRIZIONI
BEGIN
  PROMPT 2 15 "Ignora righe con solo descrizione"
  FIELD B3
END

ENDPAGE

ENDMASK