17:39:40.934 - EXCEÇÃO NÃO TRATADA! Erro: 7000 Classe: Excecaoprograma Mesagem: RETURN/RETRY statement not allowed in TRY/CATCH. Chamadas:Linha:4029 - itenspedidovenda.replicarprecoparaprodutodemesmocodigo - itenspedidovenda.prg Linha:4522 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:2608 - itempedidovenda._aplicarprecoobtido - itempedidobase.prg Linha:2509 - itempedidovenda._buscarpreco - itempedidobase.prg Linha:1979 - itempedidovenda.definirproduto - itempedidobase.prg Linha:78 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:478 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: RETURN Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:2079 - itempedidovenda.definirproduto - itempedidobase.prg Linha:78 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:478 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:40.981 - EXCEÇÃO NÃO TRATADA! Erro: 7000 Classe: Excecaoprograma Mesagem: LOITEM is not an object. Chamadas:Linha:912 - itempedidovenda._tratarexcecao - itempedidobase.prg Linha:4206 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:4047 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:79 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:478 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: IF loItem.oproduto.ObterIdProduto() == tcCodigoProduto AND loItem.ObterIdObjeto() != tnIdObjetoSolicitante AND tcCodigoFilialRetirada == loItem.ObterFilialRetirada() Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:4069 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:79 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:478 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.012 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: LOITEM is not an object. É necessário informar o produto antes de definir o tipo de entrega. Chamadas:Linha:906 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:844 - itempedidovenda._retornarerro - custommu.prg Linha:5193 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:82 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:478 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(tcLog, tcCodigoExcecao ) THIS._RetornarErro('É necessário informar o produto antes de definir o tipo de entrega.') .cTipoEntrega = tcTipoEntrega THIS._ConfigurarItemPedido(loItemPedido, '37651', 15.00, 'PC', 6.00, 'F', '', tdEntregaMarcada+4 , 'M' ) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:5399 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:82 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:478 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.027 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: LOITEM is not an object. É necessário informar o produto antes de definir o tipo de entrega. É necessário informar o produto antes de definir o preço. Chamadas:Linha:906 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:844 - itempedidovenda._retornarerro - custommu.prg Linha:5049 - itempedidovenda.cturnoentrega_assign - itempedidobase.prg Linha:87 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:478 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(tcLog, tcCodigoExcecao ) THIS._RetornarErro('É necessário informar o produto antes de definir o preço.') .cTurnoEntrega = tcTurno THIS._ConfigurarItemPedido(loItemPedido, '37651', 15.00, 'PC', 6.00, 'F', '', tdEntregaMarcada+4 , 'M' ) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:5077 - itempedidovenda.cturnoentrega_assign - itempedidobase.prg Linha:87 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:478 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.027 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: LOITEM is not an object. É necessário informar o produto antes de definir o tipo de entrega. É necessário informar o produto antes de definir o preço. Classe: Itempedidovenda LINHA:849 - ITEMPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:5103 - ITEMPEDIDOVENDA.DENTREGAMARCADA_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:90 - ITENSPEDIDOVENDA_UNIT._CONFIGURARITEMPEDIDO - ITENSPEDIDOVENDA_UNIT.PRG LINHA:478 - ITENSPEDIDOVENDA_UNIT.TESTUNIT011 - ITENSPEDIDOVENDA_UNIT.PRG LINHA:236 - ITENSPEDIDOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:5103 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:478 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('É necessário informar o produto antes de definir o preço.') .dEntregaMarcada = tdEntregaMarcada THIS._ConfigurarItemPedido(loItemPedido, '37651', 15.00, 'PC', 6.00, 'F', '', tdEntregaMarcada+4 , 'M' ) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:5124 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:478 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.059 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: LOITEM is not an object. É necessário informar o produto antes de definir o tipo de entrega. É necessário informar o produto antes de definir o preço. Classe: Itempedidovenda LINHA:849 - ITEMPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:5103 - ITEMPEDIDOVENDA.DENTREGAMARCADA_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:90 - ITENSPEDIDOVENDA_UNIT._CONFIGURARITEMPEDIDO - ITENSPEDIDOVENDA_UNIT.PRG LINHA:478 - ITENSPEDIDOVENDA_UNIT.TESTUNIT011 - ITENSPEDIDOVENDA_UNIT.PRG LINHA:236 - ITENSPEDIDOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Classe: Itempedidovenda LINHA:849 - ITEMPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:4386 - ITEMPEDIDOVENDA._AUTORIZARALTERACAOPRECO - ITEMPEDIDOBASE.PRG LINHA:4423 - ITEMPEDIDOVENDA.NPRECO_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:92 - ITENSPEDIDOVENDA_UNIT._CONFIGURARITEMPEDIDO - ITENSPEDIDOVENDA_UNIT.PRG LINHA:478 - ITENSPEDIDOVENDA_UNIT.TESTUNIT011 - ITENSPEDIDOVENDA_UNIT.PRG LINHA:236 - ITENSPEDIDOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:4386 - itempedidovenda._autorizaralteracaopreco - itempedidobase.prg Linha:4423 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:92 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:478 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('É necessário informar o produto antes de definir o preço.') IF NOT THIS._AutorizarAlteracaoPreco(tAssign, llChamadaExterna ) .nPreco = tnPreco THIS._ConfigurarItemPedido(loItemPedido, '37651', 15.00, 'PC', 6.00, 'F', '', tdEntregaMarcada+4 , 'M' ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:4571 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:92 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:478 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.059 - EXCEÇÃO NÃO TRATADA! Erro: 1924 Mesagem: LOITEMPEDIDO is not an object. Local: alterardataentregamarcada Linha: 3706 Conteúdo: IF NOT(loItemPedido.cTipoEntrega == 'C') AND NOT (llTratamentoDiferenciadoDatasPrevistas AND loItemPedido.cTipoEntrega == 'E') AND ( NOT tlSomenteVazios OR EMPTY(loItemPedido.dEntregaMarcada) ) Detalhes: LOITEMPEDIDO Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:3719 - itenspedidovenda.alterardataentregamarcada - itenspedidovenda.prg Linha:481 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.059 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 486 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:486 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.059 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 490 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:490 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.074 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 493 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:493 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.074 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 497 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:497 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.074 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 486 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:486 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.074 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 490 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:490 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.074 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 493 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:493 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.074 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 497 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:497 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.074 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 486 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:486 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.074 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 490 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:490 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.090 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 493 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:493 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.090 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 497 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:497 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.090 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 486 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:486 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.090 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 490 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:490 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.090 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 493 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:493 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 17:39:41.090 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 497 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:497 - itenspedidovenda_unit.testunit011 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()