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            :
sostituite le omonime ba...uml e rep con le cg (non cambia assolutamente nulla tranne il prefisso del nome!!)


git-svn-id: svn://10.65.10.50/trunk@18363 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-02-26 16:18:27 +00:00
parent 494b00b102
commit ac14462895
64 changed files with 0 additions and 4149 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
ba/bastcam.rep
View File

@ -1,57 +0,0 @@
<report libraries="bastcam" name="bastcam" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Stringa" width="50">
<font italic="1" face="Courier New" bold="1" size="10" />
<source>#SYSTEM.RAGSOC</source>
</field>
<field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Cambi Giornalieri">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="3.5" type="Linea" width="93" height="0" />
<field x="2" y="4" type="Testo" width="10" text="Cod. Valuta">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="15" y="4" type="Testo" width="5" text="Data">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="27" y="4" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="78" y="4" type="Testo" width="7" text="Cambio">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="5.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="CAM.CODTAB" width="8">
<source>CODTAB</source>
</field>
<field x="15" type="Data" width="10">
<source>D0</source>
</field>
<field x="27" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="78" type="Stringa" width="16">
<source>S4</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE CAM
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

62
ba/bastcam.uml
View File

@ -1,62 +0,0 @@
#include "ba3200.h"
PAGE "Stampa Tabella Cambi Giornalieri" -1 -1 58 6
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da valuta "
FIELD FROM[1,3]
USE CAM
JOIN %VAL ALIAS 200 INTO CODTAB=CODTAB[1,3]
INPUT CODTAB[1,3] F_INIZIO1
INPUT CODTAB[4,11] F_INIZIO2
DISPLAY "Valuta" CODTAB[1,3]
DISPLAY "Data valuta" D0
DISPLAY "Descrizione@50" -200->S0
OUTPUT F_INIZIO1 CODTAB[1,3]
OUTPUT F_INIZIO2 CODTAB[4,14]
FLAGS "UZ"
GROUP 1
END
DATE F_INIZIO2
BEGIN
PROMPT 28 1 "Da data "
FIELD FROM[4,11]
COPY ALL F_INIZIO1
FLAGS "R"
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 2 "A valuta "
FIELD TO[1,3]
COPY USE F_INIZIO1
INPUT CODTAB[1,3] F_FINE1
INPUT CODTAB[4,11] F_FINE2
DISPLAY "Valuta" CODTAB[1,3]
DISPLAY "Data valuta" D0
DISPLAY "Descrizione@50" -200->S0
OUTPUT F_FINE1 CODTAB[1,3]
OUTPUT F_FINE2 CODTAB[4,11]
FLAGS "UZ"
GROUP 2
END
DATE F_FINE2
BEGIN
PROMPT 28 2 "A data "
FIELD TO[4,11]
FLAGS "R"
COPY ALL F_FINE1
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

69
ba/bastcco.rep
View File

@ -1,69 +0,0 @@
<report libraries="bastcco" name="bastcco" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Stringa" width="50">
<font italic="1" face="Courier New" bold="1" size="10" />
<source>#SYSTEM.RAGSOC</source>
</field>
<field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Categorie Contabili C/F">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="3.5" type="Linea" width="93" height="0" />
<field x="2" y="4" type="Testo" width="6" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="4" type="Testo" width="11" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="61" y="4" type="Testo" width="13" text="Conto Vendita">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="80" y="4" type="Testo" width="13" text="Conto Acquisto">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="5.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="CCO.CODTAB" width="8">
<source>CODTAB</source>
</field>
<field x="10" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="61" type="Numero" align="right" width="3">
<source>I3</source>
</field>
<field x="65" type="Numero" align="right" width="3">
<source>I4</source>
</field>
<field x="69" type="Numero" align="right" width="6">
<source>I5</source>
</field>
<field x="80" type="Numero" align="right" width="3">
<source>I0</source>
</field>
<field x="84" type="Numero" align="right" width="3">
<source>I1</source>
</field>
<field x="88" type="Numero" align="right" width="6">
<source>I2</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE CCO
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

34
ba/bastcco.uml
View File

@ -1,34 +0,0 @@
#include "ba3200.h"
PAGE "Stampa Categorie contabili" -1 -1 40 5
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE CCO
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 20 1 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

87
ba/bastcve.rep
View File

@ -1,87 +0,0 @@
<report libraries="bastcve" name="bastcve" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Categorie di Vendita">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="3.5" type="Linea" width="93" height="0" />
<field x="65" y="4" type="Testo" width="13" text="Conto Cliente">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="80" y="4" type="Testo" width="14" text="Conto Vendita">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="5" type="Testo" width="4" text="Cod.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="7" y="5" type="Testo" width="11" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="55" y="5" type="Testo" width="8" text="Provvig.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="65" y="5" type="Testo" width="3" text="Gr.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="69" y="5" type="Testo" width="3" text="Co.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="80" y="5" type="Testo" width="3" text="Gr.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="84" y="5" type="Testo" width="3" text="Co.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="89" y="5" type="Testo" width="5" text="Sott.">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="6.5" type="Linea" width="93" height="0" />
<field type="Stringa" width="50">
<font italic="1" face="Courier New" bold="1" size="10" />
<source>#SYSTEM.RAGSOC</source>
</field>
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="CVE.CODTAB" width="2">
<source>CODTAB</source>
</field>
<field x="7" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="58" type="Numero" align="right" width="5">
<source>R0</source>
</field>
<field x="65" type="Numero" align="right" width="3">
<source>I1</source>
</field>
<field x="69" type="Numero" align="right" width="3">
<source>I2</source>
</field>
<field x="80" type="Numero" align="right" width="3">
<source>I3</source>
</field>
<field x="84" type="Numero" align="right" width="3">
<source>I4</source>
</field>
<field x="88" type="Numero" align="right" width="6">
<source>I5</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE CVE
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

37
ba/bastcve.uml
View File

@ -1,37 +0,0 @@
#include "ba3200.h"
PAGE "Stampa Categorie Vendita" -1 -1 40 5
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE CVE
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1
DISPLAY "Conto" I2
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 20 1 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

6
ba/bastesc.h
View File

@ -1,6 +0,0 @@
//campi di bastesc.uml
#define F_CODDITTA 101
#define F_INIZIO1 102
#define F_FINE1 103

51
ba/bastesc.rep
View File

@ -1,51 +0,0 @@
<report libraries="bastesc" name="bastesc" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Esercizi">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="3.5" type="Linea" width="93" height="0" />
<field x="2" y="4" type="Testo" width="4" text="Anno">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="4" type="Testo" width="11" text="Data inizio">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="30" y="4" type="Testo" width="9" text="Data fine">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="5.5" type="Linea" width="93" height="0" />
<field type="Stringa" width="50">
<font italic="1" face="Courier New" bold="1" size="10" />
<source>#SYSTEM.RAGSOC</source>
</field>
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="ESC.CODTAB" width="4">
<source>CODTAB</source>
</field>
<field x="10" type="Data" width="10">
<source>D0</source>
</field>
<field x="30" type="Data" width="10">
<source>D1</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE ESC
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

42
ba/bastesc.uml
View File

@ -1,42 +0,0 @@
#include "bastesc.h"
PAGE "Stampa esercizi" -1 -1 40 6
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "FRD"
END
NUMBER F_INIZIO1 4
BEGIN
PROMPT 2 2 "Da anno "
FIELD FROM
FLAGS "ZR"
USE ESC KEY 1
INPUT CODTAB F_INIZIO1
DISPLAY "Anno esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
NUMBER F_FINE1 4
BEGIN
PROMPT 20 2 "a anno "
FIELD TO
COPY USE F_INIZIO1
FLAGS "ZR"
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

41
ba/bastleg.rep
View File

@ -1,41 +0,0 @@
<report libraries="bastleg" name="bastleg" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Codici Legali">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="10" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="15" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%LEG.CODTAB" width="3">
<source>CODTAB</source>
</field>
<field x="15" type="Stringa" width="50">
<source>S0</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %LEG
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

34
ba/bastleg.uml
View File

@ -1,34 +0,0 @@
#include "ba3200.h"
PAGE "Stampa Legali" -1 -1 40 5
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE %LEG
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 20 1 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

41
ba/bastmsp.rep
View File

@ -1,41 +0,0 @@
<report libraries="bastmsp" name="bastmsp" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Modalita' di Spedizione">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="6" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%MSP.CODTAB" width="3">
<source>CODTAB</source>
</field>
<field x="10" type="Stringa" width="50">
<source>S0</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %MSP
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

34
ba/bastmsp.uml
View File

@ -1,34 +0,0 @@
#include "ba3200.h"
PAGE "Stampa Modalita' di spedizione" -1 -1 40 5
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE %MSP
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 20 1 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

41
ba/bastndo.rep
View File

@ -1,41 +0,0 @@
<report libraries="bastndo" name="bastndo" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Note Documento">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="6" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%NDO.CODTAB" width="3">
<source>CODTAB</source>
</field>
<field x="10" type="Stringa" width="50">
<source>S0</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %NDO
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

34
ba/bastndo.uml
View File

@ -1,34 +0,0 @@
#include "ba3200.h"
PAGE "Stampa Note documento" -1 -1 40 5
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE %NDO
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 20 1 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

47
ba/bastnot.rep
View File

@ -1,47 +0,0 @@
<report libraries="bastnot" name="bastnot" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Note Cliente">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="10" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="15" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="70" y="3" type="Testo" width="17" text="Blocca Immissione">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%NOT.CODTAB" width="2">
<source>CODTAB</source>
</field>
<field x="15" type="Stringa" dynamic_height="1" width="50" height="10">
<source>S0+S1+S2+S3</source>
</field>
<field x="70" type="Stringa" width="1">
<source>B0</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %NOT
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

