Maschere di magazzino
git-svn-id: svn://10.65.10.50/trunk@4169 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
b9a7293aae
commit
c339104e50
27
mg/batbcau.h
Executable file
27
mg/batbcau.h
Executable 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
302
mg/batbcau.uml
Executable 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
11
mg/batbfca.h
Executable 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
64
mg/batbfca.uml
Executable 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
5
mg/batbfcg.h
Executable 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
65
mg/batbfcg.uml
Executable 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
7
mg/batbgca.h
Executable 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
115
mg/batbgca.uml
Executable 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
87
mg/batbgcg.uml
Executable 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
58
mg/batbrfc.uml
Executable 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
|
||||
Loading…
x
Reference in New Issue
Block a user