Pular para o conteúdo principal

LBL000 — Layout LBL000

Visão Geral​

Layout de impressão da família LBL (Outros). Acionado via ExecLayout a partir das telas que imprimem este tipo de documento.

Descrição​

Consulta baseada em BOLETOIMPRESSO, filtrada por NR_SEQUENCIA.

Chamada​

ExecLayout(Connection, [
  // parametros nao documentados no .pas
]);

SQL Base​

tabBOLETOIMPRESSO​

SELECT B.*
FROM BOLETOIMPRESSO B
WHERE B.NR_SEQUENCIA = :NR_SEQUENCIA NR_SEQUENCIA Nr_Sequencia cd_layout

tabBoleto #1​

{iConsulta}

tabBoleto #2​

{iConsulta}

Consulta #1​

SELECT V_NR_SEQUENCIA, V_DS_MENSAGEM
FROM GERA_SEQUENCIA({Se(frmLBL000.tabBoleto.FieldByName(}CD_EMPRSEQUENCIA{).AsString,}{, frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString, frmLBL000.tabBoleto.FieldByName(}CD_EMPRSEQUENCIA{).AsString)},{Nulo(frmLBL000.tabBoleto.FieldByName(}NM_SEQBOLETO{).AsString,}S{)})

Consulta #2​

SELECT CD_EMPRESA, NR_LANCAMENTO, NR_PARCELA, NR_DOCUMENTO
FROM CONTAS
WHERE CD_EMPRESA = {frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString}
  AND CD_BANCO = {frmLBL000.tabBoleto.FieldByName(}CD_BANCO{).AsString}
  AND CD_AGENCIA = {frmLBL000.tabBoleto.FieldByName(}CD_AGENCIA{).AsString}
  AND CD_FORMAPAGTO = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_FORMAPAGTO{).AsString,}S{)}
  AND NR_BOLETO = {iNrBoleto}

Consulta #3​

SELECT NR_CARTEIRA, NR_CODIGOCEDENTE, NR_NOSSONUMERO, NR_CONVENIO, CD_BANCO
FROM BOLETOIMPRESSO
WHERE NR_SEQUENCIA = {IntToStr(iNrSequencia)}

Consulta #4​

SELECT FIRST 1 S.CD_PESSOASOCIO, P.NM_PESSOA, P.NR_CNPJCPF, D.DS_ENDERECO, D.NR_ENDERECO, D.DS_COMPLEMENTO, D.DS_BAIRRO, D.NR_CEP, M.DS_MUNICIPIO, M.SG_ESTADO
FROM PESSOASOCIO S
INNER JOIN PESSOA P ON (P.CD_PESSOA = S.CD_PESSOASOCIO)
INNER JOIN ENDERECOPESSOA D ON (D.CD_PESSOA = P.CD_PESSOA
  AND D.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(P.CD_PESSOA, 'B')))
INNER JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = D.CD_MUNICIPIO)
WHERE S.CD_PESSOA = {frmLBL000.tabBoleto.FieldByName(}CD_PESSOA{).AsString}
ORDER BY S.ST_RESPONSAVEL DESC

Consulta #5​