35
ba/bastnot.uml
View File

@ -1,35 +0,0 @@
#include "ba3200.h"
PAGE "Stampa Codici note" -1 -1 40 5
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE %NOT
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Blocca imm." B0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 20 1 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

53
ba/bastpor.rep
View File

@ -1,53 +0,0 @@
<report libraries="bastpor" name="bastpor" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Modalita' di Consegna">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="6" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="63" y="3" type="Testo" width="14" text="Modo trasporto">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="79" y="3" type="Testo" width="14" text="Cond. consegna">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%POR.CODTAB" width="3">
<source>CODTAB</source>
</field>
<field x="10" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="69" type="Numero" align="right" width="1">
<source>I0</source>
</field>
<field x="83" type="Stringa" width="3">
<source>S3</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %POR
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

34
ba/bastpor.uml
View File

@ -1,34 +0,0 @@
#include "ba3200.h"
PAGE "Stampa Modalita' di consegna" -1 -1 40 5
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE %POR
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 20 1 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

97
ba/bastreg.rep
View File

@ -1,97 +0,0 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report libraries="bastreg" name="bastreg" lpi="6">
<font face="Courier New" size="10" />
<section type="Head">
<field type="Stringa" width="50">
<font italic="1" face="Courier New" bold="1" size="10" />
<source>#SYSTEM.RAGSOC</source>
</field>
<field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella dei Registri">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="3.5" type="Linea" width="93" height="0" />
<field x="2" y="4" type="Testo" width="8" text="Registro">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="5" type="Testo" width="4" text="Anno">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="7" y="5" type="Testo" width="3" text="Co.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="11" y="5" type="Testo" width="3" text="Ti.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="15" y="5" type="Testo" width="11" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="6" type="Testo" width="8" text="Cod.Att.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="11" y="6" type="Testo" width="9" text="Ult.Prot.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="21" y="6" type="Testo" width="13" text="Ultima regis.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="35" y="6" type="Testo" width="8" text="Ult.pag.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="45" y="6" type="Testo" width="11" text="Data stampa">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="58" y="6" type="Testo" width="19" text="Luogo conservazione">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="7.5" type="Linea" width="93" height="0" />
</section>
<section type="Head" level="1" />
<section type="Body" />
<section type="Body" level="1">
<field x="2" type="Stringa" link="REG.CODTAB[1,4]" width="4">
<source>CODTAB[1,4]</source>
</field>
<field x="7" type="Stringa" link="REG.CODTAB[5,7]" width="3">
<source>CODTAB[5,7]</source>
</field>
<field x="12" type="Numero" align="right" width="1">
<source>I0</source>
</field>
<field x="15" type="Stringa" width="30">
<source>S0</source>
</field>
<field x="4" y="1" type="Stringa" width="5">
<source>S8</source>
</field>
<field x="13" y="1" type="Numero" align="right" width="6">
<source>I5</source>
</field>
<field x="23" y="1" type="Data" width="10">
<source>D2</source>
</field>
<field x="38" y="1" type="Numero" align="right" width="4">
<source>I4</source>
</field>
<field x="46" y="1" type="Data" width="10">
<source>D3</source>
</field>
<field x="58" y="1" type="Stringa" width="35">
<source>S1</source>
</field>
<field border="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section type="Foot" level="1" />
<sql>USE REG
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

48
ba/bastreg.uml
View File

@ -1,48 +0,0 @@
#include "ba3200.h"
PAGE "Stampa registri" -1 -1 74 6
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 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
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
FLAGS "D"
END
NUMBER F_INIZIO1 4
BEGIN
PROMPT 2 3 "Stampa i registri dell'anno "
FLAGS "Z"
FIELD FROM
MESSAGE COPY, F_FINE1
CHECKTYPE REQUIRED
GROUP 1
END
NUMBER F_FINE1 4
BEGIN
PROMPT 2 4 ""
FLAGS "HZ"
FIELD TO
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

47
ba/bastscc.rep
View File

@ -1,47 +0,0 @@
<report libraries="bastscc" name="bastscc" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Sconti Clienti">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="10" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="12" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="70" y="3" type="Testo" width="6" text="Sconto">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%SCC.CODTAB" width="3">
<source>CODTAB</source>
</field>
<field x="12" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="70" type="Stringa" width="20">
<source>S1</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %SCC
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

34
ba/bastscc.uml
View File

@ -1,34 +0,0 @@
#include "ba3200.h"
PAGE "Stampa sconti clienti" -1 -1 40 5
STRING F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE %SCC
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 2
BEGIN
PROMPT 20 1 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

41
ba/basttit.rep
View File

@ -1,41 +0,0 @@
<report libraries="basttit" name="basttit" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Titoli Onorifici">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="10" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="12" y="3" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="4.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="%TIT.CODTAB" width="2">
<source>CODTAB</source>
</field>
<field x="12" type="Stringa" width="50">
<source>S0</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %TIT
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

34
ba/basttit.uml
View File

@ -1,34 +0,0 @@
#include "ba3200.h"
PAGE "Stampa Titoli onorifici" -1 -1 40 5
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE %TIT
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 20 1 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

115
ba/bastvet.rep
View File

@ -1,115 +0,0 @@
<report libraries="bastvet" name="bastvet" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Vettori">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
<field x="2" y="3" type="Testo" width="6" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="3" type="Testo" width="11" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="4" type="Testo" width="9" text="Indirizzo">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="45" y="4" type="Testo" width="2" text="N.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="50" y="4" type="Testo" width="6" text="C.A.P.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="58" y="4" type="Testo" width="9" text="Localita'">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="5" type="Testo" width="6" text="Comune">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="47" y="5" type="Testo" width="9" text="Provincia">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="59" y="5" type="Testo" width="5" text="Stato">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="2" y="6" type="Testo" width="8" text="Telefono">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="32" y="6" type="Testo" width="3" text="Fax">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="62" y="6" type="Testo" width="5" text="Telex">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="7.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1" height="5">
<field x="2" type="Stringa" link="%VET.CODTAB" width="6">
<font face="Courier New" bold="1" size="10" />
<source>CODTAB</source>
</field>
<field x="10" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="2" y="1" type="Stringa" width="35">
<source>S1[1,35]</source>
</field>
<field x="37" y="1" type="Stringa" width="10">
<source>S1[36,45]</source>
</field>
<field x="51" y="1" type="Stringa" width="5">
<source>S7</source>
</field>
<field x="58" y="1" type="Stringa" width="35">
<source>S1[46,70]</source>
</field>
<field x="2" y="2" type="Stringa" width="50">
<source>COMUNI.DENCOM</source>
</field>
<field x="54" y="2" type="Stringa" width="2">
<source>COMUNI.PROVCOM</source>
</field>
<field x="59" y="2" type="Stringa" width="25">
<source>200@.S0</source>
</field>
<field x="2" y="3" type="Stringa" width="10">
<source>S5[1,10]</source>
</field>
<field x="12" y="3" type="Stringa" width="20">
<source>S3</source>
</field>
<field x="32" y="3" type="Stringa" width="10">
<source>S5[11,20]</source>
</field>
<field x="42" y="3" type="Stringa" width="20">
<source>S4</source>
</field>
<field x="72" y="3" type="Stringa" width="20">
<source>S2[11,30]</source>
</field>
<field border="1" x="1" y="4.5" type="Linea" width="93" height="0" />
<field x="62" y="3" type="Stringa" width="10">
<source>S2[1,10]</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %VET
JOIN COMUNI INTO COM==S9
JOIN %STA ALIAS 200 INTO CODTAB==S8
FROM CODTAB=#FROM
TO CODTAB=#TO
</sql>
</report>

36
ba/bastvet.uml
View File

@ -1,36 +0,0 @@
#include "ba3200.h"
PAGE "Stampa vettori" -1 -1 45 5
STRING F_INIZIO1 6
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "ZU"
FIELD FROM
USE %VET
INPUT CODTAB F_INIZIO1
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 6
BEGIN
PROMPT 25 1 "A codice "
FLAGS "ZU"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

45
ba/bastzon.rep
View File

@ -1,45 +0,0 @@
<report libraries="bastzon" name="bastzon" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Zone">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="3.5" type="Linea" width="93" height="0" />
<field x="2" y="4" type="Testo" width="10" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="15" y="4" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="5.5" type="Linea" width="93" height="0" />
<field type="Stringa" width="5">
<font italic="1" face="Courier New" bold="1" size="10" />
<source>#SYSTEM.RAGSOC</source>
</field>
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="ZON.CODTAB" width="2">
<source>CODTAB</source>
</field>
<field x="15" type="Stringa" width="50">
<source>S0</source>
</field>
</section>
<section keep_with_next="1" type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
</field>
<field x="90" y="1" type="Numero" align="right" width="3">
<source>#PAGE</source>
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE ZON
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

35
ba/bastzon.uml
View File

@ -1,35 +0,0 @@
#include "ba3200.h"
PAGE "Stampa Zone" -1 -1 40 5
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE ZON
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 20 1 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK

9
ba/batbcam.h
View File

@ -1,9 +0,0 @@
#define FLD_TABCAM_CODVAL 101
#define FLD_TABCAM_B1 102
#define FLD_TABCAM_S0 103
#define FLD_TABCAM_S4 104
#define FLD_TABCAM_S7 105
#define FLD_TABCAM_R10 106
#define FLD_TABCAM_D0 107
#define FLD_TABCAM_I2 108
#define FLD_DATACAM_COPY 109

111
ba/batbcam.uml
View File

