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 1997-06-04 14:46:22 +00:00
parent 64bcecaa01
commit 586175493a
2 changed files with 112 additions and 182 deletions

View File

@ -39,3 +39,4 @@
#define F_STARAGG 139
#define F_USALUNICO 140
#define G_INFOMAG 10

View File

@ -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