SELECT P.CD_PESSOA, P.NM_PESSOA, P.NR_CNPJCPF, {#10} D.DS_ENDERECO, D.NR_ENDERECO, D.DS_COMPLEMENTO, {#10} D.DS_BAIRRO, D.NR_CEP, M.DS_MUNICIPIO, M.SG_ESTADO {#10}
FROM PESSOA P {#10}
INNER JOIN ENDERECOPESSOA D ON (D.CD_PESSOA = P.CD_PESSOA {#10}
  AND D.CD_ENDERECO = ( {#10}
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(P.CD_PESSOA, 'B'))) {#10}
INNER JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = D.CD_MUNICIPIO) {#10}
WHERE P.CD_PESSOA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_AVALISTA{).AsString,}I{)}

Consulta #6​

SELECT NF.NR_RPS {#10}
FROM NOTA N {#10}
INNER JOIN NFSE NF ON (NF.CD_EMPRESA = N.CD_EMPRESA {#10}
  AND NF.NR_LANCAMENTO = N.NR_LANCAMENTO {#10}
  AND NF.CD_SERIE = N.CD_SERIE {#10}
  AND NF.TP_NOTA = N.TP_NOTA) {#10}
WHERE N.CD_EMPRESA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString,}I{) +#10}
  AND N.NR_LANCAMENTO = {Nulo(frmLBL000.tabBoleto.FieldByName(}NR_LANCTONOTA{).AsString,}I{) +#10}
  AND N.CD_SERIE = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_SERIE{).AsString,}S{) +#10}
  AND N.TP_NOTA = {Nulo(frmLBL000.tabBoleto.FieldByName(}TP_CONTAS{).AsString,}S{) +#10}
  AND N.ST_NOTA = 'V'

Consulta #7​

SELECT FIRST 1 NR_NOSSONUMERO
FROM CONTASBOLETO
WHERE NR_NOSSONUMERO IS NOT NULL
  AND CD_EMPRESA = {frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString}
  AND NR_BOLETO = {iNrBoleto}
  AND CD_FORMAPAGTO = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_FORMAPAGTO{).AsString,}S{)}
  AND CD_BANCO = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_BANCO{).AsString,}I{)}
  AND CD_AGENCIA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_AGENCIA{).AsString,}I{)}

Consulta #8​

SELECT {#10} IIF(B.TP_LAYOUT = '1', B.ST_ACORDOCOMERCIAL, NULL) ST_ACORDOCOMERCIAL341, {#10} IIF(B.TP_LAYOUT = '0', B.ST_ACORDOCOMERCIAL, NULL) ST_ACORDOCOMERCIAL756 {#10}
FROM BOLETO B {#10}
WHERE B.CD_BANCO = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_BANCO{).AsString,}I{) + #10}
  AND B.CD_AGENCIA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_AGENCIA{).AsString,}I{) + #10}
  AND B.CD_FORMAPAGTO = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_FORMAPAGTO{).AsString,}S{) + #10}
  AND B.CD_EMPRESA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString,}I{)}

Consulta #9​

SELECT N.NR_NOTAFISCAL, NR_RPS {#10}
FROM NOTA N {#10}
LEFT JOIN NFSE NF ON (N.CD_EMPRESA = NF.CD_EMPRESA {#10}
  AND N.NR_LANCAMENTO = NF.NR_LANCAMENTO {#10}
  AND N.TP_NOTA = NF.TP_NOTA {#10}
  AND N.CD_SERIE = NF.CD_SERIE) {#10}
WHERE N.CD_EMPRESA = {frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString}
  AND N.NR_LANCAMENTO = {frmLBL000.tabBoleto.FieldByName(}NR_LANCTONOTA{).AsString}
  AND N.CD_SERIE = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_SERIE{).AsString,}S{)}
  AND N.TP_NOTA = {Nulo(frmLBL000.tabBoleto.FieldByName(}TP_CONTAS{).AsString,}S{)}

Consulta #10​

SELECT DISTINCT N.NR_NOTAFISCAL
FROM DESTINOREPARCELAMENTO D
INNER JOIN ORIGEMREPARCELAMENTO O ON (O.CD_EMPRESA = D.CD_EMPRESA
  AND O.NR_REPARCELAMENTO = D.NR_REPARCELAMENTO)
INNER JOIN CONTAS C ON (C.CD_EMPRESA = O.CD_EMPRCONTAS
  AND C.NR_LANCAMENTO = O.NR_LANCAMENTO
  AND C.CD_PESSOA = O.CD_PESSOA
  AND C.CD_TIPOCONTA = O.CD_TIPOCONTA
  AND C.NR_PARCELA = O.NR_PARCELA)
INNER JOIN NOTA N ON (N.CD_EMPRESA = C.CD_EMPRESA
  AND N.NR_LANCAMENTO = C.NR_LANCTONOTA
  AND N.CD_SERIE = C.CD_SERIE
  AND N.TP_NOTA = C.TP_CONTAS)
WHERE D.CD_EMPRESA = {frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString}
  AND D.NR_LANCAMENTO = {frmLBL000.tabBoleto.FieldByName(}NR_LANCAMENTO{).AsString}
  AND D.CD_TIPOCONTA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_TIPOCONTA{).AsString,}I{)}
  AND D.CD_PESSOA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_PESSOA{).AsString,}I{)}
  AND D.NR_PARCELA = {Nulo(frmLBL000.tabBoleto.FieldByName(}NR_PARCELA{).AsString,}I{)}
