root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Causali richiamate

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4620 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-06-12 15:25:55 +00:00
parent 8f38f679ce
commit 7b65763599
2 changed files with 45 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
mg/batbcau.h
View File

@ -23,5 +23,6 @@
#define F_ERASER 130
#define F_SUMSIGN 131
#define F_CHECKER 132
#define F_CAUCOLL 133
#define G_SGN 20

79
mg/batbcau.uml
View File

@ -65,15 +65,9 @@ BEGIN
FLAGS "D"
END
//STRING H_RAGGFD 50
//BEGIN
// PROMPT 30 5 ""
// FLAGS "HD"
//END
LISTBOX F_TIPOMOV 16
BEGIN
PROMPT 2 7 "Tipo movimento "
PROMPT 2 6 "Tipo movimento "
FIELD S7
ITEM "C|carico"
ITEM "S|scarico"
@ -82,16 +76,31 @@ END
LISTBOX F_TIPOPR 16
BEGIN
PROMPT 42 7 "Tipo prezzo "
PROMPT 42 6 "Tipo prezzo "
FIELD S6
ITEM "P|Prezzo"
ITEM "C|Costo"
ITEM "L|Libero"
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
LISTBOX F_SGNGIAC 1
BEGIN
PROMPT 2 9 "Movimentazione giacenza "
PROMPT 2 10 "Movimentazione giacenza "
FIELD I0
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -104,7 +113,7 @@ END
LISTBOX F_SGNRIM 1
BEGIN
PROMPT 2 10 " '' '' rim.iniz. "
PROMPT 2 11 " '' '' rim.iniz. "
FIELD I11
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -117,7 +126,7 @@ END
LISTBOX F_SGNACQ 1
BEGIN
PROMPT 2 11 " '' '' acquistato "
PROMPT 2 12 " '' '' acquistato "
FIELD I1
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -128,22 +137,9 @@ BEGIN
GROUP G_SGN
END
LISTBOX F_SGNENTR 1
BEGIN
PROMPT 42 11 "Movimentazione entrato "
FIELD I2
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
ITEM "1|+"
MESSAGE K_TAB,F_SUMSIGN
ITEM "-1|-"
MESSAGE K_TAB,F_SUMSIGN
GROUP G_SGN
END
LISTBOX F_SGNVEN 1
BEGIN
PROMPT 2 12 " '' '' venduto "
PROMPT 42 12 "Movimentazione venduto "
FIELD I3
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -154,9 +150,21 @@ BEGIN
GROUP G_SGN
END
LISTBOX F_SGNENTR 1
BEGIN
PROMPT 2 13 " '' '' entrato "
FIELD I2
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
ITEM "1|+"
MESSAGE K_TAB,F_SUMSIGN
ITEM "-1|-"
MESSAGE K_TAB,F_SUMSIGN
GROUP G_SGN
END
LISTBOX F_SGNUSC 1
BEGIN
PROMPT 42 12 " '' '' uscito "
PROMPT 42 13 " '' '' uscito "
FIELD I4
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -167,9 +175,10 @@ BEGIN
GROUP G_SGN
END
LISTBOX F_SGNORDF 1
BEGIN
PROMPT 2 13 " '' '' ord. forn. "
PROMPT 2 14 " '' '' ord. forn. "
FIELD I6
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -182,7 +191,7 @@ END
LISTBOX F_SGNORDC 1
BEGIN
PROMPT 42 13 " '' '' ord. cli. "
PROMPT 42 14 " '' '' ord. cli. "
FIELD I5
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -195,7 +204,7 @@ END
LISTBOX F_SGNSCAR 1
BEGIN
PROMPT 2 14 " '' '' scarti "
PROMPT 2 15 " '' '' scarti "
FIELD I12
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -208,7 +217,7 @@ END
LISTBOX F_SGNPRODF 1
BEGIN
PROMPT 2 15 " '' '' prod. fin. "
PROMPT 2 16 " '' '' prod. fin. "
FIELD I10
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -221,7 +230,7 @@ END
LISTBOX F_SGNPRODC 1
BEGIN
PROMPT 42 15 " '' '' prod.comp. "
PROMPT 42 16 " '' '' prod.comp. "
FIELD I9
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -234,7 +243,7 @@ END
LISTBOX F_SGNACL 1
BEGIN
PROMPT 2 16 " '' '' a conto l. "
PROMPT 2 17 " '' '' a conto l. "
FIELD I8
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -247,7 +256,7 @@ END
LISTBOX F_SGNINCL 1
BEGIN
PROMPT 42 16 " '' '' in conto l."
PROMPT 42 17 " '' '' in conto l."
FIELD I7
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -260,7 +269,7 @@ END
LISTBOX F_SGNLABEL 1
BEGIN
PROMPT 2 17 " '' '' etichette "
PROMPT 2 18 " '' '' etichette "
FIELD I13
ITEM "0| "
MESSAGE K_TAB,F_SUMSIGN
@ -273,7 +282,7 @@ END
NUMBER F_SUMSIGN 4 0
BEGIN
PROMPT 2 18 "Somma segni "
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