LOC027 — Layout LOC027

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 ORDEMPRODUCAORECAP, PLUGORDRECAPPEDIDO, RETORNA_CHAVENOTA, NOTA, ITEMNOTA, ITEM (+19), filtrada por CD_EMPRESA, NR_EMBARQUE, CD_PESSOA, TP_PRODUTO, STEXAMEF, NOT (+10).

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_NOTASERV, R.O_VL_CTE, R.O_VL_UNITARIO, R.O_VL_DESCONTO, R.O_VL_LIQUIDO
FROM RETORNA_DADOSORDEMCARREGRECAP(:CD_EMPRESA, :NR_EMBARQUE, 'S', Null, 'LOC027') R
ORDER BY O_CD_EMPRESA, O_NR_EMBARQUE, O_CD_VENDEDOR, O_CD_PESSOA, O_ID_PEDIDOPNEU, O_ID_ITEMPEDIDOPNEU CD_EMPRESA NR_EMBARQUE O_CD_EMPRESA "RETORNA_DADOSORDEMCARREGRECAP"."O_CD_EMPRESA" O_NR_EMBARQUE "RETORNA_DADOSORDEMCARREGRECAP"."O_NR_EMBARQUE" O_NM_EMPRESA "RETORNA_DADOSORDEMCARREGRECAP"."O_NM_EMPRESA" O_DS_ENDEREMP "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_ENDEREMP" O_DS_MUNICEMP "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_MUNICEMP" O_NR_FONEEMP "RETORNA_DADOSORDEMCARREGRECAP"."O_NR_FONEEMP" O_NR_CEPEMP "RETORNA_DADOSORDEMCARREGRECAP"."O_NR_CEPEMP" O_DT_EMBARQUE "RETORNA_DADOSORDEMCARREGRECAP"."O_DT_EMBARQUE" O_NR_PLACA "RETORNA_DADOSORDEMCARREGRECAP"."O_NR_PLACA" O_PS_LIQUIDO "RETORNA_DADOSORDEMCARREGRECAP"."O_PS_LIQUIDO" O_PS_BRUTO "RETORNA_DADOSORDEMCARREGRECAP"."O_PS_BRUTO" O_CD_MOTORISTA "RETORNA_DADOSORDEMCARREGRECAP"."O_CD_MOTORISTA" O_CD_TRANSPORTADOR "RETORNA_DADOSORDEMCARREGRECAP"."O_CD_TRANSPORTADOR" O_NM_MOTORISTA "RETORNA_DADOSORDEMCARREGRECAP"."O_NM_MOTORISTA" O_QT_ORDEM "RETORNA_DADOSORDEMCARREGRECAP"."O_QT_ORDEM" O_ID_PEDIDOPNEU "RETORNA_DADOSORDEMCARREGRECAP"."O_ID_PEDIDOPNEU" O_CD_PESSOA "RETORNA_DADOSORDEMCARREGRECAP"."O_CD_PESSOA" O_NM_PESSOA "RETORNA_DADOSORDEMCARREGRECAP"."O_NM_PESSOA" O_ID_ITEMPEDIDOPNEU "RETORNA_DADOSORDEMCARREGRECAP"."O_ID_ITEMPEDIDOPNEU" O_ID_SERVICO "RETORNA_DADOSORDEMCARREGRECAP"."O_ID_SERVICO" O_DS_SERVICO "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_SERVICO" O_VL_SERVICO "RETORNA_DADOSORDEMCARREGRECAP"."O_VL_SERVICO" O_ID_ORDEMPRODRECAP "RETORNA_DADOSORDEMCARREGRECAP"."O_ID_ORDEMPRODRECAP" O_DS_EXAMEFINAL "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_EXAMEFINAL" O_NR_SERIE "RETORNA_DADOSORDEMCARREGRECAP"."O_NR_SERIE" O_NR_DOT "RETORNA_DADOSORDEMCARREGRECAP"."O_NR_DOT" O_NR_FOGO "RETORNA_DADOSORDEMCARREGRECAP"."O_NR_FOGO" O_ID_MODELO "RETORNA_DADOSORDEMCARREGRECAP"."O_ID_MODELO" O_DS_MODELO "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_MODELO" O_ID_MEDIDA "RETORNA_DADOSORDEMCARREGRECAP"."O_ID_MEDIDA" O_DS_MEDIDA "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_MEDIDA" O_ID_MARCA "RETORNA_DADOSORDEMCARREGRECAP"."O_ID_MARCA" O_DS_MARCA "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_MARCA" O_ID_DESENHO "RETORNA_DADOSORDEMCARREGRECAP"."O_ID_DESENHO" O_DS_DESENHO "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_DESENHO" O_QT_PNEUS "RETORNA_DADOSORDEMCARREGRECAP"."O_QT_PNEUS" O_DS_VENDEDORES O_DS_STMONTAGEM "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_STMONTAGEM" O_NR_REFORMAS "RETORNA_DADOSORDEMCARREGRECAP"."O_NR_REFORMAS" O_NR_PROFUNDIDADESUGO "RETORNA_DADOSORDEMCARREGRECAP"."O_NR_PROFUNDIDADESUGO" O_DS_OBSERVACAOORDEM "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_OBSERVACAOORDEM" O_CD_VENDEDOR "RETORNA_DADOSORDEMCARREGRECAP"."O_CD_VENDEDOR" O_NM_VENDEDOR "RETORNA_DADOSORDEMCARREGRECAP"."O_NM_VENDEDOR" O_CD_MUNIPESSOA "RETORNA_DADOSORDEMCARREGRECAP"."O_CD_MUNIPESSOA" O_DS_MUNIPESSOA "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_MUNIPESSOA" O_CD_ENDPESSOA "RETORNA_DADOSORDEMCARREGRECAP"."O_CD_ENDPESSOA" O_DS_ENDPESSOA "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_ENDPESSOA" O_DS_ENDEPESSOA "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_ENDEPESSOA" O_DS_OBSERVACAO "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_OBSERVACAO" O_DS_MUNICIPIO "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_MUNICIPIO" O_NM_USUARIO "RETORNA_DADOSORDEMCARREGRECAP"."O_NM_USUARIO" O_CD_CONDPAGTOFATUR "RETORNA_DADOSORDEMCARREGRECAP"."O_CD_CONDPAGTO" O_DS_CONDPAGTOFATUR "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_CONDPAGTO" O_CD_FORMAPAGTOFATUR "RETORNA_DADOSORDEMCARREGRECAP"."O_CD_FORMAPAGTO" O_DS_FORMAPAGTOFATUR "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_FORMAPAGTO" O_CD_CONDPAGTORECAP "RETORNA_DADOSORDEMCARREGRECAP"."O_CD_CONDPAGTORECAP" O_DS_CONDPAGTORECAP "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_CONDPAGTORECAP" O_CD_FORMAPAGTORECAP "RETORNA_DADOSORDEMCARREGRECAP"."O_CD_FORMAPAGTORECAP" O_DS_FORMAPAGTORECAP "RETORNA_DADOSORDEMCARREGRECAP"."O_DS_FORMAPAGTORECAP" O_VL_NOTASERV "RETORNA_DADOSORDEMCARREGRECAP"."O_VL_NOTASERV" O_VL_CTE "RETORNA_DADOSORDEMCARREGRECAP"."O_VL_CTE" O_VL_UNITARIO "RETORNA_DADOSORDEMCARREGRECAP"."O_VL_UNITARIO" O_VL_DESCONTO "RETORNA_DADOSORDEMCARREGRECAP"."O_VL_DESCONTO"
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_NR_PEDIDO, R.O_CD_PESSOA, R.O_NM_PESSOA, R.O_CD_ITEM, R.O_DS_ITEM, R.O_VL_ITENS, R.O_QT_ITENS, R.O_DS_VENDEDORES, R.O_DS_OBSERVACAOITEM, 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_OBSERVACAOPEDIDO, R.O_NM_USUARIO, R.O_CD_CONDPAGTO, R.O_DS_CONDPAGTO, R.O_CD_FORMAPAGTO, R.O_DS_FORMAPAGTO
FROM RETORNA_DADOSORDEMCARREG(:CD_EMPRESA, :NR_EMBARQUE) R
ORDER BY O_CD_EMPRESA, O_NR_EMBARQUE, O_CD_VENDEDOR, O_CD_PESSOA, O_NR_PEDIDO, O_CD_ITEM CD_EMPRESA NR_EMBARQUE O_CD_EMPRESA "RETORNA_DADOSORDEMCARREG"."O_CD_EMPRESA" O_NR_EMBARQUE "RETORNA_DADOSORDEMCARREG"."O_NR_EMBARQUE" O_NM_EMPRESA "RETORNA_DADOSORDEMCARREG"."O_NM_EMPRESA" O_DS_ENDEREMP "RETORNA_DADOSORDEMCARREG"."O_DS_ENDEREMP" O_DS_MUNICEMP "RETORNA_DADOSORDEMCARREG"."O_DS_MUNICEMP" O_NR_FONEEMP "RETORNA_DADOSORDEMCARREG"."O_NR_FONEEMP" O_NR_CEPEMP "RETORNA_DADOSORDEMCARREG"."O_NR_CEPEMP" O_DT_EMBARQUE "RETORNA_DADOSORDEMCARREG"."O_DT_EMBARQUE" O_NR_PLACA "RETORNA_DADOSORDEMCARREG"."O_NR_PLACA" O_PS_LIQUIDO "RETORNA_DADOSORDEMCARREG"."O_PS_LIQUIDO" O_PS_BRUTO "RETORNA_DADOSORDEMCARREG"."O_PS_BRUTO" O_CD_MOTORISTA "RETORNA_DADOSORDEMCARREG"."O_CD_MOTORISTA" O_CD_TRANSPORTADOR "RETORNA_DADOSORDEMCARREG"."O_CD_TRANSPORTADOR" O_NM_MOTORISTA "RETORNA_DADOSORDEMCARREG"."O_NM_MOTORISTA" O_QT_ORDEM "RETORNA_DADOSORDEMCARREG"."O_QT_ORDEM" O_NR_PEDIDO "RETORNA_DADOSORDEMCARREG"."O_NR_PEDIDO" O_CD_PESSOA "RETORNA_DADOSORDEMCARREG"."O_CD_PESSOA" O_NM_PESSOA "RETORNA_DADOSORDEMCARREG"."O_NM_PESSOA" O_CD_ITEM "RETORNA_DADOSORDEMCARREG"."O_CD_ITEM" O_DS_ITEM "RETORNA_DADOSORDEMCARREG"."O_DS_ITEM" O_VL_ITENS "RETORNA_DADOSORDEMCARREG"."O_VL_ITENS" O_QT_ITENS "RETORNA_DADOSORDEMCARREG"."O_QT_ITENS" O_DS_VENDEDORES "RETORNA_DADOSORDEMCARREG"."O_DS_VENDEDORES" O_DS_OBSERVACAOITEM "RETORNA_DADOSORDEMCARREG"."O_DS_OBSERVACAOITEM" O_DS_MUNICIPIO "RETORNA_DADOSORDEMCARREG"."O_DS_MUNICIPIO" O_CD_VENDEDOR "RETORNA_DADOSORDEMCARREG"."O_CD_VENDEDOR" O_NM_VENDEDOR "RETORNA_DADOSORDEMCARREG"."O_NM_VENDEDOR" O_CD_MUNIPESSOA "RETORNA_DADOSORDEMCARREG"."O_CD_MUNIPESSOA" O_DS_MUNIPESSOA "RETORNA_DADOSORDEMCARREG"."O_DS_MUNIPESSOA" O_CD_ENDPESSOA "RETORNA_DADOSORDEMCARREG"."O_CD_ENDPESSOA" O_DS_ENDPESSOA "RETORNA_DADOSORDEMCARREG"."O_DS_ENDPESSOA" O_DS_ENDEPESSOA "RETORNA_DADOSORDEMCARREG"."O_DS_ENDEPESSOA" O_DS_OBSERVACAOPEDIDO "RETORNA_DADOSORDEMCARREG"."O_DS_OBSERVACAOPEDIDO" O_NM_USUARIO "RETORNA_DADOSORDEMCARREG"."O_NM_USUARIO" O_CD_CONDPAGTO "RETORNA_DADOSORDEMCARREG"."O_CD_CONDPAGTO" O_DS_CONDPAGTO "RETORNA_DADOSORDEMCARREG"."O_DS_CONDPAGTO" O_CD_FORMAPAGTO "RETORNA_DADOSORDEMCARREG"."O_CD_FORMAPAGTO" O_DS_FORMAPAGTO "RETORNA_DADOSORDEMCARREG"."O_DS_FORMAPAGTO" /*Aprovados*/
SELECT X.CD_ITEM, X.DS_ITEM, X.QT_ITEM, X.NRSERIE, X.NRDOT, X.NRFOGO, X.DSMODELO, X.DSMARCA, X.IDVENDEDOR,X.NM_VENDEDORCOLETA, --X.DS_SITUACAOPNEU, X.VL_UNITARIO, X.VL_DESCONTO, X.VL_LIQUIDO
FROM(
SELECT OPR.ID ID_ORDEM, '1' CD_TIPO, 'SERVIÇO' DS_DOCUMENTO, I.CD_ITEM, I.DS_ITEM, --II.VL_UNITARIO, II.VL_TOTAL, II.VL_DESCONTO, OCR.QT_ITEM, PN.NRSERIE, PN.NRDOT, PN.NRFOGO, MOPN.DSMODELO, MAPN.DSMARCA, PP.IDVENDEDOR,VP.NM_PESSOA NM_VENDEDORCOLETA, (OCR.VL_TOTAL / OCR.QT_ITEM) VL_UNITARIO, OCR.VL_TOTAL, OCR.VL_DESCONTO, (OCR.VL_TOTAL - OCR.VL_DESCONTO) VL_LIQUIDO
FROM ITEMRECAPFATUR OCR
INNER JOIN ORDEMPRODUCAORECAP OPR ON (OPR.ID = OCR.ID_ORDEMPRODUCAORECAP)
INNER JOIN PLUGORDRECAPPEDIDO PLUG ON (PLUG.IDORDEMPRODUCAORECAP = OPR.ID)
LEFT JOIN RETORNA_CHAVENOTA(PLUG.CD_EMPRESA, PLUG.NR_PEDIDO, PLUG.TP_PEDIDO) RCN ON (RCN.O_CD_ITEM = OCR.CD_ITEM)
INNER JOIN NOTA N ON (N.CD_EMPRESA = RCN.O_CD_EMPRESA
  AND N.NR_LANCAMENTO = RCN.O_NR_LANCAMENTO
  AND N.TP_NOTA = RCN.O_TP_NOTA
  AND N.CD_SERIE = RCN.O_CD_SERIE)
INNER JOIN ITEMNOTA II ON (II.CD_EMPRESA = N.CD_EMPRESA
  AND II.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND II.TP_NOTA = N.TP_NOTA
  AND II.CD_SERIE = N.CD_SERIE
  AND II.CD_ITEM = OCR.CD_ITEM)
INNER JOIN ITEM I ON (I.CD_ITEM = II.CD_ITEM)
INNER JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = OPR.IDITEMPEDIDOPNEU)
INNER JOIN PEDIDOPNEU PP ON (PP.ID = IPP.IDPEDIDOPNEU)
LEFT JOIN PESSOA VP ON (VP.CD_PESSOA = PP.IDVENDEDOR)
INNER JOIN PNEU PN ON (PN.ID = IPP.IDPNEU)
INNER JOIN MODELOPNEU MOPN ON (MOPN.ID = PN.IDMODELOPNEU)
INNER JOIN MARCAPNEU MAPN ON (MAPN.ID = MOPN.IDMARCAPNEU)
WHERE OCR.CD_EMPRESA = :CD_EMPRESA
  AND OCR.NR_EMBARQUE = :NR_EMBARQUE
  AND n.CD_PESSOA = :CD_PESSOA
  AND OCR.TP_PRODUTO = 'S'
  AND OPR.STEXAMEFINAL NOT IN ('R')
