09:33:51.068 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado. Chamadas:Linha:871 - localretirada_centrodistribuicao.definirtipofaturamento - localretirada.prg Linha:67 - localretirada_centrodistribuicao.definirfilialretirada - localretirada_centrodistribuicao.prg Linha:5697 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:9304 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:4958 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:3698 - itempedidovenda._definirtipodeentrega - itempedidobase.prg Linha:1845 - itempedidovenda.definirproduto - itempedidobase.prg Linha:1299 - orcamentovenda_unit.testunit020 - 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.DefinirTipoFaturamento( 0 ) && Transferencia IF THIS._oLocalRetirada.DefinirFilialRetirada( tcIdFilialRetirada, THIS._oOrcamento.ObterTipo(), THIS._oOrcamento.ObterFinalidade() ) llRetorno = THIS._DefinirLocalRetirada( tcIdFilial, '--', lnTipoFaturamento ) && 423897 THIS.DefinirFilialRetirada(lcFilialAutomatica) && FNX-1077 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1958 - itempedidovenda.definirproduto - itempedidobase.prg Linha:1299 - orcamentovenda_unit.testunit020 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:33:51.078 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado. É necessário informar o produto antes de definir o tipo de entrega. Chamadas:Linha:861 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:843 - itempedidovenda._retornarerro - custommu.prg Linha:4847 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1300 - orcamentovenda_unit.testunit020 - 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 = 'E' llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:5027 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1300 - orcamentovenda_unit.testunit020 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:33:51.381 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Para cáculo do imposto é necessário informar o produto da operação. Classe: Icmsvenda LINHA:848 - ICMSVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:346 - ICMSVENDA._VALIDARPREENCHIMENTOPROPRIEDADESOBRIGATORIAS - IMPOSTOESTADUAL.PRG LINHA:61 - ICMSVENDA._CALCULAR - ICMSVENDA.PRG LINHA:215 - ICMSVENDA.CALCULAR - IMPOSTO.PRG LINHA:744 - ITEMPEDIDOVENDA.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG LINHA:2293 - ITEMPEDIDOVENDA._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:3855 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3725 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1307 - ORCAMENTOVENDA_UNIT.TESTUNIT020 - 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:346 - icmsvenda._validarpreenchimentopropriedadesobrigatorias - impostoestadual.prg Linha:61 - icmsvenda._calcular - icmsvenda.prg Linha:215 - icmsvenda.calcular - imposto.prg Linha:744 - itempedidovenda.obteraliquotaicms - itempedidovenda.prg Linha:2293 - itempedidovenda._buscarpreco - itempedidobase.prg Linha:3855 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3725 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:1307 - orcamentovenda_unit.testunit020 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('Para cáculo do imposto é necessário informar o produto da operação.') IF NOT THIS._ValidarPreenchimentoPropriedadesObrigatorias() llRetorno = THIS._Calcular( ) IF THIS._oIcms.Calcular() THIS.ObterAliquotaIcms()&& 469431 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3937 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3725 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:1307 - orcamentovenda_unit.testunit020 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:33:51.398 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado. É necessário informar o produto antes de definir o tipo de entrega. Para cáculo do imposto é necessário informar o produto da operação. É necessário informar o produto antes de definir o preço. Chamadas:Linha:861 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:843 - itempedidovenda._retornarerro - custommu.prg Linha:4080 - itempedidovenda._autorizaralteracaopreco - itempedidobase.prg Linha:4116 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:1314 - orcamentovenda_unit.testunit020 - 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:4246 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:1314 - orcamentovenda_unit.testunit020 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:33:51.408 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado. É necessário informar o produto antes de definir o tipo de entrega. Para cáculo do imposto é necessário informar o produto da operação. É necessário informar o produto antes de definir o preço. Classe: Itempedidovenda LINHA:848 - ITEMPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:4847 - ITEMPEDIDOVENDA.CTIPOENTREGA_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1320 - ORCAMENTOVENDA_UNIT.TESTUNIT020 - 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:4847 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1320 - orcamentovenda_unit.testunit020 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('É necessário informar o produto antes de definir o tipo de entrega.') loItem.cTipoEntrega = 'C' llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:5027 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1320 - orcamentovenda_unit.testunit020 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:33:51.419 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado. É necessário informar o produto antes de definir o tipo de entrega. Para cáculo do imposto é necessário informar o produto da operação. É necessário informar o produto antes de definir o preço. É necessário informar o produto antes de definir a carga. Chamadas:Linha:861 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:843 - itempedidovenda._retornarerro - custommu.prg Linha:5055 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:1321 - orcamentovenda_unit.testunit020 - 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:5090 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:1321 - orcamentovenda_unit.testunit020 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:33:51.627 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado. É necessário informar o produto antes de definir o tipo de entrega. Para cáculo do imposto é necessário informar o produto da operação. É necessário informar o produto antes de definir o preço. É necessário informar o produto antes de definir a carga. Chamadas:Linha:1672 - itenspedidovenda._atualizaritens - itenspedidovenda.prg Linha:1577 - itenspedidovenda.atualizar - itenspedidovenda.prg Linha:2529 - itenspedidovenda.executarnotificacao - itenspedidovenda.prg Linha:7872 - orcamentovenda._zerarvaloresclienteanterior - orcamentobase.prg Linha:7777 - orcamentobase.definircliente - orcamentobase.prg Linha:1176 - orcamentosaidasbase.definircliente - orcamentosaidasbase.prg Linha:3287 - orcamentovenda.definircliente - orcamentovenda.prg Linha:1327 - orcamentovenda_unit.testunit020 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( loItemPedido.LogUsuario ) llRetorno = llRetorno AND THIS._AtualizarItens(tlChamadoPeloValidarOrcamentoPeloNaoGravarOrcamento ) THIS.Atualizar() THIS.oItens.ExecutarNotificacao( THIS.oCliente, 'ATUALIZAR_CLIENTE') && FNX-4253 THIS._ZerarValoresClienteAnterior() Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3308 - orcamentovenda.definircliente - orcamentovenda.prg Linha:1327 - orcamentovenda_unit.testunit020 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 09:33:52.158 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado. É necessário informar o produto antes de definir o tipo de entrega. Para cáculo do imposto é necessário informar o produto da operação. É necessário informar o produto antes de definir o preço. É necessário informar o produto antes de definir a carga. Classe: Itempedidovenda LINHA:848 - ITEMPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:4847 - ITEMPEDIDOVENDA.CTIPOENTREGA_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1340 - ORCAMENTOVENDA_UNIT.TESTUNIT020 - 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:4847 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1340 - orcamentovenda_unit.testunit020 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('É necessário informar o produto antes de definir o tipo de entrega.') loItem.cTipoEntrega = 'E' llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:5027 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1340 - orcamentovenda_unit.testunit020 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()