Pular para o conteúdo principal

LOS026 — Layout LOS026

Visão Geral​

Layout de impressão da família LOS (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, PARMFATUR, ITEM, MOVIMENTACAO, OBSFISCAL, EMPRESA (+9), filtrada por TP_IMPOSTO, JO, QT_MAQU, CD_VENDEDOR, CD_PESSOA, CD_EMPRESA (+1).

Chamada​

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

SQL Base​

Orcamento​

SELECT PF.DS_LOGOTIPO, EE.DS_MUNICIPIO||', '||DE.O_DS_DATA DT_EXTENSO, PC.CD_PESSOA||' - '||PC.NM_PESSOA NM_CLIENTE, EPC.NR_FONE, EPC.NR_FAX, PC.DS_EMAIL, O.DS_CONTATO, O.DS_COMPLEMENTAR, OBS.DS_OBSFISCAL, EPC.DS_ENDERECO||', '||COALESCE(EPC.NR_ENDERECO,'')||' '||EPC.DS_BAIRRO DS_ENDERECO, CASE G.ST_CONDPAGTO WHEN 'D' THEN 'Vencto '||FORMATA_DATA(O.DT_VENCIMENTO,'%d/%m/%Y') ELSE G.DS_CONDPAGTO END DS_CONDPAGTO, MPC.DS_MUNICIPIO||'/'||MPC.SG_ESTADO DS_MUNCLIENTE, MO.QT_MAQUINA, I.DS_ITEM||' '||I.DS_ESPECIFICACAO DS_ITEM, SUBSTRING(MO.DS_ESPECIFICACAO
FROM 1 FOR 100000) DS_ESPECIFICACAO, MO.VL_UNITARIO, MO.VL_TOTAL, I.NR_NCM, O.NR_DIASVALIDADE, O.NR_DIASENTREGA, IMP.V_PC_IMPOSTO, PV.CD_PESSOA||' - '||PV.NM_PESSOA NM_VENDEDOR, PV.DS_SITE DS_MSNVEND, PV.DS_EMAIL DS_EMAILVEND, EPV.NR_TELEFONE NR_TELEFONEVEND, PR.CD_PESSOA||' - '||PR.NM_PESSOA NM_REPRESENTANTE, PR.DS_SITE DS_MSNREPRE, PR.DS_EMAIL DS_EMAILREPRE, EPR.NR_TELEFONE NR_TELEFONEREPRE, O.NR_ORCAMENTO, O.VL_FRETE, O.TP_PAGTOFRETE, CASE WHEN O.TP_PAGTOFRETE = '1' THEN 'DESCARGA DA MERCADORIA FICA POR CONTA DO VENDEDOR.' ELSE 'DESCARGA DA MERCADORIA FICA POR CONTA DO COMPRADOR.' END DS_PAGTOFRETE
FROM ORCAMENTO O
INNER JOIN MAQUINAORCAMENTO MO ON (MO.CD_EMPRESA = O.CD_EMPRESA
  AND MO.NR_ORCAMENTO = O.NR_ORCAMENTO)
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = O.CD_EMPRESA)
INNER JOIN ITEM I ON (I.CD_ITEM = MO.CD_ITEM)
INNER JOIN MOVIMENTACAO MOV ON (MOV.CD_MOVIMENTACAO = MO.CD_MOVIMENTACAO)
INNER JOIN OBSFISCAL OBS ON (OBS.CD_OBSFISCAL = MOV.CD_OBSFISCAL)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = O.CD_EMPRESA)
LEFT JOIN DATA_EXTENSO(O.DT_ORCAMENTO) DE ON (1=1)
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, NULL) EE ON (1=1)
INNER JOIN PESSOA PC ON (PC.CD_PESSOA = O.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EPC ON (EPC.CD_PESSOA = O.CD_PESSOA
  AND EPC.CD_ENDERECO = O.CD_ENDERECO)
INNER JOIN MUNICIPIO MPC ON (MPC.CD_MUNICIPIO = EPC.CD_MUNICIPIO)
INNER JOIN CONDPAGTO G ON (G.CD_CONDPAGTO = O.CD_CONDPAGTO)
INNER JOIN IMPOSTO IM ON (IM.CD_IMPOSTO = (
SELECT FIRST 1 CD_IMPOSTO
FROM IMPOSTO
WHERE IMPOSTO.TP_IMPOSTO = 'I'))
LEFT JOIN CALCULA_IMPOSTOS(O.CD_EMPRESA, O.DT_ORCAMENTO, 'S', PC.ST_REVENDAIPI, EE.SG_ESTADO, MPC.SG_ESTADO, O.CD_PESSOA, EPC.CD_CONDFISCAL, 0, MO.CD_ITEM, MO.CD_MOVIMENTACAO, I.CD_CONDFISCAL ,IM.CD_IMPOSTO, IM.TP_IMPOSTO, IM.TP_CALCULO, IM.TP_RECEITABRUTA, IM.ST_RETIDO, O.VL_SERVICO, O.VL_SERVICO, IM.PC_ALIQUOTA,NULL,NULL, MO.QT_MAQUINA, MO.QT_MAQUINA, O.VL_SERVICO, Null) IMP ON(1=1)
LEFT JOIN VENDEDOR V ON (V.CD_VENDEDOR = O.CD_VENDEDOR)
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = V.CD_VENDEDOR)
LEFT JOIN RETORNA_DADOSCADASTRAIS (PV.CD_PESSOA, NULL) EPV ON 1=1
LEFT JOIN PESSOA PR ON (PR.CD_PESSOA = PV.CD_REPRESENTANTE)
LEFT JOIN RETORNA_DADOSCADASTRAIS (PR.CD_PESSOA, NULL) EPR ON 1=1
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_ORCAMENTO = :NR_ORCAMENTO CD_EMPRESA 1 NR_ORCAMENTO

Tabelas Utilizadas​

TabelaUso
CALCULA_IMPOSTOSreferenciada nas queries do layout
CONDPAGTOreferenciada nas queries do layout
DATA_EXTENSOreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
IMPOSTOreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
MAQUINAORCAMENTOreferenciada nas queries do layout
MOVIMENTACAOreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
OBSFISCALreferenciada nas queries do layout
ORCAMENTOreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
RETORNA_DADOSCADASTRAISreferenciada nas queries do layout
VENDEDORreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LOS026/ULOS026.pas
  • DFM: source/LOS026/ULOS026.dfm
  • Package: source/LOS026/LOS026.dpk