Causali in tabcom
Causali di riga git-svn-id: svn://10.65.10.50/trunk@4843 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
9f3f1e6a16
commit
6be07175d2
111
mg/mg3300a.frm
111
mg/mg3300a.frm
@ -1,3 +1,4 @@
|
||||
// form stampa schede per articolo
|
||||
#include "mg3300.h"
|
||||
USE LF_ANAMAG
|
||||
SORT LF_RMOVMAG BY LF_MOVMAG->DATAREG NUMREG
|
||||
@ -5,7 +6,7 @@ SORT LF_RMOVMAG BY LF_MOVMAG->DATAREG NUMREG
|
||||
JOIN TO LF_ANAMAG KEY 2 INTO CODART==CODART
|
||||
JOIN LF_MAG TO LF_RMOVMAG KEY 2 INTO ANNOES==1996 CODMAG==CODMAG CODART==CODART LIVELLO==LIVGIAC
|
||||
JOIN LF_MOVMAG TO LF_RMOVMAG INTO NUMREG==NUMREG
|
||||
JOIN CAU TO LF_MOVMAG INTO CODTAB==CODCAUS
|
||||
JOIN %CAU TO LF_MOVMAG INTO CODTAB==CODCAUS
|
||||
|
||||
JOIN MAG TO LF_RMOVMAG ALIAS 500 INTO CODTAB==CODMAG[1,3]
|
||||
JOIN MAG TO LF_RMOVMAG ALIAS 501 INTO CODTAB==CODMAG
|
||||
@ -72,19 +73,19 @@ SECTION HEADER ODD 5
|
||||
END
|
||||
STRINGA 6 12
|
||||
BEGIN
|
||||
PROMPT 27 4 "UM"
|
||||
PROMPT 42 4 "UM"
|
||||
END
|
||||
NUMBER 7 12
|
||||
BEGIN
|
||||
PROMPT 31 4 "Quantità"
|
||||
PROMPT 46 4 "Quantità"
|
||||
END
|
||||
NUMBER 8 12
|
||||
BEGIN
|
||||
PROMPT 42 4 "Prezzo"
|
||||
PROMPT 58 4 "Prezzo"
|
||||
END
|
||||
NUMBER 9 12
|
||||
BEGIN
|
||||
PROMPT 54 4 "Valore"
|
||||
PROMPT 71 4 "Valore"
|
||||
END
|
||||
STRINGA 5 146
|
||||
BEGIN
|
||||
@ -93,7 +94,7 @@ SECTION HEADER ODD 5
|
||||
END
|
||||
END
|
||||
|
||||
SECTION BODY ODD 2
|
||||
SECTION BODY ODD 0
|
||||
|
||||
NUMBER 100 1
|
||||
BEGIN
|
||||
@ -139,7 +140,7 @@ SECTION BODY ODD 2
|
||||
|
||||
SECTION GRUPPI_ARTICOLO 1 0 0 FILE LF_ANAMAG BY CODART
|
||||
SECTION FILE_RMOVMAG 1 1 0 FILE LF_RMOVMAG
|
||||
SECTION HEADER_LIVGIAC 1 3 3 GROUP
|
||||
SECTION HEADER_GRMOV 1 2 2 GROUP
|
||||
FLAGS "N"
|
||||
SECTION HEADER_LIVGIACCATMER 1 1 1 GROUP
|
||||
STRINGA 10 20 1
|
||||
@ -155,6 +156,7 @@ SECTION BODY ODD 2
|
||||
MESSAGE _USER,CATMER
|
||||
END
|
||||
END //HEADER catmer
|
||||
|
||||
STRINGA 10 20 1
|
||||
BEGIN
|
||||
KEY "CODICE articolo"
|
||||
@ -167,27 +169,28 @@ SECTION BODY ODD 2
|
||||
PROMPT 30 1 ""
|
||||
MESSAGE _USER,GRUPPOART
|
||||
END
|
||||
|
||||
STRINGA 20 20 1
|
||||
BEGIN
|
||||
KEY "CODICE livello"
|
||||
PROMPT 1 2 ""
|
||||
MESSAGE _USER,CODGRUPPOGIAC
|
||||
SECTION HEADER_LIVGIAC 2 1 1 GROUP
|
||||
STRINGA 20 20 1
|
||||
BEGIN
|
||||
KEY "CODICE livello"
|
||||
PROMPT 1 1 ""
|
||||
MESSAGE _USER,CODGRUPPOGIAC
|
||||
END
|
||||
STRINGA 21 50 1
|
||||
BEGIN
|
||||
KEY "Livello giac"
|
||||
PROMPT 23 1 ""
|
||||
MESSAGE _USER,GRUPPOGIAC
|
||||
END
|
||||
END
|
||||
STRINGA 21 50 1
|
||||
BEGIN
|
||||
KEY "Livello giac"
|
||||
PROMPT 23 2 ""
|
||||
MESSAGE _USER,GRUPPOGIAC
|
||||
END
|
||||
SECTION HEADER_MAG 3 1 1 GROUP
|
||||
SECTION HEADER_MAG 2 1 1 GROUP
|
||||
STRINGA 22 50 1
|
||||
BEGIN
|
||||
KEY "mag"
|
||||
PROMPT 5 1 "Magazzino "
|
||||
FIELD 500@->S0
|
||||
END
|
||||
SECTION HEADER_DEP 1 1 1 GROUP
|
||||
SECTION HEADER_DEP 2 1 1 GROUP
|
||||
STRINGA 23 50 1
|
||||
BEGIN
|
||||
KEY "dep"
|
||||
@ -199,7 +202,7 @@ SECTION BODY ODD 2
|
||||
STRINGA 24 50 1
|
||||
BEGIN
|
||||
KEY "dep"
|
||||
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
|
||||
PROMPT 1 2 "------------------------------------------------------------------------------------------------------------------------------------------------------"
|
||||
END
|
||||
END // HEADER livgiac
|
||||
|
||||
@ -222,12 +225,24 @@ SECTION BODY ODD 2
|
||||
FIELD LF_MOVMAG->DATAREG
|
||||
MESSAGE COPY,FF_DATA_MOV
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
FIELD LF_MOVMAG->CODCAUS
|
||||
MESSAGE _USER,SETCAUSALE
|
||||
FIELD LF_MOVMAG->DESCR
|
||||
MESSAGE COPY,FF_DESCR_MOV
|
||||
END
|
||||
NUMERO 13
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
MESSAGE _USER,CAUSALERIGA|COPY,FF_CAUSALE_RIGA
|
||||
END
|
||||
NUMERO 14
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
MESSAGE _USER,DESCRCAUSALE|COPY,FF_DESCRCAUSALE
|
||||
END
|
||||
|
||||
|
||||
SECTION MOVIMENTO 1 0 0 FILE LF_RMOVMAG GROUP NUMREG
|
||||
|
||||
@ -307,7 +322,7 @@ SECTION BODY ODD 2
|
||||
END // sezione movimento di competenza
|
||||
END // loop movimento
|
||||
|
||||
SECTION TOTALI_MOV 1 2 1 NUMEXPR #FF_SALDO_MOV!=0
|
||||
SECTION TOTALI_MOV 1 2 2 NUMEXPR #FF_SALDO_MOV!=0
|
||||
NUMBER FF_NUM_MOV 32
|
||||
BEGIN
|
||||
PROMPT 2 1 "Mov. "
|
||||
@ -316,29 +331,41 @@ SECTION BODY ODD 2
|
||||
BEGIN
|
||||
PROMPT 12 1 "del "
|
||||
END
|
||||
STRINGA 100 2
|
||||
STRINGA FF_DESCR_MOV 50
|
||||
BEGIN
|
||||
PROMPT 27 1 ""
|
||||
END
|
||||
STRINGA FF_CAUSALE_RIGA 5
|
||||
BEGIN
|
||||
PROMPT 6 2 ""
|
||||
END
|
||||
STRINGA FF_DESCRCAUSALE 25
|
||||
BEGIN
|
||||
PROMPT 11 2 " "
|
||||
END
|
||||
STRINGA 100 2
|
||||
BEGIN
|
||||
PROMPT 42 2 ""
|
||||
FIELD LF_UMART->UM
|
||||
END
|
||||
NUMBER FF_SALDO_MOV 12
|
||||
BEGIN
|
||||
PROMPT 31 1 ""
|
||||
PROMPT 46 2 ""
|
||||
PICTURE "###.###,@##"
|
||||
MESSAGE ADD,FF_SALDO_GRMOV
|
||||
END
|
||||
NUMBER 100 12
|
||||
BEGIN
|
||||
PROMPT 42 1 ""
|
||||
PICTURE "###.###.###"
|
||||
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
|
||||
END
|
||||
NUMBER FF_VALORE_MOV 12
|
||||
BEGIN
|
||||
PROMPT 54 1 ""
|
||||
PROMPT 69 2 ""
|
||||
PICTURE "###.###.###"
|
||||
MESSAGE ADD,FF_VALORE_GRMOV
|
||||
END
|
||||
NUMBER 100 12
|
||||
BEGIN
|
||||
PROMPT 57 2 ""
|
||||
PICTURE "###.###.###"
|
||||
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
|
||||
END
|
||||
END // totali mov
|
||||
END // loop scheda
|
||||
|
||||
@ -350,19 +377,19 @@ SECTION BODY ODD 2
|
||||
END
|
||||
STRINGA 100 2
|
||||
BEGIN
|
||||
PROMPT 27 1 ""
|
||||
PROMPT 42 1 ""
|
||||
FIELD LF_UMART->UM
|
||||
MESSAGE COPY,FF_UM_GART
|
||||
END
|
||||
NUMBER FF_SALDO_GRMOV 12
|
||||
BEGIN
|
||||
PROMPT 31 1 ""
|
||||
PROMPT 46 1 ""
|
||||
PICTURE "###.###,@##"
|
||||
MESSAGE ADD,FF_SALDO_GART
|
||||
END
|
||||
NUMBER FF_VALORE_GRMOV 12
|
||||
BEGIN
|
||||
PROMPT 54 1 ""
|
||||
PROMPT 69 1 ""
|
||||
PICTURE "###.###.###"
|
||||
MESSAGE ADD,FF_VALORE_GART
|
||||
END
|
||||
@ -370,6 +397,9 @@ SECTION BODY ODD 2
|
||||
END // loop RMOVMAG
|
||||
|
||||
SECTION TOTALI_MOV_ARTICOLO 1 0 0 NUMEXPR #FF_SALDO_MOV!=0
|
||||
FLAGS "D"
|
||||
// da eliminare !!!!!!!!!!!
|
||||
/*
|
||||
NUMBER FF_NUM_MOVART 32
|
||||
BEGIN
|
||||
PROMPT 2 1 "Mov. "
|
||||
@ -401,6 +431,7 @@ SECTION BODY ODD 2
|
||||
PICTURE "###.###.###"
|
||||
MESSAGE ADD,FF_VALORE_GRMOV
|
||||
END
|
||||
*/
|
||||
END // totali mov
|
||||
|
||||
END // ragg articolo (codice o catmer)
|
||||
@ -411,17 +442,17 @@ SECTION BODY ODD 2
|
||||
END
|
||||
STRINGA FF_UM_GART 2
|
||||
BEGIN
|
||||
PROMPT 27 1 ""
|
||||
PROMPT 42 1 ""
|
||||
FIELD LF_UMART->UM
|
||||
END
|
||||
NUMBER FF_SALDO_GART 12
|
||||
BEGIN
|
||||
PROMPT 31 1 ""
|
||||
PROMPT 46 1 ""
|
||||
PICTURE "###.###,@##"
|
||||
END
|
||||
NUMBER FF_VALORE_GART 12
|
||||
BEGIN
|
||||
PROMPT 54 1 ""
|
||||
PROMPT 69 1 ""
|
||||
PICTURE "###.###.###"
|
||||
END
|
||||
END // TOTALI scheda per articolo
|
||||
|
||||
@ -1,9 +1,10 @@
|
||||
// form stampa schede per magazzino
|
||||
#include "mg3300.h"
|
||||
USE LF_RMOVMAG KEY 2 BY CODMAG CODART LIVGIAC LF_MOVMAG->DATAREG NUMREG
|
||||
JOIN LF_MAG TO LF_RMOVMAG KEY 2 INTO ANNOES==1996 CODMAG==CODMAG CODART==CODART LIVELLO==LIVGIAC
|
||||
JOIN LF_ANAMAG TO LF_RMOVMAG INTO CODART==CODART
|
||||
JOIN LF_MOVMAG TO LF_RMOVMAG INTO NUMREG==NUMREG
|
||||
JOIN CAU TO LF_MOVMAG INTO CODTAB==CODCAUS
|
||||
JOIN %CAU TO LF_MOVMAG INTO CODTAB==CODCAUS
|
||||
|
||||
JOIN MAG TO LF_RMOVMAG ALIAS 500 INTO CODTAB==CODMAG[1,3]
|
||||
JOIN MAG TO LF_RMOVMAG ALIAS 501 INTO CODTAB==CODMAG
|
||||
@ -71,19 +72,19 @@ SECTION HEADER ODD 5
|
||||
END
|
||||
STRINGA 6 12
|
||||
BEGIN
|
||||
PROMPT 27 4 "UM"
|
||||
PROMPT 42 4 "UM"
|
||||
END
|
||||
NUMBER 7 12
|
||||
BEGIN
|
||||
PROMPT 31 4 "Quantità"
|
||||
PROMPT 46 4 "Quantità"
|
||||
END
|
||||
NUMBER 8 12
|
||||
BEGIN
|
||||
PROMPT 42 4 "Prezzo"
|
||||
PROMPT 57 4 "Prezzo"
|
||||
END
|
||||
NUMBER 9 12
|
||||
BEGIN
|
||||
PROMPT 54 4 "Valore"
|
||||
PROMPT 71 4 "Valore"
|
||||
END
|
||||
STRINGA 5 146
|
||||
BEGIN
|
||||
@ -192,8 +193,18 @@ SECTION BODY ODD 2
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
FIELD LF_MOVMAG->CODCAUS
|
||||
MESSAGE _USER,SETCAUSALE
|
||||
FIELD LF_MOVMAG->DESCR
|
||||
MESSAGE COPY,FF_DESCR_MOV
|
||||
END
|
||||
NUMERO 13
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
MESSAGE _USER,CAUSALERIGA|COPY,FF_CAUSALE_RIGA
|
||||
END
|
||||
NUMERO 14
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
MESSAGE _USER,DESCRCAUSALE|COPY,FF_DESCRCAUSALE
|
||||
END
|
||||
|
||||
SECTION MOVIMENTO 1 0 0 FILE LF_RMOVMAG GROUP NUMREG
|
||||
@ -274,7 +285,7 @@ SECTION BODY ODD 2
|
||||
END // sezione movimento di competenza
|
||||
END // loop movimento
|
||||
|
||||
SECTION TOTALI_MOV 1 4 1 NUMEXPR #FF_SALDO_MOV!=0
|
||||
SECTION TOTALI_MOV 1 2 2 NUMEXPR #FF_SALDO_MOV!=0
|
||||
NUMBER FF_NUM_MOV 32
|
||||
BEGIN
|
||||
PROMPT 2 1 "Mov. "
|
||||
@ -283,29 +294,41 @@ SECTION BODY ODD 2
|
||||
BEGIN
|
||||
PROMPT 12 1 "del "
|
||||
END
|
||||
STRINGA 100 2
|
||||
STRINGA FF_DESCR_MOV 50
|
||||
BEGIN
|
||||
PROMPT 27 1 ""
|
||||
END
|
||||
STRINGA FF_CAUSALE_RIGA 5
|
||||
BEGIN
|
||||
PROMPT 6 2 ""
|
||||
END
|
||||
STRINGA FF_DESCRCAUSALE 25
|
||||
BEGIN
|
||||
PROMPT 11 2 " "
|
||||
END
|
||||
STRINGA 100 2
|
||||
BEGIN
|
||||
PROMPT 42 2 ""
|
||||
FIELD LF_UMART->UM
|
||||
END
|
||||
NUMBER FF_SALDO_MOV 12
|
||||
BEGIN
|
||||
PROMPT 31 1 ""
|
||||
PROMPT 46 2 ""
|
||||
PICTURE "###.###,@##"
|
||||
MESSAGE ADD,FF_SALDO_GART
|
||||
END
|
||||
NUMBER 100 12
|
||||
BEGIN
|
||||
PROMPT 42 1 ""
|
||||
PICTURE "###.###.###"
|
||||
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
|
||||
END
|
||||
NUMBER FF_VALORE_MOV 12
|
||||
BEGIN
|
||||
PROMPT 54 1 ""
|
||||
PROMPT 69 2 ""
|
||||
PICTURE "###.###.###"
|
||||
MESSAGE ADD,FF_VALORE_GART
|
||||
END
|
||||
NUMBER 100 12
|
||||
BEGIN
|
||||
PROMPT 57 2 ""
|
||||
PICTURE "###.###.###"
|
||||
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
|
||||
END
|
||||
END // totali mov
|
||||
END // loop scheda
|
||||
|
||||
@ -317,17 +340,17 @@ SECTION BODY ODD 2
|
||||
END
|
||||
STRINGA 100 2
|
||||
BEGIN
|
||||
PROMPT 27 1 ""
|
||||
PROMPT 42 1 ""
|
||||
FIELD LF_UMART->UM
|
||||
END
|
||||
NUMBER FF_SALDO_GART 12
|
||||
BEGIN
|
||||
PROMPT 31 1 ""
|
||||
PROMPT 46 1 ""
|
||||
PICTURE "###.###,@##"
|
||||
END
|
||||
NUMBER FF_VALORE_GART 12
|
||||
BEGIN
|
||||
PROMPT 54 1 ""
|
||||
PROMPT 69 1 ""
|
||||
PICTURE "###.###.###"
|
||||
END
|
||||
END // TOTALI scheda per articolo
|
||||
|
||||
@ -1,7 +1,8 @@
|
||||
#include "mg4300.h"
|
||||
USE LF_RMOVMAG BY CRONO_FIELD FISC_FIELD
|
||||
JOIN LF_MOVMAG INTO NUMREG==NUMREG
|
||||
JOIN CAU TO LF_MOVMAG ALIAS ALIAS_CAUSALI INTO CODTAB==CODCAUS
|
||||
JOIN %CAU TO LF_MOVMAG ALIAS ALIAS_CAUSALI INTO CODTAB==CODCAUS
|
||||
JOIN %CAU TO LF_RMOVMAG ALIAS ALIAS_CAUSALIR INTO CODTAB==CAUS
|
||||
JOIN LF_ANAMAG TO LF_RMOVMAG INTO CODART==CODART
|
||||
JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
|
||||
JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS ALIAS_UMRMOV INTO CODART==CODART UM==UM
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user