Inizio ristrutturazione apertura partite

git-svn-id: svn://10.65.10.50/trunk@1655 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-07-28 10:39:13 +00:00
parent 81a8e899ca
commit d6451aad16
3 changed files with 59 additions and 18 deletions

View File

@ -68,7 +68,7 @@ long TCreatepart_app::get_last_partita(bool zap)
_partite->zero();
_partite->put(PART_ANNO, _anno);
_partite->put(PART_NUMPART, "AP");
_partite->put(PART_NUMPART, "*");
long last = 0l;
bool go = _partite->read(_isgteq) == NOERR;
@ -135,13 +135,22 @@ bool TCreatepart_app::menu(MENU_TAG)
TRelation saldi(LF_SALDI);
saldi.zero();
TDate data(TODAY);
TString80 desccl = "Apertura clienti al "; desccl << data.string();
TString80 descfo = "Apertura fornitori al "; descfo << data.string();
m.set(F_DESCCL, desccl);
m.set(F_DESCFO, descfo);
while (m.run() != K_QUIT)
{
int n_part = 0;
TDate data(m.get(F_DATA));
TString16 codpag(m.get(F_CODPAG));
desccl = m.get(F_DESCCL);
descfo = m.get(F_DESCFO);
TPagamento pag(codpag, data.string());
m.set(F_NUMPART, format("%d",n_part));
@ -188,7 +197,7 @@ bool TCreatepart_app::menu(MENU_TAG)
long last_partita = get_last_partita(hw == 0);
// apri partita dimmerda
id << format("AP%05ld", last_partita);
id << format("*%05ld", last_partita);
_partite->zero();
_partite->put(PART_ANNO, _anno);
@ -205,7 +214,7 @@ bool TCreatepart_app::menu(MENU_TAG)
_partite->put(PART_GRUPPO, gruppo);
_partite->put(PART_CONTO, conto);
_partite->put(PART_SOTTOCONTO,sottoc);
_partite->put(PART_DESCR, "Apertura partite da saldi contabili");
_partite->put(PART_DESCR, cf == 'C' ? desccl : descfo);
_partite->write();
// apri scadenze dimmerda

View File

@ -2,3 +2,7 @@
#define F_NUMPART 102
#define F_DATA 103
#define F_CODPAG 104
#define F_CAUSCL 105
#define F_CAUSFO 106
#define F_DESCCL 107
#define F_DESCFO 108

View File

@ -1,8 +1,8 @@
#include "sc1200.h"
PAGE "Apertura partite da saldi contabili" -1 -1 51 12
PAGE "Apertura partite da saldi contabili" -1 -1 71 14
GROUPBOX DLG_NULL 49 6
GROUPBOX DLG_NULL 69 6
BEGIN
PROMPT 1 0 ""
END
@ -10,22 +10,22 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 20 1 "ATTENZIONE"
PROMPT 32 1 "@bATTENZIONE"
END
TEXT DLG_NULL
BEGIN
PROMPT 4 3 "La generazione della partite puo' richiedere"
PROMPT 14 3 "@bLa generazione della partite puo' richiedere"
END
TEXT DLG_NULL
BEGIN
PROMPT 7 4 "tempo. Siate certi di voler proseguire."
PROMPT 18 4 "@btempo. Siate certi di voler proseguire."
END
NUMBER F_ANNO 4
BEGIN
PROMPT 1 6 "Anno esercizio "
PROMPT 1 6 "Anno esercizio "
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Anno Esercizio" CODTAB
@ -39,7 +39,7 @@ END
STRING F_CODPAG 4
BEGIN
PROMPT 27 6 "Pagamento "
PROMPT 32 6 "Pagamento "
HELP "Codice del pagamento concordato per il movimento"
FIELD CODPAG
FLAGS "UZ"
@ -53,20 +53,48 @@ BEGIN
WARNING "Codice pagamento obbligatorio"
END
DATE F_DATA
STRING F_DESCCL 40
BEGIN
PROMPT 1 8 "Data scadenza "
PROMPT 1 7 "Descrizione clienti "
FLAGS "A"
END
STRING F_DESCFO 40
BEGIN
PROMPT 1 8 "Descrizione fornitori "
FLAGS "A"
END
STRING F_CAUSCL 3
BEGIN
PROMPT 1 9 "Causale riferimento clienti "
USE LF_CAUSALI SELECT MOVSEZ=="X"
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
INPUT CODCAUS F_CAUSCL
OUTPUT F_CAUSCL CODCAUS
CHECKTYPE REQUIRED
ADD RUN cg0 -4
END
STRING F_CAUSFO 3
BEGIN
PROMPT 1 10 "Causale riferimento fornitori "
COPY USE F_CAUSCL
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
INPUT CODCAUS F_CAUSFO
OUTPUT F_CAUSFO CODCAUS
CHECKTYPE REQUIRED
ADD RUN cg0 -4
END
NUMBER F_NUMPART 3
BEGIN
PROMPT 27 8 "N. partite aperte "
PROMPT 1 11 "N. partite aperte "
FLAGS "D"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 "Conferma"