CD_TPLOCALORIGEM – Tipo de Local de Origem

Tela de configuração: MEQ001 – Parâmetros de Estoque Tabela: PARMESTOQUE.CD_TPLOCALORIGEM Tipo: INTEGER (chave estrangeira) Componente: edtTpLocalOrigem (TEdit, DataField = CD_TPLOCALORIGEM) Valor padrão: Preenchido automaticamente após pesquisa com <F9>

---

Telas impactadas

Tela	Uso
MEQ001	Configuração do parâmetro (tela principal)
MEQ052	Consulta de movimentos de estoque – seleciona CD_TPLOCALORIGEM para identificar o local de origem das transferências

---

Campos envolvidos

Campo	Tipo	Obrigatório	Descrição
CD_TPLOCALORIGEM	INTEGER	Não	Código do tipo de local de estoque de origem (FK → TIPOLOCAL.CD_TIPOLOCAL)
DS_TPLOCALORIGEM	VARCHAR	Não (preenchido pelo sistema)	Descrição do tipo de local, exibida em tela após validação
CD_LOCALORIGEM	INTEGER	Não	Código do local de estoque de origem (FK → LOCALESTOQUE.CD_LOCAL), depende de CD_TPLOCALORIGEM estar preenchido

---

Regra de integridade

A coluna participa da constraint de integridade referencial:

ALTER TABLE PARMESTOQUE
  ADD CONSTRAINT RPARMESTOQUE_LOCALORIGEM
  FOREIGN KEY (CD_LOCALORIGEM, CD_TPLOCALORIGEM)
  REFERENCES LOCALESTOQUE (CD_LOCAL, CD_TIPOLOCAL)
  ON UPDATE CASCADE;

Isso garante que o par (CD_LOCALORIGEM, CD_TPLOCALORIGEM) seja um registro válido na tabela LOCALESTOQUE.

---

Opções disponíveis

Este parâmetro é um código numérico livre (sem lista fixa de valores pré-definidos). O usuário seleciona o tipo de local cadastrado na tabela TIPOLOCAL via pesquisa com <F9>.

O que faz	Detalhe
Editável	O campo edtTpLocalOrigem é editável em tela; o usuário pode digitar o código diretamente ou pressionar <F9> para pesquisar
Exige validação	Ao sair do campo, o sistema consulta TIPOLOCAL e exibe a descrição; se o código não existir, exibe erro E-0000: O Tipo de Local não está Cadastrado [TEQ002]!
Restringe local de origem	O campo CD_LOCALORIGEM só pode ser informado se CD_TPLOCALORIGEM estiver preenchido; caso contrário, exibe erro E-0000: É Obrigatório informar o Tipo de Local para Validar o Local.

---

Preenchimento via digitação direta

Simulação passo a passo

1. Acesse MEQ001 – Parâmetros de Estoque.
2. Localize o campo Local (Tipo de Local de Origem).
3. Digite o código numérico do tipo de local desejado (por exemplo, 1).
4. Saia do campo (pressione Tab ou clique em outro campo).

Resultado esperado: O sistema consulta a tabela TIPOLOCAL e, se o código for válido, exibe a descrição do tipo de local no campo DS_TPLOCALORIGEM. Se o código não existir, exibe a mensagem de erro O Tipo de Local não está Cadastrado [TEQ002]!.

Excecao / Importante: Se o campo CD_TPLOCALORIGEM estiver vazio, o campo CD_LOCALORIGEM (Local de Origem) não poderá ser informado — o sistema exige que o tipo de local seja preenchido primeiro.

---

Preenchimento via pesquisa (<F9>)

Simulação passo a passo

1. Acesse MEQ001 – Parâmetros de Estoque.
2. Clique no campo Local (Tipo de Local de Origem) ou pressione <F9>.
3. O sistema abre a janela de pesquisa "Selecione o Local" listando os registros da tabela TIPOLOCAL com colunas Descrição e Código.
4. Selecione o tipo de local desejado (por exemplo, "Almoxarifado Central", código 1).
5. Confirme a seleção.

Resultado esperado: O código do tipo de local selecionado é atribuído ao campo CD_TPLOCALORIGEM e a descrição correspondente é exibida em tela. O parâmetro é gravado na tabela PARMESTOQUE ao salvar os parâmetros.

---

Campo vazio (sem tipo de local definido)

Simulação passo a passo

1. Acesse MEQ001 – Parâmetros de Estoque.
2. Deixe o campo Local (Tipo de Local de Origem) em branco.
3. Tente informar um valor no campo Local de Origem (CD_LOCALORIGEM).

Resultado esperado: O sistema exibe o erro É Obrigatório informar o Tipo de Local para Validar o Local. e não permite o preenchimento do local de origem.

Excecao / Importante: O campo CD_TPLOCALORIGEM não é obrigatório na tabela (permite NULL). Porém, se estiver vazio, o campo CD_LOCALORIGEM fica inutilizável. Se nenhum local de origem for necessário para a operação, ambos os campos podem permanecer vazios.

---

Procedures impactadas

Rotinas Delphi com referência direta ao campo

Rotina	Arquivo	Linha	Evidência
TfrmMEQ001.edtTpLocalOrigemKeyDown	UMEQ001.pas	1630	Atribui resultado da pesquisa ao campo
TfrmMEQ001.edtLocalOrigemKeyDown	UMEQ001.pas	1643	Valida se CD_TPLOCALORIGEM está preenchido antes de listar locais
TdmMEQ001.tabPARMESTOQUECD_TPLOCALORIGEMValidate	UdmMEQ001.pas	1211	Consulta TIPOLOCAL e exibe descrição; lança erro se código inválido
TdmMEQ001.tabPARMESTOQUECD_LOCALORIGEMValidate	UdmMEQ001.pas	1265	Exige CD_TPLOCALORIGEM preenchido para validar local de origem
TdmMEQ052.tabMOVESTOQUECD_ITEMValidate	UdmMEQ052.pas	184	Seleciona CD_TPLOCALORIGEM de PARMESTOQUE para identificar local de origem
TdmMEQ052.tabMOVESTOQUECD_CODIGOBARRAValidate	UdmMEQ052.pas	354	Seleciona CD_TPLOCALORIGEM de PARMESTOQUE para identificar local de origem

Referências SQL diretas ao campo em Scripts

Não foram encontradas referências literais ao campo CD_TPLOCALORIGEM nos scripts SQL da pasta Scripts/.

Candidatas por uso da tabela

Diversas procedures SQL acessam a tabela PARMESTOQUE para consultar parâmetros da empresa, mas não citam o campo CD_TPLOCALORIGEM explicitamente. Entre elas: GERA_ESTOQUE, GERA_ESTOQUE_NOTAFISCAL, CANCELA_ESTOQUE, GERA_ORDEMPRODUCAO, entre outras. Não há impacto funcional direto confirmado para o campo nessas rotinas.