Create UE_WO for Terminal
I'm setting up a screen where the user can generate a WorkOrder. But when I go to add user-defined field values. The field will be weight, where the weight is greater than 50Kg. will not allow you to create the Work Order. if it is smaller the order can be created.
in the sum of the fields that I'm having difficulties.
Comments
5 comments
Hi Filipe,
do you have more information and a print screen?
Hi! Martin, the code I'm developing and need help is in Bold if you remove the // from the code and it will work normally.
declare=clform=ue_form
declare=clform=ue_form
clform.name=Ordem_Zincagem
clform.title=Criar Ordem de Trabalho
clform.sql=select '' Tambor, space(10) ItemCode1, space(10) as peso1, space(10) ItemCode2, space(10) as peso2,space(10) ItemCode3, space(10) peso3, space(10) ItemCode4, 0 as peso4, space(10) ItemCode5, 0 as peso5, space(10) ItemCode6, 0 as peso6, space(10) ItemCode7, 0 as peso7, space(10) ItemCode8, 0 as peso8, space(10) ItemCode9, 0 as peso9, space(10) ItemCode10, 0 as peso10 from BEAS_DUMMY
clform.style=edit
clform.update=true
clform.showdialog
clform.dw_1.item.Tambor.title=Tambor
clform.dw_1.item.Tambor.dropdown=select 'TAMBOR01' from BEAS_DUMMY &
UNION ALL select 'TAMBOR02' from BEAS_DUMMY &
UNION ALL select 'TAMBOR03' from BEAS_DUMMY &
UNION ALL select 'TAMBOR04' from BEAS_DUMMY &
UNION ALL select 'TAMBOR05' from BEAS_DUMMY &
UNION ALL select 'TAMBOR06' from BEAS_DUMMY &
UNION ALL select 'TAMBOR07' from BEAS_DUMMY &
UNION ALL select 'TAMBOR08' from BEAS_DUMMY &
UNION ALL select 'TAMBOR09' from BEAS_DUMMY &
UNION ALL select 'TAMBOR10' from BEAS_DUMMY
clform.style=edit
setvar=Tambor=<clform.Tambor>
clform.dw_1.item.ItemCode1.title=Código 1
clform.dw_1.item.peso1.title=Quantidade 1
clform.dw_1.item.ItemCode2.title=Código 2
clform.dw_1.item.peso2.title=Quantidade 2
clform.dw_1.item.ItemCode3.title=Código 3
clform.dw_1.item.peso3.title=Quantidade 3
clform.dw_1.item.ItemCode4.title=Código 4
clform.dw_1.item.peso4.title=Quantidade 4
clform.dw_1.item.ItemCode5.title=Código 5
clform.dw_1.item.peso5.title=Quantidade 5
clform.dw_1.item.ItemCode6.title=Código 6
clform.dw_1.item.peso6.title=Quantidade 6
clform.dw_1.item.ItemCode7.title=Código 7
clform.dw_1.item.peso7.title=Quantidade 7
clform.dw_1.item.ItemCode8.title=Código 8
clform.dw_1.item.peso8.title=Quantidade 8
clform.dw_1.item.ItemCode9.title=Código 9
clform.dw_1.item.peso9.title=Quantidade 9
clform.dw_1.item.ItemCode10.title=Código 10
clform.dw_1.item.peso10.title=Quantidade 10
dec x
x=<clform.peso1.value> + <clform.peso2.value> + <clform.peso3.value>
messagebox=<x>
if <lc_value3> n< 50 then
messagebox= <x> Peso aceitável
if<lc_value3> n> 50 then
messagebox= Reduza o peso do tambor!!!
end if
//destroy for test
destroy=clform
//
////------------------------------------------------------------------------------------------//
////Valida se tem informação no item 1
//if <clform.ret_code> n= 1 then
// setvar=ls_itemcode=<clform.ItemCode1>
// setvar=ll_peso=<clform.peso1>
// messagebox= Será criada uma Ordem para Item <clform.ItemCode1> Quantidade <clform.peso1>
//
////Consulta de item para saber se é de produção
// select count(*) from "OITM" where "ItemCode" = <ls_itemcode,dbstring> and "PrcrmntMtd" = 'M'
//
////Gera ordem de trabalho
// declare=mywo=ue_api_wo
// mywo=new
// mywo=line=itemcode=<clform.ItemCode1>
// mywo=line=udf9=<clform.peso1>
// mywo=line=udf10=ZINCAGEM
// mywo=line=udf8=<clform.Tambor>
// mywo=add
//
// destroy mywo
//
//
// if <wert1> n= 0 then
// messagebox=Este item não é de produção! Verifique o código digitado.
// return failure
//
//end if
////------------------------------------------------------------------------------------------//
////Valida se tem informação no item 2
//if <clform.ret_code> n= 1 then
// setvar=ls_itemcode=<clform.ItemCode2>
// setvar=ll_peso=<clform.peso2>
// messagebox= Será criada uma Ordem para Item <clform.ItemCode2> Quantidade <clform.peso2>
//
////Consulta de item para saber se é de produção
// select count(*) from "OITM" where "ItemCode" = <ls_itemcode,dbstring> and "PrcrmntMtd" = 'M'
//
////Gera ordem de trabalho
// declare=mywo=ue_api_wo
// mywo=new
// mywo=line=itemcode=<clform.ItemCode2>
// mywo=line=peso=<clform.peso2>
// mywo=line=udf10=ZINCAGEM
// mywo=add
// destroy mywo
//
// if <wert1> n= 0 then
// messagebox=Este item não é de produção! Verifique o código digitado.
// return failure
//end if
////------------------------------------------------------------------------------------------//
////Valida se tem informação no item 3
//if <clform.ret_code> n= 1 then
// setvar=ls_itemcode=<clform.ItemCode3>
// setvar=ll_peso=<clform.peso3>
// messagebox= Será criada uma Ordem para Item <clform.ItemCode3> Quantidade <clform.peso3>
//
////Consulta de item para saber se é de produção
// select count(*) from "OITM" where "ItemCode" = <ls_itemcode,dbstring> and "PrcrmntMtd" = 'M'
//
////Gera ordem de trabalho
// declare=mywo=ue_api_wo
// mywo=new
// mywo=line=itemcode=<clform.ItemCode3>
// mywo=line=peso=<clform.peso3>
// mywo=line=udf10=ZINCAGEM
// mywo=add
// destroy mywo
//
// if <wert1> n= 0 then
// messagebox=Este item não é de produção! Verifique o código digitado.
// return failure
//end if
////------------------------------------------------------------------------------------------//
////Valida se tem informação no item 4
//if <clform.ret_code> n= 1 then
// setvar=ls_itemcode=<clform.ItemCode4>
// setvar=ll_peso=<clform.peso4>
// messagebox= Será criada uma Ordem para Item <clform.ItemCode4> Quantidade <clform.peso4>
//
////Consulta de item para saber se é de produção
// select count(*) from "OITM" where "ItemCode" = <ls_itemcode,dbstring> and "PrcrmntMtd" = 'M'
//
////Gera ordem de trabalho
// declare=mywo=ue_api_wo
// mywo=new
// mywo=line=itemcode=<clform.ItemCode4>
// mywo=line=peso=<clform.peso4>
// mywo=line=udf10=ZINCAGEM
// mywo=add
// destroy mywo
//
// if <wert1> n= 0 then
// messagebox=Este item não é de produção! Verifique o código digitado.
// return failure
//end if
////------------------------------------------------------------------------------------------//
////Valida se tem informação no item 5
//if <clform.ret_code> n= 1 then
// setvar=ls_itemcode=<clform.ItemCode5>
// setvar=ll_peso=<clform.peso5>
// messagebox= Será criada uma Ordem para Item <clform.ItemCode5> Quantidade <clform.peso5>
//
////Consulta de item para saber se é de produção
// select count(*) from "OITM" where "ItemCode" = <ls_itemcode,dbstring> and "PrcrmntMtd" = 'M'
//
////Gera ordem de trabalho
// declare=mywo=ue_api_wo
// mywo=new
// mywo=line=itemcode=<clform.ItemCode5>
// mywo=line=peso=<clform.peso5>
// mywo=line=udf10=ZINCAGEM
// mywo=add
// destroy mywo
//
// if <wert1> n= 0 then
// messagebox=Este item não é de produção! Verifique o código digitado.
// return failure
//end if
////------------------------------------------------------------------------------------------//
////Valida se tem informação no item 6
//if <clform.ret_code> n= 1 then
// setvar=ls_itemcode=<clform.ItemCode6>
// setvar=ll_peso=<clform.peso6>
// messagebox= Será criada uma Ordem para Item <clform.ItemCode6> Quantidade <clform.peso6>
//
////Consulta de item para saber se é de produção
// select count(*) from "OITM" where "ItemCode" = <ls_itemcode,dbstring> and "PrcrmntMtd" = 'M'
//
////Gera ordem de trabalho
// declare=mywo=ue_api_wo
// mywo=new
// mywo=line=itemcode=<clform.ItemCode6>
// mywo=line=peso=<clform.peso6>
// mywo=line=udf10=ZINCAGEM
// mywo=add
// destroy mywo
//
// if <wert1> n= 0 then
// messagebox=Este item não é de produção! Verifique o código digitado.
// return failure
//end if
////------------------------------------------------------------------------------------------//
////Valida se tem informação no item 7
//if <clform.ret_code> n= 1 then
// setvar=ls_itemcode=<clform.ItemCode7>
// setvar=ll_peso=<clform.peso7>
// messagebox= Será criada uma Ordem para Item <clform.ItemCode7> Quantidade <clform.peso7>
//
////Consulta de item para saber se é de produção
// select count(*) from "OITM" where "ItemCode" = <ls_itemcode,dbstring> and "PrcrmntMtd" = 'M'
//
////Gera ordem de trabalho
// declare=mywo=ue_api_wo
// mywo=new
// mywo=line=itemcode=<clform.ItemCode7>
// mywo=line=peso=<clform.peso7>
// mywo=line=udf10=ZINCAGEM
// mywo=add
// destroy mywo
//
// if <wert1> n= 0 then
// messagebox=Este item não é de produção! Verifique o código digitado.
// return failure
//end if
////------------------------------------------------------------------------------------------//
////Valida se tem informação no item 8
//if <clform.ret_code> n= 1 then
// setvar=ls_itemcode=<clform.ItemCode8>
// setvar=ll_peso=<clform.peso8>
// messagebox= Será criada uma Ordem para Item <clform.ItemCode8> Quantidade <clform.peso8>
//
////Consulta de item para saber se é de produção
// select count(*) from "OITM" where "ItemCode" = <ls_itemcode,dbstring> and "PrcrmntMtd" = 'M'
//
////Gera ordem de trabalho
// declare=mywo=ue_api_wo
// mywo=new
// mywo=line=itemcode=<clform.ItemCode8>
// mywo=line=peso=<clform.peso8>
// mywo=line=udf10=ZINCAGEM
// mywo=add
// destroy mywo
//
// if <wert1> n= 0 then
// messagebox=Este item não é de produção! Verifique o código digitado.
// return failure
//end if
////------------------------------------------------------------------------------------------//
////Valida se tem informação no item 9
//if <clform.ret_code> n= 1 then
// setvar=ls_itemcode=<clform.ItemCode9>
// setvar=ll_peso=<clform.peso9>
// messagebox= Será criada uma Ordem para Item <clform.ItemCode9> Quantidade <clform.peso9>
//
////Consulta de item para saber se é de produção
// select count(*) from "OITM" where "ItemCode" = <ls_itemcode,dbstring> and "PrcrmntMtd" = 'M'
//
////Gera ordem de trabalho
// declare=mywo=ue_api_wo
// mywo=new
// mywo=line=itemcode=<clform.ItemCode9>
// mywo=line=peso=<clform.peso9>
// mywo=line=udf10=ZINCAGEM
// mywo=add
// destroy mywo
//
// if <wert1> n= 0 then
// messagebox=Este item não é de produção! Verifique o código digitado.
// return failure
//end if
////------------------------------------------------------------------------------------------//
////Valida se tem informação no item 10
//if <clform.ret_code> n= 1 then
// setvar=ls_itemcode=<clform.ItemCode10>
// setvar=ll_peso=<clform.peso10>
// messagebox= Será criada uma Ordem para Item <clform.ItemCode10> Quantidade <clform.peso10>
//
////Consulta de item para saber se é de produção
// select count(*) from "OITM" where "ItemCode" = <ls_itemcode,dbstring> and "PrcrmntMtd" = 'M'
//
////Gera ordem de trabalho
// declare=mywo=ue_api_wo
// mywo=new
// mywo=line=itemcode=<clform.ItemCode10>
// mywo=line=peso=<clform.peso10>
// mywo=line=udf10=ZINCAGEM
// mywo=add
// destroy mywo
//
// if <wert1> n= 0 then
// messagebox=Este item não é de produção! Verifique o código digitado.
// return failure
//end if
////------------------------------------------------------------------------------------------//
//destroy=clform
//destroy=clform
Hi Filipe
current i'm working on better customizing concept.
If you want, i can send you a solution with new variant. But for this you need always last Beas version.
The new concept is complete "BETA", not released official. Real projects help me to deliver good examples how to use.
Do you want? Is it possible to go to actual version ? (Beas 2021.06)
Hi! Martin,
Yes, I accept the new version, even though it is BETA.
Which may already help me in this development
Thanks a lot for the help! Martin!
I will wait for the new version so we can proceed with the internal project. We will be using the available BETA version as a test to finish the project and proceed with the update of our system.
Please sign in to leave a comment.