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

Maschere di magazzino

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4169 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-02-28 11:48:44 +00:00
parent b9a7293aae
commit c339104e50
10 changed files with 741 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
mg/batbcau.h Executable file
View File

@ -0,0 +1,27 @@
#define F_CODICE 101
#define F_DESCAU 102
#define F_RAGGF 103
#define F_RAGGFD 104
#define H_RAGGFD 105
#define F_TIPOPR 106
#define F_SGNGIAC 107
#define F_SGNRIM 108
#define F_SGNACQ 109
#define F_SGNENTR 110
#define F_SGNVEN 111
#define F_SGNUSC 112
#define F_SGNORDF 113
#define F_SGNORDC 114
#define F_SGNSCAR 115
#define F_SGNPRODF 116
#define F_SGNPRODC 117
#define F_SGNACL 118
#define F_SGNINCL 119
#define F_SGNLABEL 120
#define F_TIPOMOV 121
#define H_TIPOMOV 122
#define F_ERASER 130
#define F_SUMSIGN 131
#define F_CHECKER 132
#define G_SGN 20

302
mg/batbcau.uml Executable file
View File

@ -0,0 +1,302 @@
#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 F_TIPOMOV S6
CHECKTYPE NORMAL
GROUP 23
MESSAGE DISABLE,F_TIPOMOV
MESSAGE EMPTY ENABLE,F_TIPOMOV|RESET,F_RAGGFD
END
STRING F_RAGGFD 50
BEGIN
PROMPT 30 5 ""
FLAGS "D"
END
//STRING H_RAGGFD 50
//BEGIN
// PROMPT 30 5 ""
// FLAGS "HD"
//END
LISTBOX F_TIPOMOV 16
BEGIN
PROMPT 2 7 "Tipo movimento "
FIELD S7
ITEM "C|carico"
ITEM "S|scarico"
ITEM "V|varie"
END
LISTBOX F_TIPOPR 16
BEGIN
PROMPT 42 7 "Tipo prezzo "
FIELD S6
ITEM "P|Prezzo"
ITEM "C|Costo"
ITEM "L|Libero"
END
LISTBOX F_SGNGIAC 1
BEGIN
PROMPT 2 9 "Movimentazione giacenza "
FIELD I0
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_SGNRIM 1
BEGIN
PROMPT 2 10 " '' '' rim.iniz. "
FIELD I11
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_SGNACQ 1
BEGIN
PROMPT 2 11 " '' '' acquistato "
FIELD I1
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_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 "
FIELD I3
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 "
FIELD I4
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_SGNORDF 1
BEGIN
PROMPT 2 13 " '' '' ord. forn. "
FIELD I6
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_SGNORDC 1
BEGIN
PROMPT 42 13 " '' '' ord. cli. "
FIELD I5
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_SGNSCAR 1
BEGIN
PROMPT 2 14 " '' '' scarti "
FIELD I12
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_SGNPRODF 1
BEGIN
PROMPT 2 15 " '' '' prod. fin. "
FIELD I10
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_SGNPRODC 1
BEGIN
PROMPT 42 15 " '' '' prod.comp. "
FIELD I9
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_SGNACL 1
BEGIN
PROMPT 2 16 " '' '' a conto l. "
FIELD I8
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_SGNINCL 1
BEGIN
PROMPT 42 16 " '' '' in conto l."
FIELD I7
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_SGNLABEL 1
BEGIN
PROMPT 2 17 " '' '' etichette "
FIELD I13
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
NUMBER F_SUMSIGN 4 0
BEGIN
PROMPT 2 18 "Somma 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))
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
/*
L'item "0" deve essere il primo item dei listbox;
la presenza del blank (==0) riporta la listbox al primo
item
STRING F_ERASER 1
BEGIN
PROMPT 0 0 ""
FLAGS "HG"
MESSAGE EMPTY "X",F_ERASER|"0",G_SGN@
END*/
ENDPAGE

11
mg/batbfca.h Executable file
View File

@ -0,0 +1,11 @@
// ARTICOLI
#define F_CODLIV 101
#define F_DESLIV 102
#define F_FORMLIV 103
#define F_CODGROUP 104
#define F_DESGROUP 105
#define F_LENFORM 106
#define F_NEXTLIV 107
#define F_CHECKLIV 108

64
mg/batbfca.uml Executable file
View File

