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

- Correzione errore MI2179 sulla Variazione SC da ricevere.

Browse Source 
- Correzione errore MI2162 su Ripristino movimenti da inviare.
- Correzione errore MI3480 su invio PC e invio Sistema.
- Correzione errore MI3479 su ricezione da PC e ricezione da Sistema.


git-svn-id: svn://10.65.10.50/trunk@3862 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-11-04 11:48:07 +00:00
parent 3333d79604
commit 4779f273e5
8 changed files with 222 additions and 158 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cg/cg6400b.uml
View File

@ -1,10 +1,10 @@
#include "cg6400.h"
PAGE "" -1 -1 44 8
PAGE "" -1 -1 48 8
LIST F_DRIVE 2
BEGIN
PROMPT 2 2 "Disco "
PROMPT 2 2 "Disco "
ITEM "A:|A:"
ITEM "B:|B:"
ITEM "C:|C:"
@ -15,7 +15,7 @@ END
STRING F_PATHNAME 30
BEGIN
PROMPT 2 4 "Percorso "
PROMPT 2 4 "Indirizzario "
HELP "Specificare il percorso completo dove ricercare il file di ricezione dati"
FLAGS "U"
//VALIDATE FILENAME_FUNC

13
cg/cg6804.cpp
View File

@ -189,6 +189,12 @@ bool TVar_sc::gestione_handler(TMask_field& f, KEY k)
rp.sheet_mask().set_handler(116, importo_handler);
rp.sheet_mask().set_handler(117, impval_handler);
rp.sheet_mask().set_handler(DLG_DELREC, elimina_scadenza);
rp.swap_columns(105,106);
rp.swap_columns(105,107);
rp.swap_columns(105,108);
rp.swap_columns(105,109);
rp.swap_columns(105,110);
app().setta_mask_scad(tipocf,gruppo,conto,sottoc,anno,npart,nriga,*msk);
@ -236,6 +242,13 @@ bool TVar_sc::gestione_handler(TMask_field& f, KEY k)
rp.sheet_mask().set_handler(118, sezione_dc_handler);
rp.sheet_mask().set_handler(119, diffcambio_handler);
rp.sheet_mask().set_handler(DLG_DELREC, elimina_pagamenti);
rp.swap_columns(105,106);
rp.swap_columns(105,107);
rp.swap_columns(105,108);
rp.swap_columns(105,109);
rp.swap_columns(105,110);
rp.swap_columns(105,111);
app().setta_mask_pagsca(tipocf,gruppo,conto,sottoc,anno,npart,nriga,*msk);

122
cg/cg6804d.uml
View File

@ -1,62 +1,62 @@
#include "cg6804a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
SPREADSHEET F_RIGASCAD 0 16
BEGIN
PROMPT 0 1 ""
ITEM "Tipo"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione conto / Ragione sociale C/F@50"
ITEM "Anno"
ITEM "Numero@7"
ITEM "N.riga"
ITEM "N.rata"
ITEM "Data scad."
ITEM "Cod.pag."
ITEM "Tipopag"
ITEM "Ult.class."
ITEM "Descrizione condizioni pagamento@50"
ITEM "Sez"
ITEM "Importo@15"
ITEM "Importo in valuta"
ITEM "Descrizione@50"
ITEM "Ns.ABI"
ITEM "Ns.CAB"
ITEM "Vs.ABI"
ITEM "Vs.CAB"
ITEM "Cod.Agente"
ITEM "Data soll."
ITEM "Num. soll."
END
ENDPAGE
ENDMASK
#include "cg6804a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
SPREADSHEET F_RIGASCAD 0 16
BEGIN
PROMPT 0 1 ""
ITEM "Tipo@4"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione conto / Ragione sociale C/F@50"
ITEM "Anno"
ITEM "Numero@7"
ITEM "N.riga"
ITEM "N.rata"
ITEM "Data scad."
ITEM "Cod.pag."
ITEM "Tipopag"
ITEM "Ult.class."
ITEM "Descrizione condizioni pagamento@50"
ITEM "Sez"
ITEM "Importo@15"
ITEM "Importo in valuta"
ITEM "Descrizione@50"
ITEM "Ns.ABI"
ITEM "Ns.CAB"
ITEM "Vs.ABI"
ITEM "Vs.CAB"
ITEM "Cod.Agente"
ITEM "Data soll."
ITEM "Num. soll."
END
ENDPAGE
ENDMASK
#include "cg6804f.uml"

134
cg/cg6804e.uml
View File

