LOC019 — Layout LOC019

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 VIEW_LOC019, com junção em 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_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_QT_PNEUS, O_DS_VENDEDORES, O_DS_STMONTAGEM
FROM VIEW_LOC019(:CD_EMPRESA, :NR_EMBARQUE, 'S') R
ORDER BY O_CD_EMPRESA, O_NR_EMBARQUE, O_CD_PESSOA, O_ID_PEDIDOPNEU, O_ID_ITEMPEDIDOPNEU CD_EMPRESA NR_EMBARQUE
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
ORDEMCARREG	referenciada nas queries do layout
PEDIDO	referenciada nas queries do layout
[[VIEW_LOC019]]	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LOC019/ULOC019.pas
• DFM: source/LOC019/ULOC019.dfm
• Package: source/LOC019/LOC019.dpk