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

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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