LOC023 — Layout LOC023

Visão Geral

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

Descrição

Consulta baseada em RETORNA_DADOSORDEMCARREGRECAP, com junção em PESSOA, ENDERECOPESSOA, MUNICIPIO, PARMFATUR, RETORNA_LINHAS.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Ordem
  // 3 - Path Servidor
  // 4 - Visualiza -> V  ou  Imprime -> I
]);

SQL Base

sql

SELECT {#10} O_NR_ORDEM,{#10} O_CD_EMPRESA, O_NR_EMBARQUE, O_NM_EMPRESA, O_DS_ENDEREMP, O_DS_MUNICEMP, O_NR_FONEEMP, O_NR_CEPEMP, O_DT_EMBARQUE,{#10} O_NR_PLACA, O_PS_LIQUIDO, O_PS_BRUTO, O_CD_MOTORISTA, O_CD_TRANSPORTADOR, O_NM_MOTORISTA, O_QT_ORDEM,{#10} O_ID_PEDIDOPNEU, O_CD_PESSOA, O_NM_PESSOA, O_ID_ITEMPEDIDOPNEU, O_ID_SERVICO, O_DS_SERVICO, O_VL_SERVICO,{#10} O_ID_ORDEMPRODRECAP, O_DS_EXAMEFINAL, O_NR_SERIE, O_NR_DOT, O_NR_FOGO, O_ID_MODELO, O_DS_MODELO, O_ID_MEDIDA,{#10} O_DS_MEDIDA, O_ID_MARCA, O_DS_MARCA, O_ID_DESENHO, O_DS_DESENHO, O_DS_OBSERVACAO , R.O_VL_UNITARIO, R.O_VL_DESCONTO, R.O_QT_SERVICO,{#10} COALESCE(R.o_nr_dot,'')||COALESCE(R.O_NR_SERIE, '')||COALESCE(R.O_DS_MARCA, '')||R.O_ID_ITEMPEDIDOPNEU DS_QUEBRA,{#10} CASE WHEN O_NR_ORDEM = 1 THEN 1 ELSE 0 END QT_PNEU,{#10} P.NR_CNPJCPF, P.NM_PESSOA NM_RAZAO, P.NM_FANTASIA NM_FANTASIA, P.DS_EMAIL, COALESCE(EP.NR_FONE, EP.NR_CELULAR) NR_TELEFONE,{#10} EP.DS_ENDERECO||COALESCE(' N°:'||EP.NR_ENDERECO,'')||COALESCE(' Bairro: '||EP.DS_BAIRRO,'') DS_ENDERECO,{#10} MU.DS_MUNICIPIO||'/'||MU.SG_ESTADO DS_MUNICIPIO ,{#10} R.O_CD_CONDPAGTO, R.O_DS_CONDPAGTO, R.O_CD_FORMAPAGTO, R.O_DS_FORMAPAGTO, PA.DS_LOGOTIPO, RL.O_NR_LINHA{#10}
FROM RETORNA_DADOSORDEMCARREGRECAP({Nulo(iParametros[1],}I{)} , {Nulo(iParametros[2],}I{)}, 'S','S') R{#10}
LEFT JOIN PESSOA P ON (P.CD_PESSOA = R.O_CD_PESSOA){#10}
LEFT JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = R.O_CD_PESSOA{#10}
  AND EP.CD_ENDERECO = R.O_CD_ENDERECO){#10}
LEFT JOIN MUNICIPIO MU ON (MU.CD_MUNICIPIO = EP.CD_MUNICIPIO){#10}
LEFT JOIN PARMFATUR PA ON (PA.CD_EMPRESA = R.O_CD_EMPRESA){#10}
LEFT JOIN RETORNA_LINHAS(1) RL ON 1=1{#10}
ORDER BY RL.O_NR_LINHA, O_CD_EMPRESA, O_NR_EMBARQUE, O_CD_PESSOA, O_ID_PEDIDOPNEU,{#10} COALESCE(R.o_nr_dot,'')||COALESCE(R.O_NR_SERIE, '')||COALESCE(R.O_DS_MARCA, '')||R.O_ID_ITEMPEDIDOPNEU,{#10} O_ID_ITEMPEDIDOPNEU, O_NR_ORDEM

Tabelas Utilizadas

Tabela	Uso
ENDERECOPESSOA	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RETORNA_DADOSORDEMCARREGRECAP	referenciada nas queries do layout
RETORNA_LINHAS	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LOC023/ULOC023.pas
• DFM: source/LOC023/ULOC023.dfm
• Package: source/LOC023/LOC023.dpk