UNION ALL
SELECT DISTINCT N.NR_NOTAFISCAL
FROM CONTASJUNCAO J
INNER JOIN CONTAS C ON (C.CD_EMPRESA = J.CD_EMPRORIG
  AND C.NR_LANCAMENTO = J.NR_LANCORIG
  AND C.CD_PESSOA = J.CD_PESSOAORIG
  AND C.CD_TIPOCONTA = J.CD_TIPOCONTAORIG
  AND C.NR_PARCELA = J.NR_PARCELAORIG)
INNER JOIN NOTA N ON (N.CD_EMPRESA = C.CD_EMPRESA
  AND N.NR_LANCAMENTO = C.NR_LANCTONOTA
  AND N.CD_SERIE = C.CD_SERIE
  AND N.TP_NOTA = C.TP_CONTAS)
WHERE J.CD_EMPRESA = {frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString}
  AND J.NR_LANCAMENTO = {frmLBL000.tabBoleto.FieldByName(}NR_LANCAMENTO{).AsString}
  AND J.CD_TIPOCONTA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_TIPOCONTA{).AsString,}I{)}
  AND J.CD_PESSOA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_PESSOA{).AsString,}I{)}
  AND J.NR_PARCELA = {Nulo(frmLBL000.tabBoleto.FieldByName(}NR_PARCELA{).AsString,}I{)}
  AND J.TP_JUNCAO = 'A'
UNION ALL
SELECT N.NR_NOTAFISCAL
FROM FATURACONTAS D
INNER JOIN FATURANOTA O ON (O.CD_EMPRESA = D.CD_EMPRESA
  AND O.NR_FATURA = D.NR_FATURA)
INNER JOIN NOTA N ON (N.CD_EMPRESA = O.CD_EMPRNOTA
  AND N.NR_LANCAMENTO = O.NR_LANCAMENTO
  AND N.CD_SERIE = O.CD_SERIE
  AND N.TP_NOTA = O.TP_NOTA)
WHERE D.CD_EMPRESA = {frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString}
  AND D.NR_LANCAMENTO = {frmLBL000.tabBoleto.FieldByName(}NR_LANCAMENTO{).AsString}
  AND D.CD_TIPOCONTA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_TIPOCONTA{).AsString,}I{)}
  AND D.CD_PESSOA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_PESSOA{).AsString,}I{)}
  AND D.NR_PARCELA = {Nulo(frmLBL000.tabBoleto.FieldByName(}NR_PARCELA{).AsString,}I{)}

Consulta #11​

SELECT NR_NOTAFISCAL
FROM NOTA
WHERE CD_EMPRESA = {frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString}
  AND NR_LANCAMENTO = {frmLBL000.tabBoleto.FieldByName(}NR_LANCTONOTA{).AsString}
  AND CD_SERIE = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_SERIE{).AsString,}S{)}
  AND TP_NOTA = {Nulo(frmLBL000.tabBoleto.FieldByName(}TP_CONTAS{).AsString,}S{)}

Consulta #12​

SELECT DISTINCT N.NR_NOTAFISCAL
FROM DESTINOREPARCELAMENTO D
INNER JOIN ORIGEMREPARCELAMENTO O ON (O.CD_EMPRESA = D.CD_EMPRESA
  AND O.NR_REPARCELAMENTO = D.NR_REPARCELAMENTO)
