Tiempo aproximado de lectura 00:05:00 min
Duda
¿Para qué se utiliza la función MostraErro?
Entorno
Cross Segmentos - TOTVS Backoffice (Linea Protheus) - MI - Configurador (SIGACFG) - A partir de la versión 12.1.2410
Solución
La función MostraErro como su nombre lo indica, muestra los errores generados mediante un proceso de ejecución automatico, a continuación un ejemplo de como se utiliza:
#include "rwmake.ch"
#include "tbiconn.ch"
User Function MostraErro()
Local aCabec := {}
Local aItens := {}
Local aLinha := {}
Local nX := 0
Local nY := 0
Local cDoc := ""
Local lOk := .T.
PRIVATE lMsErroAuto := .F.
Private lMsHelpAuto := .T.
Prepare Environment Empresa "01" Filial "01" Modulo "FAT"
aVetor:= { {"B1_COD" ,"005",Nil},;
{"B1_DESC" ,"Teste" ,Nil},;
{"B1_UM" ,"UN" ,Nil},;
{"B1_LOCPAD" ,"01" ,Nil}}
MATA010(aVetor,3)
If !lMsErroAuto ConOut("Incluido com su cesso! "+cDoc)
Else // será apresentada a janela de erro, pois não foram passados todos os campos obrigatórios da tabela SB1.
ConOut("Erro na inclusao !")
MostraErro()
EndIf
Return
Parâmetros:
cPath : (Caracter) Ruta donde será grabado el log de error.
cNome : (Array of Record) Nombre del archivo log a ser generado.
0 Comentarios