Aggiunti conti per acquisti

git-svn-id: svn://10.65.10.50/trunk@3633 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-09-19 13:01:48 +00:00
parent 1c895e6c1f
commit 23ec4dd88e

View File

@ -16,14 +16,14 @@ ENDPAGE
PAGE "Tabella gestione spese" 1 1 60 14
GROUPBOX DLG_NULL 78 6
GROUPBOX DLG_NULL 78 8
BEGIN
PROMPT 1 1 "Gestione spese d'incasso"
END
STRING F_SPINCODIVA 4
BEGIN
PROMPT 2 2 "Codice IVA "
PROMPT 2 2 "Codice IVA "
FIELD SPINCODIVA
USE %IVA
INPUT CODTAB F_SPINCODIVA
@ -36,7 +36,7 @@ END
STRING F_SPINDESIVA 50
BEGIN
PROMPT 2 3 "Descrizione "
PROMPT 2 3 "Descrizione "
USE %IVA KEY 2
INPUT S0 F_SPINDESIVA
DISPLAY "Descrizione@50" S0
@ -45,129 +45,257 @@ COPY OUTPUT F_SPINCODIVA
CHECKTYPE NORMAL
END
STRING F_SPINCODCON1 3
STRING F_SPINCODCON1V 3
BEGIN
PROMPT 2 4 "Codice contabilita' "
FIELD SPINCODCON[1]
USE LF_PCON
INPUT GRUPPO F_SPINCODCON1
INPUT CONTO F_SPINCODCON2
INPUT SOTTOCONTO F_SPINCODCON3
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SPINCODCON1 GRUPPO
OUTPUT F_SPINCODCON2 CONTO
OUTPUT F_SPINCODCON3 SOTTOCONTO
OUTPUT F_SPINDESCON DESCR
PROMPT 2 4 "Codice conto ricavi "
FIELD SPINCODCONV[1]
CHECKTYPE NORMAL
END
STRING F_SPINCODCON2 3
STRING F_SPINCODCON2V 3
BEGIN
PROMPT 29 4 ""
FIELD SPINCODCON[2]
COPY ALL F_SPINCODCON1
FIELD SPINCODCONV[2]
USE LF_PCON SELECT INDBIL=="4"
INPUT GRUPPO F_SPINCODCON1V
INPUT CONTO F_SPINCODCON2V
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SPINCODCON1V GRUPPO
OUTPUT F_SPINCODCON2V CONTO
CHECKTYPE NORMAL
END
STRING F_SPINCODCON3 6
STRING F_SPINCODCON3V 6
BEGIN
PROMPT 35 4 ""
FIELD SPINCODCON[3]
COPY ALL F_SPINCODCON1
FIELD SPINCODCONV[3]
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
COPY INPUT F_SPINCODCON2V
INPUT SOTTOCONTO F_SPINCODCON3V
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
COPY OUTPUT F_SPINCODCON2V
OUTPUT F_SPINCODCON3V SOTTOCONTO
OUTPUT F_SPINDESCONV DESCR
CHECKTYPE NORMAL
END
STRING F_SPINDESCON 50
STRING F_SPINDESCONV 50
BEGIN
PROMPT 2 5 "Descrizione "
USE LF_PCON KEY 2
INPUT DESCR F_SPINDESCON
PROMPT 2 5 "Descrizione "
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_SPINDESCONV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SPINCODCON1
COPY OUTPUT F_SPINCODCON3V
CHECKTYPE NORMAL
END
GROUPBOX DLG_NULL 78 6
STRING F_SPINCODCON1A 3
BEGIN
PROMPT 1 7 "Gestione spese bolli"
PROMPT 2 6 "Codice conto ricavi "
FIELD SPINCODCONA[1]
CHECKTYPE NORMAL
END
STRING F_SPBRBCODIVA 4
STRING F_SPINCODCON2A 3
BEGIN
PROMPT 2 8 "Codice IVA "
PROMPT 29 6 ""
FIELD SPINCODCONA[2]
USE LF_PCON SELECT INDBIL=="3"
INPUT GRUPPO F_SPINCODCON1A
INPUT CONTO F_SPINCODCON2A
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SPINCODCON1A GRUPPO
OUTPUT F_SPINCODCON2A CONTO
CHECKTYPE NORMAL
END
STRING F_SPINCODCON3A 6
BEGIN
PROMPT 35 6 ""
FIELD SPINCODCONA[3]
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
COPY INPUT F_SPINCODCON2A
INPUT SOTTOCONTO F_SPINCODCON3A
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
COPY OUTPUT F_SPINCODCON2A
OUTPUT F_SPINCODCON3A SOTTOCONTO
OUTPUT F_SPINDESCONA DESCR
CHECKTYPE NORMAL
END
STRING F_SPINDESCONA 50
BEGIN
PROMPT 2 7 "Descrizione "
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_SPINDESCONA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SPINCODCON3A
CHECKTYPE NORMAL
END
GROUPBOX DLG_NULL 78 8
BEGIN
PROMPT 1 9 "Gestione spese bolli"
END
STRING F_SPBOCODIVA 4
BEGIN
PROMPT 2 10 "Codice IVA "
FIELD SPBOCODIVA
USE %IVA
INPUT CODTAB F_SPBRBCODIVA
INPUT CODTAB F_SPBOCODIVA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_SPBRBCODIVA CODTAB
OUTPUT F_SPBRBDESIVA S0
OUTPUT F_SPBOCODIVA CODTAB
OUTPUT F_SPBODESIVA S0
CHECKTYPE NORMAL
END
STRING F_SPBRBDESIVA 50
STRING F_SPBODESIVA 50
BEGIN
PROMPT 2 9 "Descrizione "
PROMPT 2 11 "Descrizione "
USE %IVA KEY 2
INPUT S0 F_SPBRBDESIVA
INPUT S0 F_SPBODESIVA
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_SPBRBCODIVA
COPY OUTPUT F_SPBOCODIVA
CHECKTYPE NORMAL
END
STRING F_SPBRBCODCON1 3
STRING F_SPBOCODCON1V 3
BEGIN
PROMPT 2 10 "Codice contabilita' "
FIELD SPBOCODCON[1]
USE LF_PCON
INPUT GRUPPO F_SPBRBCODCON1
INPUT CONTO F_SPBRBCODCON2
INPUT SOTTOCONTO F_SPBRBCODCON3
PROMPT 2 12 "Codice conto ricavi "
FIELD SPBOCODCONV[1]
CHECKTYPE NORMAL
END
STRING F_SPBOCODCON2V 3
BEGIN
PROMPT 29 12 ""
FIELD SPBOCODCONV[2]
USE LF_PCON SELECT INDBIL=="4"
INPUT GRUPPO F_SPBOCODCON1V
INPUT CONTO F_SPBOCODCON2V
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SPBRBCODCON1 GRUPPO
OUTPUT F_SPBRBCODCON2 CONTO
OUTPUT F_SPBRBCODCON3 SOTTOCONTO
OUTPUT F_SPBRBDESCON DESCR
OUTPUT F_SPBOCODCON1V GRUPPO
OUTPUT F_SPBOCODCON2V CONTO
CHECKTYPE NORMAL
END
STRING F_SPBRBCODCON2 3
STRING F_SPBOCODCON3V 6
BEGIN
PROMPT 29 10 ""
FIELD SPBOCODCON[2]
COPY ALL F_SPBRBCODCON1
PROMPT 35 12 ""
FIELD SPBOCODCONV[3]
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
COPY INPUT F_SPBOCODCON2V
INPUT SOTTOCONTO F_SPBOCODCON3V
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
COPY OUTPUT F_SPBOCODCON2V
OUTPUT F_SPBOCODCON3V SOTTOCONTO
OUTPUT F_SPBODESCONV DESCR
WARNING "Il conto deve essere un ricavo"
CHECKTYPE NORMAL
END
STRING F_SPBRBCODCON3 6
STRING F_SPBODESCONV 50
BEGIN
PROMPT 35 10 ""
FIELD SPBOCODCON[3]
COPY ALL F_SPBRBCODCON1
CHECKTYPE NORMAL
END
STRING F_SPBRBDESCON 50
BEGIN
PROMPT 2 11 "Descrizione "
USE LF_PCON KEY 2
INPUT DESCR F_SPBRBDESCON
PROMPT 2 13 "Descrizione "
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_SPBODESCONV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SPBRBCODCON1
COPY OUTPUT F_SPBOCODCON3V
WARNING "Il conto deve essere un ricavo"
CHECKTYPE NORMAL
END
STRING F_SPBOCODCON1A 3
BEGIN
PROMPT 2 14 "Codice conto acquisti "
FIELD SPBOCODCONA[1]
CHECKTYPE NORMAL
END
STRING F_SPBOCODCON2A 3
BEGIN
PROMPT 29 14 ""
FIELD SPBOCODCONA[2]
USE LF_PCON SELECT INDBIL=="3"
INPUT GRUPPO F_SPBOCODCON1A
INPUT CONTO F_SPBOCODCON2A
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SPBOCODCON1A GRUPPO
OUTPUT F_SPBOCODCON2A CONTO
CHECKTYPE NORMAL
END
STRING F_SPBOCODCON3A 6
BEGIN
PROMPT 35 14 ""
FIELD SPBOCODCONA[3]
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
COPY INPUT F_SPBOCODCON2A
INPUT SOTTOCONTO F_SPBOCODCON3A
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
COPY OUTPUT F_SPBOCODCON2A
OUTPUT F_SPBOCODCON3A SOTTOCONTO
OUTPUT F_SPBODESCONA DESCR
WARNING "Il conto deve essere un costo"
CHECKTYPE NORMAL
END
STRING F_SPBODESCONA 50
BEGIN
PROMPT 2 15 "Descrizione "
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_SPBODESCONA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SPBOCODCON3A
WARNING "Il conto deve essere un costo"
CHECKTYPE NORMAL
END