18:13:52.494 - 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:4557 - orcamentovenda_unit.testunit074 - 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:4557 - orcamentovenda_unit.testunit074 - 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:13:52.665 - 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 - ITEMPEDIDOVENDA.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG
LINHA:2393 - ITEMPEDIDOVENDA._BUSCARPRECO - ITEMPEDIDOBASE.PRG
LINHA:4010 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG
LINHA:3888 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG
LINHA:4558 - ORCAMENTOVENDA_UNIT.TESTUNIT074 - ORCAMENTOVENDA_UNIT.PRG
LINHA:236 - ORCAMENTOVENDA_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 - itempedidovenda.obteraliquotaicms - itempedidovenda.prg
Linha:2393 - itempedidovenda._buscarpreco - itempedidobase.prg
Linha:4010 - itempedidovenda.alterarquantidade - itempedidobase.prg
Linha:3888 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:4558 - orcamentovenda_unit.testunit074 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_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: ORCAMENTOVENDA_UNIT.PRG
Linha:416 - ON...  - ctrlib.prg
Linha:3909 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:4558 - orcamentovenda_unit.testunit074 - 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:13:52.724 - 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 tipo de entrega.
Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg
Linha:843 - itempedidovenda._retornarerro - custommu.prg
Linha:5012 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg
Linha:4559 - orcamentovenda_unit.testunit074 - 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:4559 - orcamentovenda_unit.testunit074 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()