diff --git a/ab/ab0200.cpp b/ab/ab0200.cpp index b0faee171..b1ccd809e 100755 --- a/ab/ab0200.cpp +++ b/ab/ab0200.cpp @@ -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(); } diff --git a/ab/ab0200a.uml b/ab/ab0200a.uml index 2dc2b8193..5a90a1b27 100755 --- a/ab/ab0200a.uml +++ b/ab/ab0200a.uml @@ -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 diff --git a/ab/batbpdb.uml b/ab/batbpdb.uml index e53628563..5403fc065 100755 --- a/ab/batbpdb.uml +++ b/ab/batbpdb.uml @@ -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