Tiempo aproximado de lectura 00:03:00 min
Duda
¿Para que sirve la función Execauto GetRmtTime()?
Entorno
Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - ADVPL - A partir de la versión 12 en adelante
Solución
¿Qué hace la función GetRmtTime()?
La función GetRmtTime() obtiene la hora actual del servidor en formato de texto.
Se usa en este código para registrar el inicio y fin de la ejecución en la consola, permitiendo medir el tiempo que tomó el proceso.
Probablemente GetRmtTime() sea una función personalizada o nativa de Protheus que devuelve la hora en formato HH:MM:SS, lo que permite calcular cuánto tardó la ejecución de la rutina a testear, ejemplo:MYMT120().
Ejemplo de aplicación:
#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"
User Function MYMT120()
Local aCabec
Local aItems
Local aLinha
Local nX
Local lRet := .T.
Local cErrRet := ""
Private lMsErroAuto := .F.
cNumPc := FWInputBox("Numero documento", "") //Manual doc
ConOut("Inicio de Ejecucción MYMT120: "+GetRmtTime()) //Tiempo de ejecución
aCabec := {}
aadd(aCabec, {"C7_EMISSAO", Date()})
aadd(aCabec, {"C7_FILIAL" , '0101'})
aadd(aCabec, {"C7_NUM" , cNumPc})
aadd(aCabec, {"C7_FORNECE", '000001'})
aadd(aCabec, {"C7_LOJA" , '01'})
aadd(aCabec, {"C7_COND" , '220'})
aadd(aCabec, {"C7_MOEDA" , 1})
aadd(aCabec, {"C7_TXMOEDA", 1})
aadd(aCabec, {"C7_FILENT" , '0101'})
aItems := {}
FOR nX := 1 TO 10
aLinha := {}
aadd(aLinha, {"C7_PRODUTO", "000001" , Nil})
aadd(aLinha, {"C7_QUANT" , 1 , Nil})
aadd(aLinha, {"C7_DATPRF" , dDataBase, Nil})
aadd(aLinha, {"C7_PRECO" , 20 , Nil})
aadd(aLinha, {"C7_TES" , "001" , Nil})
aadd(aLinha, {"C7_LOCAL" , "01" , Nil})
aadd(aItems, aLinha)
NEXT nX
BEGIN TRANSACTION
SETFUNNAME("MATA121")
MSExecAuto({|x,y,z,k|MATA120(x,y,z,k)},1,aCabec,aItems,3)
If lMsErroAuto
MostraErro()
else
msgInfo("Pedido de compra incluido: " + cNumPc, "ExecAuto MYMT120") //cNumPc confirmación grabado pedido
ConOut("Fin de Ejecucción MYMT120: "+GetRmtTime()) //Tiempo de ejecución
Endif
END TRANSACTION
ConfirmSX8()
RETURN
0 Comentarios