Correzioni per XI e corretto errore da MI

git-svn-id: svn://10.65.10.50/trunk@2844 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-05-16 13:16:05 +00:00
parent 600e9787d2
commit faad9e5dc5
3 changed files with 18 additions and 19 deletions

View File

@ -180,7 +180,7 @@ int TPconAb::rewrite(const TMask& m)
TString16 codopp = _rel->curr(LF_ABPCON).get("CODCONTR");
ScriviContoSezOpp(codopp,"");
m.autosave(_rel);
m.autosave(*_rel);
codopp = m.get(F_CODCONTR);
TString16 val (m.get(F_CODICE));
@ -195,7 +195,7 @@ int TPconAb::write(const TMask& m)
TString16 val (m.get(F_CODICE));
ScriviContoSezOpp(codopp,val);
m.autosave(_rel);
m.autosave(*_rel);
return _rel->write();
}

View File

@ -20,7 +20,7 @@ BEGIN
HELP "Codice della tabella Piano dei Conti"
FIELD LF_ABPCON->CODCBL
KEY 1
USE LF_ABPCON KEY 1
USE LF_ABPCON KEY 1
INPUT CODCBL F_CODICE
DISPLAY "Codice@11" CODCBL
DISPLAY "Descrizione@40" DESCRIZ[1,40]
@ -67,7 +67,7 @@ BEGIN
CHECKTYPE REQUIRED
END
LIST F_INDBIL 14
LIST F_INDBIL 16
BEGIN
PROMPT 2 8 "Indicatore di bilancio "
FIELD LF_ABPCON->INDBIL
@ -77,7 +77,7 @@ BEGIN
ITEM "4|Ricavi"
ITEM "5|Conti d'ordine"
ITEM "9|Varie"
END
END
NUMBER F_CODCONTR 10
BEGIN
@ -93,10 +93,10 @@ BEGIN
OUTPUT F_CODCONTR CODCBL
OUTPUT F_DESCRCONTR1 DESCRIZ[1,40]
OUTPUT F_DESCRCONTR2 DESCRIZ[41,]
CHECKTYPE NORMAL
CHECKTYPE NORMAL
ADD RUN AB0 -1 #F_CODICE #F_INDBIL
FLAGS "Z"
END
END
STRING F_DESCRCONTR1 40
BEGIN
@ -118,8 +118,8 @@ BEGIN
PROMPT 30 12 ""
FLAGS "D"
END
LIST F_DETTAGLIO 10
LIST F_DETTAGLIO 11
BEGIN
PROMPT 2 13 "Dettaglio/Movimenti "
FIELD LF_ABPCON->DETT

View File

@ -19,7 +19,7 @@ BEGIN
PROMPT 2 1 "Codice tabella "
HELP "Codice della tabella periodi di bilancio"
FLAS "U_"
FIELD %PDB->CODTAB
FIELD CODTAB
KEY 1
USE %PDB KEY 1
INPUT CODTAB F_CODTAB
@ -49,14 +49,14 @@ BEGIN
DISPLAY "@2" I3
COPY OUTPUT F_CODTAB
CHECKTYPE REQUIRED
FIELD %PDB->S0
FIELD S0
END
NUMBER F_GIORNO_INI 2
BEGIN
PROMPT 2 5 "Inizio periodo "
HELP "Inserire il giorno relativo al periodo di inizio"
FIELD %PDB->I0
FIELD I0
FLAGS "R"
CHECKTYPE REQUIRED
END
@ -65,7 +65,7 @@ NUMBER F_MESE_INI 2
BEGIN
PROMPT 21 5 ""
HELP "Inserire il mese relativo al periodo di inizio"
FIELD %PDB->I1
FIELD I1
FLAGS "R"
CHECKTYPE REQUIRED
END
@ -79,7 +79,7 @@ NUMBER F_GIORNO_FINE 2
BEGIN
PROMPT 2 7 "Fine periodo "
HELP "Inserire il giorno relativo alla fine del periodo"
FIELD %PDB->I2
FIELD I2
FLAGS "R"
CHECKTYPE REQUIRED
END
@ -88,7 +88,7 @@ NUMBER F_MESE_FINE 2
BEGIN
PROMPT 21 7 ""
HELP "Inserire il mese relativo alla fine del periodo"
FIELD %PDB->I3
FIELD I3
FLAGS "R"
CHECKTYPE REQUIRED
END
@ -98,11 +98,10 @@ BEGIN
PROMPT 25 7 "gg/mm"
END
STRING F_DESCRAGG 50
STRING F_DESCRAGG 15
BEGIN
PROMPT 2 9 "Descrizione "
FLAGS "D"
FIELD %PDB->S1
PROMPT 2 9 "Descrizione alternativa per stampa raffronti "
FIELD S1
END
ENDPAGE