Histórico da Página
...
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Classe: tNewProcessCria uma tela de processamento, separada por janelas onde visualiza-se os Perguntes e o log de processamento, além dos parâmetros (SX6) e tabelas(SX5) da rotina (se houver). Ao confirmar o processamento, pode-se optar em exibir a régua de processamento da rotina. NewMétodo construtor da classe tNewProcess.tNewProcess(): New ( < cFunction>, [ cTitle], < bProcess>, [ cDescription], [ cPerg], [ aInfoCustom], [ lPanelAux], [ nSizePanelAux], [ cDescriAux], [ lViewExecute], [ lOneMeter] ) --> Nil
IncRegua1Altera mensagem exibida da primeira régua de processamento.tNewProcess(): IncRegua1 ( [ cMsg] ) -->
IncRegua2Altera mensagem exibida da segunda régua de processamento.tNewProcess(): IncRegua2 ( [ cMsg] ) -->
SaveLogGrava log de processamento no SXU.tNewProcess(): SaveLog ( [ cText] ) -->
oProcess:SaveLog("Gravacao de log") SetRegua1Seta primeira régua de processamento.tNewProcess(): SetRegua1 ( [ nSet] ) -->
oProcess:SetRegua1(1) SetRegua2Seta segunda régua de processamento.tNewProcess(): SetRegua2 ( [ nSet] ) -->
oProcess:SetRegua2(1)
#INCLUDE "PROTHEUS.CH"#INCLUDE "RWMAKE.CH"User Function tNewProc()Local bProcess := {|oSelf| Executa(oSelf) } Local cPerg := "MTA410" Local aInfoCustom := {}Local oProcessAadd(aInfoCustom,{"Visualizar",{|oCenterPanel| visualiza(oCenterPanel)},"WATCH" })Aadd(aInfoCustom,{"Relatorio" ,{|oCenterPanel| Relat(oCenterPanel) },"RELATORIO"})oProcess := tNewProcess():New("tNewPro","Teste MsNewProcess",bProcess,"Breve descrição da rotina",cPerg,aInfoCustom, .T.,5, "Descrição do painel Auxiliar", .T. ) Return static Function Executa(oProcess) Local nCountC5Local nCountC6DbSelectArea("SC5")DbSetOrder(1)DbGotop()nCountC5 := SC5->(RecCount())oProcess:SetRegua1(nCountC5) While SC5->(!Eof()) oProcess:IncRegua1("Lendo Pedido de Venda:" + SC5->C5_NUM) sleep(60) DbSelectArea("SC6") DbSetOrder(1) DbClearFil() Set Filter to SC6->C6_FILIAL == xFilial("SC5") .And. SC6->C6_NUM == SC5->C5_NUM COUNT to nCountC6 DbGotop() oProcess:SetRegua2(nCountC6) While SC6->(!Eof()) oProcess:IncRegua2("Pedido: "+SC5->C5_NUM+" - Item: "+SC6->C6_ITEM) oProcess:SaveLog("Item: "+SC6->C6_ITEM) SC6->(DbSkip()) End SC5->(DbSkip()) End ReturnStatic Function visualiza(oCenterPanel) @ 65,10 Say "Visualiza" SIZE 80,10 OF oCenterPanel PIXELReturn Static Function Relat(oCenterPanel)@ 65,10 Say "Relatorio" SIZE 80,10 OF oCenterPanel PIXELReturn ![]() Protheus 10 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas