Create UE_WO for Terminal

Filipe

• 21 de junio de 2021 20:15

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.

Vote

1

• 

  Martin Heigl

  • 22 de junio de 2021 03:26

  Hi Filipe,

  do you have more information and a print screen?
• 

  Filipe

  • 22 de junio de 2021 10:45

  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
• 

  Martin Heigl

  • 22 de junio de 2021 11:21

  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)
• 

  Filipe

  • 22 de junio de 2021 20:04

  Hi! Martin,

  Yes, I accept the new version, even though it is BETA.
  Which may already help me in this development
• 

  Filipe

  • 25 de junio de 2021 10:55

  
  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.

Iniciar sesión para dejar un comentario.