Pular para o conteúdo principal

MEQ003.R001 — Lançamento avulso vinculado a Nota Fiscal não pode ser cancelado por esta tela

Módulo: MEQ003 · Menu: Estoque > Movimentações > Cancelamento de Lançamentos Classificação: intencional · Relevância: alta

Regra​

Se o lançamento de estoque tiver NR_LANCTONOTA preenchido, o cancelamento por este programa é bloqueado.

Quando dispara​

Ao informar o número de lançamento na aba Lançamento Avulso.

Mensagem exibida​

O Lançamento está Ligado a Nota Fiscal Nº.: %s e não pode ser Cancelado por este Programa!

Como o usuário resolve​

Cancelar a nota fiscal correspondente no módulo de faturamento/notas; o cancelamento do estoque ocorre junto com o cancelamento da nota.

Evidência​

ArquivoLinhasRotinaO que o trecho faz
source/MEQ003/UdmMEQ003.pas100-118TdmMEQ003.tabEMPRESANR_LANCAMENTOValidateConsulta o lançamento e bloqueia cancelamento se houver NR_LANCTONOTA.

source/MEQ003/UdmMEQ003.pas:100

      Consulta := 'Select NR_LANCAMENTO, NR_LANCTONOTA, NR_ORDEMPRODUCAO, NR_DOCUMENTO, CD_EMPRESA From MOVESTOQUE ' +
         'Where NR_LANCAMENTO = ' + tabEMPRESANR_LANCAMENTO.AsString +
         '  And CD_EMPRESA = ' + IntToStr(sessao.empresa.cd_empresa);
      Resultado := ExecutaConsulta(dmMEQ003.transaction, Consulta);

      if (Resultado[0] <> '') then
      begin
         Consulta :=
            'SELECT O.NR_ORDEMPRODUCAO ' +#10+
            'FROM ORDEMPRODUCAO O ' +#10+
            'WHERE O.CD_EMPRESA = ' + Nulo(Resultado[4], 'I') +#10+
            '  AND O.NR_ORDEMPRODUCAO = ' + Nulo(Resultado[2], 'I') +#10+