@ -1,111 +0,0 @@
#include "batbcam.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Cambi giornalieri" -1 -1 78 12
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 1 "@bValuta"
END
STRING FLD_TABCAM_CODVAL 3
BEGIN
PROMPT 2 3 "Codice "
FLAGS "UZ"
KEY 1
FIELD CODTAB[1,3]
USE %VAL
INPUT CODTAB FLD_TABCAM_CODVAL
DISPLAY "Codice" CODTAB
DISPLAY "Contro EURO" B1
DISPLAY "Valuta@50" S0
OUTPUT FLD_TABCAM_CODVAL CODTAB
OUTPUT FLD_TABCAM_S0 S0
OUTPUT FLD_TABCAM_I2 I2
OUTPUT FLD_TABCAM_B1 B1
CHECKTYPE FORCED
WARNING "Valuta assente"
END
DATE FLD_DATACAM_COPY
BEGIN
PROMPT 9 5 ""
FLAGS "D"
FIELD D0
END
DATE FLD_TABCAM_D0
BEGIN
PROMPT 2 5 "Data "
FIELD CODTAB[4,11]
FLAGS "R"
KEY 1
// USE CAM SELECT CODTAB?(#FLD_TABCAM_CODVAL+"*")
// JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB=CODTAB[1,3]
USE CAM SELECT TRIM(CODTAB[1,3])==#FLD_TABCAM_CODVAL
JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB==(TRIM(CODTAB[1,3]))
INPUT CODTAB[1,3] FLD_TABCAM_CODVAL SELECT // PER INPUT
INPUT CODTAB[4,11] FLD_TABCAM_D0
DISPLAY "Valuta" CODTAB[1,3]
DISPLAY "Data@10" D0
DISPLAY "Descrizione@50" 50@->S0
OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
OUTPUT FLD_TABCAM_D0 D0
OUTPUT FLD_DATACAM_COPY D0
CHECKTYPE REQUIRED
MESSAGE COPY,FLD_DATACAM_COPY
WARNING "Data assente"
END
STRING FLD_TABCAM_S0 50
BEGIN
PROMPT 20 3 ""
USE %VAL KEY 2
INPUT S0 FLD_TABCAM_S0
DISPLAY "Valuta@50" S0
DISPLAY "Codice" CODTAB
DISPLAY "Contro EURO" B1
COPY OUTPUT FLD_TABCAM_CODVAL
CHECKTYPE REQUIRED
KEY 1 // Serve a farlo disabilitare in modifica
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 8 "@bCambio"
END
NUMBER FLD_TABCAM_I2 1
BEGIN
PROMPT 2 10 "Decimali "
FLAGS "D"
END
NUMBER FLD_TABCAM_S4 15 5
BEGIN
PROMPT 20 10 "Cambio "
FIELD S4
PICTURE ".5"
FLAGS "U"
END
NUMBER FLD_TABCAM_R10 15 5
BEGIN
PROMPT 20 30 "Cambio "
FIELD R10
PICTURE ".5"
FLAGS "DU"
END
BOOLEAN FLD_TABCAM_B1
BEGIN
PROMPT 50 10 "Contro EURO"
FLAGS "D"
END
ENDPAGE
ENDMASK

16
ba/batbcco.h
View File

@ -1,16 +0,0 @@
// campi maschera batb%cco.msk
#define F_CODICE 101
#define F_DESCR 102
#define F_GRUPPOA 103
#define F_CONTOA 104
#define F_SOTTOCA 105
#define F_DESCRA 106
#define F_GRUPPOV 107
#define F_CONTOV 108
#define F_SOTTOCV 109
#define F_DESCRV 110

171
ba/batbcco.uml
View File

@ -1,171 +0,0 @@
#include "batbcco.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 2
BEGIN
PROMPT 2 2 "Codice "
HELP "Codice della categoria contabile"
FIELD CODTAB
FLAGS "U"
KEY 1
USE CCO
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
HELP "Descrizione della categoria contabile"
FIELD S0
KEY 2
USE CCO KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 2 8 "Conto di vendita "
FIELD I3
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 26 8 ""
FIELD I4
USE LF_PCON SELECT INDBIL=="4"
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
CHECKTYPE NORMAL
ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END
NUMBER F_SOTTOCV 6
BEGIN
PROMPT 33 8 ""
FIELD I5
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOCV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTOCV SOTTOCONTO
OUTPUT F_DESCRV DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRV 50
BEGIN
PROMPT 21 9 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCV
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 11 "Conto d'acquisto "
FIELD I0
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 26 11 ""
FIELD I1
USE LF_PCON SELECT INDBIL=="3"
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
CHECKTYPE NORMAL
WARNING "Il conto deve essere un costo"
ADD RUN CG0 -0
END
NUMBER F_SOTTOCA 6
BEGIN
PROMPT 33 11 ""
FIELD I2
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
INPUT SOTTOCONTO F_SOTTOCA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
OUTPUT F_SOTTOCA SOTTOCONTO
OUTPUT F_DESCRA DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRA 50
BEGIN
PROMPT 21 12 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCA
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
ENDPAGE
ENDMASK

29
ba/batbcve.h
View File

@ -1,29 +0,0 @@
// campi maschera batbcve.msk
#define F_CODICE 101
#define F_DESCR 102
#define F_PROVV 103
#define F_GRUPPO 104
#define F_CONTO 105
#define F_DESCONTO 106
#define F_GRUPPOV 107
#define F_CONTOV 108
#define F_SOTTOCV 109
#define F_DESCRV 110

167
ba/batbcve.uml
View File

@ -1,167 +0,0 @@
#include "batbcve.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Categorie di vendita " -1 -1 78 8
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 2
BEGIN
PROMPT 2 2 "Codice "
HELP "Codice della categoria di vendita"
FIELD CODTAB
FLAGS "U"
KEY 1
USE CVE
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1
DISPLAY "Conto" I2
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
OUTPUT F_PROVV R0
OUTPUT F_GRUPPO I1
OUTPUT F_CONTO I2
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
HELP "Descrizione della categoria di vendita"
FIELD S0
KEY 2
USE CVE KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB
DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1
DISPLAY "Conto" I2
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
OUTPUT F_PROVV R0
OUTPUT F_GRUPPO I1
OUTPUT F_CONTO I2
CHECKTYPE REQUIRED
END
NUMBER F_PROVV 5 2
BEGIN
PROMPT 2 8 "Provvigione "
HELP "Percentuale di provvigione della categoria"
FIELD R0
END
NUMBER F_GRUPPO 3
BEGIN
PROMPT 2 10 "Conto Cliente "
HELP "Gruppo del piano dei conti della categoria"
FIELD I1
END
NUMBER F_CONTO 3
BEGIN
PROMPT 26 10 ""
HELP "Conto del piano dei conti della categoria"
FIELD I2
USE LF_PCON SELECT TMCF="C"
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_DESCONTO DESCR
ADD RUN CG0 -0
CHECKTYPE NORMAL
END
STRING F_DESCONTO 50
BEGIN
PROMPT 21 11 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT TMCF="C"
INPUT DESCR F_DESCONTO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
COPY OUTPUT F_CONTO
END
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 2 13 "Conto di vendita "
FIELD I3
CHECKTYPE NORMAL
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 26 13 ""
FIELD I4
USE LF_PCON SELECT INDBIL=="4"
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
CHECKTYPE NORMAL
ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END
NUMBER F_SOTTOCV 6
BEGIN
PROMPT 33 13 ""
FIELD I5
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOCV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTOCV SOTTOCONTO
OUTPUT F_DESCRV DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRV 50
BEGIN
PROMPT 21 14 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCV
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
ENDPAGE
ENDMASK

11
ba/batbesc.h
View File

@ -1,11 +0,0 @@
// campi maschera batbesc.msk
#define F_ANNO 131
#define F_DATAINI 132
#define F_DATAFIN 133
#define F_CODDITTA 141
#define F_RAGSOC 142
#define F_DATASCARICO 143
#define F_DATACHIUSURA 144
#define F_DATACHIUSURAMAG 145
#define BUT_CHECK 146

95
ba/batbesc.uml
View File

@ -1,95 +0,0 @@
#include "batbesc.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Esercizi contabili" -1 -1 78 16
NUMBER F_CODDITTA 5
BEGIN
PROMPT 4 1 "Ditta "
HELP "Codice della ditta a cui assegnare l'esercizio"
FLAGS "FRD"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE NORMAL
END
STRING F_RAGSOC 50
BEGIN
PROMPT 4 3 "Ragione sociale "
FLAGS "D"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 4 5 "Codice esercizio "
HELP "Codice d'esercizio da assegnare"
FLAGS "ZR"
FIELD LF_TAB->CODTAB
KEY 1
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Codice esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1
DISPLAY "Data di scarico" D2
DISPLAY "Data chiusura esercizio" D3
OUTPUT F_ANNO CODTAB
CHECKTYPE REQUIRED
END
BUTTON BUT_CHECK 10 1
BEGIN
PROMPT 40 5 "Controllo"
END
DATE F_DATAINI
BEGIN
PROMPT 4 7 "Data inizio esercizio "
HELP "Data di inizio dell'esercizio"
FIELD LF_TAB->D0
CHECKTYPE REQUIRED
WARNING "La data di inizio esercizio e' obbligatoria"
END
DATE F_DATAFIN
BEGIN
PROMPT 4 9 "Data fine esercizio "
HELP "Data di fine dell'esercizio"
FIELD LF_TAB->D1
CHECKTYPE REQUIRED
VALIDATE DATE_CMP_FUNC > F_DATAINI
WARNING "La data fine esercizio deve essere indicata e deve essere maggiore della data di inizio esercizio"
END
DATE F_DATASCARICO
BEGIN
PROMPT 4 11 "Data di scarico "
HELP "Data in cui e' stato effettuato l'ultimo scarico su dischetto"
FIELD LF_TAB->D2
END
DATE F_DATACHIUSURA
BEGIN
PROMPT 4 13 "Data chiusura esercizio "
HELP "Data di chiusura dell'esercizio"
FIELD LF_TAB->D3
VALIDATE DATE_CMP_FUNC >= F_DATAFIN
WARNING "La data chiusura esercizio deve essere maggiore o uguale alla data di fine esercizio"
END
DATE F_DATACHIUSURAMAG
BEGIN
PROMPT 4 15 "Data chiusura magazzino "
FIELD LF_TAB->D4
END
ENDPAGE
ENDMASK

