Modifica ricerche
CVS: git-svn-id: svn://10.65.10.50/trunk@4082 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
735b58872f
commit
336969a2b1
@ -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,20 +46,22 @@ 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
|
||||
@ -70,7 +72,7 @@ END
|
||||
|
||||
STRING F_DESSGR 50
|
||||
BEGIN
|
||||
PROMPT 2 5 "Descrizione sottogruppo"
|
||||
PROMPT 2 5 "Descrizione sottogruppo "
|
||||
FIELD S0
|
||||
USE GMC KEY 2
|
||||
KEY 2
|
||||
|
||||
@ -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
|
||||
|
||||
|
||||
@ -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
|
||||
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
|
||||
|
||||
@ -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"
|
||||
|
||||
@ -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"
|
||||
@ -316,12 +317,23 @@ STRING F_UMP 3
|
||||
BEGIN
|
||||
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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user