Versione

Data

Descrizione

Esempio prima

Esempio dopo

2.1.1

07/10/2019

Procedura "Z-nomegrid-NOME-TRANSITO"

Il nome del file creato ora contiene anche data/ora

    z-grid-det-nome-transito.

          string ext-tmp-dir     delimited '  '

                 ext-os-slash    delimited size

                 k-program-id '-' delimited size

                 'grid-det-' delimited size

                 wo-oper         delimited size

                 into w-nome-t-grid-det

          .

    z-grid-det-nome-transito.

          accept datasis from century-date

          accept orasis-a from time

          string ext-tmp-dir     delimited '  '

                 ext-os-slash    delimited size

                 k-program-id '-' delimited size

                 'grid-det-' delimited size

                 wo-oper '-'     delimited size

                 datasis '-'     delimited size

                 orasis-a        delimited size

                 into w-nome-t-grid-det

          .

2.1.2

11/10/2019

Procedura "Z-nomegrid-APRI-TRANSITO"

Introduco anche la cancellazione del file di transito prima di riaprirlo, altrimenti rischio di produrre "n" files prima dell'uscita

      z-grid-det-apri-transito.

          perform z-grid-det-nome-transito

          close t-grid-det

          open output t-grid-det

          if stato <> '00'

             initialize wb-msg

             string m-tb-problema-open-transito delimited '  '

                stato k-newline 'file: ' w-nome-t-grid-det

                delimited size into wb-msg

             perform vbx-msg-error

             go to fine

          end-if

      z-grid-det-apri-transito.

          close t-grid-det

          delete file t-grid-det

          perform z-grid-det-nome-transito

          open output t-grid-det

          if stato <> '00'

             initialize wb-msg

             string m-tb-problema-open-transito delimited '  '

                stato k-newline 'file: ' w-nome-t-grid-det

                delimited size into wb-msg

             perform vbx-msg-error

             go to fine

          end-if

2.1.3

21/10/2019

Procedure "Z-60-nomecampo."

Modifiche per gestire meglio i campi con nomi lunghi, che altrimenti potevano essere troncati

      z-s60-l-copiaf-destination-location.

          move 19                        to s60-s

          move 'D'                       to s60-fl-disp

          move  2                        to s60-n-opt

          move tab-opt-l-copiaf-destination-location to s60-dati

          set s60-handle to handle of e-l-copiaf-destination-location

        move l-copiaf-destination-locatto s60-i-field

          move funzio                    to s60-exception

          move control-id                to s60-o-control-id

          call 'COGS60W'              using stringhe util-s60

          move s60-exception             to funzio

         move s60-o-field               to l-copiaf-destination-location

          move s60-o-control-id          to control-id

      z-s60-l-copiaf-destination-location.

          move 19                        to s60-s

          move 'D'                       to s60-fl-disp

          move  2                        to s60-n-opt

          move tab-opt-l-copiaf-destination-location to s60-dati

          set s60-handle to handle of e-l-copiaf-destination-location

          move l-copiaf-destination-location to s60-i-field

          move funzio                    to s60-exception

          move control-id                to s60-o-control-id

          call 'COGS60W'              using stringhe util-s60

          move s60-exception             to funzio

          move s60-o-field to l-copiaf-destination-location

          move s60-o-control-id          to control-id

2.1.4

11/11/2019

Costruzione gestori di tabella; generazione copy "k-modelli-ie-nometabella"

Modifiche secondario per evitare di superare i 73 caratteri quando il nome tabella è molto lungo

2.1.5

15/11/2019

Quando un programma contiene nella definizione delle tabelle "Postgres", aggiungo

•"prg.wrk":

ocopy "sql-decla-ws.cpy"

ocopy "tabella-sql-ws.cpy"

•"prg.prc":

ocopy "sql-interface-ws.cpy"

ocopy "tabella-sql-prc.cpy"

ocopy "tabella.k01-agg"

ocopy "tabella.knn"

2.1.6

19/11/2019

