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

Patch level : 10.0 912

Browse Source 
Files correlati     : tc2.exe
Ricompilazione Demo : [ ]
Commento            :

Trasferimento IPSOA


git-svn-id: svn://10.65.10.50/branches/R_10_00@21588 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2011-02-06 10:24:03 +00:00
parent e5b28ab849
commit d6bd8513a1
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tc/tc2700.cpp
View File

@ -941,6 +941,13 @@ void TIP_sender::add_cli(TISAM_recordset & cli, TIP_clienti_textset & ipcli)
ipcli.set("Codice_Fiscale", cli.get(CLI_COFI)); ipcli.set("Codice_Fiscale", cli.get(CLI_COFI));
else else
ipcli.set("Codice_Fiscale_Estero", cli.get(CLI_COFI)); ipcli.set("Codice_Fiscale_Estero", cli.get(CLI_COFI));
if (cli.get(CLI_PAIV).is_empty() && cli.get(CLI_COFI).is_empty())
{
TString cod = cli.get(CLI_TIPOCF).as_string();
cod << cli.get(CLI_CODCF).as_int();
ipcli.set("Codice_Fiscale", cod);
}
ipcli.set("ID_Conto", bill2ricl(' ', cli.get(CLI_GRUPPO).as_int(), cli.get(CLI_CONTO).as_int(), 0L)); ipcli.set("ID_Conto", bill2ricl(' ', cli.get(CLI_GRUPPO).as_int(), cli.get(CLI_CONTO).as_int(), 0L));
ipcli.set("ID_Conto_Fat", bill2ricl(' ', cli.get(CLI_GRUPPORIC).as_int(), cli.get(CLI_CONTORIC).as_int(), cli.get(CLI_SOTTOCRIC).as_int())); ipcli.set("ID_Conto_Fat", bill2ricl(' ', cli.get(CLI_GRUPPORIC).as_int(), cli.get(CLI_CONTORIC).as_int(), cli.get(CLI_SOTTOCRIC).as_int()));
ipcli.set("ID_Divisa", scod2ricl(VAL, cli.get(CLI_CODVAL))); ipcli.set("ID_Divisa", scod2ricl(VAL, cli.get(CLI_CODVAL)));

4
tc/tc2800a.uml
View File

@ -200,7 +200,7 @@ BEGIN
OUTPUT F_IPCONTO CODTAB OUTPUT F_IPCONTO CODTAB
OUTPUT F_IPDESCR S0 OUTPUT F_IPDESCR S0
FIELD CODICE FIELD CODICE
ADD RUN "TC2 -0" ADD RUN "TC2 -0 %ICO"
END END
STRING F_IPDESCR 50 STRING F_IPDESCR 50
@ -212,7 +212,7 @@ BEGIN
DISPLAY "Conto IPSOA" CODTAB DISPLAY "Conto IPSOA" CODTAB
COPY OUTPUT F_IPCONTO COPY OUTPUT F_IPCONTO
CHECKTYPE SEARCH CHECKTYPE SEARCH
ADD RUN "TC2 -0" ADD RUN "TC2 -0 %ICO"
END END
ENDPAGE ENDPAGE