UNION ALL
SELECT OPR.ID ID_ORDEM, '2' CD_TIPO, 'CONSERTO/OUTROS' DS_DOCUMENTO, I.CD_ITEM, I.DS_ITEM, /*II.VL_UNITARIO, II.VL_TOTAL, II.VL_DESCONTO,*/ OCR.QT_ITEM, PN.NRSERIE, PN.NRDOT, PN.NRFOGO, MOPN.DSMODELO, MAPN.DSMARCA, PP.IDVENDEDOR,VP.NM_PESSOA NM_VENDEDORCOLETA, (OCR.VL_TOTAL / OCR.QT_ITEM) VL_UNITARIO, OCR.VL_TOTAL, OCR.VL_DESCONTO, (OCR.VL_TOTAL - OCR.VL_DESCONTO) VL_LIQUIDO
FROM ITEMRECAPFATUR OCR
INNER JOIN ORDEMPRODUCAORECAP OPR ON (OPR.ID = OCR.ID_ORDEMPRODUCAORECAP)
INNER JOIN PLUGORDRECAPPEDIDO PLUG ON (PLUG.IDORDEMPRODUCAORECAP = OPR.ID)
LEFT JOIN RETORNA_CHAVENOTA(PLUG.CD_EMPRESA, PLUG.NR_PEDIDO, PLUG.TP_PEDIDO) RCN ON (RCN.O_CD_ITEM = OCR.CD_ITEM)
INNER JOIN NOTA N ON (N.CD_EMPRESA = RCN.O_CD_EMPRESA
  AND N.NR_LANCAMENTO = RCN.O_NR_LANCAMENTO
  AND N.TP_NOTA = RCN.O_TP_NOTA
  AND N.CD_SERIE = RCN.O_CD_SERIE)
