Gestione flag di modifica/nuovo automatico in prima nota

git-svn-id: svn://10.65.10.50/trunk@468 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-10-26 14:53:42 +00:00
parent 417c689351
commit 350cb02ba6
3 changed files with 56 additions and 52 deletions

View File

@ -50,9 +50,7 @@ TMask* TPrimanota_application::load_mask(int n)
const bool dr = c.get_bool("PoCuDr"); // Scelta primo campo col focus
m->first_focus(dr ? F_DATAREG : F_CODCAUS);
_savenew = TRUE;
if (c.exist("Cg21SN"))
_savenew = c.get_bool("Cg21SN"); // Salva e registra
_savenew = !c.get_bool("Cg21SN");
}
break;
case 1:

View File

@ -1435,14 +1435,9 @@ bool CG3100_application::segnala_errori_ogniriga()
if ((_tiporegistro == 1)||(_tiporegistro == 2)) //movimento iva
{
long record, numreg;
<<<<<<< cg3100.cpp
TLocalisamfile& rmoviva = current_cursor()->file(LF_RMOVIVA);
_numreg = current_cursor()->file(LF_MOV).get_long(MOV_NUMREG);
=======
TLocalisamfile& rmoviva = current_cursor()->file(LF_RMOVIVA);
_numreg = current_cursor()->file(LF_MOV).get_long(MOV_NUMREG);
>>>>>>> 1.13
if (current_cursor()->is_first_match(LF_RMOVIVA))
{
record = rmoviva.recno();

View File

@ -1,15 +1,15 @@
#include "cg5000a.h"
PAGE "Parametri contabilita' studio" -1 -1 76 16
PAGE "Parametri contabilita' studio" -1 -1 76 17
GROUPBOX DLG_NULL 74 4
GROUPBOX DLG_NULL 74 5
BEGIN
PROMPT 1 1 "Dati Banca di appoggio per deleghe IVA"
PROMPT 1 1 "Parametri IVA"
END
NUMBER FLD_CODABI 5
BEGIN
PROMPT 3 2 "Codice ABI "
PROMPT 3 2 "Banca di appoggio per deleghe IVA ABI "
USE %BAN
INPUT CODTAB[1,5] FLD_CODABI
DISPLAY "ABI@5" CODTAB[1,5]
@ -25,7 +25,7 @@ END
NUMBER FLD_CODCAB 5
BEGIN
PROMPT 37 2 "Codice CAB "
PROMPT 60 2 "CAB "
COPY ALL FLD_CODABI
INPUT CODTAB[6,10] FLD_CODCAB
CHECKTYPE NORMAL
@ -35,36 +35,57 @@ END
STRING FLD_RAGSOCB 50
BEGIN
PROMPT 3 3 "Rag. Soc. Banca "
PROMPT 3 3 "Denominazione "
FLAGS "D"
END
BOOLEAN CHK_SIND11
BEGIN
PROMPT 2 5 "Somma imposte non detraibili ad acq/import. in modello IVA 11"
PROMPT 3 4 "Somma imposte non detraibili ad acq/import. in modello IVA 11"
FIELD Sind11
END
GROUPBOX DLG_NULL 74 4
GROUPBOX DLG_NULL 74 5
BEGIN
PROMPT 1 6 "Stampa registri"
PROMPT 1 6 "Liquidazione IVA"
END
BOOLEAN CHK_STIREG
TEXT DLG_NULL
BEGIN
PROMPT 2 7 "Stampa intestazione registri bollati"
FIELD StiReg
PROMPT -11 7 "Interessi liquidazioni trimestrali"
END
BOOLEAN CHK_NODTRG
NUMBER FLD_INTR0 5 2
BEGIN
PROMPT 2 8 "Non stampa data di registrazione sui registri IVA"
FIELD NoDtRg
PROMPT 3 8 "I "
FLAGS "R"
FIELD InTr(0)
END
NUMBER FLD_INTR1 5 2
BEGIN
PROMPT 20 8 "II "
FLAGS "R"
FIELD InTr(1)
END
NUMBER FLD_INTR2 5 2
BEGIN
PROMPT 40 8 "III "
FLAGS "R"
FIELD InTr(2)
END
NUMBER FLD_INTR3 5 2
BEGIN
PROMPT 60 8 "IV "
FLAGS "R"
FIELD InTr(3)
END
NUMBER FLD_CODAGV 5
BEGIN
PROMPT 2 10 "Codice IVA per ricavi misti agenzie di viaggio "
PROMPT 3 9 "Codice IVA per ricavi misti agenzie di viaggio "
USE %IVA
INPUT CODTAB FLD_CODAGV
DISPLAY "Codice" CODTAB
@ -74,37 +95,21 @@ BEGIN
FIELD CodAgv
END
GROUPBOX DLG_NULL 74 3
GROUPBOX DLG_NULL 74 4
BEGIN
PROMPT 1 11 "Interessi liquidazioni trimestrali"
PROMPT 1 11 "Stampa registri"
END
NUMBER FLD_INTR0 5 2
BOOLEAN CHK_STIREG
BEGIN
PROMPT 3 12 "I "
FLAGS "R"
FIELD InTr(0)
PROMPT 3 12 "Stampare l'intestazione sui registri bollati"
FIELD StiReg
END
NUMBER FLD_INTR1 5 2
BOOLEAN CHK_NODTRG
BEGIN
PROMPT 20 12 "II "
FLAGS "R"
FIELD InTr(1)
END
NUMBER FLD_INTR2 5 2
BEGIN
PROMPT 40 12 "III "
FLAGS "R"
FIELD InTr(2)
END
NUMBER FLD_INTR3 5 2
BEGIN
PROMPT 60 12 "IV "
FLAGS "R"
FIELD InTr(3)
PROMPT 3 13 "Non stampare la data di registrazione sui registri IVA"
FIELD NoDtRg
END
BUTTON DLG_OK 10 2
@ -121,16 +126,22 @@ ENDPAGE
PAGE "Parametri contabilita' studio"
GROUPBOX DLG_NULL 74 4
BEGIN
PROMPT 1 1 "Prima nota"
END
BOOLEAN CHK_POCUDR
BEGIN
PROMPT 2 2 "Posiziona cursore sulla data di registrazione in immissione documenti"
HELP "Determina il posizionamento automatico del cursore sulla data di registrazione in fase di immisione documenti"
PROMPT 3 2 "Posizionare cursore sulla data di registrazione in fase di ricerca"
HELP "Determina il posizionamento automatico del cursore sulla data di registrazione invece che sulla causale"
FIELD PoCuDr
END
BOOLEAN CHK_SAVENEW
BEGIN
PROMPT 3 3 "Prima Nota"
PROMPT 3 3 "Rimanere in modifica dopo la registrazione di un documento"
HELP "Dopo aver effettuato una registrazione rimane in modifica dello stesso documento invece di passare all'inserimento di uno nuovo"
FIELD Cg21SN
END