#include "veconf.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Tabella gestione spese" 1 1 60 14

GROUPBOX DLG_NULL 78 6
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_SPINCODCON1 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
CHECKTYPE NORMAL
END

STRING F_SPINCODCON2 3
BEGIN
PROMPT  29 4 ""
FIELD SPINCODCON[2]
COPY ALL F_SPINCODCON1
CHECKTYPE NORMAL
END

STRING F_SPINCODCON3 6
BEGIN
PROMPT  35 4 ""
FIELD SPINCODCON[3]
COPY ALL F_SPINCODCON1
CHECKTYPE NORMAL
END

STRING F_SPINDESCON 50
BEGIN
PROMPT 2 5 "Descrizione          "
USE LF_PCON KEY 2
INPUT DESCR F_SPINDESCON
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto"  CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SPINCODCON1
CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 7 "Gestione spese bolli RB"
END

STRING F_SPBRBCODIVA 4
BEGIN
PROMPT  2 8 "Codice IVA           "
FIELD SPBRBCODIVA
USE %IVA
INPUT CODTAB F_SPBRBCODIVA   
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_SPBRBCODIVA CODTAB
OUTPUT F_SPBRBDESIVA  S0
CHECKTYPE NORMAL
END

STRING F_SPBRBDESIVA 50 
BEGIN
PROMPT 2 9 "Descrizione          "
USE %IVA KEY 2
INPUT S0 F_SPBRBDESIVA
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_SPBRBCODIVA
CHECKTYPE NORMAL
END


STRING F_SPBRBCODCON1 3
BEGIN
PROMPT  2 10 "Codice contabilita'  "
FIELD SPBRBCODCON[1]
USE LF_PCON
INPUT GRUPPO F_SPBRBCODCON1
INPUT CONTO  F_SPBRBCODCON2
INPUT SOTTOCONTO F_SPBRBCODCON3
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
CHECKTYPE NORMAL
END

STRING F_SPBRBCODCON2 3
BEGIN
PROMPT  29 10 ""
FIELD SPBRBCODCON[2]
COPY ALL F_SPBRBCODCON1
CHECKTYPE NORMAL
END

STRING F_SPBRBCODCON3 6
BEGIN
PROMPT  35 10 ""
FIELD SPBRBCODCON[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
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto"  CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SPBRBCODCON1
CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK