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

Patch level : 12.0 676

Browse Source 
Files correlati     : ve0.exe ve1.exe ve5.exe ve6.exe vemenu.men ve0200d.msk vetbprs.msk vetbspp.msk
Commento            :

Aggiunto codice quadro e codice tri
This commit is contained in:
AlexBonazzi 2019-01-20 12:00:02 +01:00
parent c6d8cc2653
commit 91f32d0b42
4 changed files with 77 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ve/vetbprs.h
View File

@ -19,7 +19,12 @@
#define PRS_DESCRCONTOA 119 #define PRS_DESCRCONTOA 119
#define PRS_CAMPI 120 #define PRS_CAMPI 120
#define PRS_QTA 121 #define PRS_QTA 121
#define PRS_SEZIONE 122 #define PRS_SEZIONE 122
#define PRS_CODCAUS770 123
#define PRS_CODQUA 124
#define PRS_CODTRB 125
#define PRS_CODTRB1 126
#define PRS_CDC_V1 131 #define PRS_CDC_V1 131
#define PRS_CDC_A1 151 #define PRS_CDC_A1 151

55
src/ve/vetbprs.uml
View File

@ -295,6 +295,61 @@ BEGIN
ADD RUN CG0 -0 ADD RUN CG0 -0
END END
STRING PRS_CODTRB 4
BEGIN
PROMPT 2 20 "Cod. tributo "
FIELD S10
FLAG "U"
USE %TRB
INPUT CODTAB PRS_CODTRB
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT PRS_CODTRB CODTAB
OUTPUT PRS_CODTRB1 S0
CHECKTYPE NORMAL
END
STRING PRS_CODTRB1 50 22
BEGIN
PROMPT 25 20 ""
USE %TRB KEY 2
INPUT S0 PRS_CODTRB1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT PRS_CODTRB CODTAB
OUTPUT PRS_CODTRB1 S0
CHECKTYPE NORMAL
END
NUMBER PRS_CODCAUS770 2
BEGIN
PROMPT 2 21 "Caus. 770 "
USE %CA7 SELECT I0==#PRS_CODTRB
INPUT CODTAB PRS_CODCAUS770
DISPLAY "Cod.caus." CODTAB
DISPLAY "Cod.trib." I0
DISPLAY "Art.bil." I3
DISPLAY "Quadro " S1
DISPLAY "Descrizione @60" S0
OUTPUT PRS_CODCAUS770 CODTAB
FIELD I6
FLAGS "Z"
MODULE 77
CHECKTYPE NORMAL
END
LISTBOX PRS_CODQUA 2 10
BEGIN
PROMPT 20 21 "Quadro "
HELP "Inserire il codice quadro"
ITEM "|"
ITEM "LA|Quadro LA"
ITEM "SF|Quadro SF"
ITEM "SG|Quadro SG"
WARNING "Manca il codice quadro"
FIELD S12
END
LISTBOX PRS_SEZIONE 6 LISTBOX PRS_SEZIONE 6
BEGIN BEGIN
PROMPT 2 23 "Sezione per cooperative " PROMPT 2 23 "Sezione per cooperative "

2
src/ve/vetbspp.h
View File

@ -38,6 +38,8 @@
#define SPP_CDC_A3 142 #define SPP_CDC_A3 142
#define SPP_CDC_A4 143 #define SPP_CDC_A4 143
#define SPP_CODQUA 160
#ifndef __VETBANAL_H #ifndef __VETBANAL_H
#include "vetbanal.h" #include "vetbanal.h"
#endif #endif

16
src/ve/vetbspp.uml
View File

@ -366,7 +366,6 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER SPP_CODCAUS770 2 NUMBER SPP_CODCAUS770 2
BEGIN BEGIN
PROMPT 2 21 "Caus. 770 " PROMPT 2 21 "Caus. 770 "
@ -380,12 +379,25 @@ BEGIN
OUTPUT SPP_CODCAUS770 CODTAB OUTPUT SPP_CODCAUS770 CODTAB
FIELD I6 FIELD I6
FLAGS "Z" FLAGS "Z"
MODULE 77
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
LISTBOX SPP_CODQUA 2 10
BEGIN
PROMPT 20 21 "Quadro "
HELP "Inserire il codice quadro"
ITEM "|"
ITEM "LA|Quadro LA"
ITEM "SF|Quadro SF"
ITEM "SG|Quadro SG"
WARNING "Manca il codice quadro"
FIELD S12
END
LISTBOX SPP_SEZIONE 6 LISTBOX SPP_SEZIONE 6
BEGIN BEGIN
PROMPT 25 21 "Sezione per cooperative " PROMPT 45 21 "Sezione per cooperative "
FIELD S11[5,5] FIELD S11[5,5]
ITEM "D|Dare" ITEM "D|Dare"
ITEM "A|Avere" ITEM "A|Avere"