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"

8
cg/cg1500a.uml
View File

@ -1,6 +1,6 @@
#include "cg1500.h"
PAGE "Pag. 1" -1 -1 74 16
PAGE "Stampa bilancio" -1 -1 74 16
NUMBER F_CODDITTA 5
BEGIN
@ -31,7 +31,7 @@ END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 3 "Anno esercizio "
HELP "Anno di cui si vuole ottenre il bilancio"
HELP "Anno di cui si vuole ottenere il bilancio"
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Anno" CODTAB
@ -56,6 +56,7 @@ BEGIN
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
@ -64,6 +65,7 @@ BEGIN
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
@ -162,7 +164,7 @@ END
ENDPAGE
PAGE "Pag. 2" -1 -1 74 20
PAGE "Stampa bilancio di verifica" -1 -1 74 20
RADIOBUTTON F_VERIFICA 27
BEGIN

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