CD_EMPRESA — Identificação da Empresa (Custo Material Prima)
Tela de configuração: TPO041 — Parâmetros de Importação de Matéria-Prima
Tabela:PARMIMPMATPRIMA
Tipo: Coluna de esquema (DOM_INTEGER NOT NULL)
Valor padrão: Preenchido automaticamente pelo contexto de sessão da empresa corrente
Visão Geral
CD_EMPRESA é a chave primária da tabela PARMIMPMATPRIMA. Cada registro nesta tabela armazena os perfis de custo padrão (semi-acabado, embalagem, mão de obra 1 e 2, gastos gerais) de uma empresa. O campo vincula os perfis de custo à empresa específica que os utiliza na composição de custo de produtos.
| O que faz | Detalhe |
|---|---|
| Identifica a empresa dona dos perfis | Chave primária; um registro por empresa |
| Vincula perfis de custo | Referencia perfis via PERFIL(CD_PERFIL) nas colunas CD_PERFIL* |
| Define contexto de sessão | Preenchido automaticamente com a empresa logada pelo usuário |
Telas impactadas
| Tela | Descrição | Impacto |
|---|---|---|
| TPO041 | Parâmetros de Importação de Matéria-Prima | Tela principal de configuração |
| Telas de composição de custo (formação preço venda) | Utilizam os perfis definidos nesta tabela | Leitura indireta via procedures RETORNA_* |
Campos envolvidos
| Campo | Tabela | Tipo | Origem |
|---|---|---|---|
CD_EMPRESA | PARMIMPMATPRIMA | DOM_INTEGER NOT NULL | PK da tabela |
CD_PERFILSEMIACABADO | PARMIMPMATPRIMA | DOM_INTEGER | Ref. PERFIL(CD_PERFIL) |
CD_PERFILEMBALAGEM | PARMIMPMATPRIMA | DOM_INTEGER | Ref. PERFIL(CD_PERFIL) |
CD_PERFILMAODEOBRA1 | PARMIMPMATPRIMA | DOM_INTEGER | Ref. PERFIL(CD_PERFIL) |
CD_PERFILMAODEOBRA2 | PARMIMPMATPRIMA | DOM_INTEGER | Ref. PERFIL(CD_PERFIL) |
CD_PERFILGASTOSGERAIS | PARMIMPMATPRIMA | DOM_INTEGER | Ref. PERFIL(CD_PERFIL) |
Comportamento do parâmetro
Operação padrão — Empresa de sessão
Simulação passo a passo
- Acesse a tela TPO041 — Parâmetros de Importação de Matéria-Prima.
- Observe que o campo
CD_EMPRESAjá está preenchido com o código da empresa logada. - Configure os perfis desejados (ex: perfil semi-acabado =
105, embalagem =220, mão de obra =301). - Salve o registro.
Resultado esperado: O sistema associa os perfis informados à empresa corrente. Ao consultar formação de preço de venda para essa empresa, os perfis configurados são utilizados automaticamente no cálculo de custo.
Exceção / Importante: Como
CD_EMPRESAé a chave primária da tabela, somente um registro pode existir por empresa. Se já existir um registro para a empresa, a operação será de atualização (edit), não de inclusão.
Procedures impactadas
Referências SQL indiretas via tabela PARMIMPMATPRIMA
As procedures abaixo consultam a tabela PARMIMPMATPRIMA, porém sem referência literal a CD_EMPRESA no script inspecionado. São candidatas a impacto (usam a tabela para retornar perfis de custo):
| Procedure | Arquivo | Uso |
|---|---|---|
RETORNA_CUSTOITEMFORMPRECOVENDA | Scripts/RETORNA_CUSTOITEMFORMPRECOVENDA.sql | FROM PARMIMPMATPRIMA PM — consulta perfis de custo para formação de preço de venda |
RETORNA_STPERFILFORMPRECOVENDA | Scripts/RETORNA_STPERFILFORMPRECOVENDA.sql | FROM PARMIMPMATPRIMA P — retorna configurações de perfil para formação de preço |
Nota: Não foi encontrada referência direta ao campo
CD_EMPRESAnos scriptsScripts/para estas procedures. A empresa é tipicamente passada via contexto de sessão (sessao.cd_empresa) nas rotinas Delphi que chamam estas procedures.
Rotinas Delphi — Referências a CD_EMPRESA (outras telas)
Existem referências ao campo CD_EMPRESA em outras telas (ADM001, ADM002), vinculadas a tabelas diferentes (USUARIOEMPRESA, EMPRESA). Nenhuma referência direta a PARMIMPMATPRIMA.CD_EMPRESA foi encontrada em código Delphi no repositório inspecionado.
| Rotina | Arquivo | Contexto |
|---|---|---|
tabUSUARIOEMPRESACD_EMPRESAValidate | source/ADM001/UdmADM001.pas | Validação de empresa em vínculo usuário-empresa (tabela USUARIOEMPRESA) |
TfrmADM001.editCD_EMPRESAKeyDown | source/ADM001/UfrmADM001.pas | Seleção de empresa na tela de cadastro de usuários |
Regras de negócio observadas
| Regra | Detalhe |
|---|---|
| Obrigatoriedade | PK NOT NULL — sempre preenchido pela sessão |
| Unicidade | Um registro por empresa — PK_PARMIMPMATPRIMA PRIMARY KEY (CD_EMPRESA) |
| Integridade referencial | Perfis devem existir na tabela PERFIL (FKs: CD_PERFILSEMIACABADO, CD_PERFILEMBALAGEM, CD_PERFILMAODEOBRA1, CD_PERFILMAODEOBRA2, CD_PERFILGASTOSGERAIS) |
| Contexto de uso | Formação de preço de venda — custo de matéria-prima |
Tabela comparativa resumida
| Aspecto | Valor |
|---|---|
| Função | Chave primária; identifica empresa dona dos perfis de custo |
| Tipo | DOM_INTEGER NOT NULL |
| Editável | Não (preenchido automaticamente) |
| Exige | Empresa válida e logada na sessão |
| Restrição | Unik (PK) — um registro por empresa |
| FK | Nenhuma direta; indireta via perfis → PERFIL(CD_PERFIL) |
| Uso principal | TPO041 — definição de perfis para custo de matéria-prima |