Generazione nomegrid-RECORD: i campi con formato S9(01) non hanno più l'attributo "BLANK WHEN ZERO" perchè dà errore di compilazione

       01  grid-det-record.

        02 grd-r-fl-agg pic x(10).

        02 grd-r-p-0002 pic z(0011)9 blank when zero.

        02 grd-r-p-0003 pic x(0006).

        02 grd-r-p-0004 pic x(0002).

        02 grd-r-p-0005 pic z(0011)9 blank when zero.

        02 grd-r-p-0006 pic z(0009)9 blank when zero.

        02 grd-r-p-0007 pic x(0001).

        02 grd-r-p-0008 pic s9(01) blank when zero.

        02 grd-r-p-0009 pic x(0200).

       01  grid-det-record.

        02 grd-r-fl-agg pic x(10).

        02 grd-r-p-0002 pic z(0011)9 blank when zero.

        02 grd-r-p-0003 pic x(0006).

        02 grd-r-p-0004 pic x(0002).

        02 grd-r-p-0005 pic z(0011)9 blank when zero.

        02 grd-r-p-0006 pic z(0009)9 blank when zero.

        02 grd-r-p-0007 pic x(0001).

        02 grd-r-p-0008 pic s9(01).

        02 grd-r-p-0009 pic x(0200).

2.2.0

04/12/2019

Modifiche varie per gestire la "visibilità custom" dei controlli, sulle maschere dove è abilitata la gestione customizzazioni

2.2.1

20/12/2019

•Correzione a creazione .WRK, per un problema nella ricerca dei files gestiti in lingua: non cercava tra tutti i files per aggiungere "nomefile.lng-orig"

•Correzione a creazione .PRC: generava 2 volte la direttiva nomefile.k01-agg per le tabelle DB

2.2.2

09/01/2020

Correzione a generazione Z-U10-.... relativi ai valori in griglia: è possibile definire anche il tipo dato "C", che significa "custom".

In questo caso sarà richiesta la presenza nel sorgente del dato TM-U10-TIPO-DATO, che dovrà contenere il tipo dato da applicarre

2.2.3

10/02/2020

Miglioria alla creazione del processo di begin-entry per le colonne griglia di tipo "Check", in modo che sia anche possibile selezionare il valore direttamente premendo il valore corrispondente sulla tastiera (come nei campi a valori fissi)

      z-grid-det-be-tipo-riga.

          move tm-tipo-riga (i) to grb-tipo-riga

          move i to k-be

          perform z-grid-det-tipo-riga-be-ep

          if not w-entry-double-click and

             not w-entry-enter        and

             w-entry-reason <> ' '

             move 'N'              to w-cell-accept-ok

          end-if

          if w-cell-accept-ok = 'S'

             initialize util-gridcol

             move 'SEL-CHECK' to gridcol-ope

             move k-program-grid-id to gridcol-grid-prg

             move 1                to gridcol-grid-form

             move k-id-grid-det to gridcol-grid-id

             move 'tipo-riga' to gridcol-col-id

             move tm-tipo-riga (i) to gridcol-i-val

             call 'GRIDCOL' using stringhe util-gridcol

             set event-action to event-action-fail-terminate

             if gridcol-o-val <> low-values

                move gridcol-o-val to tm-tipo-riga (i)

                move 'S'           to tm-fl-riga-mod (i)

                modify e-grid-det,

                  x = w-cell-x, y = w-cell-y,

                  cell-data = gridcol-o-des

                perform x-controlla-tm-tipo-riga-auto

                perform x-ctr-color-tm-tipo-riga

                if x-f3-ok-parziale = 'N'

                   perform x-set-f3-msg-grid-det

                   move x-f3-msg    to wb-msg

                   perform vbx-msg-error

                   set event-action to event-action-fail-terminate

                end-if

             end-if

          end-if

          .

      z-grid-det-be-tipo-riga.

          move tm-tipo-riga (i) to grb-tipo-riga

          move i to k-be

          perform z-grid-det-tipo-riga-be-ep

          if w-cell-accept-ok = 'S'

             initialize util-gridcol

             move 'SEL-CHECK' to gridcol-ope

             move k-program-grid-id to gridcol-grid-prg

             move 1                to gridcol-grid-form

             move k-id-grid-det to gridcol-grid-id

             move 'tipo-riga' to gridcol-col-id

             move tm-tipo-riga (i) to gridcol-i-val

             move w-entry-reason   to gridcol-i-val-input

             call 'GRIDCOL' using stringhe util-gridcol

             set event-action to event-action-fail-terminate

             if gridcol-o-val <> low-values

                move gridcol-o-val to tm-tipo-riga (i)

                move 'S'           to tm-fl-riga-mod (i)

                modify e-grid-det,

                  x = w-cell-x, y = w-cell-y,

                  cell-data = gridcol-o-des

                perform x-controlla-tm-tipo-riga-auto

                perform x-ctr-color-tm-tipo-riga

                if x-f3-ok-parziale = 'N'

                   perform x-set-f3-msg-grid-det

                   move x-f3-msg    to wb-msg

                   perform vbx-msg-error

                   set event-action to event-action-fail-terminate

                end-if

             end-if

          end-if

          .