INNER JOIN ITEMNOTA II ON (II.CD_EMPRESA = N.CD_EMPRESA
  AND II.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND II.TP_NOTA = N.TP_NOTA
  AND II.CD_SERIE = N.CD_SERIE
  AND II.CD_ITEM = OCR.CD_ITEM)
INNER JOIN ITEM I ON (I.CD_ITEM = II.CD_ITEM)
INNER JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = opr.IDITEMPEDIDOPNEU)
INNER JOIN PEDIDOPNEU PP ON (PP.ID = IPP.IDPEDIDOPNEU)
LEFT JOIN PESSOA VP ON (VP.CD_PESSOA = PP.IDVENDEDOR)
INNER JOIN PNEU PN ON (PN.ID = IPP.IDPNEU)
INNER JOIN MODELOPNEU MOPN ON (MOPN.ID = PN.IDMODELOPNEU)
INNER JOIN MARCAPNEU MAPN ON (MAPN.ID = MOPN.IDMARCAPNEU)
WHERE OCR.CD_EMPRESA = :CD_EMPRESA
  AND OCR.NR_EMBARQUE = :NR_EMBARQUE
  AND N.CD_PESSOA = :CD_PESSOA
  AND OCR.TP_PRODUTO IS DISTINCT
FROM 'S'
  AND OPR.STEXAMEFINAL NOT IN ('R') )X