INNER JOIN CONTAS C ON (C.CD_EMPRESA = O.CD_EMPRCONTAS
  AND C.NR_LANCAMENTO = O.NR_LANCAMENTO
  AND C.CD_PESSOA = O.CD_PESSOA
  AND C.CD_TIPOCONTA = O.CD_TIPOCONTA
  AND C.NR_PARCELA = O.NR_PARCELA)
INNER JOIN NOTA N ON (N.CD_EMPRESA = C.CD_EMPRESA
  AND N.NR_LANCAMENTO = C.NR_LANCTONOTA
  AND N.CD_SERIE = C.CD_SERIE
  AND N.TP_NOTA = C.TP_CONTAS)
WHERE D.CD_EMPRESA = {frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString}
  AND D.NR_LANCAMENTO = {frmLBL000.tabBoleto.FieldByName(}NR_LANCAMENTO{).AsString}
  AND D.CD_TIPOCONTA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_TIPOCONTA{).AsString,}I{)}
  AND D.CD_PESSOA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_PESSOA{).AsString,}I{)}
  AND D.NR_PARCELA = {Nulo(frmLBL000.tabBoleto.FieldByName(}NR_PARCELA{).AsString,}I{)}
UNION ALL
SELECT N.NR_NOTAFISCAL
FROM FATURACONTAS D
INNER JOIN FATURANOTA O ON (O.CD_EMPRESA = D.CD_EMPRESA
  AND O.NR_FATURA = D.NR_FATURA)
INNER JOIN NOTA N ON (N.CD_EMPRESA = O.CD_EMPRNOTA
  AND N.NR_LANCAMENTO = O.NR_LANCAMENTO
  AND N.CD_SERIE = O.CD_SERIE
  AND N.TP_NOTA = O.TP_NOTA)
WHERE D.CD_EMPRESA = {frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString}
  AND D.NR_LANCAMENTO = {frmLBL000.tabBoleto.FieldByName(}NR_LANCAMENTO{).AsString}
  AND D.CD_TIPOCONTA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_TIPOCONTA{).AsString,}I{)}
  AND D.CD_PESSOA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_PESSOA{).AsString,}I{)}
  AND D.NR_PARCELA = {Nulo(frmLBL000.tabBoleto.FieldByName(}NR_PARCELA{).AsString,}I{)}

Consulta #13​

SELECT H.DS_HISTORICO, C.VL_DOCUMENTO, H.CD_HISTORICO
FROM CONTASHISTORICO C
INNER JOIN HISTORICO H ON (H.CD_HISTORICO = C.CD_HISTORICO)
WHERE C.CD_EMPRESA = {frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString}
  AND C.NR_LANCAMENTO = {frmLBL000.tabBoleto.FieldByName(}NR_LANCAMENTO{).AsString}
  AND C.CD_PESSOA = {frmLBL000.tabBoleto.FieldByName(}CD_PESSOA{).AsString}
  AND C.CD_TIPOCONTA = {frmLBL000.tabBoleto.FieldByName(}CD_TIPOCONTA{).AsString}
  AND C.NR_PARCELA = {frmLBL000.tabBoleto.FieldByName(}NR_PARCELA{).AsString}
ORDER BY H.CD_HISTORICO

Consulta #14​

UPDATE CONTAS
SET NR_BOLETO = {Nulo(iNrBoleto,}I{)}, NR_CONTACOR = {Nulo(frmLBL000.Título.Cedente.ContaBancaria.NumeroConta,}S{)}, DT_REGISTRO = 'NOW'
WHERE CD_EMPRESA = {frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString}
  AND NR_LANCAMENTO = {frmLBL000.tabBoleto.FieldByName(}NR_LANCAMENTO{).AsString}
  AND NR_PARCELA = {frmLBL000.tabBoleto.FieldByName(}NR_PARCELA{).AsString}
  AND CD_PESSOA = {frmLBL000.tabBoleto.FieldByName(}CD_PESSOA{).AsString}
  AND CD_TIPOCONTA = {frmLBL000.tabBoleto.FieldByName(}CD_TIPOCONTA{).AsString}

