Spostati i parametri di stampa nei registri.
Mag. con indicazione esplicita del registro giornale git-svn-id: svn://10.65.10.50/trunk@4527 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
64bcecaa01
commit
586175493a
@ -39,3 +39,4 @@
|
||||
#define F_STARAGG 139
|
||||
#define F_USALUNICO 140
|
||||
|
||||
#define G_INFOMAG 10
|
||||
|
||||
293
ve/batbmag.uml
293
ve/batbmag.uml
@ -34,6 +34,8 @@ BEGIN
|
||||
OUTPUT F_DESCR S0
|
||||
OUTPUT H_DESCR S0
|
||||
OUTPUT H_GESTGIA B0
|
||||
OUTPUT F_CODLGIOR S8
|
||||
OUTPUT F_UNLOC I1
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
@ -43,13 +45,8 @@ BEGIN
|
||||
FIELD CODTAB[4,5]
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
// abilit. CODDEP sempre:
|
||||
USE MAG
|
||||
INPUT CODTAB[1,3] F_CODICE SELECT
|
||||
// abilit. CODDEP solo per i magazzini che lo consentono:
|
||||
// ATTENZIONE! da' stack overflow
|
||||
//USE MAG SELECT (CODTAB[1,3]==#F_CODICE)&&(CODTAB[4,5]!="")
|
||||
|
||||
INPUT CODTAB[4,5] F_CODDEP
|
||||
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
||||
DISPLAY "Cod. deposito" CODTAB[4,5]
|
||||
@ -57,8 +54,8 @@ BEGIN
|
||||
OUTPUT F_CODICE CODTAB[1,3]
|
||||
OUTPUT F_CODDEP CODTAB[4,5]
|
||||
OUTPUT F_DESDEP S0
|
||||
MESSAGE SHOW,H_DESCR|HIDE,F_DESCR|SHOW,F_DESDEP|HIDE,F_GESTGIA
|
||||
MESSAGE EMPTY HIDE,H_DESCR|SHOW,F_DESCR|HIDE,F_DESDEP|SHOW,F_GESTGIA
|
||||
MESSAGE SHOW,H_DESCR|HIDE,F_DESCR|SHOW,F_DESDEP|HIDE,F_GESTGIA|HIDE,G_INFOMAG@
|
||||
MESSAGE EMPTY HIDE,H_DESCR|SHOW,F_DESCR|HIDE,F_DESDEP|SHOW,F_GESTGIA|SHOW,G_INFOMAG@
|
||||
CHECKTYPE NORMAL
|
||||
// controllo abilit. CODDEP (utilizzabile sempre)
|
||||
STR_EXPR (#H_GESTGIA=="X")||(#F_CODDEP=="")
|
||||
@ -70,10 +67,6 @@ BOOLEAN H_GESTGIA
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
FLAGS "HG"
|
||||
|
||||
// abilit. CODDEP sempre:
|
||||
// --rimuovere i campi MESSAGE--
|
||||
// abilit. CODDEP solo per i magazzini che lo consentono:
|
||||
MESSAGE TRUE SHOW,F_CODDEP
|
||||
MESSAGE FALSE HIDE,F_CODDEP
|
||||
END
|
||||
@ -117,9 +110,100 @@ BEGIN
|
||||
WARNING "Manca la denominazione del magazzino"
|
||||
END
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 72 6
|
||||
BEGIN
|
||||
PROMPT 4 7 "Sede magazzino/deposito"
|
||||
END
|
||||
|
||||
STRING F_IND 35
|
||||
BEGIN
|
||||
PROMPT 6 8 "Indirizzo "
|
||||
FIELD S2
|
||||
END
|
||||
|
||||
STRING F_CIV 10
|
||||
BEGIN
|
||||
PROMPT 60 8 "N. "
|
||||
FIELD S7
|
||||
END
|
||||
|
||||
STRING F_COM 4
|
||||
BEGIN
|
||||
PROMPT 6 9 "Codice comune "
|
||||
FLAGS "U"
|
||||
FIELD S5
|
||||
USE LF_COMUNI
|
||||
INPUT STATO ""
|
||||
INPUT COM F_COM
|
||||
DISPLAY "Codice" COM
|
||||
DISPLAY "Comune@50" DENCOM
|
||||
DISPLAY "Prov.@2" PROVCOM
|
||||
DISPLAY "CAP@5" CAPCOM
|
||||
OUTPUT F_COM COM
|
||||
OUTPUT F_LOC DENCOM
|
||||
OUTPUT F_PROV PROVCOM
|
||||
OUTPUT F_CAP CAPCOM
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Comune assente"
|
||||
ADD RUN ba4 -0
|
||||
END
|
||||
|
||||
STRING F_LOC 50
|
||||
BEGIN
|
||||
PROMPT 6 10 "Comune "
|
||||
USE LF_COMUNI KEY 2
|
||||
INPUT DENCOM F_LOC
|
||||
COPY DISPLAY F_COM
|
||||
COPY OUTPUT F_COM
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_PROV 2
|
||||
BEGIN
|
||||
PROMPT 6 11 "Provincia "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CAP 5
|
||||
BEGIN
|
||||
PROMPT 60 11 "C.A.P. "
|
||||
FIELD S3
|
||||
END
|
||||
|
||||
LISTBOX F_NATMAG 1 50
|
||||
BEGIN
|
||||
PROMPT 2 14 "Natura del magazzino "
|
||||
FIELD I2
|
||||
ITEM "1|Proprieta' dell'azienda "
|
||||
ITEM "2|Materiale nostro in lavorazione presso terzi"
|
||||
ITEM "3|Materiale nostro in deposito presso terzi"
|
||||
ITEM "4|Materiale di terzi in lavorazione presso l'azienda"
|
||||
ITEM "5|Materiale di terzi in deposito presso l'azienda"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
PAGE "Gestione magazzini" 11 60 14
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "AH"
|
||||
END
|
||||
|
||||
BOOLEAN F_GESTGIA
|
||||
BEGIN
|
||||
PROMPT 2 2 "Gestione giacenze in piu' depositi "
|
||||
FIELD B0
|
||||
GROUP G_INFOMAG
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 72 5
|
||||
BEGIN
|
||||
PROMPT 4 6 "Unita' locale"
|
||||
GROUP G_INFOMAG
|
||||
END
|
||||
|
||||
NUMBER F_UNLOC 3
|
||||
@ -144,148 +228,65 @@ BEGIN
|
||||
OUTPUT H_LOC LF_COMUNI->DENCOM
|
||||
OUTPUT H_PROV LF_COMUNI->PROVCOM
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_INFOMAG
|
||||
END
|
||||
|
||||
STRING H_COM 4
|
||||
BEGIN
|
||||
PROMPT 30 7 "Comune "
|
||||
FLAGS "D"
|
||||
GROUP G_INFOMAG
|
||||
END
|
||||
|
||||
STRING H_CAP 5
|
||||
BEGIN
|
||||
PROMPT 44 7 "C.A.P. "
|
||||
FLAGS "D"
|
||||
GROUP G_INFOMAG
|
||||
END
|
||||
|
||||
STRING H_PROV 2
|
||||
BEGIN
|
||||
PROMPT 60 7 "Provincia "
|
||||
FLAGS "D"
|
||||
GROUP G_INFOMAG
|
||||
END
|
||||
|
||||
STRING H_IND 35
|
||||
BEGIN
|
||||
PROMPT 6 8 "Indirizzo "
|
||||
FLAGS "D"
|
||||
GROUP G_INFOMAG
|
||||
END
|
||||
|
||||
STRING H_CIV 10
|
||||
BEGIN
|
||||
PROMPT 60 8 "N. "
|
||||
FLAGS "D"
|
||||
GROUP G_INFOMAG
|
||||
END
|
||||
|
||||
STRING H_LOC 50
|
||||
BEGIN
|
||||
PROMPT 6 9 "Comune "
|
||||
FLAGS "D"
|
||||
GROUP G_INFOMAG
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 72 6
|
||||
BEGIN
|
||||
PROMPT 4 11 "Sede magazzino/deposito"
|
||||
END
|
||||
|
||||
STRING F_IND 35
|
||||
BEGIN
|
||||
PROMPT 6 12 "Indirizzo "
|
||||
FIELD S2
|
||||
END
|
||||
|
||||
STRING F_CIV 10
|
||||
BEGIN
|
||||
PROMPT 60 12 "N. "
|
||||
FIELD S7
|
||||
END
|
||||
|
||||
STRING F_COM 4
|
||||
BEGIN
|
||||
PROMPT 6 13 "Codice comune "
|
||||
FLAGS "U"
|
||||
FIELD S5
|
||||
USE LF_COMUNI
|
||||
INPUT STATO ""
|
||||
INPUT COM F_COM
|
||||
DISPLAY "Codice" COM
|
||||
DISPLAY "Comune@50" DENCOM
|
||||
DISPLAY "Prov.@2" PROVCOM
|
||||
DISPLAY "CAP@5" CAPCOM
|
||||
|
||||
OUTPUT F_COM COM
|
||||
OUTPUT F_LOC DENCOM
|
||||
OUTPUT F_PROV PROVCOM
|
||||
OUTPUT F_CAP CAPCOM
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Comune assente"
|
||||
ADD RUN ba4 -0
|
||||
END
|
||||
|
||||
STRING F_LOC 50
|
||||
BEGIN
|
||||
PROMPT 6 14 "Comune "
|
||||
USE LF_COMUNI KEY 2
|
||||
INPUT DENCOM F_LOC
|
||||
COPY DISPLAY F_COM
|
||||
COPY OUTPUT F_COM
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_PROV 2
|
||||
BEGIN
|
||||
PROMPT 6 15 "Provincia "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CAP 5
|
||||
BEGIN
|
||||
PROMPT 60 15 "C.A.P. "
|
||||
FIELD S3
|
||||
END
|
||||
|
||||
LISTBOX F_NATMAG 1 50
|
||||
BEGIN
|
||||
PROMPT 2 17 "Natura del magazzino "
|
||||
FIELD I2
|
||||
ITEM "1|Proprieta' dell'azienda "
|
||||
ITEM "2|Materiale nostro in lavorazione presso terzi"
|
||||
ITEM "3|Materiale nostro in deposito presso terzi"
|
||||
ITEM "4|Materiale di terzi in lavorazione presso l'azienda"
|
||||
ITEM "5|Materiale di terzi in deposito presso l'azienda"
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
PAGE "Gestione magazzini" 11 60 14
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "AH"
|
||||
END
|
||||
|
||||
BOOLEAN F_GESTGIA
|
||||
BEGIN
|
||||
PROMPT 2 2 "Gestione giacenze in piu' depositi "
|
||||
FIELD B0
|
||||
END
|
||||
|
||||
LISTBOX F_STARAGG 22
|
||||
/*LISTBOX F_STARAGG 22
|
||||
BEGIN
|
||||
PROMPT 2 4 "Stampare i movimenti su "
|
||||
FIELD I2
|
||||
ITEM "1|altro magazzino"
|
||||
MESSAGE HIDE,F_CODLGIOR|SHOW,F_CODMAGSTA|HIDE,F_USALUNICO
|
||||
MESSAGE HIDE,F_CODLGIOR|SHOW,F_CODMAGSTA
|
||||
ITEM "2|libro giornale"
|
||||
MESSAGE HIDE,F_CODMAGSTA|SHOW,F_CODLGIOR|SHOW,F_USALUNICO
|
||||
MESSAGE HIDE,F_CODMAGSTA|SHOW,F_CODLGIOR
|
||||
END
|
||||
|
||||
STRING F_CODMAGSTA 3
|
||||
BEGIN
|
||||
PROMPT 28 5 "Codice magazzino "
|
||||
FLAGS "HU"
|
||||
FLAGS "U"
|
||||
FIELD S6
|
||||
USE MAG SELECT CODTAB[4,5] == ""
|
||||
INPUT CODTAB[1,3] F_CODMAGSTA
|
||||
@ -293,14 +294,14 @@ BEGIN
|
||||
DISPLAY "Denominazione mag.@50 " S0
|
||||
OUTPUT F_CODMAGSTA CODTAB[1,3]
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
END*/
|
||||
|
||||
STRING F_CODLGIOR 3
|
||||
BEGIN
|
||||
PROMPT 23 5 "Codice libro giornale "
|
||||
FLAGS "HU"
|
||||
PROMPT 2 4 "Codice libro giornale "
|
||||
FLAGS "U"
|
||||
FIELD S8
|
||||
USE REG SELECT I0=6
|
||||
USE REG SELECT I0=9
|
||||
INPUT CODTAB[1,4] F_ANNO SELECT
|
||||
INPUT CODTAB[5,7] F_CODLGIOR
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
@ -309,6 +310,7 @@ BEGIN
|
||||
DISPLAY "I" I0
|
||||
OUTPUT F_CODLGIOR CODTAB[5,7]
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP G_INFOMAG
|
||||
END
|
||||
|
||||
/*STRING F_CODLUNICO 3
|
||||
@ -338,79 +340,6 @@ END
|
||||
|
||||
*/
|
||||
|
||||
NUMBER F_FREQSTA 2
|
||||
BEGIN
|
||||
PROMPT 2 6 "Frequenza stampa movimenti "
|
||||
FIELD I4
|
||||
END
|
||||
|
||||
BOOLEAN F_STALDIS
|
||||
BEGIN
|
||||
PROMPT 2 7 "Stampa libro raggruppato per classe fiscale articoli "
|
||||
FIELD B1
|
||||
END
|
||||
|
||||
|
||||
BOOLEAN F_STAFISART
|
||||
BEGIN
|
||||
PROMPT 2 8 "Stampa libro ragg. per raggruppamento fiscale articoli "
|
||||
FIELD B2
|
||||
END
|
||||
|
||||
BOOLEAN F_STAFISCAU
|
||||
BEGIN
|
||||
PROMPT 2 9 "Stampa libro ragg. per raggruppamento fiscale causali "
|
||||
FIELD B3
|
||||
END
|
||||
|
||||
NUMBER F_PAGULTCORR 3
|
||||
BEGIN
|
||||
PROMPT 2 11 "Pagina e data ultima stampa esercizio corrente "
|
||||
FIELD MAG->I5
|
||||
END
|
||||
|
||||
DATE F_ULTCORR
|
||||
BEGIN
|
||||
PROMPT 58 11 ""
|
||||
FIELD MAG->D0
|
||||
END
|
||||
|
||||
NUMBER F_PAGULTPREC 3
|
||||
BEGIN
|
||||
PROMPT 2 12 "Pagina e data ultima stampa esercizio precedente "
|
||||
FIELD MAG->I6
|
||||
END
|
||||
|
||||
DATE F_ULTPREC
|
||||
BEGIN
|
||||
PROMPT 58 12 ""
|
||||
FIELD MAG->D1
|
||||
END
|
||||
|
||||
TEXT 140
|
||||
BEGIN
|
||||
PROMPT 2 14 "Parametri di stampa :"
|
||||
END
|
||||
|
||||
BOOLEAN F_INTDITTA
|
||||
BEGIN
|
||||
PROMPT 2 15 "Intestazione della ditta "
|
||||
FIELD MAG->B4
|
||||
END
|
||||
|
||||
BOOLEAN F_STARIS
|
||||
BEGIN
|
||||
PROMPT 2 16 "Stampa ristretta "
|
||||
FIELD MAG->B5
|
||||
END
|
||||
|
||||
NUMBER F_LUNGMOD 2
|
||||
BEGIN
|
||||
PROMPT 2 17 "Lunghezza modulo "
|
||||
FIELD MAG->I7
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user