10:53:30.261 - 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:861 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:861 - itenspedidovenda_unit.testunit018 - 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:861 - itenspedidovenda_unit.testunit018 - 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:53:30.372 - 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:861 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:861 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:861 - itenspedidovenda_unit.testunit018 - 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:861 - itenspedidovenda_unit.testunit018 - 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:53:30.420 - 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:861 - itenspedidovenda_unit.testunit018 - 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, '50569', 15.00, 'PC', 6.00, 'C')
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:861 - itenspedidovenda_unit.testunit018 - 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:53:30.460 - 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:861 - itenspedidovenda_unit.testunit018 - 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:861 - itenspedidovenda_unit.testunit018 - 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:53:31.540 - 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:864 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:864 - itenspedidovenda_unit.testunit018 - 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:864 - itenspedidovenda_unit.testunit018 - 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:53:31.652 - 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:864 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:864 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:864 - itenspedidovenda_unit.testunit018 - 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:864 - itenspedidovenda_unit.testunit018 - 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:53:31.700 - 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:864 - itenspedidovenda_unit.testunit018 - 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, '00030', 30.00, 'PC', 1.50, 'C')
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:864 - itenspedidovenda_unit.testunit018 - 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:53:31.740 - 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:864 - itenspedidovenda_unit.testunit018 - 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:864 - itenspedidovenda_unit.testunit018 - 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:53:32.816 - 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:871 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:871 - itenspedidovenda_unit.testunit018 - 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:871 - itenspedidovenda_unit.testunit018 - 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:53:32.929 - 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:871 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:871 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:871 - itenspedidovenda_unit.testunit018 - 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:871 - itenspedidovenda_unit.testunit018 - 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:53:32.976 - 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:871 - itenspedidovenda_unit.testunit018 - 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, '00030', 30.00, 'PC', 8.90, 'C')
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:871 - itenspedidovenda_unit.testunit018 - 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:53:33.017 - 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:871 - itenspedidovenda_unit.testunit018 - 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:871 - itenspedidovenda_unit.testunit018 - 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:53:33.129 - 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:871 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:871 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:877 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:877 - itenspedidovenda_unit.testunit018 - 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:877 - itenspedidovenda_unit.testunit018 - 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:53:34.214 - 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:884 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:884 - itenspedidovenda_unit.testunit018 - 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:884 - itenspedidovenda_unit.testunit018 - 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:53:34.326 - 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:884 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:884 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:884 - itenspedidovenda_unit.testunit018 - 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:884 - itenspedidovenda_unit.testunit018 - 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:53:34.374 - 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:884 - itenspedidovenda_unit.testunit018 - 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, '00030', 8, 'PC', 8.90, 'C')
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:884 - itenspedidovenda_unit.testunit018 - 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:53:34.414 - 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:884 - itenspedidovenda_unit.testunit018 - 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:884 - itenspedidovenda_unit.testunit018 - 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:53:34.523 - 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:884 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:884 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:890 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:890 - itenspedidovenda_unit.testunit018 - 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:890 - itenspedidovenda_unit.testunit018 - 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:53:34.633 - 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:884 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:884 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:890 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:896 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:896 - itenspedidovenda_unit.testunit018 - 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:896 - itenspedidovenda_unit.testunit018 - 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:53:35.721 - 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:903 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:903 - itenspedidovenda_unit.testunit018 - 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:903 - itenspedidovenda_unit.testunit018 - 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:53:35.834 - 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:903 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:903 - ITENSPEDIDOVENDA_UNIT.TESTUNIT018 - 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:903 - itenspedidovenda_unit.testunit018 - 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:903 - itenspedidovenda_unit.testunit018 - 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:53:35.883 - 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:903 - itenspedidovenda_unit.testunit018 - 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, '00030', 69, 'PC', 8.90, 'C')
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:903 - itenspedidovenda_unit.testunit018 - 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:53:35.924 - 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:903 - itenspedidovenda_unit.testunit018 - 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:903 - itenspedidovenda_unit.testunit018 - itenspedidovenda_unit.prg
Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()