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

Modifiche varie

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3513 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-09-04 15:32:23 +00:00
parent ca0ec635c3
commit b516a8f65d
7 changed files with 96 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cg/cg1100a.uml
View File

@ -28,7 +28,7 @@ BEGIN
FLAGS "A"
END
RADIOBUTTON F_SCELTA_STAMPA 47
RADIOBUTTON F_SCELTA_STAMPA 50
BEGIN
PROMPT 2 6 "Tipo di stampa "
HELP "Scegliere il tipo di stampa desiderata"

2
cg/cg1200a.uml
View File

@ -77,8 +77,8 @@ BEGIN
INPUT TIPOCF "C"
INPUT CODCF FLD_CLI_CODFR
DISPLAY "Codice" CODCF
DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice Fiscale@16" COFI
OUTPUT FLD_CLI_CODFR CODCF
GROUP 1 3
HELP "Codice di inizio stampa: vuoto = inizio archivio"

8
cg/cg1500a.uml
View File

@ -194,17 +194,17 @@ BEGIN
ITEM "3|Situazione C/F"
END
RADIOBUTTON F_STAMPAC 35
RADIOBUTTON F_STAMPAC 36
BEGIN
PROMPT 35 1 "Tipo stampa "
PROMPT 34 1 "Tipo stampa "
HELP "Help tipo di stampa del bilancio"
ITEM "1|Conti movimentati"
ITEM "2|Conti con saldo diverso da zero"
END
RADIOBUTTON F_STAMPAV 35
RADIOBUTTON F_STAMPAV 36
BEGIN
PROMPT 35 1 "Tipo stampa "
PROMPT 34 1 "Tipo stampa "
HELP "Help tipo di stampa del bilancio"
ITEM "1|Conti movimentati"
ITEM "2|Conti con saldo diverso da zero"

4
cg/cg6400.cpp
View File

@ -583,6 +583,8 @@ int TRic_archivi::controllo_ripartenza()
bool flag = FALSE;
int var = 0;
set_firm(_dittaric);
TString trasfer;
trasfer = _tras_file->path(_dittaric);
trasfer << HEADER;
@ -729,7 +731,7 @@ void TRic_archivi::ripristina_trasfer()
if (_numdisk == 1)
{
set_firm(_dittaric);
// set_firm(_dittaric);
fcopy(_trasfer,_trasf,FALSE);
}
else

91
cg/cg6700.cpp
View File

@ -141,7 +141,8 @@ public:
void stampa_errori_pagsca(int riga);
bool controlla_anaCF_Pcon(char tipocf,int gruppo,int conto,long codcf);
bool controlla_anagrafica(char tipo, int gruppo, int conto);
bool cerca_codpag(TString& codpag);
bool cerca_codpag(TString& codpag);
bool cerca_tipopag_codpag(TString& codpag, int tipopag);
bool ulteriore_classificazione(int tipopag, TString& ultclass);
bool banca(long abi,long cab);
bool agente(TString& codag);
@ -1317,13 +1318,40 @@ bool TRic_ListaMov::cerca_codpag(TString& codpag)
if (cpg.read() == NOERR)
{
_descr_pag = cpg.get("S0");
_tipopag_pag = atoi(cpg.get("S4"));
// _tipopag_pag = atoi(cpg.get("S4"));
return TRUE;
}
return FALSE;
}
bool TRic_ListaMov::cerca_tipopag_codpag(TString& codpag, int tipopag)
{
TTable rpg ("%RPG");
TString dep;
for (int i = 0; !rpg.eof(); rpg.next(), i++)
{
dep.format("%-4s%d", (const char*) codpag, i);
rpg.zero();
rpg.put("CODTAB", dep);
if (rpg.read() == NOERR)
{
int tipo = rpg.get_int("I1");
if (tipo == tipopag)
{
_tipopag_pag = tipo;
return TRUE;
}
}
else
return FALSE;
}
return FALSE;
}
bool TRic_ListaMov::ulteriore_classificazione(int tipopag, TString& ultclass)
{
TTable clr ("%CLR");
@ -1444,7 +1472,8 @@ bool TRic_ListaMov::controlla_scadenze()
{
scad.readat(nrec);
return TRUE;
}
}
cerca_tipopag_codpag(codpag,tipopag);
if (tipopag != _tipopag_pag)
{
scad.readat(nrec);
@ -1514,16 +1543,53 @@ void TRic_ListaMov::descrizione_pagamento(TString& descr,int tipopag,TString& ul
}
else
{
TTable cpg ("%CPG");
TTable rpg ("%RPG");
int tipo;
dep.format("%-4s", (const char*) codpag);
for (int i = 0; !rpg.eof(); rpg.next(), i++)
{
dep.format("%-4s%d", (const char*) codpag, i);
cpg.zero();
cpg.put("CODTAB", dep);
if (cpg.read() == NOERR)
descr = cpg.get("S0");
else
descr = "";
rpg.zero();
rpg.put("CODTAB", dep);
if (rpg.read() == NOERR)
{
tipo = rpg.get_int("I1");
if (tipo == tipopag)
{
switch(tipo)
{
case 1: descr = "Rimessa diretta";
break;
case 2: descr = "Tratta";
break;
case 3: descr = "Ricevuta bancaria";
break;
case 4: descr = "Cessione";
break;
case 5: descr = "Paghero'";
break;
case 6: descr = "Lettera di credito";
break;
case 7: descr = "Tratta accettata";
break;
case 8: descr = "Rapporti interbancari diretti";
break;
case 9: descr = "Bonifico";
break;
case 10: descr = "Altro";
break;
default: break;
};
break;
}
}
else
{
descr = "";
break;
}
}
}
}
@ -1595,7 +1661,8 @@ void TRic_ListaMov::stampa_errori_scadenze(int riga)
{
_errore_grave_SC = TRUE;
set_row(++riga, "@30g%s", (const char*) err_msg[19]);
}
}
cerca_tipopag_codpag(codpag,tipopag);
if (tipopag != _tipopag_pag)
{
_errore_grave_SC = TRUE;

13
cg/cg6903a.uml
View File

@ -5,12 +5,13 @@ PAGE "Invio contabilita'" -1 -1 76 12
NUMBER F_DITTAINV 5
BEGIN
PROMPT 2 1 "Codice ditta inviante "
USE LF_NDITTE KEY 1
INPUT CODDITTA F_DITTAINV
DISPLAY "Ditta" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_DITTAINV CODDITTA
OUTPUT F_RAGSOC RAGSOC
USE %IND KEY 1
JOIN LF_NDITTE TO %IND INTO CODDITTA=CODTAB
INPUT CODTAB F_DITTAINV
DISPLAY "Ditta" CODTAB
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
OUTPUT F_DITTAINV CODTAB
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
FLAGS "Z"
CHECKTYPE REQUIRED
END

2
cg/cglib04.cpp
View File

@ -3053,7 +3053,7 @@ bool TTransfer_file::fcopytemp(const char* orig, const char* dest)
_tmprmov = "%";
_tmprmov << path();
_tmprmov << "\\" << TEMP_RMOV;
nrec_mov = atol(nrec.mid(pos,6));
nrec_mov = atol(nrec.mid(pos*6,6));
}
if ( (pos = sigle.find('U')) >= 0)
{