campo-sirio/mg/batbcau.uml

#include "batbcau.h"

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

PAGE "Definizione causale" 11 60 14

GROUPBOX DLG_NULL 75 5
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END


STRING F_CODICE  5
BEGIN 
  PROMPT 2 1 "Codice causale "
  FIELD CODTAB
  KEY 1
  USE %CAU
  FLAGS "U"
  INPUT CODTAB F_CODICE
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCAU S0
  CHECKTYPE REQUIRED
  MESSAGE COPY, F_CODICE2
END

STRING F_DESCAU 50
BEGIN 
  PROMPT 2 3 "Descrizione    "
  FIELD S0
  USE %CAU KEY 2
  KEY 2
  INPUT S0 F_DESCAU
  COPY DISPLAY F_CODICE  
  COPY OUTPUT  F_CODICE  
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
  MESSAGE COPY, F_DESCAU2
END

STRING F_RAGGF 4
BEGIN 
  PROMPT 2 5 "Raggrupp. fiscale   "
  FIELD S8
  FLAGS "U"
  USE %RFC
  INPUT CODTAB F_RAGGF
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_RAGGF CODTAB
  OUTPUT F_RAGGFD S0
  OUTPUT H_TIPOMOV S7
  CHECKTYPE NORMAL
  GROUP 23
  MESSAGE EMPTY RESET,F_RAGGFD|RESET,H_TIPOMOV|CHECK,H_TIPOMOV
END

STRING F_RAGGFD 50 40
BEGIN 
  PROMPT 30 5 ""
  FLAGS "D"
END


STRING H_TIPOMOV  1
BEGIN 
  FLAGS "HG"
  PROMPT 2 7 "Tipo movimento      "
  MESSAGE COPY,F_TIPOMOV | DISABLE,F_TIPOMOV
  MESSAGE EMPTY ENABLE,F_TIPOMOV
END


LISTBOX F_TIPOMOV 16
BEGIN 
  PROMPT 2 7 "Tipo movimento      "
  FIELD S7
  ITEM "V|varie"    
  ITEM "C|carico"
  ITEM "S|scarico"
//  STR_EXPR (#F_TIPOMOV=="V")||(#F_RAGGF!="")
//  WARNING "Necessario indicare il raggruppamento fiscale"
END

LISTBOX F_TIPOPR  16
BEGIN 
  PROMPT 2 9 "Tipo prezzo         "
  FIELD S6
  ITEM "P|Prezzo"
  ITEM "C|Costo"
  ITEM "L|Libero"   
END

BOOL F_MOVQTA 
BEGIN 
  FIELD B0
  PROMPT 2 11 "Movimenta solo quantita'"
  MESSAGE TRUE RESET,F_MOVVAL
END

BOOL F_MOVVAL 
BEGIN 
  FIELD B1
  PROMPT 42 11 "Movimenta solo valori"
  MESSAGE TRUE RESET,F_MOVQTA
END

BOOL F_UPDTULC
BEGIN 
  FIELD B2
  PROMPT 2 13 "Aggiorna costo medio"
END

STRING F_CAUCOLL 5
BEGIN
  PROMPT 2 15 "Causale collegata  "
  FIELD S9
  USE %CAU SELECT S9==""
  FLAGS "U"
  INPUT CODTAB F_CAUCOLL
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CAUCOLL CODTAB
  OUTPUT F_DCAUCOLL S0
  CHECKTYPE NORMAL
  ADD NONE //RUN MG0 -0 %CAU
  WARNING "La causale collegata deve essere una causale senza ulteriori collegamenti"
END

STRING F_DCAUCOLL 50 40
BEGIN
  PROMPT 32 15 ""
  USE %CAU KEY 2 SELECT S9==""
  FLAGS "U"
  INPUT S0 F_DCAUCOLL
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Codice " CODTAB
  OUTPUT F_DCAUCOLL S0
  OUTPUT F_CAUCOLL CODTAB
  CHECKTYPE NORMAL
  ADD NONE //RUN MG0 -0 %CAU
  WARNING "La causale collegata deve essere una causale senza ulteriori collegamenti"
END

BOOL F_DIBAEXPLOSION
BEGIN 
  FIELD B3
  PROMPT 2 17 "Esplodi mediante Distinta Base"
END

STRING F_DEFAULTMAG 3
BEGIN
  PROMPT 2 19 "Magazzino di default "
  FIELD S10[1,3]
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_DEFAULTMAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DEFAULTMAG CODTAB
  MESSAGE EMPTY DISABLE,F_DEFAULTDEP 
  MESSAGE ENABLE,F_DEFAULTDEP 
