ced5bcadbc
Files correlati : Ricompilazione Demo : [ ] Commento : ammodernate maschere git-svn-id: svn://10.65.10.50/trunk@18501 c028cbd2-c16b-5b4b-a496-9718f37d4682
297 lines
6.3 KiB
Plaintext
Executable File
297 lines
6.3 KiB
Plaintext
Executable File
#include "veconf.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <stdbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Spese" 0 0 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 8
|
|
BEGIN
|
|
PROMPT 1 1 "Gestione spese d'incasso"
|
|
END
|
|
|
|
STRING F_SPINCODIVA 4
|
|
BEGIN
|
|
PROMPT 2 2 "Codice IVA "
|
|
FIELD SPINCODIVA
|
|
USE %IVA
|
|
INPUT CODTAB F_SPINCODIVA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_SPINCODIVA CODTAB
|
|
OUTPUT F_SPINDESIVA S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPINDESIVA 50
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
USE %IVA KEY 2
|
|
INPUT S0 F_SPINDESIVA
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_SPINCODIVA
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPINCODCON1V 3
|
|
BEGIN
|
|
PROMPT 2 4 "Codice conto ricavo "
|
|
FIELD SPINCODCONV[1]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPINCODCON2V 3
|
|
BEGIN
|
|
PROMPT 29 4 ""
|
|
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_SPINCODCON3V 6
|
|
BEGIN
|
|
PROMPT 35 4 ""
|
|
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_SPINDESCONV 50
|
|
BEGIN
|
|
PROMPT 2 5 "Descrizione "
|
|
USE LF_PCON KEY 2 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_SPINCODCON3V
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPINCODCON1A 3
|
|
BEGIN
|
|
PROMPT 2 6 "Codice conto costo "
|
|
FIELD SPINCODCONA[1]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPINCODCON2A 3
|
|
BEGIN
|
|
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 KEY 2 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_SPBOCODIVA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_SPBOCODIVA CODTAB
|
|
OUTPUT F_SPBODESIVA S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPBODESIVA 50
|
|
BEGIN
|
|
PROMPT 2 11 "Descrizione "
|
|
USE %IVA KEY 2
|
|
INPUT S0 F_SPBODESIVA
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_SPBOCODIVA
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
|
|
STRING F_SPBOCODCON1V 3
|
|
BEGIN
|
|
PROMPT 2 12 "Codice conto ricavo "
|
|
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_SPBOCODCON1V GRUPPO
|
|
OUTPUT F_SPBOCODCON2V CONTO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPBOCODCON3V 6
|
|
BEGIN
|
|
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_SPBODESCONV 50
|
|
BEGIN
|
|
PROMPT 2 13 "Descrizione "
|
|
USE LF_PCON KEY 2 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_SPBOCODCON3V
|
|
WARNING "Il conto deve essere un ricavo"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPBOCODCON1A 3
|
|
BEGIN
|
|
PROMPT 2 14 "Codice conto costo "
|
|
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 KEY 2 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
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|