15:57:28.969 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 391 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:391 - itenspedidovenda_unit.testunit009 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 15:57:28.969 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 393 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:393 - itenspedidovenda_unit.testunit009 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 15:57:28.969 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 394 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:394 - itenspedidovenda_unit.testunit009 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 15:57:28.969 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 397 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:397 - itenspedidovenda_unit.testunit009 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 15:57:28.985 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Parâmetro inválido [2] - Esperado parâmetro tipo "O" passado "L" - Classe: Itenspedidovenda Classe: Itenspedidovenda LINHA:849 - ITENSPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:1183 - CUSTOMMU._VALIDARPARAMETRO - CUSTOMMU.PRG LINHA:388 - ITENSPEDIDOVENDA._VALIDARPARAMETRO - CTRCLASSBASE.PRG LINHA:2621 - ITENSPEDIDOVENDA.OBTERCODIGOCARGA - ITENSPEDIDOVENDA.PRG LINHA:398 - ITENSPEDIDOVENDA_UNIT.TESTUNIT009 - ITENSPEDIDOVENDA_UNIT.PRG LINHA:236 - ITENSPEDIDOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1421 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:1183 - custommu._validarparametro - custommu.prg Linha:388 - itenspedidovenda._validarparametro - ctrclassbase.prg Linha:2621 - itenspedidovenda.obtercodigocarga - itenspedidovenda.prg Linha:398 - itenspedidovenda_unit.testunit009 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - 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( 'O', toItem , 1, PCOUNT() ) taRetornado_RET[6] = THIS.oObjetoTeste.ObterCodigoCarga( loItemPedido ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:2734 - itenspedidovenda.obtercodigocarga - itenspedidovenda.prg Linha:398 - itenspedidovenda_unit.testunit009 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()