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

Causale di riga su riga separata.

Browse Source 
Codici di causale a 6 caratteri


git-svn-id: svn://10.65.10.50/trunk@4915 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-07-25 10:59:59 +00:00
parent 7fa608923d
commit c1e3743c6b
1 changed files with 34 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
mg/mg4100.frm
View File

@ -3,6 +3,7 @@ JOIN LF_MOVMAG TO LF_RMOVMAG INTO NUMREG==NUMREG
JOIN %CAU TO 110 INTO CODTAB==CODCAUS JOIN %CAU TO 110 INTO CODTAB==CODCAUS
JOIN LF_ANAMAG TO LF_RMOVMAG INTO CODART==CODART JOIN LF_ANAMAG TO LF_RMOVMAG INTO CODART==CODART
JOIN LF_DOC TO LF_MOVMAG INTO PROVV==DOCPROVV ANNO==ANNODOC CODNUM==CODNUM NDOC==NUMDOC JOIN LF_DOC TO LF_MOVMAG INTO PROVV==DOCPROVV ANNO==ANNODOC CODNUM==CODNUM NDOC==NUMDOC
JOIN %CAU TO 111 ALIAS 500 INTO CODTAB==CAUS
JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS 349 INTO CODART==CODART UM==UM JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS 349 INTO CODART==CODART UM==UM
JOIN LF_UMART TO LF_ANAMAG ALIAS 249 INTO CODART==CODART JOIN LF_UMART TO LF_ANAMAG ALIAS 249 INTO CODART==CODART
@ -98,11 +99,11 @@ BEGIN
PROMPT 35 5 "Descrizione articolo" PROMPT 35 5 "Descrizione articolo"
END END
STRINGA 105 //STRINGA 105
BEGIN //BEGIN
KEY "caus" // KEY "caus"
PROMPT 74 5 "Causale" // PROMPT 74 5 "Causale"
END //END
STRINGA 105 STRINGA 105
BEGIN BEGIN
@ -151,7 +152,7 @@ SECTION BODY ODD 1
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "numreg" KEY "numreg"
PROMPT 1 1 "" PROMPT 1 1 "Registrazione "
FIELD LF_MOVMAG->NUMREG FIELD LF_MOVMAG->NUMREG
PICTURE "#####" PICTURE "#####"
MESSAGE RESET,10 MESSAGE RESET,10
@ -160,25 +161,25 @@ SECTION BODY ODD 1
DATA 2 8 DATA 2 8
BEGIN BEGIN
KEY "datacomp" KEY "datacomp"
PROMPT 10 1 "" PROMPT 24 1 ""
FIELD LF_MOVMAG->DATACOMP FIELD LF_MOVMAG->DATACOMP
END END
STRINGA 3 40 STRINGA 3 40
BEGIN BEGIN
KEY "descr mov" KEY "descr mov"
PROMPT 20 1 "" PROMPT 34 1 ""
FIELD LF_MOVMAG->DESCR FIELD LF_MOVMAG->DESCR
END END
STRINGA 4 22 STRINGA 4 24
BEGIN BEGIN
KEY " CAUS mov" KEY " CAUS mov"
PROMPT 10 2 "Causale movimento " PROMPT 4 2 "Causale movimento "
FIELD LF_MOVMAG->CODCAUS FIELD LF_MOVMAG->CODCAUS
END END
STRINGA 5 20 STRINGA 5 50
BEGIN BEGIN
KEY " DESCR CAUS" KEY " DESCR CAUS"
PROMPT 32 2 "" PROMPT 30 2 ""
FIELD %CAU->S0 FIELD %CAU->S0
END END
@ -198,6 +199,21 @@ SECTION BODY ODD 1
END END
SECTION RIGHE_MOV 3 1 1 FILE LF_RMOVMAG GROUP NUMREG SECTION RIGHE_MOV 3 1 1 FILE LF_RMOVMAG GROUP NUMREG
SECTION CAUS_RIGA 1 1 1 STREXPR LF_RMOVMAG->CAUS!=""
STRINGA 4 24
BEGIN
KEY " CAUS mov"
PROMPT 10 1 "Causale riga "
FIELD LF_RMOVMAG->CAUS
END
STRINGA 5 50
BEGIN
KEY " DESCR CAUS"
PROMPT 34 1 ""
FIELD 500@->S0
END
END
STRINGA 101 3 STRINGA 101 3
BEGIN BEGIN
KEY "" KEY ""
@ -225,12 +241,12 @@ SECTION BODY ODD 1
FIELD LF_ANAMAG->DESCR FIELD LF_ANAMAG->DESCR
END END
STRINGA 105 4 //STRINGA 105 4
BEGIN //BEGIN
KEY "CAUS" // KEY "CAUS"
PROMPT 77 1 "" // PROMPT 77 1 ""
FIELD LF_RMOVMAG->CAUS // FIELD LF_RMOVMAG->CAUS
END //END
STRINGA 105 20 STRINGA 105 20
BEGIN BEGIN