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

Correzioni marginali alle maschere

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@627 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-15 17:13:31 +00:00
parent 4b80e1269f
commit 496edc10f2
5 changed files with 255 additions and 260 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cg/cg0300a.uml
View File

@ -129,7 +129,7 @@ BEGIN
FIELD LF_ALLEG->CODCF
FLAGS "R"
KEY 1
COPY ALL,F_ANNO
COPY ALL F_ANNO
HELP "Indicare il codice relativo al cliente o fornitore"
ADD RUN cg0 -1
WARNING "Registrazione assente"

17
cg/cg0500.cpp
View File

@ -1,10 +1,10 @@
// cg0500.cpp - Tabella causali
#include <applicat.h>
#include <config.h>
#include <msksheet.h>
#include <relapp.h>
#include <tabutil.h>
#include <config.h>
#include <utility.h>
#include <causali.h>
@ -290,17 +290,16 @@ bool TCaus_app::tipodoc_hndl (TMask_field& f, KEY k)
f.mask().hide(F_TIPO_MOV_2);
if (app().saldaconto()) f.mask().show(F_TIPO_MOV_1);
f.mask().enable(F_COD_REG);
field_reg.enable();
field_reg.check_type(CHECK_REQUIRED);
TipoIVA i = nessuna_iva;
TTable tabtpd("%TPD");
tabtpd.put("CODTAB", val);
if (tabtpd.read() == NOERR)
{
i = (TipoIVA)tabtpd.get_int("I0"); // IVA acquisti, vendite, generica
bool corrisp = tabtpd.get_bool("B0");
const TipoIVA i = (TipoIVA)tabtpd.get_int("I0"); // IVA acquisti, vendite, generica
const bool corrisp = tabtpd.get_bool("B0");
if (i == 1) // vendite
{
@ -327,16 +326,15 @@ bool TCaus_app::tipodoc_hndl (TMask_field& f, KEY k)
}
else // TIPODOC vuoto || IN || PG || AN
{
f.mask().set(F_COD_REG,"");
f.mask().disable(F_COD_REG);
field_reg.reset();
field_reg.disable();
f.mask().hide(F_TIPO_MOV_1);
if (app().saldaconto())
f.mask().show(F_TIPO_MOV_2);
}
// Ma davvero esiste il registro ?
const TString16 codreg(f.mask().get(F_COD_REG));
const TString16 codreg(field_reg.get());
if (codreg.not_empty())
{
TRegistro registro(codreg, app().anno_iva());
@ -853,6 +851,7 @@ void TCaus_app::init_insert_mode(TMask& m)
void TCaus_app::init_modify_mode(TMask& m)
{
init_mask(m);
m.efield(F_COD_REG).check_type(CHECK_NONE); // Disabilita temporaneamente il check sui registri
}

6
cg/cg1.url
View File

@ -3,21 +3,18 @@
MENU TASK_MENUBAR
SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Selezione"
MENUBAR MENU_BAR(1)
MENU MENU_BAR(1)
SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Selezione"
MENUBAR MENU_BAR(2)
MENU MENU_BAR(2)
SUBMENU MENU_FILE "~File"
SUBMENU BAR_ITEM(1) "~Sezione"
MENU BAR_ITEM(1)
ITEM MENU_ITEM(1) "~Header"
@ -33,17 +30,14 @@ MENUBAR MENU_BAR(4)
MENU MENU_BAR(4)
SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Selezione"
MENUBAR MENU_BAR(5)
MENU MENU_BAR(5)
SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Selezione"
MENUBAR MENU_BAR(6)
MENU MENU_BAR(6)
SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Selezione"

480
cg/cg1500a.uml
View File

@ -1,239 +1,241 @@
#include "cg1500.h"
PAGE "Pag. 1" -1 -1 74 16
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
FLAGS "D"
END
DATE F_DATASTAMPA
BEGIN
PROMPT 48 1 "Data stampa "
HELP "Data che verra' stampata sul bilancio"
FLAGS "A"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 3 "Anno esercizio "
HELP "Anno di cui si vuole ottenre il bilancio"
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Anno" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1
OUTPUT F_ANNO CODTAB
//CHECKTYPE NORMAL
//MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97 //se il campo e' vuoto manda questi messaggi
//MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99 //se invece e' pieno manda questi
FLAGS "RZ"
END
RADIOBUTTON F_BILANCIO 33
BEGIN
PROMPT 2 5 "Tipo bilancio "
HELP "Indicare il tipo di bilancio da stampare"
ITEM "1|Bilancio a sezioni contrapposte"
MESSAGE HIDE,F_STAMPA1|RESET,F_STAMPA1|HIDE,F_VERIFICA|RESET,F_VERIFICA
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA
MESSAGE HIDE,F_DATAA|RESET,F_DATAA|HIDE,F_SITUAZIONE|RESET,F_SITUAZIONE
MESSAGE HIDE,F_ORDINAMENTO|RESET,F_ORDINAMENTO|HIDE,F_STAMPAC|RESET,F_STAMPAC
MESSAGE HIDE,96|HIDE,97|HIDE,98|HIDE,99
MESSAGE HIDE,F_MODULO|RESET,F_MODULO
MESSAGE SHOW,F_STAMPA|K_SPACE,F_STAMPA
ITEM "2|Bilancio di verifica"
MESSAGE HIDE,F_STAMPA|RESET,F_STAMPA
MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM|HIDE,F_TOTALI|RESET,F_TOTALI
MESSAGE HIDE,F_CODICI|RESET,F_CODICI|HIDE,F_SALDO|RESET,F_SALDO
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV
MESSAGE SHOW,F_VERIFICA|K_SPACE,F_VERIFICA|SHOW,F_STAMPA1|K_SPACE,F_STAMPA1
MESSAGE SHOW,F_MODULO|K_SPACE,F_MODULO
MESSAGE SHOW,96|SHOW,97|SHOW,98|SHOW,99
END
RADIOBUTTON F_STAMPA 28
BEGIN
PROMPT 40 5 "Tipo stampa "
HELP "Indicare il tipo di stampa"
ITEM "1|Per date limite"
MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO|SHOW,F_STAMPAMPROV
ITEM "2|All' ultima immissione"
MESSAGE HIDE,F_DATALIM|HIDE,F_STAMPAMPROV|RESET,F_DATALIM|RESET,F_STAMPAMPROV
MESSAGE SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
END
RADIOBUTTON F_STAMPA1 28
BEGIN
PROMPT 40 5 "Tipo stampa "
//FLAGS "G"
HELP "Indicare il tipo di stampa"
ITEM "1|Per date limite"
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
ITEM "2|All' ultima immissione"
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
MESSAGE COPY,F_STAMPA
END
DATE F_DATALIM
BEGIN
PROMPT 2 9 "Data limite "
HELP "Data fino alla quale si vuole la stampa"
END
BOOLEAN F_TOTALI
BEGIN
PROMPT 33 9 "Non stampare totali per gruppo "
HELP "Indicare se non si devono stampare i totali dei gruppi"
END
BOOLEAN F_CODICI
BEGIN
PROMPT 2 10 "Non stampare codici conti "
HELP "Indicare se non si devono stampare i codici dei conti"
END
BOOLEAN F_SALDO
BEGIN
PROMPT 33 10 "Non stampare movimenti con saldo a zero "
HELP "Indicare se non si devono stampare i movimenti con saldo nullo"
END
TEXT 96
BEGIN
PROMPT 2 10 "Dalla data competenza "
END
TEXT 97
BEGIN
PROMPT 38 10 "Alla data competenza "
END
TEXT 98
BEGIN
PROMPT 2 10 "Dalla data operazione "
END
TEXT 99
BEGIN
PROMPT 38 10 "Alla data operazione "
END
DATE F_DATADA
BEGIN
PROMPT 24 10 ""
HELP "Data dalla quale iniziare la stampa"
END
DATE F_DATAA
BEGIN
PROMPT 60 10 ""
END
BOOLEAN F_STAMPAMPROV
BEGIN
PROMPT 2 11 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PAGE "Pag. 2" -1 -1 74 20
RADIOBUTTON F_VERIFICA 27
BEGIN
PROMPT 2 1 "Stampa bilancio di verifica "
HELP "Tipo di bilancio di verifica"
ITEM "1|Bilancio"
ITEM "2|Saldi di mastro"
ITEM "3|Situazione C/F"
END
RADIOBUTTON F_STAMPAC 35
BEGIN
PROMPT 35 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
BEGIN
PROMPT 35 1 "Tipo stampa "
HELP "Help tipo di stampa del bilancio"
ITEM "1|Conti movimentati"
ITEM "2|Conti con saldo diverso da zero"
ITEM "3|Tutti i conti"
END
LIST F_MODULO 10
BEGIN
PROMPT 2 8 "Stampa su modulo stretto "
HELP "Indicare il numero di caratteri del foglio (larghezza)"
ITEM "1|132 crt."
ITEM "2|198 crt."
END
LIST F_SITUAZIONE 11
BEGIN
PROMPT 2 10 "Tipo situazione "
HELP "Indicare il tipo di situazione che si vuole ottenere"
ITEM " |Entrambi"
ITEM "C|Clienti"
ITEM "F|Fornitori"
END
/*
RADIOBUTTON F_STAMPAC 35
BEGIN
PROMPT 37 10 "Tipo stampa "
ITEM "1|Conti movimentati"
ITEM "2|Conti con saldo diverso da zero"
END
*/
LIST F_ORDINAMENTO 11
BEGIN
PROMPT 2 11 "Tipo ordinamento "
HELP "Indicare il tipo di ordinamento da effettuare"
ITEM "1|Per codice"
ITEM "2|Alfabetico"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK
#include "cg1500.h"
PAGE "Stampa bilancio" -1 -1 74 16
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
FLAGS "D"
END
DATE F_DATASTAMPA
BEGIN
PROMPT 48 1 "Data stampa "
HELP "Data che verra' stampata sul bilancio"
FLAGS "A"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 3 "Anno esercizio "
HELP "Anno di cui si vuole ottenere il bilancio"
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Anno" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1
OUTPUT F_ANNO CODTAB
//CHECKTYPE NORMAL
//MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97 //se il campo e' vuoto manda questi messaggi
//MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99 //se invece e' pieno manda questi
FLAGS "RZ"
END
RADIOBUTTON F_BILANCIO 33
BEGIN
PROMPT 2 5 "Tipo bilancio "
HELP "Indicare il tipo di bilancio da stampare"
ITEM "1|Bilancio a sezioni contrapposte"
MESSAGE HIDE,F_STAMPA1|RESET,F_STAMPA1|HIDE,F_VERIFICA|RESET,F_VERIFICA
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA
MESSAGE HIDE,F_DATAA|RESET,F_DATAA|HIDE,F_SITUAZIONE|RESET,F_SITUAZIONE
MESSAGE HIDE,F_ORDINAMENTO|RESET,F_ORDINAMENTO|HIDE,F_STAMPAC|RESET,F_STAMPAC
MESSAGE HIDE,96|HIDE,97|HIDE,98|HIDE,99
MESSAGE HIDE,F_MODULO|RESET,F_MODULO
MESSAGE SHOW,F_STAMPA|K_SPACE,F_STAMPA
MESSAGE HIDE,DLG_PAGE
ITEM "2|Bilancio di verifica"
MESSAGE HIDE,F_STAMPA|RESET,F_STAMPA
MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM|HIDE,F_TOTALI|RESET,F_TOTALI
MESSAGE HIDE,F_CODICI|RESET,F_CODICI|HIDE,F_SALDO|RESET,F_SALDO
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV
MESSAGE SHOW,F_VERIFICA|K_SPACE,F_VERIFICA|SHOW,F_STAMPA1|K_SPACE,F_STAMPA1
MESSAGE SHOW,F_MODULO|K_SPACE,F_MODULO
MESSAGE SHOW,96|SHOW,97|SHOW,98|SHOW,99
MESSAGE SHOW,DLG_PAGE
END
RADIOBUTTON F_STAMPA 28
BEGIN
PROMPT 40 5 "Tipo stampa "
HELP "Indicare il tipo di stampa"
ITEM "1|Per date limite"
MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO|SHOW,F_STAMPAMPROV
ITEM "2|All' ultima immissione"
MESSAGE HIDE,F_DATALIM|HIDE,F_STAMPAMPROV|RESET,F_DATALIM|RESET,F_STAMPAMPROV
MESSAGE SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
END
RADIOBUTTON F_STAMPA1 28
BEGIN
PROMPT 40 5 "Tipo stampa "
//FLAGS "G"
HELP "Indicare il tipo di stampa"
ITEM "1|Per date limite"
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
ITEM "2|All' ultima immissione"
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
MESSAGE COPY,F_STAMPA
END
DATE F_DATALIM
BEGIN
PROMPT 2 9 "Data limite "
HELP "Data fino alla quale si vuole la stampa"
END
BOOLEAN F_TOTALI
BEGIN
PROMPT 33 9 "Non stampare totali per gruppo "
HELP "Indicare se non si devono stampare i totali dei gruppi"
END
BOOLEAN F_CODICI
BEGIN
PROMPT 2 10 "Non stampare codici conti "
HELP "Indicare se non si devono stampare i codici dei conti"
END
BOOLEAN F_SALDO
BEGIN
PROMPT 33 10 "Non stampare movimenti con saldo a zero "
HELP "Indicare se non si devono stampare i movimenti con saldo nullo"
END
TEXT 96
BEGIN
PROMPT 2 10 "Dalla data competenza "
END
TEXT 97
BEGIN
PROMPT 38 10 "Alla data competenza "
END
TEXT 98
BEGIN
PROMPT 2 10 "Dalla data operazione "
END
TEXT 99
BEGIN
PROMPT 38 10 "Alla data operazione "
END
DATE F_DATADA
BEGIN
PROMPT 24 10 ""
HELP "Data dalla quale iniziare la stampa"
END
DATE F_DATAA
BEGIN
PROMPT 60 10 ""
END
BOOLEAN F_STAMPAMPROV
BEGIN
PROMPT 2 11 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PAGE "Stampa bilancio di verifica" -1 -1 74 20
RADIOBUTTON F_VERIFICA 27
BEGIN
PROMPT 2 1 "Stampa bilancio di verifica "
HELP "Tipo di bilancio di verifica"
ITEM "1|Bilancio"
ITEM "2|Saldi di mastro"
ITEM "3|Situazione C/F"
END
RADIOBUTTON F_STAMPAC 35
BEGIN
PROMPT 35 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
BEGIN
PROMPT 35 1 "Tipo stampa "
HELP "Help tipo di stampa del bilancio"
ITEM "1|Conti movimentati"
ITEM "2|Conti con saldo diverso da zero"
ITEM "3|Tutti i conti"
END
LIST F_MODULO 10
BEGIN
PROMPT 2 8 "Stampa su modulo stretto "
HELP "Indicare il numero di caratteri del foglio (larghezza)"
ITEM "1|132 crt."
ITEM "2|198 crt."
END
LIST F_SITUAZIONE 11
BEGIN
PROMPT 2 10 "Tipo situazione "
HELP "Indicare il tipo di situazione che si vuole ottenere"
ITEM " |Entrambi"
ITEM "C|Clienti"
ITEM "F|Fornitori"
END
/*
RADIOBUTTON F_STAMPAC 35
BEGIN
PROMPT 37 10 "Tipo stampa "
ITEM "1|Conti movimentati"
ITEM "2|Conti con saldo diverso da zero"
END
*/
LIST F_ORDINAMENTO 11
BEGIN
PROMPT 2 11 "Tipo ordinamento "
HELP "Indicare il tipo di ordinamento da effettuare"
ITEM "1|Per codice"
ITEM "2|Alfabetico"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

10
cg/cg2103.cpp
View File

@ -312,14 +312,14 @@ bool TCausale::read(const char* cod, int year)
rcaus.put(CAU_CODCAUS, cod);
rcaus.put(CAU_NRIGA, 0);
err = rcaus.read(_isgteq); // Find first line
if (err != NOERR) return FALSE;
while (err == NOERR && rcaus.get(CAU_CODCAUS) == cod)
for (err = rcaus.read(_isgteq); // Find first line
err == NOERR && rcaus.get(CAU_CODCAUS) == cod;
err = rcaus.next() // Read next line
)
{
const int riga = rcaus.get_int(CAU_NRIGA);
add(rcaus.curr(), riga);
err = rcaus.next(); // Read next line
}
rcaus.zero();
for (int riga = 1; riga < size(); riga++) // Fill gaps