campo-sirio/mg/batbcau.uml

#include "batbcau.h"

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

PAGE "Gestione causali" 11 60 14

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


STRING F_CODICE  4
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
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"
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 S6
  CHECKTYPE NORMAL
  GROUP 23
  MESSAGE EMPTY RESET,F_RAGGFD|RESET,H_TIPOMOV|CHECK,H_TIPOMOV
END

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


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


LISTBOX F_TIPOMOV 16
BEGIN 
  PROMPT 2 6 "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 42 6 "Tipo prezzo "
  FIELD S6
  ITEM "P|Prezzo"
  ITEM "C|Costo"
  ITEM "L|Libero"   
END

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

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

STRING F_CAUCOLL 4
BEGIN
  PROMPT 2 8 "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
  CHECKTYPE NORMAL
END


NUMBER F_SUMSIGN  4 0
BEGIN 
  PROMPT 2 19 "Controllo segni           "
  FLAGS "DG"
END

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

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

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

LISTBOX F_SGNVEN  1
BEGIN 
    PROMPT 42 12  "Movimentazione venduto    "
  FIELD S2[7,8]
  ITEM "0| "
  MESSAGE K_TAB,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE K_TAB,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE K_TAB,F_SUMSIGN
  GROUP G_SGNVAL
END

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

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


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

LISTBOX F_SGNORDC 1
BEGIN 
  PROMPT 42 14 "    ''    ''   ord. cli.  "
  FIELD S2[11,12]
  ITEM "0| "
  MESSAGE K_TAB,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE K_TAB,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE K_TAB,F_SUMSIGN
  GROUP G_SGNVAL

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

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

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

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

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

LISTBOX F_SGNLABEL 1
BEGIN
  PROMPT 2 18 "    ''    ''   etichette  "
  FIELD S2[27,28]
  ITEM "0| "
  MESSAGE K_TAB,F_SUMSIGN
  ITEM "+1|+"
  MESSAGE K_TAB,F_SUMSIGN
  ITEM "-1|-"
  MESSAGE K_TAB,F_SUMSIGN
  GROUP G_SGNQTA
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