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 const bool dr = c.get_bool("PoCuDr"); // Scelta primo campo col focus
m->first_focus(dr ? F_DATAREG : F_CODCAUS); m->first_focus(dr ? F_DATAREG : F_CODCAUS);
_savenew = TRUE; _savenew = !c.get_bool("Cg21SN");
if (c.exist("Cg21SN"))
_savenew = c.get_bool("Cg21SN"); // Salva e registra
} }
break; break;
case 1: case 1:

View File

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

View File

@ -1,15 +1,15 @@
#include "cg5000a.h" #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 BEGIN
PROMPT 1 1 "Dati Banca di appoggio per deleghe IVA" PROMPT 1 1 "Parametri IVA"
END END
NUMBER FLD_CODABI 5 NUMBER FLD_CODABI 5
BEGIN BEGIN
PROMPT 3 2 "Codice ABI " PROMPT 3 2 "Banca di appoggio per deleghe IVA ABI "
USE %BAN USE %BAN
INPUT CODTAB[1,5] FLD_CODABI INPUT CODTAB[1,5] FLD_CODABI
DISPLAY "ABI@5" CODTAB[1,5] DISPLAY "ABI@5" CODTAB[1,5]
@ -25,7 +25,7 @@ END
NUMBER FLD_CODCAB 5 NUMBER FLD_CODCAB 5
BEGIN BEGIN
PROMPT 37 2 "Codice CAB " PROMPT 60 2 "CAB "
COPY ALL FLD_CODABI COPY ALL FLD_CODABI
INPUT CODTAB[6,10] FLD_CODCAB INPUT CODTAB[6,10] FLD_CODCAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
@ -35,36 +35,57 @@ END
STRING FLD_RAGSOCB 50 STRING FLD_RAGSOCB 50
BEGIN BEGIN
PROMPT 3 3 "Rag. Soc. Banca " PROMPT 3 3 "Denominazione "
FLAGS "D" FLAGS "D"
END END
BOOLEAN CHK_SIND11 BOOLEAN CHK_SIND11
BEGIN 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 FIELD Sind11
END END
GROUPBOX DLG_NULL 74 4 GROUPBOX DLG_NULL 74 5
BEGIN BEGIN
PROMPT 1 6 "Stampa registri" PROMPT 1 6 "Liquidazione IVA"
END END
BOOLEAN CHK_STIREG TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 7 "Stampa intestazione registri bollati" PROMPT -11 7 "Interessi liquidazioni trimestrali"
FIELD StiReg
END END
BOOLEAN CHK_NODTRG NUMBER FLD_INTR0 5 2
BEGIN BEGIN
PROMPT 2 8 "Non stampa data di registrazione sui registri IVA" PROMPT 3 8 "I "
FIELD NoDtRg 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 END
NUMBER FLD_CODAGV 5 NUMBER FLD_CODAGV 5
BEGIN 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 USE %IVA
INPUT CODTAB FLD_CODAGV INPUT CODTAB FLD_CODAGV
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -74,37 +95,21 @@ BEGIN
FIELD CodAgv FIELD CodAgv
END END
GROUPBOX DLG_NULL 74 3 GROUPBOX DLG_NULL 74 4
BEGIN BEGIN
PROMPT 1 11 "Interessi liquidazioni trimestrali" PROMPT 1 11 "Stampa registri"
END END
NUMBER FLD_INTR0 5 2 BOOLEAN CHK_STIREG
BEGIN BEGIN
PROMPT 3 12 "I " PROMPT 3 12 "Stampare l'intestazione sui registri bollati"
FLAGS "R" FIELD StiReg
FIELD InTr(0)
END END
NUMBER FLD_INTR1 5 2 BOOLEAN CHK_NODTRG
BEGIN BEGIN
PROMPT 20 12 "II " PROMPT 3 13 "Non stampare la data di registrazione sui registri IVA"
FLAGS "R" FIELD NoDtRg
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)
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
@ -121,16 +126,22 @@ ENDPAGE
PAGE "Parametri contabilita' studio" PAGE "Parametri contabilita' studio"
GROUPBOX DLG_NULL 74 4
BEGIN
PROMPT 1 1 "Prima nota"
END
BOOLEAN CHK_POCUDR BOOLEAN CHK_POCUDR
BEGIN BEGIN
PROMPT 2 2 "Posiziona cursore sulla data di registrazione in immissione 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 in fase di immisione documenti" HELP "Determina il posizionamento automatico del cursore sulla data di registrazione invece che sulla causale"
FIELD PoCuDr FIELD PoCuDr
END END
BOOLEAN CHK_SAVENEW BOOLEAN CHK_SAVENEW
BEGIN 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 FIELD Cg21SN
END END