11:18:52.966 - 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:1351 - ITENSPEDIDOVENDA._ADICIONARPRODUTO - ITENSPEDIDOVENDA.PRG
LINHA:1213 - ITENSPEDIDOVENDA.ADICIONAR - ITENSPEDIDOVENDA.PRG
LINHA:6303 - ORCAMENTOVENDA_UNIT.TESTUNIT099 - 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:3991 - itempedidovenda.alterarquantidade - itempedidobase.prg
Linha:3878 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:1930 - itempedidovenda.definirproduto - itempedidobase.prg
Linha:1351 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg
Linha:1213 - itenspedidovenda.adicionar - itenspedidovenda.prg
Linha:6303 - orcamentovenda_unit.testunit099 - 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:6303 - orcamentovenda_unit.testunit099 - 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:18:52.968 - 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:1351 - ITENSPEDIDOVENDA._ADICIONARPRODUTO - ITENSPEDIDOVENDA.PRG
LINHA:1213 - ITENSPEDIDOVENDA.ADICIONAR - ITENSPEDIDOVENDA.PRG
LINHA:6303 - ORCAMENTOVENDA_UNIT.TESTUNIT099 - 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:3991 - itempedidovenda.alterarquantidade - itempedidobase.prg
Linha:3878 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:1930 - itempedidovenda.definirproduto - itempedidobase.prg
Linha:1351 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg
Linha:1213 - itenspedidovenda.adicionar - itenspedidovenda.prg
Linha:6303 - orcamentovenda_unit.testunit099 - 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:6304 - orcamentovenda_unit.testunit099 - 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:18:52.970 - 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:1351 - ITENSPEDIDOVENDA._ADICIONARPRODUTO - ITENSPEDIDOVENDA.PRG
LINHA:1213 - ITENSPEDIDOVENDA.ADICIONAR - ITENSPEDIDOVENDA.PRG
LINHA:6303 - ORCAMENTOVENDA_UNIT.TESTUNIT099 - 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:3991 - itempedidovenda.alterarquantidade - itempedidobase.prg
Linha:3878 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:1930 - itempedidovenda.definirproduto - itempedidobase.prg
Linha:1351 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg
Linha:1213 - itenspedidovenda.adicionar - itenspedidovenda.prg
Linha:6303 - orcamentovenda_unit.testunit099 - 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:6305 - orcamentovenda_unit.testunit099 - 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:18:54.609 - 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:1351 - ITENSPEDIDOVENDA._ADICIONARPRODUTO - ITENSPEDIDOVENDA.PRG
LINHA:1213 - ITENSPEDIDOVENDA.ADICIONAR - ITENSPEDIDOVENDA.PRG
LINHA:6307 - ORCAMENTOVENDA_UNIT.TESTUNIT099 - 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:3991 - itempedidovenda.alterarquantidade - itempedidobase.prg
Linha:3878 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:1930 - itempedidovenda.definirproduto - itempedidobase.prg
Linha:1351 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg
Linha:1213 - itenspedidovenda.adicionar - itenspedidovenda.prg
Linha:6307 - orcamentovenda_unit.testunit099 - 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:6307 - orcamentovenda_unit.testunit099 - 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:18:54.611 - 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:1351 - ITENSPEDIDOVENDA._ADICIONARPRODUTO - ITENSPEDIDOVENDA.PRG
LINHA:1213 - ITENSPEDIDOVENDA.ADICIONAR - ITENSPEDIDOVENDA.PRG
LINHA:6307 - ORCAMENTOVENDA_UNIT.TESTUNIT099 - 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:3991 - itempedidovenda.alterarquantidade - itempedidobase.prg
Linha:3878 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:1930 - itempedidovenda.definirproduto - itempedidobase.prg
Linha:1351 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg
Linha:1213 - itenspedidovenda.adicionar - itenspedidovenda.prg
Linha:6307 - orcamentovenda_unit.testunit099 - 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:6308 - orcamentovenda_unit.testunit099 - 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:18:56.251 - 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:1351 - ITENSPEDIDOVENDA._ADICIONARPRODUTO - ITENSPEDIDOVENDA.PRG
LINHA:1213 - ITENSPEDIDOVENDA.ADICIONAR - ITENSPEDIDOVENDA.PRG
LINHA:6310 - ORCAMENTOVENDA_UNIT.TESTUNIT099 - 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:3991 - itempedidovenda.alterarquantidade - itempedidobase.prg
Linha:3878 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:1930 - itempedidovenda.definirproduto - itempedidobase.prg
Linha:1351 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg
Linha:1213 - itenspedidovenda.adicionar - itenspedidovenda.prg
Linha:6310 - orcamentovenda_unit.testunit099 - 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:6310 - orcamentovenda_unit.testunit099 - 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:18:56.253 - 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:1351 - ITENSPEDIDOVENDA._ADICIONARPRODUTO - ITENSPEDIDOVENDA.PRG
LINHA:1213 - ITENSPEDIDOVENDA.ADICIONAR - ITENSPEDIDOVENDA.PRG
LINHA:6310 - ORCAMENTOVENDA_UNIT.TESTUNIT099 - 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:3991 - itempedidovenda.alterarquantidade - itempedidobase.prg
Linha:3878 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:1930 - itempedidovenda.definirproduto - itempedidobase.prg
Linha:1351 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg
Linha:1213 - itenspedidovenda.adicionar - itenspedidovenda.prg
Linha:6310 - orcamentovenda_unit.testunit099 - 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:6311 - orcamentovenda_unit.testunit099 - 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:18:56.255 - 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:1351 - ITENSPEDIDOVENDA._ADICIONARPRODUTO - ITENSPEDIDOVENDA.PRG
LINHA:1213 - ITENSPEDIDOVENDA.ADICIONAR - ITENSPEDIDOVENDA.PRG
LINHA:6310 - ORCAMENTOVENDA_UNIT.TESTUNIT099 - 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:3991 - itempedidovenda.alterarquantidade - itempedidobase.prg
Linha:3878 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:1930 - itempedidovenda.definirproduto - itempedidobase.prg
Linha:1351 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg
Linha:1213 - itenspedidovenda.adicionar - itenspedidovenda.prg
Linha:6310 - orcamentovenda_unit.testunit099 - 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:6312 - orcamentovenda_unit.testunit099 - 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:18:57.152 - 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:1351 - ITENSPEDIDOVENDA._ADICIONARPRODUTO - ITENSPEDIDOVENDA.PRG
LINHA:1213 - ITENSPEDIDOVENDA.ADICIONAR - ITENSPEDIDOVENDA.PRG
LINHA:6310 - ORCAMENTOVENDA_UNIT.TESTUNIT099 - 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:3991 - itempedidovenda.alterarquantidade - itempedidobase.prg
Linha:3878 - itempedidovenda.nquantidade_assign - itempedidobase.prg
Linha:1930 - itempedidovenda.definirproduto - itempedidobase.prg
Linha:1351 - itenspedidovenda._adicionarproduto - itenspedidovenda.prg
Linha:1213 - itenspedidovenda.adicionar - itenspedidovenda.prg
Linha:6310 - orcamentovenda_unit.testunit099 - 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:6336 - orcamentovenda_unit.testunit099 - 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:18:59.333 - EXCEÇÃO NÃO TRATADA!
Erro: 5000
Classe: Excecaonegocio
Mesagem: Parâmetro inválido [2]  - Esperado parâmetro tipo "N" passado "L" - Classe: Orcamentovenda
Classe: Orcamentovenda
LINHA:848 - ORCAMENTOVENDA._RETORNARERRO - CUSTOMMU.PRG
LINHA:1182 - CUSTOMMU._VALIDARPARAMETRO - CUSTOMMU.PRG
LINHA:388 - ORCAMENTOVENDA._VALIDARPARAMETRO - CTRCLASSBASE.PRG
LINHA:3942 - ORCAMENTOVENDA.BUSCAR - ORCAMENTOBASE.PRG
LINHA:6398 - ORCAMENTOVENDA_UNIT.TESTUNIT099 - 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 - custommu._validarparametro - custommu.prg
Linha:388 - orcamentovenda._validarparametro - ctrclassbase.prg
Linha:3942 - orcamentovenda.buscar - orcamentobase.prg
Linha:6398 - orcamentovenda_unit.testunit099 - 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 )
llOk = DODEFAULT( tcTipo, tvParametro, tnQuantParametros, tnQuantValidar, tcNomeParametroValidar )
THIS._ValidarParametro('N', tnNumeroPedido )
llOk = THIS.oObjetoTeste.Buscar( lnNumPed, '29261' )
llTestOk = EVALUATE(lcTeste)
Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG
Linha:410 - ON...  - ctrlib.prg
Linha:1473 - itenspedidovenda._remover - itenspedidovenda.prg
Linha:92 - itenspedidovenda.remover - listabase.prg
Linha:6416 - orcamentovenda_unit.testunit099 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()