10:42:53.938 - 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:138 - ITEMPEDIDOBASE_UNIT.DEFINIRPROPRIEDADESTESTE - ITEMPEDIDOBASE_UNIT.PRG LINHA:1093 - ITEMPEDIDOBASE_UNIT.TESTUNIT024 - ITEMPEDIDOBASE_UNIT.PRG LINHA:236 - ITEMPEDIDOBASE_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:138 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_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: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:2036 - itempedidovenda.definirproduto - itempedidobase.prg Linha:138 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:53.987 - 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:139 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_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.') .cTipoEntrega = 'F' THIS.DefinirPropriedadesTeste(@loItemPedido) Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:5200 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:139 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:54.062 - 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:140 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_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: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:9767 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:140 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:54.111 - 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:9877 - itempedidovenda.definirfilialtransferencia - itempedidobase.prg Linha:141 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_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, -1 ) Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:9889 - itempedidovenda.definirfilialtransferencia - itempedidobase.prg Linha:141 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:54.159 - 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:142 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_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: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:9921 - itempedidovenda.definirtipofaturamento - itempedidobase.prg Linha:142 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:54.271 - 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:138 - ITEMPEDIDOBASE_UNIT.DEFINIRPROPRIEDADESTESTE - ITEMPEDIDOBASE_UNIT.PRG LINHA:1093 - ITEMPEDIDOBASE_UNIT.TESTUNIT024 - ITEMPEDIDOBASE_UNIT.PRG LINHA:236 - ITEMPEDIDOBASE_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:143 - ITEMPEDIDOBASE_UNIT.DEFINIRPROPRIEDADESTESTE - ITEMPEDIDOBASE_UNIT.PRG LINHA:1093 - ITEMPEDIDOBASE_UNIT.TESTUNIT024 - ITEMPEDIDOBASE_UNIT.PRG LINHA:236 - ITEMPEDIDOBASE_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:143 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_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: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3899 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:143 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:54.282 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: É necessário informar o produto antes de definir o tipo de entrega. Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada. É 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:145 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_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.') .cCarga = 'B' THIS.DefinirPropriedadesTeste(@loItemPedido) Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:5263 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:145 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:54.324 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: É necessário informar o produto antes de definir o tipo de entrega. Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada. É necessário informar o produto antes de definir a carga. É necessário informar o produto antes de definir o preço. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:843 - itempedidovenda._retornarerro - custommu.prg Linha:4217 - itempedidovenda._autorizaralteracaopreco - itempedidobase.prg Linha:4253 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:146 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_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 ) .nPreco = 56.50000 Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4396 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:146 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:54.331 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: É necessário informar o produto antes de definir o tipo de entrega. Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada. É necessário informar o produto antes de definir a carga. É necessário informar o produto antes de definir o preço. Classe: Itempedidovenda LINHA:848 - ITEMPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:4728 - ITEMPEDIDOVENDA.DPREVISAOENTREGA_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:147 - ITEMPEDIDOBASE_UNIT.DEFINIRPROPRIEDADESTESTE - ITEMPEDIDOBASE_UNIT.PRG LINHA:1093 - ITEMPEDIDOBASE_UNIT.TESTUNIT024 - ITEMPEDIDOBASE_UNIT.PRG LINHA:236 - ITEMPEDIDOBASE_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:4728 - itempedidovenda.dprevisaoentrega_assign - itempedidobase.prg Linha:147 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('É necessário informar o produto antes de definir o preço.') .dPrevisaoEntrega = DATE() THIS.DefinirPropriedadesTeste(@loItemPedido) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4801 - itempedidovenda.dprevisaoentrega_assign - itempedidobase.prg Linha:147 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:54.341 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: É necessário informar o produto antes de definir o tipo de entrega. Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada. É necessário informar o produto antes de definir a carga. É necessário informar o produto antes de definir o preço. Classe: Itempedidovenda LINHA:848 - ITEMPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:4728 - ITEMPEDIDOVENDA.DPREVISAOENTREGA_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:147 - ITEMPEDIDOBASE_UNIT.DEFINIRPROPRIEDADESTESTE - ITEMPEDIDOBASE_UNIT.PRG LINHA:1093 - ITEMPEDIDOBASE_UNIT.TESTUNIT024 - ITEMPEDIDOBASE_UNIT.PRG LINHA:236 - ITEMPEDIDOBASE_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Classe: Itempedidovenda LINHA:848 - ITEMPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:5228 - ITEMPEDIDOVENDA.CCARGA_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:148 - ITEMPEDIDOBASE_UNIT.DEFINIRPROPRIEDADESTESTE - ITEMPEDIDOBASE_UNIT.PRG LINHA:1093 - ITEMPEDIDOBASE_UNIT.TESTUNIT024 - ITEMPEDIDOBASE_UNIT.PRG LINHA:236 - ITEMPEDIDOBASE_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:5228 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:148 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('É necessário informar o produto antes de definir a carga.') .cCarga = 'B' THIS.DefinirPropriedadesTeste(@loItemPedido) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:5263 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:148 - itempedidobase_unit.definirpropriedadesteste - itempedidobase_unit.prg Linha:1093 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:42:54.388 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: É necessário informar o produto antes de definir o tipo de entrega. Local de Retirada - O produto da venda não foi informado, não é possível definir a filial de retirada. É necessário informar o produto antes de definir a carga. É necessário informar o produto antes de definir o preço. Classe: Itempedidovenda LINHA:848 - ITEMPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:5002 - ITEMPEDIDOVENDA.CTIPOENTREGA_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:1094 - ITEMPEDIDOBASE_UNIT.TESTUNIT024 - ITEMPEDIDOBASE_UNIT.PRG LINHA:236 - ITEMPEDIDOBASE_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:5002 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1094 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('É necessário informar o produto antes de definir o tipo de entrega.') loItemPedido.cTipoEntrega = 'C' llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: ITEMPEDIDOBASE_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:5200 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:1094 - itempedidobase_unit.testunit024 - itempedidobase_unit.prg Linha:236 - itempedidobase_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()