2.2.4

21/02/2020

Corretto errore introdotto nella versione 2.2.0

Tutti i campi X-VISIBLE-nomecampo venivano messi con "VALUE = 1", questo provocava uno sfarfallio nell'emissione delle maschera, vedi COGV06NO

Ora invece effettuo questa modifica solo per i campi realmente interessati alla modifica della visibilità

(L'esempio riportato è su COGO20)

     *-----------------------------------------------*

     * Variabili per la visibilita` dei controlli

     *-----------------------------------------------*

      01  x-visible.

        02 x-visible-tm-commessa    pic 9(01) value 1.

        02 x-visible-tm-impegno     pic 9(01) value 1.

        02 x-visible-tm-com-tsc     pic 9(01) value 1.

        02 x-visible-tm-com-sot     pic 9(01) value 1.

        02 x-visible-tm-mgp-rif-cod pic 9(01) value 1.

     *------------------------------------------------*

     * Variabili per la visibilita` dei controlli

     *------------------------------------------------*

      01  x-visible.

        02 x-visible-tm-commessa    pic 9(01) value 1.

        02 x-visible-tm-impegno     pic 9(01) value 1.

        02 x-visible-tm-com-tsc     pic 9(01).

        02 x-visible-tm-com-sot     pic 9(01).

        02 x-visible-tm-mgp-rif-cod pic 9(01).

2.2.6

08/06/2020

Correzione in fase di creazione nome file di transito griglie (gestione griglie evolute)

Il file di transito griglia non veniva più creato in versione 5, a causa della modifica del nome del file

     *-----------------------------------------------*

     * Attribuzione nome del file di transito

     *-----------------------------------------------*

      z-grid-det-nome-transito.

          .....

          move ' '            to w-cell-data

          string k-program-id '-' delimited size

                 'grid-det-' delimited size

                 wo-oper         delimited size

                 '_VERSION'      delimited size

                 into w-cell-data

          set environment w-cell-data to '5'

          .

     *------------------------------------------------*

     * Attribuzione nome del file di transito

     *------------------------------------------------*

      z-grid-det-nome-transito.

          .....

          move ' '            to w-cell-data

          string k-program-id '-' delimited size

                 'grid-det-' delimited size

                 wo-oper '-'     delimited size

                 datasis '-'     delimited size

                 orasis-a        delimited size

                 '_VERSION'      delimited size

                 into w-cell-data

          set environment w-cell-data to '5'

          .

2.3

19/06/2020

Implementazioni per poter gestire le etichette per ciascun sottocampo dei campi "Merce"

Le modifiche coinvolgono la generazione dei files:

•.scr

•.wrk

•.prc

2.3.1

07/10/2020

Correzione in generazione routine Z-MODIFICA-RIGA-nomegrid

     *----------------------------------------------*

     * refresh di una riga della griglia

     *----------------------------------------------*

      z-modifica-riga-grid-det.

          move gor-r-i to k

          perform x-riempi-grid-det-record

          move grid-det-record to gdad-record-ext

     *----------------------------------------------*

     * refresh di una riga della griglia

     *----------------------------------------------*

      z-modifica-riga-grid-det.

          move gor-r-i to k k-rg

          perform x-riempi-grid-det-record

          move grid-det-record to gdad-record-ext

2.4.0

12/10/2020

Implementazioni per poter gestire il "Copia cella" sulle griglie evolute

2.4.1

15/10/2020

Nella routine "nomeprogramma.decla", ometto "feurtab" se non ci sono file standard

2.5.0

16/11/2020

Generazione programmi con griglie paginate: introduzione delle parti per gestire l'esportazione griglia attraverso file di appoggio, che permette di rendere l'esportazione molto più efficiente

2.5.1

15/12/2020

Alcune correzioni alla definizione di variabili necessarie alla nuova esportazione griglie del punto 2.5.0

2.5.2

21/12/2020

Implementazioni per poter gestire il "Filtro istantaneo sulla cella" sulle griglie evolute

2.5.3

22/12/2020

Correzioni nella creazione della routine di validazione sull'accept in griglia di codice e descrizione piano dei conti, per evitare i problemi di riapertura delle finestre di aiuto dopo aver selezionato un elemento

2.5.4

29/12/2020

Nella generazione dei gestori di tabella, non uso l'etichetta attribuita al campo come intestazione delle colonne griglia