END

STRING F_DEFAULTDEP 2
BEGIN
  PROMPT 2 20 "Deposito  di default "
  FIELD S10[4,5]
  USE MAG SELECT CODTAB[4,5]!=""
  INPUT CODTAB[1,3] F_DEFAULTMAG
  INPUT CODTAB[4,5] F_DEFAULTDEP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DEFAULTMAG CODTAB[1,3]
  OUTPUT F_DEFAULTDEP CODTAB[4,5]
END
ENDPAGE

PAGE "Movimentazione campi" 11 60 14

STRING F_CODICE2 5
BEGIN 
  FLAGS "D"
  PROMPT 2 1 "Codice causale "
END

STRING F_DESCAU2 50
BEGIN 
  FLAGS "D"
  PROMPT 2 2 "Descrizione    "
END

LISTBOX F_SGNGIAC 1
BEGIN 
  PROMPT 2 4 "Movimentazione giacenza   "
  FIELD S2[1,2]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNQTA
END

LISTBOX F_SGNRIM 1
BEGIN
  PROMPT 2 5 "    ''    ''   rim.iniz.  "
  FIELD S2[23,24]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNVAL
END

LISTBOX F_SGNACQ  1
BEGIN 
  PROMPT 2 6 "    ''    ''   acquistato "
  FIELD S2[3,4]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNVAL
END

LISTBOX F_SGNVEN  1
BEGIN 
  PROMPT 2 7  "    ''    ''   venduto    "
  FIELD S2[7,8]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNVAL
END

LISTBOX F_SGNENTR 1
BEGIN 
    PROMPT 2 8 "    ''    ''   entrato    "
  FIELD S2[5,6]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNVAL
END

LISTBOX F_SGNUSC 1
BEGIN
  PROMPT 2 9  "    ''    ''   uscito     "
  FIELD S2[9,10]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNVAL
END


LISTBOX F_SGNSCAR 1
BEGIN 
  PROMPT 2 10 "    ''    ''   scarti     "
  FIELD S2[25,26]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNVAL
END

LISTBOX F_SGNPRODF 1
BEGIN 
  PROMPT 2 11 "    ''    ''   prod. fin. "
  FIELD S2[21,22]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNQTA
END

LISTBOX F_SGNPRODC  1
BEGIN 
  PROMPT 2 12 "    ''    ''   prod.comp. "
  FIELD S2[19,20]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNQTA
END

LISTBOX F_SGNACL  1
BEGIN 
  PROMPT 2 13 "    ''    ''   a conto l. "
  FIELD S2[17,18]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNQTA
END

LISTBOX F_SGNINCL 1
BEGIN 
    PROMPT 2 14 "    ''    ''   in conto l."
  FIELD S2[15,16]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNQTA
END

LISTBOX F_SGNLABEL 1
BEGIN
  PROMPT 2 15 "    ''    ''   etichette  "
  FIELD S2[27,28]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNQTA
END

LISTBOX F_SGNORDF 1
BEGIN 
  PROMPT 2 16 "    ''    ''   ord. forn. "
  FIELD S2[13,14]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNVAL
END

LISTBOX F_SGNORDC 1
BEGIN 
  PROMPT 2 17 "    ''    ''   ord. cli.  "
  FIELD S2[11,12]
  ITEM "0| "
  MESSAGE CHECK,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE CHECK,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE CHECK,F_SUMSIGN
  GROUP G_SGNVAL
END


NUMBER F_SUMSIGN 4 0
BEGIN
  PROMPT 2 19 "Controllo segni     "
  FLAGS "DG"
  NUM_CALC ((#F_SGNGIAC-#F_SGNRIM)-(#F_SGNACQ+#F_SGNENTR)+(#F_SGNVEN+#F_SGNUSC)+(#F_SGNACL-#F_SGNINCL)+(#F_SGNPRODF-#F_SGNPRODC)+#F_SGNSCAR)
  MESSAGE COPY,F_CHECKER
END

NUMBER F_CHECKER  4 0
BEGIN
  PROMPT 0 0 "Checker "
  FLAGS "HG"
  NUM_EXPR #F_SUMSIGN=="0"
  WARNING "Deve essere soddisfatta l'equazione: ((GIAC-RIM)-(ACQ+ENTR)+(VEN+USC)+(ACL-INCL)+(PRODF-PRODC))=0"
END

ENDPAGE