campo-sirio/ve/batbeld.uml

#include "batbeld.h"

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

PAGE "Elaborazioni differite" -1 -1 0 0

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

STRING F_CODICE 8
BEGIN
   PROMPT 2 1 "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 2 "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 3 "Tipo        "
  ITEM " |Esterna"
    MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|SHOW,9@
  ITEM "1|Consegna Ordini"
    MESSAGE SHOW,1@|HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,9@
  ITEM "2|Fatturazione bolle"
    MESSAGE HIDE,1@|SHOW,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,9@
  ITEM "3|Trasferimento a contabilita'"
    MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|HIDE,4@|HIDE,5@|SHOW,9@
  ITEM "4|Copia documento"
    MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|SHOW,4@|HIDE,5@|HIDE,9@
  ITEM "5|Generazione effetti"
    MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|HIDE,4@|SHOW,5@|HIDE,9@
  FIELD I0
END

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 5 "@bDocumento originale"
END

STRING F_CODNUM_I 4
BEGIN
   PROMPT 2 6 "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]
   OUTPUT F_DOC6 S2[21,24]
   OUTPUT F_DOC7 S2[25,28]
   OUTPUT F_DOC8 S2[29,32]
   OUTPUT F_DOC9 S2[33,36]
   OUTPUT F_DOC10 S2[37,40]
   OUTPUT H_DOC1 S2
   OUTPUT H_DOC2 S3
   CHECKTYPE NORMAL
   WARNING "Numerazione errata"
END

STRING H_DOC1 70
BEGIN
  PROMPT 29 5 ""
  FLAGS "H"
END

STRING H_DOC2 70
BEGIN
  PROMPT 29 5 ""
  FLAGS "H"
END

STRING F_DOC1 4
BEGIN
  PROMPT 29 6 ""
  FLAGS "D"
END

STRING F_DOC2 4
BEGIN
  PROMPT 34 6 ""
  FLAGS "D"
END

STRING F_DOC3 4
BEGIN
  PROMPT 39 6 ""
  FLAGS "D"
END

STRING F_DOC4 4
BEGIN
  PROMPT 44 6 ""
  FLAGS "D"
END

STRING F_DOC5 4
BEGIN
  PROMPT 49 6 ""
  FLAGS "D"
END

STRING F_DOC6 4
BEGIN
  PROMPT 54 6 ""
  FLAGS "D"
END

STRING F_DOC7 4
BEGIN
  PROMPT 59 6 ""
  FLAGS "D"
END

STRING F_DOC8 4
BEGIN
  PROMPT 64 6 ""
  FLAGS "D"
END

STRING F_DOC9 4
BEGIN
  PROMPT 69 6 ""
  FLAGS "D"
END

STRING F_DOC10 4
BEGIN
  PROMPT 74 6 ""
  FLAGS "D"
END

STRING F_TIPODOC_I_1 4
BEGIN
   PROMPT 2 7 "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=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_TIPODOC_I_2 4
BEGIN
   PROMPT 30 7 ""
   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=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_TIPODOC_I_3 4
BEGIN
   PROMPT 39 7 ""
   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=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_TIPODOC_I_4 4
BEGIN
   PROMPT 48 7 ""
   FLAGS "U"
   FIELD S2[13,16]
   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=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_TIPODOC_I_5 4
BEGIN
   PROMPT 57 7 ""
   FLAGS "U"
   FIELD S2[17,20]
   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=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_STATO_I_DOC_I_1 1
BEGIN
  PROMPT 2 8 "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 8 ""
  FLAGS "U"
  COPY USE F_STATO_I_DOC_I_1
  INPUT CODTAB F_STATO_I_DOC_I_2
  COPY DISPLAY F_STATO_I_DOC_I_1
  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 8 ""
  FLAGS "U"
  COPY USE F_STATO_I_DOC_I_1
  INPUT CODTAB F_STATO_I_DOC_I_3
  COPY DISPLAY F_STATO_I_DOC_I_1
  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 8 ""
  FLAGS "U"
  COPY USE F_STATO_I_DOC_I_1
  INPUT CODTAB F_STATO_I_DOC_I_4
  COPY DISPLAY F_STATO_I_DOC_I_1
  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 8 ""
  FLAGS "U"
  COPY USE F_STATO_I_DOC_I_1
  INPUT CODTAB F_STATO_I_DOC_I_5
  COPY DISPLAY F_STATO_I_DOC_I_1
  OUTPUT F_STATO_I_DOC_I_5 CODTAB
  CHECKTYPE NORMAL
  FIELD S7[5,5]
END

STRING F_TIPODOC_I_6 4
BEGIN
   PROMPT 2 9 "Tipo documento     "
   FLAGS "U"
   FIELD S2[21,24]
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_6
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_6 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_TIPODOC_I_7 4
BEGIN
   PROMPT 30 9 ""
   FLAGS "U"
   FIELD S2[25,28]
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_7
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_7 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_TIPODOC_I_8 4
BEGIN
   PROMPT 39 9 ""
   FLAGS "U"
   FIELD S2[29,32]
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_8
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_8 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_TIPODOC_I_9 4
BEGIN
   PROMPT 48 9 ""
   FLAGS "U"
   FIELD S2[33,36]
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_9
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_9 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_TIPODOC_I_10 4
BEGIN
   PROMPT 57 9 ""
   FLAGS "U"
   FIELD S2[37,40]
   COPY USE F_TIPODOC_I_1
   INPUT CODTAB F_TIPODOC_I_10
   COPY DISPLAY F_TIPODOC_I_1
   OUTPUT F_TIPODOC_I_10 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))}
   WARNING "E' necessario specificare un valore valido e previsto dalla numerazione"
