10:52:38.359 - 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:78 - ITENSPEDIDOVENDA_UNIT._CONFIGURARITEMPEDIDO - ITENSPEDIDOVENDA_UNIT.PRG LINHA:424 - ITENSPEDIDOVENDA_UNIT.TESTUNIT010 - ITENSPEDIDOVENDA_UNIT.PRG LINHA:236 - ITENSPEDIDOVENDA_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:78 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:424 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_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: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:2036 - itempedidovenda.definirproduto - itempedidobase.prg Linha:78 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:424 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:38.470 - 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:78 - ITENSPEDIDOVENDA_UNIT._CONFIGURARITEMPEDIDO - ITENSPEDIDOVENDA_UNIT.PRG LINHA:424 - ITENSPEDIDOVENDA_UNIT.TESTUNIT010 - ITENSPEDIDOVENDA_UNIT.PRG LINHA:236 - ITENSPEDIDOVENDA_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:79 - ITENSPEDIDOVENDA_UNIT._CONFIGURARITEMPEDIDO - ITENSPEDIDOVENDA_UNIT.PRG LINHA:424 - ITENSPEDIDOVENDA_UNIT.TESTUNIT010 - ITENSPEDIDOVENDA_UNIT.PRG LINHA:236 - ITENSPEDIDOVENDA_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:79 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:424 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_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: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3899 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:79 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:424 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:38.516 - 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:82 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:424 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_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 = tcTipoEntrega THIS._ConfigurarItemPedido(loItemPedido, '37651', 15.00, 'PC', 6.00, 'F', '') Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:5200 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:82 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:424 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:38.555 - 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 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:92 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:424 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_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 = tnPreco Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4396 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:92 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:424 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:38.875 - EXCEÇÃO NÃO TRATADA! Erro: 9 - Mensagem: Data type mismatch. - Linha: 77 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:77 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:429 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:38.878 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 78 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:78 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:429 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:38.880 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 79 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:79 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:429 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:38.882 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 80 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:80 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:429 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:38.884 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 82 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:82 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:429 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:38.886 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 92 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:92 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:429 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:38.888 - EXCEÇÃO NÃO TRATADA! Erro: 1939 - Mensagem: WITH/ENDWITH mismatch. - Linha: 93 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:93 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:429 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:38.890 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 431 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:431 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:39.211 - EXCEÇÃO NÃO TRATADA! Erro: 9 - Mensagem: Data type mismatch. - Linha: 77 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:77 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:434 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:39.213 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 78 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:78 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:434 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:39.215 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 79 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:79 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:434 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:39.217 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 80 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:80 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:434 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:39.219 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 82 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:82 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:434 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:39.221 - EXCEÇÃO NÃO TRATADA! Erro: 1940 - Mensagem: Expression is not valid outside of WITH/ENDWITH. - Linha: 92 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:92 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:434 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:39.223 - EXCEÇÃO NÃO TRATADA! Erro: 1939 - Mensagem: WITH/ENDWITH mismatch. - Linha: 93 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:93 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:434 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:39.225 - EXCEÇÃO NÃO TRATADA! Erro: 1924 - Mensagem: LOITEMPEDIDO is not an object. - Linha: 436 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:436 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:52:39.227 - EXCEÇÃO NÃO TRATADA! Erro: 107 - Mensagem: Operator/operand type mismatch. - Linha: 439 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:439 - itenspedidovenda_unit.testunit010 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()