This commit was manufactured by cvs2svn to create branch 'R_10_00'.
git-svn-id: svn://10.65.10.50/branches/R_10_00@20682 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
(no author)
parent
a567acac6d
commit
dad4af5ae7
@ -1,17 +0,0 @@
|
||||
# The "checkoutlist" file is used to support additional version controlled
|
||||
# administrative files in $CVSROOT/CVSROOT, such as template files.
|
||||
#
|
||||
# The first entry on a line is a filename which will be checked out from
|
||||
# the corresponding RCS file in the $CVSROOT/CVSROOT directory.
|
||||
# The remainder of the line is an error message to use if the file cannot
|
||||
# be checked out.
|
||||
#
|
||||
# File format:
|
||||
#
|
||||
# [<whitespace>]<filename><whitespace><error message><end-of-line>
|
||||
#
|
||||
# comment lines begin with '#'
|
||||
users.restricted
|
||||
lvietti.permission
|
||||
sperego.permission
|
||||
lvietri.permission
|
||||
@ -1,16 +0,0 @@
|
||||
# The "commitinfo" file is used to control pre-commit checks.
|
||||
# The filter on the right is invoked with the repository and a list
|
||||
# of files to check. A non-zero exit of the filter program will
|
||||
# cause the commit to be aborted.
|
||||
#
|
||||
# The first entry on a line is a regular expression which is tested
|
||||
# against the directory that the change is being committed to, relative
|
||||
# to the $CVSROOT. For the first match that is found, then the remainder
|
||||
# of the line is the name of the filter to run.
|
||||
#
|
||||
# If the repository name does not match any of the regular expressions in this
|
||||
# file, the "DEFAULT" line is used, if it is specified.
|
||||
#
|
||||
# If the name "ALL" appears as a regular expression it is always used
|
||||
# in addition to the first matching regex or "DEFAULT".
|
||||
DEFAULT /usr/local/cvstools/cvspermissions.sh
|
||||
@ -1,127 +0,0 @@
|
||||
#!/bin/bash
|
||||
#
|
||||
# Copyright (C) 2002 Vivek Venugopalan. All Rights Reserved.
|
||||
#
|
||||
# This is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This software is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this software; if not, write to the Free Software
|
||||
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
|
||||
# USA.
|
||||
#
|
||||
|
||||
# This script set up a repository for restricted access ie enables it for
|
||||
# CVSPermissions
|
||||
|
||||
|
||||
cleanup ()
|
||||
{
|
||||
if [ -d CVSROOT ];then
|
||||
rm -rf CVSROOT
|
||||
fi
|
||||
}
|
||||
|
||||
chkreturnandexit ()
|
||||
{
|
||||
if [ $1 -ne 0 ];then
|
||||
echo $2
|
||||
cleanup
|
||||
exit 1;
|
||||
fi
|
||||
}
|
||||
|
||||
echo checking out CVSROOT module for the repository.
|
||||
|
||||
cvs co CVSROOT >/dev/null 2>/dev/null
|
||||
|
||||
if [ $? -eq 1 ];then
|
||||
echo Could not access the CVSROOT module. Exiting!
|
||||
exit 1;
|
||||
fi
|
||||
|
||||
cd CVSROOT
|
||||
|
||||
#Check to see if SystemAuth is enabled. We cannot work without system auth being enabled.
|
||||
|
||||
grep '^ *SystemAuth *= *yes' config >/dev/null 2>&1
|
||||
if [ $? -eq 1 ];then
|
||||
echo "This installation does not use System Authentication (probably uses CVSROOT/password). CVSPermissions cannot be used with this intallation"
|
||||
exit 1;
|
||||
fi
|
||||
|
||||
#If there is a path specified on the command line assume that CVSPermissions
|
||||
#has been installed in that path. Else assume that the directory in which
|
||||
#this program started has the file path
|
||||
|
||||
if [ -z $1 ];then
|
||||
FILEPATH=`dirname $0`
|
||||
else
|
||||
FILEPATH=$1
|
||||
fi
|
||||
|
||||
grep "cvspermissions.sh\$" commitinfo >/dev/null 2>&1
|
||||
if [ $? -eq 1 ];then
|
||||
echo Modifying CVSROOT/commitinfo file to enable CVSPermissions
|
||||
echo "DEFAULT $FILEPATH/cvspermissions.sh" >> commitinfo
|
||||
fi
|
||||
|
||||
grep "cvspermtagcheck.sh\$" taginfo >/dev/null 2>&1
|
||||
if [ $? -eq 1 ];then
|
||||
echo Modifying CVSROOT/taginfo file to enable CVSPermissions
|
||||
echo "DEFAULT $FILEPATH/cvspermtagcheck.sh" >> taginfo
|
||||
fi
|
||||
|
||||
#Add users.restricted if required.
|
||||
|
||||
if [ ! -f users.restricted ];then
|
||||
echo "Adding users.restricted"
|
||||
#Add the users.restricted file
|
||||
touch users.restricted
|
||||
cvs add users.restricted >/dev/null 2>/dev/null
|
||||
chkreturnandexit $? "Could not create CVSPermission file. Exiting"
|
||||
|
||||
#add our file to the checkout list
|
||||
grep -v "^users\.restricted\$" checkoutlist > checkoutlist.new
|
||||
echo users.restricted >> checkoutlist.new
|
||||
mv checkoutlist.new checkoutlist
|
||||
fi
|
||||
|
||||
#Add a CVS writers file if not present
|
||||
if [ ! -f writers ];then
|
||||
echo "Creating repository writers"
|
||||
#Add self to writers - otherwise the next CVS command will fail since we
|
||||
#wont have write permission to the repository (CVSROOT)
|
||||
echo $USER > writers
|
||||
cvs add writers >/dev/null 2>/dev/null
|
||||
chkreturnandexit $? "Could not create a writers file. Exiting"
|
||||
fi
|
||||
|
||||
|
||||
#Add a CVS readers file if not present
|
||||
if [ ! -f readers ];then
|
||||
echo "Creating repository readers"
|
||||
touch readers
|
||||
cvs add readers >/dev/null 2>/dev/null
|
||||
chkreturnandexit $? "Could not create a readers file. Exiting"
|
||||
fi
|
||||
|
||||
|
||||
cd ..
|
||||
|
||||
echo "Committing CVSPermission configuration to the CVSROOT module"
|
||||
|
||||
cvs commit -m "Enabled CVSPermissions for the repository" CVSROOT >/dev/null 2>/dev/null
|
||||
|
||||
chkreturnandexit $? "Could not commit configuration files. Exiting"
|
||||
cleanup
|
||||
|
||||
echo CVSPermissions setup successfully completed.
|
||||
exit 0
|
||||
@ -1,60 +0,0 @@
|
||||
*.ldb -k 'b' -m 'COPY'
|
||||
*.LDB -k 'b' -m 'COPY'
|
||||
*.mdb -k 'b' -m 'COPY'
|
||||
*.MDB -k 'b' -m 'COPY'
|
||||
*.dat -k 'b' -m 'COPY'
|
||||
*.DAT -k 'b' -m 'COPY'
|
||||
*.pg -k 'b' -m 'COPY'
|
||||
*.PG -k 'b' -m 'COPY'
|
||||
*.fmf -k 'b' -m 'COPY'
|
||||
*.FMF -k 'b' -m 'COPY'
|
||||
*.dil -k 'b' -m 'COPY'
|
||||
*.DIL -k 'b' -m 'COPY'
|
||||
*.del -k 'b' -m 'COPY'
|
||||
*.DEL -k 'b' -m 'COPY'
|
||||
*.fll -k 'b' -m 'COPY'
|
||||
*.FLL -k 'b' -m 'COPY'
|
||||
*.xls -k 'b' -m 'COPY'
|
||||
*.XLS -k 'b' -m 'COPY'
|
||||
*.exe -k 'b' -m 'COPY'
|
||||
*.EXE -k 'b' -m 'COPY'
|
||||
*.hlp -k 'b' -m 'COPY'
|
||||
*.HLP -k 'b' -m 'COPY'
|
||||
*.gid -k 'b' -m 'COPY'
|
||||
*.GID -k 'b' -m 'COPY'
|
||||
*.doc -k 'b' -m 'COPY'
|
||||
*.DOC -k 'b' -m 'COPY'
|
||||
*.ico -k 'b' -m 'COPY'
|
||||
*.ICO -k 'b' -m 'COPY'
|
||||
*.drv -k 'b' -m 'COPY'
|
||||
*.DRV -k 'b' -m 'COPY'
|
||||
*.vxd -k 'b' -m 'COPY'
|
||||
*.VXD -k 'b' -m 'COPY'
|
||||
*.dll -k 'b' -m 'COPY'
|
||||
*.DLL -k 'b' -m 'COPY'
|
||||
*.lib -k 'b' -m 'COPY'
|
||||
*.LIB -k 'b' -m 'COPY'
|
||||
*.obj -k 'b' -m 'COPY'
|
||||
*.OBJ -k 'b' -m 'COPY'
|
||||
*.jpg -k 'b' -m 'COPY'
|
||||
*.JPG -k 'b' -m 'COPY'
|
||||
*.bmp -k 'b' -m 'COPY'
|
||||
*.BMP -k 'b' -m 'COPY'
|
||||
*.tif -k 'b' -m 'COPY'
|
||||
*.TIF -k 'b' -m 'COPY'
|
||||
*.pcx -k 'b' -m 'COPY'
|
||||
*.PCX -k 'b' -m 'COPY'
|
||||
*.pif -k 'b' -m 'COPY'
|
||||
*.PIF -k 'b' -m 'COPY'
|
||||
*.shg -k 'b' -m 'COPY'
|
||||
*.SHG -k 'b' -m 'COPY'
|
||||
*.isf -k 'b' -m 'COPY'
|
||||
*.ISF -k 'b' -m 'COPY'
|
||||
*.ism -k 'b' -m 'COPY'
|
||||
*.ISM -k 'b' -m 'COPY'
|
||||
*.isd -k 'b' -m 'COPY'
|
||||
*.ISD -k 'b' -m 'COPY'
|
||||
*.hmp -k 'b' -m 'COPY'
|
||||
*.HMP -k 'b' -m 'COPY'
|
||||
*.zip -k 'b' -m 'COPY'
|
||||
*.ZIP -k 'b' -m 'COPY'
|
||||
@ -1,21 +0,0 @@
|
||||
# The "editinfo" file is used to allow verification of logging
|
||||
# information. It works best when a template (as specified in the
|
||||
# rcsinfo file) is provided for the logging procedure. Given a
|
||||
# template with locations for, a bug-id number, a list of people who
|
||||
# reviewed the code before it can be checked in, and an external
|
||||
# process to catalog the differences that were code reviewed, the
|
||||
# following test can be applied to the code:
|
||||
#
|
||||
# Making sure that the entered bug-id number is correct.
|
||||
# Validating that the code that was reviewed is indeed the code being
|
||||
# checked in (using the bug-id number or a seperate review
|
||||
# number to identify this particular code set.).
|
||||
#
|
||||
# If any of the above test failed, then the commit would be aborted.
|
||||
#
|
||||
# Actions such as mailing a copy of the report to each reviewer are
|
||||
# better handled by an entry in the loginfo file.
|
||||
#
|
||||
# One thing that should be noted is the the ALL keyword is not
|
||||
# supported. There can be only one entry that matches a given
|
||||
# repository.
|
||||
@ -1,44 +0,0 @@
|
||||
|
||||
^ab /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/dllog Ab %s
|
||||
^at /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/atlog Avis %s
|
||||
^ba /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/balog Ba %s
|
||||
^ca /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/balog Ca %s
|
||||
^cb /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/cblog CodeBase %s
|
||||
^ce /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/celog Ce %s
|
||||
^cg /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/cglog Cg %s
|
||||
^ci /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/cglog Ci %s
|
||||
^cm /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/cmlog Cm %s
|
||||
^co /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/cmlog Co %s
|
||||
^crpa /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/cmlog Crpa %s
|
||||
^db /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/dblog Db %s
|
||||
^dl /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/dllog Dl %s
|
||||
^dt /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/dllog Dt %s
|
||||
^ef /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/eflog Ef %s
|
||||
^gfm /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/gfmlog Gfm %s
|
||||
^gv /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/gfmlog Gv %s
|
||||
^in /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/inlog In %s
|
||||
^include /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/includelog Librerie %s
|
||||
^li /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/inlog Li %s
|
||||
^linux /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/linuxlog Linux %s
|
||||
^lv /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/inlog Lv %s
|
||||
^m770 /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/m770log M770 %s
|
||||
^mg /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/mglog Mg %s
|
||||
^mr /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/mrlog Mr %s
|
||||
^or /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/orlog Or %s
|
||||
^pdf /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/orlog Pdf %s
|
||||
^pr /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/prlog Pr %s
|
||||
^projects /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/prlog Projects %s
|
||||
^ps /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/prlog Ps %s
|
||||
^res /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/reslog Res %s
|
||||
^sc /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/sclog Sc %s
|
||||
^server /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/serverlog Server %s
|
||||
^setup /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/sqlitelog Setup %s
|
||||
^sqlite /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/sqlitelog Sqlite %s
|
||||
^sv /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/svlog Sv %s
|
||||
^tc /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/svlog Tc %s
|
||||
^tp /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/svlog Tp %s
|
||||
^vd /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/svlog Vd %s
|
||||
^ve /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/velog Ve %s
|
||||
^xi /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/xilog Xi %s
|
||||
^xvaga /usr/local/bin/cvsmail $USER $CVSROOT/CVSROOT/xvagalog Xvaga %s
|
||||
|
||||
@ -1,3 +0,0 @@
|
||||
l0
|
||||
lv
|
||||
ps
|
||||
109
CVSROOT/modules
109
CVSROOT/modules
@ -1,109 +0,0 @@
|
||||
#D ab Sorgenti per modulo AB
|
||||
#D al Sorgenti libreria ArchiveLib 1.0 e 2.0 (formato nuovo)
|
||||
#D arch Sorgenti libreria ArchiveLib 1.0
|
||||
#D ba Sorgenti per modulo BA
|
||||
#D ca Sorgenti per il modulo CA
|
||||
#D cb Sorgenti libreria CodeBase 6.1
|
||||
#D cb5 Sorgenti libreria CodeBase 5
|
||||
#D ce Sorgenti modulo cespiti (link SESA)
|
||||
#D cg Sorgenti per modulo CG
|
||||
#D ci Sorgenti per il modulo CI
|
||||
#D cm Sorgenti per il modulo CM
|
||||
#D co Sorgenti per il modulo CO
|
||||
#D crpa Sorgenti per il modulo CRPA
|
||||
#D db Sorgenti per modulo DB
|
||||
#D dl Sorgenti per modulo DL
|
||||
#D dt Sorgenti per modulo DT
|
||||
#D ef Sorgenti per modulo EF
|
||||
#D gfm Sorgenti per modulo GFM
|
||||
#D gv Sorgenti per modulo GV
|
||||
#D in Sorgenti per modulo IN
|
||||
#D include Sorgenti libreria principale
|
||||
#D li Sorgenti per modulo LI
|
||||
#D linux Sorgenti per modulo LINUX
|
||||
#D lv Sorgenti per il modulo LV
|
||||
#D m770 Sorgenti per modulo M770
|
||||
#D mg Sorgenti per modulo MG
|
||||
#D mr Sorgenti per modulo MR
|
||||
#D or Sorgenti per modulo OR
|
||||
#D pdf Sorgenti per modulo PDF
|
||||
#D pr Sorgenti per modulo PR
|
||||
#D projects Sorgenti per modulo PROJECTS
|
||||
#D ps Sorgenti per il modulo PS
|
||||
#D res Sorgenti per modulo RES
|
||||
#D sc Sorgenti per modulo SC
|
||||
#D server Sorgenti per servers di chiave ed ODBC
|
||||
#D setup Sorgenti per files di installazione
|
||||
#D sqlite Sorgenti per modulo SQL
|
||||
#D suport Sorgenti per il modulo di supporto
|
||||
#D sv Sorgenti per modulo SV
|
||||
#D tc Sorgenti per il modulo TC
|
||||
#D tp Sorgenti per il modulo TP
|
||||
#D vd Sorgenti per il modulo VD
|
||||
#D ve Sorgenti per modulo VE
|
||||
#D xi Sorgenti per libreria XI
|
||||
#D xvaga Sorgenti per il modulo XVAGA
|
||||
#D zip Sorgenti per libreria PkZip
|
||||
|
||||
#M ab Modulo per la gestione dell'Analisi di Bilancio
|
||||
ab ab
|
||||
|
||||
#M al Modulo per la gestione dell'archiviazione dati
|
||||
al al
|
||||
|
||||
#M arch Modulo per la gestione dell'archiviazione dati
|
||||
arch arch
|
||||
|
||||
#M ba Modulo per la gestione delle anagrafiche di base
|
||||
ba ba
|
||||
|
||||
#M cb Modulo per la gestione dei files (CodeBase 6.1)
|
||||
cb cb
|
||||
|
||||
#M cb5 Modulo per la gestione dei files (CodeBase 5)
|
||||
cb5 cb5
|
||||
|
||||
#M ce Modulo per la gestione dei cespiti (SESA)
|
||||
ce ce
|
||||
|
||||
#M cg Modulo per la gestione della contabilita' generale
|
||||
cg cg
|
||||
|
||||
#M db Modulo per la gestione della distinta base
|
||||
db db
|
||||
|
||||
#M ef Modulo per la gestione degli effetti
|
||||
ef ef
|
||||
|
||||
#M include Libreria principale sviluppata da AGA
|
||||
include include
|
||||
|
||||
#M m770 Modulo per la gestione del modello 770
|
||||
m770 m770
|
||||
|
||||
#M mg Modulo per la gestione del magazzino
|
||||
mg mg
|
||||
|
||||
#M pr Modulo per la gestione delle provvigioni agenti
|
||||
pr pr
|
||||
|
||||
#M sc Modulo per la gestione del saldaconto
|
||||
sc sc
|
||||
|
||||
#M servers Modulo per la gestione dei servers di chiave e ODBC
|
||||
servers servers
|
||||
|
||||
#M sv Modulo per la gestione delle statistiche di vendita
|
||||
sv sv
|
||||
|
||||
#M sv Modulo per la gestione dei files di supporto
|
||||
support support
|
||||
|
||||
#M ve Modulo per la gestione delle vendite
|
||||
ve ve
|
||||
|
||||
#M xi Libreria XI, per la gestione dei controlli video
|
||||
xi xi
|
||||
|
||||
#M zip Libreria PkZip, per la compressione dei dati
|
||||
zip zip
|
||||
@ -1,12 +0,0 @@
|
||||
# The "notify" file controls where notifications from watches set by
|
||||
# "cvs watch add" or "cvs edit" are sent. The first entry on a line is
|
||||
# a regular expression which is tested against the directory that the
|
||||
# change is being made to, relative to the $CVSROOT. If it matches,
|
||||
# then the remainder of the line is a filter program that should contain
|
||||
# one occurrence of %s for the user to notify, and information on its
|
||||
# standard input.
|
||||
#
|
||||
# "ALL" or "DEFAULT" can be used in place of the regular expression.
|
||||
#
|
||||
# For example:
|
||||
#ALL mail %s -s "CVS notification"
|
||||
@ -1 +0,0 @@
|
||||
ALL /disk1/p.due/repos/CVSROOT/rcstemplate
|
||||
@ -1,3 +0,0 @@
|
||||
l0
|
||||
lv
|
||||
ps
|
||||
@ -1,21 +0,0 @@
|
||||
# The "taginfo" file is used to control pre-tag checks.
|
||||
# The filter on the right is invoked with the following arguments:
|
||||
#
|
||||
# $1 -- tagname
|
||||
# $2 -- operation "add" for tag, "mov" for tag -F, and "del" for tag -d
|
||||
# $3 -- repository
|
||||
# $4-> file revision [file revision ...]
|
||||
#
|
||||
# A non-zero exit of the filter program will cause the tag to be aborted.
|
||||
#
|
||||
# The first entry on a line is a regular expression which is tested
|
||||
# against the directory that the change is being committed to, relative
|
||||
# to the $CVSROOT. For the first match that is found, then the remainder
|
||||
# of the line is the name of the filter to run.
|
||||
#
|
||||
# If the repository name does not match any of the regular expressions in this
|
||||
# file, the "DEFAULT" line is used, if it is specified.
|
||||
#
|
||||
# If the name "ALL" appears as a regular expression it is always used
|
||||
# in addition to the first matching regex or "DEFAULT".
|
||||
DEFAULT /usr/local/cvstools/cvspermtagcheck.sh
|
||||
@ -1,2 +0,0 @@
|
||||
sperego
|
||||
lvietri
|
||||
26
ab/caradd.h
Executable file
26
ab/caradd.h
Executable file
@ -0,0 +1,26 @@
|
||||
//Nomi dei campi del file LF_CARADD
|
||||
#ifndef _CARADD_H
|
||||
#define _CARADD_H
|
||||
|
||||
#define ABCA_ID "ID"
|
||||
#define ABCA_STD "STD"
|
||||
#define ABCA_CLI "CLI"
|
||||
#define ABCA_SPI "SPI"
|
||||
#define ABCA_STI "STI"
|
||||
#define ABCA_DST "DST"
|
||||
#define ABCA_CLT "CLT"
|
||||
#define ABCA_SPT "SPT"
|
||||
#define ABCA_STT "STT"
|
||||
#define ABCA_SVT "SVT"
|
||||
#define ABCA_LST "LST"
|
||||
#define ABCA_ODA "ODA"
|
||||
#define ABCA_SKI "SKI"
|
||||
#define ABCA_SKT "SKT"
|
||||
#define ABCA_NDV "NDV"
|
||||
#define ABCA_RII "RII"
|
||||
#define ABCA_RIT "RIT"
|
||||
#define ABCA_TVL "TVL"
|
||||
|
||||
|
||||
|
||||
#endif //_CARADD_H
|
||||
7
ab/colldich.h
Executable file
7
ab/colldich.h
Executable file
@ -0,0 +1,7 @@
|
||||
//Nomi dei campi del file LF_COLLDICH
|
||||
#ifndef _COLLDICH_H
|
||||
#define _COLLDICH_H
|
||||
|
||||
#define ABCD_ID "ID"
|
||||
|
||||
#endif //_COLLDICH_H
|
||||
3
ab/f125.dir
Executable file
3
ab/f125.dir
Executable file
@ -0,0 +1,3 @@
|
||||
125
|
||||
1
|
||||
%stobil|0|0|152|20|Storico bilanci per calcoli|||
|
||||
17
ab/f125.trr
Executable file
17
ab/f125.trr
Executable file
@ -0,0 +1,17 @@
|
||||
125
|
||||
13
|
||||
CODDITTA|3|5|0|Codice ditta
|
||||
ANNO|2|4|0|Anno
|
||||
CODPDB|1|3|0|Codice periodo di bilancio
|
||||
TIPOBIL|1|2|0|Tipo bilancio
|
||||
CODVC|1|10|0|Codice voce
|
||||
FLSI|1|1|0|Flag saldo iniziale <D>are, <A>vere
|
||||
SALDOIN|4|18|3|Saldo iniziale
|
||||
PROGDARE|4|18|3|Progressivo dare
|
||||
PROGAVERE|4|18|3|Progressivo avere
|
||||
RICDARE|4|18|3|Riclassificazioni dare
|
||||
RICAVERE|4|18|3|Riclassificazioni avere
|
||||
RETTDARE|4|18|3|Rettifiche dare
|
||||
RETTAVERE|4|18|3|Rettifiche avere
|
||||
1
|
||||
CODDITTA+ANNO+CODPDB+TIPOBIL+CODVC|
|
||||
367
arch/_new.cpp
367
arch/_new.cpp
@ -1,367 +0,0 @@
|
||||
//
|
||||
// _NEW.CPP
|
||||
//
|
||||
// Source file for ArchiveLib 1.0
|
||||
//
|
||||
// Copyright (c) Greenleaf Software, Inc. 1994
|
||||
// All Rights Reserved
|
||||
//
|
||||
// CONTENTS
|
||||
//
|
||||
// PointerInHeap()
|
||||
// operator new()
|
||||
// operator delete()
|
||||
//
|
||||
// DESCRIPTION
|
||||
//
|
||||
// One of the defensive programming measures we have taken in this
|
||||
// library is to provide versions of ::new and ::delete that do a
|
||||
// little extra work. Of course, these all go away if _DEBUG isn't
|
||||
// defined.
|
||||
//
|
||||
// Basically, there are a couple of things at work here. First, we
|
||||
// have taken over the new operator and delete operator, so we are
|
||||
// guaranteed that all C++ memory allocation will take place through
|
||||
// these routines. Therefore, we can take certain liberties with
|
||||
// them.
|
||||
//
|
||||
// The most important thing we do when someone wants to allocate
|
||||
// memory is to allocate an extra 12 bytes of data beyond what has
|
||||
// been requested. We use 8 bytes at the start of the block and
|
||||
// 4 bytes at the end of the block for our own purposes. The pointer
|
||||
// we return to the requester is actually at the start of the block
|
||||
// plus eight bytes.
|
||||
//
|
||||
// The first four bytes at the start of the block are used to store
|
||||
// the size of the block. The next four bytes hold a long word containing
|
||||
// a leading picket, which is just a special word four bytes long.
|
||||
// If the user underwrites the block of data for some reason, one of
|
||||
// those four bytes will probably be corrupted. At the end of the block,
|
||||
// we store a trailing picket that has the same purpose. It holds
|
||||
// a special pattern of four bytes. If the user overwrites the block
|
||||
// of data, those four bytes will be corrupted.
|
||||
//
|
||||
// We check the pickets when the ::delete operator is called. That way,
|
||||
// when an object is going to be freed, we can instantly detect if it
|
||||
// has been abused in some fashion.
|
||||
//
|
||||
// The ::delete operator here also attempts to make sure that the pointer
|
||||
// being deleted points to a block that is actually in the heap. This
|
||||
// isn't always possible, but it works under most MS-DOS models, and
|
||||
// works under Windows small and medium models. Under Windows large
|
||||
// memory models, we can walk the global heap to look for pointers,
|
||||
// but we might not find them, since the RTL might be using a subsegment
|
||||
// allocation scheme.
|
||||
//
|
||||
// In addition to checking the heap, under Windows the ::delete function
|
||||
// can also call the IsBadWritePtr() function to see if this is just
|
||||
// a completely hosed up pointer.
|
||||
//
|
||||
// Note that it is kind of obtrusive to redefine ::new and ::delete. There
|
||||
// is an excellent chance that this will interfere with other libraries,
|
||||
// such as MFC. Fortunately, we have made it easy to get around this.
|
||||
// First, it is relatively simple to just delete this module from your
|
||||
// library, using: LIB ALXX-_NEW; If you don't want to go to that
|
||||
// trouble, you can also define AL_DISABLE_NEW and rebuild this module,
|
||||
// which should also make it go away. But if you don't need to make
|
||||
// this code disappear, you ought to leave it in, it might save you a lot
|
||||
// of trouble some day.
|
||||
//
|
||||
// REVISION HISTORY
|
||||
//
|
||||
// May 22, 1994 1.0A : First release
|
||||
//
|
||||
//
|
||||
|
||||
|
||||
#include "arclib.h"
|
||||
#pragma hdrstop
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
//
|
||||
// The MS-DOS heapwalk functions are in different header files depending
|
||||
// on who you are. Note that I don't walk the heap under MS-DOS with
|
||||
// Symantec or Watcom. Not sure if I can.
|
||||
//
|
||||
#if defined( AL_BORLAND )
|
||||
#include <alloc.h>
|
||||
#elif defined( AL_MICROSOFT )
|
||||
#include <malloc.h>
|
||||
#endif
|
||||
//
|
||||
// Walking the Windows heap requires TOOLHELP.DLL. It would be great
|
||||
// if Borland provided the TOOLHELP API under their DPMI extenders, but
|
||||
// I don't think they do. I don't think the heap walk functions are
|
||||
// available under Win 32s either.
|
||||
//
|
||||
#if defined( AL_WINDOWS_GUI ) && !defined( AL_FLAT_MODEL )
|
||||
#include <toolhelp.h>
|
||||
#endif
|
||||
|
||||
/*
|
||||
* To completely eliminate this stuff, all you have to do is define
|
||||
* AL_DISABLE_NEW before rebuilding the library.
|
||||
*/
|
||||
#ifndef AL_DISABLE_NEW
|
||||
//
|
||||
// When I pop up an error message, it sometimes helps to know where it came
|
||||
// from. This definition is used to create the message box.
|
||||
//
|
||||
#if defined( AL_BUILDING_DLL )
|
||||
#define LIB_TYPE "DLL"
|
||||
#else
|
||||
#define LIB_TYPE "Static"
|
||||
#endif
|
||||
|
||||
//
|
||||
// If Debug is not turned on, none of this stuff happens. I also don't
|
||||
// work with Microsoft huge model, things get nasty in there.
|
||||
//
|
||||
#if defined( _DEBUG ) && !( defined( AL_MICROSOFT ) && defined( _M_I86HM ) )
|
||||
|
||||
//
|
||||
// int PointerInHeap( void *p )
|
||||
//
|
||||
// ARGUMENTS:
|
||||
//
|
||||
// p : The pointer under test.
|
||||
//
|
||||
// RETURNS
|
||||
//
|
||||
// An integer, true or false.
|
||||
//
|
||||
// DESCRIPTION
|
||||
//
|
||||
// This function is called by ::delete() to see if the pointer we are
|
||||
// trying to delete is in fact in the heap. If it isn't, we could cause
|
||||
// quite a bit of trouble if we try to delete it.
|
||||
//
|
||||
// Under MS-DOS, this function just executes the normal heapwalk functions
|
||||
// supported by Microsoft and Borland. Under Windows small memory
|
||||
// models, we use the Toohelp API to walk the local heap. Under all
|
||||
// other circumstances, we just give up and always return a true value.
|
||||
//
|
||||
// REVISION HISTORY
|
||||
//
|
||||
// May 22, 1994 1.0A : First release
|
||||
//
|
||||
|
||||
//
|
||||
// This is the Microsoft MS-DOS version. It also looks like it is set
|
||||
// up to work with Win 32s, but I'm not sure why, since we haven't
|
||||
// released support for it yet. I think that is a typo.
|
||||
//
|
||||
// This function just uses the heapwalk RTL function to check for the
|
||||
// presence of the pointer in the heap.
|
||||
//
|
||||
#if defined( AL_MICROSOFT ) && ( !defined( AL_WINDOWS_MEMORY ) || defined( AL_FLAT_MODEL ) )
|
||||
|
||||
int PointerInHeap( void *p )
|
||||
{
|
||||
AL_ASSERT( _heapchk() == _HEAPOK, "Heap fails internal consistency check" );
|
||||
_HEAPINFO heapinfo;
|
||||
heapinfo._pentry = 0;
|
||||
while ( _heapwalk( &heapinfo ) == _HEAPOK )
|
||||
if ( heapinfo._pentry == (int __far *) p )
|
||||
return 1;
|
||||
return 0;
|
||||
}
|
||||
|
||||
//
|
||||
// This is the Borland MS-DOS version. It looks like it also works under
|
||||
// Win 32s, which might be more reasonable, since we do support Borland
|
||||
// in that mode.
|
||||
//
|
||||
// Like the previous function, this guy just uses the heapwalk API to
|
||||
// check the local heap for the presence of the pointer.
|
||||
//
|
||||
#elif defined( AL_BORLAND ) && ( !defined( AL_WINDOWS_MEMORY ) || defined( AL_FLAT_MODEL ) )
|
||||
|
||||
int PointerInHeap( void *p )
|
||||
{
|
||||
AL_ASSERT( heapcheck() == _HEAPOK,
|
||||
LIB_TYPE " heap fails internal consistency check" );
|
||||
struct heapinfo info;
|
||||
info.ptr = 0;
|
||||
while ( heapwalk( &info ) == _HEAPOK )
|
||||
#if defined( AL_LARGE_DATA ) && !defined( AL_FLAT_MODEL )
|
||||
if ( info.ptr == (void huge *) p )
|
||||
return 1;
|
||||
#else
|
||||
if ( info.ptr == p )
|
||||
return 1;
|
||||
#endif
|
||||
return 0;
|
||||
}
|
||||
|
||||
//
|
||||
// Microsoft is nice enough to support the heapwalk API under Windows
|
||||
// large memory models also. This is good, since the TOOLHELP API would
|
||||
// flounder when confronted with a subsegment allocation strategy.
|
||||
//
|
||||
#elif defined( AL_MICROSOFT ) && defined( AL_WINDOWS_MEMORY ) && defined( AL_LARGE_DATA )
|
||||
|
||||
int PointerInHeap( void *p )
|
||||
{
|
||||
AL_ASSERT( _fheapchk() == _HEAPOK,
|
||||
LIB_TYPE " heap fails internal consistency check" );
|
||||
_HEAPINFO heapinfo;
|
||||
heapinfo._pentry = 0;
|
||||
while ( _fheapwalk( &heapinfo ) == _HEAPOK )
|
||||
if ( heapinfo._pentry == p )
|
||||
return 1;
|
||||
return 0;
|
||||
}
|
||||
|
||||
//
|
||||
// Under Windows small and medium memory models, the TOOLHELP API lets
|
||||
// us walk the local heap, looking for an entry. No subsegment allocation
|
||||
// scheme will get in the way.
|
||||
//
|
||||
// I should be able to use this with Watcom, but I am using a little bit of
|
||||
// inline assembly to get my data segment. This inline assembly won't
|
||||
// work with Watcom, so someday I will have to add a little code to
|
||||
// get things working right with them also.
|
||||
//
|
||||
#elif defined( AL_WINDOWS_MEMORY ) && !defined( AL_FLAT_MODEL ) && !defined( AL_LARGE_DATA ) && !defined( AL_WATCOM )
|
||||
|
||||
int PointerInHeap( void *p )
|
||||
{
|
||||
LOCALENTRY LEntry;
|
||||
WORD wHeap;
|
||||
//
|
||||
// I need to search the local heap that is in my data segment.
|
||||
//
|
||||
_asm mov ax,ds
|
||||
_asm mov wHeap,ax
|
||||
LEntry.dwSize = sizeof( LOCALENTRY );
|
||||
if ( LocalFirst( &LEntry, (HGLOBAL) wHeap ) ) {
|
||||
do {
|
||||
if ( LEntry.wAddress == (WORD) p )
|
||||
return 1;
|
||||
} while ( LocalNext( &LEntry ) );
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
//
|
||||
// When all else fails, give up!
|
||||
//
|
||||
#else
|
||||
int PointerInHeap( void * ){ return 1; }
|
||||
#endif
|
||||
|
||||
//
|
||||
// void *operator new( size_t size )
|
||||
//
|
||||
// ARGUMENTS:
|
||||
//
|
||||
// size : The amount of memory being requested.
|
||||
//
|
||||
// RETURNS
|
||||
//
|
||||
// A pointer to the newly allocated storage area, or a 0 in the event
|
||||
// of failure.
|
||||
//
|
||||
// DESCRIPTION
|
||||
//
|
||||
// This version of ::new() does what I described at the top of the file.
|
||||
// It allocates a block of memory as requested, and includes eight
|
||||
// extra bytes. Four bytes are reserved at the start and end of the memory
|
||||
// block for our "pickets". These pickets hold a fixed pattern in memory
|
||||
// that can be tested for accidental modification. When ::delete() is
|
||||
// called, we check the area to see if the caller munged it, and
|
||||
// cause an assertion error if they did. The other four bytes are needed
|
||||
// to keep the size of the block on hand. Otherwise I wouldn't know how
|
||||
// to get to the end of the block to check the trailing picket.
|
||||
//
|
||||
// Note that if you are using set_new_handler() or exceptions, this stuff
|
||||
// is probably going to hose you up badly.
|
||||
//
|
||||
// REVISION HISTORY
|
||||
//
|
||||
// May 22, 1994 1.0A : First release
|
||||
//
|
||||
|
||||
void *operator new( size_t size )
|
||||
{
|
||||
if ( ( (long) size + 12 ) > 65535L )
|
||||
return 0;
|
||||
char *p = (char *) malloc( size + 12 );
|
||||
if ( !p )
|
||||
return 0;
|
||||
( (long *) p)[ 0 ] = (long) size;
|
||||
( (long *) p)[ 1 ] = 0x12345678L;
|
||||
( (long *)(p + 8 + size))[ 0 ] = 0xfedcba98L;
|
||||
return p + 8;
|
||||
}
|
||||
|
||||
//
|
||||
// void operator delete( void *ptr )
|
||||
//
|
||||
// ARGUMENTS:
|
||||
//
|
||||
// ptr : A pointer to the memory block the user wishes to delete.
|
||||
//
|
||||
// RETURNS
|
||||
//
|
||||
// Nothing.
|
||||
//
|
||||
// DESCRIPTION
|
||||
//
|
||||
// After the user has had the chance to muck with this memory block for
|
||||
// a while, he or she will want to return it to the heap. We do a bunch
|
||||
// of checks here before that happens, to see if any serious mistakes have
|
||||
// been made. If we detect any serious mistakes, we just abort the
|
||||
// program with an assertion error.
|
||||
//
|
||||
// First we check to see if Windows thinks it is even a valid pointer. If
|
||||
// we don't do this, some of the other code here will GPF if you call delete
|
||||
// with a really bad pointer. Those GPFs are a lot less informative than
|
||||
// our nice assertion failures.
|
||||
//
|
||||
// If it looks like it is a valid pointer, the next thing we do is try to
|
||||
// see if the pointer is in our heap. A common mistake is trying to free
|
||||
// a pointer twice, or freeing a pointer that has been incremented or
|
||||
// decremented. Either of these can royally foul the heap.
|
||||
//
|
||||
// If it looks like the pointer really is in the heap, there is still one
|
||||
// last thing to check. I take a quick glance at both the leading and
|
||||
// trailing pickets to see if either of them have been mangled. A simple
|
||||
// overwrite or underwrite by just one byte can be catastrophic, but we
|
||||
// detect it easily here.
|
||||
//
|
||||
// If all of that goes as expected, we are free to finally return the
|
||||
// storage to the heap. Just for good luck, I clear it out first. That
|
||||
// way if anyone is foolish enough to try and use the data after it has
|
||||
// been deleted, they will at least see that there is nothing intelligent
|
||||
// store there.
|
||||
//
|
||||
// REVISION HISTORY
|
||||
//
|
||||
// May 22, 1994 1.0A : First release
|
||||
//
|
||||
|
||||
void operator delete( void *ptr )
|
||||
{
|
||||
#if defined( AL_WINDOWS_MEMORY ) && !defined( AL_FLAT_MODEL )
|
||||
AL_ASSERT( !IsBadWritePtr( ptr, 1 ), "delete: delete called for ptr Windows doesn't like" );
|
||||
#endif
|
||||
char *p = (char *) ptr;
|
||||
AL_ASSERT( PointerInHeap( p - 8 ),
|
||||
"delete: delete called for pointer not found in the " LIB_TYPE " heap" );
|
||||
AL_ASSERT( ( (long *) p )[ -1 ] == 0x12345678L,
|
||||
"delete : Data corrupted in object's leading picket in the " LIB_TYPE " heap" );
|
||||
size_t size = (size_t) ( (long *) p )[ -2 ];
|
||||
char *ep = p + size;
|
||||
AL_ASSERT( ( (long *) ep )[ 0 ] == 0xfedcba98L,
|
||||
"delete : Data corrupted in object's trailing picket in the " LIB_TYPE " heap" );
|
||||
memset( p - 8, size + 12, 0 ); //Clear it before freeing it
|
||||
free( ((char *) p - 8 ) );
|
||||
}
|
||||
|
||||
#endif //#ifdef _DEBUG etc.
|
||||
|
||||
#endif // #ifdef AL_DISABLE_NEW
|
||||
|
||||
1098
ba/anagr.uml
1098
ba/anagr.uml
File diff suppressed because it is too large
Load Diff
83
ba/ba1101.h
83
ba/ba1101.h
@ -1,83 +0,0 @@
|
||||
#ifndef __BA1101_H
|
||||
#define __BA1101_H
|
||||
|
||||
#ifndef __SHEET_H
|
||||
#include <sheet.h>
|
||||
#endif
|
||||
|
||||
#ifndef __MSKSHEET_H
|
||||
#include <msksheet.h>
|
||||
#endif
|
||||
|
||||
#ifndef __FILES_H
|
||||
#include <files.h>
|
||||
#endif
|
||||
|
||||
#ifndef __MASK_H
|
||||
#include <mask.h>
|
||||
#endif
|
||||
|
||||
#include <urldefid.h>
|
||||
#include <validate.h>
|
||||
|
||||
HIDDEN TString park(80);
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TDir_sheet
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
|
||||
class TDir_sheet : public TSheet
|
||||
{
|
||||
TTrec *_rec;
|
||||
TDir *_dir;
|
||||
FileDes _s_dir;
|
||||
long _items;
|
||||
|
||||
protected: set_firm();
|
||||
|
||||
void page_build(long first, byte rows);
|
||||
|
||||
public:
|
||||
TDir_sheet(const char* title);
|
||||
~TDir_sheet();
|
||||
TDir* dir() const { return _dir; }
|
||||
TTrec* rec() const { return _rec; }
|
||||
void set_items(long items) { _items = items; }
|
||||
void add();
|
||||
void rebuild() { _items = _dir->items();}
|
||||
|
||||
long items() const { return (_items);}
|
||||
};
|
||||
|
||||
class TRec_sheet : public TObject
|
||||
{
|
||||
TTrec *_rec;
|
||||
TTrec *_rec_old;
|
||||
TDir *_dir;
|
||||
bool _comfile;
|
||||
static TMask *_mask;
|
||||
|
||||
protected:
|
||||
void update_keys(int from, int shift);
|
||||
const char* build_key_expr(int key);
|
||||
bool check_key_expr(int key, const char* key_expr);
|
||||
void update_key_expr(int key, TToken_string& s);
|
||||
const char* build_field(int nfld);
|
||||
void update_field(int nfld, TToken_string& s);
|
||||
static bool fld_notify(int r, KEY k);
|
||||
static bool key_notify(int r, KEY k);
|
||||
void save();
|
||||
virtual long items() const { return _rec->items(); }
|
||||
TDir* dir() const { return _dir; }
|
||||
TTrec* rec() const { return _rec; }
|
||||
|
||||
public:
|
||||
TRec_sheet(int logicnum);
|
||||
~TRec_sheet();
|
||||
void edit();
|
||||
|
||||
};
|
||||
|
||||
|
||||
#endif
|
||||
49
ba/ba1102.h
49
ba/ba1102.h
@ -1,49 +0,0 @@
|
||||
#ifndef __BA1201_H
|
||||
#define __BA1201_H
|
||||
|
||||
#ifndef __SHEET_H
|
||||
#include <sheet.h>
|
||||
#endif
|
||||
|
||||
#ifndef __FILES_H
|
||||
#include <files.h>
|
||||
#endif
|
||||
|
||||
#ifndef __MASK_H
|
||||
#include <mask.h>
|
||||
#endif
|
||||
|
||||
#include <urldefid.h>
|
||||
#include <validate.h>
|
||||
|
||||
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TRec_sheet
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TRec_sheet : public TSheet
|
||||
{
|
||||
TTrec *_rec;
|
||||
TDir *_dir;
|
||||
RecDes _s_rec;
|
||||
int _items;
|
||||
bool _comfile;
|
||||
|
||||
protected:
|
||||
void page_build(long first, byte rows);
|
||||
|
||||
public:
|
||||
TRec_sheet(int logicnum);
|
||||
~TRec_sheet();
|
||||
TDir* dir() const { return _dir; }
|
||||
TTrec* rec() const { return _rec; }
|
||||
|
||||
long items() const { return _items; }
|
||||
};
|
||||
|
||||
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
@ -1,46 +0,0 @@
|
||||
#include <defmask.h>
|
||||
#include <tokens.h>
|
||||
#include "ba1102.h"
|
||||
|
||||
PAGE "Modifica Tracciato Record" -1 -1 61 7
|
||||
STRING FLD_NUM 3
|
||||
FLAGS "D"
|
||||
BEGIN
|
||||
PROMPT 2 1 "Numero "
|
||||
END
|
||||
STRING FLD_NOME 43
|
||||
BEGIN
|
||||
PROMPT 2 2 "Nome "
|
||||
HELP "Inserire il nome"
|
||||
END
|
||||
STRING FLD_DESC 43
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
HELP "Inserire la descrizione"
|
||||
END
|
||||
STRING FLD_FORMULA 43
|
||||
BEGIN
|
||||
PROMPT 2 4 "Formula "
|
||||
HELP "Inserire la formula"
|
||||
END
|
||||
STRING FLD_EOD 4
|
||||
BEGIN
|
||||
PROMPT 2 5 "EOD "
|
||||
HELP "Inserire EOD"
|
||||
END
|
||||
STRING FLD_FLAG 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "Flag "
|
||||
HELP "Inserire Flag"
|
||||
END
|
||||
BUTTON DLG_OK 8
|
||||
BEGIN
|
||||
PROMPT 30 1 ""
|
||||
END
|
||||
BUTTON DLG_CANCEL 8
|
||||
BEGIN
|
||||
PROMPT 40 1 ""
|
||||
END
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
11
ba/ba1200.h
11
ba/ba1200.h
@ -1,11 +0,0 @@
|
||||
#ifndef __BA1200_H
|
||||
#define __BA1200_H
|
||||
|
||||
|
||||
#define FLD_NUM 364
|
||||
#define FLD_NOME_CAMPO 365
|
||||
#define FLD_TIPO_CAMPO 366
|
||||
#define FLD_LUNGHEZZA 367
|
||||
#define FLD_DECIMALI 368
|
||||
|
||||
#endif // __BA1200_H
|
||||
@ -1,6 +0,0 @@
|
||||
#include <lffiles.h>
|
||||
#include <defmask.h>
|
||||
#include <tokens.h>
|
||||
|
||||
#define FALSE 0
|
||||
#define TRUE 1
|
||||
@ -1,96 +0,0 @@
|
||||
// Includo stdio senno' dice che ridefinisco FILE
|
||||
#include <stdio.h>
|
||||
|
||||
#ifndef __STRINGS_H
|
||||
#include <strings.h>
|
||||
#endif
|
||||
|
||||
#ifndef __FILES_H
|
||||
#include <files.h>
|
||||
#endif
|
||||
|
||||
#ifndef __MASK_H
|
||||
#include <mask.h>
|
||||
#endif
|
||||
|
||||
#ifndef __SHEET_H
|
||||
#include <sheet.h>
|
||||
#endif
|
||||
|
||||
#ifndef __URLDEFID_H
|
||||
#include <urldefid.h>
|
||||
#endif
|
||||
|
||||
#ifndef __VALIDAT_H
|
||||
#include <validate.h>
|
||||
#endif
|
||||
|
||||
#ifndef __BA1201_H
|
||||
#include "ba1201.h"
|
||||
#endif
|
||||
|
||||
|
||||
/*
|
||||
long TRec_sheet::items() const
|
||||
{
|
||||
return (_items);
|
||||
}
|
||||
*/
|
||||
|
||||
TRec_sheet::TRec_sheet(const char* title, const char* head) : TSheet(-1,-1,title,head, 0x6)
|
||||
{
|
||||
_dir = new TDir;
|
||||
_rec = new TTrec;
|
||||
|
||||
//_items = _rec->num_fields();
|
||||
_items = 200;
|
||||
_rec->get(1, _nordir);
|
||||
}
|
||||
|
||||
TRec_sheet::~TRec_sheet()
|
||||
{
|
||||
delete _dir;
|
||||
delete _rec;
|
||||
}
|
||||
|
||||
|
||||
void TRec_sheet::page_build(long first, byte rows)
|
||||
{
|
||||
TToken_string l;
|
||||
TString dep(256);
|
||||
RecDes *rdes;
|
||||
|
||||
_rec->get(1, _nordir);
|
||||
|
||||
|
||||
for (byte i = 0; i < rows; i++)
|
||||
{
|
||||
dep << (int)i+1+first; // Numero progressivo del file
|
||||
l = dep.right_just(3);
|
||||
dep = "";
|
||||
rdes = _rec->rec();
|
||||
l.add((const char*)rdes->Fd[i].Name);
|
||||
l.add((const char*)rdes->Fd[i].TypeF);
|
||||
dep << rdes->Fd[i].Name;
|
||||
l.add ( (const char*) dep);
|
||||
dep = "";
|
||||
dep << rdes->Fd[i].Dec;
|
||||
l.add( (const char*) dep);
|
||||
|
||||
set_row(l, i);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
48
ba/ba1201.h
48
ba/ba1201.h
@ -1,48 +0,0 @@
|
||||
#ifndef __BA1201_H
|
||||
#define __BA1201_H
|
||||
|
||||
#ifndef __SHEET_H
|
||||
#include <sheet.h>
|
||||
#endif
|
||||
|
||||
#ifndef __FILES_H
|
||||
#include <files.h>
|
||||
#endif
|
||||
|
||||
#ifndef __MASK_H
|
||||
#include <mask.h>
|
||||
#endif
|
||||
|
||||
#include <urldefid.h>
|
||||
#include <validate.h>
|
||||
|
||||
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TRec_sheet
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TRec_sheet : public TSheet
|
||||
{
|
||||
TTrec *_rec;
|
||||
TDir *_dir;
|
||||
RecDes _s_rec;
|
||||
long _items;
|
||||
|
||||
protected:
|
||||
void page_build(long first, byte rows);
|
||||
|
||||
public:
|
||||
TRec_sheet(const char* title, const char* head);
|
||||
~TRec_sheet();
|
||||
TDir* dir() const { return _dir; }
|
||||
TTrec* rec() const { return _rec; }
|
||||
|
||||
long items() const { return _items; }
|
||||
};
|
||||
|
||||
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
@ -1,8 +0,0 @@
|
||||
#include <xvt.h>
|
||||
extern int test_messages(int argc, char** argv);
|
||||
|
||||
int main(int argc, char** argv)
|
||||
{
|
||||
// simple y claro
|
||||
return test_messages(argc, argv);
|
||||
}
|
||||
13
ba/ba21.url
13
ba/ba21.url
@ -1,13 +0,0 @@
|
||||
#include <default.url>
|
||||
|
||||
MENU TASK_MENUBAR
|
||||
SUBMENU MENU_FILE "~File"
|
||||
ITEM BAR_ITEM(1) "~Selezione"
|
||||
|
||||
|
||||
MENUBAR MENU_BAR(1)
|
||||
|
||||
MENU MENU_BAR(1)
|
||||
SUBMENU MENU_FILE "~File"
|
||||
ITEM BAR_ITEM(1) "~Selezione"
|
||||
|
||||
88
ba/ba2100.h
88
ba/ba2100.h
@ -1,88 +0,0 @@
|
||||
// Maschera di edit dei form
|
||||
|
||||
#define F_CLASS 101
|
||||
#define F_KEY 102
|
||||
#define F_Y 103
|
||||
#define F_X 104
|
||||
#define F_WIDTH 105
|
||||
#define F_HEIGHT 106
|
||||
#define F_PROMPT 107
|
||||
#define F_HIDDEN 108
|
||||
#define F_DISABLED 109
|
||||
#define F_AUTOMAGIC 110
|
||||
#define F_PICTURE 111
|
||||
#define F_ID 112
|
||||
#define F_FONT 113
|
||||
#define F_SIZE 114
|
||||
#define F_FLEN 115
|
||||
#define F_CTP 117
|
||||
#define F_IPX 118
|
||||
#define F_IPY 119
|
||||
#define F_FPX 120
|
||||
|
||||
#define F_GROUP 130
|
||||
#define F_GROUP1 131
|
||||
#define F_GROUP2 132
|
||||
#define F_GROUP3 133
|
||||
#define F_GROUP4 134
|
||||
#define F_GROUP5 135
|
||||
#define F_GROUP6 136
|
||||
#define F_GROUP7 137
|
||||
#define F_GROUP8 138
|
||||
#define F_GROUP9 139
|
||||
#define F_GROUP10 140
|
||||
#define F_GROUP11 141
|
||||
#define F_GROUP12 142
|
||||
#define F_GROUP13 143
|
||||
#define F_GROUP14 144
|
||||
#define F_GROUP15 145
|
||||
#define F_GROUP16 146
|
||||
#define F_GROUP17 147
|
||||
#define F_GROUP18 148
|
||||
#define F_GROUP19 149
|
||||
#define F_GROUP20 150
|
||||
#define F_GROUP21 151
|
||||
#define F_GROUP22 152
|
||||
#define F_GROUP23 153
|
||||
#define F_GROUP24 154
|
||||
|
||||
// date format section
|
||||
#define F_DFORMAT 160
|
||||
#define F_DDAY 161
|
||||
#define F_DMONTH 162
|
||||
#define F_DYEAR 163
|
||||
#define F_DSEP 164
|
||||
#define F_DEXAMPLE 165
|
||||
#define F_FILE 166
|
||||
|
||||
// file/field references
|
||||
#define F_FIELDREF1 170
|
||||
#define F_FILE1 171
|
||||
#define F_BUT_FILE1 172
|
||||
#define F_FIELD1 173
|
||||
#define F_BUT_FIELD1 174
|
||||
#define F_FROM1 175
|
||||
#define F_TO1 176
|
||||
|
||||
#define F_FIELDREF2 180
|
||||
#define F_FILE2 181
|
||||
#define F_BUT_FILE2 182
|
||||
#define F_FIELD2 183
|
||||
#define F_BUT_FIELD2 184
|
||||
#define F_FROM2 185
|
||||
#define F_TO2 186
|
||||
|
||||
#define F_ITEMS 200
|
||||
#define F_DECIMALS 206
|
||||
#define F_CAPTION 301
|
||||
|
||||
// maschera scelta form
|
||||
#define F_BASE 401
|
||||
#define F_CODE 402
|
||||
#define F_DESC 403
|
||||
|
||||
// maschera scelta profilo per E.C.
|
||||
// utilizza anche F_BASE
|
||||
#define F_CODEPR 404
|
||||
#define F_CODEL 405
|
||||
#define F_DESCPR 406
|
||||
@ -1,35 +0,0 @@
|
||||
#include "batb%ais.h"
|
||||
|
||||
PAGE "Codici attivit… ISTAT" -1 -1 78 7
|
||||
STRING FLD_TABAIS_CODTAB 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice "
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
HELP "Inserire il codice attivit…"
|
||||
USE %AIS
|
||||
INPUT CODTAB FLD_TABAIS_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Attivit… " S0
|
||||
OUTPUT FLD_TABAIS_CODTAB CODTAB
|
||||
KEY 1
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
STRING FLD_TABAIS_S0 40
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
FIELD LF_TABCOM->S0
|
||||
HELP "Inserire la descrizione dell'attivita'"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8
|
||||
BEGIN
|
||||
PROMPT 45 5 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 8
|
||||
BEGIN
|
||||
PROMPT 56 5 ""
|
||||
END
|
||||
|
||||
ENDMASK
|
||||
301
ba/ba6000a.uml
301
ba/ba6000a.uml
@ -1,301 +0,0 @@
|
||||
#include "ba6100a.h"
|
||||
#include <lffiles.h>
|
||||
|
||||
PAGE "Definizione Stampe" -1 -1 70 17
|
||||
|
||||
RADIOBUTTON RDB_BA6_TYPE 26
|
||||
BEGIN
|
||||
PROMPT 4 1 "Oggetto"
|
||||
HELP "Selezionare l'archivio che si desidera stampare"
|
||||
ITEM "0|Persone Fisiche"
|
||||
MESSAGE HIDE,FLD_DITTE_RAGSOCFR|HIDE,FLD_DITTE_RAGSOCTO
|
||||
MESSAGE HIDE,FLD_ANG_CODFR|HIDE,FLD_ANG_CODTO|HIDE,FLD_ANG_RAGSOCFR
|
||||
MESSAGE HIDE,FLD_ANG_RAGSOCTO|HIDE,FLD_DITTE_CODTO
|
||||
MESSAGE SHOW,FLD_ANF_CODFR|SHOW,FLD_ANF_CODTO|SHOW,FLD_ANF_RAGSOCFR
|
||||
MESSAGE SHOW,FLD_ANF_RAGSOCTO|HIDE,FLD_DITTE_CODFR
|
||||
MESSAGE ENABLE,CHK_BA6_INCLDI
|
||||
ITEM "1|Persone Giuridiche"
|
||||
MESSAGE HIDE,FLD_DITTE_CODTO|HIDE,FLD_DITTE_RAGSOCFR
|
||||
MESSAGE HIDE,FLD_DITTE_RAGSOCTO|HIDE,FLD_ANF_CODFR|HIDE,FLD_ANF_CODTO
|
||||
MESSAGE HIDE,FLD_ANF_RAGSOCFR|HIDE,FLD_ANF_RAGSOCTO
|
||||
MESSAGE SHOW,FLD_ANG_CODFR|SHOW,FLD_ANG_CODTO|SHOW,FLD_ANG_RAGSOCFR
|
||||
MESSAGE SHOW,FLD_ANG_RAGSOCTO|HIDE,FLD_DITTE_CODFR
|
||||
MESSAGE ENABLE,CHK_BA6_INCLDI
|
||||
MESSAGE DISABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE
|
||||
MESSAGE ENABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE
|
||||
ITEM "2|Ditte"
|
||||
MESSAGE HIDE,FLD_ANF_CODFR|HIDE,FLD_ANF_CODTO
|
||||
MESSAGE HIDE,FLD_ANF_RAGSOCFR|HIDE,FLD_ANF_RAGSOCTO
|
||||
MESSAGE HIDE,FLD_ANG_CODFR|HIDE,FLD_ANG_CODTO
|
||||
MESSAGE HIDE,FLD_ANG_RAGSOCFR|HIDE,FLD_ANG_RAGSOCTO
|
||||
MESSAGE SHOW,FLD_DITTE_CODFR|SHOW,FLD_DITTE_CODTO
|
||||
MESSAGE SHOW,FLD_DITTE_RAGSOCFR|SHOW,FLD_DITTE_RAGSOCTO
|
||||
MESSAGE DISABLE,CHK_BA6_INCLDI
|
||||
MESSAGE RESET,CHK_BA6_INCLDI
|
||||
MESSAGE ENABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE
|
||||
END
|
||||
|
||||
RADIOBUTTON RDB_BA6_SORT 26
|
||||
PROMPT 4 6 "Ordinamento"
|
||||
HELP "Selezionare il tipo di ordinamento dei record stampati"
|
||||
ITEM "1|per Codice"
|
||||
MESSAGE DISABLE,FLD_ANF_RAGSOCFR|DISABLE,FLD_ANF_RAGSOCTO
|
||||
MESSAGE RESET,FLD_ANF_RAGSOCFR|RESET,FLD_ANF_RAGSOCTO
|
||||
MESSAGE DISABLE,FLD_ANG_RAGSOCFR|DISABLE,FLD_ANG_RAGSOCTO
|
||||
MESSAGE RESET,FLD_ANG_RAGSOCFR|RESET,FLD_ANG_RAGSOCTO
|
||||
MESSAGE DISABLE,FLD_DITTE_RAGSOCFR|DISABLE,FLD_DITTE_RAGSOCTO
|
||||
MESSAGE RESET,FLD_DITTE_RAGSOCFR|RESET,FLD_DITTE_RAGSOCTO
|
||||
MESSAGE ENABLE,FLD_ANF_CODFR|ENABLE,FLD_ANF_CODTO
|
||||
MESSAGE ENABLE,FLD_ANG_CODFR|ENABLE,FLD_ANG_CODTO
|
||||
MESSAGE ENABLE,FLD_DITTE_CODFR|ENABLE,FLD_DITTE_CODTO
|
||||
ITEM "2|per Ragione Sociale"
|
||||
MESSAGE DISABLE,FLD_ANF_CODFR|DISABLE,FLD_ANF_CODTO
|
||||
MESSAGE RESET,FLD_ANF_CODFR|RESET,FLD_ANF_CODTO
|
||||
MESSAGE DISABLE,FLD_ANG_CODFR|DISABLE,FLD_ANG_CODTO
|
||||
MESSAGE RESET,FLD_ANG_CODFR|RESET,FLD_ANG_CODTO
|
||||
MESSAGE DISABLE,FLD_DITTE_CODFR|DISABLE,FLD_DITTE_CODTO
|
||||
MESSAGE RESET,FLD_DITTE_CODFR|RESET,FLD_DITTE_CODTO
|
||||
MESSAGE ENABLE,FLD_ANF_RAGSOCFR|ENABLE,FLD_ANF_RAGSOCTO
|
||||
MESSAGE ENABLE,FLD_ANG_RAGSOCFR|ENABLE,FLD_ANG_RAGSOCTO
|
||||
MESSAGE ENABLE,FLD_DITTE_RAGSOCFR|ENABLE,FLD_DITTE_RAGSOCTO
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 47 3
|
||||
BEGIN
|
||||
PROMPT 2 13 "Stampa"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 34 10
|
||||
BEGIN
|
||||
PROMPT 32 1 "Selezione "
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 34 5 "da Ragione Sociale"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 34 7 "a Ragione Sociale"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 34 2 "da Codice"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 48 2 "a Codice"
|
||||
END
|
||||
|
||||
STRING FLD_ANF_CODFR 5
|
||||
BEGIN
|
||||
PROMPT 34 3 ""
|
||||
USE LF_ANAG KEY 1
|
||||
INPUT TIPOA "F"
|
||||
INPUT CODANAGR FLD_ANF_CODFR
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Codice Fiscale " COFI
|
||||
DISPLAY "Ragione sociale " RAGSOC
|
||||
OUTPUT FLD_ANF_CODFR CODANAGR
|
||||
OUTPUT FLD_ANF_RAGSOCFR RAGSOC
|
||||
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
|
||||
END
|
||||
|
||||
STRING FLD_ANF_CODTO 5
|
||||
BEGIN
|
||||
PROMPT 48 3 ""
|
||||
COPYUSE FLD_ANF_CODFR
|
||||
INPUT TIPOA "F"
|
||||
INPUT CODANAGR FLD_ANF_CODTO
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Codice Fiscale " COFI
|
||||
DISPLAY "Ragione sociale " RAGSOC
|
||||
OUTPUT FLD_ANF_CODTO CODANAGR
|
||||
OUTPUT FLD_ANF_RAGSOCTO RAGSOC
|
||||
HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
|
||||
END
|
||||
|
||||
STRING FLD_ANF_RAGSOCFR 29
|
||||
BEGIN
|
||||
PROMPT 34 6 ""
|
||||
USE LF_ANAG KEY 2
|
||||
INPUT TIPOA "F"
|
||||
INPUT RAGSOC FLD_ANF_RAGSOCFR
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Codice Fiscale " COFI
|
||||
DISPLAY "Ragione sociale " RAGSOC
|
||||
OUTPUT FLD_ANF_RAGSOCFR RAGSOC
|
||||
OUTPUT FLD_ANF_CODFR CODANAGR
|
||||
HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio"
|
||||
END
|
||||
|
||||
STRING FLD_ANF_RAGSOCTO 29
|
||||
BEGIN
|
||||
PROMPT 34 8 ""
|
||||
COPYUSE FLD_ANF_RAGSOCFR
|
||||
INPUT RAGSOC FLD_ANF_RAGSOCTO
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Codice Fiscale " COFI
|
||||
DISPLAY "Ragione sociale " RAGSOC
|
||||
OUTPUT FLD_ANF_RAGSOCTO RAGSOC
|
||||
OUTPUT FLD_ANF_CODTO CODANAGR
|
||||
HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
|
||||
END
|
||||
|
||||
STRING FLD_ANG_CODFR 5
|
||||
BEGIN
|
||||
PROMPT 34 3 ""
|
||||
FLAGS "H"
|
||||
COPYUSE FLD_ANF_CODFR
|
||||
INPUT TIPOA "G"
|
||||
INPUT CODANAGR FLD_ANG_CODPR
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Codice Fiscale " COFI
|
||||
DISPLAY "Ragione sociale " RAGSOC
|
||||
OUTPUT FLD_ANG_CODFR CODANAGR
|
||||
OUTPUT FLD_ANG_RAGSOCFR RAGSOC
|
||||
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
|
||||
END
|
||||
|
||||
STRING FLD_ANG_CODTO 5
|
||||
BEGIN
|
||||
PROMPT 48 3 ""
|
||||
FLAGS "H"
|
||||
COPYUSE FLD_ANF_CODFR
|
||||
INPUT TIPOA "G"
|
||||
INPUT CODANAGR FLD_ANG_CODTO
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Codice Fiscale " COFI
|
||||
DISPLAY "Ragione sociale " RAGSOC
|
||||
OUTPUT FLD_ANG_CODTO CODANAGR
|
||||
OUTPUT FLD_ANG_RAGSOCTO RAGSOC
|
||||
HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
|
||||
END
|
||||
|
||||
STRING FLD_ANG_RAGSOCFR 29
|
||||
BEGIN
|
||||
PROMPT 34 6 ""
|
||||
FLAGS "H"
|
||||
USE LF_ANAG KEY 2 SELECT 'TIPOA=="G"'
|
||||
INPUT RAGSOC FLD_ANG_RAGSOCFR
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Codice Fiscale " COFI
|
||||
DISPLAY "Ragione sociale " RAGSOC
|
||||
OUTPUT FLD_ANG_RAGSOCFR RAGSOC
|
||||
OUTPUT FLD_ANG_CODFR CODANAGR
|
||||
HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio"
|
||||
END
|
||||
|
||||
STRING FLD_ANG_RAGSOCTO 29
|
||||
BEGIN
|
||||
PROMPT 34 8 ""
|
||||
FLAGS "H"
|
||||
COPYUSE FLD_ANG_RAGSOCFR
|
||||
INPUT RAGSOC FLD_ANG_RAGSOCTO
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Codice Fiscale " COFI
|
||||
DISPLAY "Ragione sociale " RAGSOC
|
||||
OUTPUT FLD_ANG_RAGSOCTO RAGSOC
|
||||
OUTPUT FLD_ANG_CODTO CODANAGR
|
||||
HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
|
||||
END
|
||||
|
||||
STRING FLD_DITTE_CODFR 5
|
||||
BEGIN
|
||||
PROMPT 34 3 ""
|
||||
FLAGS "H"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA FLD_DITTE_CODFR
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Persona Rif. " PERRIF
|
||||
DISPLAY "Ragione sociale " RAGSOC
|
||||
OUTPUT FLD_DITTE_CODFR CODDITTA
|
||||
OUTPUT FLD_DITTE_RAGSOCFR RAGSOC
|
||||
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
|
||||
END
|
||||
|
||||
STRING FLD_DITTE_CODTO 5
|
||||
BEGIN
|
||||
PROMPT 48 3 ""
|
||||
FLAGS "H"
|
||||
COPYUSE FLD_DITTE_CODFR
|
||||
INPUT CODDITTA FLD_DITTE_CODFR
|
||||
INPUT RAGSOC FLD_ANF_RAGSOCFR
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Persona Rif. " PERRIF
|
||||
DISPLAY "Ragione sociale " RAGSOC
|
||||
OUTPUT FLD_DITTE_RAGSOCTO RAGSOC
|
||||
OUTPUT FLD_DITTE_CODTO CODDITTA
|
||||
HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
|
||||
END
|
||||
|
||||
STRING FLD_DITTE_RAGSOCFR 29
|
||||
BEGIN
|
||||
PROMPT 34 6 ""
|
||||
FLAGS "H"
|
||||
USE LF_NDITTE KEY 2
|
||||
INPUT RAGSOC FLD_DITTE_RAGSOCFR
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Persona Rif. " PERRIF
|
||||
DISPLAY "Ragione sociale " RAGSOC
|
||||
OUTPUT FLD_DITTE_RAGSOCFR RAGSOC
|
||||
OUTPUT FLD_DITTE_CODFR CODDITTA
|
||||
HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio"
|
||||
END
|
||||
|
||||
STRING FLD_DITTE_RAGSOCTO 29
|
||||
BEGIN
|
||||
PROMPT 34 8 ""
|
||||
FLAGS "H"
|
||||
COPYUSE FLD_DITTE_RAGSOCFR
|
||||
INPUT CODDITTA FLD_DITTE_RAGSOCTO
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Persona Rif. " PERRIF
|
||||
DISPLAY "Ragione sociale " RAGSOC
|
||||
OUTPUT FLD_DITTE_RAGSOCTO RAGSOC
|
||||
OUTPUT FLD_DITTE_CODTO CODDITTA
|
||||
HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_BA6_INCLDI
|
||||
BEGIN
|
||||
PROMPT 4 10 "Includi ditte"
|
||||
HELP "Selezionare per includere informazioni relative alle ditte"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_BA6_PRINTONE
|
||||
BEGIN
|
||||
PROMPT 4 11 "Stampa un solo record"
|
||||
HELP "Selezionare per stampare soltanto il record nel campo DA"
|
||||
END
|
||||
|
||||
BUTTON BUT_BA6_ELENCO 6
|
||||
BEGIN
|
||||
PROMPT 4 14 "Elenco"
|
||||
END
|
||||
|
||||
BUTTON BUT_BA6_SCHEDE 6
|
||||
BEGIN
|
||||
PROMPT 15 14 "Schede"
|
||||
END
|
||||
|
||||
BUTTON BUT_BA6_RUBRICHE 8
|
||||
BEGIN
|
||||
PROMPT 26 14 "Rubriche"
|
||||
END
|
||||
|
||||
BUTTON BUT_BA6_ETICHETTE 9
|
||||
BEGIN
|
||||
PROMPT 37 14 "Etichette"
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL
|
||||
BEGIN
|
||||
PROMPT 53 14 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
107
ba/ba6000b.uml
107
ba/ba6000b.uml
@ -1,107 +0,0 @@
|
||||
#include "ba6100b.h"
|
||||
PAGE "Impostazione Etichette" -1 -1 57 15
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 39 1 "Riga"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 47 1 "Colonna"
|
||||
END
|
||||
|
||||
RADIOBUTTON RDB_BA6B_INDIR 23
|
||||
BEGIN
|
||||
PROMPT 4 1 "Indirizzo"
|
||||
ITEM "1|Residenza"
|
||||
ITEM "2|Domicilio fiscale"
|
||||
ITEM "3|Corrispondenza"
|
||||
HELP "Selezionare l'indirizzo da includere nelle etichette"
|
||||
END
|
||||
|
||||
NUMBER FLD_BA6B_INDROW 4
|
||||
BEGIN
|
||||
PROMPT 39 2 ""
|
||||
HELP "N. di riga dove posizionare l'indirizzo"
|
||||
END
|
||||
|
||||
NUMBER FLD_BA6B_INDCOL 4
|
||||
BEGIN
|
||||
PROMPT 47 2 ""
|
||||
HELP "N. di colonna dove posizionare l'indirizzo"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_BA6B_PIVA
|
||||
BEGIN
|
||||
PROMPT 4 7 "Partita IVA/ Codice fiscale"
|
||||
MESSAGE FALSE DISABLE,FLD_BA6B_PIVROW|DISABLE,FLD_BA6B_PIVCOL
|
||||
MESSAGE TRUE ENABLE,FLD_BA6B_PIVROW|ENABLE,FLD_BA6B_PIVCOL
|
||||
HELP "Questo campo puo' assumere solamente i valori vero e falso"
|
||||
END
|
||||
|
||||
NUMBER FLD_BA6B_PIVROW 4
|
||||
BEGIN
|
||||
PROMPT 39 7 ""
|
||||
FLAGS "D"
|
||||
HELP "N. di riga dove posizionare la partita IVA"
|
||||
END
|
||||
|
||||
NUMBER FLD_BA6B_PIVCOL 4
|
||||
BEGIN
|
||||
PROMPT 47 7 ""
|
||||
FLAGS "D"
|
||||
HELP "N. di colonna dove posizionare la partita IVA"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_BA6B_CODICE
|
||||
BEGIN
|
||||
PROMPT 4 8 "Includi codice anagrafico"
|
||||
MESSAGE FALSE DISABLE,FLD_BA6B_CODROW|DISABLE,FLD_BA6B_CODCOL
|
||||
MESSAGE TRUE ENABLE,FLD_BA6B_CODROW|ENABLE,FLD_BA6B_CODCOL
|
||||
HELP "Questo campo puo' assumere solamente i valori vero e falso"
|
||||
END
|
||||
|
||||
NUMBER FLD_BA6B_CODROW 4
|
||||
BEGIN
|
||||
PROMPT 39 8 ""
|
||||
FLAGS "D"
|
||||
HELP "N. di riga dove posizionare il codice"
|
||||
END
|
||||
|
||||
NUMBER FLD_BA6B_CODCOL 4
|
||||
BEGIN
|
||||
PROMPT 47 8 ""
|
||||
FLAGS "D"
|
||||
HELP "N. di colonna dove posizionare il codice"
|
||||
END
|
||||
|
||||
NUMBER FLD_BA6B_TOTROW 4
|
||||
BEGIN
|
||||
PROMPT 4 10 "Numero totale di righe e colonne "
|
||||
END
|
||||
|
||||
NUMBER FLD_BA6B_TOTCOL 4
|
||||
BEGIN
|
||||
PROMPT 47 10 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8
|
||||
BEGIN
|
||||
PROMPT 35 12 "Stampa"
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 7
|
||||
BEGIN
|
||||
PROMPT 46 12 ""
|
||||
END
|
||||
|
||||
BUTTON BUT_BA6B_RESET 5
|
||||
BEGIN
|
||||
PROMPT 22 12 "Reset"
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
1300
ba/ba6100.sav
1300
ba/ba6100.sav
File diff suppressed because it is too large
Load Diff
@ -1,43 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa attivita'" -1 -1 50 8
|
||||
|
||||
STRING F_INIZIO1 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD CODTAB
|
||||
USE %AIS
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Attivit…@40" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 5
|
||||
BEGIN
|
||||
PROMPT 3 3 "A codice "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Assoggettamento" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %ASF
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,71 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa banche" -1 -1 56 8
|
||||
|
||||
STRING F_INIZIO1 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "DA codice (ABI) "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice d'inizio "
|
||||
FIELD LF_TABCOM->CODTAB[1,5]
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] F_INIZIO1
|
||||
INPUT CODTAB[6,10] F_INIZIO2
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
DISPLAY "Istituto@50" S0
|
||||
DISPLAY "Dipendenza@35" S1
|
||||
OUTPUT F_INIZIO1 CODTAB[1,5]
|
||||
OUTPUT F_INIZIO2 CODTAB[6,10]
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_INIZIO2 5
|
||||
BEGIN
|
||||
PROMPT 28 1 "DA codice (CAB) "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice d'inizio "
|
||||
FIELD LF_TABCOM->CODTAB[6,10]
|
||||
COPY ALL F_INIZIO1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
|
||||
STRING F_FINE1 5
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice (ABI) "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice di fine "
|
||||
FIELD LF_TABCOM->CODTAB[1,5]
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB[1,5] F_FINE1
|
||||
INPUT CODTAB[6,10] F_FINE2
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB[1,5]
|
||||
OUTPUT F_FINE2 CODTAB[6,10]
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
|
||||
STRING F_FINE2 5
|
||||
BEGIN
|
||||
PROMPT 28 3 "A codice (CAB) "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice di fine "
|
||||
FIELD LF_TABCOM->CODTAB[6,10]
|
||||
COPY ALL F_FINE1
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Categorie contabili" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
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 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Categorie finanziarie" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %CFI
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,43 +0,0 @@
|
||||
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa condizioni di pagamento" -1 -1 50 8
|
||||
STRING F_INIZIO1 4
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %CPG
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,43 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa cariche sociali" -1 -1 50 8
|
||||
|
||||
STRING F_INIZIO1 2
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %CRS
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Carica@25" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 2
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,45 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Categorie Vendita" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
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 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,41 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa descrizioni di prima nota" -1 -1 50 8
|
||||
|
||||
STRING F_INIZIO1 5
|
||||
BEGIN
|
||||
PROMPT 4 1 "Da codice "
|
||||
FLAGS "U"
|
||||
USE %DPN
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
FIELD CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 5
|
||||
BEGIN
|
||||
PROMPT 4 3 "A codice "
|
||||
FLAGS "U"
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
FIELD CODTAB
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,41 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa libri sociali" -1 -1 50 8
|
||||
|
||||
NUMBER F_INIZIO1 2
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
USE %ITL
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Nome libro@50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
FLAGS "R"
|
||||
FIELD CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_FINE1 2
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
FIELD CODTAB
|
||||
FLAGS "R"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,43 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa codici IVA" -1 -1 50 8
|
||||
|
||||
STRING F_INIZIO1 4
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "R"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se vuoto significa dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %IVA
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "R"
|
||||
HELP "Inserire il codice di fine. Se vuoto significa fino all'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
124
ba/bast%ivd.uml
124
ba/bast%ivd.uml
@ -1,124 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Tabella IV direttiva CEE" -1 -1 68 9
|
||||
|
||||
GROUPBOX DLG_NULL 66 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bDa codice"
|
||||
END
|
||||
|
||||
STRING F_INIZIO1 1
|
||||
BEGIN
|
||||
PROMPT 2 2 "Sezione "
|
||||
FLAGS "U"
|
||||
HELP "Codice da cui iniziare la stampa"
|
||||
FIELD CODTAB[1,1]
|
||||
USE %IVD
|
||||
INPUT CODTAB[1,1] F_INIZIO1
|
||||
INPUT CODTAB[2,2] F_INIZIO2
|
||||
INPUT CODTAB[3,6] F_INIZIO3
|
||||
INPUT CODTAB[7,8] F_INIZIO4
|
||||
DISPLAY "Sezione" CODTAB[1,1]
|
||||
DISPLAY "Lettera" CODTAB[2,2]
|
||||
DISPLAY "Classe " CODTAB[3,6]
|
||||
DISPLAY "Numero" CODTAB[7,8]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB[1,1]
|
||||
OUTPUT F_INIZIO2 CODTAB[2,2]
|
||||
OUTPUT F_INIZIO3 CODTAB[3,6]
|
||||
OUTPUT F_INIZIO4 CODTAB[7,8]
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_INIZIO2 1
|
||||
BEGIN
|
||||
PROMPT 17 2 "Lettera "
|
||||
FLAGS "U"
|
||||
FIELD CODTAB[2,2]
|
||||
COPY ALL F_INIZIO1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_INIZIO3 8 4
|
||||
BEGIN
|
||||
PROMPT 31 2 "Classe "
|
||||
FLAGS "UM"
|
||||
FIELD CODTAB[3,6]
|
||||
COPY ALL F_INIZIO1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_INIZIO4 2
|
||||
BEGIN
|
||||
PROMPT 52 2 "Numero "
|
||||
FLAGS "RZ"
|
||||
FIELD CODTAB[7,8]
|
||||
COPY ALL F_INIZIO1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 66 3
|
||||
BEGIN
|
||||
PROMPT 1 4 "@bA Codice"
|
||||
END
|
||||
|
||||
STRING F_FINE1 1
|
||||
BEGIN
|
||||
PROMPT 2 5 "Sezione "
|
||||
HELP "Codice finale da stampare"
|
||||
FIELD CODTAB[1,1]
|
||||
FLAGS "U"
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB[1,1] F_FINE1
|
||||
INPUT CODTAB[2,2] F_FINE2
|
||||
INPUT CODTAB[3,6] F_FINE3
|
||||
INPUT CODTAB[7,8] F_FINE4
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB[1,1]
|
||||
OUTPUT F_FINE2 CODTAB[2,2]
|
||||
OUTPUT F_FINE3 CODTAB[3,6]
|
||||
OUTPUT F_FINE4 CODTAB[7,8]
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_FINE2 1
|
||||
BEGIN
|
||||
PROMPT 17 5 "Lettera "
|
||||
FLAGS "U"
|
||||
COPY ALL F_FINE1
|
||||
FIELD CODTAB[2,2]
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_FINE3 8 4
|
||||
BEGIN
|
||||
PROMPT 31 5 "Classe "
|
||||
FLAGS "UM"
|
||||
FIELD CODTAB[3,6]
|
||||
COPY ALL F_FINE1
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_FINE4 2
|
||||
BEGIN
|
||||
PROMPT 52 5 "Numero "
|
||||
FLAGS "RZ"
|
||||
FIELD CODTAB[7,8]
|
||||
COPY ALL F_FINE1
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_PRINT 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Legali" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
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 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa listini" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %LIS
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,41 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa lingue" -1 -1 50 8
|
||||
|
||||
STRING F_INIZIO1 1
|
||||
BEGIN
|
||||
PROMPT 4 1 "Da codice "
|
||||
FLAGS "U"
|
||||
USE %LNG
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
FIELD CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 1
|
||||
BEGIN
|
||||
PROMPT 4 3 "A codice "
|
||||
FLAGS "U"
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
FILED CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Modalita' di spedizione" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
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 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Note documento" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
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 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,44 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Codici note" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %NOT
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Destinazione@30" S0
|
||||
DISPLAY "Blocca imm." B0
|
||||
DISPLAY "Documento" B1
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,70 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa vecchi codici attivita'" -1 -1 60 8
|
||||
|
||||
STRING F_INIZIO1 4
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice d'inizio "
|
||||
USE %OIS
|
||||
FIELD CODTAB[1,4]
|
||||
INPUT CODTAB[1,4] F_INIZIO1
|
||||
INPUT CODTAB[5,] F_INIZIO2
|
||||
DISPLAY "Codice" CODTAB[1,4]
|
||||
DISPLAY "Subcodice" CODTAB[5,]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB[1,4]
|
||||
OUTPUT F_INIZIO2 CODTAB[5,]
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_INIZIO2 1
|
||||
BEGIN
|
||||
PROMPT 28 1 "subcodice "
|
||||
FLAGS "U"
|
||||
FIELD CODTAB[5,]
|
||||
HELP "Inserire il subcodice d'inizio "
|
||||
COPY ALL F_INIZIO1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
|
||||
STRING F_FINE1 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice di fine "
|
||||
COPY USE F_INIZIO1
|
||||
FIELD CODTAB[1,4]
|
||||
INPUT CODTAB[1,4] F_FINE1
|
||||
INPUT CODTAB[5,] F_FINE2
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB[1,4]
|
||||
OUTPUT F_FINE2 CODTAB[5,]
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
|
||||
STRING F_FINE2 1
|
||||
BEGIN
|
||||
PROMPT 28 3 "subcodice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il subcodice di fine "
|
||||
FIELD CODTAB[5,]
|
||||
COPY ALL F_FINE1
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Modalita' di consegna" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
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 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Spese da addebitare" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %SAD
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@20" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,43 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa sconti incondizionati" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %SCO
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Percentuale" R0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,43 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa stati" -1 -1 50 8
|
||||
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %STA
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Stato@50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,41 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa codici statistici" -1 -1 50 8
|
||||
|
||||
STRING F_INIZIO1 7
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %STT
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 7
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Titoli onorifici" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
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 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,41 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa tipi documenti" -1 -1 50 8
|
||||
|
||||
STRING F_INIZIO1 2
|
||||
BEGIN
|
||||
PROMPT 4 1 "Tipo documento "
|
||||
USE %TPD
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Tipo" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
FLAGS "U"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 2
|
||||
BEGIN
|
||||
PROMPT 4 3 "Tipo documento "
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
FLAGS "U"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,41 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa uffici concessione" -1 -1 50 8
|
||||
|
||||
NUMBER F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 3 1 "Da codice "
|
||||
USE %UCC
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Ufficio@30" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
GROUP 1
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
NUMBER F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 3 3 "A codice "
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
GROUP 2
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,41 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa centri servizio" -1 -1 50 8
|
||||
|
||||
NUMBER F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 3 1 "Da codice "
|
||||
USE %UCS
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
FIELD CODTAB
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
NUMBER F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 4 3 "A codice "
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
FIELD CODTAB
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,41 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa uffici esattoria" -1 -1 50 8
|
||||
|
||||
NUMBER F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 3 1 "Da codice "
|
||||
USE %UES
|
||||
FLAGS "RZ"
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@25" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 3 3 "A codice "
|
||||
COPY USE F_INIZIO1
|
||||
FLAGS "RZ"
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,41 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Uffici Imposte Dirette" -1 -1 50 8
|
||||
|
||||
NUMBER F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 3 1 "Da codice "
|
||||
USE %UID
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
GROUP 1
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
NUMBER F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 3 3 "A codice "
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,41 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Uffici IVA" -1 -1 50 8
|
||||
|
||||
NUMBER F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 3 1 "Da codice "
|
||||
USE %UIV
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
FLAGS "RZ"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
END
|
||||
|
||||
NUMBER F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 3 3 "A codice "
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
FLAGS "RZ"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,41 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Uffici registro" -1 -1 50 8
|
||||
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 3 1 "Da codice "
|
||||
USE %URE
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
FLAGS "RZ"
|
||||
FIELD CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 4 3 "A codice "
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
FLAGS "RZ"
|
||||
FIELD CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa valute" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %VAL
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Valuta@25" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,44 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa vettori" -1 -1 50 8
|
||||
|
||||
NUMBER F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %VET
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice vettore" CODTAB
|
||||
DISPLAY "Ragione sociale@50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
KEY 1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -3 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Zone" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
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 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,43 +0,0 @@
|
||||
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa condizioni di pagamento" -1 -1 50 8
|
||||
STRING F_INIZIO1 4
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "UZ"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD CODTAB
|
||||
USE %CPG
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "UZ"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,42 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa Spedizionieri" -1 -1 50 8
|
||||
STRING F_INIZIO1 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %CSP
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@30" S0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 5
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,43 +0,0 @@
|
||||
#include "ba3200.h"
|
||||
|
||||
PAGE "Stampa sconti incondizionati" -1 -1 50 8
|
||||
STRING F_INIZIO1 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Da codice "
|
||||
FLAGS "U"
|
||||
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
USE %SCO
|
||||
INPUT CODTAB F_INIZIO1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Percentuale" R0
|
||||
OUTPUT F_INIZIO1 CODTAB
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_FINE1 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "A codice "
|
||||
FLAGS "U"
|
||||
HELP "Codice di fine. Vuoto = fine archivio"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
COPY USE F_INIZIO1
|
||||
INPUT CODTAB F_FINE1
|
||||
COPY DISPLAY F_INIZIO1
|
||||
OUTPUT F_FINE1 CODTAB
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,4 +0,0 @@
|
||||
#define FLD_TABAIS_CODTAB 100
|
||||
#define FLD_TABAIS_S0 101
|
||||
#define FLD_TABAIS_S1 102
|
||||
#define DLG_DEL 105
|
||||
@ -1,14 +0,0 @@
|
||||
[Headers]
|
||||
80
|
||||
Tabella attivita'
|
||||
1|%s|Codice attivita'
|
||||
1|@22g%s|Descrizione attivita'
|
||||
|
||||
[Rows]
|
||||
1|CODTAB|@8g@16,ls
|
||||
1|S0|@22g@40,ls
|
||||
|
||||
[Footers]
|
||||
|
||||
[Translations]
|
||||
|
||||
@ -1,40 +0,0 @@
|
||||
#include "batb%ais.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Codici attivita' ISTAT" -1 -1 78 7
|
||||
STRING FLD_TABAIS_CODTAB 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice "
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
HELP "Codice dell'attivita'"
|
||||
USE %AIS
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODTAB FLD_TABAIS_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FLD_TABAIS_CODTAB CODTAB
|
||||
OUTPUT FLD_TABAIS_S0 S0
|
||||
KEY 1
|
||||
FLAGS "URZ"
|
||||
END
|
||||
|
||||
STRING FLD_TABAIS_S0 40
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
FIELD LF_TABCOM->S0
|
||||
HELP "Descrizione dell'attivita'"
|
||||
USE %AIS KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT S0 FLD_TABAIS_S0
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT FLD_TABAIS_CODTAB
|
||||
KEY 2
|
||||
WARNING "Manca la descrizione"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
@ -1,21 +0,0 @@
|
||||
|
||||
|
||||
// campi maschera batb%asf.msk
|
||||
|
||||
#define F_CODICE 101
|
||||
#define F_DESCR 102
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,10 +0,0 @@
|
||||
[Headers]
|
||||
80
|
||||
Tabella Assoggettamento fiscale
|
||||
1|@3g%s|Codice
|
||||
1|@14g%s|Descrizione
|
||||
|
||||
[Rows]
|
||||
1|CODTAB|@3g@2,ls
|
||||
1|S0|@14g@50,ls
|
||||
|
||||
@ -1,54 +0,0 @@
|
||||
#include <batb%asf.h>
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Codici assoggettamento fiscale" -1 -1 78 8
|
||||
|
||||
NUMBER F_CODICE 2
|
||||
BEGIN
|
||||
PROMPT 4 2 "Codice "
|
||||
FIELD CODTAB
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE %ASF
|
||||
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 "
|
||||
FIELD LF_TABCOM->S0
|
||||
KEY 2
|
||||
USE %ASF 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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,18 +0,0 @@
|
||||
// campi maschera batb%ban.msk
|
||||
|
||||
#define F_CODICEABI 101
|
||||
#define F_CODICECAB 102
|
||||
#define F_DENOM 103
|
||||
#define F_ISTIT 104
|
||||
#define F_INDIRIZZO 105
|
||||
#define F_CAP 106
|
||||
#define F_STATO 107
|
||||
#define F_COMUNE 108
|
||||
#define F_STAMPRICBAN 109
|
||||
#define F_CIV 110
|
||||
#define F_DENCOM 111
|
||||
#define F_PROV 112
|
||||
#define F_CODICEDIP 113
|
||||
#define H_CODICEABI 114
|
||||
#define H_DENOMABI 115
|
||||
|
||||
@ -1,24 +0,0 @@
|
||||
[Relations]
|
||||
LF_COMUNI,COM==S5
|
||||
|
||||
[Headers]
|
||||
132
|
||||
Tabella delle banche
|
||||
1|@2g%s|Codice ABI
|
||||
1|@14g%s|Codice CAB
|
||||
1|@26g%s|Istituto
|
||||
1|@78g%s|Dipendenza
|
||||
2|@26g%s|Indirizzo
|
||||
3|@26g%s|CAP
|
||||
3|@32g%s|Comune
|
||||
|
||||
[Rows]
|
||||
1|CODTAB[1,5]|@7g@5s
|
||||
1|CODTAB[6,10]|@19g@5s
|
||||
1|S0|@26g@50,ls
|
||||
1|I0|@78g@4n
|
||||
2|S2|@26g@40,ls
|
||||
2|S7|@68g@10,ls
|
||||
3|S3|@26g@5,ls
|
||||
3|S5|@32g@4,ls
|
||||
3|LF_COMUNI->DENCOM|@38g@50,ls
|
||||
162
ba/batb%ban.uml
162
ba/batb%ban.uml
@ -1,162 +0,0 @@
|
||||
#include "ba3100.h"
|
||||
#include "batb%ban.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella banche" -1 -1 78 18
|
||||
|
||||
NUMBER F_CODICEABI 5
|
||||
BEGIN
|
||||
PROMPT 6 1 "Codice ABI "
|
||||
FIELD %BAN->CODTAB[1,5]
|
||||
FLAGS "Z"
|
||||
KEY 1
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
||||
INPUT CODTAB F_CODICEABI
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Istituto@50" S0
|
||||
OUTPUT F_CODICEABI CODTAB[1,5]
|
||||
OUTPUT H_DENOMABI S0
|
||||
MESSAGE COPY,H_CODICEABI
|
||||
END
|
||||
|
||||
NUMBER F_CODICECAB 5
|
||||
BEGIN
|
||||
PROMPT 28 1 "Codice CAB "
|
||||
FIELD %BAN->CODTAB[6,10]
|
||||
FLAGS "Z"
|
||||
KEY 1
|
||||
USE %BAN SELECT CODTAB ?= "??????????"
|
||||
INPUT CODTAB[1,5] F_CODICEABI
|
||||
INPUT CODTAB[6,10] F_CODICECAB
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
DISPLAY "Dipendenza" I0
|
||||
OUTPUT F_CODICEABI CODTAB[1,5]
|
||||
OUTPUT F_CODICECAB CODTAB[6,10]
|
||||
OUTPUT F_DENOM S0
|
||||
MESSAGE SHOW,F_ISTIT|SHOW,F_CODICEDIP|HIDE,H_DENOMABI|SHOW,F_DENOM
|
||||
MESSAGE EMPTY HIDE,F_ISTIT|HIDE,F_CODICEDIP|SHOW,H_DENOMABI|HIDE,F_DENOM
|
||||
VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB
|
||||
GROUP GR_SEARCH
|
||||
END
|
||||
|
||||
NUMBER F_CODICEDIP 4
|
||||
BEGIN
|
||||
PROMPT 50 1 "Codice Dipendenza "
|
||||
FIELD %BAN->I0
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
NUMBER H_CODICEABI 5
|
||||
BEGIN
|
||||
FLAGS "HZ"
|
||||
COPY USE F_CODICEABI
|
||||
INPUT CODTAB F_CODICEABI
|
||||
COPY DISPLAY F_CODICEABI
|
||||
OUTPUT F_ISTIT S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_ISTIT 50
|
||||
BEGIN
|
||||
PROMPT 6 3 "Istituto "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_DENOM 50
|
||||
BEGIN
|
||||
PROMPT 6 5 "Denominazione "
|
||||
FIELD %BAN->S0
|
||||
KEY 2
|
||||
USE %BAN KEY 2 SELECT CODTAB?="??????????"
|
||||
INPUT S0 F_DENOM
|
||||
DISPLAY "Denominazione@50" S0
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
DISPLAY "Dipendenza" I0
|
||||
COPY OUTPUT F_CODICECAB
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Manca la denominazione"
|
||||
END
|
||||
|
||||
STRING H_DENOMABI 50
|
||||
BEGIN
|
||||
PROMPT 6 3 "Istituto "
|
||||
FIELD %BAN->S0
|
||||
KEY 2
|
||||
USE %BAN KEY 2 SELECT CODTAB ?= "?????"
|
||||
INPUT S0 H_DENOMABI
|
||||
DISPLAY "Istituto@50" S0
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
COPY OUTPUT F_CODICECAB
|
||||
OUTPUT H_DENOMABI S0
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Manca la denominazione dell'istituto"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 72 7
|
||||
BEGIN
|
||||
PROMPT 4 8 "Sede"
|
||||
END
|
||||
|
||||
STRING F_INDIRIZZO 35
|
||||
BEGIN
|
||||
PROMPT 6 9 "Indirizzo "
|
||||
FIELD %BAN->S2
|
||||
END
|
||||
|
||||
STRING F_CIV 10
|
||||
BEGIN
|
||||
PROMPT 60 9 "N. "
|
||||
FIELD %BAN->S7
|
||||
END
|
||||
|
||||
STRING F_COMUNE 4
|
||||
BEGIN
|
||||
PROMPT 6 11 "Codice comune "
|
||||
FLAGS "U"
|
||||
FIELD %BAN->S5
|
||||
USE LF_COMUNI
|
||||
INPUT STATO ""
|
||||
INPUT COM F_COMUNE
|
||||
#include <comdcod.h>
|
||||
OUTPUT F_COMUNE COM
|
||||
OUTPUT F_DENCOM DENCOM
|
||||
OUTPUT F_PROV PROVCOM
|
||||
OUTPUT F_CAP CAPCOM
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Comune assente"
|
||||
ADD MASK ba4100a
|
||||
END
|
||||
|
||||
STRING F_DENCOM 50
|
||||
BEGIN
|
||||
PROMPT 6 12 "Comune "
|
||||
USE LF_COMUNI KEY 2
|
||||
INPUT DENCOM F_DENCOM
|
||||
#include <comdden.h>
|
||||
COPY OUTPUT F_COMUNE
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_PROV 2
|
||||
BEGIN
|
||||
PROMPT 6 13 "Provincia "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CAP 5
|
||||
BEGIN
|
||||
PROMPT 60 13 "C.A.P. "
|
||||
FIELD %BAN->S3
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
@ -1,8 +0,0 @@
|
||||
|
||||
// campi maschera batb%cco.msk
|
||||
|
||||
#define F_CODICE 101
|
||||
#define F_DESCR 102
|
||||
|
||||
|
||||
|
||||
@ -1,10 +0,0 @@
|
||||
[Headers]
|
||||
80
|
||||
Tabella Categorie contabili
|
||||
1|@3g%s|Codice
|
||||
1|@14g%s|Descrizione
|
||||
|
||||
[Rows]
|
||||
1|CODTAB|@3g@2,ls
|
||||
1|S0|@14g@30,ls
|
||||
|
||||
@ -1,44 +0,0 @@
|
||||
#include <batb%cco.h>
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8
|
||||
|
||||
STRING F_CODICE 2
|
||||
BEGIN
|
||||
PROMPT 4 2 "Codice "
|
||||
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 30
|
||||
BEGIN
|
||||
PROMPT 4 4 "Descrizione "
|
||||
FIELD LF_TABCOM->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
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
|
||||
@ -1,21 +0,0 @@
|
||||
|
||||
|
||||
// campi maschera batb%cfi.msk
|
||||
|
||||
#define F_CODICE 101
|
||||
#define F_DESCR 102
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,10 +0,0 @@
|
||||
[Headers]
|
||||
80
|
||||
Tabella Categorie Finanziarie
|
||||
1|@3g%s|Codice
|
||||
1|@14g%s|Descrizione
|
||||
|
||||
[Rows]
|
||||
1|CODTAB|@3g@2,ls
|
||||
1|S0|@14g@30,ls
|
||||
|
||||
@ -1,54 +0,0 @@
|
||||
#include <batb%cfi.h>
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella Categorie Finanziarie" -1 -1 78 8
|
||||
|
||||
STRING F_CODICE 2
|
||||
BEGIN
|
||||
PROMPT 4 2 "Codice "
|
||||
FIELD CODTAB
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE %CFI
|
||||
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 "
|
||||
FIELD LF_TABCOM->S0
|
||||
KEY 2
|
||||
USE %CFI 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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,3 +0,0 @@
|
||||
#define F_CODICERATA 101
|
||||
#define F_CODICEALFA 102
|
||||
#define F_DESCR 103
|
||||
@ -1,63 +0,0 @@
|
||||
#include <batb%clr.h>
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Ulteriore classificazione" -1 -1 78 13
|
||||
|
||||
STRING F_CODICERATA 1
|
||||
BEGIN
|
||||
PROMPT 4 1 "Codice "
|
||||
FIELD %CLR->CODTAB[1,1]
|
||||
SHEET "Cod|Descrizione@60"
|
||||
INPUT F_CODICERATA
|
||||
OUTPUT F_CODICERATA
|
||||
ITEM "1|Rimessa diretta o contanti"
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta Bancaria"
|
||||
ITEM "4|Cessione"
|
||||
ITEM "5|Paghero'"
|
||||
ITEM "6|Lettera di accredito"
|
||||
ITEM "7|Tratta accettata"
|
||||
ITEM "8|Altro pagamento"
|
||||
END
|
||||
|
||||
STRING F_CODICEALFA 1
|
||||
BEGIN
|
||||
PROMPT 20 1 ""
|
||||
FIELD %CLR->CODTAB[2,2]
|
||||
KEY 1
|
||||
USE %CLR
|
||||
INPUT CODTAB[1,1] F_CODICERATA
|
||||
INPUT CODTAB[2,2] F_CODICEALFA
|
||||
DISPLAY "Tipo pagamento" CODTAB[1,1]
|
||||
DISPLAY "Classificazione" CODTAB[2,2]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODICERATA CODTAB[1,1]
|
||||
OUTPUT F_CODICEALFA CODTAB[2,2]
|
||||
OUTPUT F_DESCR S0
|
||||
HELP "Inserire il codice dell' ulteriore classificazione"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 4 3 "Descrizione "
|
||||
FIELD %CLR->S0
|
||||
USE %CLR
|
||||
INPUT S0 F_DESCR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Tipo pagamento" CODTAB[1,1]
|
||||
DISPLAY "Classificazione" CODTAB[2,2]
|
||||
OUTPUT F_CODICERATA CODTAB[1,1]
|
||||
OUTPUT F_CODICEALFA CODTAB[2,2]
|
||||
OUTPUT F_DESCR S0
|
||||
HELP "Inserire la descrizione dell' ulteriore classificazione"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
@ -1,24 +0,0 @@
|
||||
// posizione file comuni in _arrfiles
|
||||
|
||||
// campi maschera batb%cpg.msk
|
||||
|
||||
#define F_CODICE 101
|
||||
#define F_DESC 102
|
||||
#define F_TIPO 103
|
||||
#define F_INIZIOSCAD 104
|
||||
#define F_MESECOMM 105
|
||||
#define F_RATEDIFF 106
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,19 +0,0 @@
|
||||
[Headers]
|
||||
132
|
||||
Tabella dei codici di pagamento
|
||||
1|@2g%s|Codice pagamento
|
||||
1|@20g%s|Descrizione codice pagamento
|
||||
1|@72g%s|Tipo
|
||||
1|@78g%s|Inizio scadenze
|
||||
1|@95g%s|Mese Commerciale
|
||||
1|@113g%s|Rate Differenziate
|
||||
|
||||
[Rows]
|
||||
1|CODTAB|@2g@16n
|
||||
1|S0|@20g@50,ls
|
||||
1|I0|@72g@4n
|
||||
1|CODTAB[11,12]|@78g@15,ls
|
||||
1|B0|@95g@16f
|
||||
1|B1|@113g@18f
|
||||
|
||||
|
||||
@ -1,77 +0,0 @@
|
||||
#include "batb%cpg.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella pagamenti" -1 -1 78 15
|
||||
|
||||
STRING F_CODICE 4
|
||||
BEGIN
|
||||
PROMPT 4 1 "Codice "
|
||||
HELP "Codice di pagamento"
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
FLAGS "U"
|
||||
USE %CPG
|
||||
INPUT CODTAB F_CODICE
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Tipo di pagamento@50" S0
|
||||
OUTPUT F_CODICE CODTAB
|
||||
OUTPUT F_DESC S0
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 4 3 "Descrizione "
|
||||
HELP "Descrizione del tipo di pagamento"
|
||||
FIELD LF_TABCOM->S0
|
||||
USE %CPG KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT S0 F_DESC
|
||||
DISPLAY "Tipo di pagamento@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
OUTPUT F_CODICE CODTAB
|
||||
OUTPUT F_DESC S0
|
||||
KEY 2
|
||||
END
|
||||
|
||||
LIST F_TIPO 18
|
||||
BEGIN
|
||||
PROMPT 4 5 "Tipo "
|
||||
HELP "Inserire il tipo"
|
||||
FIELD LF_TABCOM->I0
|
||||
ITEM "1|Rimessa Diretta"
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta Bancaria"
|
||||
ITEM "4|Cessione"
|
||||
ITEM "5|Paghero'"
|
||||
ITEM "6|Lettera di credito"
|
||||
ITEM "7|Tratta accettata"
|
||||
END
|
||||
|
||||
LIST F_INIZIOSCAD 12
|
||||
BEGIN
|
||||
PROMPT 4 7 "Inizio scadenze "
|
||||
FIELD LF_TABCOM->S7
|
||||
ITEM "F|Data fattura"
|
||||
ITEM "M|Fine mese"
|
||||
ITEM "D|Data fissa"
|
||||
END
|
||||
|
||||
BOOLEAN F_MESECOMM
|
||||
BEGIN
|
||||
PROMPT 4 9 "Mese commerciale"
|
||||
FIELD LF_TABCOM->B0
|
||||
END
|
||||
|
||||
BOOLEAN F_RATEDIFF
|
||||
BEGIN
|
||||
PROMPT 4 11 "Rate differenziate "
|
||||
FIELD LF_TABCOM->B1
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
@ -1,6 +0,0 @@
|
||||
#define FLD_TABCRS_CODTAB 100
|
||||
#define CHK_TABCRS_S6 101
|
||||
#define FLD_TABCRS_S0 102
|
||||
#define FLD_TABCRS_S1 103
|
||||
#define CHK_TABCRS_S2 104
|
||||
#define DLG_DEL 107
|
||||
@ -1,11 +0,0 @@
|
||||
[Headers]
|
||||
80
|
||||
Tabella delle cariche sociali
|
||||
1|@2g%s|Cod.
|
||||
1|@7g%s|Carica sociale
|
||||
1|@58g%s|Stampa su modulo RAD ?
|
||||
|
||||
[Rows]
|
||||
1|CODTAB|@2g@5,ls
|
||||
1|S0|@7g@50,ls
|
||||
1|S6|@58g@f
|
||||
@ -1,50 +0,0 @@
|
||||
#include "batb%crs.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Cariche sociali" -1 -1 78 7
|
||||
|
||||
STRING FLD_TABCRS_CODTAB 2
|
||||
BEGIN
|
||||
PROMPT 3 1 "Codice "
|
||||
FIELD LF_TABCOM->CODTAB
|
||||
KEY 1
|
||||
USE %CRS
|
||||
INPUT CODTAB FLD_TABCRS_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Carica@25" S0
|
||||
OUTPUT FLD_TABCRS_CODTAB CODTAB
|
||||
OUTPUT FLD_TABCRS_S0 S0
|
||||
HELP "Inserire il codice della carica sociale"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING FLD_TABCRS_S0 25
|
||||
BEGIN
|
||||
PROMPT 3 3 "Carica "
|
||||
FIELD LF_TABCOM->S0
|
||||
KEY 2
|
||||
USE %CRS KEY 2
|
||||
INPUT S0 FLD_TABCRS_S0
|
||||
DISPLAY "Carica@25" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
OUTPUT FLD_TABCRS_CODTAB CODTAB
|
||||
OUTPUT FLD_TABCRS_S0 S0
|
||||
HELP "Inserire la descrizione della carica sociale"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
BOOLEAN CHK_TABCRS_S6
|
||||
BEGIN
|
||||
PROMPT 3 5 "Stampa modulo RAD"
|
||||
FIELD LF_TABCOM->S6
|
||||
HELP "Indicare se la carica viene stampata su modulo RAD"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
@ -1,24 +0,0 @@
|
||||
|
||||
|
||||
// campi maschera batb%cve.msk
|
||||
|
||||
#define F_CODICE 101
|
||||
#define F_DESCR 102
|
||||
#define F_PROVV 103
|
||||
#define F_GRUPPO 104
|
||||
#define F_CONTO 105
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,16 +0,0 @@
|
||||
[Headers]
|
||||
132
|
||||
Tabella Categorie Vendita
|
||||
1|@3g%s|Codice
|
||||
1|@14g%s|Descrizione
|
||||
1|@46g%s|Provvigione
|
||||
1|@60g%s|Gruppo
|
||||
1|@68g%s|Conto
|
||||
|
||||
[Rows]
|
||||
1|CODTAB|@3g@2,ls
|
||||
1|S0|@14g@30,ls
|
||||
1|R0|@46g@5,ls
|
||||
1|I0|@60g@2,ls
|
||||
1|I1|@68g@2,ls
|
||||
|
||||
@ -1,74 +0,0 @@
|
||||
#include <batb%cve.h>
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Categorie di vendita " -1 -1 78 8
|
||||
|
||||
STRING F_CODICE 2
|
||||
BEGIN
|
||||
PROMPT 4 2 "Codice "
|
||||
FIELD CODTAB
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE %CVE
|
||||
INPUT CODTAB F_CODICE
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione @30" 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 30
|
||||
BEGIN
|
||||
PROMPT 4 4 "Descrizione "
|
||||
FIELD LF_TABCOM->S0
|
||||
KEY 2
|
||||
USE %CVE KEY 2
|
||||
INPUT CODTAB F_CODICE
|
||||
INPUT S0 F_DESCR
|
||||
DISPLAY "Descrizione @30" 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 4 6 "Provvigione "
|
||||
FIELD LF_TABCOM->R0
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO 2
|
||||
BEGIN
|
||||
PROMPT 30 6 "Gruppo "
|
||||
FIELD LF_TABCOM->I1
|
||||
END
|
||||
|
||||
NUMBER F_CONTO 2
|
||||
BEGIN
|
||||
PROMPT 43 6 "Conto "
|
||||
FIELD LF_TABCOM->I2
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
|
||||
@ -1,27 +0,0 @@
|
||||
|
||||
|
||||
// campi maschera batbdel.msk
|
||||
|
||||
#define F_ANNO 131
|
||||
#define F_MESE 132
|
||||
#define F_TIPO 133
|
||||
#define F_DATA 134
|
||||
#define F_BANCA1 135
|
||||
#define F_BANCA2 136
|
||||
#define F_IMPORTO 137
|
||||
#define F_STAMPATO 138
|
||||
#define F_CODDITTA 139
|
||||
#define F_RAGSOC 140
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
148
ba/batb%del.uml
148
ba/batb%del.uml
@ -1,148 +0,0 @@
|
||||
#include <batb%del.h>
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella deleghe IVA" -1 -1 78 15
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 4 1 "Ditta "
|
||||
FIELD CODTAB[1,5]
|
||||
FLAGS "FR"
|
||||
KEY 1
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Ditta" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Ragione sociale assente"
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 4 2 "Ragione sociale "
|
||||
KEY 1
|
||||
USE LF_NDITTE KEY 2
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Ditta" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
WARNING "Ragione sociale assente"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 4 3 "Anno "
|
||||
FIELD CODTAB[6,9]
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "RA"
|
||||
KEY 1
|
||||
USE %DEL
|
||||
JOIN LF_NDITTE TO %DEL INTO CODDITTA=CODTAB[1,5]
|
||||
INPUT CODTAB[1,5] F_CODDITTA
|
||||
INPUT CODTAB[6,9] F_ANNO
|
||||
INPUT CODTAB[10,11] F_MESE
|
||||
INPUT CODTAB[12,12] F_TIPO
|
||||
DISPLAY "Ditta" CODTAB[1,5]
|
||||
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
|
||||
DISPLAY "Anno" CODTAB[6,9]
|
||||
DISPLAY "Mese" CODTAB[10,11]
|
||||
DISPLAY "Tipo" CODTAB[12,12]
|
||||
OUTPUT F_CODDITTA CODTAB[1,5]
|
||||
OUTPUT F_ANNO CODTAB[6,9]
|
||||
OUTPUT F_MESE CODTAB[10,11]
|
||||
OUTPUT F_TIPO CODTAB[12,12]
|
||||
HELP "Introdurre l'anno di versamento"
|
||||
END
|
||||
|
||||
LIST F_MESE 10
|
||||
BEGIN
|
||||
PROMPT 4 4 "Mese "
|
||||
FIELD CODTAB[10,11]
|
||||
FLAGS "MA"
|
||||
KEY 1
|
||||
COPY ALL F_ANNO
|
||||
HELP "Introdurre il mese di versamento"
|
||||
ITEM "13|Annuale"
|
||||
MESSAGE "2",F_TIPO
|
||||
VALIDATE MTCHECK_FUNC
|
||||
END
|
||||
|
||||
LIST F_TIPO 20
|
||||
BEGIN
|
||||
PROMPT 4 5 "Tipo "
|
||||
FIELD CODTAB[12,12]
|
||||
KEY 1
|
||||
HELP "Introdurre il tipo di versamento"
|
||||
ITEM "1|normale"
|
||||
MESSAGE ENABLE,F_MESE
|
||||
ITEM "2|annuale"
|
||||
MESSAGE "13",F_MESE|DISABLE,F_MESE
|
||||
ITEM "3|art. 74"
|
||||
MESSAGE ENABLE,F_MESE
|
||||
ITEM "4|cessazione attivita'"
|
||||
MESSAGE ENABLE,F_MESE
|
||||
ITEM "5|integrativa"
|
||||
MESSAGE ENABLE,F_MESE
|
||||
ITEM "7|acconti IVA"
|
||||
MESSAGE "12",F_MESE|DISABLE,F_MESE
|
||||
END
|
||||
|
||||
DATE F_DATA
|
||||
BEGIN
|
||||
PROMPT 4 7 "Data "
|
||||
FIELD D0
|
||||
HELP "Introdurre la data di versamento"
|
||||
END
|
||||
|
||||
NUMBER F_BANCA1 5
|
||||
BEGIN
|
||||
PROMPT 4 8 "Codice ABI "
|
||||
FIELD S7
|
||||
FLAGS "RZ"
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] F_BANCA1
|
||||
INPUT CODTAB[6,10] F_BANCA2
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT F_BANCA1 CODTAB[1,5]
|
||||
OUTPUT F_BANCA2 CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Banca assente"
|
||||
END
|
||||
|
||||
NUMBER F_BANCA2 5
|
||||
BEGIN
|
||||
PROMPT 4 9 "Codice CAB "
|
||||
FIELD S8
|
||||
FLAGS "RZ"
|
||||
COPY ALL F_BANCA1
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Banca assente"
|
||||
END
|
||||
|
||||
NUMBER F_IMPORTO 15
|
||||
BEGIN
|
||||
PROMPT 4 10 "Importo "
|
||||
FIELD R0
|
||||
FLAGS "R"
|
||||
HELP "Introdurre l'importo versato"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPATO
|
||||
BEGIN
|
||||
PROMPT 4 12 "Stampato "
|
||||
FIELD B0
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
x
Reference in New Issue
Block a user