LOR043 — Layout LOR043

Visão Geral

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

Descrição

Consulta baseada em ORCAMENTO, com junção em MAQUINAORCAMENTO, PESSOA, ENDERECOPESSOA, MUNICIPIO, EMPRESA, CONDPAGTO (+6), filtrada por CD_PESSOA, JO, CD_MUNICIPIO, CD_CONDPAGTO, CD_EMPRESA, CD_ITEM (+5).

Chamada

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

SQL Base

sqlPedido

SELECT {#10} S.DS_SECAO, N.CD_EMPRESA, E.NM_EMPRESA, PE.NR_CNPJCPF NR_CNPJCPFEMP, EE.NR_INSCEST NR_INSCESTEMP, {#10} EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, {#10} ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, PE.DS_SITE DS_SITEEMP, PE.DS_EMAIL DS_EMAILEMP, {#10} EE.NR_FONE NR_FONEEMP, EE.NR_FAX NR_FAXEMP, EE.NR_CEP NR_CEPEMP, {#10} N.NR_ORCAMENTO NR_PEDIDO, N.DT_ORCAMENTO DT_PEDIDO, N.DT_ENTREGA, N.NR_DIASENTREGA, {#10} N.CD_PESSOA, COALESCE(P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'')||' - '||P.CD_PESSOA,N.DS_PESSOA) NM_PESSOA, {#10} P.NR_CNPJCPF, EP.NR_CEP, N.DS_CONTATO, {#10} CASE N.TP_PAGTOFRETE WHEN '1' THEN 'CIF' {#10} WHEN '2' THEN 'FOB' ELSE 'Outros' END TP_PAGTOFRETE, {#10} EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO,' ') ||COALESCE(COALESCE(' - '||EP.DS_BAIRRO, EP.DS_COMPLEMENTO),' ') DS_ENDERECO, {#10} MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, EP.NR_INSCEST, {#10} EP.NR_FONE, EP.NR_FAX, {#10} CASE C.ST_CONDPAGTO {#10} WHEN 'D' THEN 'Vencto.: '||FORMATA_DATA(N.DT_VENCIMENTO,'%d/%m/%Y') {#10} ELSE C.DS_CONDPAGTO {#10} END DS_CONDPAGTO, N.CD_CONDPAGTO, N.DT_VENCIMENTO, {#10} N.CD_VENDEDOR, COALESCE(V.NM_PESSOA||' - '||N.CD_VENDEDOR, 'RESPONSÁVEL') NM_VENDEDOR, {#10} N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, {#10} MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, IP.NR_MAQUINA, IP.NR_ORCAMENTO, {#10} IP.CD_ITEM, IP.DS_MAQUINA DS_ITEM, COALESCE(I.SG_UNIDMED,'UN') SG_UNIDMED, IP.VL_UNITARIO, {#10} IP.VL_TOTAL, IP.VL_TOTAL VL_LIQUIDO, {#10} CASE WHEN TRIM(IP.DS_ESPECIFICACAO) IS NULL THEN NULL {#10} WHEN TRIM(IP.DS_ESPECIFICACAO) = '' THEN NULL {#10} ELSE 'Especificação: '||IP.DS_ESPECIFICACAO {#10} END AS DS_OBSITEM, {#10} CASE TC.TP_UNIDADE{#10} WHEN 'Q' THEN{#10} IP.QT_MAQUINA{#10} ELSE{#10} IP.PS_MAQUINA{#10} END QTDE, IP.QT_MAQUINA QT_PEDIDA, PARM.DS_LOGOTIPO, {#10} COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGPEDIDO,'') DS_OBSERVACAO, PARM.DS_LOGOTIPO, {#10} NC.NR_NCM, COALESCE(S.CD_SECAO||' - '||S.DS_SECAO, 'SEM SEÇÃO') DS_SEC {#10}
FROM ORCAMENTO N {#10}
INNER JOIN MAQUINAORCAMENTO IP ON (N.CD_EMPRESA = IP.CD_EMPRESA {#10}
  AND N.NR_ORCAMENTO = IP.NR_ORCAMENTO) {#10}
LEFT JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA) {#10}
LEFT JOIN ENDERECOPESSOA EP ON (N.CD_PESSOA = EP.CD_PESSOA {#10}
  AND N.CD_ENDERECO = EP.CD_ENDERECO) {#10}
LEFT JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO) {#10}
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA) {#10}
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA {#10}
  AND EE.CD_ENDERECO = {#10} (
SELECT MIN(CD_ENDERECO) {#10}
FROM ENDERECOPESSOA ENDER {#10}
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA)) {#10}
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO) {#10}
INNER JOIN CONDPAGTO C ON (N.CD_CONDPAGTO = C.CD_CONDPAGTO) {#10}
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA) {#10}
INNER JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM) {#10}
INNER JOIN TIPOCALCULO TC ON (TC.CD_TIPOCALCULO = I.CD_TIPOCALCULO){#10}
INNER JOIN NCM NC ON (NC.NR_NCM = I.NR_NCM) {#10}
LEFT JOIN SECAO S ON (S.CD_SECAO = I.CD_SECAO) {#10}
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR) {#10}
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO) {#10}
WHERE N.CD_EMPRESA = {Nulo(iParametros[1],}I{) + #10}
  AND N.NR_ORCAMENTO = {Nulo(iParametros[2],}I{) + #10}
ORDER BY S.CD_SECAO, S.DS_SECAO, IP.NR_MAQUINA

sqlProduto

SELECT S.DS_SECAO, IP.CD_ITEM, I.DS_ITEM,IP.VL_UNITARIO, {#10} IP.VL_TOTAL, IP.VL_UNITARIO, IP.QT_ORCAMENTO, IP.PS_ORCAMENTO, {#10} CASE tp.TP_UNIDADE WHEN 'Q' {#10} THEN IP.QT_ORCAMENTO {#10} ELSE IP.PS_ORCAMENTO END QTDE, {#10} CASE tp.TP_UNIDADE WHEN 'Q' {#10} THEN H.SG_QTDE {#10} ELSE H.SG_PESO {#10} END SG_UNIDMED, {#10} CASE WHEN TRIM(IP.DS_ESPECIFICACAO) IS NULL THEN NULL {#10} WHEN TRIM(IP.DS_ESPECIFICACAO) = '' {#10} THEN NULL ELSE 'Especificação: '||IP.DS_ESPECIFICACAO {#10} END AS DS_ESPECIFICACAO , COALESCE(S.CD_SECAO||' - '||S.DS_SECAO,'SEM SEÇÃO') CD_SECAO,{#10} CAST(IP.VL_VENDA /(CASE TP.TP_UNIDADE WHEN 'Q' THEN IP.QT_ORCAMENTO ELSE IP.PS_ORCAMENTO END) AS DOM_NUMERIC15_2) VL_UNITVENDA,{#10} IP.VL_VENDA VL_TOTVENDA{#10}
FROM ITEMORCAMENTO IP {#10}
INNER JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM) {#10}
INNER JOIN TIPOCALCULO TP ON (TP.CD_TIPOCALCULO = I.CD_TIPOCALCULO) {#10}
LEFT JOIN HABILITA_PESOQTDE(I.CD_ITEM) H ON (1=1) {#10}
LEFT JOIN SECAO S ON (S.CD_SECAO = I.CD_SECAO) {#10}
WHERE IP.CD_EMPRESA = :CD_EMPRESA {#10}
  AND IP.NR_ORCAMENTO = :NR_ORCAMENTO {#10}
  AND IP.NR_MAQUINA = :NR_MAQUINA {#10}
ORDER BY S.CD_SECAO, S.DS_SECAO, IP.NR_MAQUINA

Tabelas Utilizadas

Tabela	Uso
CONDPAGTO	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
FORMAPAGTO	referenciada nas queries do layout
HABILITA_PESOQTDE	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMORCAMENTO	referenciada nas queries do layout
MAQUINAORCAMENTO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
NCM	referenciada nas queries do layout
ORCAMENTO	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
SECAO	referenciada nas queries do layout
TIPOCALCULO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LOR043/ULOR043.pas
• DFM: source/LOR043/ULOR043.dfm
• Package: source/LOR043/LOR043.dpk