11:04:39.923 - 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 - ITEMPEDIDOVENDAREST._ATUALIZARPERSISTENCIAOUTRAS - ITEMPEDIDOVENDA.PRG LINHA:2688 - ITEMPEDIDOBASE.ATUALIZAR - ITEMPEDIDOBASE.PRG LINHA:88 - ITEMPEDIDOVENDAREST.ATUALIZAR - ITEMPEDIDOVENDAREST.PRG LINHA:5900 - ITEMPEDIDOVENDAREST._DEFINIRLOCALRETIRADA - ITEMPEDIDOBASE.PRG LINHA:9665 - ITEMPEDIDOVENDAREST.DEFINIRFILIALRETIRADA - ITEMPEDIDOBASE.PRG LINHA:5120 - ITEMPEDIDOVENDAREST.CTIPOENTREGA_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:3847 - ITEMPEDIDOVENDAREST._DEFINIRTIPODEENTREGA - ITEMPEDIDOBASE.PRG LINHA:1923 - 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: 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 - itempedidovendarest._atualizarpersistenciaoutras - itempedidovenda.prg Linha:2688 - itempedidobase.atualizar - itempedidobase.prg Linha:88 - itempedidovendarest.atualizar - itempedidovendarest.prg Linha:5900 - itempedidovendarest._definirlocalretirada - itempedidobase.prg Linha:9665 - itempedidovendarest.definirfilialretirada - itempedidobase.prg Linha:5120 - itempedidovendarest.ctipoentrega_assign - itempedidobase.prg Linha:3847 - itempedidovendarest._definirtipodeentrega - itempedidobase.prg Linha:1923 - 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._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: ORCAMENTOVENDAREST_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:2036 - 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() 11:04:40.028 - 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 - ITEMPEDIDOVENDAREST._ATUALIZARPERSISTENCIAOUTRAS - ITEMPEDIDOVENDA.PRG LINHA:2688 - ITEMPEDIDOBASE.ATUALIZAR - ITEMPEDIDOBASE.PRG LINHA:88 - ITEMPEDIDOVENDAREST.ATUALIZAR - ITEMPEDIDOVENDAREST.PRG LINHA:5900 - ITEMPEDIDOVENDAREST._DEFINIRLOCALRETIRADA - ITEMPEDIDOBASE.PRG LINHA:9665 - ITEMPEDIDOVENDAREST.DEFINIRFILIALRETIRADA - ITEMPEDIDOBASE.PRG LINHA:5120 - ITEMPEDIDOVENDAREST.CTIPOENTREGA_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:3847 - ITEMPEDIDOVENDAREST._DEFINIRTIPODEENTREGA - ITEMPEDIDOBASE.PRG LINHA:1923 - 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: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) 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 - ITEMPEDIDOVENDAREST._ATUALIZARPERSISTENCIAOUTRAS - ITEMPEDIDOVENDA.PRG LINHA:2688 - ITEMPEDIDOBASE.ATUALIZAR - ITEMPEDIDOBASE.PRG LINHA:88 - ITEMPEDIDOVENDAREST.ATUALIZAR - ITEMPEDIDOVENDAREST.PRG LINHA:3991 - ITEMPEDIDOVENDAREST.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3878 - 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: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 - itempedidovendarest._atualizarpersistenciaoutras - itempedidovenda.prg Linha:2688 - itempedidobase.atualizar - itempedidobase.prg Linha:88 - itempedidovendarest.atualizar - itempedidovendarest.prg Linha:3991 - itempedidovendarest.alterarquantidade - itempedidobase.prg Linha:3878 - 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( '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: ORCAMENTOVENDAREST_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3899 - 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() 11:04:40.058 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: É 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:4217 - itempedidovendarest._autorizaralteracaopreco - itempedidobase.prg Linha:4253 - 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:410 - ON... - ctrlib.prg Linha:4396 - 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() 11:04:40.068 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: É 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:5228 - 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:410 - ON... - ctrlib.prg Linha:5263 - 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()