ORDER BY X.ID_ORDEM, X.CD_TIPO CD_EMPRESA NR_EMBARQUE CD_PESSOA CD_EMPRESA NR_EMBARQUE CD_PESSOA CD_EMPRESAEMP "EMBARQUE"."CD_EMPRESA" NM_EMPRESA "EMPRESA"."NM_EMPRESA" DS_ENDERECOEMP "ENDERECOPESSOA"."DS_ENDERECO" DS_MUNICIPIOEMP "MUNICIPIO"."DS_MUNICIPIO" NR_FONEEMP "ENDERECOPESSOA"."NR_FONE" NR_CEPEMP "ENDERECOPESSOA"."NR_CEP" NR_CNPJCPFEMP "PESSOA"."NR_CNPJCPF" NR_INSCESTEMP "ENDERECOPESSOA"."NR_INSCEST" NR_INSCMUNICIPALEMP "EMPRESA"."NR_INSCMUNICIPAL" NR_EMBARQUE "EMBARQUE"."NR_EMBARQUE" NR_NOTAFISCAL "NOTA"."NR_NOTAFISCAL" CD_PESSOA "PESSOA"."CD_PESSOA" NM_PESSOA "PESSOA"."NM_PESSOA" NR_CNPJCPF "PESSOA"."NR_CNPJCPF" DT_EMBARQUE "EMBARQUE"."DT_EMBARQUE" DS_ENDERECOCLIENTE DS_BAIRRO "ENDERECOPESSOA"."DS_BAIRRO" NR_CEP "ENDERECOPESSOA"."NR_CEP" CD_MUNICIPIO "MUNICIPIO"."CD_MUNICIPIO" DS_MUNICIPIO "MUNICIPIO"."DS_MUNICIPIO" SG_ESTADO "MUNICIPIO"."SG_ESTADO" NR_FONE "ENDERECOPESSOA"."NR_FONE" NR_CELULAR "ENDERECOPESSOA"."NR_CELULAR" NR_INSCEST "ENDERECOPESSOA"."NR_INSCEST" CD_EMPRESA "NOTA"."CD_EMPRESA" NR_LANCAMENTO "NOTA"."NR_LANCAMENTO" TP_NOTA "NOTA"."TP_NOTA" CD_SERIE "NOTA"."CD_SERIE" CD_PESSOAFATURA "NOTA"."CD_PESSOA" NR_PARCELA "CONTAS"."NR_PARCELA" VL_NOTAFISCAL "NOTA"."VL_NOTAFISCAL" DT_VENCIMENTO "CONTAS"."DT_VENCIMENTO" O_NUMERO "NUMERO_EXTENSO"."O_NUMERO" ID "SERVICOPNEU"."ID" DSSERVICO "SERVICOPNEU"."DSSERVICO" QTREFORMAS "ITEMPEDIDOPNEU"."QTREFORMAS" VLUNITARIO "ITEMPEDIDOPNEU"."VLUNITARIO" VLDESCONTO VLLIQUIDO NRSERIE "PNEU"."NRSERIE" NRDOT "PNEU"."NRDOT" NRFOGO "PNEU"."NRFOGO" DSMODELO "MODELOPNEU"."DSMODELO" DSMARCA "MARCAPNEU"."DSMARCA" QT_REFORMAS "ORDEMPRODUCAORECAP"."QT_REFORMAS" IDVENDEDOR "PEDIDOPNEU"."IDVENDEDOR" NM_VENDEDORCOLETA "PESSOA"."NM_PESSOA" DS_SITUACAOPNEU VL_FRETELIQUIDO "CTRC"."VL_FRETELIQUIDO" DSITEM QTSERVICO NM_MOTORISTA NR_PLACA DS_LOCALEMBARQUE
SELECT DISTINCT IPP.IDPEDIDOPNEU NR_COLETA, OPR.ID ID_ORDEMPROD, IPP.IDSERVICOPNEU, I.DS_ITEM, MEPN.DSMEDIDAPNEU, PN.NRFOGO, N.NR_NOTAFISCAL, MOT.O_DSMOTIVOS
FROM EMBARQUE E
INNER JOIN ORDEMCARREGRECAP OCR ON (OCR.CD_EMPRESA = E.CD_EMPRESA
  AND OCR.NR_EMBARQUE = E.NR_EMBARQUE)
