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

Merge branch 'R_10_00' of http://10.65.20.17:7990/scm/campo/campo into R_10_00

Browse Source
This commit is contained in:
Tolla 2019-02-11 10:58:28 +01:00
commit c97ad13eb3
19 changed files with 710 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
build/fe.vcxproj
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Project DefaultTargets="Build" ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<ItemGroup Label="ProjectConfigurations">
<ProjectConfiguration Include="Debug|Win32">
<Configuration>Debug</Configuration>
@ -15,18 +15,21 @@
<Keyword>Win32Proj</Keyword>
<RootNamespace>fe</RootNamespace>
<ProjectName>fe0</ProjectName>
<WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">
<ConfigurationType>Application</ConfigurationType>
<UseDebugLibraries>true</UseDebugLibraries>
<CharacterSet>NotSet</CharacterSet>
<PlatformToolset>v141</PlatformToolset>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
<ConfigurationType>Application</ConfigurationType>
<UseDebugLibraries>false</UseDebugLibraries>
<WholeProgramOptimization>true</WholeProgramOptimization>
<CharacterSet>Unicode</CharacterSet>
<PlatformToolset>v141</PlatformToolset>
</PropertyGroup>
<Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" />
<ImportGroup Label="ExtensionSettings">
@ -113,7 +116,9 @@
<ClCompile Include="..\src\fe\felib.cpp" />
</ItemGroup>
<ItemGroup>
<ResourceCompile Include="campo.rc" />
<ResourceCompile Include="campo.rc">
<AdditionalIncludeDirectories Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">..\libraries\wx28X\include;</AdditionalIncludeDirectories>
</ResourceCompile>
</ItemGroup>
<ItemGroup>
<MskCompiler Include="..\src\fe\fe0100a.uml" />

7
build/fe.vcxproj.filters
View File

@ -25,9 +25,6 @@
</Filter>
</ItemGroup>
<ItemGroup>
<ClInclude Include="..\..\src\fe\fe0.h">
<Filter>Header Files</Filter>
</ClInclude>
<ClInclude Include="..\src\fe\fetbcon.h">
<Filter>Header Files</Filter>
</ClInclude>
@ -83,10 +80,6 @@
<Filter>Mask Files</Filter>
</MskCompiler>
</ItemGroup>
<ItemGroup>
<Library Include="..\lib\AgaLib.lib" />
<Library Include="..\lib\AgaLibd.lib" />
</ItemGroup>
<ItemGroup>
<RepCompiler Include="..\src\fe\fe0100.rep">
<Filter>Report Files</Filter>

3
build/tf0.vcxproj
View File

@ -172,6 +172,9 @@
<ProjectReference Include="AgaLib.vcxproj">
<Project>{2d38a763-3d74-4338-9362-b891784ec90e}</Project>
</ProjectReference>
<ProjectReference Include="tflib.vcxproj">
<Project>{7bf6939e-dfcd-49ed-b0a8-edb68ddce6d5}</Project>
</ProjectReference>
<ProjectReference Include="vedoc.vcxproj">
<Project>{a1ce9743-a597-4f92-b55a-345a366c9e55}</Project>
</ProjectReference>

3
build/tflib.vcxproj
View File

@ -160,6 +160,9 @@
<ProjectReference Include="AgaLib.vcxproj">
<Project>{2d38a763-3d74-4338-9362-b891784ec90e}</Project>
</ProjectReference>
<ProjectReference Include="fplib.vcxproj">
<Project>{c575788b-0be4-4f68-b9c9-3c204ec04e07}</Project>
</ProjectReference>
<ProjectReference Include="vedoc.vcxproj">
<Project>{a1ce9743-a597-4f92-b55a-345a366c9e55}</Project>
</ProjectReference>

3
cd/test/cg0684.txt Normal file
View File

@ -0,0 +1,3 @@
cgtbvet.msk
Aggiornata obbligatorietà dei campi secondo ultime specifiche SDI

98
cd/test/cg0684a.ini Normal file
View File

