00:00:00.700 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Data prevista não pode ser menor que a data atual! Chamadas:Linha:2085 - agvalidacaodados.validarprevisaoentrega - agvalidacaodados.prg Linha:5056 - itempedidovenda.dprevisaoentrega_assign - itempedidobase.prg Linha:8793 - itempedidovenda._atualizarprevisaoentregadatamarcada - itempedidobase.prg Linha:5375 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:4098 - itempedidovenda._definirtipodeentrega - itempedidobase.prg Linha:1978 - itempedidovenda.definirproduto - itempedidobase.prg Linha:78 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:696 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( "Data prevista"+IIF(NOT THIS._lModoTestUnit, " ["+oAgTransformacao.DataParaCaracter(tdDataPrevisao)+"]", '')+" não pode ser menor que a data atual!") IF NOT oAgValidacaoDados.ValidarPrevisaoEntrega( tAssign, (THIS.ObterEncomenda() > 0), THIS.oAutenticador.OidUsuario, THIS._oOrcamento.oFilial.ObterOID(), 'I' ) THIS.dPrevisaoEntrega = THIS._DefinirValorDataPrevista(tlInvocadoPeloObservador, llTratamentoDiferenciadoDatasMarcadasEPrevistas, llTratamentoDiferenciadoDatasPrevistas) THIS._AtualizarPrevisaoEntregaDataMarcada( .F. ) THIS.cTipoEntrega = lcTipoEntregaPadrao Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:2103 - itempedidovenda.definirproduto - itempedidobase.prg Linha:78 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:696 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 00:00:01.531 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Para cáculo do imposto é necessário informar o produto da operação. Classe: Icmsvenda LINHA:855 - ICMSVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:420 - ICMSVENDA._VALIDARPREENCHIMENTOPROPRIEDADESOBRIGATORIAS - IMPOSTOESTADUAL.PRG LINHA:67 - ICMSVENDA._CALCULAR - ICMSVENDA.PRG LINHA:215 - ICMSVENDA.CALCULAR - IMPOSTO.PRG LINHA:771 - ITEMPEDIDOVENDA.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG LINHA:2494 - ITEMPEDIDOVENDA._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:4256 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:4129 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:79 - ITENSPEDIDOVENDA_UNIT._CONFIGURARITEMPEDIDO - ITENSPEDIDOVENDA_UNIT.PRG LINHA:696 - ITENSPEDIDOVENDA_UNIT.TESTUNIT015 - ITENSPEDIDOVENDA_UNIT.PRG LINHA:236 - ITENSPEDIDOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1556 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:420 - icmsvenda._validarpreenchimentopropriedadesobrigatorias - impostoestadual.prg Linha:67 - icmsvenda._calcular - icmsvenda.prg Linha:215 - icmsvenda.calcular - imposto.prg Linha:771 - itempedidovenda.obteraliquotaicms - itempedidovenda.prg Linha:2494 - itempedidovenda._buscarpreco - itempedidobase.prg Linha:4256 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:4129 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:79 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:696 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('Para cáculo do imposto é necessário informar o produto da operação.') IF NOT THIS._ValidarPreenchimentoPropriedadesObrigatorias() llRetorno = THIS._Calcular( ) IF THIS._oIcms.Calcular() THIS.ObterAliquotaIcms()&& 469431 Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:4151 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:79 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:696 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 00:00:02.220 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Para cáculo do imposto é necessário informar o produto da operação. É necessário informar o produto antes de definir o tipo de entrega. Chamadas:Linha:923 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:850 - itempedidovenda._retornarerro - custommu.prg Linha:5297 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:82 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:696 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1556 - 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, '50396', 5.00, 'PC', 15.90, 'F', '', DATE(), 'M' ) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:5526 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:82 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:696 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 00:00:02.230 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Para cáculo do imposto é necessário informar o produto da operação. É 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:923 - itempedidovenda._retornarmensagem - itempedidobase.prg Linha:850 - itempedidovenda._retornarerro - custommu.prg Linha:5153 - itempedidovenda.cturnoentrega_assign - itempedidobase.prg Linha:87 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:696 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1556 - 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.') .cTurnoEntrega = tcTurno THIS._ConfigurarItemPedido(loItemPedido, '50396', 5.00, 'PC', 15.90, 'F', '', DATE(), 'M' ) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:5181 - itempedidovenda.cturnoentrega_assign - itempedidobase.prg Linha:87 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:696 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 00:00:02.230 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Para cáculo do imposto é necessário informar o produto da operação. É necessário informar o produto antes de definir o tipo de entrega. Para cáculo do imposto é necessário informar o produto da operação. Classe: Icmsvenda LINHA:855 - ICMSVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:420 - ICMSVENDA._VALIDARPREENCHIMENTOPROPRIEDADESOBRIGATORIAS - IMPOSTOESTADUAL.PRG LINHA:67 - ICMSVENDA._CALCULAR - ICMSVENDA.PRG LINHA:215 - ICMSVENDA.CALCULAR - IMPOSTO.PRG LINHA:771 - ITEMPEDIDOVENDA.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG LINHA:2494 - ITEMPEDIDOVENDA._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:4256 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:4129 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:79 - ITENSPEDIDOVENDA_UNIT._CONFIGURARITEMPEDIDO - ITENSPEDIDOVENDA_UNIT.PRG LINHA:696 - ITENSPEDIDOVENDA_UNIT.TESTUNIT015 - ITENSPEDIDOVENDA_UNIT.PRG LINHA:236 - ITENSPEDIDOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1556 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) É necessário informar o produto antes de definir o preço. Classe: Itempedidovenda LINHA:855 - ITEMPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:5207 - ITEMPEDIDOVENDA.DENTREGAMARCADA_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:90 - ITENSPEDIDOVENDA_UNIT._CONFIGURARITEMPEDIDO - ITENSPEDIDOVENDA_UNIT.PRG LINHA:696 - ITENSPEDIDOVENDA_UNIT.TESTUNIT015 - ITENSPEDIDOVENDA_UNIT.PRG LINHA:236 - ITENSPEDIDOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1556 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:5207 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:696 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('É necessário informar o produto antes de definir o preço.') .dEntregaMarcada = tdEntregaMarcada THIS._ConfigurarItemPedido(loItemPedido, '50396', 5.00, 'PC', 15.90, 'F', '', DATE(), 'M' ) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:5228 - itempedidovenda.dentregamarcada_assign - itempedidobase.prg Linha:90 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:696 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 00:00:02.735 - EXCEÇÃO NÃO TRATADA! Erro: 5000 Classe: Excecaonegocio Mesagem: Para cáculo do imposto é necessário informar o produto da operação. É necessário informar o produto antes de definir o tipo de entrega. É necessário informar o produto antes de definir o preço. Para cáculo do imposto é necessário informar o produto da operação. Classe: Icmsvenda LINHA:855 - ICMSVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:420 - ICMSVENDA._VALIDARPREENCHIMENTOPROPRIEDADESOBRIGATORIAS - IMPOSTOESTADUAL.PRG LINHA:67 - ICMSVENDA._CALCULAR - ICMSVENDA.PRG LINHA:215 - ICMSVENDA.CALCULAR - IMPOSTO.PRG LINHA:771 - ITEMPEDIDOVENDA.OBTERALIQUOTAICMS - ITEMPEDIDOVENDA.PRG LINHA:2494 - ITEMPEDIDOVENDA._BUSCARPRECO - ITEMPEDIDOBASE.PRG LINHA:4256 - ITEMPEDIDOVENDA.ALTERARQUANTIDADE - ITEMPEDIDOBASE.PRG LINHA:4129 - ITEMPEDIDOVENDA.NQUANTIDADE_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:79 - ITENSPEDIDOVENDA_UNIT._CONFIGURARITEMPEDIDO - ITENSPEDIDOVENDA_UNIT.PRG LINHA:696 - ITENSPEDIDOVENDA_UNIT.TESTUNIT015 - ITENSPEDIDOVENDA_UNIT.PRG LINHA:236 - ITENSPEDIDOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1556 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Classe: Itempedidovenda LINHA:855 - ITEMPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG LINHA:4473 - ITEMPEDIDOVENDA._AUTORIZARALTERACAOPRECO - ITEMPEDIDOBASE.PRG LINHA:4510 - ITEMPEDIDOVENDA.NPRECO_ASSIGN - ITEMPEDIDOBASE.PRG LINHA:92 - ITENSPEDIDOVENDA_UNIT._CONFIGURARITEMPEDIDO - ITENSPEDIDOVENDA_UNIT.PRG LINHA:696 - ITENSPEDIDOVENDA_UNIT.TESTUNIT015 - ITENSPEDIDOVENDA_UNIT.PRG LINHA:236 - ITENSPEDIDOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG LINHA:1556 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG COMANDO: LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO()) Chamadas:Linha:4473 - itempedidovenda._autorizaralteracaopreco - itempedidobase.prg Linha:4510 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:92 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:696 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarErro('É necessário informar o produto antes de definir o preço.') IF NOT THIS._AutorizarAlteracaoPreco(tAssign, llChamadaExterna ) .nPreco = tnPreco THIS._ConfigurarItemPedido(loItemPedido, '50396', 5.00, 'PC', 15.90, 'F', '', DATE(), 'M' ) llTestOk = EVALUATE(lcTeste) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:417 - ON... - ctrlib.prg Linha:4660 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:92 - itenspedidovenda_unit._configuraritempedido - itenspedidovenda_unit.prg Linha:696 - itenspedidovenda_unit.testunit015 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1556 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()