LOC020 — Layout LOC020

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, PEDIDO, filtrada por CD_EMPRESA, NR_EMBARQUE, ST_ORDEMCARREG.

Chamada

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

SQL Base

Ordem

SELECT O_NR_ORDEM, O_CD_EMPRESA, O_NR_EMBARQUE, O_NM_EMPRESA, O_DS_ENDEREMP, O_DS_MUNICEMP, O_NR_FONEEMP, O_NR_CEPEMP, O_DT_EMBARQUE, O_NR_PLACA, O_PS_LIQUIDO, O_PS_BRUTO, O_CD_MOTORISTA, O_CD_TRANSPORTADOR, O_NM_MOTORISTA, O_QT_ORDEM, O_ID_PEDIDOPNEU, O_CD_PESSOA, O_NM_PESSOA, O_ID_ITEMPEDIDOPNEU, O_ID_SERVICO, O_DS_SERVICO, O_VL_SERVICO, O_ID_ORDEMPRODRECAP, O_DS_EXAMEFINAL, O_NR_SERIE, O_NR_DOT, O_NR_FOGO, O_ID_MODELO, O_DS_MODELO, O_ID_MEDIDA, 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, COALESCE(R.o_nr_dot,'')||COALESCE(R.O_NR_SERIE, '')||COALESCE(R.O_DS_MARCA, '')||R.O_ID_ITEMPEDIDOPNEU DS_QUEBRA, CASE WHEN O_NR_ORDEM = 1 THEN 1 ELSE 0 END QT_PNEU, 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, EP.DS_ENDERECO||COALESCE(' N°:'||EP.NR_ENDERECO,'')||COALESCE(' Bairro: '||EP.DS_BAIRRO,'') DS_ENDERECO, MU.DS_MUNICIPIO||'/'||MU.SG_ESTADO DS_MUNICIPIO , R.O_CD_CONDPAGTO, R.O_DS_CONDPAGTO, R.O_CD_FORMAPAGTO, R.O_DS_FORMAPAGTO, PA.DS_LOGOTIPO, RL.O_NR_LINHA
FROM RETORNA_DADOSORDEMCARREGRECAP(:CD_EMPRESA, :NR_EMBARQUE, 'S') R
LEFT JOIN PESSOA P ON (P.CD_PESSOA = R.O_CD_PESSOA)
LEFT JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = R.O_CD_PESSOA
  AND EP.CD_ENDERECO = R.O_CD_ENDERECO)
LEFT JOIN MUNICIPIO MU ON (MU.CD_MUNICIPIO = EP.CD_MUNICIPIO)
LEFT JOIN PARMFATUR PA ON (PA.CD_EMPRESA = R.O_CD_EMPRESA)
LEFT JOIN RETORNA_LINHAS(COALESCE(:NR_VIAS,1)) RL ON 1=1
ORDER BY RL.O_NR_LINHA, O_CD_EMPRESA, O_NR_EMBARQUE, O_CD_PESSOA, O_ID_PEDIDOPNEU, COALESCE(R.o_nr_dot,'')||COALESCE(R.O_NR_SERIE, '')||COALESCE(R.O_DS_MARCA, '')||R.O_ID_ITEMPEDIDOPNEU, O_ID_ITEMPEDIDOPNEU, O_NR_ORDEM CD_EMPRESA NR_EMBARQUE NR_VIAS
SELECT 'Pedidos.: ' || LIST(DISTINCT O.NR_PEDIDO, ', ') LISTA_PEDIDO, 'Pedidos Cliente.: ' || LIST(DISTINCT P.NR_PEDIDOFOR, ', ') LISTA_PEDIDOFOR
FROM ORDEMCARREG O
INNER JOIN PEDIDO P ON (P.CD_EMPRESA = O.CD_EMPRPED
  AND P.NR_PEDIDO = O.NR_PEDIDO
  AND P.TP_PEDIDO = O.TP_PEDIDO)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_EMBARQUE = :NR_EMBARQUE
  AND O.ST_ORDEMCARREG <> 'C' CD_EMPRESA NR_EMBARQUE

Tabelas Utilizadas

Tabela	Uso
ENDERECOPESSOA	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
ORDEMCARREG	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PEDIDO	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/LOC020/ULOC020.pas
• DFM: source/LOC020/ULOC020.dfm
• Package: source/LOC020/LOC020.dpk