@ -0,0 +1,98 @@
[Main]
Demo=0
[cg9]
Edit_19 = cg0 -0
Edit_20 = cg0 -1
Edit_26 = cg0 -4
Edit_5 = cg0 -5
File(112) = cgtbvet.msk|X
Patch = 684
Versione = 21511200
[cg99]
Kill(0) = bastcve.msk|x
Kill(1) = bastleg.msk|x
Kill(2) = bastntb.msk|x
Kill(3) = batbntb.msk|x
Kill(4) = bastmsp.msk|x
Kill(5) = batblia.msk|x
Kill(6) = bastnot.msk|x
Kill(7) = bastzon.rep|x
Kill(8) = bastcam.msk|x
Kill(9) = bastcfi.rep|x
Kill(10) = batbpor.msk|x
Kill(11) = bastcam.rep|x
Kill(12) = bastivd.msk|x
Kill(13) = batbind.msk|x
Kill(14) = batbver.msk|x
Kill(15) = bastesc.msk|x
Kill(16) = batbleg.msk|x
Kill(17) = bastcve.rep|x
Kill(18) = batbdpn.msk|x
Kill(19) = bastscc.rep|x
Kill(20) = bastcco.msk|x
Kill(21) = batbvet.msk|x
Kill(22) = batbscc.msk|x
Kill(23) = bastmsp.rep|x
Kill(24) = bastpor.msk|x
Kill(25) = batbtra.msk|x
Kill(26) = bastesc.rep|x
Kill(27) = batbcco.msk|x
Kill(28) = bastscc.msk|x
Kill(29) = bastarb.msk|x
Kill(30) = bastivd.rep|x
Kill(31) = cgtbcon.msk|x
Kill(32) = bastndo.rep|x
Kill(33) = bastvet.msk|x
Kill(34) = batbzon.msk|x
Kill(35) = bastver.msk|x
Kill(36) = bastdpn.msk|x
Kill(37) = bastleg.rep|x
Kill(38) = bastndo.msk|x
Kill(39) = bastreg.rep|x
Kill(40) = batbcam.msk|x
Kill(41) = batbcfi.msk|x
Kill(42) = bastdpn.rep|x
Kill(43) = bastcfi.msk|x
Kill(44) = batbinl.msk|x
Kill(45) = batbcve.msk|x
Kill(46) = bastreg.msk|x
Kill(47) = batbreg.msk|x
Kill(48) = bastver.rep|x
Kill(49) = bastpor.rep|x
Kill(50) = batbmsp.msk|x
Kill(51) = batbivd.msk|x
Kill(52) = batbnot.msk|x
Kill(53) = bastntb.rep|x
Kill(54) = batbins.msk|x
Kill(55) = bastvet.rep|x
Kill(56) = bastnot.rep|x
Kill(57) = bastpdb.rep|x
Kill(58) = batbtit.msk|x
Kill(59) = batblbu.msk|x
Kill(60) = batbesc.msk|x
Kill(61) = bastarb.rep|x
Kill(62) = bastzon.msk|x
Kill(63) = batbarb.msk|x
Kill(64) = bastpdb.msk|x
Kill(65) = batbndo.msk|x
Kill(66) = batblia.msk|x
Kill(67) = batbdel.msk|x
Kill(68) = batbpdb.msk|x
Kill(69) = bastcco.rep|x
[cg]
Data = 28-01-2019
Descrizione = Contabilita' Generale
Dischi = 1
Edit_23 = cg2 -0
Moduli = ba
OEM =
Patch = 684
PostProcess = bainst -0 CG
PreProcess =
Prezzo(1) =
Prezzo(2) =
Versione = 21511200

BIN
cd/test/cg0684a1.zip Normal file
View File

Binary file not shown.

BIN
cd/test/fp0690a1.zip
View File

Binary file not shown.

2
cd/test/fp0694.txt
View File

@ -4,5 +4,5 @@ fp0.exe
- Sistemati calcoli con 3 o più cifre decimali nel prezzo o quantità
- Workaround per bolli
- Sistemata ritenuta con calcoli nuovi
- Sistemato codice IVA per assoggettamento fiscale
- Sistemato codice IVA riga di spese incasso
- Messi log specifici se non riesce a generare PDF

3
cd/test/fp0696.txt Normal file
View File

