16:19:52.056 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: As configurações atuais impedem que faturamento por transferência seja selecionado! Chamadas:Linha:1012 - localretirada_centrodistribuicao.validaroperacaofaturamentodiretonaopermitida - localretirada.prg Linha:605 - localretirada_centrodistribuicao.definirfilialtransferencia - localretirada.prg Linha:53 - localretirada_centrodistribuicao.definirfilialretirada - localretirada_centrodistribuicao.prg Linha:5263 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:8718 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:4551 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:3415 - itempedidovenda._definirtipodeentrega - itempedidobase.prg Linha:1708 - itempedidovenda.definirproduto - itempedidobase.prg Linha:288 - orcamentovenda_unit.testunit001 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem('As configurações atuais impedem que faturamento por transferência seja selecionado!') THIS.ValidarOperacaoFaturamentoDiretoNaoPermitida() THIS.DefinirFilialTransferencia( lcCDAvancadoTransferenciaAutomatica ) IF THIS._oLocalRetirada.DefinirFilialRetirada( tcIdFilialRetirada, THIS._oOrcamento.ObterTipo(), THIS._oOrcamento.ObterFinalidade() ) llRetorno = THIS._DefinirLocalRetirada( tcIdFilial, '--', lnTipoFaturamento ) && 423897 Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1821 - itempedidovenda.definirproduto - itempedidobase.prg Linha:288 - orcamentovenda_unit.testunit001 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 16:19:52.212 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Exite produto com quantidade definida, não é permitido alterar a Filial. Chamadas:Linha:167 - filialorcamento._validaralteracao - filialorcamento.prg Linha:126 - filialorcamento._definiroid - filialorcamento.prg Linha:99 - filialorcamento.definirvalor - filialorcamento.prg Linha:166 - filialorcamento.definirvalorporcodigo - filial.prg Linha:296 - orcamentovenda_unit.testunit001 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( 'Exite produto com quantidade definida, não é permitido alterar a Filial.' ) THIS._ValidarAlteracao( tnOIDFilial, tlTrocandoFilial ) llOk = THIS._DefinirOid( tnOIDFilial, .F. ) llRetorno = THIS.DefinirValor( lnOidFilial ) THIS.oObjetoTeste.oFilial.DefinirValorPorCodigo('05') Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3591 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3442 - itempedidovenda.nquantidade_assign - itempedidobase.prg Linha:306 - orcamentovenda_unit.testunit001 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 16:19:52.228 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Exite produto com quantidade definida, não é permitido alterar a Filial. Chamadas:Linha:167 - filialorcamento._validaralteracao - filialorcamento.prg Linha:126 - filialorcamento._definiroid - filialorcamento.prg Linha:99 - filialorcamento.definirvalor - filialorcamento.prg Linha:166 - filialorcamento.definirvalorporcodigo - filial.prg Linha:296 - orcamentovenda_unit.testunit001 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( 'Exite produto com quantidade definida, não é permitido alterar a Filial.' ) THIS._ValidarAlteracao( tnOIDFilial, tlTrocandoFilial ) llOk = THIS._DefinirOid( tnOIDFilial, .F. ) llRetorno = THIS.DefinirValor( lnOidFilial ) THIS.oObjetoTeste.oFilial.DefinirValorPorCodigo('05') Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:3891 - itempedidovenda.npreco_assign - itempedidobase.prg Linha:308 - orcamentovenda_unit.testunit001 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 16:19:52.244 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Exite produto com quantidade definida, não é permitido alterar a Filial. Chamadas:Linha:167 - filialorcamento._validaralteracao - filialorcamento.prg Linha:126 - filialorcamento._definiroid - filialorcamento.prg Linha:99 - filialorcamento.definirvalor - filialorcamento.prg Linha:166 - filialorcamento.definirvalorporcodigo - filial.prg Linha:296 - orcamentovenda_unit.testunit001 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( 'Exite produto com quantidade definida, não é permitido alterar a Filial.' ) THIS._ValidarAlteracao( tnOIDFilial, tlTrocandoFilial ) llOk = THIS._DefinirOid( tnOIDFilial, .F. ) llRetorno = THIS.DefinirValor( lnOidFilial ) THIS.oObjetoTeste.oFilial.DefinirValorPorCodigo('05') Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4615 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:309 - orcamentovenda_unit.testunit001 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro() 16:19:52.260 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Exite produto com quantidade definida, não é permitido alterar a Filial. Chamadas:Linha:167 - filialorcamento._validaralteracao - filialorcamento.prg Linha:126 - filialorcamento._definiroid - filialorcamento.prg Linha:99 - filialorcamento.definirvalor - filialorcamento.prg Linha:166 - filialorcamento.definirvalorporcodigo - filial.prg Linha:296 - orcamentovenda_unit.testunit001 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( 'Exite produto com quantidade definida, não é permitido alterar a Filial.' ) THIS._ValidarAlteracao( tnOIDFilial, tlTrocandoFilial ) llOk = THIS._DefinirOid( tnOIDFilial, .F. ) llRetorno = THIS.DefinirValor( lnOidFilial ) THIS.oObjetoTeste.oFilial.DefinirValorPorCodigo('05') Executando TestUnit: ORCAMENTOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:4670 - itempedidovenda.ccarga_assign - itempedidobase.prg Linha:310 - orcamentovenda_unit.testunit001 - orcamentovenda_unit.prg Linha:236 - orcamentovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()