INNER JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = OCR.IDITEMPEDIDOPNEU)
INNER JOIN PEDIDOPNEU PP ON (PP.ID = IPP.IDPEDIDOPNEU)
INNER JOIN ITEM I ON (I.CD_ITEM = IPP.IDSERVICOPNEU)
INNER JOIN ORDEMPRODUCAORECAP OPR ON (OPR.IDITEMPEDIDOPNEU = OCR.IDITEMPEDIDOPNEU)
INNER JOIN EXAMEINICIAL EI ON (EI.IDORDEMPRODUCAORECAP = OPR.ID)
LEFT JOIN MOTIVORECUSAEXAME MRE ON (MRE.IDEXAMEINICIAL = EI.ID)
LEFT JOIN RETORNA_MOTIVOSEXAMEINICIAL(MRE.IDEXAMEINICIAL) MOT ON 1=1
INNER JOIN PNEU PN ON (PN.ID = IPP.IDPNEU) --
INNER JOIN MODELOPNEU MOPN ON (MOPN.ID = PN.IDMODELOPNEU)
INNER JOIN MEDIDAPNEU MEPN ON (MEPN.ID = PN.IDMEDIDAPNEU) --
INNER JOIN MARCAPNEU MAPN ON (MAPN.ID = MOPN.IDMARCAPNEU)
LEFT JOIN RETORNA_CHAVENOTA(IPP.IDEMPRESAPEDENT, IPP.IDPEDIDOENT, IPP.TPPEDIDOENT) RCN ON (1=1)
LEFT JOIN NOTA N ON (N.CD_EMPRESA = RCN.O_CD_EMPRESA
  AND N.NR_LANCAMENTO = RCN.O_NR_LANCAMENTO
  AND N.CD_SERIE = RCN.O_CD_SERIE
  AND N.TP_NOTA = RCN.O_TP_NOTA
  AND N.ST_NOTA = 'V')
WHERE E.CD_EMPRESA = :CD_EMPRESA
  AND E.NR_EMBARQUE = :NR_EMBARQUE
  AND PP.IDPESSOA = :CD_PESSOA
  AND OPR.STEXAMEFINAL IN ('R')
  AND OPR.STORDEM <> 'C' CD_EMPRESA NR_EMBARQUE CD_PESSOA NR_COLETA "ITEMPEDIDOPNEU"."IDPEDIDOPNEU" ID_ORDEMPROD "ORDEMPRODUCAORECAP"."ID" IDSERVICOPNEU "ITEMPEDIDOPNEU"."IDSERVICOPNEU" DS_ITEM "ITEM"."DS_ITEM" DSMEDIDAPNEU "MEDIDAPNEU"."DSMEDIDAPNEU" NRFOGO "PNEU"."NRFOGO" NR_NOTAFISCAL "NOTA"."NR_NOTAFISCAL" O_DSMOTIVOS "RETORNA_MOTIVOSEXAMEINICIAL"."O_DSMOTIVOS"