@ -0,0 +1,3 @@
fp0.exe
- Aggiunta gestione codici iva di righe autogenerate

19
cd/test/fp0696a.ini Normal file
View File

@ -0,0 +1,19 @@
[Main]
Demo=0
[fp1]
File(0) = fp0.exe|X
Patch = 0696
Versione = 21511200
[fp]
Data = 06-02-2019
Descrizione = Fattura Elettronica
Dischi = 1
Moduli = cg,ve
OEM =
Patch = 696
PostProcess =
PreProcess =
Versione = 21511200

BIN
cd/test/fp0696a1.zip Normal file
View File

Binary file not shown.

6
cd/test/ve0696.txt Normal file
View File

@ -0,0 +1,6 @@
vetbtip.msk
ve0.exe
vetbspp.msk
cgtbvet.msk
pr0.exe
Aggiunto tipo documento sdi TD20 nella maschera

156
cd/test/ve0696a.ini Normal file
View File

@ -0,0 +1,156 @@
[Main]
Demo=0
[ve2]
File(74) = vetbtip.msk|X
Patch = 0696
Versione = 21511200
[ve9]
Edit_163 = ve0 -4
Edit_33 = ve0 -0
Edit_4 = ve0 -4
Edit_47 = ve2 -3
Edit_5 = ve0 -4
File(137) = ve0.exe|X
File(247) = vetbspp.msk|X
Patch = 0696
Versione = 21511200
[ve99]
Kill(0) = batbcld.msk|x
Kill(1) = bastspp.rep|x
Kill(2) = batbspp.msk|x
Kill(3) = bastbnp.rep|x
Kill(4) = bastfca.msk|x
Kill(5) = bastrfc.msk|x
Kill(6) = batbpro.msk|x
Kill(7) = efstbnp.msk|x
Kill(8) = bastrfa.rep|x
Kill(9) = batbcra.msk|x
Kill(10) = batbrfc.msk|x
Kill(11) = ve7500a.msk|x
Kill(12) = bastgca.msk|x
Kill(13) = bastimb.msk|x
Kill(14) = batbfsa.msk|x
Kill(15) = batbums.msk|x
Kill(16) = bastfrr.rep|x
Kill(17) = bastasf.msk|x
Kill(18) = ve7400a.msk|x
Kill(19) = ve7701a.ini|x
Kill(20) = bastcaa.rep|x
Kill(21) = basttri.msk|x
Kill(22) = batbgmc.msk|x
Kill(23) = bastnum.msk|x
Kill(24) = basteld.rep|x
Kill(25) = bastfrd.msk|x
Kill(26) = batbfrm.msk|x
Kill(27) = bastprs.rep|x
Kill(28) = batbfca.msk|x
Kill(29) = basttip.rep|x
Kill(30) = bastbnp.msk|x
Kill(31) = bastfrm.msk|x
Kill(32) = bastcau.rep|x
Kill(33) = bastfrd.rep|x
Kill(34) = batbfid.msk|x
Kill(35) = batbgsa.msk|x
Kill(36) = ve7300a.frm|x
Kill(37) = batbspt.msk|x
Kill(38) = efstbnp.rep|x
Kill(39) = ve7400a.ini|x
Kill(40) = ve7400conf.ini|x
Kill(41) = bastfca.rep|x
Kill(42) = batbprs.msk|x
Kill(43) = ve7200a.msk|x
Kill(44) = batbtri.msk|x
Kill(45) = bastrfa.msk|x
Kill(46) = basttri.rep|x
Kill(47) = basteld.msk|x
Kill(48) = bastgca.rep|x
Kill(49) = ve7700a.msk|x
Kill(50) = batbrfa.msk|x
Kill(51) = bastrfc.rep|x
Kill(52) = batbprv.msk|x
Kill(53) = bastfrr.msk|x
Kill(54) = bastcau.msk|x
Kill(55) = batbcau.msk|x
Kill(56) = bastubi.msk|x
Kill(57) = bastgmc.msk|x
Kill(58) = bastubi.rep|x
Kill(59) = batbstd.msk|x
Kill(60) = batbtip.msk|x
Kill(61) = bastgcg.msk|x
Kill(62) = bastimb.rep|x
Kill(63) = basttag.msk|x
Kill(64) = batbtag.msk|x
Kill(65) = batbgca.msk|x
Kill(66) = bastums.rep|x
Kill(67) = bastctr.msk|x
Kill(68) = bastnum.rep|x
Kill(69) = batbasf.msk|x
Kill(70) = batbgcg.msk|x
Kill(71) = bastasf.rep|x
Kill(72) = bastcaa.msk|x
Kill(73) = bastcra.msk|x
Kill(74) = ve7200a.frm|x
Kill(75) = batbabe.msk|x
Kill(76) = batbctr.msk|x
Kill(77) = basttag.rep|x
Kill(78) = batbfrd.msk|x
Kill(79) = batbmre.msk|x
Kill(80) = bastabe.rep|x
Kill(81) = ve7600a.msk|x
Kill(82) = batbfrr.msk|x
Kill(83) = bastabe.msk|x
Kill(84) = ve7.exe|x
Kill(85) = ve7300a.msk|x
Kill(86) = batbubi.msk|x
Kill(87) = batbnum.msk|x
Kill(88) = baststd.msk|x
Kill(89) = ve7100a.msk|x
Kill(90) = bastctr.rep|x
Kill(91) = basttip.msk|x
Kill(92) = baststd.rep|x
Kill(93) = bastspp.msk|x
Kill(94) = batbcaa.msk|x
Kill(95) = bastgmc.rep|x
Kill(96) = bastgcg.rep|x
Kill(97) = bastprs.msk|x
Kill(98) = batbacr.msk|x
Kill(99) = batbimb.msk|x
Kill(100) = bastfrm.rep|x
Kill(101) = eftbbnp.msk|x
Kill(102) = batbeld.msk|x
Kill(103) = bastums.msk|x
Kill(104) = bastcra.rep|x
Kill(105) = batbbnp.msk|x
[cg9]
Edit_19 = cg0 -0
Edit_20 = cg0 -1
Edit_26 = cg0 -4
Edit_5 = cg0 -5
File(112) = cgtbvet.msk|X
Patch = 684
Versione = 21511200
[pr9]
Edit_4 = pr0 -0
Edit_5 = pr0 -0
File(16) = pr0.exe|X
Patch = 0862
Versione = 21511200
[ve]
Data = 06-02-2019
Descrizione = Vendite
Dischi = 1
Moduli = ba,cg9,pr9,mg9,sv9,in9,ef9
OEM =
Patch = 696
PostProcess = bainst -0 VE
PreProcess =
Prezzo(1) =
Prezzo(2) =
Versione = 21511200

