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

Causali in tabcom

Browse Source 
Causali di riga


git-svn-id: svn://10.65.10.50/trunk@4843 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-07-07 12:25:35 +00:00
parent 9f3f1e6a16
commit 6be07175d2
3 changed files with 116 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
mg/mg3300a.frm
View File

@ -1,3 +1,4 @@
// form stampa schede per articolo
#include "mg3300.h" #include "mg3300.h"
USE LF_ANAMAG USE LF_ANAMAG
SORT LF_RMOVMAG BY LF_MOVMAG->DATAREG NUMREG 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 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_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 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 500 INTO CODTAB==CODMAG[1,3]
JOIN MAG TO LF_RMOVMAG ALIAS 501 INTO CODTAB==CODMAG JOIN MAG TO LF_RMOVMAG ALIAS 501 INTO CODTAB==CODMAG
@ -72,19 +73,19 @@ SECTION HEADER ODD 5
END END
STRINGA 6 12 STRINGA 6 12
BEGIN BEGIN
PROMPT 27 4 "UM" PROMPT 42 4 "UM"
END END
NUMBER 7 12 NUMBER 7 12
BEGIN BEGIN
PROMPT 31 4 "Quantità" PROMPT 46 4 "Quantità"
END END
NUMBER 8 12 NUMBER 8 12
BEGIN BEGIN
PROMPT 42 4 "Prezzo" PROMPT 58 4 "Prezzo"
END END
NUMBER 9 12 NUMBER 9 12
BEGIN BEGIN
PROMPT 54 4 "Valore" PROMPT 71 4 "Valore"
END END
STRINGA 5 146 STRINGA 5 146
BEGIN BEGIN
@ -93,7 +94,7 @@ SECTION HEADER ODD 5
END END
END END
SECTION BODY ODD 2 SECTION BODY ODD 0
NUMBER 100 1 NUMBER 100 1
BEGIN BEGIN
@ -139,7 +140,7 @@ SECTION BODY ODD 2
SECTION GRUPPI_ARTICOLO 1 0 0 FILE LF_ANAMAG BY CODART SECTION GRUPPI_ARTICOLO 1 0 0 FILE LF_ANAMAG BY CODART
SECTION FILE_RMOVMAG 1 1 0 FILE LF_RMOVMAG 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" FLAGS "N"
SECTION HEADER_LIVGIACCATMER 1 1 1 GROUP SECTION HEADER_LIVGIACCATMER 1 1 1 GROUP
STRINGA 10 20 1 STRINGA 10 20 1
@ -155,6 +156,7 @@ SECTION BODY ODD 2
MESSAGE _USER,CATMER MESSAGE _USER,CATMER
END END
END //HEADER catmer END //HEADER catmer
STRINGA 10 20 1 STRINGA 10 20 1
BEGIN BEGIN
KEY "CODICE articolo" KEY "CODICE articolo"
@ -167,27 +169,28 @@ SECTION BODY ODD 2
PROMPT 30 1 "" PROMPT 30 1 ""
MESSAGE _USER,GRUPPOART MESSAGE _USER,GRUPPOART
END END
SECTION HEADER_LIVGIAC 2 1 1 GROUP
STRINGA 20 20 1 STRINGA 20 20 1
BEGIN BEGIN
KEY "CODICE livello" KEY "CODICE livello"
PROMPT 1 2 "" PROMPT 1 1 ""
MESSAGE _USER,CODGRUPPOGIAC MESSAGE _USER,CODGRUPPOGIAC
END END
STRINGA 21 50 1 STRINGA 21 50 1
BEGIN BEGIN
KEY "Livello giac" KEY "Livello giac"
PROMPT 23 2 "" PROMPT 23 1 ""
MESSAGE _USER,GRUPPOGIAC MESSAGE _USER,GRUPPOGIAC
END END
SECTION HEADER_MAG 3 1 1 GROUP END
SECTION HEADER_MAG 2 1 1 GROUP
STRINGA 22 50 1 STRINGA 22 50 1
BEGIN BEGIN
KEY "mag" KEY "mag"
PROMPT 5 1 "Magazzino " PROMPT 5 1 "Magazzino "
FIELD 500@->S0 FIELD 500@->S0
END END
SECTION HEADER_DEP 1 1 1 GROUP SECTION HEADER_DEP 2 1 1 GROUP
STRINGA 23 50 1 STRINGA 23 50 1
BEGIN BEGIN
KEY "dep" KEY "dep"
@ -199,7 +202,7 @@ SECTION BODY ODD 2
STRINGA 24 50 1 STRINGA 24 50 1
BEGIN BEGIN
KEY "dep" KEY "dep"
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------" PROMPT 1 2 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END END
END // HEADER livgiac END // HEADER livgiac
@ -222,12 +225,24 @@ SECTION BODY ODD 2
FIELD LF_MOVMAG->DATAREG FIELD LF_MOVMAG->DATAREG
MESSAGE COPY,FF_DATA_MOV MESSAGE COPY,FF_DATA_MOV
END END
NUMERO 12 NUMERO 12
BEGIN BEGIN
FLAGS "H" FLAGS "H"
FIELD LF_MOVMAG->CODCAUS FIELD LF_MOVMAG->DESCR
MESSAGE _USER,SETCAUSALE MESSAGE COPY,FF_DESCR_MOV
END 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 SECTION MOVIMENTO 1 0 0 FILE LF_RMOVMAG GROUP NUMREG
@ -307,7 +322,7 @@ SECTION BODY ODD 2
END // sezione movimento di competenza END // sezione movimento di competenza
END // loop movimento 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 NUMBER FF_NUM_MOV 32
BEGIN BEGIN
PROMPT 2 1 "Mov. " PROMPT 2 1 "Mov. "
@ -316,29 +331,41 @@ SECTION BODY ODD 2
BEGIN BEGIN
PROMPT 12 1 "del " PROMPT 12 1 "del "
END END
STRINGA 100 2 STRINGA FF_DESCR_MOV 50
BEGIN BEGIN
PROMPT 27 1 "" 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 FIELD LF_UMART->UM
END END
NUMBER FF_SALDO_MOV 12 NUMBER FF_SALDO_MOV 12
BEGIN BEGIN
PROMPT 31 1 "" PROMPT 46 2 ""
PICTURE "###.###,@##" PICTURE "###.###,@##"
MESSAGE ADD,FF_SALDO_GRMOV MESSAGE ADD,FF_SALDO_GRMOV
END END
NUMBER 100 12
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
END
NUMBER FF_VALORE_MOV 12 NUMBER FF_VALORE_MOV 12
BEGIN BEGIN
PROMPT 54 1 "" PROMPT 69 2 ""
PICTURE "###.###.###" PICTURE "###.###.###"
MESSAGE ADD,FF_VALORE_GRMOV MESSAGE ADD,FF_VALORE_GRMOV
END END
NUMBER 100 12
BEGIN
PROMPT 57 2 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
END
END // totali mov END // totali mov
END // loop scheda END // loop scheda
@ -350,19 +377,19 @@ SECTION BODY ODD 2
END END
STRINGA 100 2 STRINGA 100 2
BEGIN BEGIN
PROMPT 27 1 "" PROMPT 42 1 ""
FIELD LF_UMART->UM FIELD LF_UMART->UM
MESSAGE COPY,FF_UM_GART MESSAGE COPY,FF_UM_GART
END END
NUMBER FF_SALDO_GRMOV 12 NUMBER FF_SALDO_GRMOV 12
BEGIN BEGIN
PROMPT 31 1 "" PROMPT 46 1 ""
PICTURE "###.###,@##" PICTURE "###.###,@##"
MESSAGE ADD,FF_SALDO_GART MESSAGE ADD,FF_SALDO_GART
END END
NUMBER FF_VALORE_GRMOV 12 NUMBER FF_VALORE_GRMOV 12
BEGIN BEGIN
PROMPT 54 1 "" PROMPT 69 1 ""
PICTURE "###.###.###" PICTURE "###.###.###"
MESSAGE ADD,FF_VALORE_GART MESSAGE ADD,FF_VALORE_GART
END END
@ -370,6 +397,9 @@ SECTION BODY ODD 2
END // loop RMOVMAG END // loop RMOVMAG
SECTION TOTALI_MOV_ARTICOLO 1 0 0 NUMEXPR #FF_SALDO_MOV!=0 SECTION TOTALI_MOV_ARTICOLO 1 0 0 NUMEXPR #FF_SALDO_MOV!=0
FLAGS "D"
// da eliminare !!!!!!!!!!!
/*
NUMBER FF_NUM_MOVART 32 NUMBER FF_NUM_MOVART 32
BEGIN BEGIN
PROMPT 2 1 "Mov. " PROMPT 2 1 "Mov. "
@ -401,6 +431,7 @@ SECTION BODY ODD 2
PICTURE "###.###.###" PICTURE "###.###.###"
MESSAGE ADD,FF_VALORE_GRMOV MESSAGE ADD,FF_VALORE_GRMOV
END END
*/
END // totali mov END // totali mov
END // ragg articolo (codice o catmer) END // ragg articolo (codice o catmer)
@ -411,17 +442,17 @@ SECTION BODY ODD 2
END END
STRINGA FF_UM_GART 2 STRINGA FF_UM_GART 2
BEGIN BEGIN
PROMPT 27 1 "" PROMPT 42 1 ""
FIELD LF_UMART->UM FIELD LF_UMART->UM
END END
NUMBER FF_SALDO_GART 12 NUMBER FF_SALDO_GART 12
BEGIN BEGIN
PROMPT 31 1 "" PROMPT 46 1 ""
PICTURE "###.###,@##" PICTURE "###.###,@##"
END END
NUMBER FF_VALORE_GART 12 NUMBER FF_VALORE_GART 12
BEGIN BEGIN
PROMPT 54 1 "" PROMPT 69 1 ""
PICTURE "###.###.###" PICTURE "###.###.###"
END END
END // TOTALI scheda per articolo END // TOTALI scheda per articolo