27
ba/batbind.h
View File

@ -1,27 +0,0 @@
// Campi maschera tabella ditte per invio
#define F_DITTAINV 101
#define F_CAUSALI 102
#define F_CLIFO 103
#define F_PCON 104
#define F_MOV 105
#define F_IVA 106
#define F_FATT 107
#define F_NUMULINV 108
#define F_DATAULIN 109
#define F_STATO 110
#define F_RAGSOC 111
#define F_USELAB 112
#define F_CHIAVE 113
#define F_NOMEID 114
#define F_GHOST_FIELD 115
#define F_BOLLATO 116
#define F_CODICE 117
#define F_CAU_FATT 118
#define F_CAU_NC 119
#define F_CAU_INC 120
#define F_CAU_INS 121
#define F_CAU_PAGINS 122
#define F_CPAG_NC 123
#define F_PROVVIS 124

230
ba/batbind.uml
View File

@ -1,230 +0,0 @@
#include "batbind.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella ditte per invio" -1 -1 78 20
NUMBER F_DITTAINV 5
BEGIN
PROMPT 1 1 "Codice ditta inviante "
FIELD %IND->CODTAB
FLAGS "Z"
KEY 1
USE %IND
INPUT CODTAB[1,5] F_DITTAINV
DISPLAY "Codice Ditta" CODTAB
DISPLAY "Numero inv." I0
DISPLAY "Data invio" D0
DISPLAY "Stato" S6
OUTPUT F_DITTAINV CODTAB
OUTPUT F_NUMULINV I0
OUTPUT F_DATAULIN D0
OUTPUT F_STATO S6
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 1 2 "Ragione sociale "
FLAGS "DP"
END
GROUPBOX DLG_NULL 76 8
BEGIN
PROMPT 1 3 "Archivi da inviare"
END
BOOLEAN F_CAUSALI
BEGIN
PROMPT 2 4 "Tabella causali"
FIELD %IND->B0
END
BOOLEAN F_CLIFO
BEGIN
PROMPT 2 5 "Anagrafica Clienti/Fornitori"
FIELD %IND->B1
END
BOOLEAN F_PCON
BEGIN
PROMPT 2 6 "Anagrafica Piano dei Conti"
FIELD %IND->B2
END
BOOLEAN F_MOV
BEGIN
PROMPT 2 7 "Movimenti Prima Nota"
FIELD %IND->B3
END
BOOLEAN F_PROVVIS
BEGIN
PROMPT 29 7 "Includi movimenti provvisori nell'invio a PC"
FIELD %IND->B6
END
BOOLEAN F_IVA
BEGIN
PROMPT 2 8 "Movimenti Iva"
FIELD %IND->B4
END
BOOLEAN F_FATT
BEGIN
PROMPT 2 9 "Scadenze Fattura / Pagamento Rate"
FIELD %IND->B5
MESSAGE TRUE ENABLE,1@
MESSAGE FALSE CLEAR,1@
// FLAGS "D"
END
GROUPBOX DLG_NULL 76 5
BEGIN
PROMPT 1 11 "Causali di corrispondenza movimenti extracontabili"
END
STRING F_CAU_FATT 3
BEGIN
FLAGS "UZ"
PROMPT 2 12 "Fattura "
FIELD S5[1,3]
USE LF_CAUSALI SELECT TIPOMOV==1
INPUT CODCAUS F_CAU_FATT
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_FATT CODCAUS
CHECKTYPE NORMAL
ADD RUN cg0 -4
GROUP 1
END
STRING F_CAU_NC 3
BEGIN
FLAGS "UZ"
PROMPT 2 13 "Nota di credito "
FIELD S5[4,6]
USE LF_CAUSALI SELECT TIPOMOV==2
INPUT CODCAUS F_CAU_NC
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_NC CODCAUS
CHECKTYPE NORMAL
ADD RUN cg0 -4
GROUP 1
END
STRING F_CAU_INC 3
BEGIN
FLAGS "UZ"
PROMPT 2 14 "Incasso/Pagamento "
FIELD S5[7,9]
USE LF_CAUSALI SELECT TIPOMOV==3
INPUT CODCAUS F_CAU_INC
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_INC CODCAUS
CHECKTYPE NORMAL
ADD RUN cg0 -4
GROUP 1
END
STRING F_CAU_INS 3
BEGIN
FLAGS "UZ"
PROMPT 40 12 "Insoluto "
FIELD S5[10,12]
USE LF_CAUSALI SELECT TIPOMOV==5
INPUT CODCAUS F_CAU_INS
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_INS CODCAUS
CHECKTYPE NORMAL
ADD RUN cg0 -4
GROUP 1
END
STRING F_CAU_PAGINS 3
BEGIN
FLAGS "UZ"
PROMPT 40 13 "Pagamento insoluto "
FIELD S5[13,15]
USE LF_CAUSALI SELECT TIPOMOV==6
INPUT CODCAUS F_CAU_PAGINS
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAU_PAGINS CODCAUS
CHECKTYPE NORMAL
ADD RUN cg0 -4
GROUP 1
END
STRING F_CPAG_NC 2
BEGIN
FLAGS "U"
PROMPT 38 16 "Cod. pag. per note di credito "
FIELD S7
USE %CPG SELECT ((CODTAB?="??")||(CODTAB?="?")) && (S4=="1")
INPUT CODTAB F_CPAG_NC
DISPLAY "Cod. pagamento" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CPAG_NC CODTAB
CHECKTYPE NORMAL
ADD RUN ba3 -6
END
BOOLEAN F_BOLLATO
BEGIN
PROMPT 1 16 "Imposta il flag di bollato"
FIELD %IND->B7
END
NUMBER F_NUMULINV 3
BEGIN
PROMPT 1 17 "N.ro ult.invio "
FIELD %IND->I0
FLAGS "RG"
END
DATE F_DATAULIN
BEGIN
PROMPT 38 17 "Data ultimo invio "
FIELD %IND->D0
FLAGS "G"
END
STRING F_STATO 1
BEGIN
PROMPT 1 18 "Stato ultimo "
FIELD %IND->S6
FLAGS "GU"
END
STRING F_USELAB 1
BEGIN
PROMPT 20 18 ""
FLAGS "GU"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 19 "invio "
END
STRING F_CHIAVE 60
BEGIN
PROMPT 16 19 ""
FLAGS "GU"
END
STRING F_GHOST_FIELD 1
BEGIN
PROMPT -1 -30 ""
FLAGS "DG"
END
ENDPAGE
ENDMASK

17
ba/batbinl.h
View File

@ -1,17 +0,0 @@
#define F_ANNOREG 101
#define F_MESE 102
#define F_PINI_LU 103
#define F_PFIN_LU 104
#define F_DITTA 105
#define F_RAGSOC 106
#define F_CODREG 107
#define F_DESCREG 108
#define F_PINI_RU 109
#define F_PFIN_RU 110
#define F_CODVID 111
#define F_STAMPATO 112
#define F_PANN_LU 113
#define F_ANNO 114
#define F_CODLIB 115
#define F_INDEX 116
#define F_DESVID 117

212
ba/batbinl.uml
View File

