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

Modificate le tabelle RFA, CCO,CVE,GMC, CAA e CRA in modo che

Browse Source 
siano associate alla ditta e non piu' comuni.


git-svn-id: svn://10.65.10.50/trunk@3419 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-08-21 10:42:12 +00:00
parent 50f62e71ac
commit 16904de61b
7 changed files with 76 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
ve/bastcaa.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa Tabella Categorie Acquisti Articoli" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da cod. articolo "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE CAA
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. acquisto articolo" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
PROMPT 2 1 "Da cod. articolo "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE CAA
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. acquisto articolo" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A cod. articolo "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
PROMPT 2 3 "A cod. articolo "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

42
ve/bastcra.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa Tabella Categorie Ricavi Articoli" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da cod. articolo "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE CRA
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. ricavo articolo" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
PROMPT 2 1 "Da cod. articolo "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE CRA
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. ricavo articolo" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A cod. articolo "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
PROMPT 2 3 "A cod. articolo "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

42
ve/bastrfa.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa Tabella Raggruppamento Fiscale Articoli " -1 -1 50 8
STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "Da codice art. "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE RFA
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
PROMPT 2 1 "Da codice art. "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE RFA
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 5
BEGIN
PROMPT 2 3 "A codice art. "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
PROMPT 2 3 "A codice art. "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

2
ve/batbacr.uml
View File

@ -37,7 +37,7 @@ BEGIN
FIELD %ACR->CODTAB[1,3]
KEY 1
FLAG "U"
USE %CCO // CATEGORIE CONTABILI C/F
USE CCO // CATEGORIE CONTABILI C/F
INPUT CODTAB F_CODCATCON
DISPLAY "Codice" CODTAB

10
ve/batbcaa.uml
View File

@ -16,7 +16,7 @@ END
STRING F_CODICE 3
BEGIN
PROMPT 2 2 "Cod. Tabella "
FIELD CAA->CODTAB
FIELD CODTAB
KEY 1
USE CAA
@ -35,7 +35,7 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD CAA->S0
FIELD S0
KEY 2
USE CAA KEY 2
INPUT S0 F_DESCR
@ -52,14 +52,14 @@ END
STRING F_CODCON 3
BEGIN
PROMPT 2 8 "Codice conto "
FIELD CAA->S1
FIELD S1
FLAG "R"
END
STRING F_CODCON1 3
BEGIN
PROMPT 25 8 ""
FIELD CAA->S2
FIELD S2
USE LF_PCON SELECT INDBIL=3
FLAG "R"
INPUT GRUPPO F_CODCON
@ -76,7 +76,7 @@ END
STRING F_CODCON2 6
BEGIN
PROMPT 34 8 ""
FIELD CAA->S3
FIELD S3
USE LF_PCON SELECT INDBIL=3
FLAG "R"
INPUT GRUPPO F_CODCON

10
ve/batbcra.uml
View File

@ -17,7 +17,7 @@ END
STRING F_CODICE 3
BEGIN
PROMPT 2 2 "Cod. Tabella "
FIELD CRA->CODTAB
FIELD CODTAB
KEY 1
USE CRA
@ -35,7 +35,7 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD CRA->S0
FIELD S0
KEY 2
USE CRA KEY 2
INPUT S0 F_DESCR
@ -52,14 +52,14 @@ END
STRING F_CODCON 3
BEGIN
PROMPT 2 8 "Codice conto "
FIELD CRA->S1
FIELD S1
FLAG "R"
END
STRING F_CODCON1 3
BEGIN
PROMPT 25 8 ""
FIELD CRA->S2
FIELD S2
USE LF_PCON SELECT INDBIL="4"
FLAG "R"
INPUT GRUPPO F_CODCON
@ -76,7 +76,7 @@ END
STRING F_CODCON2 6
BEGIN
PROMPT 34 8 ""
FIELD CRA->S3
FIELD S3
USE LF_PCON SELECT INDBIL="4"
FLAG "R"
INPUT GRUPPO F_CODCON

4
ve/batbrfa.uml
View File

@ -16,7 +16,7 @@ STRING FLD_TABRFA_CODTAB 5
BEGIN
PROMPT 2 2 "Codice "
FIELD CODTAB
USE %RFA
USE RFA
CHECKTYPE REQUIRED
INPUT CODTAB FLD_TABRFA_CODTAB
DISPLAY "Codice" CODTAB
@ -31,7 +31,7 @@ STRING FLD_TABRFA_S0 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD S0
USE %RFA KEY 2
USE RFA KEY 2
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
INPUT S0 FLD_TABRFA_S0