root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :10.0 250

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
tabella PIM non avrebbe maschera di immissione (mai cambiata dal 1994 e mai in cd); comunque è una maschera di CG non di BA


git-svn-id: svn://10.65.10.50/trunk@18402 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-03-03 12:25:11 +00:00
parent 688b8c1565
commit 6536ba9888
3 changed files with 390 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
cg/cgtbpim.h Executable file
View File

@ -0,0 +1,28 @@
//campi maschere cgtbpim.msk e cgtbpimc.msk
#define F_ANNO 131
#define F_ATTIVITA 132
#define F_REGISTRO 133
#define F_MESE 134
#define F_TIPOCR 135
#define F_TIPOIMP 136
#define F_CODIVA 137
#define F_IMPONIBILE 138
#define F_IVA 139
#define F_IMPLORDO 140
#define F_CODDITTA 141
#define F_RAGSOC 142
#define F_IMPORTO 143

165
cg/cgtbpim.uml Executable file
View File

@ -0,0 +1,165 @@
#include "cgtbpim.h"
#define F_IMPORTO1 1000
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Progressivi IVA mensili" 0 2 0 0
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

197
cg/cgtbpimc.uml Executable file
View File

@ -0,0 +1,197 @@
#include "cgtbpim.h"
#define F_IMPORTO1 1000
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "" 0 2 0 0
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,17] F_CODIVA
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Attivita'" CODTAB[5,9]
DISPLAY "Codice registro" CODTAB[10,12]
DISPLAY "Mese" CODTAB[13,14]
DISPLAY "Codice IVA" CODTAB[15,17]
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_CODIVA CODTAB[15,17]
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 "R"
USE REG
CHECKTYPE NORMAL
INPUT CODTAB[1,3] F_REGISTRO
INPUT CODTAB[4,7] F_ANNO
DISPLAY "Codice registro" CODTAB[1,3]
DISPLAY "Anno" CODTAB[4,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_REGISTRO CODTAB[1,3]
OUTPUT F_ANNO CODTAB[4,7]
WARNING "Codice registro assente"
KEY 1
END
NUMBER F_MESE 2
BEGIN
PROMPT 4 7 "Mese "
HELP "Mese a cui si fa riferimento"
FIELD LF_TAB->CODTAB[13,14]
FLAGS "RZ"
COPYUSE F_ANNO
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,17] F_CODIVA
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Attivita'" CODTAB[5,9]
DISPLAY "Codice registro" CODTAB[10,12]
DISPLAY "Mese" CODTAB[13,14]
DISPLAY "Codice IVA" CODTAB[15,17]
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_CODIVA CODTAB[15,17]
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]
KEY 1
END
LIST F_IMPORTO 5
BEGIN
PROMPT 4 9 "Tipo importo "
HELP "Tipo importo da applicare"
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
STRING F_CODIVA 3
BEGIN
PROMPT 4 10 "Codice IVA "
HELP "Codice IVA da applicare"
FIELD LF_TAB->CODTAB[15,17]
COPYUSE F_ANNO
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,17] F_CODIVA
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Attivita'" CODTAB[5,9]
DISPLAY "Codice registro" CODTAB[10,12]
DISPLAY "Mese" CODTAB[13,14]
DISPLAY "Codice IVA" CODTAB[15,17]
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_CODIVA CODTAB[15,17]
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
BUTTON DLG_OK
BEGIN
PROMPT 42 14 ""
END
BUTTON DLG_CANCEL
BEGIN
PROMPT 53 14 ""
END
ENDPAGE
ENDMASK