@ -1,212 +0,0 @@
#include "batbinl.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella Indici Libro Unico" -1 -1 71 20
NUMBER F_ANNO 4
BEGIN
PROMPT 1 1 "Anno "
FLAGS "A"
FIELD ANNO
USE %LBU
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODLIB
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Libro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODLIB CODTAB[5,7]
CHECKTYPE REQUIRED
MESSAGE COPY,F_ANNOREG
KEY 1
END
STRING F_CODLIB 3
BEGIN
PROMPT 28 1 "Libro "
FLAGS "UZ"
FIELD CODLIB
COPY ALL F_ANNO
CHECKTYPE FORCED
KEY 1
END
NUMBER F_INDEX 7
BEGIN
PROMPT 42 1 "Num. registrazione "
FLAGS "U"
FIELD NUMREG
USE LF_INDLIB
// JOIN %LBU INTO CODTAB=ANNO+CODLIB
INPUT ANNO F_ANNO
INPUT CODLIB F_CODLIB
INPUT NUMREG F_INDEX
DISPLAY "Anno" ANNO
DISPLAY "Codice libro" CODLIB
// DISPLAY "Descrizione@50" %LBU->S0
DISPLAY "Indice@7" NUMREG
DISPLAY "Ditta" CODDITTA
DISPLAY "Mese" MESEREG
DISPLAY "Registro" CODREG
OUTPUT F_ANNO ANNO
OUTPUT F_CODLIB CODLIB
OUTPUT F_INDEX NUMREG
CHECKTYPE REQUIRED
KEY 1
END
NUMBER F_ANNOREG 4
BEGIN
PROMPT 1 2 "Anno registrazione "
FIELD ANNOREG
FLAGS "DP"
END
LIST F_MESE 2 10
BEGIN
PROMPT 40 2 "Mese registrazione "
FIELD MESEREG
FLAGS "M"
END
NUMBER F_PINI_LU 5
BEGIN
PROMPT 1 3 "Numero pagina iniziale registro unico "
FIELD PAGINI
FLAGS "UR"
MESSAGE DIRTY,F_PFIN_LU
CHECKTYPE REQUIRED
END
NUMBER F_PFIN_LU 5
BEGIN
PROMPT 1 4 "Numero pagina finale registro unico "
FIELD PAGFIN
FLAGS "UR"
NUM_EXPR (#THIS_FIELD>=#F_PINI_LU)
CHECKTYPE REQUIRED
WARNING "Inserire un numero di pagina superiore a quella iniziale"
END
NUMBER F_DITTA 5
BEGIN
PROMPT 1 6 "Codice ditta "
FIELD CODDITTA
USE LF_NDITTE
INPUT CODDITTA F_DITTA
DISPLAY "Codice ditta" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_DITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE NORMAL
WARNING "E' necessario specificare un codice ditta valido"
END
STRING F_RAGSOC 50
BEGIN
PROMPT 1 7 "Ragione sociale "
USE LF_NDITTE KEY 2
INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice ditta" CODDITTA
COPY OUTPUT F_DITTA
CHECKTYPE NORMAL
END
STRING F_CODREG 3
BEGIN
PROMPT 1 8 "Codice registro "
FIELD CODREG
FLAGS "UZ"
USE REG
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODREG
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_CODREG CODTAB[5,7]
OUTPUT F_DESCREG S0
WARNING "Codice registro assente"
VALIDATE NOT_EMPTY_CHECK_FIELD
CHECKTYPE NORMAL
// MESSAGE EMPTY RESET,F_DESCREG
END
STRING F_DESCREG 50
BEGIN
PROMPT 1 9 "Descrizione "
USE REG KEY 2
INPUT S0 F_DESCREG
DISPLAY "Descrizione@50" S0
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
OUTPUT F_CODREG CODTAB[5,7]
OUTPUT F_DESCREG S0
CHECKTYPE NORMAL
END
NUMBER F_PINI_RU 5
BEGIN
PROMPT 1 11 "Numero iniziale pagina registro utente "
FIELD PAGINIUT
FLAGS "R"
CHECKTYPE REQUIRED
END
NUMBER F_PFIN_RU 5
BEGIN
PROMPT 1 12 "Numero finale pagina registro utente "
FIELD PAGFINUT
FLAGS "R"
CHECKTYPE REQUIRED
END
STRING F_CODVID 3
BEGIN
PROMPT 1 14 "Codice vidimazione "
FIELD CODVID
FLAGS "UZ"
USE %VID
INPUT CODTAB F_CODVID
DISPLAY "Codice" CODTAB
DISPLAY "Intestatario@50" S0
OUTPUT F_CODVID CODTAB
OUTPUT F_DESVID S0
CHECKTYPE NORMAL
END
STRING F_DESVID 50
BEGIN
PROMPT 1 15 "Intestatario "
USE %VID KEY 2
INPUT S0 F_DESVID
DISPLAY "Intestatario@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODVID
CHECKTYPE NORMAL
END
BOOLEAN F_STAMPATO
BEGIN
PROMPT 1 16 "Stampato su bollato "
FIELD STAMPATO
END
BOOLEAN F_PANN_LU
BEGIN
PROMPT 36 16 "Pagine libro unico annullate"
FIELD ANNULLATE
MESSAGE FALSE ENABLE,F_DITTA|ENABLE,F_RAGSOC
// MESSAGE FALSE ENABLE,F_CODREG|ENABLE,F_DESCREG
MESSAGE FALSE REQUIRED,F_PINI_RU|REQUIRED,F_PFIN_RU
MESSAGE TRUE CLEAR,F_DITTA|CLEAR,F_RAGSOC
MESSAGE TRUE CLEAR,F_CODREG|CLEAR,F_DESCREG|"Pagine annullate",F_DESCREG
MESSAGE TRUE NORMAL,F_PINI_RU|NORMAL,F_PFIN_RU
END
ENDPAGE
ENDMASK

76
ba/batbins.uml
View File

@ -1,76 +0,0 @@
#include "batbind.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella studio per invio" -1 -1 78 18
STRING F_CODICE 3
BEGIN
PROMPT 90 90 ""
FIELD %INS->CODTAB
// FLAGS "HG"
CHECKTYPE REQUIRED
KEY 1
END
STRING F_NOMEID 10
BEGIN
PROMPT 2 1 "Nome simbolico studio per trasferimenti "
FIELD %INS->S0
FLAGS "ZU"
CHECKTYPE REQUIRED
KEY 2
END
GROUPBOX DLG_NULL 76 7
BEGIN
PROMPT 1 3 "Eventuale ultimo invio non completato"
END
NUMBER F_DITTAINV 5
BEGIN
PROMPT 2 4 "ditta inviante "
FLAGS "G"
FIELD %INS->I0
END
STRING F_RAGSOC 50
BEGIN
PROMPT 25 4 ""
FLAGS "D"
END
NUMBER F_NUMULINV 3
BEGIN
PROMPT 2 6 "Numero invio "
FLAGS "R"
END
DATE F_DATAULIN
BEGIN
PROMPT 45 6 "Data ultimo invio "
END
STRING F_STATO 1
BEGIN
PROMPT 2 7 "Stato invio "
FLAGS "U"
END
STRING F_USELAB 1
BEGIN
PROMPT 18 7 ""
FLAGS "U"
END
STRING F_CHIAVE 60
BEGIN
PROMPT 15 8 ""
FLAGS "U"
END
ENDPAGE
ENDMASK

21
ba/batbleg.h
View File

@ -1,21 +0,0 @@
// campi maschera batb%leg.msk
#define F_CODICE 101
#define F_DESCR 102

48
ba/batbleg.uml
View File

@ -1,48 +0,0 @@
#include "batbleg.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella Codici Legali" -1 -1 78 8
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice di riconoscimento codici legali"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %LEG
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione del codice legale"
FIELD LF_TABCOM->S0
KEY 2
USE %LEG KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK

21
ba/batbmsp.h
View File

@ -1,21 +0,0 @@
// campi maschera batb%msp.msk
#define F_CODICE 101
#define F_DESCR 102

48
ba/batbmsp.uml
View File

@ -1,48 +0,0 @@
#include "batbmsp.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Modalita' di Spedizione" -1 -1 78 8
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice della modalit… di spedizione"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %MSP
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione della modalit… di spedizione"
FIELD LF_TABCOM->S0
KEY 2
USE %MSP KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK

21
ba/batbndo.h
View File

@ -1,21 +0,0 @@
// campi maschera batb%ndo.msk
#define F_CODICE 101
#define F_DESCR 102

48
ba/batbndo.uml
View File

@ -1,48 +0,0 @@
#include "batbndo.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella Note Documento" -1 -1 78 8
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice note documento"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %NDO
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione nota documento"
FIELD LF_TABCOM->S0
KEY 2
USE %NDO KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK

20
ba/batbnot.h
View File

@ -1,20 +0,0 @@
// campi maschera batb%not.msk
#define F_NOT_COD 101
#define F_NOT_DESC 102
#define F_NOT_BLOCCA 103

46
ba/batbnot.uml
View File

@ -1,46 +0,0 @@
#include "batbnot.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella Note cliente" -1 -1 78 8
GROUPBOX DLG_NULL 75 3
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_NOT_COD 2
BEGIN
PROMPT 3 1 "Codice "
HELP "Codice note del cliente"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %NOT
INPUT CODTAB F_NOT_COD
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Blocca immissione" B0
OUTPUT F_NOT_COD CODTAB
CHECKTYPE REQUIRED
END
BOOLEAN F_NOT_BLOCCA
BEGIN
PROMPT 3 3 "Blocca immissione"
HELP "Indicare se bloccare l'inserimento del documento"
FIELD B0
END
MEMO F_NOT_DESC 75 -2
BEGIN
PROMPT 1 5 "Descrizione"
HELP "Descrizione della nota del cliente"
CHECKTYPE SEARCH
END
ENDPAGE
ENDMASK

22
ba/batbpor.h
View File

@ -1,22 +0,0 @@
// campi maschera batb%por.msk
#define F_CODICE 101
#define F_DESCR 102
#define F_CONSEGNA 103
#define F_TRASPORTO 104

74
ba/batbpor.uml
View File

@ -1,74 +0,0 @@
#include "batbpor.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Modalità di consegna" -1 -1 78 8
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice della modalita' di consegna"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %POR
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione della modalita' di consegna"
FIELD LF_TABCOM->S0
KEY 2
USE %POR KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
NUMBER F_TRASPORTO 1
BEGIN
PROMPT 4 7 "Modo di trasporto "
USE %IMT
INPUT CODTAB F_TRASPORTO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TRASPORTO CODTAB
CHECKTYPE NORMAL
FIELD I0
END
STRING F_CONSEGNA 3
BEGIN
PROMPT 4 9 "Condizioni consegna "
USE %ICC
FLAGS "U"
INPUT CODTAB F_CONSEGNA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CONSEGNA CODTAB
CHECKTYPE NORMAL
FIELD S3
END
ENDPAGE
ENDMASK

83
ba/batbreg.h
View File

@ -1,83 +0,0 @@
// campi maschera batbreg.msk
#define F_CODICE 131
#define F_ANNO 132
#define F_DESCR 133
#define F_CODLIB 134
#define F_TIPO 135
#define F_CONSPRESSO 136
#define F_PAGSTAMP 137
#define F_PAGNUM 138
#define F_DATAVID 139
#define F_DATASCAD 140
#define F_REGSOSP 141
#define F_CODDITTA 142
#define F_ATTIVITA 143
#define F_CORRISP 144
#define F_STAMPA_SULLO_STESSO_REGISTRO 145
#define F_ULTIMO_NUM_RIGA_STAMPATO 146
#define F_PROG_DARE 147
#define F_PROG_AVERE 148
#define F_STAMPA_RIEPIL_SUL_REGISTRO 149
#define F_STAMPA_LIQUIDAZIONE 150
#define F_ULTIMO_NUM_PROT 151
#define F_MESE_STAMPA_ULTIMA_LIQ 152
#define F_ULTIMA_DATA_DI_REGISTR 153
#define F_VENTIL 154
#define F_STAMPA_CREDITO_ANNO_PREC 155
#define F_STAMPA_INDIRIZZI_COMPLETI 156
#define F_STAMPA_INTESTAZIONE 157
#define F_FREQUENZA_STAMPA 158
#define F_STAMPA_COSTI_RICAVI 159
#define F_TIPO_DESC_COSTI_RICAVI 160
#define F_TOT_INCASSI 161
#define F_TOT_PAGAMENTI 162
#define F_CODULC 163
#define F_CODLBU 164
#define F_RAGSOC 165
#define F_REGSOSPEXT 166
#define F_STAMPA_PLAFONDS 167
#define F_STAMPA_NUMERI 168
#define F_ULTIMA_DATA_DI_STAMPA 170
#define F_PROGINV 171
#define F_TOTINV 172
#define F_PRINTER 201
#define F_CONFIG 202
#define F_FREQSTA 203
#define F_STARAGG 204
#define F_STARAGGMAG 205
#define F_STACLAFIS 206
#define F_STAFISART 207
#define F_STAFISCAU 208
#define F_PAGULTCORR 215
#define F_ULTCORR 216
#define F_PAGULTPREC 217
#define F_ULTPREC 218
#define GRP_VENDITE 2
#define GRP_ACQUISTI 3
#define GRP_RIEPIVA 4
#define GRP_INCASSI 5
#define GRP_GIORNALE 6
#define GRP_LSOCIALI 7
#define GRP_CESPITI 8
#define GRP_INVENTARI 9
#define GRP_GIORNMAG 10
#define GRP_SOLOGIORNMAG 11
#define GRP_NOGIORNMAG 12
#define GRP_SOLOGIORNALE 13
#define GRP_NOGIORNALE 14
#define GRP_INTENTI 15
#define GRP_NOINTENTI 16

586
ba/batbreg.uml
View File

@ -1,586 +0,0 @@
#include "ba3100.h"
#include "batbreg.h"
//
// I campi della tabella usate in più registri con significati diversi
// sono gestiti con messaggi a gruppi (GRP_NOxx e GRP_SOLOxxx ...)
// che azzerano i campi duplicati, impedendono il salvataggio su archivio
//
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Registri" -1 -1 78 18
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "FRDG"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
OUTPUT F_ATTIVITA CODATTPREV
CHECKTYPE NORMAL
MESSAGE COPY,18@
MESSAGE FALSE COPY,18@
END
STRING F_RAGSOC 50
BEGIN
PROMPT 20 1 ""
FLAGS "DG"
MESSAGE COPY,19@
MESSAGE FALSE COPY,19@
END
NUMBER F_ANNO 4
BEGIN
PROMPT 1 2 "Anno "
HELP "Anno a cui fa riferimento il registro"
FIELD CODTAB[1,4]
FLAGS "GAZ"
KEY 1
GROUP 1
USE REG
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODICE
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione @50" S0
DISPLAY "Tipo" I0
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODICE CODTAB[5,7]
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
MESSAGE COPY,20@
MESSAGE FALSE COPY,20@
END
STRING F_CODICE 3
BEGIN
PROMPT 49 2 "Codice registro "
Help "Codice del registro"
FIELD CODTAB[5,7]
USE REG
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODICE
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione @50" S0
DISPLAY "Tipo" I0
OUTPUT F_CODICE CODTAB[5,7]
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_DESCR S0
FLAGS "GUZ"
KEY 1
GROUP 1
CHECKTYPE REQUIRED
MESSAGE COPY,21@
END
STRING F_DESCR 50
BEGIN
PROMPT 1 3 "Descrizione "
FIELD S0
KEY 2
GROUP 1
USE REG KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione @50" S0
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Tipo" I0
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
MESSAGE COPY,22@
HELP "Descrizione del registro"
WARNING "La descrizione e' obbligatoria"
END
NUMBER F_CODLIB 2
BEGIN
PROMPT 1 5 "Codice libro "
FIELD S7
FLAGS "Z"
GROUP 1
USE %ITL
INPUT CODTAB F_CODLIB
DISPLAY "Codice libro" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_CODLIB CODTAB
OUTPUT F_DESCR S0
CHECKTYPE NORMAL
HELP "Codice del libro sociale a cui fa riferimento il registro"
END
LIST F_TIPO 1 28
BEGIN
PROMPT 30 5 "Tipo "
HELP "Tipo di registro"
FIELD I0
FLAGS "G"
GROUP 1 GR_MODIFY_PROTECTED
ITEM "1|1) Vendite"
MESSAGE HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_VENDITE@
MESSAGE "",GRP_SOLOGIORNMAG@
ITEM "2|2) Acquisti"
MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_ACQUISTI@
MESSAGE "",GRP_SOLOGIORNMAG@
ITEM "3|3) Libro IVA riepilogativo"
MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_RIEPIVA@
MESSAGE "",GRP_SOLOGIORNMAG@
// ITEM "4|4) Libro Incassi e pagamenti"
// MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_INCASSI@
ITEM "5|5) Libro Giornale"
MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_GIORNALE@
MESSAGE "",GRP_SOLOGIORNMAG@|"",F_ATTIVITA
ITEM "6|6) Libri Sociali"
MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_LSOCIALI@
MESSAGE "",GRP_SOLOGIORNMAG@|"",F_ATTIVITA
ITEM "7|7) Libro Cespiti"
MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_CESPITI@|"",F_ATTIVITA
// ITEM "8|8) Libro Inventari"
// MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_INVENTARI@|"",F_ATTIVITA
ITEM "9|9) Giornale di magazzino"
MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|SHOW,GRP_GIORNMAG@
MESSAGE "",GRP_NOGIORNMAG@|"",F_ATTIVITA
ITEM "10|10) Dichiarazione d'intenti"
MESSAGE HIDE,GRP_NOINTENTI@|SHOW,GRP_INTENTI@
END
STRING F_CONSPRESSO 50
BEGIN
PROMPT 1 7 "Conservato presso "
HELP "Luogo dove verra' conservato il registro"
FIELD S1
GROUP 1
END
STRING F_ATTIVITA 5
BEGIN
PROMPT 1 8 "Codice attivita' "
FIELD S8
FLAGS "URZ"
GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA GRP_NOINTENTI
USE LF_ATTIV
INPUT CODDITTA F_CODDITTA SELECT
INPUT CODATT F_ATTIVITA
DISPLAY "Codice" CODATT
DISPLAY "Descrizione@50" DESCR
OUTPUT F_ATTIVITA CODATT
HELP "Codice dell'attivita' della ditta"
CHECKTYPE REQUIRED
WARNING "Attivita' non prevista per questa ditta"
ADD RUN ba4 -4
END
NUMBER F_CODULC 3
BEGIN
PROMPT 35 8 "Unita' locale "
FLAGS "R"
GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA GRP_INCASSI GRP_GIORNALE GRP_LSOCIALI GRP_GIORNMAG GRP_NOINTENTI
FIELD I7
USE LF_UNLOC
JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC
INPUT CODDITTA F_CODDITTA SELECT
INPUT CODULC F_CODULC
DISPLAY "Codice" CODDITTA
DISPLAY "Un.Loc" CODULC
DISPLAY "Localita'@50" LF_COMUNI->DENCOM
DISPLAY "Indirizzo@35" INDULC
DISPLAY "N.ro civico@35" CIVULC
OUTPUT F_CODULC CODULC
HELP "Codice dell'unita' locale della ditta"
WARNING "Unita' locale non prevista per questa ditta"
CHECKTYPE NORMAL
ADD RUN ba4 -3
END
NUMBER F_PAGSTAMP 5
BEGIN
PROMPT 1 10 "Pagine stampate "
HELP "Numero di pagine gia' stampate"
FIELD I1
GROUP 1
END
NUMBER F_PAGNUM 5
BEGIN
PROMPT 30 10 "Pagine numerate "
HELP "numero di pagine di cui e' stata stampata la numerazione"
FIELD I2
GROUP 1
END
DATE F_ULTIMA_DATA_DI_STAMPA
BEGIN
PROMPT 1 11 "Ultima data di stampa "
HELP "Data dell'ultima stampa effettuata"
FIELD D3
GROUP 1
END
BOOLEAN F_STAMPA_NUMERI
BEGIN
PROMPT 1 13 "Stampa numeri di pagina durante la stampa del registro"
FIELD S11
GROUP 1
END
DATE F_DATAVID
BEGIN
PROMPT 1 14 "Data vidimazione "
HELP "Data di vidimazione del registro"
FIELD D0
GROUP 1
END
DATE F_DATASCAD
BEGIN
PROMPT 35 14 "Data scadenza "
HELP "Data fino a cui rimane in vigore il registro"
FIELD D1
GROUP 1
END
NUMBER F_PROGINV 4
BEGIN
PROMPT 1 15 "Progressivo invio "
FIELD I3
GROUP GRP_INTENTI
END
NUMBER F_TOTINV 4
BEGIN
PROMPT 30 15 "Totale invii "
FIELD I4
GROUP GRP_INTENTI
END
STRING F_CODLBU 3
BEGIN
PROMPT 1 16 "Cod. libro unico "
FIELD S6
HELP "Codice del libro unico a cui fa riferimento"
FLAGS "UZ"
GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA GRP_NOINTENTI
USE %LBU
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODLBU
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODLBU CODTAB[5,7]
WARNING "Libro unico assente"
CHECKTYPE NORMAL
VALIDATE NOT_EMPTY_CHECK_FIELD
END
BOOLEAN F_CONFIG
BEGIN
PROMPT 1 18 "Stampante configurata"
GROUP GRP_NOINTENTI
END
BUTTON F_PRINTER 30 2
BEGIN
PROMPT 40 18 "Configurazione ~stampante"
GROUP GRP_NOINTENTI
END
ENDPAGE
PAGE "Opzioni" -1 -1 78 18
NUMBER DLG_NULL 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "DR"
GROUP 18
END
STRING DLG_NULL 50
BEGIN
PROMPT 20 1 ""
FLAGS "D"
GROUP 19
END
NUMBER DLG_NULL 4
BEGIN
PROMPT 1 2 "Anno "
FLAGS "DP"
GROUP 20
END
STRING DLG_NULL 3
BEGIN
PROMPT 49 2 "Codice registro "
FLAGS "D"
GROUP 21
END
STRING DLG_NULL 50
BEGIN
PROMPT 1 3 "Descrizione "
GROUP 22
FLAGS "D"
END
BOOLEAN F_REGSOSP
BEGIN
PROMPT 1 5 "Registro in sospensione "
FIELD B1
GROUP GRP_VENDITE GRP_ACQUISTI GRP_NOGIORNMAG
HELP "Indicare se il registro e' in sospensione d'imposta"
MESSAGE TRUE ENABLE,F_REGSOSPEXT
MESSAGE FALSE CLEAR,F_REGSOSPEXT
END
LIST F_REGSOSPEXT 15
BEGIN
PROMPT 29 5 ""
GROUP GRP_VENDITE GRP_ACQUISTI GRP_NOGIORNMAG
FLAGS "D"
FIELD I9
ITEM "1|Normale"
ITEM "2|Volume d'affari"
ITEM "3|Liquidazione"
END
BOOLEAN F_STAMPA_CREDITO_ANNO_PREC
BEGIN
PROMPT 48 5 "Stampa credito anno precedente"
HELP "Indicare se si vuole la stampa del credito IVA dell'anno precedente"
FIELD B4
GROUP GRP_ACQUISTI GRP_NOGIORNMAG
END
BOOLEAN F_CORRISP
BEGIN
PROMPT 48 5 "Registro corrispettivi"
HELP "Indicare se si tratta di registro dei corrispettivi"
FIELD B0
GROUP GRP_VENDITE
END
LIST F_TIPO_DESC_COSTI_RICAVI 1 10
BEGIN
PROMPT 1 5 "Tipo descrizione costi/ricavi "
HELP "Livello a cui stampare la descrizione costi/ricavi"
FIELD I3
GROUP GRP_INCASSI GRP_NOGIORNMAG GRP_NOINTENTI
ITEM "1|Gruppo"
ITEM "2|Conto"
END
NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7
BEGIN
PROMPT 1 5 "Ultima riga stampata "
FIELD I6
HELP "Ultimo numero della riga stampata"
FLAGS "R"
GROUP GRP_INCASSI GRP_GIORNALE GRP_NOGIORNMAG
END
BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI
BEGIN
PROMPT 1 7 "Stampa indirizzi completi"
HELP "Indicare se stampare gli indirizzi completi"
FIELD B5
GROUP GRP_VENDITE GRP_ACQUISTI GRP_NOGIORNMAG
END
LIST F_FREQUENZA_STAMPA 1 16
BEGIN
PROMPT 1 7 "Stampa reg. riepilogativo "
HELP "Intervallo per fare il riepilogo"
FIELD S9
GROUP GRP_RIEPIVA
ITEM "M|Mensile"
ITEM "T|Trimestrale"
END
CURRENCY F_PROG_DARE 18
BEGIN
PROMPT 1 7 "Progressivo dare "
HELP "Progressivo dare del giornale"
FIELD R1
GROUP GRP_GIORNALE GRP_SOLOGIORNALE
END
CURRENCY F_TOT_INCASSI 18
BEGIN
PROMPT 1 7 "Totale incassi "
HELP "Progressivo degli incassi effettuati"
FIELD R0
GROUP GRP_INCASSI
END
BOOLEAN F_STAMPA_RIEPIL_SUL_REGISTRO
BEGIN
PROMPT 48 7 "Stampa riepilogo liquidazione"
FIELD B6
GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA
HELP "Indicare se stampare il riepilogo IVA delle aliquote utilizzate"
MESSAGE FALSE ENABLE,F_STAMPA_LIQUIDAZIONE
MESSAGE TRUE DISABLE,F_STAMPA_LIQUIDAZIONE|"X",F_STAMPA_LIQUIDAZIONE
END
CURRENCY F_TOT_PAGAMENTI 18
BEGIN
PROMPT 42 7 "Totale pagamenti "
HELP "Progressivo dei pagamenti effettuati"
FIELD R1
GROUP GRP_INCASSI GRP_NOGIORNALE
END
BOOLEAN F_STAMPA_LIQUIDAZIONE
BEGIN
PROMPT 1 9 "Stampa liquidazione"
FIELD B7
GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA
HELP "Indicare se stampare a fine periodo la liquidazione"
END
BOOLEAN F_STAMPA_PLAFONDS
BEGIN
PROMPT 48 9 "Stampa plafonds "
FIELD S10
GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA
END
CURRENCY F_PROG_AVERE 18
BEGIN
PROMPT 1 9 "Progressivo avere "
HELP "Progressivo avere del giornale"
FIELD R2
PICTURE "."
GROUP GRP_GIORNALE GRP_SOLOGIORNALE
END
BOOLEAN F_STAMPA_COSTI_RICAVI
BEGIN
PROMPT 42 9 "Stampa costi/ricavi su libro cronologico "
FIELD B2
GROUP GRP_INCASSI GRP_NOGIORNMAG
END
LIST F_MESE_STAMPA_ULTIMA_LIQ 10
BEGIN
PROMPT 1 11 "Mese stampa ultima liquidazione "
HELP "Mese in cui e' stata stampata l'ultima liquidazione"
FIELD I4
FLAGS "M"
ITEM "00|Nessuno"
ITEM "13|Annuale"
GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA GRP_NOINTENTI
END
BOOLEAN F_VENTIL
BEGIN
PROMPT 48 11 "Attivita' con ventilazione"
HELP "Indicare se vengono registrate operazioni con ventilazione IVA"
FIELD B3
GROUP GRP_ACQUISTI GRP_NOGIORNMAG
END
BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
BEGIN
PROMPT 1 11 "Stampa sullo stesso registro"
HELP "Indicare se il nuovo esercizio viene stampato sullo stesso registro"
FIELD B8
GROUP GRP_GIORNALE
END
NUMBER F_ULTIMO_NUM_PROT 7
BEGIN
PROMPT 1 13 "Ultimo numero di protocollo "
FIELD I5
FLAGS "R"
GROUP GRP_VENDITE GRP_ACQUISTI
HELP "Ultimo numero di protocollo"
END
DATE F_ULTIMA_DATA_DI_REGISTR
BEGIN
PROMPT 1 15 "Ultima data di registrazione "
HELP "Date dell'ultima registrazione stampata"
FIELD D2
GROUP GRP_VENDITE GRP_ACQUISTI GRP_INCASSI GRP_GIORNALE
END
BOOLEAN F_STAMPA_INTESTAZIONE
BEGIN
PROMPT 1 17 "Stampa intestazione ditta"
HELP "Indicare se stampare l'intestazione della ditta"
FIELD B9
GROUP 1
END
NUMBER F_FREQSTA 2
BEGIN
FLAGS "U"
PROMPT 2 6 "Frequenza di stampa "
FIELD I3
NUM_EXPR #F_FREQ<=31
WARNING "La frequenza di stampa può arrivare fino a 31 giorni"
GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG GRP_NOINTENTI
END
BOOLEAN F_STARAGG
BEGIN
PROMPT 2 7 "Stampa giornale raggruppato"
FIELD B1
GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG
END
BOOLEAN F_STARAGGMAG
BEGIN
PROMPT 2 8 "Raggruppo i magazzini"
FIELD B2
GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG
END
BOOLEAN F_STACLAFIS
BEGIN
PROMPT 2 9 "Raggruppo per classe fiscale articoli "
FIELD B3
GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG
END
BOOLEAN F_STAFISART
BEGIN
PROMPT 2 10 "Raggruppo per gruppo fiscale articoli "
FIELD B4
GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG
END
BOOLEAN F_STAFISCAU
BEGIN
PROMPT 2 11 "Raggruppo per gruppo causali "
FIELD B5
GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG
END
NUMBER F_PAGULTPREC 3
BEGIN
PROMPT 2 12 "Pagina e ultima stampa esercizio precedente "
FIELD I6
GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG
END
DATE F_ULTPREC
BEGIN
PROMPT 2 13 "Data ultima stampa esercizio precedente "
FIELD D4
GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG
END
ENDPAGE
ENDMASK

22
ba/batbscc.h
View File

@ -1,22 +0,0 @@
// campi maschera batb%sco.msk
#define F_CODICE 101
#define F_DESCR 102
#define F_PERC 103

52
ba/batbscc.uml
View File

@ -1,52 +0,0 @@
#include "batbscc.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella Sconti clienti" -1 -1 78 8
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice sconto cliente"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %SCC
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione sconto incondizionato"
FIELD S0
KEY 2
USE %SCC KEY 2
INPUT CODTAB F_DESCR
DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED
END
STRING F_PERC 20
BEGIN
PROMPT 4 8 "Percentuale "
HELP "Percentuale sconto incondizionato"
FIELD S1
END
ENDPAGE
ENDMASK

21
ba/batbtit.h
View File

@ -1,21 +0,0 @@
// campi maschera batb%tit.msk
#define F_CODICE 101
#define F_DESCR 102

42
ba/batbtit.uml
View File

@ -1,42 +0,0 @@
#include "batbtit.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella Titoli Onorifici" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice titolo onorifico"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %TIT
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione titolo onorifico"
FIELD LF_TABCOM->S0
KEY 2
USE %TIT KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK

14
ba/batbtra.h
View File

@ -1,14 +0,0 @@
// Campi maschera tabella di trasferimento per ditta
#define F_NOMEID 101
#define F_CODDITTAINV 102
#define F_CODDITTARIC 103
#define F_AGGCAUSALI 104
#define F_AGGCLIFO 105
#define F_AGGPCON 106
#define F_AGGIVD 107
#define F_FATTEM 108
#define F_FATTRIC 109
#define F_NUMULTRAS 110
#define F_DATAULTRAS 111
#define F_RAGSOC 112

123
ba/batbtra.uml
View File

@ -1,123 +0,0 @@
#include "batbtra.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella ditte per trasferimento" -1 -1 78 18
STRING F_NOMEID 10
BEGIN
PROMPT 1 1 "Nome simbolico sistema inviante "
FIELD %TRA->CODTAB[1,10]
FLAGS "UZ"
KEY 1
USE %TRA
INPUT CODTAB[1,10] F_NOMEID
INPUT CODTAB[11,15] F_CODDITTAINV
DISPLAY "Nome ident." CODTAB[1,10]
DISPLAY "Ditta inv." CODTAB[11,15]
DISPLAY "Ditta ric." I0
DISPLAY "N.Invio" I1
DISPLAY "Data invio" D0
OUTPUT F_NOMEID CODTAB[1,10]
OUTPUT F_CODDITTAINV CODTAB[11,15]
CHECKTYPE REQUIRED
END
NUMBER F_CODDITTAINV 5
BEGIN
PROMPT 1 2 "Codice ditta inviante "
FIELD %TRA->CODTAB[11,15]
FLAGS "Z"
KEY 1
COPY USE F_NOMEID
INPUT CODTAB[1,10] F_NOMEID
INPUT CODTAB[11,15] F_CODDITTAINV
COPY DISPLAY F_NOMEID
COPY OUTPUT F_NOMEID
CHECKTYPE REQUIRED
END
NUMBER F_CODDITTARIC 5
BEGIN
PROMPT 1 4 "Ditta ricevente "
FIELD %TRA->I0
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTARIC
DISPLAY "Ditta" CODDITTA
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODDITTARIC CODDITTA
OUTPUT F_RAGSOC RAGSOC
FLAGS "RZ"
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 26 4 ""
FLAGS "D"
END
LIST F_AGGCAUSALI 7
BEGIN
PROMPT 1 6 "Aggiornamento causali gia' presenti "
FIELD %TRA->S0
ITEMS "N|No"
ITEMS "D|Descr."
ITEMS "T|Tutto"
END
LIST F_AGGCLIFO 7
BEGIN
PROMPT 1 7 "Aggiornamento Clienti/Fornitori gia' presenti "
FIELD %TRA->S1
ITEMS "N|No"
ITEMS "D|Descr."
ITEMS "T|Tutto"
END
LIST F_AGGPCON 7
BEGIN
PROMPT 1 8 "Aggiornamento voci Piano dei Conti gia' presenti "
FIELD %TRA->S2
ITEMS "N|No"
ITEMS "D|Descr."
ITEMS "T|Tutto"
END
LIST F_AGGIVD 7
BEGIN
PROMPT 1 9 "Aggiornamento classi Piano dei Conti "
FIELD %TRA->S3
ITEMS "N|No"
ITEMS "T|Tutto"
END
BOOLEAN F_FATTEM
BEGIN
PROMPT 1 10 "Riattribuzione num. protocollo su fatture emesse "
FIELD %TRA->B0
END
BOOLEAN F_FATTRIC
BEGIN
PROMPT 1 11 "Riattribuzione num. protocollo su fatture ricevute "
FIELD %TRA->B1
END
NUMBER F_NUMULTRAS 3
BEGIN
PROMPT 1 13 "Numero ultimo invio ricevuto "
FIELD %TRA->I1
END
DATE F_DATAULTRAS
BEGIN
PROMPT 39 13 "Data ultimo invio ricevuto "
FIELD %TRA->D0
END
ENPAGE
ENDMASK

34
ba/batbvet.h
View File

@ -1,34 +0,0 @@
// campi maschera batb%vet.msk
#define F_CODVETT 101
#define F_RAGSO 102
#define F_IND 103
#define F_TEL 104
#define F_PTEL 105
#define F_FAX 106
#define F_TELEX 107
#define F_CAP 108
#define F_LOCALITA 109
#define F_PROV 110
#define F_CODNAZ 111
#define F_DENNAZ 112
#define F_CODCOM 113
#define F_DENCOM 114
#define F_NUM 115
#define F_PFAX 116
#define F_PTELEX 117

204
ba/batbvet.uml
View File

@ -1,204 +0,0 @@
#include "batbvet.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Vettori" -1 -1 78 15
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODVETT 6
BEGIN
PROMPT 2 2 "Codice vettore "
FIELD CODTAB
HELP "Codice del vettore"
FLAGS "ZU"
USE %VET
CHECKTYPE REQUIRED
INPUT CODTAB F_CODVETT
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
OUTPUT F_CODVETT CODTAB
OUTPUT F_RAGSO S0
KEY 1
END
STRING F_RAGSO 50
BEGIN
PROMPT 2 4 "Ragione sociale "
HELP "Ragione sociale del vettore"
FIELD S0
USE %VET KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_RAGSO
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
OUTPUT F_CODVETT CODTAB
OUTPUT F_RAGSO S0
KEY 2
END
GROUPBOX DLG_NULL 75 6
BEGIN
PROMPT 1 7 "Recapito"
FLAGS "R"
END
STRING F_IND 35
BEGIN
PROMPT 2 8 "Indirizzo"
HELP "Indirizzo di residenza del vettore"
FIELD S1[1,35]
END
STRING F_NUM 10
BEGIN
PROMPT 58 8 "N."
HELP "Numero civico del vettore"
FIELD S1[36,45]
END
STRING F_LOCALITA 35
BEGIN
PROMPT 2 9 "Localita'"
HELP "Localita' di residenza del vettore"
FIELD S1[46,70]
END
STRING F_CAP 5
BEGIN
PROMPT 50 9 "C.A.P."
HELP "C.A.P. di residenza del vettore"
FIELD S7
END
STRING F_PROV 2
BEGIN
PROMPT 65 9 "Pr."
FLAGS "D"
HELP "Provincia di residenza del vettore"
END
STRING F_CODCOM 4
BEGIN
PROMPT 2 10 "Comune "
HELP "Codice comune di residenza del vettore"
FIELD S9
USE LF_COMUNI
INPUT STATO F_CODNAZ
INPUT COM F_CODCOM
DISPLAY "Stato" STATO
DISPLAY "Cod. comune" COM
DISPLAY "Den. comune@50" DENCOM
OUTPUT F_CODNAZ STATO
OUTPUT F_CODCOM COM
OUTPUT F_DENCOM DENCOM
OUTPUT F_CAP CAPCOM
OUTPUT F_PROV PROVCOM
MESSAGE K_TAB,F_CODNAZ
CHECKTYPE NORMAL
WARNING "Comune assente"
END
STRING F_DENCOM 50
BEGIN
PROMPT 20 10 ""
USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOM
DISPLAY "Comune@50" DENCOM
DISPLAY "Stato" STATO
DISPLAY "Codice" COM
COPY OUTPUT F_CODCOM
HELP "Nome del comune del vettore"
END
NUMBER F_CODNAZ 3
BEGIN
PROMPT 2 11 "Stato "
HELP "Codice nazione di residenza del vettore"
FIELD S8
FLAGS "RZ"
USE %STA
INPUT CODTAB F_CODNAZ
DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT F_CODNAZ CODTAB
OUTPUT F_DENNAZ S0
CHECKTYPE NORMAL
WARNING "Stato assente"
END
STRING F_DENNAZ 50
BEGIN
PROMPT 20 11 ""
USE %STA KEY 2
INPUT S0 F_DENNAZ
DISPLAY "Stato@50" S0
DISPLAY "Codice" CODTAB
HELP "Nome dello stato del vettore"
COPY OUTPUT F_CODNAZ
END
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 1 13 "Numeri telefonici"
FLAGS "R"
END
STRING F_PTEL 10
BEGIN
PROMPT 2 14 "Telefono "
HELP "Prefisso telefonico del vettore"
FIELD S5[1,10]
FLAGS "U"
END
STRING F_TEL 20
BEGIN
PROMPT 30 14 ""
HELP "Numero telefonico del vettore"
FIELD S3
FLAGS "U"
END
STRING F_PFAX 10
BEGIN
PROMPT 2 15 "Fax "
HELP "Numero di Fax del vettore"
FIELD S5[11,20]
FLAGS "U"
END
STRING F_FAX 20
BEGIN
PROMPT 30 15 ""
HELP "Numero di Fax del vettore"
FIELD S4
FLAGS "U"
END
STRING F_PTELEX 10
BEGIN
PROMPT 2 16 "Telex "
HELP "Numero di Telex del vettore"
FIELD S2[1,10]
FLAGS "U"
END
STRING F_TELEX 20
BEGIN
PROMPT 30 16 ""
HELP "Numero di Telex del vettore"
FIELD S2[11,30]
FLAGS "U"
END
ENDPAGE
ENDMASK

9
ba/batbzon.h
View File

@ -1,9 +0,0 @@
// campi maschera batb%zon.msk
#define F_CODICE 101
#define F_DESCR 102

48
ba/batbzon.uml
View File

@ -1,48 +0,0 @@
#include "batbzon.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella Codici Zona" -1 -1 78 8
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 2
BEGIN
PROMPT 2 2 "Codice "
HELP "Codice della zona"
FIELD CODTAB
FLAGS "U"
KEY 1
USE ZON
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
HELP "Descrizione della zona"
FIELD S0
KEY 2
USE ZON KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK