19:13:30.466 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Desconto não pode ser concedido para itens em oferta. Chamadas:Linha:1656 - descontoorcamento._permitirinformardesconto - descontoorcamento.prg Linha:1387 - descontoorcamento._aplicarpercentualdesconto - descontoorcamento.prg Linha:1028 - descontoorcamento.npercentualdescontosobremercadoriasnacionais_assign - descontoorcamento.prg Linha:9511 - orcamentovenda_unit.testunit163 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('Desconto não pode ser concedido para itens em oferta.') IF NOT THIS._PermitirInformarDesconto( tnPercentualDesconto, 'nPercentualDesconto' ) THIS._AplicarPercentualDesconto( tnAssign, "NACIONAL" ) loOrcamento.oDesconto.nPercentualDescontoSobreMercadoriasNacionais = 10.00 llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1037 - descontoorcamento.npercentualdescontosobremercadoriasnacionais_assign - descontoorcamento.prg Linha:9511 - orcamentovenda_unit.testunit163 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 19:13:30.651 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Desconto não pode ser concedido para itens em oferta. Chamadas:Linha:1656 - descontoorcamento._permitirinformardesconto - descontoorcamento.prg Linha:1387 - descontoorcamento._aplicarpercentualdesconto - descontoorcamento.prg Linha:1060 - descontoorcamento.npercentualdescontosobremercadoriasimportadas_assign - descontoorcamento.prg Linha:9512 - orcamentovenda_unit.testunit163 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('Desconto não pode ser concedido para itens em oferta.') IF NOT THIS._PermitirInformarDesconto( tnPercentualDesconto, 'nPercentualDesconto' ) THIS._AplicarPercentualDesconto( tnAssign, "IMPORTADO" ) loOrcamento.oDesconto.nPercentualDescontoSobreMercadoriasImportadas = 10.00 llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1069 - descontoorcamento.npercentualdescontosobremercadoriasimportadas_assign - descontoorcamento.prg Linha:9512 - orcamentovenda_unit.testunit163 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()