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 LF_ANAMAG TO LF_RMOVMAG INTO CODART==CODART
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_ANAMAG ALIAS 249 INTO CODART==CODART
@ -98,11 +99,11 @@ BEGIN
PROMPT 35 5 "Descrizione articolo"
END
STRINGA 105
BEGIN
KEY "caus"
PROMPT 74 5 "Causale"
END
//STRINGA 105
//BEGIN
// KEY "caus"
// PROMPT 74 5 "Causale"
//END
STRINGA 105
BEGIN
@ -151,7 +152,7 @@ SECTION BODY ODD 1
NUMERO 1
BEGIN
KEY "numreg"
PROMPT 1 1 ""
PROMPT 1 1 "Registrazione "
FIELD LF_MOVMAG->NUMREG
PICTURE "#####"
MESSAGE RESET,10
@ -160,25 +161,25 @@ SECTION BODY ODD 1
DATA 2 8
BEGIN
KEY "datacomp"
PROMPT 10 1 ""
PROMPT 24 1 ""
FIELD LF_MOVMAG->DATACOMP
END
STRINGA 3 40
BEGIN
KEY "descr mov"
PROMPT 20 1 ""
PROMPT 34 1 ""
FIELD LF_MOVMAG->DESCR
END
STRINGA 4 22
STRINGA 4 24
BEGIN
KEY " CAUS mov"
PROMPT 10 2 "Causale movimento "
PROMPT 4 2 "Causale movimento "
FIELD LF_MOVMAG->CODCAUS
END
STRINGA 5 20
STRINGA 5 50
BEGIN
KEY " DESCR CAUS"
PROMPT 32 2 ""
PROMPT 30 2 ""
FIELD %CAU->S0
END
@ -198,6 +199,21 @@ SECTION BODY ODD 1
END
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
BEGIN
KEY ""
@ -225,12 +241,12 @@ SECTION BODY ODD 1
FIELD LF_ANAMAG->DESCR
END
STRINGA 105 4
BEGIN
KEY "CAUS"
PROMPT 77 1 ""
FIELD LF_RMOVMAG->CAUS
END
//STRINGA 105 4
//BEGIN
// KEY "CAUS"
// PROMPT 77 1 ""
// FIELD LF_RMOVMAG->CAUS
//END
STRINGA 105 20
BEGIN