pconde
18th August 2004, 13:04
This is a short example using the gbf function of tgbrgsrvlib. This display the bom of an item (standard or specific) in the browser. each manufactured item by dubble cliking it display its component.
The form contains only two field project code (cprj.f) and the item code (mitm.f)
You must create a library ($BSE/gif/bom) and set therein the icon that you want to use (see function init_data_gbf)
Two librairies must be included in this script : tggbfsrvlib and tgcomlogging
Developped with baanIV c4 SP7
I have attached a zip file with the icon that i have created
|******************************************************************************
|* spbom0719 0 VRC B40O c4 expl
|* Impression graphique Nomenclatures spécifiques
|* Philippe Condé
|* 2004-08-16
|******************************************************************************
|* Main table tipcs022 Nomenclatures spécifiques, Form Type 4
|******************************************************************************
|* License :
|* Copyright 2001 by <Philippe Conde>
|*
|* All Rights Reserved
|*
|* Permission to use, copy, modify, and distribute this software and its
|* documentation for any purpose and without fee is hereby granted,
|* provided that the above copyright notice appear in all copies and that
|* both that copyright notice and this permission notice appear in
|* supporting documentation.
|*
|* Philippe Conde and Baanboard.com DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
|* SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
|* AND FITNESS, IN NO EVENT SHALL <author> nor Baanboard.com BE LIABLE FOR ANY
|* SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
|* WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|* TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE
|* OR PERFORMANCE OF THIS SOFTWARE.
|*
|****************************** declaration section ***************************
declaration:
table ttipcs022 |* Nomenclatures spécifiques
table ttcmcs003 |* Magasins
table ttibom010 |* Nomenclatures de fabrication
table ttiitm001 |* Articles
table ttipcs021 |* Articles spécifiques
#include "itggbfdefs" |*
#include "itgcomlogging" |*
long rc
extern domain tcyesno txta.yn
domain tcmcs.str60 gbf_key
domain tcmcs.str60 gbf_desc
domain tcmcs.str60 head_key
domain tcdate mydate
extern domain tccprj cprj.f fixed
extern domain tcitem mitm.f fixed
long int.iconset1
long int.iconset2
long leaf.iconset1
long leaf.iconset2
|****************************** form section **********************************
form.1:
init.form:
mydate = date.num()
get.screen.defaults()
|****************************** choice section ********************************
choice.cont.process:
on.choice:
read.main.table()
|****************************** field section *********************************
field.mitm.f:
check.input:
if isspace(cprj.f) then
select tiitm001.* from tiitm001
where tiitm001._index1 = {:mitm.f}
as set with 1 rows
selectdo
if tiitm001.kitm <> tckitm.manufacture then
set.input.error("spbom07191")
|* Article non fabriqué
endif
selectempty
set.input.error("spbom07192")
|* Article inconnu
endselect
else
select tipcs021.* from tipcs021
where tipcs021._index1={:cprj.f, :mitm.f}
as set with 1 rows
selectdo
if tipcs021.kitm <> tcpuma.manufacture then
set.input.error("spbom07191")
|* Article non fabriqué
endif
selectempty
set.input.error("spbom07192")
|* Article inconnu
endselect
endif
|****************************** function section ******************************
functions:
function read.main.table()
{
rc = init_data_gbf()
}
function long read.pcs022( domain tccprj mycprj, domain tcitem myitem, domain tcmcs.str3 level )
{
select tipcs022.* from tipcs022
where tipcs022._index1 = {:mycprj, :myitem}
order by tipcs022._index1
selectdo
gbf_key(1;3) = edit$(tipcs022.pono,"999")
gbf_key(10;16) = tipcs022.sitm(1;16)
gbf_key(4;6) = " "
gbf_desc(1;3)=edit$(tipcs022.pono,"999")
gbf_desc(4;1) = " "
gbf_desc(5;6)=" "
gbf_desc(11;2) = " "
gbf_desc(13;16)=tipcs022.sitm(1;16)
gbf_desc(29;2)=" "
if tipcs022.opol = tcittb.customized then
gbf_desc(5;6) = tipcs022.cprj(1;6)
gbf_key(4;6) = tipcs022.cprj(1;6)
select tipcs021.* from tipcs021
where tipcs021._index1 = {:mycprj, :tipcs022.sitm}
as set with 1 rows
selectdo
gbf_desc(31;30)=tipcs021.dsca(1;30)
if tipcs021.kitm = tcpuma.manufacture then
rc = gbf.add.interior(gbf_key, gbf_desc, 0) |node
else
rc = gbf.add.object(gbf_key, gbf_desc, 1, true, leaf.iconset2) |leaf
endif
endselect
else
select tiitm001.* from tiitm001
where tiitm001._index1= {:tipcs022.sitm}
as set with 1 rows
selectdo
gbf_desc(31;30) = tiitm001.dsca(1;30)
if tiitm001.kitm = tckitm.manufacture then
rc = gbf.add.object(gbf_key, gbf_desc, 1, false, int.iconset2) | node
else
rc = gbf.add.leaf(gbf_key, gbf_desc, 0) | leaf
endif
endselect
endif
endselect
return(0)
}
function long read.bom010(domain tcitem myitem, domain tcmcs.str3 level)
{
select tibom010.*
from tibom010
where tibom010._index1 inrange {:myitem, 0}
and {:myitem, 999}
and (tibom010.exdt = 0 or
tibom010.exdt > :mydate )
order by tibom010._index1
selectdo
gbf_key(1;3) = edit$(tibom010.pono,"999")
gbf_key(4;6) = " "
gbf_key(10;16) = tibom010.sitm(1;16)
gbf_desc(1;3)=edit$(tibom010.pono,"999")
gbf_desc(4;1) = " "
gbf_desc(5;6)=" "
gbf_desc(11;2) = " "
gbf_desc(13;16)=tibom010.sitm(1;16)
gbf_desc(29;2)=" "
select tiitm001.* from tiitm001
where tiitm001._index1 = {:tibom010.sitm}
as set with 1 rows
selectdo
gbf_desc(31;30) = tiitm001.dsca(1;30)
if tiitm001.kitm = tckitm.manufacture then
rc = gbf.add.object(gbf_key, gbf_desc, 1, false, int.iconset2) |node
else
rc = gbf.add.leaf(gbf_key, gbf_desc, 0) | leaf
endif
endselect
endselect
return(0)
}
function extern long init_data_gbf()
{
long def.options
long ret_start
long retval
head_key(1;6) = cprj.f(1;6)
head_key(8;16) = mitm.f(1;16)
retval = gbf.init(gbf.current.library(), head_key,
bit.or(GBF.MENU.ALL , GBF.MENU.FILE.OPEN),
bit.or(GBF.BUTTON.ALL, GBF.BUTTON.FILE.QUIT),
def.options)
LogExecErrorReturn(retval, "gbf.init()")
int.iconset1 = gbf.set.interior.icon( "bom",
"specm.normal", |unselected.closed
"specm.open", |unselected.open
"specm.closed", |selected.closed
"specm.open", |selected.open
true ) |Défault
int.iconset2 = gbf.set.interior.icon( "bom",
"standm.normal", |unselected.closed
"standm.normal", |unselected.open
"standm.select", |selected.closed
"standm.select", |selected.open
false )
leaf.iconset1 = gbf.set.leaf.icon( "bom",
"purs.normal",
"purs.select",
TRUE)
leaf.iconset2 = gbf.set.leaf.icon( "bom",
"pursp.normal",
"pursp.select",
false)
retval = gbf.set.key.desc.length(60, 30)
LogExecErrorReturn(retval, "gbf.set.key.desc.length(%d, %d)",
60, 30)
retval = gbf.set.sort.strategy( GBF.SORT.DESC
+ GBF.SORT.ASCENDING
+ GBF.SORT.INSENSITIVE)
LogExecError(retval, "gbf.set.sort.strategy()")
retval = gbf.set.open.strategy( GBF.OPEN.AGAIN
+ GBF.OPEN.CURSEL
+ GBF.OPEN.READALL)
LogExecError(retval, "gbf.set.open.strategy()")
ret_start = gbf.start(1, 1)
return (0)
}
function long find.bom(const string key.c())
{
long retval
domain tcitem item.c
domain tccprj cprj.c
domain tcmcs.str3 level
level(1;3) = key.c(1;3)
cprj.c = key.c(4;6)
item.c = key.c(10;16)
if isspace(cprj.c) then
retval = read.bom010(item.c,level)
else
retval = read.pcs022(cprj.c,item.c, level)
endif
return (0)
}
function extern long gbf.get.top.level()
{
head_key(1;3) = " "
head_key(4;6) = cprj.f(1;6)
head_key(10;16) = mitm.f(1;16)
return (find.bom(head_key))
}
function extern long gbf.get.children(const string key(),
long value,
long level)
{
return (find.bom(key))
}
function extern long gbf.save(
const long object.id,
const string object.key(),
const long object.value,
const long menu.value)
{
| Doesn't need save already in tables :-)
return (0)
}
The form contains only two field project code (cprj.f) and the item code (mitm.f)
You must create a library ($BSE/gif/bom) and set therein the icon that you want to use (see function init_data_gbf)
Two librairies must be included in this script : tggbfsrvlib and tgcomlogging
Developped with baanIV c4 SP7
I have attached a zip file with the icon that i have created
|******************************************************************************
|* spbom0719 0 VRC B40O c4 expl
|* Impression graphique Nomenclatures spécifiques
|* Philippe Condé
|* 2004-08-16
|******************************************************************************
|* Main table tipcs022 Nomenclatures spécifiques, Form Type 4
|******************************************************************************
|* License :
|* Copyright 2001 by <Philippe Conde>
|*
|* All Rights Reserved
|*
|* Permission to use, copy, modify, and distribute this software and its
|* documentation for any purpose and without fee is hereby granted,
|* provided that the above copyright notice appear in all copies and that
|* both that copyright notice and this permission notice appear in
|* supporting documentation.
|*
|* Philippe Conde and Baanboard.com DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
|* SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
|* AND FITNESS, IN NO EVENT SHALL <author> nor Baanboard.com BE LIABLE FOR ANY
|* SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
|* WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|* TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE
|* OR PERFORMANCE OF THIS SOFTWARE.
|*
|****************************** declaration section ***************************
declaration:
table ttipcs022 |* Nomenclatures spécifiques
table ttcmcs003 |* Magasins
table ttibom010 |* Nomenclatures de fabrication
table ttiitm001 |* Articles
table ttipcs021 |* Articles spécifiques
#include "itggbfdefs" |*
#include "itgcomlogging" |*
long rc
extern domain tcyesno txta.yn
domain tcmcs.str60 gbf_key
domain tcmcs.str60 gbf_desc
domain tcmcs.str60 head_key
domain tcdate mydate
extern domain tccprj cprj.f fixed
extern domain tcitem mitm.f fixed
long int.iconset1
long int.iconset2
long leaf.iconset1
long leaf.iconset2
|****************************** form section **********************************
form.1:
init.form:
mydate = date.num()
get.screen.defaults()
|****************************** choice section ********************************
choice.cont.process:
on.choice:
read.main.table()
|****************************** field section *********************************
field.mitm.f:
check.input:
if isspace(cprj.f) then
select tiitm001.* from tiitm001
where tiitm001._index1 = {:mitm.f}
as set with 1 rows
selectdo
if tiitm001.kitm <> tckitm.manufacture then
set.input.error("spbom07191")
|* Article non fabriqué
endif
selectempty
set.input.error("spbom07192")
|* Article inconnu
endselect
else
select tipcs021.* from tipcs021
where tipcs021._index1={:cprj.f, :mitm.f}
as set with 1 rows
selectdo
if tipcs021.kitm <> tcpuma.manufacture then
set.input.error("spbom07191")
|* Article non fabriqué
endif
selectempty
set.input.error("spbom07192")
|* Article inconnu
endselect
endif
|****************************** function section ******************************
functions:
function read.main.table()
{
rc = init_data_gbf()
}
function long read.pcs022( domain tccprj mycprj, domain tcitem myitem, domain tcmcs.str3 level )
{
select tipcs022.* from tipcs022
where tipcs022._index1 = {:mycprj, :myitem}
order by tipcs022._index1
selectdo
gbf_key(1;3) = edit$(tipcs022.pono,"999")
gbf_key(10;16) = tipcs022.sitm(1;16)
gbf_key(4;6) = " "
gbf_desc(1;3)=edit$(tipcs022.pono,"999")
gbf_desc(4;1) = " "
gbf_desc(5;6)=" "
gbf_desc(11;2) = " "
gbf_desc(13;16)=tipcs022.sitm(1;16)
gbf_desc(29;2)=" "
if tipcs022.opol = tcittb.customized then
gbf_desc(5;6) = tipcs022.cprj(1;6)
gbf_key(4;6) = tipcs022.cprj(1;6)
select tipcs021.* from tipcs021
where tipcs021._index1 = {:mycprj, :tipcs022.sitm}
as set with 1 rows
selectdo
gbf_desc(31;30)=tipcs021.dsca(1;30)
if tipcs021.kitm = tcpuma.manufacture then
rc = gbf.add.interior(gbf_key, gbf_desc, 0) |node
else
rc = gbf.add.object(gbf_key, gbf_desc, 1, true, leaf.iconset2) |leaf
endif
endselect
else
select tiitm001.* from tiitm001
where tiitm001._index1= {:tipcs022.sitm}
as set with 1 rows
selectdo
gbf_desc(31;30) = tiitm001.dsca(1;30)
if tiitm001.kitm = tckitm.manufacture then
rc = gbf.add.object(gbf_key, gbf_desc, 1, false, int.iconset2) | node
else
rc = gbf.add.leaf(gbf_key, gbf_desc, 0) | leaf
endif
endselect
endif
endselect
return(0)
}
function long read.bom010(domain tcitem myitem, domain tcmcs.str3 level)
{
select tibom010.*
from tibom010
where tibom010._index1 inrange {:myitem, 0}
and {:myitem, 999}
and (tibom010.exdt = 0 or
tibom010.exdt > :mydate )
order by tibom010._index1
selectdo
gbf_key(1;3) = edit$(tibom010.pono,"999")
gbf_key(4;6) = " "
gbf_key(10;16) = tibom010.sitm(1;16)
gbf_desc(1;3)=edit$(tibom010.pono,"999")
gbf_desc(4;1) = " "
gbf_desc(5;6)=" "
gbf_desc(11;2) = " "
gbf_desc(13;16)=tibom010.sitm(1;16)
gbf_desc(29;2)=" "
select tiitm001.* from tiitm001
where tiitm001._index1 = {:tibom010.sitm}
as set with 1 rows
selectdo
gbf_desc(31;30) = tiitm001.dsca(1;30)
if tiitm001.kitm = tckitm.manufacture then
rc = gbf.add.object(gbf_key, gbf_desc, 1, false, int.iconset2) |node
else
rc = gbf.add.leaf(gbf_key, gbf_desc, 0) | leaf
endif
endselect
endselect
return(0)
}
function extern long init_data_gbf()
{
long def.options
long ret_start
long retval
head_key(1;6) = cprj.f(1;6)
head_key(8;16) = mitm.f(1;16)
retval = gbf.init(gbf.current.library(), head_key,
bit.or(GBF.MENU.ALL , GBF.MENU.FILE.OPEN),
bit.or(GBF.BUTTON.ALL, GBF.BUTTON.FILE.QUIT),
def.options)
LogExecErrorReturn(retval, "gbf.init()")
int.iconset1 = gbf.set.interior.icon( "bom",
"specm.normal", |unselected.closed
"specm.open", |unselected.open
"specm.closed", |selected.closed
"specm.open", |selected.open
true ) |Défault
int.iconset2 = gbf.set.interior.icon( "bom",
"standm.normal", |unselected.closed
"standm.normal", |unselected.open
"standm.select", |selected.closed
"standm.select", |selected.open
false )
leaf.iconset1 = gbf.set.leaf.icon( "bom",
"purs.normal",
"purs.select",
TRUE)
leaf.iconset2 = gbf.set.leaf.icon( "bom",
"pursp.normal",
"pursp.select",
false)
retval = gbf.set.key.desc.length(60, 30)
LogExecErrorReturn(retval, "gbf.set.key.desc.length(%d, %d)",
60, 30)
retval = gbf.set.sort.strategy( GBF.SORT.DESC
+ GBF.SORT.ASCENDING
+ GBF.SORT.INSENSITIVE)
LogExecError(retval, "gbf.set.sort.strategy()")
retval = gbf.set.open.strategy( GBF.OPEN.AGAIN
+ GBF.OPEN.CURSEL
+ GBF.OPEN.READALL)
LogExecError(retval, "gbf.set.open.strategy()")
ret_start = gbf.start(1, 1)
return (0)
}
function long find.bom(const string key.c())
{
long retval
domain tcitem item.c
domain tccprj cprj.c
domain tcmcs.str3 level
level(1;3) = key.c(1;3)
cprj.c = key.c(4;6)
item.c = key.c(10;16)
if isspace(cprj.c) then
retval = read.bom010(item.c,level)
else
retval = read.pcs022(cprj.c,item.c, level)
endif
return (0)
}
function extern long gbf.get.top.level()
{
head_key(1;3) = " "
head_key(4;6) = cprj.f(1;6)
head_key(10;16) = mitm.f(1;16)
return (find.bom(head_key))
}
function extern long gbf.get.children(const string key(),
long value,
long level)
{
return (find.bom(key))
}
function extern long gbf.save(
const long object.id,
const string object.key(),
const long object.value,
const long menu.value)
{
| Doesn't need save already in tables :-)
return (0)
}