08:17:55.016 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado! Chamadas:Linha:1012 - localretirada_centrodistribuicao.validaroperacaofaturamentodiretonaopermitida - localretirada.prg Linha:605 - localretirada_centrodistribuicao.definirfilialtransferencia - localretirada.prg Linha:53 - localretirada_centrodistribuicao.definirfilialretirada - localretirada_centrodistribuicao.prg Linha:5402 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:8837 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:4684 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:3521 - itempedidovenda._definirtipodeentrega - itempedidobase.prg Linha:1711 - itempedidovenda.definirproduto - itempedidobase.prg Linha:2343 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('As configurações atuais impedem que faturamento por transferência seja selecionado!') THIS.ValidarOperacaoFaturamentoDiretoNaoPermitida() THIS.DefinirFilialTransferencia( lcCDAvancadoTransferenciaAutomatica ) IF THIS._oLocalRetirada.DefinirFilialRetirada( tcIdFilialRetirada, THIS._oOrcamento.ObterTipo(), THIS._oOrcamento.ObterFinalidade() ) llRetorno = THIS._DefinirLocalRetirada( tcIdFilial, '--', lnTipoFaturamento ) && 423897 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1824 - itempedidovenda.definirproduto - itempedidobase.prg Linha:2343 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 08:17:55.141 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Produto não definido Classe: Precoorcamento LINHA:849 - PRECOORCAMENTO._RETORNARERRO - CUSTOMMU.PRG LINHA:1139 - PRECOORCAMENTO._VALIDARPROPRIEDADESOBRIGATORIAS - PRECOORCAMENTO.PRG LINHA:882 - PRECOORCAMENTO.OBTER - PRECOORCAMENTO.PRG LINHA:2174 - ITEMPEDIDOVENDA._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:3639 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3548 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:2345 - ORCAMENTOVENDA_UNIT.TESTUNIT036 - ORCAMENTOVENDA_UNIT.PRG LINHA:236 - ORCAMENTOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1421 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:1139 - precoorcamento._validarpropriedadesobrigatorias - precoorcamento.prg Linha:882 - precoorcamento.obter - precoorcamento.prg Linha:2174 - itempedidovenda._buscarpreco - itempedidobase.prg Linha:3639 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3548 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:2345 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('Produto não definido') IF NOT THIS._ValidarPropriedadesObrigatorias() lnPreco = THIS._oPreco.Obter() THIS._BuscarPreco(.F.) && para preço de oferta THIS.AlterarQuantidade(tAssign, tlIgnorarVerificacaoDeLoteNaValidacaoDaMenorFracaoDeVenda, llChamadaExterna ) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3697 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3548 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:2345 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 08:17:55.172 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado! Produto não definido É necessário informar o produto antes de definir o preço. Chamadas:Linha:764 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:844 - itempedidovenda._retornarerro - custommu.prg Linha:3837 - itempedidovenda._autorizaralteracaopreco - itempedidobase.prg Linha:3873 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:2347 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - 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.') IF NOT THIS._AutorizarAlteracaoPreco(tAssign, llChamadaExterna ) loItem.nPreco = 4.44 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4002 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:2347 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 08:17:55.172 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado! Produto não definido É necessário informar o produto antes de definir o preço. É necessário informar o produto antes de definir o tipo de entrega. Chamadas:Linha:764 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:844 - itempedidovenda._retornarerro - custommu.prg Linha:4578 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:2348 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - 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.') loItem.cTipoEntrega = 'C' llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4748 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:2348 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 08:17:55.188 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado! Produto não definido É necessário informar o produto antes de definir o preço. É necessário informar o produto antes de definir o tipo de entrega. É necessário informar o produto antes de definir a carga. Chamadas:Linha:764 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:844 - itempedidovenda._retornarerro - custommu.prg Linha:4769 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:2349 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - 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 a carga.') loItem.cCarga = 'A' llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4803 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:2349 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 08:17:56.493 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado! Chamadas:Linha:1012 - localretirada_centrodistribuicao.validaroperacaofaturamentodiretonaopermitida - localretirada.prg Linha:605 - localretirada_centrodistribuicao.definirfilialtransferencia - localretirada.prg Linha:53 - localretirada_centrodistribuicao.definirfilialretirada - localretirada_centrodistribuicao.prg Linha:5402 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:8837 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:4684 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:3521 - itempedidovenda._definirtipodeentrega - itempedidobase.prg Linha:1711 - itempedidovenda.definirproduto - itempedidobase.prg Linha:2352 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('As configurações atuais impedem que faturamento por transferência seja selecionado!') THIS.ValidarOperacaoFaturamentoDiretoNaoPermitida() THIS.DefinirFilialTransferencia( lcCDAvancadoTransferenciaAutomatica ) IF THIS._oLocalRetirada.DefinirFilialRetirada( tcIdFilialRetirada, THIS._oOrcamento.ObterTipo(), THIS._oOrcamento.ObterFinalidade() ) llRetorno = THIS._DefinirLocalRetirada( tcIdFilial, '--', lnTipoFaturamento ) && 423897 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1824 - itempedidovenda.definirproduto - itempedidobase.prg Linha:2352 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 08:17:56.623 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Produto não definido Classe: Precoorcamento LINHA:849 - PRECOORCAMENTO._RETORNARERRO - CUSTOMMU.PRG LINHA:1139 - PRECOORCAMENTO._VALIDARPROPRIEDADESOBRIGATORIAS - PRECOORCAMENTO.PRG LINHA:882 - PRECOORCAMENTO.OBTER - PRECOORCAMENTO.PRG LINHA:2174 - ITEMPEDIDOVENDA._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:3639 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3548 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:2353 - ORCAMENTOVENDA_UNIT.TESTUNIT036 - ORCAMENTOVENDA_UNIT.PRG LINHA:236 - ORCAMENTOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1421 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:1139 - precoorcamento._validarpropriedadesobrigatorias - precoorcamento.prg Linha:882 - precoorcamento.obter - precoorcamento.prg Linha:2174 - itempedidovenda._buscarpreco - itempedidobase.prg Linha:3639 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3548 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:2353 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('Produto não definido') IF NOT THIS._ValidarPropriedadesObrigatorias() lnPreco = THIS._oPreco.Obter() THIS._BuscarPreco(.F.) && para preço de oferta THIS.AlterarQuantidade(tAssign, tlIgnorarVerificacaoDeLoteNaValidacaoDaMenorFracaoDeVenda, llChamadaExterna ) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3697 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3548 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:2353 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 08:17:56.633 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado! Produto não definido É necessário informar o produto antes de definir o tipo de entrega. Chamadas:Linha:764 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:844 - itempedidovenda._retornarerro - custommu.prg Linha:4578 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:2355 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - 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.') loItem.cTipoEntrega = 'C' llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4748 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:2355 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 08:17:56.643 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado! Produto não definido É necessário informar o produto antes de definir o tipo de entrega. É necessário informar o produto antes de definir a carga. Chamadas:Linha:764 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:844 - itempedidovenda._retornarerro - custommu.prg Linha:4769 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:2356 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - 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 a carga.') loItem.cCarga = 'A' llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4803 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:2356 - orcamentovenda_unit.testunit036 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()