63
mg/mg3300b.frm
View File

@ -1,9 +1,10 @@
// form stampa schede per magazzino
#include "mg3300.h" #include "mg3300.h"
USE LF_RMOVMAG KEY 2 BY CODMAG CODART LIVGIAC LF_MOVMAG->DATAREG NUMREG 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_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_ANAMAG TO LF_RMOVMAG INTO CODART==CODART
JOIN LF_MOVMAG TO LF_RMOVMAG INTO NUMREG==NUMREG 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 500 INTO CODTAB==CODMAG[1,3]
JOIN MAG TO LF_RMOVMAG ALIAS 501 INTO CODTAB==CODMAG JOIN MAG TO LF_RMOVMAG ALIAS 501 INTO CODTAB==CODMAG
@ -71,19 +72,19 @@ SECTION HEADER ODD 5
END END
STRINGA 6 12 STRINGA 6 12
BEGIN BEGIN
PROMPT 27 4 "UM" PROMPT 42 4 "UM"
END END
NUMBER 7 12 NUMBER 7 12
BEGIN BEGIN
PROMPT 31 4 "Quantità" PROMPT 46 4 "Quantità"
END END
NUMBER 8 12 NUMBER 8 12
BEGIN BEGIN
PROMPT 42 4 "Prezzo" PROMPT 57 4 "Prezzo"
END END
NUMBER 9 12 NUMBER 9 12
BEGIN BEGIN
PROMPT 54 4 "Valore" PROMPT 71 4 "Valore"
END END
STRINGA 5 146 STRINGA 5 146
BEGIN BEGIN
@ -192,8 +193,18 @@ SECTION BODY ODD 2
NUMERO 12 NUMERO 12
BEGIN BEGIN
FLAGS "H" FLAGS "H"
FIELD LF_MOVMAG->CODCAUS FIELD LF_MOVMAG->DESCR
MESSAGE _USER,SETCAUSALE 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 END
SECTION MOVIMENTO 1 0 0 FILE LF_RMOVMAG GROUP NUMREG SECTION MOVIMENTO 1 0 0 FILE LF_RMOVMAG GROUP NUMREG
@ -274,7 +285,7 @@ SECTION BODY ODD 2
END // sezione movimento di competenza END // sezione movimento di competenza
END // loop movimento 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 NUMBER FF_NUM_MOV 32
BEGIN BEGIN
PROMPT 2 1 "Mov. " PROMPT 2 1 "Mov. "
@ -283,29 +294,41 @@ SECTION BODY ODD 2
BEGIN BEGIN
PROMPT 12 1 "del " PROMPT 12 1 "del "
END END
STRINGA 100 2 STRINGA FF_DESCR_MOV 50
BEGIN BEGIN
PROMPT 27 1 "" 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 FIELD LF_UMART->UM
END END
NUMBER FF_SALDO_MOV 12 NUMBER FF_SALDO_MOV 12
BEGIN BEGIN
PROMPT 31 1 "" PROMPT 46 2 ""
PICTURE "###.###,@##" PICTURE "###.###,@##"
MESSAGE ADD,FF_SALDO_GART MESSAGE ADD,FF_SALDO_GART
END END
NUMBER 100 12
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
END
NUMBER FF_VALORE_MOV 12 NUMBER FF_VALORE_MOV 12
BEGIN BEGIN
PROMPT 54 1 "" PROMPT 69 2 ""
PICTURE "###.###.###" PICTURE "###.###.###"
MESSAGE ADD,FF_VALORE_GART MESSAGE ADD,FF_VALORE_GART
END END
NUMBER 100 12
BEGIN
PROMPT 57 2 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
END
END // totali mov END // totali mov
END // loop scheda END // loop scheda
@ -317,17 +340,17 @@ SECTION BODY ODD 2
END END
STRINGA 100 2 STRINGA 100 2
BEGIN BEGIN
PROMPT 27 1 "" PROMPT 42 1 ""
FIELD LF_UMART->UM FIELD LF_UMART->UM
END END
NUMBER FF_SALDO_GART 12 NUMBER FF_SALDO_GART 12
BEGIN BEGIN
PROMPT 31 1 "" PROMPT 46 1 ""
PICTURE "###.###,@##" PICTURE "###.###,@##"
END END
NUMBER FF_VALORE_GART 12 NUMBER FF_VALORE_GART 12
BEGIN BEGIN
PROMPT 54 1 "" PROMPT 69 1 ""
PICTURE "###.###.###" PICTURE "###.###.###"
END END
END // TOTALI scheda per articolo END // TOTALI scheda per articolo

3
mg/mg4300.frm
View File

@ -1,7 +1,8 @@
#include "mg4300.h" #include "mg4300.h"
USE LF_RMOVMAG BY CRONO_FIELD FISC_FIELD USE LF_RMOVMAG BY CRONO_FIELD FISC_FIELD
JOIN LF_MOVMAG INTO NUMREG==NUMREG 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_ANAMAG TO LF_RMOVMAG INTO CODART==CODART
JOIN LF_UMART TO LF_ANAMAG 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 JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS ALIAS_UMRMOV INTO CODART==CODART UM==UM