LCO001 — Layout LCO001

Visão Geral

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

Descrição

Consulta baseada em ITEMSOLICITACAO, com junção em ITEMCOTACAO, COTACAO, ITEM, NCM, PESSOA, PARMFATUR (+3), filtrada por ST_ITEMSOLICITACAO, ST_ITEMCOTACAO, CD_EMPRESA.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Cotação
  // 3 - Tipo Relatório
  // 4 - Path Servidor
  // 5 - Visualiza -> V  ou  Imprime -> I
]);

SQL Base

isql2

SELECT P.CD_PESSOA, P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') NM_PESSOA, {#10} CT.NR_COTACAO, CPG.DS_CONDPAGTO, CT.DT_VALIDADE, {#10} ICT.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, ICT.QT_COTADA, {#10} ICT.VL_AVISTA, ICT.VL_APRAZO, NULLIF(NCM.PC_IPI, 0) PC_IPI, {#10} (ICT.VL_AVISTA * ICT.QT_COTADA + NCM.PC_IPI) VL_TOTALVISTA, {#10} (ICT.VL_APRAZO * ICT.QT_COTADA + NCM.PC_IPI) VL_TOTALPRAZO, {#10} PARM.DS_LOGOTIPO, PE.NM_PESSOA NM_EMPRESA, {#10} COALESCE(RDE.DS_ENDERECO,'')||','||COALESCE(RDE.NR_ENDERECO,'')||' - '||COALESCE(RDE.DS_BAIRRO,'') DS_ENDERECO, {#10} RDE.NR_CEP, RDE.NR_FONE, RDE.DS_MUNICIPIO||' - '||RDE.SG_ESTADO DS_MUNICIPIO, {#10} P.NR_CNPJCPF, COALESCE(RDP.DS_ENDERECO,')||','||COALESCE(RDP.NR_ENDERECO,')||' - '||COALESCE(RDP.DS_BAIRRO,'') DS_ENDFOR, {#10} RDP.NR_INSCEST, RDP.NR_CEP NR_CEPFOR, RDP.NR_FONE NR_FONEFOR, RDP.DS_MUNICIPIO||' - '||RDP.SG_ESTADO DS_MUNFOR {#10}
FROM ITEMSOLICITACAO SI {#10}
INNER JOIN ITEMCOTACAO ICT ON (ICT.CD_EMPRSOLIC = SI.CD_EMPRESA {#10}
  AND ICT.NR_SOLICITACAO = SI.NR_SOLICITACAO {#10}
  AND ICT.CD_ITEM = SI.CD_ITEM) {#10}
INNER JOIN COTACAO CT ON (CT.CD_EMPRESA = ICT.CD_EMPRESA {#10}
  AND CT.NR_COTACAO = ICT.NR_COTACAO) {#10}
INNER JOIN ITEM I ON (I.CD_ITEM = ICT.CD_ITEM) {#10}
INNER JOIN NCM NCM ON (NCM.NR_NCM = I.NR_NCM) {#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = CT.CD_PESSOA) {#10}
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = CT.CD_EMPRESA) {#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = CT.CD_EMPRESA) {#10}
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA) {#10}
LEFT JOIN CONDPAGTO CPG ON (CPG.CD_CONDPAGTO = CT.CD_CONDPAGTO) {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(CT.CD_PESSOA, 'C') RDP ON (1=1) {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, NULL) RDE ON (1=1) {#10}
WHERE SI.ST_ITEMSOLICITACAO = 'O' {#10}
  AND ICT.ST_ITEMCOTACAO = 'N' {#10}
  AND CT.CD_EMPRESA = {iParametros[1] +#10}
  AND CT.NR_COTACAO

Tabelas Utilizadas

Tabela	Uso
CONDPAGTO	referenciada nas queries do layout
COTACAO	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMCOTACAO	referenciada nas queries do layout
ITEMSOLICITACAO	referenciada nas queries do layout
NCM	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RETORNA_DADOSCADASTRAIS	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LCO001/ULCO001.pas
• DFM: source/LCO001/ULCO001.dfm
• Package: source/LCO001/LCO001.dpk