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

Patch level : 12.0 1040

Browse Source 
Files correlati     : babnoc.msk batbiva.msk
Commento            :

Aggiunto il tipo Intra alle tabelle IVA
Aggiunta la tabella prestazioni dei servizi
This commit is contained in:
Alessandro Bonazzi 2021-03-15 21:28:47 +01:00
parent 07fef4ee9c
commit d3f77e0804
6 changed files with 125 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/ba/bastcpa.rep Normal file
View File

@ -0,0 +1,41 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report libraries="" page_merge="" save_printer="" name="bastcpa" use_printer_font="" orientation="" page_split="" lpi="6" command="" class="">
<font face="Courier New" size="10" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="" hidden="" page_break="" can_break="" pattern="1">
<field deactivated="" type="Testo" valign="center" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="96" codval="" height="2" id="" pattern="2" hide_zero="" text="Tabella Classificazione prestazione dei servizi">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
<field x="2" y="3" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="6" codval="" id="" pattern="2" hide_zero="" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="15" y="3" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="2" hide_zero="" text="Denominazione">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="4.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="1" hidden="" page_break="" can_break="" pattern="1" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="" hidden="" page_break="" can_break="" pattern="1" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="1" hidden="" page_break="" can_break="" pattern="1">
<field x="2" deactivated="" type="Stringa" hidden="" link="%NOC.CODTAB[1,4]" dynamic_height="" shade_offset="" width="5" codval="" id="" pattern="2" hide_zero="" text="">
<source>CODTAB</source>
</field>
<field x="15" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="70" codval="" id="" pattern="2" hide_zero="" text="">
<source>S0</source>
</field>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="" hidden="" height="3" page_break="" can_break="" pattern="1">
<field border="2" x="1" y="0.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
<field x="2" y="1" deactivated="" type="Data" hidden="" link="" dynamic_height="" shade_offset="" width="10" codval="" id="" pattern="2" hide_zero="" text="">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" deactivated="" type="Numero" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="3" codval="" id="" pattern="2" hide_zero="" text="">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="1" hidden="" page_break="" can_break="" pattern="1" />
<sql>USE %CPA
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

36
src/ba/bastcpa.uml Normal file
View File

@ -0,0 +1,36 @@
#include "ba3200.h"
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
PAGE "Stampa classificazione prestazioni dei servizi" 0 2 0 0
STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
USE %CPA
INPUT CODTAB F_INIZIO1
DISPLAY "Classificazione" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
FIELD FROM
GROUP 1
END
STRING F_FINE1 5
BEGIN
PROMPT 2 2 "A codice "
FLAGS "UZ"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
DISPLAY "Classificazione" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_FINE1 CODTAB
FIELD TO
GROUP 2
END
ENDPAGE
ENDMASK

2
src/ba/batbcpa.h Normal file
View File

@ -0,0 +1,2 @@
#define CPA_CODICE 101
#define CPA_DESCR 102

45
src/ba/batbcpa.uml Normal file
View File

@ -0,0 +1,45 @@
#include "batbcpa.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Classificazione prestazioni dei servizi" 0 2 0 0
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 1 "@bClassificazione"
END
NUMBER CPA_CODICE 5
BEGIN
PROMPT 2 3 "Codice "
FLAGS "Z"
USE %CPA
INPUT CODTAB CPA_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT CPA_CODICE CODTAB
OUTPUT CPA_DESCR S0
CHECKTYPE REQUIRED
FIELD CODTAB
KEY 1
VALIDATE FIXLEN_FUNC 5
END
STRING CPA_DESCR 50
BEGIN
PROMPT 2 5 "Descrizione "
USE %CPA KEY 2
INPUT S0 CPA_DESCR
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT CPA_CODICE
CHECKTYPE REQUIRED
FIELD S0
KEY 2
END
ENDPAGE
ENDMASK

5
src/ba/batbnoc.h
View File

@ -5,7 +5,4 @@
#define NOC_UMS_OBB 201
#define NOC_UMS_CODICE 202
#define NOC_UMS_DESCR 203
#define NOC_TIPO_INTRA 204
#define NOC_UMS_DESCR 203

8
src/ba/batbnoc.uml
View File

@ -118,14 +118,6 @@ BEGIN
GROUP 1
END
LIST NOC_TIPO_INTRA 1 7
BEGIN
PROMPT 2 15 "Tipo Intra "
ITEM "B|Beni"
ITEM "S|Servizi"
FIELD S6
END
ENDPAGE
ENDMASK