@ -1,68 +1,68 @@
#include "cg6804a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
SPREADSHEET F_RIGAPAGSCA 0 16
BEGIN
PROMPT 0 1 ""
ITEM "Tipo"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione conto / Ragione sociale C/F@50"
ITEM "Anno"
ITEM "Numero@7"
ITEM "N.riga fatt."
ITEM "N.rata fatt."
ITEM "N.riga"
ITEM "Acc./Sal."
ITEM "Sez"
ITEM "Importo pagato"
ITEM "Sez"
ITEM "Ritenute prof."
ITEM "Sez"
ITEM "Abbuoni@15"
ITEM "Sez"
ITEM "Diff. cambio@15"
ITEM "Importo in valuta"
ITEM "Tipo"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione contropartita@50"
ITEM "Ns.ABI"
ITEM "Ns.CAB"
ITEM "Vs.ABI"
ITEM "Vs.CAB"
ITEM "Cod.Agente"
ITEM "Attivo/Passivo"
END
ENDPAGE
ENDMASK
#include "cg6804a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
SPREADSHEET F_RIGAPAGSCA 0 16
BEGIN
PROMPT 0 1 ""
ITEM "Tipo@4"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione conto / Ragione sociale C/F@50"
ITEM "Anno"
ITEM "Numero@7"
ITEM "N.riga fatt."
ITEM "N.rata fatt."
ITEM "N.riga"
ITEM "Acc./Sal."
ITEM "Sez"
ITEM "Importo pagato"
ITEM "Sez"
ITEM "Ritenute prof."
ITEM "Sez"
ITEM "Abbuoni@15"
ITEM "Sez"
ITEM "Diff. cambio@15"
ITEM "Importo in valuta"
ITEM "Tipo"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione contropartita@50"
ITEM "Ns.ABI"
ITEM "Ns.CAB"
ITEM "Vs.ABI"
ITEM "Vs.CAB"
ITEM "Cod.Agente"
ITEM "Attivo/Passivo"
END
ENDPAGE
ENDMASK
#include "cg6804g.uml"

84
cg/cg6900.cpp
View File

@ -188,17 +188,38 @@ bool TInv_cont::main_loop()
TMask* mask = new TMask("cg6900b");
KEY k;
k = mask->run();
if (k == K_ENTER)
{
TString floppy = mask->get(F_FLOPPY);
int num_disk = calcola_numero_dischi(*mask,floppy);
TString percorso = mask->get(F_PATH);
if (percorso.not_empty())
floppy << ":/" << percorso;
TString floppy,percorso;
int num_disk;
bool ok = FALSE;
bool abbandona = FALSE;
do
{
k = mask->run();
if (k != K_ENTER)
{
abbandona = TRUE;
break;
}
floppy = mask->get(F_FLOPPY);
num_disk = calcola_numero_dischi(*mask,floppy);
percorso = mask->get(F_PATH);
if (percorso.not_empty())
{
floppy << ":/" << percorso;
if (fexist(floppy))
ok = TRUE;
else
message_box("Il percorso indicato non e' corretto");
}
else
ok = TRUE; // Se scelgo il dischetto non eseguo il controllo sulla correttezza del path
}
while (!ok);
if (!abbandona)
{
str.format("%02d", num_disk);
aggiorna_marker(str,29);
@ -265,17 +286,38 @@ bool TInv_cont::main_loop()
TMask* mask = new TMask("cg6900b");
KEY k;
k = mask->run();
if (k == K_ENTER)
{
TString floppy = mask->get(F_FLOPPY);
int num_disk = calcola_numero_dischi(*mask,floppy);
TString percorso = mask->get(F_PATH);
if (percorso.not_empty())
floppy << ":/" << percorso;
TString floppy,percorso;
int num_disk;
bool ok = FALSE;
bool abbandona = FALSE;
do
{
k = mask->run();
if (k != K_ENTER)
{
abbandona = TRUE;
break;
}
floppy = mask->get(F_FLOPPY);
num_disk = calcola_numero_dischi(*mask,floppy);
percorso = mask->get(F_PATH);
if (percorso.not_empty())
{
floppy << ":/" << percorso;
if (fexist(floppy))
ok = TRUE;
else
message_box("Il percorso indicato non e' corretto");
}
else
ok = TRUE; // Se scelgo il dischetto non eseguo il controllo sulla correttezza del path
}
while (!ok);
if (!abbandona)
{
str.format("%02d", num_disk);
aggiorna_marker(str,32);

12
cg/cg6900b.uml
View File

@ -7,22 +7,24 @@ BEGIN
PROMPT 1 1 "Disco "
ITEM "A|A:"
MESSAGE HIDE,F_PATH
MESSAGE ENABLE,F_DIM
MESSAGE ENABLE,F_DIM
MESSAGE RESET,F_PATH
ITEM "B|B:"
MESSAGE HIDE,F_PATH
MESSAGE ENABLE,F_DIM
MESSAGE RESET,F_PATH
ITEM "C|C:"
MESSAGE SHOW,F_PATH
MESSAGE DISABLE,F_DIM
ITEM "D|D:"
MESSAGE SHOW,F_PATH
MESSAGE DISABLE,F_DIM
MESSAGE DISABLE,F_DIM
ITEM "E|E:"
MESSAGE SHOW,F_PATH
MESSAGE DISABLE,F_DIM
MESSAGE DISABLE,F_DIM
ITEM "F|F:"
MESSAGE SHOW,F_PATH
MESSAGE DISABLE,F_DIM
MESSAGE DISABLE,F_DIM
END
LIST F_DIM 7
@ -37,7 +39,7 @@ END
STRING F_PATH 30
BEGIN
PROMPT 1 5 "Percorso "
PROMPT 1 5 "Indirizzario "
END
BUTTON DLG_OK 9 2

8
cg/cg6903.cpp
View File

@ -35,7 +35,13 @@ bool TRip_flag::set()
bool rippn = msk->get_bool(F_RIPPN);
bool ripiva = msk->get_bool(F_RIPIVA);
bool ripsc = msk->get_bool(F_RIPSC);
if (!prefix().exist(ditta))
{
error_box("Libreria archivi ditta non presente su disco");
return FALSE;
}
if (!rippn && !ripiva && !ripsc)
{
delete msk;

1
cg/cg6903.h
View File

@ -5,6 +5,7 @@
#include <urldefid.h>
#include <mask.h>
#include <progind.h>
#include <prefix.h>
#include "cg2.h"