SELECT DISTINCT E.CD_EMPRESA, --EMPRESA E.CD_EMPRESA CD_EMPRESAEMP, EMP.NM_EMPRESA, EPEMP.DS_ENDERECO||' - '|| EPEMP.NR_ENDERECO DS_ENDERECOEMP, MEMP.DS_MUNICIPIO||' - '||MEMP.SG_ESTADO DS_MUNICIPIOEMP, EPEMP.NR_FONE NR_FONEEMP, EPEMP.NR_CEP NR_CEPEMP, PEMP.NR_CNPJCPF NR_CNPJCPFEMP, EPEMP.NR_INSCEST NR_INSCESTEMP, EMP.NR_INSCMUNICIPAL NR_INSCMUNICIPALEMP, E.NR_EMBARQUE, MAX(N.NR_NOTAFISCAL) NR_NOTAFISCAL, --CLIENTE P.CD_PESSOA, P.NM_PESSOA, P.NR_CNPJCPF, E.DT_EMBARQUE, EP.DS_ENDERECO ||' - '|| EP.NR_ENDERECO DS_ENDERECOCLIENTE, EP.DS_BAIRRO, EP.NR_CEP, M.CD_MUNICIPIO, M.DS_MUNICIPIO, M.SG_ESTADO, EP.NR_FONE, EP.NR_CELULAR, EP.NR_INSCEST, COALESCE(E.NM_MOTORISTA,TRANS.NM_TRANSPORTADOR,MOTO.NM_PESSOA) NM_MOTORISTA, E.NR_PLACA, E.DS_LOCALEMBARQUE, PARM.DS_LOGOTIPO, LIST(DISTINCT RNS.O_NR_NOTAFISCALSERVICO) O_NR_NOTAFISCALSERVICO, LIST(DISTINCT RNS.O_NR_NOTAFISCALCARCACA) O_NR_NOTAFISCALCARCACA, LIST(DISTINCT RNS.O_NR_NOTAFISCALFRETE) O_NR_NOTAFISCALFRETE, LIST(DISTINCT NE.NR_NOTAFISCAL) NR_NOTAFISCALENTRADA, (
SELECT COUNT(*)
FROM EMBARQUE EM
INNER JOIN ORDEMCARREGRECAP OC ON (OC.CD_EMPRESA = EM.CD_EMPRESA
  AND OC.NR_EMBARQUE = EM.NR_EMBARQUE)
INNER JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = OC.IDITEMPEDIDOPNEU)
INNER JOIN SERVICOPNEU SP ON (SP.ID = IPP.IDSERVICOPNEU)
LEFT JOIN RETORNA_CHAVENOTA(IPP.IDEMPRESAPEDENT, IPP.IDPEDIDOENT, IPP.TPPEDIDOENT) RCNE ON (RCNE.O_CD_ITEM = SP.IDITEMCARCACA)
INNER JOIN NOTA NE ON (NE.CD_EMPRESA = RCNE.O_CD_EMPRESA
  AND NE.NR_LANCAMENTO = RCNE.O_NR_LANCAMENTO
  AND NE.TP_NOTA = RCNE.O_TP_NOTA
  AND NE.CD_SERIE = RCNE.O_CD_SERIE)
INNER JOIN ITEMNOTA INE ON (INE.CD_EMPRESA = RCNE.O_CD_EMPRESA
  AND INE.NR_LANCAMENTO = RCNE.O_NR_LANCAMENTO
  AND INE.TP_NOTA = RCNE.O_TP_NOTA
  AND INE.CD_SERIE = RCNE.O_CD_SERIE
  AND INE.CD_ITEM = RCNE.O_CD_ITEM)
WHERE EM.CD_EMPRESA = E.CD_EMPRESA
  AND EM.NR_EMBARQUE = E.NR_EMBARQUE
  AND NE.CD_PESSOA = PP.IDPESSOA) || ' Pneu(s)' QT_PNEUSENTRADA, (
SELECT SUM(IIF(OPR.STEXAMEFINAL = 'R', 1 ,0)) ST_IMPRIMERECUSADO
FROM EMBARQUE EM
INNER JOIN ORDEMCARREGRECAP OC ON (OC.CD_EMPRESA = EM.CD_EMPRESA
  AND OC.NR_EMBARQUE = EM.NR_EMBARQUE)
INNER JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = OC.IDITEMPEDIDOPNEU)
INNER JOIN SERVICOPNEU SP ON (SP.ID = IPP.IDSERVICOPNEU)
INNER JOIN ordemproducaorecap opr on (opr.IDITEMPEDIDOPNEU = ipp.ID
  AND opr.STORDEM <> 'C')
LEFT JOIN RETORNA_CHAVENOTA(IPP.IDEMPRESAPEDENT, IPP.IDPEDIDOENT, IPP.TPPEDIDOENT) RCNE ON (RCNE.O_CD_ITEM = SP.IDITEMCARCACA)
INNER JOIN NOTA NE ON (NE.CD_EMPRESA = RCNE.O_CD_EMPRESA
  AND NE.NR_LANCAMENTO = RCNE.O_NR_LANCAMENTO
  AND NE.TP_NOTA = RCNE.O_TP_NOTA
  AND NE.CD_SERIE = RCNE.O_CD_SERIE)
