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
parent
1c895e6c1f
commit
23ec4dd88e
264
ve/ve0200d.uml
264
ve/ve0200d.uml
@ -16,14 +16,14 @@ ENDPAGE
|
|||||||
|
|
||||||
PAGE "Tabella gestione spese" 1 1 60 14
|
PAGE "Tabella gestione spese" 1 1 60 14
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 6
|
GROUPBOX DLG_NULL 78 8
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Gestione spese d'incasso"
|
PROMPT 1 1 "Gestione spese d'incasso"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_SPINCODIVA 4
|
STRING F_SPINCODIVA 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Codice IVA "
|
PROMPT 2 2 "Codice IVA "
|
||||||
FIELD SPINCODIVA
|
FIELD SPINCODIVA
|
||||||
USE %IVA
|
USE %IVA
|
||||||
INPUT CODTAB F_SPINCODIVA
|
INPUT CODTAB F_SPINCODIVA
|
||||||
@ -36,7 +36,7 @@ END
|
|||||||
|
|
||||||
STRING F_SPINDESIVA 50
|
STRING F_SPINDESIVA 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Descrizione "
|
PROMPT 2 3 "Descrizione "
|
||||||
USE %IVA KEY 2
|
USE %IVA KEY 2
|
||||||
INPUT S0 F_SPINDESIVA
|
INPUT S0 F_SPINDESIVA
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
@ -45,129 +45,257 @@ COPY OUTPUT F_SPINCODIVA
|
|||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_SPINCODCON1 3
|
STRING F_SPINCODCON1V 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Codice contabilita' "
|
PROMPT 2 4 "Codice conto ricavi "
|
||||||
FIELD SPINCODCON[1]
|
FIELD SPINCODCONV[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
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_SPINCODCON2 3
|
STRING F_SPINCODCON2V 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 29 4 ""
|
PROMPT 29 4 ""
|
||||||
FIELD SPINCODCON[2]
|
FIELD SPINCODCONV[2]
|
||||||
COPY ALL F_SPINCODCON1
|
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
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_SPINCODCON3 6
|
STRING F_SPINCODCON3V 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 35 4 ""
|
PROMPT 35 4 ""
|
||||||
FIELD SPINCODCON[3]
|
FIELD SPINCODCONV[3]
|
||||||
COPY ALL F_SPINCODCON1
|
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
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_SPINDESCON 50
|
STRING F_SPINDESCONV 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Descrizione "
|
PROMPT 2 5 "Descrizione "
|
||||||
USE LF_PCON KEY 2
|
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
|
||||||
INPUT DESCR F_SPINDESCON
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||||||
|
INPUT DESCR F_SPINDESCONV
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
DISPLAY "Gruppo" GRUPPO
|
DISPLAY "Gruppo" GRUPPO
|
||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
COPY OUTPUT F_SPINCODCON1
|
COPY OUTPUT F_SPINCODCON3V
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 6
|
STRING F_SPINCODCON1A 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 7 "Gestione spese bolli"
|
PROMPT 2 6 "Codice conto ricavi "
|
||||||
|
FIELD SPINCODCONA[1]
|
||||||
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_SPBRBCODIVA 4
|
STRING F_SPINCODCON2A 3
|
||||||
BEGIN
|
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
|
FIELD SPBOCODIVA
|
||||||
USE %IVA
|
USE %IVA
|
||||||
INPUT CODTAB F_SPBRBCODIVA
|
INPUT CODTAB F_SPBOCODIVA
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_SPBRBCODIVA CODTAB
|
OUTPUT F_SPBOCODIVA CODTAB
|
||||||
OUTPUT F_SPBRBDESIVA S0
|
OUTPUT F_SPBODESIVA S0
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_SPBRBDESIVA 50
|
STRING F_SPBODESIVA 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 "Descrizione "
|
PROMPT 2 11 "Descrizione "
|
||||||
USE %IVA KEY 2
|
USE %IVA KEY 2
|
||||||
INPUT S0 F_SPBRBDESIVA
|
INPUT S0 F_SPBODESIVA
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
COPY OUTPUT F_SPBRBCODIVA
|
COPY OUTPUT F_SPBOCODIVA
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
STRING F_SPBRBCODCON1 3
|
STRING F_SPBOCODCON1V 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Codice contabilita' "
|
PROMPT 2 12 "Codice conto ricavi "
|
||||||
FIELD SPBOCODCON[1]
|
FIELD SPBOCODCONV[1]
|
||||||
USE LF_PCON
|
CHECKTYPE NORMAL
|
||||||
INPUT GRUPPO F_SPBRBCODCON1
|
END
|
||||||
INPUT CONTO F_SPBRBCODCON2
|
|
||||||
INPUT SOTTOCONTO F_SPBRBCODCON3
|
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 "Gruppo" GRUPPO
|
||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_SPBRBCODCON1 GRUPPO
|
OUTPUT F_SPBOCODCON1V GRUPPO
|
||||||
OUTPUT F_SPBRBCODCON2 CONTO
|
OUTPUT F_SPBOCODCON2V CONTO
|
||||||
OUTPUT F_SPBRBCODCON3 SOTTOCONTO
|
|
||||||
OUTPUT F_SPBRBDESCON DESCR
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_SPBRBCODCON2 3
|
STRING F_SPBOCODCON3V 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 29 10 ""
|
PROMPT 35 12 ""
|
||||||
FIELD SPBOCODCON[2]
|
FIELD SPBOCODCONV[3]
|
||||||
COPY ALL F_SPBRBCODCON1
|
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
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_SPBRBCODCON3 6
|
STRING F_SPBODESCONV 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 35 10 ""
|
PROMPT 2 13 "Descrizione "
|
||||||
FIELD SPBOCODCON[3]
|
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
|
||||||
COPY ALL F_SPBRBCODCON1
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||||||
CHECKTYPE NORMAL
|
INPUT DESCR F_SPBODESCONV
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_SPBRBDESCON 50
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 11 "Descrizione "
|
|
||||||
USE LF_PCON KEY 2
|
|
||||||
INPUT DESCR F_SPBRBDESCON
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
DISPLAY "Gruppo" GRUPPO
|
DISPLAY "Gruppo" GRUPPO
|
||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
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
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user