08:15:05.413 - 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:5402 - itempedidovenda._definirlocalretirada - itempedidobase.prg Linha:8837 - itempedidovenda.definirfilialretirada - itempedidobase.prg Linha:4684 - itempedidovenda.ctipoentrega_assign - itempedidobase.prg Linha:3521 - itempedidovenda._definirtipodeentrega - itempedidobase.prg Linha:1711 - 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:1824 - 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() 08:15:05.570 - 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:3697 - itempedidovenda.alterarquantidade - itempedidobase.prg Linha:3548 - 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() 08:15:05.586 - 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:4002 - 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() 08:15:05.601 - 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:4748 - 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() 08:15:05.617 - 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:4803 - 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()