@ -0,0 +1,64 @@
#include "batbfca.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Formato Codice Articoli" 11 60 14
GROUPBOX DLG_NULL 75 6
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
// codice parte del formato codice
NUMBER F_CODLIV 1
BEGIN
PROMPT 2 2 "Parte del codice "
FLAG "U"
FIELD CODTAB[1,2]
KEY 1
USE FCA
INPUT CODTAB F_CODLIV
DISPLAY "Codice Parte" CODTAB[1,2]
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODLIV CODTAB
OUTPUT F_DESLIV S0
OUTPUT F_FORMLIV S1
CHECKTYPE REQUIRED
// NUM_EXPR (#F_CODLIV<5)
// WARNING "Sono ammessi solo quattro livelli di gruppi di codice"
END
// descrizione parte del formato codice
STRING F_DESLIV 50
BEGIN
PROMPT 2 4 " Descrizione "
FIELD S0
KEY 2
USE FCA
INPUT S0 F_DESLIV
DISPLAY "Descrizione@50 " S0
DISPLAY "Codice Parte" CODTAB[1,2]
COPY OUTPUT F_CODLIV
CHECKTYPE REQUIRED
END
// STRINGA DEL FORMATO CODICE
STRING F_FORMLIV 24
BEGIN
PROMPT 2 6 " Formato "
FIELD S1
CHECKTYPE REQUIRED
END
NUMBER F_LENFORM 2
BEGIN
PROMPT 2 100 ""
FLAG "DG"
FIELD I0
END
ENDPAGE

5
mg/batbfcg.h Executable file
View File

@ -0,0 +1,5 @@
#define F_CODLIV 101
#define F_DESLIV 102
#define F_FORMLIV 103
#define F_CODGROUP 104
#define F_DESGROUP 105

65
mg/batbfcg.uml Executable file
View File

