LOC004 — Layout LOC004

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 MUNICIPIO, com junção em EMBARQUE, ITEMPEDIDO, EMPRESA, ITEM, ENDERECOPESSOA, GRUPO (+12), filtrada por CD_MUNICIPIO, CD_PESSOA, CD_EMPRESA, NR_PEDIDO, TP_PEDIDO, CD_ENDERECO (+7).

Chamada

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

SQL Base

tabRelatorio

SELECT O.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, I.SG_UNIDALT, G.DS_GRUPO||COALESCE(S.DS_SUBGRUPO,'SEM SUBGRUPO') DS_QUEBRA, G.CD_GRUPO, G.DS_GRUPO, S.CD_SUBGRUPO, COALESCE(S.DS_SUBGRUPO,'SEM SUBGRUPO') DS_SUBGRUPO, O.CD_EMPRESA, O.NR_EMBARQUE, E.NM_EMPRESA, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '|| EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, /* (
SELECT MU.DS_MUNICIPIO ||' - '|| MU.SG_ESTADO
FROM MUNICIPIO MU
WHERE MU.CD_MUNICIPIO = (
SELECT EP.CD_MUNICIPIO
FROM ENDERECOPESSOA EP
WHERE EP.CD_PESSOA = (
SELECT FIRST 1 P1.CD_PESSOA
FROM PEDIDO P1
WHERE P1.CD_EMPRESA = O.CD_EMPRESA
  AND P1.NR_PEDIDO = O.NR_PEDIDO
  AND P1.TP_PEDIDO = 'S')
  AND EP.CD_ENDERECO = o.CD_EMPRESA)) CD_CIDADEENTREGA , */ COALESCE(EE.NR_FONE, EE.NR_FAX) NR_FONEEMP, EE.NR_CEP NR_CEPEMP, B.DT_EMBARQUE, B.NR_PLACA, B.PS_LIQUIDO, B.PS_BRUTO, B.CD_MOTORISTA, B.CD_TRANSPORTADOR, COALESCE(PM.NM_PESSOA, COALESCE(PT.NM_PESSOA, B.NM_MOTORISTA)) NM_MOTORISTA, SUM(O.PS_ORDEMCARREG) PS_ORDEM, SUM(O.QT_ORDEMCARREG) QT_ORDEM, SUM(CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (I.CD_ITEM)) WHEN 'Q' THEN O.QT_ORDEMCARREG ELSE O.PS_ORDEMCARREG END) QTDE, SUM((
SELECT V_VL_TOTAL
FROM CALCULA_VALOR(O.CD_ITEM, O.PS_ORDEMCARREG, O.QT_ORDEMCARREG, P.VL_UNITARIO, 'T'))) VL_TOTAL
FROM ORDEMCARREG O
INNER JOIN EMBARQUE B ON (B.CD_EMPRESA = O.CD_EMPRESA
  AND B.NR_EMBARQUE = O.NR_EMBARQUE)
INNER JOIN ITEMPEDIDO P ON (P.CD_EMPRESA = O.CD_EMPRPED
  AND P.NR_PEDIDO = O.NR_PEDIDO
  AND P.TP_PEDIDO = O.TP_PEDIDO
  AND P.CD_ITEM = O.CD_ITEM)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = B.CD_EMPRESA)
INNER JOIN ITEM I ON (I.CD_ITEM = O.CD_ITEM)
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = E.CD_PESSOA
  AND EE.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(E.CD_PESSOA, NULL)))
INNER JOIN MUNICIPIO ME ON (ME.CD_MUNICIPIO = EE.CD_MUNICIPIO)
INNER JOIN GRUPO G ON (G.CD_GRUPO = I.CD_GRUPO)
LEFT JOIN SUBGRUPO S ON (S.CD_SUBGRUPO = I.CD_SUBGRUPO)
LEFT JOIN PESSOA PM ON (PM.CD_PESSOA = B.CD_MOTORISTA)
LEFT JOIN PESSOA PT ON (PT.CD_PESSOA = B.CD_TRANSPORTADOR)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_EMBARQUE = :NR_EMBARQUE
  AND O.ST_ORDEMCARREG <> 'C'