END

STRING F_STATO_I_DOC_I_6 1
BEGIN
  PROMPT 2 10 "Stato iniziale     "
  FLAGS "U"
  FIELD S10[1,1]
  COPY USE F_STATO_I_DOC_I_1
  INPUT CODTAB F_STATO_I_DOC_I_6
  COPY DISPLAY F_STATO_I_DOC_I_1
  OUTPUT F_STATO_I_DOC_I_6 CODTAB
  CHECKTYPE NORMAL
  WARNING "E' necessario specificare uno stato iniziale"
END

STRING F_STATO_I_DOC_I_7 1
BEGIN
  PROMPT 30 10 ""
  FLAGS "U"
  COPY USE F_STATO_I_DOC_I_1
  INPUT CODTAB F_STATO_I_DOC_I_7
  COPY DISPLAY F_STATO_I_DOC_I_1
  OUTPUT F_STATO_I_DOC_I_7 CODTAB
  CHECKTYPE NORMAL
  FIELD S10[2,2]
END

STRING F_STATO_I_DOC_I_8 1
BEGIN
  PROMPT 39 10 ""
  FLAGS "U"
  COPY USE F_STATO_I_DOC_I_1
  INPUT CODTAB F_STATO_I_DOC_I_8
  COPY DISPLAY F_STATO_I_DOC_I_1
  OUTPUT F_STATO_I_DOC_I_8 CODTAB
  CHECKTYPE NORMAL
  FIELD S10[3,3]
END

STRING F_STATO_I_DOC_I_9 1
BEGIN
  PROMPT 48 10 ""
  FLAGS "U"
  COPY USE F_STATO_I_DOC_I_1
  INPUT CODTAB F_STATO_I_DOC_I_9
  COPY DISPLAY F_STATO_I_DOC_I_1
  OUTPUT F_STATO_I_DOC_I_9 CODTAB
  CHECKTYPE NORMAL
  FIELD S10[4,4]
END

STRING F_STATO_I_DOC_I_10 1
BEGIN
  PROMPT 57 10 ""
  FLAGS "U"
  COPY USE F_STATO_I_DOC_I_1
  INPUT CODTAB F_STATO_I_DOC_I_10
  COPY DISPLAY F_STATO_I_DOC_I_1
  OUTPUT F_STATO_I_DOC_I_10 CODTAB
  CHECKTYPE NORMAL
  FIELD S10[5,5]
END

STRING F_STATO_F_DOC_I 1
BEGIN
  PROMPT 2 11 "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 42 5
BEGIN
  PROMPT 1 13 "@bDocumento finale"
END

STRING F_TIPODOC_F 4
BEGIN
   PROMPT 2 14 "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 15 "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 16 "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

BOOLEAN F_PROVVISORIO
BEGIN
   PROMPT 45 13 "Genera documento provvisorio"
   FIELD B5
END

RADIOBUTTON F_PROTOCOLLO 1 38 
BEGIN
   PROMPT 44 14 "@bProtocollo IVA"
   ITEM " |Da numero documento"
   ITEM "X|Da registro IVA"
   FIELD B4
   GROUP 3

END

BOOLEAN F_AGGIORNA_TESTATA
BEGIN
  PROMPT 2 18 "Aggiorna testata dopo l'elaborazione, se il documento e' vuoto"
  FIELD B6
END

STRING F_APPLICAZIONE 70 50
BEGIN
  PROMPT 2 19 "Applicazione       "
  FIELD S3
  GROUP 9
END

BOOLEAN F_ORDINA
BEGIN
   PROMPT 50 19 "Ordina per codice"
   FIELD B7
   GROUP 1
END

ENDPAGE

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

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 1 "@bCondizioni 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 28 2 "Condizione di pagamento"
  FIELD S1[5,5]
END

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

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

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

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

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

BOOLEAN F_DESTINAZIONE
BEGIN
  PROMPT 56 2 "Destinazione"
  FIELD S1[13,13]
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 9 "@bModalita' di raggruppamento delle righe"
  FLAG "R"
END

BOOLEAN F_SOMMA_RIGHE
BEGIN
  PROMPT 2 10 "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 11 "Magazzino"
  FIELD S1[41,41]
END

BOOLEAN F_IVA
BEGIN
  PROMPT 28 11 "Codice IVA"
  FIELD S1[42,42]
END

BOOLEAN F_PREZZO
BEGIN
  PROMPT 2 12 "Prezzo e Sconto"
  FIELD S1[43,43]
END

BOOLEAN F_PREZZO_DA_ORDINE
BEGIN
  PROMPT 28 12 "Ricava prezzo e sconto da ordine"
  FIELD B5
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 14 "@bGestione descrizioni"
END

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

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

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

BOOLEAN F_USA_DOCRIF
BEGIN
  PROMPT 40 16 "Usa documento di rif. in descr.rif."
  FIELD B8
END

NUMBER F_COLONNE_CO 1
BEGIN
  PROMPT 1 18 "Intestazioni consegna ordini "
  SHEET "Tipo|Colonna 1@25|Colonna 2@25"
  ITEM " |Quantita' residua|Quantita' da evadere"
  ITEM "1|Quantita' consegnata|Quantita' da fatturare"
  ITEM "2|Residuo|Da evadere"
  INPUT F_COLONNE_CO
  OUTPUT F_COLONNE_CO
  GROUP 1
  FIELD I1
END

ENDPAGE

ENDMASK