Pular para o conteúdo principal

LAO000 — Layout LAO000

Visão Geral​

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

Descrição​

Consulta baseada em ORDEMSERVICO, com junção em EMPRESA, PESSOA, ENDERECOPESSOA, MUNICIPIO, PESSOAFISICA, VEICULO (+7), filtrada por CD_EMPRESA, NR_ORDEMSERVICO, OSI, JO, CD_ITEM.

Chamada​

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

SQL Base​

queryOS #1​

SELECT E.NM_EMPRESA, EPE.DS_ENDERECO||', '||COALESCE(EPE.NR_ENDERECO, '')|| COALESCE(' - '||EPE.DS_BAIRRO, '')||' - '||ME.DS_MUNICIPIO||'-'||ME.SG_ESTADO DS_ENDERECOEMPRESA, EPE.NR_CEP NR_CEPEMPRESA, EPE.NR_FONE NR_FONEEMPRESA, EPE.NR_FAX NR_FAXEMPRESA, PE.NR_CNPJCPF NR_CNPJEMPRESA, EPE.NR_INSCEST NR_IEEMPRESA, OS.DT_EMISSAO, OS.NR_ORDEMSERVICO, P.CD_PESSOA, P.NM_PESSOA, EP.DS_ENDERECO||', '||COALESCE(EP.NR_ENDERECO, '')|| COALESCE(' - '||EP.DS_BAIRRO, '')||' - '||M.DS_MUNICIPIO||'-'||M.SG_ESTADO DS_ENDERECO, EP.NR_FONE, P.NR_CNPJCPF, PF.NR_RG, COALESCE(PV.NM_PESSOA,'')||COALESCE(' - '||MV.DS_MARCAVEICULO,'')|| COALESCE('/'||MOV.DS_MODELOVEICULO,'')||COALESCE(' '||V.NR_ANO,'') DS_VEICULO, RV.O_DS_VEICULO DS_VEICULOCOMPLETO, V.NR_PLACA, OS.DS_OBSERVACAO, ME.DS_MUNICIPIO||'-'||ME.SG_ESTADO||', '||DE.O_DS_DATA DS_DATA, U.NM_USUARIO, OS.HR_EMISSAO
FROM ORDEMSERVICO OS
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = OS.CD_EMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EPE ON (EPE.CD_PESSOA = PE.CD_PESSOA
  AND EPE.CD_ENDERECO = 1)
INNER JOIN MUNICIPIO ME ON (ME.CD_MUNICIPIO = EPE.CD_MUNICIPIO)
INNER JOIN PESSOA P ON (P.CD_PESSOA = OS.CD_PESSOA)
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = P.CD_PESSOA
  AND EP.CD_ENDERECO = OS.CD_ENDERECO)
INNER JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = EP.CD_MUNICIPIO)
LEFT JOIN VEICULO V ON (V.NR_PLACA = OS.NR_PLACA)
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = V.CD_PESSOA)
LEFT JOIN MARCAVEICULO MV ON (MV.CD_MARCAVEICULO = V.CD_MARCAVEICULO)
LEFT JOIN MODELOVEICULO MOV ON (MOV.CD_MARCAVEICULO = V.CD_MARCAVEICULO
  AND MOV.CD_MODELOVEICULO = V.CD_MODELOVEICULO)
LEFT JOIN RETORNA_VEICULO(OS.NR_PLACA) RV ON (1=1)
INNER JOIN SESSAO ON (SESSAO.NR_CONEXAO = CURRENT_CONNECTION)
INNER JOIN USUARIO U ON (U.CD_USUARIO = SESSAO.CD_USUARIO)
LEFT JOIN DATA_EXTENSO(CAST('TODAY' AS DATE)) DE ON (1=1)
WHERE OS.CD_EMPRESA = :CD_EMPRESA
  AND OS.NR_ORDEMSERVICO = :NR_ORDEMSERVICO CD_EMPRESA NR_ORDEMSERVICO
SELECT I.DS_ITEM, OSI.*
FROM ORDEMSERVITEM OSI
INNER JOIN ITEM I ON (I.CD_ITEM = OSI.CD_SERVICO)
WHERE OSI.CD_EMPRESA = :CD_EMPRESA
  AND OSI.NR_ORDEMSERVICO = :NR_ORDEMSERVICO CD_EMPRESA NR_ORDEMSERVICO

queryOS #2​

{StringReplace}

queryOS #3​

{StringReplace}

queryOSI #1​

{StringReplace}

queryOSI #2​

{StringReplace}

Tabelas Utilizadas​

TabelaUso
DATA_EXTENSOreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
MARCAVEICULOreferenciada nas queries do layout
MODELOVEICULOreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
ORDEMSERVICOreferenciada nas queries do layout
ORDEMSERVITEMreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PESSOAFISICAreferenciada nas queries do layout
RETORNA_VEICULOreferenciada nas queries do layout
SESSAOreferenciada nas queries do layout
USUARIOreferenciada nas queries do layout
VEICULOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LAO000/ULAO000.pas
  • DFM: source/LAO000/ULAO000.dfm
  • Package: source/LAO000/LAO000.dpk