GROUP BY O.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, I.SG_UNIDALT, G.DS_GRUPO||COALESCE(S.DS_SUBGRUPO,'SEM SUBGRUPO'), G.CD_GRUPO, G.DS_GRUPO, S.CD_SUBGRUPO, COALESCE(S.DS_SUBGRUPO,'SEM SUBGRUPO'), O.CD_EMPRESA, O.NR_EMBARQUE, E.NM_EMPRESA, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '|| EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' '), ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO, COALESCE(EE.NR_FONE, EE.NR_FAX), EE.NR_CEP , B.PS_BRUTO, B.CD_MOTORISTA, B.CD_TRANSPORTADOR, B.DT_EMBARQUE, B.NR_PLACA, B.PS_LIQUIDO, COALESCE(PM.NM_PESSOA, COALESCE(PT.NM_PESSOA, B.NM_MOTORISTA))
ORDER BY G.DS_GRUPO, G.DS_GRUPO||COALESCE(S.DS_SUBGRUPO,'SEM SUBGRUPO'), I.DS_ITEM CD_EMPRESA 1 NR_EMBARQUE
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
SELECT O.CD_MOTIVO, M.DS_MOTIVO, O.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, I.SG_UNIDALT, O.PS_ACERTO, O.NR_PEDIDO, O.QT_ACERTO, O.VL_UNITARIO, O.VL_ACERTO
FROM ACERTOORDEM O
INNER JOIN ITEM I ON (I.CD_ITEM = O.CD_ITEM)
INNER JOIN MOTIVO M ON (M.CD_MOTIVO = O.CD_MOTIVO)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_EMBARQUE = :NR_EMBARQUE CD_EMPRESA 1 NR_EMBARQUE
SELECT O.CD_EMPRESA, O.NR_EMBARQUE, O.CD_EMPRPED, O.NR_PEDIDO, O.TP_PEDIDO, E.NM_EMPRESA, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, ' - '||EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, COALESCE(EE.NR_FONE, EE.NR_FAX) NR_FONEEMP, EE.NR_CEP NR_CEPEMP, F.DT_FECHAMENTO, D.CD_PESSOA, S.NM_PESSOA, D.CD_VENDEDOR, V.NM_PESSOA NM_VENDEDOR, O.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, I.SG_UNIDALT, O.PS_ORDEMCARREG, O.QT_ORDEMCARREG, P.VL_UNITARIO, (
SELECT V_VL_TOTAL
FROM CALCULA_VALOR(I.CD_ITEM, O.PS_ORDEMCARREG, O.QT_ORDEMCARREG, P.VL_UNITARIO, 'T')) VL_TOTAL, F.VL_DINHEIRO, F.VL_CHEQUE, F.VL_VALE, F.VL_FECHAMENTO VL_LIQUIDOTOT, F.VL_TOTAL VL_TOTALTOT, F.VL_TOTAL - F.VL_FECHAMENTO VL_ACERTOTOT, F.VL_FECHAMENTO - COALESCE(F.VL_CHEQUE,0) - COALESCE(F.VL_DINHEIRO,0) - COALESCE(F.VL_VALE,0) VL_SALDOTOT
FROM ORDEMCARREG O
INNER JOIN ITEMPEDIDO P ON (P.CD_EMPRESA = O.CD_EMPRPED
  AND P.NR_PEDIDO = O.NR_PEDIDO
  AND P.TP_PEDIDO = O.TP_PEDIDO
  AND P.CD_ITEM = O.CD_ITEM)
INNER JOIN PEDIDO D ON (P.CD_EMPRESA = D.CD_EMPRESA
  AND P.NR_PEDIDO = D.NR_PEDIDO
  AND P.TP_PEDIDO = D.TP_PEDIDO)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = O.CD_EMPRESA)
INNER JOIN ITEM I ON (I.CD_ITEM = O.CD_ITEM)
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = E.CD_PESSOA
  AND EE.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(E.CD_PESSOA, NULL)))
