Ponto de Entrada
Descrição: | Ponto de Entrada utilizado para inserção de colunas no ListBox da Fila da Oficina (deve trabalhar em conjunto com o OM490AFL) Atenção: a rotina Fila de O.S. (OFIOM490) se encontra em homologação. Assim que a mesma for aprovada e disponibilizada, este aviso será removido e a documentação para implementação da mesma será disponibilizada no TDN. |
Parâmetros: | 1o) Momento atual da chamada (Listabox da Fila da OS ou ListaBox do Produtivo) 2o) Nome do Objeto atual 3o) Tamanho atual da matriz do ListBox |
Eventos: | Local lExistPE := ExistBlock("OM490TEL") Private oInterfHelper := DMS_InterfaceHelper():New() Private oSizePrinc Private oS_C2 Private oS_C3 Private oS_C3_L2 oInterfHelper:nOpc := 3 OFM490002_DivideTela() oInterfHelper:SetOwnerPvt("OFIOM490") oInterfHelper:SetDefSize(oSizePrinc) oDlgOM490 := oInterfHelper:CreateDialog("Fila de Ordem de Serviço") oInterfHelper:SetNomeObjDefSize("COL1") oPan1 := oInterfHelper:CreateMGroup({{"TEXTO","Fila de Ordem de Serviço Aguardando Inicio"}}) oInterfHelper:SetDialog( oPan1 ) oCOL1_LIN1 := oInterfHelper:CreateTPanel( { ; { "ALINHAMENTO" , CONTROL_ALIGN_TOP },; { "YSIZE" , 30 } ; }) oInterfHelper:SetDialog( oCOL1_LIN1 ) oInterfHelper:CreateTSay({; {"LINHA", 3 } ,; {"COLUNA",2 } ,; {"LARGURA",40 } ,; {"TEXTO","Quantidade na Fila"} ,; {"FONTE",oFontTit }}) oInterfHelper:CreateTGet({; {"LINHA", 2 },; {"COLUNA",100},; {"ALTURA",14 },; {"FONTE",oFontTit },; {"NOMEOBJ","oQTDEFILA"},; {"NOMEVAR","nQTDEFILA"},; {"READONLY",.t.},; {"HASBUTTON",.f.}}) oInterfHelper:Clean() oInterfHelper:SetDialog( oPan1 ) oInterfHelper:AddColLBox( { { "X3" , "VO1_NUMOSV" } ,; { "CODEBLOCK" , "{ || NOME_OBJETO:aArray[ NOME_OBJETO:nAt, " + Str(OS_NUMOSV,2) + " ] }" } } ) oInterfHelper:AddColLBox( { { "X3" , "VO1_PLAVEI" } ,; { "CODEBLOCK" , "{ || NOME_OBJETO:aArray[ NOME_OBJETO:nAt, " + Str(OS_PLAVEI,2) + " ] }" } } ) oInterfHelper:AddColLBox( { { "X3" , "A1_NOME" } ,; { "CODEBLOCK" , "{ || NOME_OBJETO:aArray[ NOME_OBJETO:nAt, " + Str(OS_NOME ,2) + " ] }" } } ) oInterfHelper:AddColLBox( { { "X3" , "VO4_TIPTEM" } ,; { "CODEBLOCK" , "{ || NOME_OBJETO:aArray[ NOME_OBJETO:nAt, " + Str(OS_TIPTEM,2) + " ] }" } } ) If lExistPE ExecBlock("OM490TEL",.f.,.f.,{ "FILA" , oInterfHelper, OS_TAM_MATRIZ }) EndIf oLBoxFilaOS := oInterfHelper:CreateLBox("oLBoxFilaOS",{{"ALINHAMENTO",CONTROL_ALIGN_ALLCLIENT}}) |
Programa Fonte: | OFIOM490.PRW |
Função: | OFM490001_MontaTela() |
Retorno: |
Exemplo:
// Ponto de Entrada utilizado para inserção de colunas no ListBox da Fila da Oficina (deve trabalhar em conjunto com o OM490AFL)
User Function OM490TEL()
Local cParFila := ParamIXB[1]
Local oIE := ParamIXB[2]
Local nTamMatriz := ParamIXB[3]
If cParFila == "FILA"
oIE:AddColLBox( { ;
{ "CABEC" , "Habilidade" } ,;
{ "TAMANHO" , 6 } ,;
{ "POSICAO" , 3 } ,;
{ "CODEBLOCK" , "{ || NOME_OBJETO:aArray[ NOME_OBJETO:nAt, " + Str(nTamMatriz + 1,2) + " ] }" };
} )
EndIf
If cParFila == "FILA_PRODUTIVO"
oIE:AddColLBox( { ;
{ "CABEC" , "Habilidade" } ,;
{ "TAMANHO" , 6 } ,;
{ "POSICAO" , 2 } ,;
{ "CODEBLOCK" , "{ || NOME_OBJETO:aArray[ NOME_OBJETO:nAt, " + Str(nTamMatriz + 1,2) + " ] }" };
} )
EndIf
Return