BIN
cd/test/ve0696a1.zip Normal file
View File

Binary file not shown.

200
src/fp/fp0400.cpp Normal file
View File

@ -0,0 +1,200 @@
/////////////////////////////////////////////////////////////////////////////////////
// TPassive_mask
/////////////////////////////////////////////////////////////////////////////////////
#include "defmask.h"
#include "automask.h"
#include "applicat.h"
#include <progind.h>
#include "tsdb.h"
#include "fp0400a.h"
#include "fplib.h"
class TPassive_mask : public TAutomask
{
protected:
void set_filter_changed();
bool on_field_event(TOperable_field& o, TField_event e, long jolly) override;
void next_page(int p) override;
void fill();
void init();
void load_all_fields();
bool _filter_changed;
public:
void save_all_fields() const;
TPassive_mask() : TAutomask("fp0400a"), _filter_changed(true)
{
load_all_fields();
}
};
void TPassive_mask::set_filter_changed()
{
_filter_changed = true;
}
void TPassive_mask::next_page(int p)
{
//if(true)
if (_filter_changed && p != 1000)
{
fill();
_filter_changed = false;
}
TAutomask::next_page(p);
}
void TPassive_mask::fill()
{
TSheet_field& sf = sfield(F_DOCS);
//TString_array& sht = sf.rows_array();
sf.hide();
sf.destroy();
const TDate dal = get(F_DATAINI);
const TDate al = get(F_DATAEND);
TString query;
query << "SELECT YEAR(P7_DATA) as ANNO, P7_TIPODOC as [TIPO_SDI], P7_NUMERO as [NUM_DOC], " <<
"P7_DATA as [DATA_DOC], PQ_IMPTOTDOC as [TOT_DOC], P2_ANADENOMIN AS [RAG_SOC], P2_ANANOME AS NOME, " <<
"P2_ANACOGNOME AS COGNOME, P2_FISCIVACOD AS [P_IVA], P2_CODFISCALE AS [COD_FISC], P2_FISCIVAPAESE AS [COD_PAESE], PP_ATTACHMENT ATTACHMENT, P1_CODDEST as [COD_SDI], PU_PEC AS PEC\n" <<
"FROM PAA0100F PAA01\n" <<
"JOIN PAA0200F PAA02 ON P1_KEYPRGINVIO = P2_KEYPRGINVIO and P1_KEYHEADERFATT = P2_KEYHEADERFATT and P1_KEYBODYFATT = P2_KEYBODYFATT\n" <<
"JOIN PAA0700F PAA07 ON P1_KEYPRGINVIO = P7_KEYPRGINVIO and P1_KEYHEADERFATT = P7_KEYHEADERFATT and P1_KEYBODYFATT = P7_KEYBODYFATT\n" <<
"JOIN PAA2700F PAA27 ON P1_KEYPRGINVIO = PQ_KEYPRGINVIO and P1_KEYHEADERFATT = PQ_KEYHEADERFATT and P1_KEYBODYFATT = PQ_KEYBODYFATT\n" <<
"LEFT JOIN PAA2600F PAA26 ON P1_KEYPRGINVIO = PP_KEYPRGINVIO and P1_KEYHEADERFATT = PP_KEYHEADERFATT and P1_KEYBODYFATT = PP_KEYBODYFATT\n" <<
"LEFT JOIN PAA3200F PAA32 ON P1_KEYPRGINVIO = PU_KEYPRGINVIO and PU_KEYHEADERFATT = PU_KEYHEADERFATT and P1_KEYBODYFATT = PU_KEYBODYFATT\n" <<
"WHERE P7_DATA >= \'" << dal.date2ansi() << "\' AND P7_DATA <= \'" << al.date2ansi() << "\'";
fp_db().sq_set_exec(query, false);
//TProgress_monitor pi(fp_db().sq_items(), nullptr);
TLocalisamfile clifo(LF_CLIFO);
while(fp_db().sq_next())
//for(bool ok = ; ok; ok = s.sq_next())
{
clifo.zero();
clifo.put(CLI_TIPOCF, 'F');
TToken_string& row = sf.row(-1);
TString denom = fp_db().sq_get("RAG_SOC");
if (denom.blank()) {
denom = fp_db().sq_get("NOME");
denom.trim();
denom << " " << fp_db().sq_get("COGNOME");
denom.trim();
}
TString id_fisc = fp_db().sq_get("COGNOME");
row.add(fp_db().sq_get_int("ANNO"), 0);
row.add(fp_db().sq_get("TIPO_SDI"));
row.add(fp_db().sq_get("NUM_DOC"));
row.add(fp_db().sq_get("DATA_DOC"));
row.add(fp_db().sq_get("TOT_DOC"));
// Cerco se il fornitore è presente in Campo
if (fp_db().sq_get("P_IVA") == "01903590154")
bool tolla = true;
if(fp_db().sq_get("COD_PAESE").full() && fp_db().sq_get("P_IVA").full())
{
clifo.setkey(5);
clifo.put(CLI_STATOPAIV, fp_db().sq_get("COD_PAESE"));
clifo.put(CLI_PAIV, fp_db().sq_get("P_IVA"));
if(clifo.read() == NOERR)
row.add(clifo.get(CLI_CODCF));
else if (fp_db().sq_get("COD_PAESE") == "IT")
{
clifo.put(CLI_PAIV, fp_db().sq_get("P_IVA"));
clifo.put(CLI_STATOPAIV, "");
if (clifo.read() == NOERR)
row.add(clifo.get(CLI_CODCF));
}
}
else if(fp_db().sq_get("COD_FISC").full())
{
clifo.setkey(4);
clifo.put(CLI_COFI, fp_db().sq_get("COD_FISC"));
if (clifo.read() == NOERR)
row.add(clifo.get(CLI_CODCF));
}
row.add(denom, sf.cid2index(S_RAGSOC));
row.add(fp_db().sq_get("COD_PAESE") << fp_db().sq_get("P_IVA"));
row.add(fp_db().sq_get("COD_FISC"));
TString appo = fp_db().sq_get("ATTACHMENT");
row.add( appo.blank() ? "" : "X" );
row.add(fp_db().sq_get("COD_SDI").blank() ? fp_db().sq_get("PEC") : fp_db().sq_get("COD_SDI"));
}
sf.force_update();
sf.show();
}
void TPassive_mask::init()
{
}
void TPassive_mask::load_all_fields()
{
}
bool TPassive_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case F_DATAINI:
if (e == fe_init)
o.set(ini_get_string(CONFIG_DITTA, "fp", "LastXML", "01-01-2019"));
else if (e == fe_close)
ini_set_string(CONFIG_DITTA, "fp", "LastXML", o.get());
break;
case F_DATAEND:
if (e == fe_init)
o.set(TDate(TODAY));
default: break;
}
if ((e == fe_modify || e >= se_enter) && jolly == 0)
if (o.dlg() >= START_MASK && o.dlg() <= END_MASK)
set_filter_changed();
return true;
}
/////////////////////////////////////////////////////////////////////////////////////
// TPassive_app
/////////////////////////////////////////////////////////////////////////////////////
class TPassive_app : public TSkeleton_application
{
public:
void main_loop() override;
TPassive_app() = default;
};
void TPassive_app::main_loop()
{
TPassive_mask mask;
while(mask.run() == K_ENTER)
{
}
}
int fp0400(int argc, char * argv[])
{
TPassive_app fpas;
fpas.run(argc, argv, TR("Fatturazione F.P."));
return 0;
}