INNER JOIN MUNICIPIO ME ON (ME.CD_MUNICIPIO = EE.CD_MUNICIPIO)
INNER JOIN PESSOA S ON (S.CD_PESSOA = D.CD_PESSOA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = D.CD_VENDEDOR)
LEFT JOIN FECHAMENTOORDEM F ON (F.CD_EMPRESA = O.CD_EMPRESA
  AND F.NR_EMBARQUE = O.NR_EMBARQUE)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_EMBARQUE = :NR_EMBARQUE
  AND O.ST_ORDEMCARREG <> 'C' CD_EMPRESA 1 NR_EMBARQUE
SELECT CASE N.CD_SERIE WHEN 'N' THEN CASE N.CD_FORMAPAGTO WHEN 'DI' THEN 'NF - DINHEIRO' WHEN 'CH' THEN 'NF - CHEQUE' ELSE 'NF - VALE' END ELSE CASE N.CD_FORMAPAGTO WHEN 'DI' THEN 'NF FORMULARIO - DINHEIRO' WHEN 'CH' THEN 'NF FORMULARIO - CHEQUE' ELSE 'NF FORMULARIO - BOLETO' END END DS_CONDPAGTO, N.CD_EMPRESA, N.NR_EMBARQUE, E.NM_EMPRESA, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, ' - '||EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, COALESCE(EE.NR_FONE, EE.NR_FAX) NR_FONEEMP, EE.NR_CEP NR_CEPEMP, F.DT_FECHAMENTO, N.CD_PESSOA, S.NM_PESSOA, B.DT_EMBARQUE, B.NR_PLACA, N.CD_VENDEDOR, COALESCE(V.NM_PESSOA,'SEM VENDEDOR') NM_VENDEDOR, N.NR_NOTAFISCAL, N.DT_EMISSAO, N.VL_NOTAFISCAL, MS.DS_MUNICIPIO||' - '||MS.SG_ESTADO DS_MUNICIPIO, COALESCE(PM.NM_PESSOA, COALESCE(PT.NM_PESSOA, B.NM_MOTORISTA)) NM_MOTORISTA, F.VL_DINHEIRO, F.VL_CHEQUE, F.VL_VALE, F.VL_FECHAMENTO VL_LIQUIDOTOT, F.VL_TOTAL VL_TOTALTOT, F.VL_TOTAL - F.VL_FECHAMENTO VL_ACERTOTOT, F.VL_FECHAMENTO - COALESCE(F.VL_CHEQUE,0) - COALESCE(F.VL_DINHEIRO,0) - COALESCE(F.VL_VALE,0) VL_SALDOTOT, MAX(D.NR_PEDIDO) NR_PEDIDO, MAX(D.NR_PEDIDOFOR) NR_PEDIDOFOR, COALESCE(COALESCE(n.DT_VENCIMENTO, MAX(PN.DT_VENCIMENTO)),N.DT_EMISSAO) DT_VENCIMENTO
FROM NOTA N
INNER JOIN ITEMNOTA NI ON (NI.CD_EMPRESA = N.CD_EMPRESA
  AND NI.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NI.TP_NOTA = N.TP_NOTA
  AND NI.CD_SERIE = N.CD_SERIE)
INNER JOIN MOVIMENTACAO MOV ON (MOV.CD_MOVIMENTACAO = NI.CD_MOVIMENTACAO
  AND MOV.CD_TIPOCONTA IS NOT NULL)
INNER JOIN ORDEMCARREG O ON (O.CD_EMPRNOTA = N.CD_EMPRESA
  AND O.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND O.TP_NOTA = N.TP_NOTA
  AND O.CD_SERIE = N.CD_SERIE)
INNER JOIN PEDIDO D ON (O.CD_EMPRPED = D.CD_EMPRESA
  AND O.NR_PEDIDO = D.NR_PEDIDO
  AND O.TP_PEDIDO = D.TP_PEDIDO)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = N.CD_EMPRESA)
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = E.CD_PESSOA
  AND EE.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(E.CD_PESSOA, NULL)))
INNER JOIN MUNICIPIO ME ON (ME.CD_MUNICIPIO = EE.CD_MUNICIPIO)
INNER JOIN PESSOA S ON (S.CD_PESSOA = N.CD_PESSOA)
INNER JOIN ENDERECOPESSOA ES ON (ES.CD_PESSOA = N.CD_PESSOA
  AND ES.CD_ENDERECO = N.CD_ENDERECO)
INNER JOIN MUNICIPIO MS ON (MS.CD_MUNICIPIO = ES.CD_MUNICIPIO) --
INNER JOIN CONDPAGTO COND ON (COND.CD_CONDPAGTO = N.CD_CONDPAGTO)
INNER JOIN EMBARQUE B ON (B.CD_EMPRESA = N.CD_EMPEMB
  AND B.NR_EMBARQUE = N.NR_EMBARQUE)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN PESSOA PM ON (PM.CD_PESSOA = B.CD_MOTORISTA)
LEFT JOIN PESSOA PT ON (PT.CD_PESSOA = B.CD_TRANSPORTADOR)
LEFT JOIN FECHAMENTOORDEM F ON (F.CD_EMPRESA = N.CD_EMPEMB
  AND F.NR_EMBARQUE = N.NR_EMBARQUE)
LEFT JOIN PARCELANOTA PN ON (PN.CD_EMPRESA = N.CD_EMPRESA
  AND PN.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND PN.TP_NOTA = N.TP_NOTA
  AND PN.CD_SERIE = N.CD_SERIE)
WHERE N.CD_EMPEMB = :CD_EMPRESA
  AND N.NR_EMBARQUE = :NR_EMBARQUE
  AND N.ST_NOTA = 'V'
GROUP BY N.CD_EMPRESA, N.NR_EMBARQUE, E.NM_EMPRESA, EE.DS_ENDERECO, EE.NR_ENDERECO, EE.DS_BAIRRO, EE.DS_COMPLEMENTO, ME.DS_MUNICIPIO, ME.SG_ESTADO, EE.NR_FONE, EE.NR_FAX, EE.NR_CEP, F.DT_FECHAMENTO, N.CD_PESSOA, S.NM_PESSOA, B.DT_EMBARQUE, B.NR_PLACA, N.CD_VENDEDOR, V.NM_PESSOA, N.NR_NOTAFISCAL, N.DT_EMISSAO, N.VL_NOTAFISCAL, MS.DS_MUNICIPIO, MS.SG_ESTADO, PM.NM_PESSOA, PT.NM_PESSOA, B.NM_MOTORISTA, F.VL_DINHEIRO, F.VL_CHEQUE, F.VL_VALE, F.VL_FECHAMENTO, F.VL_TOTAL, N.CD_FORMAPAGTO, N.CD_SERIE, N.DT_VENCIMENTO
ORDER BY COALESCE(V.NM_PESSOA,'SEM VENDEDOR'), 1, N.NR_NOTAFISCAL CD_EMPRESA 1 NR_EMBARQUE
SELECT DISTINCT V.NM_PESSOA NM_VENDEDOR, R.DS_REGIAOCOMERCIAL
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)
INNER JOIN PESSOA E ON (E.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA D ON (D.CD_PESSOA = P.CD_PESSOA
  AND D.CD_ENDERECO = P.CD_ENDERECO)
LEFT JOIN REGIAOCOMERCIAL R ON (R.CD_REGIAOCOMERCIAL = D.CD_REGIAOCOMERCIAL)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = P.CD_VENDEDOR)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_EMBARQUE = :NR_EMBARQUE CD_EMPRESA 1 NR_EMBARQUE
SELECT 'Cidades.: ' ||LIST( DISTINCT (
SELECT MU.DS_MUNICIPIO ||' - '|| MU.SG_ESTADO
FROM MUNICIPIO MU
WHERE MU.CD_MUNICIPIO = (
SELECT EP.CD_MUNICIPIO
FROM ENDERECOPESSOA EP
WHERE EP.CD_PESSOA = (
SELECT FIRST 1 P1.CD_PESSOA
FROM PEDIDO P1
WHERE P1.CD_EMPRESA = O.CD_EMPRESA
  AND P1.NR_PEDIDO = O.NR_PEDIDO
  AND P1.TP_PEDIDO = 'S')
  AND EP.CD_ENDERECO = o.CD_EMPRESA)), ', ') LISTA_CIDADE
