Pular para o conteúdo principal

MEQ008.R001 — Local de saída diferente do local de entrada

Módulo: MEQ008 · Menu: Estoque > Movimentações > Transferência de Local Classificação: intencional · Relevância: alta

Regra​

Não é permitido transferir um produto para o mesmo tipo de local/local de origem dentro da mesma empresa.

Quando dispara​

Ao salvar, se tipo de local+local de saída forem iguais aos de entrada e a empresa origem for igual à de destino.

Mensagem exibida​

O Local de Saída deve ser Diferente do Local de Entrada. Verifique!

Como o usuário resolve​

Escolher um local de destino diferente do de origem, ou usar uma empresa de destino diferente.

Evidência​

ArquivoLinhasRotinaO que o trecho faz
source/MEQ008/UMEQ008.pas302-306TfrmMEQ008.btnSalvarClickCompara local de saída e entrada na mesma empresa

source/MEQ008/UMEQ008.pas:302

      \{ Verifica se os Locais sao Iguais \}
      if ((dmMEQ008.tabMOVESTOQUECD_TIPOLOCAL.AsString+dmMEQ008.tabMOVESTOQUECD_LOCAL.AsString =
           dmMEQ008.tabMOVESTOQUECD_TIPOLOCALENT.AsString+dmMEQ008.tabMOVESTOQUECD_LOCALENT.AsString ) and
           (dmMEQ008.tabMOVESTOQUECD_EMPRESAOR.AsInteger = dmMEQ008.tabMOVESTOQUECD_EMPRESADS.AsInteger)) then
         Raise JException.Create('E-0000',['O Local de Saída deve ser Diferente do Local de Entrada. Verifique!']);