Pular para o conteúdo principal

MFC033.R001 — Consulta restrita a contas a receber/adiantamento com Boleto ativo (não-CNAB)

Módulo: MFC033 · Menu: Financeiro > Movimentações > Gerenciamento Boleto Rápido Junsoft Classificação: observado · Relevância: alta

Regra​

A consulta de contas (btnProcurar) só traz títulos com ST_CONTAS em ('T','P') (pendente total ou pago parcial), TIPOCONTA do tipo 'CR' (Contas a Receber) ou 'AF' (Adiantamento), e exige que exista um cadastro de BOLETO para a combinação Empresa/Banco/Agência/Forma de Pagamento com ST_APIBOLETOS diferente de 'N' (ou seja, integrado via API — Boleto PJ Bank, PIX ou API Boleto genérica).

Quando dispara​

Ao clicar em Consultar (F3) ou OK

Como o usuário resolve​

Verifique se a Forma de Pagamento/Banco possui cadastro de Boleto (tela de parâmetros de Boleto) com Tipo de API de Boletos diferente de 'Nenhum'. Contas com status Cancelado, Liquidado ou de outros tipos de conta não aparecem nesta consulta.

Evidência​

ArquivoLinhasRotinaO que o trecho faz
source/MFC033/UMFC033.pas254-262MontaWhereFiltro básico: ST_CONTAS in (T,P) e TIPOCONTA in (CR,AF)
source/MFC033/UMFC033.pas587-594TfrmMFC033.btnProcurarClickINNER JOIN BOLETO exige ST_APIBOLETOS distinto de 'N'

source/MFC033/UMFC033.pas:254

Function MontaWhere: String;
Var
   Aux, Docs, Bolets: String;
begin

   \{ Empresa \}
   Result := ' Where CONTAS.CD_EMPRESA = ' + dmMFC033.tabFILTROCD_EMPRESA.AsString +
             '   And CONTAS.ST_CONTAS IN (''T'', ''P'') ' +
             '   And TIPOCONTA.TP_TIPOCONTA IN (''CR'',''AF'') ';

source/MFC033/UMFC033.pas:587

      'FROM CONTAS ' +
      'INNER JOIN PESSOA ON (PESSOA.CD_PESSOA = CONTAS.CD_PESSOA) ' +
      'INNER JOIN TIPOCONTA ON (TIPOCONTA.CD_TIPOCONTA = CONTAS.CD_TIPOCONTA) ' +
      'INNER JOIN BOLETO ON (BOLETO.CD_EMPRESA = CONTAS.CD_EMPRESA ' +
      '                   AND BOLETO.CD_BANCO = CONTAS.CD_BANCO ' +
      '                   AND BOLETO.CD_AGENCIA = CONTAS.CD_AGENCIA ' +
      '                   AND BOLETO.CD_FORMAPAGTO = CONTAS.CD_FORMAPAGTO ' +
      '                   AND BOLETO.ST_APIBOLETOS IS DISTINCT FROM ''N'') ' +