INNER JOIN ITEMNOTA INE ON (INE.CD_EMPRESA = RCNE.O_CD_EMPRESA
  AND INE.NR_LANCAMENTO = RCNE.O_NR_LANCAMENTO
  AND INE.TP_NOTA = RCNE.O_TP_NOTA
  AND INE.CD_SERIE = RCNE.O_CD_SERIE
  AND INE.CD_ITEM = RCNE.O_CD_ITEM)
WHERE EM.CD_EMPRESA = E.CD_EMPRESA
  AND EM.NR_EMBARQUE = E.NR_EMBARQUE) ST_IMPRIMERECUSADO, (
SELECT SUM(IIF(OPR.STEXAMEFINAL <> 'R', 1 ,0)) ST_IMPRIMENORMAL
FROM EMBARQUE EM
INNER JOIN ORDEMCARREGRECAP OC ON (OC.CD_EMPRESA = EM.CD_EMPRESA
  AND OC.NR_EMBARQUE = EM.NR_EMBARQUE)
INNER JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = OC.IDITEMPEDIDOPNEU)
INNER JOIN SERVICOPNEU SP ON (SP.ID = IPP.IDSERVICOPNEU)
INNER JOIN ordemproducaorecap opr on (opr.IDITEMPEDIDOPNEU = ipp.ID
  AND opr.STORDEM <> 'C')
LEFT JOIN RETORNA_CHAVENOTA(IPP.IDEMPRESAPEDENT, IPP.IDPEDIDOENT, IPP.TPPEDIDOENT) RCNE ON (RCNE.O_CD_ITEM = SP.IDITEMCARCACA)
INNER JOIN NOTA NE ON (NE.CD_EMPRESA = RCNE.O_CD_EMPRESA
  AND NE.NR_LANCAMENTO = RCNE.O_NR_LANCAMENTO
  AND NE.TP_NOTA = RCNE.O_TP_NOTA
  AND NE.CD_SERIE = RCNE.O_CD_SERIE)
INNER JOIN ITEMNOTA INE ON (INE.CD_EMPRESA = RCNE.O_CD_EMPRESA
  AND INE.NR_LANCAMENTO = RCNE.O_NR_LANCAMENTO
  AND INE.TP_NOTA = RCNE.O_TP_NOTA
  AND INE.CD_SERIE = RCNE.O_CD_SERIE
  AND INE.CD_ITEM = RCNE.O_CD_ITEM)
WHERE EM.CD_EMPRESA = E.CD_EMPRESA
  AND EM.NR_EMBARQUE = E.NR_EMBARQUE) ST_IMPRIMENORMAL
FROM EMBARQUE E
INNER JOIN ORDEMCARREGRECAP OCR ON (OCR.CD_EMPRESA = E.CD_EMPRESA
  AND OCR.NR_EMBARQUE = E.NR_EMBARQUE)
INNER JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = OCR.IDITEMPEDIDOPNEU)
INNER JOIN ORDEMPRODUCAORECAP OPR ON (OPR.IDITEMPEDIDOPNEU = IPP.ID)
LEFT JOIN PLUGORDRECAPPEDIDO PLUG ON (PLUG.IDORDEMPRODUCAORECAP = OPR.ID)
LEFT JOIN PEDIDOPNEU PP ON (PP.ID = IPP.IDPEDIDOPNEU)
LEFT JOIN SERVICOPNEU SP ON (SP.ID = IPP.IDSERVICOPNEU)
LEFT JOIN PNEU PN ON (PN.ID = IPP.IDPNEU)
LEFT JOIN MODELOPNEU MOPN ON (MOPN.ID = PN.IDMODELOPNEU)
LEFT JOIN MARCAPNEU MAPN ON (MAPN.ID = MOPN.IDMARCAPNEU)
LEFT JOIN RETORNA_CHAVENOTA(PLUG.CD_EMPRESA, PLUG.NR_PEDIDO, PLUG.TP_PEDIDO) RCN ON (RCN.O_CD_ITEM = IPP.IDSERVICOPNEU)
LEFT JOIN NOTA N ON (N.CD_EMPRESA = RCN.O_CD_EMPRESA
  AND N.NR_LANCAMENTO = RCN.O_NR_LANCAMENTO
  AND N.TP_NOTA = RCN.O_TP_NOTA
  AND N.CD_SERIE = RCN.O_CD_SERIE)
LEFT JOIN EMPRESA EMP ON (EMP.CD_EMPRESA = E.CD_EMPRESA)
LEFT JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = EMP.CD_EMPRESA)
LEFT JOIN PESSOA PEMP ON (PEMP.CD_PESSOA = EMP.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA EPEMP ON (EPEMP.CD_PESSOA = PEMP.CD_PESSOA
  AND EPEMP.CD_ENDERECO = 1)
LEFT JOIN MUNICIPIO MEMP ON (MEMP.CD_MUNICIPIO = EPEMP.CD_MUNICIPIO)
LEFT JOIN PESSOA P ON (P.CD_PESSOA = PP.IDPESSOA)
LEFT JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = P.CD_PESSOA
  AND EP.CD_ENDERECO = 1)
