166 lines
3.3 KiB
Plaintext
Executable File
166 lines
3.3 KiB
Plaintext
Executable File
#include "batbpim.h"
|
|
#define F_IMPORTO1 1000
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Progressivi IVA mensili" -1 -1 78 16
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 4 1 "Ditta "
|
|
FLAGS "FRD"
|
|
USE LF_NDITTE KEY 1
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 4 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
KEY 1
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 4 4 "Anno "
|
|
HELP "Anno d'esercizio di competenza"
|
|
FLAGS "A"
|
|
FIELD LF_TAB->CODTAB[1,4]
|
|
USE PIM
|
|
INPUT CODTAB[1,4] F_ANNO
|
|
INPUT CODTAB[5,9] F_ATTIVITA
|
|
INPUT CODTAB[10,12] F_REGISTRO
|
|
INPUT CODTAB[13,14] F_MESE
|
|
INPUT CODTAB[15,15] F_TIPOCR
|
|
INPUT CODTAB[16,18] F_CODIVA
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Attivita'" CODTAB[5,9]
|
|
DISPLAY "Cod. registro" CODTAB[10,12]
|
|
DISPLAY "Mese" CODTAB[13,14]
|
|
DISPLAY "Tipo c/r" CODTAB[15,15]
|
|
DISPLAY "Codice IVA" CODTAB[16,18]
|
|
OUTPUT F_ANNO CODTAB[1,4]
|
|
OUTPUT F_ATTIVITA CODTAB[5,9]
|
|
OUTPUT F_REGISTRO CODTAB[10,12]
|
|
OUTPUT F_MESE CODTAB[13,14]
|
|
OUTPUT F_TIPOCR CODTAB[15,15]
|
|
OUTPUT F_CODIVA CODTAB[16,18]
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_ATTIVITA 5
|
|
BEGIN
|
|
PROMPT 4 5 "Codice attivita "
|
|
HELP "Codice dell' attivita' della ditta"
|
|
FIELD LF_TAB->CODTAB[5,9]
|
|
USE LF_ATTIV
|
|
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
|
|
CHECKTYPE NORMAL
|
|
INPUT CODDITTA F_CODDITTA
|
|
INPUT CODATT F_ATTIVITA
|
|
DISPLAY "Codice attivita'" LF_TABCOM->CODTAB
|
|
DISPLAY "Descrizione@30" LF_TABCOM->S0
|
|
OUTPUT F_ATTIVITA CODATT
|
|
WARNING "Codice attivita' non presente"
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_REGISTRO 3
|
|
BEGIN
|
|
PROMPT 4 6 "Codice registro "
|
|
HELP "Codice registro di riferimento"
|
|
FIELD LF_TAB->CODTAB[10,12]
|
|
FLAGS "UZ"
|
|
USE REG
|
|
CHECKTYPE NORMAL
|
|
INPUT CODTAB[1,4] F_ANNO
|
|
INPUT CODTAB[5,7] F_REGISTRO
|
|
DISPLAY "Codice registro" CODTAB[5,7]
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_ANNO CODTAB[1,4]
|
|
OUTPUT F_REGISTRO CODTAB[5,7]
|
|
WARNING "Codice registro assente"
|
|
KEY 1
|
|
END
|
|
|
|
LIST F_MESE 10
|
|
BEGIN
|
|
PROMPT 4 7 "Mese "
|
|
HELP "Mese a cui si fa riferimento"
|
|
FIELD LF_TAB->CODTAB[13,14]
|
|
FLAGS "MA"
|
|
VALIDATE MTCHECK_FUNC
|
|
KEY 1
|
|
END
|
|
|
|
NUMBER F_TIPOCR 1
|
|
BEGIN
|
|
PROMPT 4 8 "Tipo Costo/Ricavo "
|
|
HELP "Tipo di conto costo o ricavo"
|
|
FIELD LF_TAB->CODTAB[15,15]
|
|
COPY ALL F_ANNO
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_CODIVA 3
|
|
BEGIN
|
|
PROMPT 4 10 "Codice IVA "
|
|
HELP "Codice IVA da applicare"
|
|
FLAGS "U"
|
|
FIELD LF_TAB->CODTAB[16,18]
|
|
USE %IVA
|
|
INPUT CODTAB F_CODIVA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione " S0
|
|
OUTPUT F_CODIVA CODTAB
|
|
KEY 1
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
END
|
|
|
|
LIST F_IMPORTO 7
|
|
BEGIN
|
|
PROMPT 4 9 "Tipo Importo "
|
|
HELP "Tipo importo da applicare"
|
|
FIELD PIM->I0
|
|
ITEM "1|Netti" MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA
|
|
ITEM "2|Lordi" MESSAGE HIDE,F_IMPONIBILE|HIDE,F_IVA|SHOW,F_IMPLORDO
|
|
KEY 1
|
|
END
|
|
|
|
NUMBER F_IMPONIBILE 15
|
|
BEGIN
|
|
PROMPT 4 11 "Imponibile "
|
|
HELP "Importo dell'imponibile IVA"
|
|
FIELD LF_TAB->R0
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_IVA 15
|
|
BEGIN
|
|
PROMPT 4 12 "IVA "
|
|
HELP "Importo dell'imposta IVA"
|
|
FIELD LF_TAB->R1
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_IMPLORDO 15
|
|
BEGIN
|
|
PROMPT 4 13 "Importo lordo "
|
|
HELP "Importo imponibile+IVA"
|
|
FIELD LF_TAB->R2
|
|
FLAGS "R"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|