12:56:13.889 - EXCEÇÃO NÃO TRATADA!
Erro: 5000
Classe: Excecaonegocio
Mesagem: Parâmetro inválido [2]  - Esperado parâmetro tipo "N" passado "L" - Classe: Orcamentovenda
Classe: Orcamentovenda
LINHA:849 - ORCAMENTOVENDA._RETORNARERRO - CUSTOMMU.PRG
LINHA:1183 - CUSTOMMU._VALIDARPARAMETRO - CUSTOMMU.PRG
LINHA:388 - ORCAMENTOVENDA._VALIDARPARAMETRO - CTRCLASSBASE.PRG
LINHA:1678 - ORCAMENTOBASE.GRAVAR - ORCAMENTOBASE.PRG
LINHA:5995 - ORCAMENTOVENDA.GRAVAR - ORCAMENTOVENDA.PRG
LINHA:8219 - ORCAMENTOVENDA_UNIT.TESTUNIT121 - ORCAMENTOVENDA_UNIT.PRG
LINHA:236 - ORCAMENTOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG
LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG
LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG

COMANDO: 
LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO())
Chamadas:Linha:1183 - custommu._validarparametro - custommu.prg
Linha:388 - orcamentovenda._validarparametro - ctrclassbase.prg
Linha:1678 - orcamentobase.gravar - orcamentobase.prg
Linha:5995 - orcamentovenda.gravar - orcamentovenda.prg
Linha:8219 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarErro( 'Parâmetro inválido [2] - Esperado parâmetro tipo "'+lcTipo+'" passado "'+TYPE('tvParametro')+'" - Classe: '+THIS.CLASS )
llOk = DODEFAULT( tcTipo, tvParametro, tnQuantParametros, tnQuantValidar, tcNomeParametroValidar )
THIS._ValidarParametro('N', tnSeqAlteracao)
llOk = DODEFAULT( tnSeqAlteracao )
IF THIS.oObjetoTeste.Gravar()
Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG
Linha:417 - ON...  - ctrlib.prg
Linha:1728 - orcamentobase.gravar - orcamentobase.prg
Linha:5995 - orcamentovenda.gravar - orcamentovenda.prg
Linha:8219 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()

12:56:13.905 - EXCEÇÃO NÃO TRATADA!
Erro: 4000
Classe: Excecaousuario
Mesagem: Parâmetro inválido [2]  - Esperado parâmetro tipo "N" passado "L" - Classe: Orcamentovenda
Parâmetro inválido [2]  - Esperado parâmetro tipo "N" passado "L" - Classe: Orcamentovenda
Classe: Orcamentovenda
LINHA:849 - ORCAMENTOVENDA._RETORNARERRO - CUSTOMMU.PRG
LINHA:1183 - CUSTOMMU._VALIDARPARAMETRO - CUSTOMMU.PRG
LINHA:388 - ORCAMENTOVENDA._VALIDARPARAMETRO - CTRCLASSBASE.PRG
LINHA:1678 - ORCAMENTOBASE.GRAVAR - ORCAMENTOBASE.PRG
LINHA:5995 - ORCAMENTOVENDA.GRAVAR - ORCAMENTOVENDA.PRG
LINHA:8219 - ORCAMENTOVENDA_UNIT.TESTUNIT121 - ORCAMENTOVENDA_UNIT.PRG
LINHA:236 - ORCAMENTOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG
LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG
LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG

COMANDO: 
LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO())
Chamadas:Linha:1736 - orcamentobase.gravar - orcamentobase.prg
Linha:5995 - orcamentovenda.gravar - orcamentovenda.prg
Linha:8219 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarMensagem( THIS.LogUsuario )
llOk = DODEFAULT( tnSeqAlteracao )
IF THIS.oObjetoTeste.Gravar()
llTestOk = EVALUATE(lcTeste)
loTestUnit.ExecutarTeste(@laLstTestesParaExecutar)
Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG
Linha:417 - ON...  - ctrlib.prg
Linha:927 - orcamentovenda._retornarmensagem - custommu.prg
Linha:1736 - orcamentobase.gravar - orcamentobase.prg
Linha:5995 - orcamentovenda.gravar - orcamentovenda.prg
Linha:8219 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()