10:45:01.155 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é possível informar/alterar data marcada da entrega com data de prevista preenchida. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:4896 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:780 - itenspedidovenda_unit.testunit017 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) .dEntregaMarcada = tdEntregaMarcada THIS._ConfigurarItemPedido(loItemPedido, '50569', 15.00, 'PC', 6.00, 'F', '', DATE(), 'M' ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4914 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:780 - itenspedidovenda_unit.testunit017 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:45:07.023 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é possível informar/alterar data marcada da entrega com data de prevista preenchida. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:4896 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:783 - itenspedidovenda_unit.testunit017 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) .dEntregaMarcada = tdEntregaMarcada THIS._ConfigurarItemPedido(loItemPedido, '50396', 5.00, 'PC', 1.50, 'F', '', DATE(), 'M' ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4914 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:783 - itenspedidovenda_unit.testunit017 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:45:22.619 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é possível informar/alterar data marcada da entrega com data de prevista preenchida. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:4896 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:789 - itenspedidovenda_unit.testunit017 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) .dEntregaMarcada = tdEntregaMarcada THIS._ConfigurarItemPedido(loItemPedido, '50396', 5.00, 'PC', 8.90, 'F', '', DATE(), 'M' ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4914 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:789 - itenspedidovenda_unit.testunit017 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 10:45:30.259 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é possível informar/alterar data marcada da entrega com data de prevista preenchida. Chamadas:Linha:900 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:4896 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:792 - itenspedidovenda_unit.testunit017 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: DODEFAULT(tcLogUsuario, tcCodigoExcecao ) THIS._RetornarMensagem(lcMensagemValidacaoPermissaoAlteracao) .dEntregaMarcada = tdEntregaMarcada THIS._ConfigurarItemPedido(loItemPedido, '50396', 5.00, 'PC', 15.90, 'F', '', DATE(), 'M' ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4914 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:792 - itenspedidovenda_unit.testunit017 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()