Sistemate maschere registri e libro unico
git-svn-id: svn://10.65.10.50/trunk@823 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
b54ab015cb
commit
4bde87d871
@ -252,16 +252,11 @@ bool TForm_editor::edit(char s, pagetype t)
|
||||
|
||||
if (dirty && yesno_box("Salvare le modifiche?"))
|
||||
{
|
||||
CURSOR old = get_cursor(TASK_WIN);
|
||||
set_cursor(TASK_WIN, CURSOR_WAIT);
|
||||
|
||||
const TFilename& n = _form->name();
|
||||
TFilename bak(n); bak.ext("bak");
|
||||
rename(n, bak);
|
||||
ofstream out(n);
|
||||
_form->print_on(out);
|
||||
|
||||
set_cursor(TASK_WIN, old);
|
||||
}
|
||||
|
||||
return dirty;
|
||||
|
||||
@ -135,20 +135,21 @@ bool BA6100_App::preprocess_page(int file, int counter)
|
||||
bool mask_reset_fields(TMask_field& mf, KEY k)
|
||||
{
|
||||
if (k == K_SPACE)
|
||||
{
|
||||
BA6100_App* a = (BA6100_App*)MainApp();
|
||||
mf.mask().field(FLD_BA6B_INDROW).set(format("%d",a->_ind_row));
|
||||
mf.mask().field(FLD_BA6B_INDCOL).set(format("%d",a->_ind_col));
|
||||
mf.mask().field(FLD_BA6B_PIVROW).set(format("%d",a->_piv_row));
|
||||
mf.mask().field(FLD_BA6B_PIVCOL).set(format("%d",a->_piv_col));
|
||||
mf.mask().field(FLD_BA6B_CODROW).set(format("%d",a->_cod_row));
|
||||
mf.mask().field(FLD_BA6B_CODCOL).set(format("%d",a->_cod_col));
|
||||
mf.mask().field(FLD_BA6B_TOTROW).set(format("%d",a->_rows_et));
|
||||
mf.mask().field(FLD_BA6B_TOTCOL).set(format("%d",a->_cols_et));
|
||||
mf.mask().field(CHK_BA6B_PIVA).set(a->_is_piv ? "X" : " ");
|
||||
mf.mask().field(CHK_BA6B_CODICE).set(a->_is_cod ?"X": " ");
|
||||
}
|
||||
return TRUE;
|
||||
{
|
||||
TMask& m = mf.mask();
|
||||
BA6100_App& a = (BA6100_App&)main_app();
|
||||
m.set(FLD_BA6B_INDROW, a._ind_row));
|
||||
m.set(FLD_BA6B_INDCOL, a._ind_col));
|
||||
m.set(FLD_BA6B_PIVROW, a._piv_row));
|
||||
m.set(FLD_BA6B_PIVCOL, a._piv_col));
|
||||
m.set(FLD_BA6B_CODROW, a._cod_row));
|
||||
m.set(FLD_BA6B_CODCOL, a._cod_col));
|
||||
m.set(FLD_BA6B_TOTROW, a._rows_et));
|
||||
m.set(FLD_BA6B_TOTCOL, a._cols_et));
|
||||
m.set(CHK_BA6B_PIVA, a._is_piv ? "X" : " ");
|
||||
m.set(CHK_BA6B_CODICE, a._is_cod ? "X": " ");
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
|
||||
@ -10,12 +10,12 @@ PAGE "Tabella Indici Libro Unico" -1 -1 71 20
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 4 1 "Anno esercizio "
|
||||
PROMPT 1 1 "Anno esercizio "
|
||||
FLAGS "AZ"
|
||||
FIELD %INL->CODTAB[1,4]
|
||||
FIELD CODTAB[1,4]
|
||||
USE %LBU
|
||||
INPUT F_ANNO CODTAB[1,4]
|
||||
INPUT F_CODLIB CODTAB[5,7]
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODLIB
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice libro unico" CODTAB[5,7]
|
||||
OUTPUT F_ANNO CODTAB[1,4]
|
||||
@ -26,11 +26,12 @@ END
|
||||
|
||||
STRING F_CODLIB 3
|
||||
BEGIN
|
||||
PROMPT 34 1 "Codice libro unico "
|
||||
PROMPT 31 1 "Codice libro "
|
||||
FLAGS "U"
|
||||
FIELD %INL->CODTAB[5,7]
|
||||
FIELD CODTAB[5,7]
|
||||
COPY ALL F_ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
KEY 1
|
||||
END
|
||||
|
||||
@ -38,7 +39,7 @@ NUMBER F_INDEX 7
|
||||
BEGIN
|
||||
PROMPT 54 1 "Indice "
|
||||
FLAGS "Z"
|
||||
FIELD %INL->CODTAB[8,14]
|
||||
FIELD CODTAB[8,14]
|
||||
USE %INL
|
||||
COPY INPUT F_ANNO
|
||||
INPUT CODTAB[8,14] F_INDEX
|
||||
@ -53,14 +54,14 @@ END
|
||||
NUMBER F_ANNOREG 4
|
||||
BEGIN
|
||||
PROMPT 1 2 "Anno registrazione "
|
||||
FIELD %INL->I0
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
FIELD I0
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LIST F_MESE 2 10
|
||||
BEGIN
|
||||
PROMPT 38 2 "Mese registrazione "
|
||||
FIELD %INL->I1
|
||||
PROMPT 42 2 "Mese registrazione "
|
||||
FIELD I1
|
||||
ITEMS " |Nessuno"
|
||||
FLAGS "M"
|
||||
END
|
||||
@ -68,21 +69,21 @@ END
|
||||
STRING F_PINI_LU 5 5
|
||||
BEGIN
|
||||
PROMPT 1 3 "Numero iniziale pagina registro unico "
|
||||
FIELD %INL->I2
|
||||
FIELD I2
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_PFIN_LU 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Numero finale pagina registro unico "
|
||||
FIELD %INL->I3
|
||||
FIELD I3
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_DITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Codice ditta "
|
||||
FIELD %INL->I4
|
||||
FIELD I4
|
||||
FLAGS "R"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_DITTA
|
||||
@ -96,59 +97,71 @@ END
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 1 7 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
USE LF_NDITTE KEY 2
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice ditta" CODDITTA
|
||||
COPY OUTPUT F_DITTA
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CODREG 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Codice registro "
|
||||
FIELD %INL->S0
|
||||
USE REG
|
||||
FLAGS "UZ"
|
||||
FIELD S0
|
||||
USE REG SELECT CODTAB[1,4]=#F_ANNO
|
||||
FLAGS "UZ"
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODREG
|
||||
DISPLAY "Codice registro" CODTAB[5,7]
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODREG CODTAB[5,7]
|
||||
OUTPUT 113 S0
|
||||
OUTPUT F_DESCREG S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESCREG 50 50
|
||||
BEGIN
|
||||
PROMPT 1 9 "Descrizione "
|
||||
FLAGS "D"
|
||||
USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
|
||||
INPUT S0 F_DESCREG
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice registro" CODTAB[5,7]
|
||||
COPY OUTPUT F_CODREG
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_PINI_RU 5
|
||||
BEGIN
|
||||
PROMPT 1 11 "Numero iniziale pagina registro utente "
|
||||
FIELD %INL->I5
|
||||
FIELD I5
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_PFIN_RU 5
|
||||
BEGIN
|
||||
PROMPT 1 12 "Numero finale pagina registro utente "
|
||||
FIELD %INL->I6
|
||||
FIELD I6
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_CODVID 3 3
|
||||
BEGIN
|
||||
PROMPT 1 14 "Codice vidimazione "
|
||||
FIELD %INL->S1
|
||||
FIELD S1
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPATO
|
||||
BEGIN
|
||||
PROMPT 1 16 "Stampato su bollato "
|
||||
FIELD %INL->B0
|
||||
FIELD B0
|
||||
END
|
||||
|
||||
BOOLEAN F_PANN_LU
|
||||
BEGIN
|
||||
PROMPT 36 16 "Pagine libro unico annullate"
|
||||
FIELD %INL->B1
|
||||
FIELD B1
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -10,55 +10,65 @@ PAGE "Tabella libro unico" -1 -1 78 18
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 4 1 "Anno esercizio "
|
||||
FIELD %LBU->CODTAB[1,4]
|
||||
USE %LBU KEY 1 ALIAS 50
|
||||
CHECKTYPE REQUIRED
|
||||
PROMPT 3 1 "Anno esercizio "
|
||||
FIELD CODTAB[1,4]
|
||||
FLAGS "AZ"
|
||||
USE %LBU
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODLIB
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice libro unico" CODTAB[5,7]
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_ANNO CODTAB[1,4]
|
||||
OUTPUT F_CODLIB CODTAB[5,7]
|
||||
OUTPUT F_DESCRLBU S0
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_CODLIB 3
|
||||
BEGIN
|
||||
PROMPT 4 2 "Codice libro unico "
|
||||
PROMPT 45 1 "Codice "
|
||||
FLAGS "U"
|
||||
FIELD %LBU->CODTAB[5,7]
|
||||
COPY USE F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODLIB
|
||||
COPY DISPLAY F_ANNO
|
||||
COPY OUTPUT F_ANNO
|
||||
FIELD CODTAB[5,7]
|
||||
COPY ALL F_ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESCRLBU 50
|
||||
BEGIN
|
||||
PROMPT 3 2 "Descrizione "
|
||||
FIELD S0
|
||||
USE %LBU KEY 2
|
||||
INPUT S0 F_DESCRLBU
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice libro unico" CODTAB[5,7]
|
||||
COPY OUTPUT F_CODLIB
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 2
|
||||
END
|
||||
|
||||
LIST F_ULT_MESE_STAMP 2 10
|
||||
BEGIN
|
||||
PROMPT 45 1 "Ultimo mese stampa "
|
||||
FIELD %LBU->I0
|
||||
PROMPT 3 3 "Ultimo mese stampa "
|
||||
FIELD I0
|
||||
ITEM " |Nessuno"
|
||||
FLAGS "M"
|
||||
END
|
||||
|
||||
NUMBER F_ULT_PAG 5
|
||||
BEGIN
|
||||
PROMPT 45 2 "Ultima pagina "
|
||||
FIELD %LBU->I1
|
||||
PROMPT 45 3 "Ultima pagina "
|
||||
FIELD I1
|
||||
END
|
||||
|
||||
STRING F_DESCRLBU 50
|
||||
BEGIN
|
||||
PROMPT 4 3 "Descrizione "
|
||||
FIELD %LBU->S0
|
||||
END
|
||||
|
||||
LIST F_TIPOA 10
|
||||
BEGIN
|
||||
PROMPT 3 4 "Tipo persona "
|
||||
FIELD %LBU->S2
|
||||
FIELD S2
|
||||
ITEM "F|Fisica"
|
||||
ITEM "G|Giuridica"
|
||||
END
|
||||
@ -66,7 +76,7 @@ END
|
||||
STRING F_TIPOANAGR 50
|
||||
BEGIN
|
||||
PROMPT 3 5 "Tipo anagrafico "
|
||||
FIELD %LBU->S1
|
||||
FIELD S1
|
||||
USE LF_ANAG KEY 2
|
||||
INPUT TIPOA F_TIPOA
|
||||
INPUT RAGSOC F_TIPOANAGR
|
||||
@ -80,7 +90,7 @@ END
|
||||
NUMBER F_CODTABLIB 2
|
||||
BEGIN
|
||||
PROMPT 3 6 "Codice libro "
|
||||
FIELD %LBU->I3
|
||||
FIELD I3
|
||||
FLAGS "Z"
|
||||
USE %ITL
|
||||
INPUT CODTAB F_CODTABLIB
|
||||
@ -89,7 +99,6 @@ BEGIN
|
||||
OUTPUT F_CODTABLIB CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Inserire il codice del libro"
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
@ -101,57 +110,57 @@ END
|
||||
STRING F_CONSPRESSO 40
|
||||
BEGIN
|
||||
PROMPT 3 8 "Conservato presso "
|
||||
FIELD %LBU->S3
|
||||
FIELD S3
|
||||
END
|
||||
|
||||
STRING F_CODVID 3
|
||||
BEGIN
|
||||
PROMPT 3 9 "Codice vidimazione "
|
||||
FIELD %LBU->S4
|
||||
FIELD S4
|
||||
END
|
||||
|
||||
DATE F_DATAVID
|
||||
BEGIN
|
||||
PROMPT 3 10 "Data vidimazione "
|
||||
FIELD %LBU->D0
|
||||
FIELD D0
|
||||
END
|
||||
|
||||
DATE F_DATASCAD
|
||||
BEGIN
|
||||
PROMPT 45 10 "Data scadenza "
|
||||
FIELD %LBU->D1
|
||||
FIELD D1
|
||||
END
|
||||
|
||||
NUMBER F_NUMPAG 5
|
||||
BEGIN
|
||||
PROMPT 3 12 "Num.pag. libro unico "
|
||||
FIELD %LBU->I2
|
||||
FIELD I2
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAINT
|
||||
BEGIN
|
||||
PROMPT 3 14 "Stampa intestazione studio su libro unico"
|
||||
FIELD %LBU->B0
|
||||
PROMPT 3 13 "Stampa intestazione studio su libro unico"
|
||||
FIELD B0
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAINDCOMP
|
||||
BEGIN
|
||||
PROMPT 3 15 "Stampa l' indirizzo completo della ditta"
|
||||
FIELD %LBU->B1
|
||||
PROMPT 3 14 "Stampa l' indirizzo completo della ditta"
|
||||
FIELD B1
|
||||
END
|
||||
|
||||
RADIOBUTTON F_MODULO 27
|
||||
BEGIN
|
||||
PROMPT 3 17 "Formato modulo di stampa "
|
||||
PROMPT 3 15 "Formato modulo di stampa "
|
||||
ITEM "66|11 pollici (27,94 cm)"
|
||||
ITEM "72|12 pollici (30,48 cm)"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPA 27
|
||||
BEGIN
|
||||
PROMPT 46 17 "Numero caratteri "
|
||||
ITEM "1|132 crt."
|
||||
ITEM "2|198 crt."
|
||||
PROMPT 46 15 "Numero caratteri "
|
||||
ITEM "1|132 caratteri per riga"
|
||||
ITEM "2|198 caratteri per riga"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -211,9 +211,11 @@ END
|
||||
STRING F_CODLBU 3
|
||||
BEGIN
|
||||
PROMPT 1 15 "Cod. libro unico "
|
||||
HELP "Codice del libro unico a cui fa riferimento"
|
||||
GROUP 2 3 4
|
||||
FIELD S6
|
||||
HELP "Codice del libro unico a cui fa riferimento"
|
||||
FLAGS "U"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
GROUP 2 3 4
|
||||
USE %LBU
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODLBU
|
||||
@ -222,7 +224,6 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_ANNO CODTAB[1,4]
|
||||
OUTPUT F_CODLBU CODTAB[5,7]
|
||||
ADD RUN ba3 -4
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Libro unico assente"
|
||||
END
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user