Consulta #15​

UPDATE CONTAS
SET NR_BOLETO = {Nulo(iNrBoleto,}I{)}, ST_BOLETO = 'I', DT_REGISTRO = 'NOW'
WHERE CD_EMPRESA = {frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString}
  AND NR_LANCAMENTO = {frmLBL000.tabBoleto.FieldByName(}NR_LANCAMENTO{).AsString}
  AND NR_PARCELA = {frmLBL000.tabBoleto.FieldByName(}NR_PARCELA{).AsString}
  AND CD_PESSOA = {frmLBL000.tabBoleto.FieldByName(}CD_PESSOA{).AsString}
  AND CD_TIPOCONTA = {frmLBL000.tabBoleto.FieldByName(}CD_TIPOCONTA{).AsString}

Consulta #16​

SELECT COUNT(CD_EMPRESA)
FROM CONTASBOLETO {#10}
WHERE CD_EMPRESA = {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString,}I{) +#10}
  AND NR_BOLETO = {Nulo(iNrBoleto,}I{) +#10}
  AND TP_ARQUIVO = 1 {#10}
  AND DT_INSTRUCAO = current_date {#10}AND DS_INSTRUCAO = 'Boleto Impresso'

Consulta #17​

INSERT INTO CONTASBOLETO(CD_EMPRESA, NR_BOLETO,TP_ARQUIVO, {#10}DT_INSTRUCAO,DS_INSTRUCAO,CD_BANCO,CD_AGENCIA,CD_FORMAPAGTO, {#10}NR_NOSSONUMERO,VL_INSTRUCAO,DT_REGISTRO) {#10}
VALUES ( {Nulo(frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString,}I{)} , { Nulo(iNrBoleto,}I{)} , 1 , current_date , 'Boleto Impresso', { Nulo(frmLBL000.tabBoleto.FieldByName(}CD_BANCO{).AsString,}I{)} , { Nulo(frmLBL000.tabBoleto.FieldByName(}CD_AGENCIA{).AsString,}I{)} , { Nulo(frmLBL000.tabBoleto.FieldByName(}CD_FORMAPAGTO{).AsString,}S{)} , { Nulo(frmLBL000.Título.NossoNumero ,}S{)} , { Nulo(FloatToStr(frmLBL000.Título.ValorDocumento) ,}F{)} , CURRENT_DATE)

iConsulta #1​

SELECT *
FROM BOLETOIMPRESSO {#10}
WHERE NR_SEQUENCIA = {IntToStr(iNr_SequenciaBoleto)} {#10}
  AND DS_CODIGOBARRA IS DISTINCT
FROM NULL

iConsulta #2​

SELECT C.CD_EMPRESA, C.NR_LANCAMENTO, C.NR_PARCELA, {#10} C.VL_DESCONTO, C.VL_ABATIMENTO, C.ST_PIX, C.TP_INSTRUCAO {#10}
FROM CONFBOLETO C

iConsulta #3​

SELECT C.CD_EMPRESA, C.NR_LANCAMENTO, C.NR_PARCELA, {#10} C.VL_DESCONTOANTECIPADO VL_DESCONTO, C.VL_ABATIMENTOBOLETO VL_ABATIMENTO, {#10} CASE B.ST_APIBOLETOS WHEN 'PX' THEN 'S' WHEN 'AC' THEN 'A' ELSE 'N' END ST_PIX, {#10} NULL TP_INSTRUCAO {#10}
FROM CONTAS C {#10}
INNER JOIN BOLETO B ON (B.CD_EMPRESA = C.CD_EMPRESA {#10}
  AND B.CD_BANCO = C.CD_BANCO {#10}
  AND B.CD_AGENCIA = C.CD_AGENCIA {#10}
  AND B.CD_FORMAPAGTO = C.CD_FORMAPAGTO {#10}
  AND B.ST_APIBOLETOS IS DISTINCT
FROM 'N') {#10}
WHERE C.ST_CONTAS IN ('T','P')

iConsulta #4​

INSERT INTO BOLETOIMPRESSO (NR_SEQUENCIA, CD_EMPRESA, NR_LANCAMENTO, NR_PARCELA, {#10} VL_DESCONTOABATIMENTO, VL_DEDUCAO, ST_PIX, TP_INSTRUCAO) {#10}
VALUES ( {Nulo(IntToStr(iNrSequencia),}I{)} , { Nulo(frmLBL000.tabBoleto.FieldByName(}CD_EMPRESA{).AsString,}I{)} , { Nulo(frmLBL000.tabBoleto.FieldByName(}NR_LANCAMENTO{).AsString,}I{)} , { Nulo(frmLBL000.tabBoleto.FieldByName(}NR_PARCELA{).AsString,}I{)} , { Nulo(frmLBL000.tabBoleto.FieldByName(}VL_DESCONTO{).AsString,}F{)} , { Nulo(frmLBL000.tabBoleto.FieldByName(}VL_ABATIMENTO{).AsString,}F{)}, { Nulo(frmLBL000.tabBoleto.FieldByName(}ST_PIX{).AsString,}S{)}, { Nulo(frmLBL000.tabBoleto.FieldByName(}TP_INSTRUCAO{).AsString,}S{)})

iConsulta #5​

SELECT C.CD_EMPRESA, C.NR_LANCAMENTO, C.CD_PESSOA, {#10} C.CD_TIPOCONTA, C.NR_PARCELA, C.DT_LANCAMENTO, {#10} C.DT_VENCIMENTO, C.NR_DOCUMENTO, C.VL_SALDO VL_DOCUMENTO, {#10} C.CD_FORMAPAGTO, C.CD_BANCO, BANCO.DS_BANCO, {#10} C.CD_AGENCIA, AGENCIA.DG_AGENCIA, C.NR_BOLETO, {#10} E.NM_PESSOA NM_EMPRESA, E.NR_CNPJCPF NR_CNPJCPFEMP, {#10} ED.DS_ENDERECO DS_ENDEREMP, ED.DS_BAIRRO DS_BAIRROEMP, {#10} ED.NR_CEP NR_CEPEMP, ED.NR_ENDERECO NR_ENDEREMP, {#10} EM.DS_MUNICIPIO DS_MUNICEMP, EM.SG_ESTADO SG_ESTEMP, {#10} ED.DS_COMPLEMENTO DS_COMPLEMP, D.NR_ENDERECO, D.DS_COMPLEMENTO, {#10} P.NM_PESSOA NM_PESSOA, P.NR_CNPJCPF, D.DS_ENDERECO, P.NM_FANTASIA, {#10} D.DS_BAIRRO, D.NR_CEP, M.DS_MUNICIPIO, M.SG_ESTADO, {#10} B.TP_BOLETO, B.CD_CARTEIRA, B.NM_SEQREMESSA, {#10} B.NM_SEQBOLETO, B.CD_ESPECIEDOC, B.CD_CONVENIO, {#10} B.CD_CONTACOR, B.DG_CONTACOR, B.TP_EMISSAO, {#10} B.PC_JUROSMORA, B.TP_LAYOUT, B.ST_ACEITO, B.NR_CONTRATO, B.NR_DIASDEVOLUCAO, {#10} B.TP_PROTESTO, B.NR_DIASPROTESTO, B.DS_PATHREMESSA, {#10} B.DS_MENSAGEM, I.DS_PORTAWIN, B.CD_LAYBOLETO, B.ST_INFORMAAVALISTA, B.CD_AVALISTA, {#10} C.NR_LANCTONOTA, C.CD_SERIE, C.TP_CONTAS, B.CD_EMPRSEQUENCIA, {#10} B.NR_INSTRUCAO1, B.NR_INSTRUCAO2, B.TP_MENSAGEM, D.CD_PRACACOBRANCA, {#10} COALESCE(B.CD_CODIGOCEDENTE, B.CD_CONTACOR) CD_CODIGOCEDENTE, {#10} COALESCE(B.DG_CODIGOCEDENTE, B.DG_CONTACOR) DG_CODIGOCEDENTE, {#10} C.DS_OBSERVACAO, B.DS_LOCALPAGTO, C.VL_DESCONTOANTECIPADO, C.VL_ABATIMENTOBOLETO, {#10} CASE WHEN C.TP_DOCUMENTO IN ('FA', 'RP', 'AG') THEN 'S' ELSE 'N' END TP_DOCTO, B.PC_MULTA, B.TP_MULTA, {#10} EE.NR_CNPJCPF EMP_CNPJCPF, C.NR_NOSSONUMEROAPI, C.DS_LINKGRUPO, C.CD_PIX, B.ST_ATIVO, {#10} PV.CD_PESSOA CD_VENDEDOR, PV.NM_PESSOA NM_VENDEDOR, {#10} 'Parcela.: '||c.NR_PARCELA||'/'|| {#10} (
SELECT MAX(CR.NR_PARCELA) {#10}
FROM CONTAS CR {#10}
WHERE CR.CD_EMPRESA = C.CD_EMPRESA {#10}
  AND CR.NR_LANCAMENTO = C.NR_LANCAMENTO {#10}
  AND CR.CD_PESSOA = C.CD_PESSOA {#10}
  AND CR.CD_TIPOCONTA = C.CD_TIPOCONTA) DS_PARCELAS, C.ST_BOLETO, C.ST_CONTAS, {#10} C.NR_DOCUMENTO||'-'||C.NR_PARCELA||'/'|| {#10} (
SELECT MAX(CR.NR_PARCELA) {#10}
FROM CONTAS CR {#10}
WHERE CR.CD_EMPRESA = C.CD_EMPRESA {#10}
  AND CR.NR_LANCAMENTO = C.NR_LANCAMENTO {#10}
  AND CR.CD_PESSOA = C.CD_PESSOA {#10}
  AND CR.CD_TIPOCONTA = C.CD_TIPOCONTA) NR_DOCUMENTOPARC, D.NR_FONE, {#10} C.NR_DOCUMENTO||COALESCE('-'||C.CD_SERIE, '')||'-'||C.NR_PARCELA||'/'|| {#10} (
SELECT MAX(CR.NR_PARCELA) {#10}
FROM CONTAS CR {#10}
WHERE CR.CD_EMPRESA = C.CD_EMPRESA {#10}
  AND CR.NR_LANCAMENTO = C.NR_LANCAMENTO {#10}
  AND CR.CD_PESSOA = C.CD_PESSOA {#10}
  AND CR.CD_TIPOCONTA = C.CD_TIPOCONTA) NR_DOCSERIEPARC, B.ST_UTILIZARPSNFSE {#10+ iFrom}
LEFT JOIN NOTA N ON (N.CD_EMPRESA = C.CD_EMPRESA {#10}
  AND N.NR_LANCAMENTO = C.NR_LANCTONOTA {#10}
  AND N.TP_NOTA = C.TP_CONTAS {#10}
  AND N.CD_SERIE = C.CD_SERIE) {#10}
INNER JOIN BOLETO B ON (B.CD_EMPRESA = C.CD_EMPRESA {#10}
  AND B.CD_BANCO = C.CD_BANCO {#10}
  AND B.CD_AGENCIA = C.CD_AGENCIA {#10}
  AND B.CD_FORMAPAGTO = C.CD_FORMAPAGTO) {#10}
INNER JOIN BANCO ON (BANCO.CD_BANCO = B.CD_BANCO) {#10}
INNER JOIN AGENCIA ON (AGENCIA.CD_AGENCIA = B.CD_AGENCIA {#10}
  AND AGENCIA.CD_BANCO = B.CD_BANCO) {#10}
INNER JOIN EMPRESA ON (EMPRESA.CD_EMPRESA = B.CD_EMPRESA) {#10}
INNER JOIN PESSOA E ON (E.CD_PESSOA = COALESCE(B.CD_TITULAR,EMPRESA.CD_PESSOA)) {#10}
INNER JOIN PESSOA EE ON (EE.CD_PESSOA = EMPRESA.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA ED ON (ED.CD_PESSOA = E.CD_PESSOA {#10}
  AND ED.CD_ENDERECO = ( {#10}
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(E.CD_PESSOA, NULL))) {#10}
INNER JOIN MUNICIPIO EM ON (EM.CD_MUNICIPIO = ED.CD_MUNICIPIO) {#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA D ON (D.CD_PESSOA = C.CD_PESSOA {#10}
  AND D.CD_ENDERECO = IIF(N.CD_ENDCOBRANCA IS NOT NULL, N.CD_ENDCOBRANCA, ( {#10}
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(C.CD_PESSOA, 'B')))) {#10}
INNER JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = D.CD_MUNICIPIO) {#10}
LEFT JOIN IMPRESSORA I ON (I.CD_IMPRESSORA = B.CD_IMPRESSORA) {#10}
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = C.CD_VENDEDOR) {#10}
WHERE C.ST_CONTAS IN ('T','P') {#10+ iWhere + #10}
ORDER BY C.NR_DOCUMENTO, C.NR_PARCELA

Consulta #18​

SELECT {#10} SUM(IIF(COALESCE(B.ST_ATIVO, 'S') = 'N', 1, 0)) CONT_INATIVO,{#10} B.CD_FORMAPAGTO {#10}
FROM CONTAS C {#10}
LEFT JOIN BOLETO B ON (B.CD_EMPRESA = C.CD_EMPRESA {#10}
  AND B.CD_BANCO = C.CD_BANCO {#10}
  AND B.CD_AGENCIA = C.CD_AGENCIA {#10}
  AND B.CD_FORMAPAGTO = C.CD_FORMAPAGTO) {#10}
WHERE B.TP_BOLETO <> 'R' {#10+ iWhere + #10}
GROUP BY B.CD_FORMAPAGTO

Consulta #19​

SELECT N.NR_PROTOCOLOCANC {#10}
FROM NFE N{#10}
WHERE N.CD_EMPRESA = {Nulo(Parametros[1],}I{) +#10}
  AND N.NR_LANCAMENTO = {Nulo(Parametros[2],}I{)+#10}
  AND N.CD_SERIE = {Nulo(Parametros[4],}S{) +#10}
  AND N.TP_NOTA = {Nulo(Parametros[3],}S{)}

Tabelas Utilizadas​

TabelaUso
AGENCIAreferenciada nas queries do layout
BANCOreferenciada nas queries do layout
BOLETOreferenciada nas queries do layout
BOLETOIMPRESSOreferenciada nas queries do layout
CONFBOLETOreferenciada nas queries do layout
CONTASreferenciada nas queries do layout
CONTASBOLETOreferenciada nas queries do layout
CONTASHISTORICOreferenciada nas queries do layout
CONTASJUNCAOreferenciada nas queries do layout
DESTINOREPARCELAMENTOreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
FATURACONTASreferenciada nas queries do layout
FATURANOTAreferenciada nas queries do layout
GERA_SEQUENCIAreferenciada nas queries do layout
HISTORICOreferenciada nas queries do layout
IMPRESSORAreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
NFEreferenciada nas queries do layout
NFSEreferenciada nas queries do layout
NOTAreferenciada nas queries do layout
NULLreferenciada nas queries do layout
ORIGEMREPARCELAMENTOreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PESSOASOCIOreferenciada nas queries do layout
RETORNA_ENDERECOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa
  • jBoleto

Fonte​

  • Unit: source/LBL000/ULBL000.pas
  • DFM: source/LBL000/ULBL000.dfm
  • Package: source/LBL000/LBL000.dpk