18:17:19.638 - 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:1366 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:1228 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:6091 - orcamentovenda_unit.testunit098 - 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:1419 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:1228 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:6091 - orcamentovenda_unit.testunit098 - 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:17:21.453 - 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:1366 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:1228 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:6093 - orcamentovenda_unit.testunit098 - 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:1419 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:1228 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:6093 - orcamentovenda_unit.testunit098 - 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:17:21.455 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEM is not an object. - Linha: 6094 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:6094 - orcamentovenda_unit.testunit098 - 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:17:24.562 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Parâmetro inválido [2] - Esperado parâmetro tipo "N" passado "L" - Classe: Orcamentovenda Classe: Orcamentovenda LINHA:848 - ORCAMENTOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:1182 - CUSTOMMU._VALIDARPARAMETRO - CUSTOMMU.PRG LINHA:388 - ORCAMENTOVENDA._VALIDARPARAMETRO - CTRCLASSBASE.PRG LINHA:3947 - ORCAMENTOVENDA.BUSCAR - ORCAMENTOBASE.PRG LINHA:6168 - ORCAMENTOVENDA_UNIT.TESTUNIT098 - 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:1182 - custommu._validarparametro - custommu.prg Linha:388 - orcamentovenda._validarparametro - ctrclassbase.prg Linha:3947 - orcamentovenda.buscar - orcamentobase.prg Linha:6168 - orcamentovenda_unit.testunit098 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro( 'Parâmetro inválido [2] - Esperado parâmetro tipo "'+lcTipo+'" passado "'+TYPE('tvParametro')+'" - Classe: '+THIS.CLASS ) llOk = DODEFAULT( tcTipo, tvParametro, tnQuantParametros, tnQuantValidar, tcNomeParametroValidar ) THIS._ValidarParametro('N', tnNumeroPedido ) llOk = THIS.oObjetoTeste.Buscar( lnNumPed, '29261' ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:6238 - orcamentovenda_unit.testunit098 - 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:17:24.564 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Parâmetro inválido [2] - Esperado parâmetro tipo "N" passado "L" - Classe: Orcamentovenda Classe: Orcamentovenda LINHA:848 - ORCAMENTOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:1182 - CUSTOMMU._VALIDARPARAMETRO - CUSTOMMU.PRG LINHA:388 - ORCAMENTOVENDA._VALIDARPARAMETRO - CTRCLASSBASE.PRG LINHA:3947 - ORCAMENTOVENDA.BUSCAR - ORCAMENTOBASE.PRG LINHA:6168 - ORCAMENTOVENDA_UNIT.TESTUNIT098 - 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:1182 - custommu._validarparametro - custommu.prg Linha:388 - orcamentovenda._validarparametro - ctrclassbase.prg Linha:3947 - orcamentovenda.buscar - orcamentobase.prg Linha:6168 - orcamentovenda_unit.testunit098 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro( 'Parâmetro inválido [2] - Esperado parâmetro tipo "'+lcTipo+'" passado "'+TYPE('tvParametro')+'" - Classe: '+THIS.CLASS ) llOk = DODEFAULT( tcTipo, tvParametro, tnQuantParametros, tnQuantValidar, tcNomeParametroValidar ) THIS._ValidarParametro('N', tnNumeroPedido ) llOk = THIS.oObjetoTeste.Buscar( lnNumPed, '29261' ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:416 - ON... - ctrlib.prg Linha:6241 - orcamentovenda_unit.testunit098 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()