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

Modifica ricerche

Browse Source 
CVS:


git-svn-id: svn://10.65.10.50/trunk@4082 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-01-17 09:27:08 +00:00
parent 735b58872f
commit 336969a2b1
5 changed files with 92 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ve/batbgmc.uml
View File

@ -14,7 +14,7 @@ END
STRING F_CODGRU 3
BEGIN
PROMPT 2 2 "Codice gruppo "
PROMPT 2 2 "Codice gruppo "
FLAG "U"
FIELD CODTAB[1,3]
KEY 1
@ -23,8 +23,8 @@ BEGIN
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Descrizione gruppo@50" S0
OUTPUT F_CODGRU CODTAB[1,3]
OUTPUT H_CODGRU CODTAB[1,3]
OUTPUT H_DESGRU S0
MESSAGE COPY,H_CODGRU
CHECKTYPE REQUIRED
END
@ -46,31 +46,33 @@ BEGIN
MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
//VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR
STR_EXPR (#H_CODGRU!="")||(#F_CODSGR=="")
GROUP GR_SEARCH
WARNING "Gruppo merceologico inesistente"
CHECKTYPE NORMAL
END
STRING H_CODGRU 3
BEGIN
PROMPT 2 2 "Codice gruppo "
PROMPT 2 1 "Codice gruppo "
FLAG "U"
FLAGS "H"
COPY USE F_CODGRU
INPUT CODTAB F_CODGRU
COPY DISPLAY F_CODGRU
OUTPUT F_DESGRU S0
CHECKTYPE NORMAL
CHECKTYPE REQUIRED
END
STRING F_DESGRU 50
BEGIN
PROMPT 2 4 "Descrizione gruppo "
PROMPT 2 4 "Descrizione gruppo "
FLAGS "D"
END
STRING F_DESSGR 50
BEGIN
PROMPT 2 5 "Descrizione sottogruppo"
PROMPT 2 5 "Descrizione sottogruppo "
FIELD S0
USE GMC KEY 2
KEY 2

4
ve/batbmag.h
View File

@ -35,3 +35,7 @@
#define H_LOC 135
#define H_PROV 136
#define F_ANNO 137
#define H_GESTGIA 138
#define F_STARAGG 139
#define F_USALUNICO 140

89
ve/batbmag.uml
View File

@ -45,7 +45,7 @@ BEGIN
KEY 1
// abilit. CODDEP sempre:
USE MAG
INPUT CODTAB[1,3] F_CODICE
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]!="")
@ -69,11 +69,12 @@ END
BOOLEAN H_GESTGIA
BEGIN
PROMPT 1 1 ""
FLAGS "GH"
FLAGS "HG"
// abilit. CODDEP sempre:
// --rimuovere i campi MESSAGE--
// abilit. CODDEP solo per i magazzini che lo consentono:
MESSAGE TRUE SHOW,F_CODDEP//|ENABLE,F_DESDEP
MESSAGE TRUE SHOW,F_CODDEP
MESSAGE FALSE HIDE,F_CODDEP
END
@ -239,7 +240,7 @@ END
LISTBOX F_NATMAG 1 50
BEGIN
PROMPT 2 17 "Natura del magazzino "
FIELD MAG->I2
FIELD I2
ITEM "1|Proprieta' dell'azienda "
ITEM "2|Materiale nostro in lavorazione presso terzi"
ITEM "3|Materiale nostro in deposito presso terzi"
@ -259,79 +260,101 @@ BEGIN
FLAGS "AH"
END
BOOLEAN F_GESTGIA
BEGIN
PROMPT 2 2 "Gestione giacenze in piu' depositi "
FIELD B0
END
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
ITEM "2|libro giornale"
MESSAGE HIDE,F_CODMAGSTA|SHOW,F_CODLGIOR|SHOW,F_USALUNICO
END
STRING F_CODMAGSTA 3
BEGIN
PROMPT 2 2 "Codice magazzino sul cui giornale stampare i movimenti "
FLAGS "U"
PROMPT 28 5 "Codice magazzino "
FLAGS "HU"
FIELD S6
USE MAG SELECT CODTAB[4,5] == ""
INPUT CODTAB[1,3] F_CODMAGSTA
DISPLAY "Codice " CODTAB
DISPLAY "Denominazione mag.@50 " S0
OUTPUT F_CODMAGSTA CODTAB[1,3]
MESSAGE DISABLE,F_CODLGIOR
MESSAGE EMPTY ENABLE,F_CODLGIOR
CHECKTYPE NORMAL
CHECKTYPE REQUIRED
END
STRING F_CODLGIOR 3
BEGIN
PROMPT 2 3 "Codice libro giornale "
FLAGS "U"
PROMPT 23 5 "Codice libro giornale "
FLAGS "HU"
FIELD S8
USE REG
INPUT CODTAB[1,4] F_ANNO
USE REG SELECT I0=6
INPUT CODTAB[1,4] F_ANNO SELECT
INPUT CODTAB[5,7] F_CODLGIOR
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Giornale" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
DISPLAY "I" I0
OUTPUT F_CODLGIOR CODTAB[5,7]
MESSAGE DISABLE,F_CODMAGSTA
MESSAGE EMPTY ENABLE,F_CODMAGSTA
CHECKTYPE REQUIRED
END
BOOLEAN F_GESTGIA
/*STRING F_CODLUNICO 3
BEGIN
PROMPT 2 4 "Gestione giacenze in piu' depositi "
FIELD MAG->B0
END
STRING F_CODLUNICO 3
BEGIN
PROMPT 40 3 "Codice libro unico di studio "
PROMPT 26 5 "Codice libro unico "
FLAGS "HU"
FIELD S9
USE %LBU
INPUT CODTAB[1,4] F_ANNO
USE %LBU
INPUT CODTAB[1,4] F_ANNO SELECT
INPUT CODTAB[5,7] F_CODLUNICO
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Libro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_CODLUNICO CODTAB[5,7]
CHECKTYPE REQUIRED
WARNING "Codice errato o non relativo a questo anno"
END
BOOLEAN F_STALDIS
BOOLEAN F_USALUNICO
BEGIN
PROMPT 2 6 "Stampa libro raggruppato per classe fiscale articoli "
FIELD MAG->B1
PROMPT 52 5 "Usa libro unico "
FLAGS "HU"
FIELD B6
MESSAGE FALSE HIDE,F_CODLUNICO|SHOW,F_CODLGIOR
MESSAGE TRUE SHOW,F_CODLUNICO|HIDE,F_CODLGIOR
END
*/
NUMBER F_FREQSTA 2
BEGIN
PROMPT 2 7 "Frequenza stampa movimenti "
FIELD MAG->I4
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 MAG->B2
FIELD B2
END
BOOLEAN F_STAFISCAU
BEGIN
PROMPT 2 9 "Stampa libro ragg. per raggruppamento fiscale causali "
FIELD MAG->B3
FIELD B3
END
NUMBER F_PAGULTCORR 3

