11:23:15.184 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Parâmetro inválido [2] - Esperado parâmetro tipo "N" passado "L" - Classe: Itempedidovendadb Classe: Itempedidovendadb LINHA:848 - ITEMPEDIDOVENDADB._RETORNARERRO - CUSTOMMU.PRG LINHA:1182 - ITEMPEDIDOVENDADB._VALIDARPARAMETRO - CUSTOMMU.PRG LINHA:5722 - ITEMPEDIDOVENDADB.NPRECOCADASTRO_ASSIGN - ITEMPEDIDOVENDADB.PRG LINHA:5712 - ITEMPEDIDOBASE._ATUALIZARPERSISTENCIAOUTRAS - ITEMPEDIDOBASE.PRG LINHA:127 - ITEMPEDIDOSAIDABASE._ATUALIZARPERSISTENCIAOUTRAS - ITEMPEDIDOSAIDABASE.PRG LINHA:466 - ITEMPEDIDOVENDA._ATUALIZARPERSISTENCIAOUTRAS - ITEMPEDIDOVENDA.PRG LINHA:2688 - ITEMPEDIDOVENDA.ATUALIZAR - ITEMPEDIDOBASE.PRG LINHA:5900 - ITEMPEDIDOVENDA._DEFINIRLOCALRETIRADA - ITEMPEDIDOBASE.PRG LINHA:9665 - ITEMPEDIDOVENDA.DEFINIRFILIALRETIRADA - ITEMPEDIDOBASE.PRG LINHA:5120 - ITEMPEDIDOVENDA.CTIPOENTREGA_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:3847 - ITEMPEDIDOVENDA._DEFINIRTIPODEENTREGA - ITEMPEDIDOBASE.PRG LINHA:1923 - ITEMPEDIDOVENDA.DEFINIRPRODUTO - ITEMPEDIDOBASE.PRG LINHA:1351 - ITENSPEDIDOVENDA._ADICIONARPRODUTO - ITENSPEDIDOVENDA.PRG LINHA:1213 - ITENSPEDIDOVENDA.ADICIONAR - ITENSPEDIDOVENDA.PRG LINHA:8021 - ORCAMENTOVENDA_UNIT.TESTUNIT121 - 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 - itempedidovendadb._validarparametro - custommu.prg Linha:5722 - itempedidovendadb.nprecocadastro_assign - itempedidovendadb.prg Linha:5712 - itempedidobase._atualizarpersistenciaoutras - itempedidobase.prg Linha:127 - itempedidosaidabase._atualizarpersistenciaoutras - itempedidosaidabase.prg Linha:466 - itempedidovenda._atualizarpersistenciaoutras - itempedidovenda.prg Linha:2688 - itempedidovenda.atualizar - itempedidobase.prg Linha:5900 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:9665 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:5120 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:3847 - itempedidovenda._definirtipodeentrega - itempedidobase.prg Linha:1923 - itempedidovenda.definirproduto - itempedidobase.prg Linha:1351 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:1213 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:8021 - orcamentovenda_unit.testunit121 - 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 ) IF NOT THIS._ValidarParametro( 'N', tnAssign, 1, PCOUNT() ) THIS._oItemPedidoDB.nPrecoCadastro = IIF(NOT INLIST(THIS._oOrcamento.cSituacaoOrcamento, SOFATURADO, SOCANCELADO ), THIS._oPreco.ObterPrecoCadastro(), THIS._oItemPedidoDB.nPrecoCadastro) DODEFAULT() DODEFAULT() Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1404 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg Linha:1213 - itenspedidovenda.adicionar - itenspedidovenda.prg Linha:8021 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 11:23:15.193 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Informe Cliente antes de definir o endereço de entrega Chamadas:Linha:816 - enderecoorcamento._validarpropriedades - enderecoorcamentobase.prg Linha:480 - enderecoorcamento.definirenderecoentrega - enderecoorcamentobase.prg Linha:8022 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( 'Informe '+lcTipoCliente +' antes de '+TRANSFORM(tcMensagemAdicional) ) IF NOT THIS._ValidarPropriedades( 'definir o endereço de entrega' , .f.) THIS.oObjetoTeste.oEndereco.DefinirEnderecoEntrega(367994941) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:508 - enderecoorcamento.definirenderecoentrega - enderecoorcamentobase.prg Linha:8022 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 11:23:15.201 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Informe Cliente antes de definir o endereço de entrega Informe Cliente antes de definir o endereço de cobrança Chamadas:Linha:816 - enderecoorcamento._validarpropriedades - enderecoorcamentobase.prg Linha:391 - enderecoorcamento.definirenderecocobranca - enderecoorcamentobase.prg Linha:8023 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( 'Informe '+lcTipoCliente +' antes de '+TRANSFORM(tcMensagemAdicional) ) IF NOT THIS._ValidarPropriedades( 'definir o endereço de cobrança', .f. ) THIS.oObjetoTeste.oEndereco.DefinirEnderecoCobranca( 367994941) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:406 - enderecoorcamento.definirenderecocobranca - enderecoorcamentobase.prg Linha:8023 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 11:23:15.679 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não há itens de pedido de venda nessa operação. Parcelamento inválido, pois: Total da operação do parcelamento não informado. Chamadas:Linha:1683 - orcamentovenda.gravar - orcamentobase.prg Linha:8026 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( THIS.LogUsuario ) IF THIS.oObjetoTeste.Gravar() llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:926 - orcamentovenda._retornarmensagem - custommu.prg Linha:1683 - orcamentovenda.gravar - orcamentobase.prg Linha:8026 - orcamentovenda_unit.testunit121 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()