Pular para o conteúdo principal

LOC026 — Layout LOC026

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_DADOSORDEMCARREGLOC026, com junção em ORDEMCARREG, ITEMPEDIDO, PEDIDO, PLUGORDRECAPPEDIDO, PESSOA, ITEM (+1), filtrada por CD_EMPRESA, NR_EMBARQUE, CD_PESSOA, 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 R.O_CD_EMPRESA, R.O_NR_EMBARQUE, R.O_NM_EMPRESA, R.O_DS_ENDEREMP, R.O_DS_MUNICEMP, R.O_NR_FONEEMP, R.O_NR_CEPEMP, R.O_DT_EMBARQUE, R.O_NR_PLACA, R.O_PS_LIQUIDO, R.O_PS_BRUTO, R.O_CD_MOTORISTA, R.O_CD_TRANSPORTADOR, R.O_NM_MOTORISTA, R.O_QT_ORDEM, R.O_ID_PEDIDOPNEU, R.O_CD_PESSOA, R.O_NM_PESSOA, R.O_ID_ITEMPEDIDOPNEU, R.O_ID_SERVICO, R.O_DS_SERVICO, R.O_VL_SERVICO, R.O_ID_ORDEMPRODRECAP, R.O_DS_EXAMEFINAL, R.O_NR_SERIE, R.O_NR_DOT, R.O_NR_FOGO, R.O_ID_MODELO, R.O_DS_MODELO, R.O_ID_MEDIDA, R.O_DS_MEDIDA, R.O_ID_MARCA, R.O_DS_MARCA, R.O_ID_DESENHO, R.O_DS_DESENHO, R.O_QT_PNEUS, R.O_DS_VENDEDORES, R.O_DS_STMONTAGEM, R.O_NR_REFORMAS, R.O_NR_PROFUNDIDADESUGO, R.O_DS_OBSERVACAOORDEM, R.O_DS_MUNICIPIO, R.O_CD_VENDEDOR, R.O_NM_VENDEDOR, R.O_CD_MUNIPESSOA, R.O_DS_MUNIPESSOA, R.O_CD_ENDPESSOA, R.O_DS_ENDPESSOA, R.O_DS_ENDEPESSOA, R.O_DS_OBSERVACAO, R.O_NM_USUARIO, R.O_CD_CONDPAGTO O_CD_CONDPAGTOFATUR, R.O_DS_CONDPAGTO O_DS_CONDPAGTOFATUR, R.O_CD_FORMAPAGTO O_CD_FORMAPAGTOFATUR, R.O_DS_FORMAPAGTO O_DS_FORMAPAGTOFATUR, R.O_CD_CONDPAGTORECAP, R.O_DS_CONDPAGTORECAP, R.O_CD_FORMAPAGTORECAP, R.O_DS_FORMAPAGTORECAP, R.O_VL_TOTUNITARIO, R.O_VL_TOTTOTAL, R.O_VL_PEDTOTAL
FROM RETORNA_DADOSORDEMCARREGLOC026(:CD_EMPRESA, :NR_EMBARQUE, 'S') R
ORDER BY O_CD_EMPRESA, O_NR_EMBARQUE, O_CD_PESSOA, O_ID_PEDIDOPNEU, O_ID_ITEMPEDIDOPNEU --
ORDER BY O_CD_EMPRESA, O_NR_EMBARQUE, O_CD_PESSOA CD_EMPRESA NR_EMBARQUE
SELECT I.CD_ITEM, I.DS_ITEM, IP.QT_PEDIDA, IP.VL_UNITARIO, IP.VL_TOTAL
FROM EMBARQUE E
INNER JOIN ORDEMCARREG OC ON (OC.CD_EMPRESA= E.CD_EMPRESA
  AND OC.NR_EMBARQUE = E.NR_EMBARQUE)
INNER JOIN ITEMPEDIDO IP ON (IP.CD_EMPRESA = OC.CD_EMPRPED
  AND IP.NR_PEDIDO = OC.NR_PEDIDO
  AND IP.TP_PEDIDO = OC.TP_PEDIDO
  AND IP.CD_ITEM = OC.CD_ITEM)
INNER JOIN PEDIDO PE ON (PE.CD_EMPRESA = IP.CD_EMPRESA
  AND PE.NR_PEDIDO = IP.NR_PEDIDO
  AND PE.TP_PEDIDO = IP.TP_PEDIDO)
LEFT JOIN PLUGORDRECAPPEDIDO PLUG ON (PLUG.CD_EMPRESA = OC.CD_EMPRESA
  AND PLUG.NR_PEDIDO = OC.NR_PEDIDO
  AND PLUG.TP_PEDIDO = OC.TP_PEDIDO)
INNER JOIN PESSOA P ON (P.CD_PESSOA = PE.CD_PESSOA)
INNER JOIN ITEM I ON (I.CD_ITEM = IP.CD_ITEM)
LEFT JOIN PESSOA VV ON (VV.CD_PESSOA = PE.CD_VENDEDOR)
LEFT JOIN USUARIO U ON (U.CD_USUARIO = E.CD_USUARIO)
WHERE E.CD_EMPRESA = :O_CD_EMPRESA
  AND E.NR_EMBARQUE = :O_NR_EMBARQUE
  AND PE.CD_PESSOA = :O_CD_PESSOA
  AND PLUG.IDORDEMPRODUCAORECAP IS NULL
  AND OC.ST_ORDEMCARREG <> 'C' O_CD_EMPRESA O_NR_EMBARQUE O_CD_PESSOA

Tabelas Utilizadas​

TabelaUso
EMBARQUEreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
ITEMPEDIDOreferenciada nas queries do layout
ORDEMCARREGreferenciada nas queries do layout
PEDIDOreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PLUGORDRECAPPEDIDOreferenciada nas queries do layout
[[RETORNA_DADOSORDEMCARREGLOC026]]referenciada nas queries do layout
USUARIOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LOC026/ULOC026.pas
  • DFM: source/LOC026/ULOC026.dfm
  • Package: source/LOC026/LOC026.dpk