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

Patch level : 12.00 1400

Browse Source 
Files correlati     : cg1.exe

Commento                :
Aggiornamento IBAN si clienti e fornitori
This commit is contained in:
Alessandro Bonazzi 2025-12-09 17:23:09 +01:00
parent 90af60e4a1
commit c6f38c9deb
24 changed files with 154 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
build/AgaLib01.vcxproj
View File

@ -12,7 +12,7 @@
</ItemGroup>
<PropertyGroup Label="Globals">
<ProjectGuid>{2D38A763-3D74-4338-9362-B891784EC90E}</ProjectGuid>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
<ProjectName>AgaLib01</ProjectName>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />

2
build/Cg0.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{6F2EAB30-4FD7-41DE-BCE3-8CD5D4C880B4}</ProjectGuid>
<RootNamespace>cg0</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">

2
build/Cg1.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{9B42C6FD-9B50-42E6-A215-B641B44A931E}</ProjectGuid>
<RootNamespace>cg1</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">

2
build/Cg2.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{9304E774-E631-495D-A29D-774222BBF8C9}</ProjectGuid>
<RootNamespace>cg2</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">

2
build/Cg3.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{8F1FD835-004E-4BFA-A754-42A87AFA5343}</ProjectGuid>
<RootNamespace>cg3</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">

2
build/Cg4.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{F1589A59-C3AC-430E-88EC-925461405E57}</ProjectGuid>
<RootNamespace>cg4</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">

2
build/Cg5.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{4661E972-5AAC-4B3E-92C7-C267D5070793}</ProjectGuid>
<RootNamespace>cg5</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">

2
build/Cg6.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{4FD17D56-D966-4F85-A04A-28EC6E0824CF}</ProjectGuid>
<RootNamespace>cg6</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">

2
build/Cg7.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{95FED395-F24E-4E5B-95B5-227A99CA255F}</ProjectGuid>
<RootNamespace>cg7</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">

8
build/Cg7.vcxproj.filters
View File

@ -91,11 +91,6 @@
<Extensions>png</Extensions>
</Filter>
</ItemGroup>
<ItemGroup>
<ResourceCompile Include="campo.rc">
<Filter>Resource Files</Filter>
</ResourceCompile>
</ItemGroup>
<ItemGroup>
<MskCompiler Include="..\src\cg\cg7100i.uml">
<Filter>Mask Files</Filter>
@ -279,4 +274,7 @@
<Filter>Sfondi PNG</Filter>
</PngCompiler>
</ItemGroup>
<ItemGroup>
<ResourceCompile Include="campo.rc" />
</ItemGroup>
</Project>

2
build/cg_masktab.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{97368DC9-8B0D-4F75-A89F-9A58701226B6}</ProjectGuid>
<RootNamespace>cg_masktab</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">

2
build/f1lib.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{41F4C25F-6BD2-4FC9-A0D3-A68CD1C9E4FC}</ProjectGuid>
<RootNamespace>fp</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">

2
build/fplib.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{C575788B-0BE4-4F68-B9C9-3C204EC04E07}</ProjectGuid>
<RootNamespace>fp</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">

2
build/lilib.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{B61F0AD4-0CCE-4371-8E92-85A26CAF1A7C}</ProjectGuid>
<RootNamespace>li0</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">

5
build/pdflibwrap.vcxproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<ItemGroup Label="ProjectConfigurations">
<ProjectConfiguration Include="Debug|Win32">
@ -46,6 +46,9 @@
<TargetName Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">$(ProjectName)</TargetName>
<TargetName Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">$(ProjectName)</TargetName>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
<PostBuildEventUseInBuild>false</PostBuildEventUseInBuild>
</PropertyGroup>
<ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
<ClCompile>
<Optimization>Disabled</Optimization>

2
build/vedoc.vcxproj
View File

@ -12,7 +12,7 @@
</ItemGroup>
<PropertyGroup Label="Globals">
<ProjectGuid>{A1CE9743-A597-4F92-B55A-345A366C9E55}</ProjectGuid>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">

2
build/vedocext.vcxproj
View File

@ -12,7 +12,7 @@
</ItemGroup>
<PropertyGroup Label="Globals">
<ProjectGuid>{0042619A-6B7C-4D3D-9CD9-9BDD8D200C15}</ProjectGuid>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">

2
build/xi01.vcxproj
View File

@ -12,7 +12,7 @@
</ItemGroup>
<PropertyGroup Label="Globals">
<ProjectGuid>{3A5B0119-6DAD-4407-9EE1-3B739B0581E8}</ProjectGuid>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">

2
build/xvaga01.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{4A2FC619-2461-4F58-8F1D-92FA153E39A2}</ProjectGuid>
<RootNamespace>xvaga</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">

2
build/xvapp01.vcxproj
View File

@ -12,7 +12,7 @@
</ItemGroup>
<PropertyGroup Label="Globals">
<ProjectGuid>{153C04B0-1F72-4DA9-8AC1-7DF76FFACFD2}</ProjectGuid>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">

2
build/xvslt.vcxproj
View File

@ -13,7 +13,7 @@
<PropertyGroup Label="Globals">
<ProjectGuid>{7ECF3959-40CC-4BAA-A5E1-8699789AC386}</ProjectGuid>
<RootNamespace>xvslt</RootNamespace>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
<WindowsTargetPlatformVersion>10.0.19041.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">

2
src/cg/cg1300l.h
View File

@ -2,6 +2,8 @@
#define F_CLIFO 202
#define F_SORT 203
#define F_RESET 204
#define F_IBAN 205
#define F_PROG 206
#define S_DIRTY 101
#define S_CODCF 102

