Páginas filhas
  • tNewProcess

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
tNewProcess
tNewProcess

Classe: tNewProcess

Cria 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. 



New

Método construtor da classe tNewProcess.


tNewProcess(): New ( < cFunction>, [ cTitle], < bProcess>, [ cDescription], [ cPerg], [ aInfoCustom], [ lPanelAux], [ nSizePanelAux], [ cDescriAux], [ lViewExecute], [ lOneMeter] ) --> Nil



NomeTipoDescriçãoObrigatórioReferência
cFunctionCaracterNome da função que está chamando o objeto.X
cTitleCaracterTítulo da árvore de opções.

bProcessBloco de códigoBloco de execução que será executado ao confirmar a tela.X
cDescriptionCaracterDescrição da rotina

cPergCaracterNome do Pergunte (SX1) a ser utilizado na rotina.

aInfoCustomArray of RecordInformações adicionais carregada na árvore de opções. Estrutura:[1] - Nome da opção[2] - Bloco de execução[3] - Nome do bitmap[4] - Informações do painel auxiliar.

lPanelAuxLógicoSe .T. cria uma novo painel auxiliar ao executar a rotina.

nSizePanelAuxNuméricoTamanho do painel auxiliar, utilizado quando lPanelAux = .T.

cDescriAuxCaracterDescrição a ser exibida no painel auxiliar.

lViewExecuteLógicoSe .T. exibe o painel de execução. Se falso, apenas executa a função sem exibir a régua de processamento.

lOneMeterLógicoSe .T. cria apenas uma regua de processamento.



IncRegua1

Altera mensagem exibida da primeira régua de processamento.


tNewProcess(): IncRegua1 ( [ cMsg] ) -->



NomeTipoDescriçãoObrigatórioReferência
cMsgCaracterMensagem de processamento da régua.


IncRegua2

Altera mensagem exibida da segunda régua de processamento.


tNewProcess(): IncRegua2 ( [ cMsg] ) -->



NomeTipoDescriçãoObrigatórioReferência
cMsgArray of RecordMensagem de processamento da régua.


SaveLog

Grava log de processamento no SXU.


tNewProcess(): SaveLog ( [ cText] ) -->



NomeTipoDescriçãoObrigatórioReferência
cTextCaracterTexto para gravação do log



oProcess:SaveLog("Gravacao de log")

Observações
- A filial gravada no log é sempre a filial utilizada durante a operação.
- O data gravada no log é sempre a data de login informada no sistema.
- O usuário gravado é sempre o usuário logado no sistema.

SetRegua1

Seta primeira régua de processamento.


tNewProcess(): SetRegua1 ( [ nSet] ) -->



NomeTipoDescriçãoObrigatórioReferência
nSetNuméricoTamanho do processamento da regua



oProcess:SetRegua1(1)

SetRegua2

Seta segunda régua de processamento.


tNewProcess(): SetRegua2 ( [ nSet] ) -->



NomeTipoDescriçãoObrigatórioReferência
nSetNuméricoTamanho do processamento da regua.



oProcess:SetRegua2(1)


PropriedadeDescriçãoTipo


Array of Record



#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