18:05:18.634 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: A filial de retirada não poderá estar marcada como fechada. Chamadas:Linha:686 - localretirada_centrodistribuicao._validarfilialretirada - localretirada.prg Linha:499 - localretirada.definirfilialretirada - localretirada.prg Linha:36 - localretirada_centrodistribuicao.definirfilialretirada - localretirada_centrodistribuicao.prg Linha:5905 - itempedidovendarest._definirlocalretirada - itempedidobase.prg Linha:9681 - itempedidovendarest.definirfilialretirada - itempedidobase.prg Linha:5130 - itempedidovendarest.ctipoentrega_assign - itempedidobase.prg Linha:3857 - itempedidovendarest._definirtipodeentrega - itempedidobase.prg Linha:1933 - itempedidovendarest.definirproduto - itempedidobase.prg Linha:202 - orcamentovendarest_unit.testunit003 - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('A filial de retirada não poderá estar marcada como fechada.') THIS._ValidarFilialRetirada( tcIdFilial, tcTipoOrcamento ) && FNX-5345 DODEFAULT( tcIdFilial, tcTipoOrcamento, tcFinalidade ) IF THIS._oLocalRetirada.DefinirFilialRetirada( tcIdFilialRetirada, THIS._oOrcamento.ObterTipo(), THIS._oOrcamento.ObterFinalidade() ) llRetorno = THIS._DefinirLocalRetirada( tcIdFilial, '--', lnTipoFaturamento ) && 423897 Executando TestUnit: ORCAMENTOVENDAREST_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:2046 - itempedidovendarest.definirproduto - itempedidobase.prg Linha:202 - orcamentovendarest_unit.testunit003 - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:05:18.791 - 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:421 - ICMSVENDA._VALIDARPREENCHIMENTOPROPRIEDADESOBRIGATORIAS - IMPOSTOESTADUAL.PRG LINHA:67 - ICMSVENDA._CALCULAR - ICMSVENDA.PRG LINHA:215 - ICMSVENDA.CALCULAR - IMPOSTO.PRG LINHA:767 - ITEMPEDIDOVENDAREST.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG LINHA:2393 - ITEMPEDIDOVENDAREST._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:4010 - ITEMPEDIDOVENDAREST.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3888 - ITEMPEDIDOVENDAREST.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:203 - ORCAMENTOVENDAREST_UNIT.TESTUNIT003 - ORCAMENTOVENDAREST_UNIT.PRG LINHA:236 - ORCAMENTOVENDAREST_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:421 - icmsvenda._validarpreenchimentopropriedadesobrigatorias - impostoestadual.prg Linha:67 - icmsvenda._calcular - icmsvenda.prg Linha:215 - icmsvenda.calcular - imposto.prg Linha:767 - itempedidovendarest.obteraliquotaicms - itempedidovenda.prg Linha:2393 - itempedidovendarest._buscarpreco - itempedidobase.prg Linha:4010 - itempedidovendarest.alterarquantidade - itempedidobase.prg Linha:3888 - itempedidovendarest.nquantidade_assign - itempedidobase.prg Linha:203 - orcamentovendarest_unit.testunit003 - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1431 - 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: ORCAMENTOVENDAREST_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:3909 - itempedidovendarest.nquantidade_assign - itempedidobase.prg Linha:203 - orcamentovendarest_unit.testunit003 - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:05:18.823 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: A filial de retirada não poderá estar marcada como fechada. 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:900 - itempedidovendarest._retornarmensagem - itempedidobase.prg Linha:843 - itempedidovendarest._retornarerro - custommu.prg Linha:4227 - itempedidovendarest._autorizaralteracaopreco - itempedidobase.prg Linha:4263 - itempedidovendarest.npreco_assign - itempedidobase.prg Linha:205 - orcamentovendarest_unit.testunit003 - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_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.') IF NOT THIS._AutorizarAlteracaoPreco(tAssign, llChamadaExterna ) loItem.nPreco = 0.01 Executando TestUnit: ORCAMENTOVENDAREST_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:4406 - itempedidovendarest.npreco_assign - itempedidobase.prg Linha:205 - orcamentovendarest_unit.testunit003 - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:05:18.837 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: A filial de retirada não poderá estar marcada como fechada. 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:900 - itempedidovendarest._retornarmensagem - itempedidobase.prg Linha:843 - itempedidovendarest._retornarerro - custommu.prg Linha:5238 - itempedidovendarest.ccarga_assign - itempedidobase.prg Linha:206 - orcamentovendarest_unit.testunit003 - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_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 a carga.') loItem.cCarga = 'A' llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDAREST_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:5273 - itempedidovendarest.ccarga_assign - itempedidobase.prg Linha:206 - orcamentovendarest_unit.testunit003 - orcamentovendarest_unit.prg Linha:236 - orcamentovendarest_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()