AlexBonazzi
7d93b65814
Files correlati : ve Commento : Se in una riga di sconto metto l'aliquota viene usata questa invece di suddividere l'imponibile tra le aliquote della fqttura La stampa tabelle vendite chiamava un programma sbagliato Aggiunto un parametro di configurazione nascosto (UpdateProtocol=[ |X]) che forza la rilettura del protocollo IVA a ogni documento contabilizzato Si puòora indicare un conto patrimoniale per le spese di incasso e bolli
301 lines
7.0 KiB
Plaintext
Executable File
301 lines
7.0 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 ((CONTO!="") && (SOTTOCONTO=="")) && ((INDBIL=="2")||(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
|
|
WARNING "Il conto deve essere un ricavo o una passività"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPINCODCON3V 6
|
|
BEGIN
|
|
PROMPT 35 4 ""
|
|
FIELD SPINCODCONV[3]
|
|
USE LF_PCON SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="2")||(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
|
|
WARNING "Il conto deve essere un ricavo o una passività"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPINDESCONV 50
|
|
BEGIN
|
|
PROMPT 2 5 "Descrizione "
|
|
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="2")||(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 ((CONTO!="") && (SOTTOCONTO=="")) && ((INDBIL=="1")||(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=="1")||(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
|
|
WARNING "Il conto deve essere un costo o una attività"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPINDESCONA 50
|
|
BEGIN
|
|
PROMPT 2 7 "Descrizione "
|
|
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="1")||(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
|
|
WARNING "Il conto deve essere un costo o una attività"
|
|
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 ((CONTO!="") && (SOTTOCONTO=="")) && ((INDBIL=="2")||(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=="2")||(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 o una passività"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPBODESCONV 50
|
|
BEGIN
|
|
PROMPT 2 13 "Descrizione "
|
|
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="2")||(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 o una passività"
|
|
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 ((CONTO!="") && (SOTTOCONTO=="")) && ((INDBIL=="1")||(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=="1")||(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 o una attività"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SPBODESCONA 50
|
|
BEGIN
|
|
PROMPT 2 15 "Descrizione "
|
|
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && ((500@->INDBIL=="1")||(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 o una attività"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|