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

Patch level : 12.0 897

Browse Source 
Files correlati     : ve2.exe tp0.exe tutti i profili
Commento           to :

Gestione conai
This commit is contained in:
Alessandro Bonazzi 2019-11-10 13:43:30 +01:00
parent afd64cd4ba
commit f7d726dcb1
2 changed files with 165 additions and 144 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/ve/velib06.cpp
View File

@ -1765,18 +1765,37 @@ TVariable_mask* TDocumento_mask::riga_mask(int numriga)
FOR_EACH_CONAI_CLASS(ct) FOR_EACH_CONAI_CLASS(ct)
has_conai |= conai_configured_class(ct); has_conai |= conai_configured_class(ct);
for (int i = 0; i < FR_CMAX; i++) TString select;
if (has_conai)
{
FOR_EACH_CONAI_CLASS(ct)
if (conai_configured_class(ct))
select << "(CODTAB[1,2]==" << conai_class2str(ct) << ")||";
select.rtrim(2);
}
for (int i = 0; i < FR_CMAX; i++)
{ {
const short posc = conai_sottocat_id(i); const short posc = conai_sottocat_id(i);
const short posp = conai_peso_id(i); const short posp = conai_peso_id(i);
if (has_conai) if (has_conai)
{ {
m->show(posc); if (m->id2pos(posc) >= 0)
m->set_handler(posc, sottocat_conai_handler); {
m->show(posp); m->show(posc);
m->set_handler(posp, peso_conai_handler); m->set_handler(posc, sottocat_conai_handler);
} m->show(posp);
m->set_handler(posp, peso_conai_handler);
TRelation * r = new TRelation("&SCC");
TCursor * c = new TCursor(r);
c->setfilter(select);
m->efield(posc).browse()->set_cursor(c);
}
}
else else
{ {
m->hide(posc); m->hide(posc);

278
src/ve/verig.uml
View File

@ -1944,144 +1944,9 @@ ENDIF
ENDPAGE ENDPAGE
PAGE "Pag.3" -1 -1 MASK_WIDTH MASK_HEIGHT
GROUPBOX DLG_NULL 78 14
BEGIN
PROMPT 1 0 "Contabilita' analitica"
END
IFDEF(FLD_CDC)
STRING FR_CDC1 20
BEGIN
PROMPT 2 1 "Cms1 "
FLAGS "B"
END
STRING FR_CDC2 20
BEGIN
PROMPT 2 2 "Cms2 "
FLAGS "B"
END
STRING FR_CDC3 20
BEGIN
PROMPT 2 3 "Cms3 "
FLAGS "B"
END
STRING FR_CDC4 20
BEGIN
PROMPT 2 4 "Cms4 "
FLAGS "B"
END
STRING FR_CDC5 20
BEGIN
PROMPT 2 5 "Cms5 "
FLAGS "B"
END
STRING FR_CDC6 20
BEGIN
PROMPT 2 6 "Cms6 "
FLAGS "B"
END
STRING FR_CDC7 20
BEGIN
PROMPT 2 7 "Cms7 "
FLAGS "B"
END
STRING FR_CDC8 20
BEGIN
PROMPT 2 8 "Cms8 "
FLAGS "B"
END
STRING FR_CDC9 20
BEGIN
PROMPT 2 9 "Cms9 "
FLAGS "B"
END
STRING FR_CDC10 20
BEGIN
PROMPT 2 10 "Cms10 "
FLAGS "B"
END
STRING FR_CDC11 20
BEGIN
PROMPT 2 11 "Cms11 "
FLAGS "B"
END
STRING FR_CDC12 20
BEGIN
PROMPT 2 12 "Cms12 "
FLAGS "B"
END
ENDIF // Campi analitici
IFDEF(FLD_CODAGG1)
IFDEF(TY_CODAGG1)
TY_CODAGG1 FR_CODAGG1 20
ELSEIF
STRING FR_CODAGG1 20
ENDIF
BEGIN
IFDEF(X_CODAGG1)
PROMPT X_CODAGG1 Y_CODAGG1 PR_CODAGG1
ELSEIF
PROMPT 2 15 "Stringa 1 "
ENDIF
IFDEF(FL_CODAGG1)
FLAGS FL_CODAGG1
ENDIF
IFDEF(MS_CODAGG1)
MESSAGE MS_CODAGG1
ENDIF
IFDEF(NC_CODAGG1)
NUM_CALC NC_CODAGG1
ENDIF
FIELD CODAGG1
END
ENDIF
IFDEF(FLD_CODAGG2)
IFDEF(TY_CODAGG2)
TY_CODAGG2 FR_CODAGG2 20
ELSEIF
STRING FR_CODAGG2 13 5
ENDIF
BEGIN
IFDEF(X_CODAGG2)
PROMPT X_CODAGG2 Y_CODAGG2 PR_CODAGG2
ELSEIF
PROMPT 42 15 "Stringa 2 "
ENDIF
IFDEF(FL_CODAGG2)
FLAGS FL_CODAGG2
ENDIF
IFDEF(MS_CODAGG2)
MESSAGE MS_CODAGG2
ENDIF
IFDEF(NC_CODAGG2)
NUM_CALC NC_CODAGG2
ENDIF
FIELD CODAGG2
END
ENDIF
#ifdef IS_MERCE #ifdef IS_MERCE
ENDPAGE
PAGE "Pag.4" -1 -1 MASK_WIDTH MASK_HEIGHT PAGE "Conai" -1 -1 MASK_WIDTH MASK_HEIGHT
GROUPBOX DLG_NULL 78 12 GROUPBOX DLG_NULL 78 12
BEGIN BEGIN
@ -2235,7 +2100,7 @@ END
STRING FR_CCON10 4 STRING FR_CCON10 4
BEGIN BEGIN
PROMPT 2 10 "Sottocategoria 10 " PROMPT 2 10 "Sottocategoria 10"
USE &SCC USE &SCC
INPUT CODTAB FR_CCON10 INPUT CODTAB FR_CCON10
COPY DISPLAY FR_CCON01 COPY DISPLAY FR_CCON01
@ -2248,6 +2113,9 @@ BEGIN
PROMPT 40 10 "Peso unitario " PROMPT 40 10 "Peso unitario "
FIELD PCON(10) FIELD PCON(10)
END END
ENDPAGE
#endif #endif
@ -2283,5 +2151,139 @@ END
#endif #endif
ENDPAGE
PAGE "Contabilità analitica - Commesse" -1 -1 MASK_WIDTH MASK_HEIGHT
GROUPBOX DLG_NULL 78 14
BEGIN
PROMPT 1 0 "Contabilita' analitica"
END
IFDEF(FLD_CDC)
STRING FR_CDC1 20
BEGIN
PROMPT 2 1 "Cms1 "
FLAGS "B"
END
STRING FR_CDC2 20
BEGIN
PROMPT 2 2 "Cms2 "
FLAGS "B"
END
STRING FR_CDC3 20
BEGIN
PROMPT 2 3 "Cms3 "
FLAGS "B"
END
STRING FR_CDC4 20
BEGIN
PROMPT 2 4 "Cms4 "
FLAGS "B"
END
STRING FR_CDC5 20
BEGIN
PROMPT 2 5 "Cms5 "
FLAGS "B"
END
STRING FR_CDC6 20
BEGIN
PROMPT 2 6 "Cms6 "
FLAGS "B"
END
STRING FR_CDC7 20
BEGIN
PROMPT 2 7 "Cms7 "
FLAGS "B"
END
STRING FR_CDC8 20
BEGIN
PROMPT 2 8 "Cms8 "
FLAGS "B"
END
STRING FR_CDC9 20
BEGIN
PROMPT 2 9 "Cms9 "
FLAGS "B"
END
STRING FR_CDC10 20
BEGIN
PROMPT 2 10 "Cms10 "
FLAGS "B"
END
STRING FR_CDC11 20
BEGIN
PROMPT 2 11 "Cms11 "
FLAGS "B"
END
STRING FR_CDC12 20
BEGIN
PROMPT 2 12 "Cms12 "
FLAGS "B"
END
ENDIF // Campi analitici
IFDEF(FLD_CODAGG1)
IFDEF(TY_CODAGG1)
TY_CODAGG1 FR_CODAGG1 20
ELSEIF
STRING FR_CODAGG1 20
ENDIF
BEGIN
IFDEF(X_CODAGG1)
PROMPT X_CODAGG1 Y_CODAGG1 PR_CODAGG1
ELSEIF
PROMPT 2 15 "Stringa 1 "
ENDIF
IFDEF(FL_CODAGG1)
FLAGS FL_CODAGG1
ENDIF
IFDEF(MS_CODAGG1)
MESSAGE MS_CODAGG1
ENDIF
IFDEF(NC_CODAGG1)
NUM_CALC NC_CODAGG1
ENDIF
FIELD CODAGG1
END
ENDIF
IFDEF(FLD_CODAGG2)
IFDEF(TY_CODAGG2)
TY_CODAGG2 FR_CODAGG2 20
ELSEIF
STRING FR_CODAGG2 13 5
ENDIF
BEGIN
IFDEF(X_CODAGG2)
PROMPT X_CODAGG2 Y_CODAGG2 PR_CODAGG2
ELSEIF
PROMPT 42 15 "Stringa 2 "
ENDIF
IFDEF(FL_CODAGG2)
FLAGS FL_CODAGG2
ENDIF
IFDEF(MS_CODAGG2)
MESSAGE MS_CODAGG2
ENDIF
IFDEF(NC_CODAGG2)
NUM_CALC NC_CODAGG2
ENDIF
FIELD CODAGG2
END
ENDIF
ENDMASK ENDMASK