Patch level : 10.0 354

Files correlati     : cg2100b.msk cg2100p.msk cg2.exe
Ricompilazione Demo : [ ]
Commento            :
0001385: Registrazione con saldaconto
Test effettuato con dati Borgoa8 (vedi ftp cartella Ilaria):
inserisco una registrazione contabile, causale SFC, clicco nuovo, vado sulle righe, + , codice 6 1 41 clicco su bottone 1 mi porta nel saldaconto, seleziono la riga da pagare, metto importo, confermo e a volte va in crash, sicuramente va in crash se annullo e rifaccio il tutto.


git-svn-id: svn://10.65.10.50/trunk@19065 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2009-06-22 15:16:19 +00:00
parent d2af0221bb
commit 17c8ff8c76
5 changed files with 37 additions and 40 deletions

View File

@ -2,9 +2,7 @@
#include "cg21sld.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Testata" -1 -1 77 20

View File

@ -1,15 +1,15 @@
#ifndef __CG2100P_H
#define __CG2100P_H
#define P_DESCR 105
#define P_RESIDUO 106
#define P_ANNO 107
#define P_NUMERO 108
#define P_VALUTA 109
#define P_DATACAMBIO 110
#define P_CAMBIO 111
#define P_RESIDUOVAL 112
#define P_CONTROEURO 113
#define P_DESCR 111
#define P_RESIDUO 112
#define P_ANNO 113
#define P_NUMERO 114
#define P_VALUTA 115
#define P_DATACAMBIO 116
#define P_CAMBIO 117
#define P_RESIDUOVAL 118
#define P_CONTROEURO 119
#define P_SHOWALL 180
#define P_SORT 181

View File

@ -20,19 +20,19 @@ PAGE "PARTITE" -1 -1 77 20
STRING P_DESCR 78
BEGIN
PROMPT 1 1 ""
PROMPT 1 0 ""
FLAGS "D"
END
STRING P_VALUTA 3
BEGIN
PROMPT 1 2 "Valuta "
PROMPT 1 1 "Valuta "
FLAGS "DUZ"
END
DATE P_DATACAMBIO
BEGIN
PROMPT 15 2 "Data cambio "
PROMPT 15 1 "Data cambio "
FLAGS "DR"
USE CAM
INPUT CODTAB[1,3] P_VALUTA SELECT
@ -50,7 +50,7 @@ END
NUMBER P_CAMBIO 15 6
BEGIN
PROMPT 43 2 "Cambio "
PROMPT 45 1 "Cambio "
FLAGS "DU"
GROUP 3
PICTURE ".6"
@ -68,29 +68,42 @@ END
NUMBER P_ANNO 4
BEGIN
PROMPT 1 3 "Partita "
PROMPT 1 2 "Partita "
FLAGS "U"
END
STRING P_NUMERO 7
BEGIN
PROMPT 15 3 ""
PROMPT 15 2 ""
FLAGS "U#"
END
CURRENCY P_RESIDUO 18
BEGIN
PROMPT 25 3 "Residuo "
PROMPT 25 2 "Residuo "
FLAGS "D"
END
CURRENCY P_RESIDUOVAL 18
BEGIN
PROMPT 53 3 ""
PROMPT 53 2 ""
FLAGS "D"
DRIVENBY P_VALUTA
END
BOOLEAN P_SHOWALL
BEGIN
PROMPT 1 3 "Mostra tutte le partite"
END
LIST P_SORT 1 10
BEGIN
PROMPT 41 3 "Ordinamento "
ITEM "A|Alfabetico"
ITEM "N|Numerico"
ITEM "D|Per Data"
END
SPREADSHEET P_PARTITE 0 7
BEGIN
PROMPT 0 4 ""
@ -106,7 +119,7 @@ BEGIN
FLAGS "D"
END
SPREADSHEET P_SCADENZE 0 -2
SPREADSHEET P_SCADENZE
BEGIN
PROMPT 0 12 ""
ITEM "Riga"
@ -126,19 +139,6 @@ BEGIN
FLAGS "D"
END
BOOLEAN P_SHOWALL
BEGIN
PROMPT 1 -1 "Mostra tutte le partite"
END
LIST P_SORT 1 10
BEGIN
PROMPT 40 -1 "Ordinamento "
ITEM "A|Alfabetico"
ITEM "N|Numerico"
ITEM "D|Per Data"
END
ENDPAGE
ENDMASK
@ -297,7 +297,6 @@ BEGIN
PICTURE TOOL_EDIT
END
ENDPAGE
ENDMASK

View File

@ -232,11 +232,10 @@ void TCausale::calcIVA()
bool c = false; // Corrispettivi di default
const TString& td = tipo_doc();
if (td.not_empty())
if (td.full())
{
TTable tpd("%TPD");
tpd.put("CODTAB", td);
if (tpd.read() == NOERR)
const TRectype& tpd = cache().get("%TPD", td);
if (!tpd.empty())
{
i = (TipoIVA)tpd.get_int("I0"); // IVA acquisti, vendite, generica
const TipoIVA ri = _reg.iva();
@ -249,7 +248,8 @@ void TCausale::calcIVA()
}
c = tpd.get_bool("B0"); // B0 flag corrispettivi
}
else error_box(FR("Tipo documento sconosciuto: '%s'"), (const char*)td);
else
error_box(FR("Tipo documento sconosciuto: '%s'"), (const char*)td);
}
_iva = i;
_corrisp = c;

View File

@ -1,4 +1,4 @@
PAGE "RIGA PRIMA NOTA" -1 -1 67 14
PAGE "RIGA PRIMA NOTA" -1 -1 67 15
GROUPBOX DLG_NULL 66 3
BEGIN