LEFT JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = EP.CD_MUNICIPIO)
LEFT JOIN PESSOA MOTO ON (MOTO.CD_PESSOA = E.CD_MOTORISTA)
LEFT JOIN TRANSPORTADORA TRANS ON (TRANS.CD_TRANSPORTADOR = E.CD_TRANSPORTADOR)
LEFT JOIN RETORNA_NOTASSERVCARCEMBARQUE(E.CD_EMPRESA, E.NR_EMBARQUE, PP.IDPESSOA) RNS ON (1=1)
LEFT JOIN RETORNA_CHAVENOTA(IPP.IDEMPRESAPEDENT, IPP.IDPEDIDOENT, IPP.TPPEDIDOENT)RCNE ON (RCNE.O_CD_ITEM = SP.IDITEMCARCACA)
LEFT JOIN NOTA NE ON (NE.CD_EMPRESA = RCNE.O_CD_EMPRESA
  AND NE.NR_LANCAMENTO = RCNE.O_NR_LANCAMENTO
  AND NE.TP_NOTA = RCNE.O_TP_NOTA
  AND NE.CD_SERIE = RCNE.O_CD_SERIE)
LEFT JOIN ITEMNOTA INE ON (INE.CD_EMPRESA = RCNE.O_CD_EMPRESA
  AND INE.NR_LANCAMENTO = RCNE.O_NR_LANCAMENTO
  AND INE.TP_NOTA = RCNE.O_TP_NOTA
  AND INE.CD_SERIE = RCNE.O_CD_SERIE
  AND INE.CD_ITEM = RCNE.O_CD_ITEM)
WHERE E.CD_EMPRESA = :CD_EMPRESA
  AND E.NR_EMBARQUE = :NR_EMBARQUE CD_EMPRESA NR_EMBARQUE
SELECT RFL.O_NR_PARCELA NR_PARCELA, SUM(RFL.O_VL_DOCUMENTO) VL_DOCUMENTO, RFL.O_DT_VENCIMENTO DT_VENCIMENTO
FROM RETORNA_FATURAMENTO_LOC027(:CD_EMPRESA,:NR_EMBARQUE,:CD_PESSOA) RFL
GROUP BY RFL.O_NR_PARCELA, RFL.O_DT_VENCIMENTO CD_EMPRESA NR_EMBARQUE CD_PESSOA NR_PARCELA VL_DOCUMENTO DT_VENCIMENTO
SELECT X.VL_NOTA,X.VL_FRETE,X.VL_TOTAL,NE.O_NUMERO, X.QT_PNEU, X.VL_DESCONTO, X.VL_NOTAFISCAL
FROM (
SELECT SUM(IIF((RFL.O_TP_DOCUMENTO = 'NOTA'),RFL.O_VL_DOCUMENTO,NULL)) VL_NOTA, SUM(IIF((RFL.O_TP_DOCUMENTO = 'CT-E'),RFL.O_VL_DOCUMENTO,NULL)) VL_FRETE, SUM(RFL.O_VL_DOCUMENTO) VL_TOTAL, MAX(RFL.O_QT_PNEU) QT_PNEU, MAX(RFL.O_VL_DESCONTO) VL_DESCONTO, MAX(RFL.O_VL_TOTAL) VL_NOTAFISCAL
FROM RETORNA_FATURAMENTO_LOC027(:CD_EMPRESA,:NR_EMBARQUE,:CD_PESSOA) RFL )X
LEFT JOIN NUMERO_EXTENSO(X.VL_TOTAL) NE ON (1=1) CD_EMPRESA NR_EMBARQUE CD_PESSOA VL_NOTA VL_FRETE VL_TOTAL O_NUMERO "NUMERO_EXTENSO"."O_NUMERO"

Cabecalho

{frmLOC027}

Tabelas Utilizadas

Tabela	Uso
EMBARQUE	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
EXAMEINICIAL	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMNOTA	referenciada nas queries do layout
ITEMPEDIDOPNEU	referenciada nas queries do layout
ITEMRECAPFATUR	referenciada nas queries do layout
MARCAPNEU	referenciada nas queries do layout
MEDIDAPNEU	referenciada nas queries do layout
MODELOPNEU	referenciada nas queries do layout
MOTIVORECUSAEXAME	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
NOTA	referenciada nas queries do layout
NUMERO_EXTENSO	referenciada nas queries do layout
ORDEMCARREGRECAP	referenciada nas queries do layout
ORDEMPRODUCAORECAP	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PEDIDOPNEU	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
PLUGORDRECAPPEDIDO	referenciada nas queries do layout
PNEU	referenciada nas queries do layout
RETORNA_CHAVENOTA	referenciada nas queries do layout
RETORNA_DADOSORDEMCARREG	referenciada nas queries do layout
RETORNA_DADOSORDEMCARREGRECAP	referenciada nas queries do layout
[[RETORNA_FATURAMENTO_LOC027]]	referenciada nas queries do layout
RETORNA_MOTIVOSEXAMEINICIAL	referenciada nas queries do layout
RETORNA_NOTASSERVCARCEMBARQUE	referenciada nas queries do layout
SERVICOPNEU	referenciada nas queries do layout
TRANSPORTADORA	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LOC027/ULOC027.pas
• DFM: source/LOC027/ULOC027.dfm
• Package: source/LOC027/LOC027.dpk