21
src/cg/cg1300l.uml
View File

@ -13,6 +13,12 @@ BEGIN
PICTURE TOOL_SAVEREC
END
BUTTON DLG_ELABORA 10 2
BEGIN
PROMPT -23 -11 "Aggiorna IBAN"
PICTURE TOOL_ELABORA
END
#include <helpbar.h>
ENDPAGE
@ -35,9 +41,20 @@ BEGIN
ITEM "3|Codice"
END
STRING F_IBAN 27
BEGIN
PROMPT 1 3 "IBAN "
VALIDATE VAL_IBAN_FUNC
END
NUMBER F_PROG 2
BEGIN
PROMPT 44 3 "Progressivo "
END
SPREADSHEET F_CLIFO 0 -1
BEGIN
PROMPT 0 3 ""
PROMPT 0 4 ""
ITEM "@1"
ITEM "Codice@7"
ITEM "Ragione Sociale@50"
@ -150,4 +167,4 @@ END
ENDPAGE
ENDMASK
ENDMASK

108
src/cg/cg1309.cpp
View File

@ -3,11 +3,14 @@
#include <defmask.h>
#include <isam.h>
#include <progind.h>
#include <recarray.h>
#include <recset.h>
#include <reputils.h>
#include <validate.h>
#include "cg1300l.h"
#include <clifo.h>
#include "cfban.h"
///////////////////////////////////////////////////////////
// TCheck_PIVA_mask
@ -25,6 +28,7 @@ protected:
bool save_sheet();
void update_sheet();
void dirty_sheet_row();
void aggiorna_iban();
public:
@ -235,6 +239,105 @@ void TCheck_PIVA_mask::dirty_sheet_row()
s.force_update(s.selected());
}
void TCheck_PIVA_mask::aggiorna_iban()
{
const TString iban(get(F_IBAN));
const TString abi(iban.mid(5, 5));
const TString cab(iban.mid(10, 5));
const TString cc(iban.mid(15));
const int prog = get_int(F_PROG);
TLog_report log("Aggiornamento IBAN");
TISAM_recordset clifo("USE CLIFO\nFROM TIPOCF=#TIPO\nTO TIPOCF=#TIPO");
clifo.set_var("#TIPO", TVariant(get(F_TIPO)));
TProgind pi(clifo.items(), TR("Aggiornamento IBAN"));
TRectype paiv_rec(LF_CLIFO);
TRectype cofi_rec(LF_CLIFO);
long updated = 0L;
for (bool ok = clifo.move_first(); pi.addstatus() && ok; ok = clifo.move_next())
{
TToken_string key;
key.add(clifo.get_string(CLI_TIPOCF));
key.add(clifo.get_long(CLI_CODCF));
key.add("N");
TRecord_array ns_ban(key, LF_CFBAN);
bool found = false;
for (int i = 1; !found && i <= ns_ban.rows(); i++)
{
const TString & iban_found = ns_ban.row(i).get(CFBAN_IBAN);
found = (iban == iban_found);
const TString abi_found = ns_ban.row(i).get(CFBAN_ABI);
const TString cab_found = ns_ban.row(i).get(CFBAN_CAB);
if (!found && abi == abi_found && cab == cab_found)
{
ns_ban.row(i, false).put(CFBAN_PROGPR, prog);
ns_ban.row(i, false).put(CFBAN_IBAN, iban);
int err = ns_ban.write(true);
TString msg;
if (err == NOERR)
msg << TR("Aggiornamento");
else
msg << format(FR("Errore %d nell'aggiornamento della"), err);
msg << TR(" banca del ");
if (clifo.get_string(CLI_TIPOCF) == "C")
msg << TR("Cliente ");
else
msg << TR("Fornitore ");
msg << clifo.get_long(CLI_CODCF);
log.log(err == NOERR ? 0 : 2, msg);
updated++;
}
}
if (!found)
{
const int nrow = ns_ban.rows() + 1;
ns_ban.row(nrow, true).put(CFBAN_ABI, abi);
ns_ban.row(nrow, false).put(CFBAN_CAB, cab);
ns_ban.row(nrow, false).put(CFBAN_PROGPR, prog);
ns_ban.row(nrow, false).put(CFBAN_NUMCC, cc);
ns_ban.row(nrow, false).put(CFBAN_IBAN, iban);
int err = ns_ban.write(true);
TString msg;
if (err == NOERR)
msg << TR("Aggiornamento");
else
msg << format(FR("Errore %d nell'aggiornamento della"), err);
msg << TR(" banca del ");
if (clifo.get_string(CLI_TIPOCF) == "C")
msg << TR("Cliente ");
else
msg << TR("Fornitore ");
msg << clifo.get_long(CLI_CODCF);
log.log(err == NOERR ? 0 : 2, msg);
updated++;
}
}
TString msg("Aggiornati ");
msg << updated;
if (get(F_TIPO) == "C")
msg << TR(" Clienti.");
else
msg << TR(" Fornitori.");
log.log(0, msg);
if (log.full())
log.preview();
}
bool TCheck_PIVA_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
@ -287,7 +390,10 @@ bool TCheck_PIVA_mask::on_field_event(TOperable_field& o, TField_event e, long j
if (e == fe_close)
save_sheet();
break;
case S_PAIV:
case DLG_ELABORA:
aggiorna_iban();
break;
case S_PAIV:
if (e == fe_modify)
{
if (!pi_check("", o.get()))