10:23:51.304 - EXCEÇÃO NÃO TRATADA! Erro: 2059 - Mensagem: Unhandled Structured Exception. ErrorNo: 2071 Message: User Thrown Error . UserValue: (Object) Details: Procedure: _tratarexcecao LineNo: 2225 - Linha: 1475 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:1475 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:1280 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:7108 - 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() 10:23:51.382 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é permitido informar turno de entrega por item. Chamadas:Linha:906 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:5071 - itempedidovenda.cturnoentrega_assign - itempedidobase.prg Linha:7110 - 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: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) loItem.cTurnoEntrega = 'M' llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:5096 - itempedidovenda.cturnoentrega_assign - itempedidobase.prg Linha:7110 - 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() 10:23:51.413 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é permitido informar turno de entrega por item. Não é permitido informar data de previsão de entrega por item. Chamadas:Linha:906 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:4943 - itempedidovenda.dprevisaoentrega_assign - itempedidobase.prg Linha:7111 - 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: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) loItem.dPrevisaoEntrega = DATE() llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:5011 - itempedidovenda.dprevisaoentrega_assign - itempedidobase.prg Linha:7111 - 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() 10:23:51.429 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é permitido informar turno de entrega por item. Não é permitido informar data de previsão de entrega por item. Não é permitido informar data marcada da entrega por item. Chamadas:Linha:906 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:5125 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:7112 - 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: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) loItem.dEntregaMarcada = DATE()+1 llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:5143 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:7112 - 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() 10:23:52.652 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete definido como "Sem frete" mas o valor foi informado Chamadas:Linha:1736 - orcamentobase.gravar - orcamentobase.prg Linha:6064 - orcamentovenda.gravar - orcamentovenda.prg Linha:7115 - 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._RetornarMensagem( THIS.LogUsuario ) llOk = DODEFAULT( ) THIS.oObjetoTeste.gravar() llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:7138 - 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() 10:23:55.005 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete definido como "Sem frete" mas o valor foi informado Chamadas:Linha:1736 - orcamentobase.gravar - orcamentobase.prg Linha:6064 - orcamentovenda.gravar - orcamentovenda.prg Linha:7149 - 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._RetornarMensagem( THIS.LogUsuario ) llOk = DODEFAULT( ) THIS.oObjetoTeste.gravar() llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:7159 - 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() 10:23:55.020 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Tipo de frete definido como "Sem frete" mas o valor foi informado Chamadas:Linha:1736 - orcamentobase.gravar - orcamentobase.prg Linha:6064 - orcamentovenda.gravar - orcamentovenda.prg Linha:7149 - 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._RetornarMensagem( THIS.LogUsuario ) llOk = DODEFAULT( ) THIS.oObjetoTeste.gravar() llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:7162 - 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()