32
src/fp/fp0400a.h Normal file
View File

@ -0,0 +1,32 @@
#define START_MASK 401
#define F_DATAINI 401
#define F_DATAEND 402
#define END_MASK 499
#define F_DOCUMENTI_TIPO 301
//#define S_SELCODNUM 101
//#define S_TIPODOCSEL 102
//#define S_DASTATO 103
//#define S_ASTATO 104
//#define S_TIPODOCSDI 105
#define F_DOCS 201
//#define S_SELECTED 101
#define S_ANNO 101
#define S_CODSDI 102
#define S_NDOC 103
#define S_DATADOC 104
#define S_TOTDOC 105
#define S_CLIENTE 106
#define S_RAGSOC 107
#define S_PARIVA 108
#define S_CODFISC 109
#define S_ATTACH 110
#define S_COFI 111

175
src/fp/fp0400a.uml Normal file
View File

@ -0,0 +1,175 @@
#include "fp0400a.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_ALL 2 2
BEGIN
PROMPT 1 1 "~Tutti"
PICTURE TOOL_MULTISEL
END
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 "Elabora"
PICTURE TOOL_ELABORA
FLAGS "D"
END
BUTTON DLG_SAVEREC 2 2
BEGIN
PROMPT 1 1 "Elimina"
PICTURE TOOL_WARNING
FLAGS "D"
END
BUTTON DLG_FINDREC 2 2
BEGIN
PROMPT 1 1 "Segna pronto"
PICTURE TOOL_PERMISSIONS
FLAGS "D"
END
#include <helpbar.h>
ENDPAGE
PAGE "Fatture Passive" 0 2 0 0
DATE F_DATAINI
BEGIN
PROMPT 1 1 "Data iniziale"
CHECKTYPE REQUIRED
END
DATE F_DATAEND
BEGIN
PROMPT 50 1 "Data finale "
VALIDATE DATE_CMP_FUNC >= F_DATAINI
WARNING "La data finale non può essere minore della data iniziale"
CHECKTYPE REQUIRED
END
ENDPAGE
PAGE "Elenco Fatture" 0 2 0 0
SPREADSHEET F_DOCS
BEGIN
PROMPT 0 2 ""
ITEM "Anno"
ITEM "Tipo SDI@4"
ITEM "Num.\nDoc.@11"
ITEM "Data\nDoc.@10"
ITEM "Totale\nDoc."
ITEM "Fornitore"
ITEM "Ragione Sociale@50"
ITEM "P. IVA@16"
ITEM "Cod. Fiscale@16"
ITEM "Allegati"
ITEM "Codice destinatario@20"
END
ENDPAGE
ENDMASK
PAGE "Documento" -1 -1 78 9
NUMBER S_ANNO 4
BEGIN
PROMPT 1 2 "Anno "
FLAGS "D"
END
LIST S_CODSDI 35
BEGIN
PROMPT 41 2 "Tipo Doc SDI"
ITEM "TD01|TD01 Fattura"
ITEM "TD02|TD02 Acconto/Anticipo su fattura"
ITEM "TD03|TD03 Acconto/Anticipo su parcella"
ITEM "TD04|TD04 Nota di credito"
ITEM "TD05|TD05 Nota di debito"
ITEM "TD06|TD06 Parcella"
ITEM "TD20|TD20 Autofattura"
FLAG "D"
END
NUMBER S_NDOC 11
BEGIN
PROMPT 1 3 "Numero "
FLAGS "D"
END
DATE S_DATADOC
BEGIN
PROMPT 21 3 "Data "
FLAGS "D"
END
NUMBER S_TOTDOC 11 3
BEGIN
PROMPT 26 3 "Data "
FLAGS "D"
END
NUMBER S_CLIENTE 6
BEGIN
PROMPT 1 4 "Fornitore "
FLAGS "D"
END
STRING S_RAGSOC 50
BEGIN
PROMPT 21 4 ""
FLAGS "D"
END
STRING S_PARIVA 50 20
BEGIN
PROMPT 1 5 ""
FLAGS "D"
END
STRING S_CODFISC 50 20
BEGIN
PROMPT 1 5 ""
FLAGS "D"
END
STRING S_COFI 20
BEGIN
PROMPT 1 6 ""
FLAGS "D"
END
BOOLEAN S_ATTACH
BEGIN
PROMPT 1 8 "Documenti in allegato"
FLAGS "D"
END
ENDPAGE
TOOLBAR "Documento" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_USER 2 2
BEGIN
PROMPT 1 1 "Collega"
PICTURE TOOL_LINK
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 1 1 ""
END
ENDPAGE
ENDMASK

