Linha Microsiga Protheus

Árvore de páginas

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