11:02:44.282 - 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:3991 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3878 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1930 - ITEMPEDIDOVENDA.DEFINIRPRODUTO - ITEMPEDIDOBASE.PRG LINHA:1074 - ENCOMENDA_UNIT.TESTUNIT29 - ENCOMENDA_UNIT.PRG LINHA:236 - ENCOMENDA_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:3991 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3878 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:1930 - itempedidovenda.definirproduto - itempedidobase.prg Linha:1074 - encomenda_unit.testunit29 - encomenda_unit.prg Linha:236 - encomenda_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: ENCOMENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:2036 - itempedidovenda.definirproduto - itempedidobase.prg Linha:1074 - encomenda_unit.testunit29 - encomenda_unit.prg Linha:236 - encomenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 11:02:44.329 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: É 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:5002 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1076 - encomenda_unit.testunit29 - encomenda_unit.prg Linha:236 - encomenda_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.') THIS.oObjetoTeste.cTipoEntrega = 'F' llTestOk = EVALUATE(lcTeste) Executando TestUnit: ENCOMENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:5200 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1076 - encomenda_unit.testunit29 - encomenda_unit.prg Linha:236 - encomenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 11:02:44.339 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: É necessário informar o produto antes de definir o tipo de entrega. É necessário informar o produto antes de definir a carga. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:843 - itempedidovenda._retornarerro - custommu.prg Linha:5228 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:1077 - encomenda_unit.testunit29 - encomenda_unit.prg Linha:236 - encomenda_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.') THIS.oObjetoTeste.cCarga = 'A' llTestOk = EVALUATE(lcTeste) Executando TestUnit: ENCOMENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:5263 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:1077 - encomenda_unit.testunit29 - encomenda_unit.prg Linha:236 - encomenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 11:02:44.393 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada. Chamadas:Linha:324 - localretirada._validarpropriedadesobrigatorias - localretirada.prg Linha:1373 - localretirada.definirobjestoque - localretirada.prg Linha:5806 - itempedidovenda._configurarlocalretirada - itempedidobase.prg Linha:5884 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:9665 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:1078 - encomenda_unit.testunit29 - encomenda_unit.prg Linha:236 - encomenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada.') IF NOT THIS._lModoBusca AND NOT THIS._ValidarPropriedadesObrigatorias() llOk = llOk AND THIS._oLocalRetirada.DefinirObjEstoque(THIS._oEstoque) THIS._ConfigurarLocalRetirada() llRetorno = THIS._DefinirLocalRetirada( tcIdFilial, '--', lnTipoFaturamento ) && 423897 Executando TestUnit: ENCOMENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:9767 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:1078 - encomenda_unit.testunit29 - encomenda_unit.prg Linha:236 - encomenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 11:02:44.421 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada. Chamadas:Linha:324 - localretirada._validarpropriedadesobrigatorias - localretirada.prg Linha:1373 - localretirada.definirobjestoque - localretirada.prg Linha:5806 - itempedidovenda._configurarlocalretirada - itempedidobase.prg Linha:5884 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:9909 - itempedidovenda.definirtipofaturamento - itempedidobase.prg Linha:1079 - encomenda_unit.testunit29 - encomenda_unit.prg Linha:236 - encomenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada.') IF NOT THIS._lModoBusca AND NOT THIS._ValidarPropriedadesObrigatorias() llOk = llOk AND THIS._oLocalRetirada.DefinirObjEstoque(THIS._oEstoque) THIS._ConfigurarLocalRetirada() llRetorno = THIS._DefinirLocalRetirada( '--', '--', tnTipo ) Executando TestUnit: ENCOMENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:9921 - itempedidovenda.definirtipofaturamento - itempedidobase.prg Linha:1079 - encomenda_unit.testunit29 - encomenda_unit.prg Linha:236 - encomenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 11:02:44.533 - 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:3991 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3878 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1930 - ITEMPEDIDOVENDA.DEFINIRPRODUTO - ITEMPEDIDOBASE.PRG LINHA:1074 - ENCOMENDA_UNIT.TESTUNIT29 - ENCOMENDA_UNIT.PRG LINHA:236 - ENCOMENDA_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 - ITEMPEDIDOVENDA._ATUALIZARPERSISTENCIAOUTRAS - ITEMPEDIDOVENDA.PRG LINHA:2688 - ITEMPEDIDOVENDA.ATUALIZAR - ITEMPEDIDOBASE.PRG LINHA:3991 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:3878 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1080 - ENCOMENDA_UNIT.TESTUNIT29 - ENCOMENDA_UNIT.PRG LINHA:236 - ENCOMENDA_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:3991 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3878 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:1080 - encomenda_unit.testunit29 - encomenda_unit.prg Linha:236 - encomenda_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: ENCOMENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3899 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:1080 - encomenda_unit.testunit29 - encomenda_unit.prg Linha:236 - encomenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()