Modifica ricerche
CVS: git-svn-id: svn://10.65.10.50/trunk@4082 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
735b58872f
commit
336969a2b1
@ -14,7 +14,7 @@ END
|
|||||||
|
|
||||||
STRING F_CODGRU 3
|
STRING F_CODGRU 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Codice gruppo "
|
PROMPT 2 2 "Codice gruppo "
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
FIELD CODTAB[1,3]
|
FIELD CODTAB[1,3]
|
||||||
KEY 1
|
KEY 1
|
||||||
@ -23,8 +23,8 @@ BEGIN
|
|||||||
DISPLAY "Gruppo" CODTAB[1,3]
|
DISPLAY "Gruppo" CODTAB[1,3]
|
||||||
DISPLAY "Descrizione gruppo@50" S0
|
DISPLAY "Descrizione gruppo@50" S0
|
||||||
OUTPUT F_CODGRU CODTAB[1,3]
|
OUTPUT F_CODGRU CODTAB[1,3]
|
||||||
|
OUTPUT H_CODGRU CODTAB[1,3]
|
||||||
OUTPUT H_DESGRU S0
|
OUTPUT H_DESGRU S0
|
||||||
MESSAGE COPY,H_CODGRU
|
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -46,31 +46,33 @@ BEGIN
|
|||||||
MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
|
MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
|
||||||
MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
|
MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
|
||||||
//VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR
|
//VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR
|
||||||
|
STR_EXPR (#H_CODGRU!="")||(#F_CODSGR=="")
|
||||||
GROUP GR_SEARCH
|
GROUP GR_SEARCH
|
||||||
|
WARNING "Gruppo merceologico inesistente"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING H_CODGRU 3
|
STRING H_CODGRU 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Codice gruppo "
|
PROMPT 2 1 "Codice gruppo "
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
COPY USE F_CODGRU
|
COPY USE F_CODGRU
|
||||||
INPUT CODTAB F_CODGRU
|
INPUT CODTAB F_CODGRU
|
||||||
COPY DISPLAY F_CODGRU
|
COPY DISPLAY F_CODGRU
|
||||||
OUTPUT F_DESGRU S0
|
OUTPUT F_DESGRU S0
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESGRU 50
|
STRING F_DESGRU 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Descrizione gruppo "
|
PROMPT 2 4 "Descrizione gruppo "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESSGR 50
|
STRING F_DESSGR 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Descrizione sottogruppo"
|
PROMPT 2 5 "Descrizione sottogruppo "
|
||||||
FIELD S0
|
FIELD S0
|
||||||
USE GMC KEY 2
|
USE GMC KEY 2
|
||||||
KEY 2
|
KEY 2
|
||||||
|
@ -35,3 +35,7 @@
|
|||||||
#define H_LOC 135
|
#define H_LOC 135
|
||||||
#define H_PROV 136
|
#define H_PROV 136
|
||||||
#define F_ANNO 137
|
#define F_ANNO 137
|
||||||
|
#define H_GESTGIA 138
|
||||||
|
#define F_STARAGG 139
|
||||||
|
#define F_USALUNICO 140
|
||||||
|
|
||||||
|
@ -45,7 +45,7 @@ BEGIN
|
|||||||
KEY 1
|
KEY 1
|
||||||
// abilit. CODDEP sempre:
|
// abilit. CODDEP sempre:
|
||||||
USE MAG
|
USE MAG
|
||||||
INPUT CODTAB[1,3] F_CODICE
|
INPUT CODTAB[1,3] F_CODICE SELECT
|
||||||
// abilit. CODDEP solo per i magazzini che lo consentono:
|
// abilit. CODDEP solo per i magazzini che lo consentono:
|
||||||
// ATTENZIONE! da' stack overflow
|
// ATTENZIONE! da' stack overflow
|
||||||
//USE MAG SELECT (CODTAB[1,3]==#F_CODICE)&&(CODTAB[4,5]!="")
|
//USE MAG SELECT (CODTAB[1,3]==#F_CODICE)&&(CODTAB[4,5]!="")
|
||||||
@ -69,11 +69,12 @@ END
|
|||||||
BOOLEAN H_GESTGIA
|
BOOLEAN H_GESTGIA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 ""
|
PROMPT 1 1 ""
|
||||||
FLAGS "GH"
|
FLAGS "HG"
|
||||||
|
|
||||||
// abilit. CODDEP sempre:
|
// abilit. CODDEP sempre:
|
||||||
// --rimuovere i campi MESSAGE--
|
// --rimuovere i campi MESSAGE--
|
||||||
// abilit. CODDEP solo per i magazzini che lo consentono:
|
// 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
|
MESSAGE FALSE HIDE,F_CODDEP
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -239,7 +240,7 @@ END
|
|||||||
LISTBOX F_NATMAG 1 50
|
LISTBOX F_NATMAG 1 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 17 "Natura del magazzino "
|
PROMPT 2 17 "Natura del magazzino "
|
||||||
FIELD MAG->I2
|
FIELD I2
|
||||||
ITEM "1|Proprieta' dell'azienda "
|
ITEM "1|Proprieta' dell'azienda "
|
||||||
ITEM "2|Materiale nostro in lavorazione presso terzi"
|
ITEM "2|Materiale nostro in lavorazione presso terzi"
|
||||||
ITEM "3|Materiale nostro in deposito presso terzi"
|
ITEM "3|Materiale nostro in deposito presso terzi"
|
||||||
@ -259,79 +260,101 @@ BEGIN
|
|||||||
FLAGS "AH"
|
FLAGS "AH"
|
||||||
END
|
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
|
STRING F_CODMAGSTA 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Codice magazzino sul cui giornale stampare i movimenti "
|
PROMPT 28 5 "Codice magazzino "
|
||||||
FLAGS "U"
|
FLAGS "HU"
|
||||||
FIELD S6
|
FIELD S6
|
||||||
USE MAG SELECT CODTAB[4,5] == ""
|
USE MAG SELECT CODTAB[4,5] == ""
|
||||||
INPUT CODTAB[1,3] F_CODMAGSTA
|
INPUT CODTAB[1,3] F_CODMAGSTA
|
||||||
DISPLAY "Codice " CODTAB
|
DISPLAY "Codice " CODTAB
|
||||||
DISPLAY "Denominazione mag.@50 " S0
|
DISPLAY "Denominazione mag.@50 " S0
|
||||||
OUTPUT F_CODMAGSTA CODTAB[1,3]
|
OUTPUT F_CODMAGSTA CODTAB[1,3]
|
||||||
MESSAGE DISABLE,F_CODLGIOR
|
CHECKTYPE REQUIRED
|
||||||
MESSAGE EMPTY ENABLE,F_CODLGIOR
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODLGIOR 3
|
STRING F_CODLGIOR 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Codice libro giornale "
|
PROMPT 23 5 "Codice libro giornale "
|
||||||
FLAGS "U"
|
FLAGS "HU"
|
||||||
FIELD S8
|
FIELD S8
|
||||||
USE REG
|
USE REG SELECT I0=6
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
INPUT CODTAB[1,4] F_ANNO SELECT
|
||||||
INPUT CODTAB[5,7] F_CODLGIOR
|
INPUT CODTAB[5,7] F_CODLGIOR
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Giornale" CODTAB[5,7]
|
DISPLAY "Giornale" CODTAB[5,7]
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
|
DISPLAY "I" I0
|
||||||
OUTPUT F_CODLGIOR CODTAB[5,7]
|
OUTPUT F_CODLGIOR CODTAB[5,7]
|
||||||
MESSAGE DISABLE,F_CODMAGSTA
|
CHECKTYPE REQUIRED
|
||||||
MESSAGE EMPTY ENABLE,F_CODMAGSTA
|
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_GESTGIA
|
/*STRING F_CODLUNICO 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Gestione giacenze in piu' depositi "
|
PROMPT 26 5 "Codice libro unico "
|
||||||
FIELD MAG->B0
|
FLAGS "HU"
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_CODLUNICO 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 40 3 "Codice libro unico di studio "
|
|
||||||
FIELD S9
|
FIELD S9
|
||||||
USE %LBU
|
USE %LBU
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
INPUT CODTAB[1,4] F_ANNO SELECT
|
||||||
INPUT CODTAB[5,7] F_CODLUNICO
|
INPUT CODTAB[5,7] F_CODLUNICO
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Libro" CODTAB[5,7]
|
DISPLAY "Libro" CODTAB[5,7]
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_CODLUNICO CODTAB[5,7]
|
OUTPUT F_CODLUNICO CODTAB[5,7]
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
WARNING "Codice errato o non relativo a questo anno"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_USALUNICO
|
||||||
BOOLEAN F_STALDIS
|
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Stampa libro raggruppato per classe fiscale articoli "
|
PROMPT 52 5 "Usa libro unico "
|
||||||
FIELD MAG->B1
|
FLAGS "HU"
|
||||||
|
FIELD B6
|
||||||
|
MESSAGE FALSE HIDE,F_CODLUNICO|SHOW,F_CODLGIOR
|
||||||
|
MESSAGE TRUE SHOW,F_CODLUNICO|HIDE,F_CODLGIOR
|
||||||
END
|
END
|
||||||
|
|
||||||
|
*/
|
||||||
|
|
||||||
NUMBER F_FREQSTA 2
|
NUMBER F_FREQSTA 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Frequenza stampa movimenti "
|
PROMPT 2 6 "Frequenza stampa movimenti "
|
||||||
FIELD MAG->I4
|
FIELD I4
|
||||||
END
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_STALDIS
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 7 "Stampa libro raggruppato per classe fiscale articoli "
|
||||||
|
FIELD B1
|
||||||
|
END
|
||||||
|
|
||||||
|
|
||||||
BOOLEAN F_STAFISART
|
BOOLEAN F_STAFISART
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Stampa libro ragg. per raggruppamento fiscale articoli "
|
PROMPT 2 8 "Stampa libro ragg. per raggruppamento fiscale articoli "
|
||||||
FIELD MAG->B2
|
FIELD B2
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAFISCAU
|
BOOLEAN F_STAFISCAU
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 "Stampa libro ragg. per raggruppamento fiscale causali "
|
PROMPT 2 9 "Stampa libro ragg. per raggruppamento fiscale causali "
|
||||||
FIELD MAG->B3
|
FIELD B3
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PAGULTCORR 3
|
NUMBER F_PAGULTCORR 3
|
||||||
|
@ -42,7 +42,7 @@ END
|
|||||||
|
|
||||||
STRING F_UMR 2
|
STRING F_UMR 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Unita' di riferimento "
|
PROMPT 2 8 "Unita' di riferimento "
|
||||||
FIELD S7
|
FIELD S7
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
USE %UMS
|
USE %UMS
|
||||||
@ -55,7 +55,7 @@ END
|
|||||||
|
|
||||||
NUMBER F_FC 15 5
|
NUMBER F_FC 15 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "F.Conversione al riferim. "
|
PROMPT 2 10 "Fatt.conversione al riferim."
|
||||||
FIELD R10
|
FIELD R10
|
||||||
VALIDATE REQIF_FUNC 1 F_UMR
|
VALIDATE REQIF_FUNC 1 F_UMR
|
||||||
WARNING "Fattore di conversione obbligatorio se specificata l'unita' di misura di riferimento"
|
WARNING "Fattore di conversione obbligatorio se specificata l'unita' di misura di riferimento"
|
||||||
|
@ -28,11 +28,12 @@ BEGIN
|
|||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_TIPO 1
|
// tipo articolo sostituito da Tabella gruppi articoli
|
||||||
BEGIN
|
//STRING F_TIPO 1
|
||||||
PROMPT 42 1 "Tipo "
|
//BEGIN
|
||||||
FIELD LF_ANAMAG->TIPO
|
// PROMPT 42 1 "Tipo "
|
||||||
END
|
// FIELD LF_ANAMAG->TIPO
|
||||||
|
//END
|
||||||
|
|
||||||
STRING F_DESCR 50
|
STRING F_DESCR 50
|
||||||
BEGIN
|
BEGIN
|
||||||
@ -133,7 +134,7 @@ END
|
|||||||
|
|
||||||
SPREADSHEET F_SHEET0 77 5
|
SPREADSHEET F_SHEET0 77 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 8 ""
|
PROMPT 1 8 "Unità di misura"
|
||||||
ITEM "U.M."
|
ITEM "U.M."
|
||||||
ITEM "F. conversione"
|
ITEM "F. conversione"
|
||||||
ITEM "Prezzo netto@18"
|
ITEM "Prezzo netto@18"
|
||||||
@ -314,14 +315,25 @@ END
|
|||||||
|
|
||||||
STRING F_UMP 3
|
STRING F_UMP 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 18 "U.M. peso "
|
PROMPT 1 18 "U.M. peso "
|
||||||
FIELD LF_ANAMAG->UMP
|
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
|
END
|
||||||
|
|
||||||
NUMBER F_PESO 15 5
|
NUMBER F_PESO 15 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 30 18 "Peso "
|
PROMPT 30 18 "Peso "
|
||||||
FIELD LF_ANAMAG->PESO
|
FIELD LF_ANAMAG->PESO
|
||||||
|
VALIDATE REQIF_FUNC 1 F_TARA
|
||||||
|
WARNING "Necessario introdurre il peso se si è introdotta la tara"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_TARA 15 5
|
NUMBER F_TARA 15 5
|
||||||
@ -474,6 +486,8 @@ BOOLEAN F_ARTPROD
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Articolo di produzione "
|
PROMPT 2 8 "Articolo di produzione "
|
||||||
FIELD LF_ANAMAG->ARTPROD
|
FIELD LF_ANAMAG->ARTPROD
|
||||||
|
MESSAGE TRUE DISABLE,F_CODFORN|DISABLE,F_CODFORN1
|
||||||
|
MESSAGE FALSE ENABLE,F_CODFORN|ENABLE,F_CODFORN1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PPCONF 15 5
|
NUMBER F_PPCONF 15 5
|
||||||
|
Loading…
x
Reference in New Issue
Block a user