Inizio ristrutturazione apertura partite
git-svn-id: svn://10.65.10.50/trunk@1655 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
81a8e899ca
commit
d6451aad16
@ -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
|
||||
|
@ -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
|
||||
|
@ -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"
|
||||
|
Loading…
x
Reference in New Issue
Block a user