18:25:05.571 - 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 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:9681 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:5130 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:3857 - itempedidovenda._definirtipodeentrega - itempedidobase.prg Linha:1933 - itempedidovenda.definirproduto - itempedidobase.prg Linha:10392 - orcamentovenda_unit.testunit168 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_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: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:2046 - itempedidovenda.definirproduto - itempedidobase.prg Linha:10392 - orcamentovenda_unit.testunit168 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:25:05.629 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: A filial de retirada não poderá estar marcada como fechada. É necessário informar o produto antes de definir o tipo de entrega. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:843 - itempedidovenda._retornarerro - custommu.prg Linha:5012 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:10393 - orcamentovenda_unit.testunit168 - 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(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:416 - ON... - ctrlib.prg Linha:5210 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:10393 - orcamentovenda_unit.testunit168 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:25:05.671 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: A filial de retirada não poderá estar marcada como fechada. É necessário informar o produto antes de definir o tipo de entrega. É necessário informar o produto antes de definir o preço. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:843 - itempedidovenda._retornarerro - custommu.prg Linha:4227 - itempedidovenda._autorizaralteracaopreco - itempedidobase.prg Linha:4263 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:10394 - orcamentovenda_unit.testunit168 - 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(tcLog, tcCodigoExcecao ) THIS._RetornarErro('É necessário informar o produto antes de definir o preço.') IF NOT THIS._AutorizarAlteracaoPreco(tAssign, llChamadaExterna ) loItem.nPreco = 40.00 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:4406 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:10394 - orcamentovenda_unit.testunit168 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:25:06.744 - 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 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:9681 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:5130 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:3857 - itempedidovenda._definirtipodeentrega - itempedidobase.prg Linha:1933 - itempedidovenda.definirproduto - itempedidobase.prg Linha:10399 - orcamentovenda_unit.testunit168 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_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: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:2046 - itempedidovenda.definirproduto - itempedidobase.prg Linha:10399 - orcamentovenda_unit.testunit168 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 18:25:06.802 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: A filial de retirada não poderá estar marcada como fechada. É necessário informar o produto antes de definir o tipo de entrega. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:843 - itempedidovenda._retornarerro - custommu.prg Linha:5012 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:10400 - orcamentovenda_unit.testunit168 - 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(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:416 - ON... - ctrlib.prg Linha:5210 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:10400 - orcamentovenda_unit.testunit168 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()