4
ve/batbums.uml
View File

@ -42,7 +42,7 @@ END
STRING F_UMR 2
BEGIN
PROMPT 2 8 "Unita' di riferimento "
PROMPT 2 8 "Unita' di riferimento "
FIELD S7
FLAG "U"
USE %UMS
@ -55,7 +55,7 @@ END
NUMBER F_FC 15 5
BEGIN
PROMPT 2 10 "F.Conversione al riferim. "
PROMPT 2 10 "Fatt.conversione al riferim."
FIELD R10
VALIDATE REQIF_FUNC 1 F_UMR
WARNING "Fattore di conversione obbligatorio se specificata l'unita' di misura di riferimento"

30
ve/ve2400.uml
View File

@ -28,11 +28,12 @@ BEGIN
CHECKTYPE REQUIRED
END
STRING F_TIPO 1
BEGIN
PROMPT 42 1 "Tipo "
FIELD LF_ANAMAG->TIPO
END
// tipo articolo sostituito da Tabella gruppi articoli
//STRING F_TIPO 1
//BEGIN
// PROMPT 42 1 "Tipo "
// FIELD LF_ANAMAG->TIPO
//END
STRING F_DESCR 50
BEGIN
@ -133,7 +134,7 @@ END
SPREADSHEET F_SHEET0 77 5
BEGIN
PROMPT 1 8 ""
PROMPT 1 8 "Unità di misura"
ITEM "U.M."
ITEM "F. conversione"
ITEM "Prezzo netto@18"
@ -314,14 +315,25 @@ END
STRING F_UMP 3
BEGIN
PROMPT 1 18 "U.M. peso "
FIELD LF_ANAMAG->UMP
PROMPT 1 18 "U.M. peso "
FIELD LF_ANAMAG->UMP
FLAG "U"
USE %UMS
INPUT CODTAB F_UMP
DISPLAY "U.M. " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UMP CODTAB
VALIDATE REQIF_FUNC 1 F_PESO
WARNING "Necessaria una unità di misura valida per il peso "
CHECKTYPE NORMAL
END
NUMBER F_PESO 15 5
BEGIN
PROMPT 30 18 "Peso "
FIELD LF_ANAMAG->PESO
VALIDATE REQIF_FUNC 1 F_TARA
WARNING "Necessario introdurre il peso se si è introdotta la tara"
END
NUMBER F_TARA 15 5
@ -474,6 +486,8 @@ BOOLEAN F_ARTPROD
BEGIN
PROMPT 2 8 "Articolo di produzione "
FIELD LF_ANAMAG->ARTPROD
MESSAGE TRUE DISABLE,F_CODFORN|DISABLE,F_CODFORN1
MESSAGE FALSE ENABLE,F_CODFORN|ENABLE,F_CODFORN1
END
NUMBER F_PPCONF 15 5