8
src/fp/fplib01.cpp
View File

@ -1337,7 +1337,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf1000f.set("P0_RIFNUMLINEA", 0L);
paf1000f.set("P0_IDDOC", con);
paf1000f.set("P0_DATADOC", datadoc);
paf1000f.set("P0_COMMCONVENZ", com);
paf1000f.set("P0_COMMESSACONV", com);
paf1000f.set("P0_CODCUP", cup);
paf1000f.set("P0_CODCIG", cig);
paf1000f.set("P0_GESTIONE", "D");
@ -1351,7 +1351,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf1100f.set("PA_COMMCONVENZ", com);
paf1100f.set("PA_CODCUP", cup);
paf1100f.set("PA_CODCIG", cig);
paf1000f.set("PA_GESTIONE", "D");
paf1100f.set("PA_GESTIONE", "D");
ok &= insert(paf1100f);
}
else
@ -1359,7 +1359,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf1200f.set("PB_RIFNUMLINEA", 0L);
paf1200f.set("PB_IDDOC", con);
paf1200f.set("PB_DATADOCO", datadoc);
paf1200f.set("PB_COMMCONVENZ", com);
paf1200f.set("PB_COMMESSACONV", com);
paf1200f.set("PB_CODCUP", cup);
paf1200f.set("PB_CODCIG", cig);
paf1200f.set("PB_GESTIONE", "D");
@ -1493,7 +1493,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf1000f.set("P0_RIFNUMLINEA", (long)r);
paf1000f.set("P0_IDDOC", a._numdoc);
paf1000f.set("P0_DATADOC", a._datadoc);
paf1000f.set("P0_COMMCONVENZ", com);
paf1000f.set("P0_COMMESSACONV", com);
paf1000f.set("P0_CODCUP", cup);
paf1000f.set("P0_CODCIG", cig);
paf1000f.set("P0_GESTIONE", "D");