FROM ORDEMCARREG O
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_EMBARQUE = :NR_EMBARQUE
  AND O.ST_ORDEMCARREG <> 'C' CD_EMPRESA 1 NR_EMBARQUE
SELECT DISTINCT O.NR_PEDIDO, P.NR_PEDIDOFOR, C.DS_CONDPAGTO
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)
INNER JOIN CONDPAGTO C ON (C.CD_CONDPAGTO = P.CD_CONDPAGTO)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_EMBARQUE = :NR_EMBARQUE CD_EMPRESA 1 NR_EMBARQUE
SELECT DISTINCT CASE C.ST_CONDPAGTO WHEN 'P' THEN PA.NR_PARCELA ELSE '1' END NR_PARCELA, CASE C.ST_CONDPAGTO WHEN 'P' THEN PA.DT_VENCIMENTO WHEN 'D' THEN P.DT_VENCIMENTO ELSE P.DT_PEDIDO END DT_VENCIMENTO, CASE C.ST_CONDPAGTO WHEN 'P' THEN PA.VL_PARCELA ELSE SUM( (
SELECT V_VL_TOTAL
FROM CALCULA_VALOR(O.CD_ITEM, O.PS_ORDEMCARREG, O.QT_ORDEMCARREG, I.VL_UNITARIO, 'T'))) END VL_PARCELA
FROM PEDIDO P
INNER JOIN ORDEMCARREG O ON (O.NR_PEDIDO = P.NR_PEDIDO
  AND O.CD_EMPRESA = P.CD_EMPRESA
  AND O.TP_PEDIDO = O.TP_PEDIDO)
LEFT JOIN PARCELAPEDIDO PA ON (PA.NR_PEDIDO = P.NR_PEDIDO
  AND PA.CD_EMPRESA = P.CD_EMPRESA)
INNER JOIN CONDPAGTO C ON (C.CD_CONDPAGTO = P.CD_CONDPAGTO)
INNER JOIN ITEMPEDIDO I ON (I.CD_EMPRESA = O.CD_EMPRPED
  AND I.NR_PEDIDO = O.NR_PEDIDO
  AND I.TP_PEDIDO = O.TP_PEDIDO
  AND I.CD_ITEM = O.CD_ITEM)
WHERE P.CD_EMPRESA = :CD_EMPRESA
  AND P.NR_PEDIDO = :NR_PEDIDO
  AND O.NR_EMBARQUE = :NR_EMBARQUE
GROUP BY PA.NR_PARCELA, C.ST_CONDPAGTO, PA.DT_VENCIMENTO,P.DT_VENCIMENTO, PA.VL_PARCELA ,P.DT_PEDIDO CD_EMPRESA 1 NR_PEDIDO NR_EMBARQUE

Tabelas Utilizadas

Tabela	Uso
ACERTOORDEM	referenciada nas queries do layout
CALCULA_VALOR	referenciada nas queries do layout
CONDPAGTO	referenciada nas queries do layout
EMBARQUE	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
FECHAMENTOORDEM	referenciada nas queries do layout
GRUPO	referenciada nas queries do layout
HABILITA_PESOQTDE	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMNOTA	referenciada nas queries do layout
ITEMPEDIDO	referenciada nas queries do layout
MOTIVO	referenciada nas queries do layout
MOVIMENTACAO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
NOTA	referenciada nas queries do layout
ORDEMCARREG	referenciada nas queries do layout
PARCELANOTA	referenciada nas queries do layout
PARCELAPEDIDO	referenciada nas queries do layout
PEDIDO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
REGIAOCOMERCIAL	referenciada nas queries do layout
RETORNA_ENDERECO	referenciada nas queries do layout
SUBGRUPO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LOC004/ULOC004.pas
• DFM: source/LOC004/ULOC004.dfm
• Package: source/LOC004/LOC004.dpk