16:48:58.479 - EXCEÇÃO NÃO TRATADA!
Erro: 7000
Classe: Excecaoprograma
Mesagem: Operator/operand type mismatch.
Chamadas:Linha:5782 - orcamentobase._buscarpendencias - orcamentobase.prg
Linha:486 - orcamentosaidasbase._buscarpendencias - orcamentosaidasbase.prg
Linha:1968 - orcamentovenda._buscarpendencias - orcamentovenda.prg
Linha:5843 - orcamentovenda.consultarpendencias - orcamentobase.prg
Linha:823 - orcamentovenda_unit.testunit009 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: IF ( NOT THIS._oPermissaoVendas.VerificarModulo('TIPO_LIBERACAO_LibDesdobrarPed') AND (llNovo AND THIS._oPedidoVendaDB.nBloqueiaDesdobramento = 1) OR ( NOT llNovo AND ( THIS._cLibDesdobrarPed = '***' OR THIS._oPedidoVendaDB.nBloqueiaDesdobramento != THIS._ObterBloquearDesdobramentoOriginalGravado() )) )
Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG
Linha:417 - ON...  - ctrlib.prg
Linha:5848 - orcamentovenda.consultarpendencias - orcamentobase.prg
Linha:823 - orcamentovenda_unit.testunit009 - orcamentovenda_unit.prg
Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()