12:50:18.097 - 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:7114 - ORCAMENTOVENDA_UNIT.TESTUNIT106 - 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:7114 - orcamentovenda_unit.testunit106 - 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 ) THIS.oObjetoTeste.gravar() Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:7137 - orcamentovenda_unit.testunit106 - 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:50:19.586 - 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:7148 - ORCAMENTOVENDA_UNIT.TESTUNIT106 - 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:7148 - orcamentovenda_unit.testunit106 - 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 ) THIS.oObjetoTeste.gravar() Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:7158 - orcamentovenda_unit.testunit106 - 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:50:19.588 - 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:7148 - ORCAMENTOVENDA_UNIT.TESTUNIT106 - 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:7148 - orcamentovenda_unit.testunit106 - 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 ) THIS.oObjetoTeste.gravar() Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:7161 - orcamentovenda_unit.testunit106 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()