Correzione alla stampa indici libro unico:

visualizzazione ricerca e sort per codice registro allineato a sx.


git-svn-id: svn://10.65.10.50/trunk@4146 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-02-21 09:53:32 +00:00
parent 1224ad9565
commit 5d8046f99f
2 changed files with 5 additions and 5 deletions

View File

@ -174,7 +174,7 @@ void TStampa_indici::crea_sort()
_lib->num_riga = num_riga;
_lib->nfin_plib = numfin_paglib;
_lib->codditta = codditta;
sprintf (_lib->cod_reg, "%3s", (const char*) cod_reg);
sprintf (_lib->cod_reg, "%-3s", (const char*) cod_reg);
_lib->nini_put = numini_pagut;
_lib->nfin_put = numfin_pagut;
sprintf (_lib->cod_vid, "%3s", (const char*) cod_vidimaz);

View File

@ -83,8 +83,8 @@ BEGIN
USE %LBU
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_LIBRO_UNICO1
DISPLAY "Anno riferimento " CODTAB[1,4]
DISPLAY "Codice libro unico " CODTAB[5,7]
DISPLAY "Anno@20" CODTAB[1,4]
DISPLAY "Libro unico@22" CODTAB[5,7]
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_LIBRO_UNICO1 CODTAB[5,7]
OUTPUT F_ANNODA CODTAB[1,4]
@ -128,7 +128,7 @@ END
NUMBER F_STAMPA_ANNO 4
BEGIN
PROMPT 4 8 "Anno "
PROMPT 4 8 "Anno "
FLAGS "R"
/* USE %LBU
INPUT CODTAB[1,4] F_STAMPA_ANNO
@ -173,7 +173,7 @@ END
NUMBER F_STAMPA_MESE 2
BEGIN
PROMPT 4 11 "Stampa mese "
PROMPT 4 11 "Stampa mese "
HELP "Mese di cui effettuare la stampa"
NUM_EXPR {(#THIS_FIELD >= #F_STAMPA_MESEG) && (#THIS_FIELD <= 12)}
WARNING "Il mese da stampare deve essere maggiore o uguale all'ultimo mese di stampa indicato sulla tabella del libro unico selezionato"