Pular para o conteúdo principal

LOC016 — Layout LOC016

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, 'N') R
INNER JOIN PESSOA P ON (P.CD_PESSOA = R.O_CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = R.O_CD_PESSOA
  AND EP.CD_ENDERECO = R.O_CD_ENDERECO)
INNER 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(:QTLINHAS) RL ON 1=1
ORDER BY RL.O_NR_LINHA, O_CD_EMPRESA, O_NR_EMBARQUE, O_CD_PESSOA, COALESCE(R.o_nr_dot,'')||COALESCE(R.O_NR_SERIE, '')||COALESCE(R.O_DS_MARCA, '')||R.O_ID_ITEMPEDIDOPNEU, O_ID_PEDIDOPNEU, O_ID_ITEMPEDIDOPNEU, O_NR_ORDEM CD_EMPRESA 1 NR_EMBARQUE QTLINHAS
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​

TabelaUso
ENDERECOPESSOAreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
ORDEMCARREGreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PEDIDOreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
RETORNA_DADOSORDEMCARREGRECAPreferenciada nas queries do layout
RETORNA_LINHASreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LOC016/ULOC016.pas
  • DFM: source/LOC016/ULOC016.dfm
  • Package: source/LOC016/LOC016.dpk