root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzione alla stampa indici libro unico:

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ba/ba3600.cpp
View File

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

8
ba/ba3600a.uml
View File

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