7c77333860
Files correlati : mg3.exe mg3300a.frm mg3300b.frm mg3500.frm xvaga.dll Ricompilazione Demo : [ ] Commento : GF20022 Se cerco di cambiare l'impostazione delle colonne da messaggio d'errore: "FUNCTION AL LINE 1335 NO IMPLEMENTED" GF20023 Il collegamento al movimento di magazzino non c'è. GF20024 Se si clicca sul tasto di ricerca de movimenti di magazzino l'ultimo record non viene mostrato. GF20025 Se si clicca sul tasto di ricerca dei vari criteri di valorizzazione l'ultimo record (Lifo) non viene visualizzato scorrendo la barra verticale. GF20026 La stampa dello storico non coincide sempre con la stampa dell'inventario di magazzino esempio provare ad inserire per esercizio x due acquisti 1 pezzo x 200 euro e 2 pezzi x 100 euro quindi facendo l'apertura chiusura al lifo storico la composizione della stampa dello storico per l'anno in questione presenta 3 pezzi a un vaore unitario di 133,33 che fa quindi 399,99 e non 400 euro come dovrebbe. git-svn-id: svn://10.65.10.50/trunk@11193 c028cbd2-c16b-5b4b-a496-9718f37d4682
319 lines
6.2 KiB
Plaintext
Executable File
319 lines
6.2 KiB
Plaintext
Executable File
#define LF_TAB_MAG 500
|
|
USE LF_ANAMAG KEY 1
|
|
JOIN LF_STOMAG TO LF_ANAMAG INTO ANNOESRIF==1996 CODART==CODART
|
|
JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
|
|
JOIN MAG TO LF_STOMAG ALIAS LF_TAB_MAG INTO CODTAB==CODMAG[1,3]
|
|
JOIN GMC TO LF_ANAMAG ALIAS 400 INTO CODTAB==GRMERC[1,3]
|
|
JOIN GMC TO LF_ANAMAG ALIAS 401 INTO CODTAB==GRMERC
|
|
JOIN RFA TO LF_ANAMAG ALIAS 600 INTO CODTAB==RAGGFIS
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
47->* "Anagrafica articoli"
|
|
109->* "Archivio Giacenze"
|
|
MAG->* "Tabella magazzini"
|
|
49->* "Unità di misura articoli"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 1
|
|
END
|
|
|
|
|
|
SECTION GRAPHIC
|
|
BEGIN
|
|
END
|
|
|
|
SECTION HEADER ODD 4
|
|
|
|
STRINGA 1 40 1
|
|
BEGIN
|
|
KEY "nome ditta"
|
|
PROMPT 1 1 "Ditta "
|
|
MESSAGE _DITTA, !RAGSOC
|
|
END
|
|
|
|
STRINGA 2 10
|
|
BEGIN
|
|
KEY "Data"
|
|
PROMPT 50 1 "Data "
|
|
MESSAGE _TODAY
|
|
END
|
|
|
|
NUMERO 3 4
|
|
BEGIN
|
|
KEY "Nr. pagina"
|
|
PROMPT 72 1 "Pag. "
|
|
MESSAGE _PAGENO
|
|
END
|
|
|
|
STRING 4 44
|
|
BEGIN
|
|
KEY "Intestazione stampa"
|
|
PROMPT 19 2 "Stampa storico rimanenze - Esercizio "
|
|
END
|
|
|
|
STRINGA 5 80
|
|
BEGIN
|
|
KEY "Separatore (iniziale)"
|
|
PROMPT 1 3 "______________________________________________________________________________________________________________________________________________________"
|
|
END
|
|
|
|
END
|
|
|
|
|
|
SECTION BODY ODD 0
|
|
|
|
SECTION H_CATMER 1 1 1 GROUP
|
|
STRINGA 11 20
|
|
BEGIN
|
|
KEY "Cat. Merc/Gr. Fisc"
|
|
PROMPT 2 1 "@B"
|
|
MESSAGE _USER,CODCATMER|COPY,52|RESET,55
|
|
END
|
|
STRINGA 12 50
|
|
BEGIN
|
|
KEY "Descrizione Cat.Merc/Rag.fis"
|
|
PROMPT 23 1 "@R"
|
|
MESSAGE _USER,CATMER
|
|
END
|
|
END
|
|
|
|
SECTION GRUPPI_CATMER 1 0 0 COLUMNWISE FILE LF_ANAMAG GROUP GRMERC
|
|
|
|
SECTION H_SCATMER 1 1 1 GROUP
|
|
STRINGA 11 20
|
|
BEGIN
|
|
KEY "SottoCat. Merc"
|
|
PROMPT 2 1 ""
|
|
FIELD GRMERC
|
|
MESSAGE COPY,42|RESET,45
|
|
END
|
|
STRINGA 12 50
|
|
BEGIN
|
|
KEY "Descrizione SottoCat.Merc"
|
|
PROMPT 23 1 ""
|
|
FIELD 401@->S0
|
|
END
|
|
END
|
|
|
|
SECTION GRUPPI_SCATMER 1 0 0 COLUMNWISE FILE LF_ANAMAG GROUP GRMERC
|
|
|
|
SECTION H_ARTICOLO 1 3 1 GROUP
|
|
STRINGA 11 20
|
|
BEGIN
|
|
KEY "CODART"
|
|
PROMPT 2 1 "Articolo "
|
|
FIELD LF_ANAMAG->CODART
|
|
MESSAGE RESET,115|RESET,117
|
|
END
|
|
STRINGA 12 50
|
|
BEGIN
|
|
KEY "DESCR"
|
|
PROMPT 23 1 ""
|
|
FIELD LF_ANAMAG->DESCR
|
|
END
|
|
END
|
|
|
|
SECTION BODY_MAG 1 1 1 COLUMNWISE FILE LF_STOMAG GROUP CODART
|
|
SECTION HD_MAG 1 2 1 NORMAL GROUP
|
|
STRINGA 11 20
|
|
BEGIN
|
|
KEY "CODART"
|
|
PROMPT 2 1 "Magazzino "
|
|
FIELD LF_TAB_MAG@->CODTAB
|
|
END
|
|
STRINGA 12 50
|
|
BEGIN
|
|
KEY "DESCR"
|
|
PROMPT 23 1 ""
|
|
FIELD LF_TAB_MAG@->S0
|
|
END
|
|
END // HD MAG
|
|
|
|
SECTION HD_ANNI 1 2 1 COLUMNWISE GROUP
|
|
NUMERO 13 15
|
|
BEGIN
|
|
KEY "offset"
|
|
PROMPT 1 1 ""
|
|
END
|
|
NUMERO 13 10
|
|
BEGIN
|
|
KEY "ANNO"
|
|
PROMPT 2 1 " Anno"
|
|
END
|
|
STRINGA 15 15
|
|
BEGIN
|
|
KEY "QUANT"
|
|
PROMPT 4 1 " Quantità( "
|
|
FIELD LF_UMART->UM
|
|
END
|
|
VALUTA 16 18
|
|
BEGIN
|
|
KEY "VALORE UNITARIO"
|
|
PROMPT 5 1 ") Valore un."
|
|
FLAGS "U"
|
|
END
|
|
VALUTA 17 18
|
|
BEGIN
|
|
KEY "VALORE"
|
|
PROMPT 6 1 " Valore"
|
|
END
|
|
END // HD ANNI
|
|
SECTION BODY_ANNI 1 1 1 COLUMNWISE FILE LF_STOMAG GROUP CODMAG
|
|
NUMERO 13 15
|
|
BEGIN
|
|
KEY "offset"
|
|
PROMPT 1 1 ""
|
|
END
|
|
NUMERO 14 10
|
|
BEGIN
|
|
KEY "ANNO"
|
|
PROMPT 2 1 ""
|
|
FIELD LF_STOMAG->ANNOES
|
|
END
|
|
NUMERO 15 15
|
|
BEGIN
|
|
KEY "QUANT"
|
|
PROMPT 4 1 ""
|
|
PICTURE "#.###.###,@@@@@"
|
|
FIELD LF_STOMAG->QUANT
|
|
MESSAGE ADD,115
|
|
END
|
|
VALUTA 16 18
|
|
BEGIN
|
|
KEY "VALORE UNITARIO"
|
|
// I valori unitari dello storico sono già memorizzati coi decimali giusti
|
|
PROMPT 5 1 ""
|
|
FLAGS "U"
|
|
FIELD LF_STOMAG->VALORE
|
|
END
|
|
VALUTA 17 18
|
|
BEGIN
|
|
KEY "VALORE"
|
|
PROMPT 6 1 ""
|
|
MESSAGE _NUMEXPR,#15*#16|ADD,117|ADD,FL->2
|
|
END
|
|
END // BODY ANNI
|
|
END // BODY MAG gruppi anni dello stesso articolo
|
|
|
|
SECTION FOOTER_ANNI 1 1 2 COLUMNWISE GROUP
|
|
NUMERO 13 15
|
|
BEGIN
|
|
KEY "offset"
|
|
PROMPT 1 1 ""
|
|
END
|
|
NUMERO 14 10
|
|
BEGIN
|
|
KEY "ANNO"
|
|
PROMPT 2 1 "Totale"
|
|
END
|
|
NUMERO 115 15
|
|
BEGIN
|
|
KEY "QUANT"
|
|
PROMPT 4 1 ""
|
|
PICTURE "#.####.###,@@@@@"
|
|
END
|
|
VALUTA 116 18
|
|
BEGIN
|
|
KEY "VALORE UNTARIO"
|
|
// Qui non stampa nulla
|
|
PROMPT 5 1 ""
|
|
FLAGS "U"
|
|
END
|
|
VALUTA 117 18
|
|
BEGIN
|
|
KEY "VALORE"
|
|
PROMPT 6 1 ""
|
|
MESSAGE ADD,45|ADD,55
|
|
END
|
|
END // footer anni
|
|
|
|
END // GRUPPI_SCATMER
|
|
|
|
SECTION TOT_SCATMER 1 1 1 COLUMNWISE GROUP
|
|
STRINGA 41 15
|
|
BEGIN
|
|
KEY "Totali per sottocat. merc."
|
|
PROMPT 1 1 ""
|
|
END
|
|
STRINGA 42 10
|
|
BEGIN
|
|
KEY ""
|
|
PROMPT 2 1 "Totale "
|
|
END
|
|
STRINGA 43 15
|
|
BEGIN
|
|
PROMPT 4 1 ""
|
|
END
|
|
STRINGA 44 18
|
|
BEGIN
|
|
PROMPT 5 1 ""
|
|
END
|
|
VALUTA 45 18
|
|
BEGIN
|
|
KEY "VALORE"
|
|
PROMPT 6 1 ""
|
|
END
|
|
END // TOT_SCATMER
|
|
|
|
END // GRUPPI_CATMER
|
|
|
|
SECTION TOT_CATMER 1 1 2 COLUMNWISE GROUP
|
|
STRINGA 51 15
|
|
BEGIN
|
|
KEY "Totali per cat merc/ragg.fisc"
|
|
PROMPT 1 1 ""
|
|
END
|
|
STRINGA 52 10
|
|
BEGIN
|
|
KEY ""
|
|
PROMPT 2 1 "@BTotale "
|
|
END
|
|
STRINGA 53 15
|
|
BEGIN
|
|
PROMPT 4 1 ""
|
|
END
|
|
STRINGA 54 18
|
|
BEGIN
|
|
PROMPT 5 1 ""
|
|
END
|
|
VALUTA 55 18
|
|
BEGIN
|
|
KEY "VALORE"
|
|
PROMPT 6 1 ""
|
|
END
|
|
END // TOT_CATMER
|
|
|
|
//END // CICLO sul file di storico
|
|
|
|
END // section body, loop anamag
|
|
|
|
SECTION FOOTER ODD 2
|
|
END // fine footer
|
|
|
|
SECTION FOOTER LAST 3 COLUMNWISE
|
|
|
|
STRINGA 5 80
|
|
BEGIN
|
|
KEY "Separatore (finale)"
|
|
PROMPT 1 1 "______________________________________________________________________________________________________________________________________________________"
|
|
END
|
|
|
|
STRINGA 1 58
|
|
BEGIN
|
|
PROMPT 1 2 "@BTotale generale"
|
|
END
|
|
|
|
VALUTA 2 18
|
|
BEGIN
|
|
KEY "TOTALE"
|
|
PROMPT 2 2 ""
|
|
END
|
|
|
|
END
|
|
|
|
END // fine form
|