#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