@ -0,0 +1,65 @@
#include "batbfca.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Formato Codice Livelli di giacenza" 11 60 14
GROUPBOX DLG_NULL 75 6
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
// codice parte del formato codice
NUMBER F_CODLIV 1
BEGIN
PROMPT 2 2 "Numero livello "
FIELD CODTAB[1,1]
KEY 1
USE FCG
INPUT CODTAB[1,1] F_CODLIV
DISPLAY "Codice Parte" CODTAB[1,2]
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODLIV CODTAB
OUTPUT F_DESLIV S0
OUTPUT F_FORMLIV S1
CHECKTYPE REQUIRED
NUM_EXPR (#F_CODLIV<5)
WARNING "Sono ammessi solo quattro livelli di giacenza"
END
// descrizione parte del formato codice
STRING F_DESLIV 50
BEGIN
PROMPT 2 4 " Descrizione "
FIELD S0
KEY 2
USE FCG
INPUT S0 F_DESLIV
DISPLAY "Descrizione@50 " S0
DISPLAY "Codice Parte" CODTAB[1,2]
COPY OUTPUT F_CODLIV
CHECKTYPE REQUIRED
END
// STRINGA DEL FORMATO CODICE
STRING F_FORMLIV 24
BEGIN
PROMPT 2 6 " Formato "
FIELD S1
CHECKTYPE REQUIRED
END
NUMBER F_LENFORM 2
BEGIN
PROMPT 2 100 ""
FLAG "D"
FIELD I0
END
ENDPAGE

7
mg/batbgca.h Executable file
View File

@ -0,0 +1,7 @@
#define F_CODFORM 101
#define F_DESFORM 102
#define F_FORMCOD 103
#define F_CODGROUP 104
#define F_DESCR 105
#define F_DITTA 106

115
mg/batbgca.uml Executable file
View File

@ -0,0 +1,115 @@
#include "batbfca.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Gruppi Codice Articoli" 11 60 14
//GROUPBOX DLG_NULL 75 6
//BEGIN
// PROMPT 1 0 ""
// FLAGS "R"
//END
// codice parte del formato codice
NUMBER F_CODLIV 1
BEGIN
PROMPT 2 2 "Numero parte "
FIELD CODTAB[1,1]
KEY 1
FLAG "U"
USE FCA
INPUT CODTAB[1,1] F_CODLIV
DISPLAY "Codice Parte" CODTAB[1,1]
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODLIV CODTAB
OUTPUT F_DESLIV S0
OUTPUT F_FORMLIV S1
// MESSAGE CHECK,F_NEXTLIV
CHECKTYPE FORCED
ADD NONE
END
// descrizione parte del formato codice
STRING F_DESLIV 50
BEGIN
PROMPT 2 3 "Descrizione Parte "
USE FCA KEY 2
INPUT S0 F_DESLIV
DISPLAY "Descrizione@50 " S0
DISPLAY "N.Parte" CODTAB[1,1]
COPY OUTPUT F_CODLIV
CHECKTYPE FORCED
END
// STRINGA DEL FORMATO CODICE
STRING F_FORMLIV 23
BEGIN
PROMPT 2 5 "Formato previsto per il codice gruppo "
FLAGS "D"
END
STRING F_CODGROUP 23
BEGIN
PROMPT 22 6 "Codice del gruppo "
FIELD CODTAB[2,25]
KEY 1
USE GCA
JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_CODLIV
INPUT CODTAB[2,25] F_CODGROUP
DISPLAY "N." CODTAB[1,1]
DISPLAY "Parte@20 " 500@->S0
DISPLAY "Gruppo@23" CODTAB[2,25]
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODLIV CODTAB[1,1]
OUTPUT F_CODGROUP CODTAB[2,25]
OUTPUT F_DESGROUP S0
MESSAGE DISABLE,F_DESLIV
MESSAGE EMPTY ENABLE,F_DESLIV
CHECKTYPE REQUIRED
END
STRING F_DESGROUP 50
BEGIN
PROMPT 2 7 "Descrizione del gruppo "
FIELD S0
KEY 2
USE GCA KEY 2
JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT S0 F_DESGROUP
DISPLAY "Descrizione@50 " S0
DISPLAY "N." CODTAB[1,1]
DISPLAY "Parte@20 " 500@->S0
DISPLAY "Gruppo@23" CODTAB[2,25]
COPY OUTPUT F_CODGROUP
CHECKTYPE REQUIRED
END
/*
NUMBER F_NEXTLIV 2
BEGIN
PROMPT 2 15 "Numero par+1 "
FLAG "UD"
NUM_CALC #F_CODLIV+1
MESSAGE COPY,F_CHECKLIV|CHECK,F_CHECKLIV
END
NUMBER F_CHECKLIV 1
BEGIN
PROMPT 2 16 "Numero parte "
FLAG "UD"
USE FCA
INPUT CODTAB[1,1] F_CHECKLIV
DISPLAY "Codice Parte" CODTAB[1,1]
DISPLAY "Descrizione@50 " S0
WARNING "Non si possono definire gruppi per l'ultimo livello"
// MESSAGE RESET,F_CODLIV
CHECKTYPE FORCED
END
*/
ENDPAGE

87
mg/batbgcg.uml Executable file
View File

@ -0,0 +1,87 @@
#include "batbfca.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Gruppi Livelli di giacenza" 11 60 14
// codice parte del formato codice
NUMBER F_CODLIV 1
BEGIN
PROMPT 2 2 "Numero livello "
FIELD CODTAB[1,1]
KEY 1
FLAG "U"
USE FCG
INPUT CODTAB[1,1] F_CODLIV
DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODLIV CODTAB
OUTPUT F_DESLIV S0
OUTPUT F_FORMLIV S1
CHECKTYPE FORCED
ADD NONE
END
// descrizione parte del formato codice
STRING F_DESLIV 50
BEGIN
PROMPT 2 3 "Descrizione "
USE FCG KEY 2
INPUT S0 F_DESLIV
DISPLAY "Descrizione@50 " S0
DISPLAY "N.Liv." CODTAB[1,1]
COPY OUTPUT F_CODLIV
CHECKTYPE FORCED
ADD NONE
END
// STRINGA DEL FORMATO CODICE
STRING F_FORMLIV 23
BEGIN
PROMPT 2 5 "Formato previsto per il codice gruppo "
FLAGS "D"
END
STRING F_CODGROUP 23
BEGIN
PROMPT 22 6 "Codice del gruppo "
FIELD CODTAB[2,25]
KEY 1
USE GCG
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_CODLIV
INPUT CODTAB[2,25] F_CODGROUP
DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0
DISPLAY "Codice@23" CODTAB[2,25]
DISPLAY "Descrizione@50 " GCG->S0
OUTPUT F_CODLIV CODTAB[1,1]
OUTPUT F_CODGROUP CODTAB[2,25]
OUTPUT F_DESGROUP S0
MESSAGE DISABLE,F_DESLIV
MESSAGE EMPTY ENABLE,F_DESLIV
CHECKTYPE REQUIRED
END
STRING F_DESGROUP 50
BEGIN
PROMPT 2 7 "Descr. gruppo "
FIELD S0
KEY 2
USE GCG KEY 2
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT S0 F_DESGROUP
DISPLAY "Descrizione@50 " GCG->S0
DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0
DISPLAY "Codice@23" CODTAB[2,25]
COPY OUTPUT F_CODGROUP
CHECKTYPE REQUIRED
END
ENDPAGE

58
mg/batbrfc.uml Executable file
View File

@ -0,0 +1,58 @@
#define F_CODICE 101
#define F_DESCR 102
#define F_TIPOMOV 110
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE " Raggruppamenti fiscali causali " 11 60 14
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 5
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
KEY 1
USE RFC
FLAG "U"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
USE RFC KEY 2
KEY 2
INPUT S0 F_DESCR
COPY DISPLAY F_CODICE
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
END
LISTBOX F_TIPOMOV 16
BEGIN
PROMPT 2 7 "Tipo movimento "
FIELD S6
ITEM "C|carico"
ITEM "S|scarico"
ITEM "V|varie"
END
ENDPAGE
ENDMASK