Habilita informações de Tecido no Pedido

Tela de configuração: MFA001 - Parâmetros de Faturamento Localização: Parâmetros → Pedidos / O.S. → Opção 1 (label "Habilita Inf. de Tecido") Tabela: PARMFATUR.ST_INFTECIDO Valor padrão: N (Não)

Telas impactadas

Módulo	Código	Descrição
Pedido de Venda	MPD002	Exibe/oculta aba "Dados Tecido" e grupo de datas de tecido
Controle de Pedidos	CPD001	Carrega valor em variável interna iST_INFTECIDO (leitura)

Campos envolvidos

Campo	Descrição
PARMFATUR.ST_INFTECIDO	Flag de ativação ('S' habilita / 'N' desabilita)
pagTECIDO (TTabSheet, Caption "Dados Tecido")	Aba de dados do tecido no pedido MPD002
grpTECIDO (TGroupBox, Caption "Datas do Tecido")	Grupo com datas ligadas ao tecido no pedido
CD_TIPOTECIDOCOR	Tipo de tecido/cor (controle exibido dentro da aba pagTECIDO)

---

Opções disponíveis

S - Sim (Habilita informações de Tecido)

O que faz	Detalhe
Aba "Dados Tecido" em MPD002	pagTECIDO.TabVisible := True
Grupo "Datas do Tecido" em MPD002	grpTECIDO.Visible := True
Fluxo no código	Verificação direta if (parmfatur.values['ST_INFTECIDO'] = 'S') em UdmMPD002.pas linha 703
Persistência	Gravado via UPDATE padrão do MFA001 (UdmMFA001.dfm linha 2805)

Simulação passo a passo

1. Acesse MFA001 → aba Ambos → Opção 1
2. Altere o combo "Habilita Inf. de Tecido" para Sim
3. Salve os parâmetros (F6)
4. Abra um Pedido de Venda em MPD002
5. Observe: a aba "Dados Tecido" aparece entre as demais abas do pedido
6. Observe: o grupo "Datas do Tecido" fica visível na área de cabeçalho
7. É possível informar tipo de tecido/cor (CD_TIPOTECIDOCOR) e datas relacionadas

Resultado esperado: A interface do MPD002 exibe controles extras destinados a clientes do segmento têxtil/recapagem que precisam registrar informações de tecido no pedido.

---

N - Não (Oculta informações de Tecido)

O que faz	Detalhe
Aba "Dados Tecido" em MPD002	pagTECIDO.TabVisible := False
Grupo "Datas do Tecido" em MPD002	grpTECIDO.Visible := False
Valor padrão	Atribuído no AfterInsert de UdmMFA001.pas linha 522
Comportamento	Pedido funciona sem qualquer referência a tecido (fluxo padrão)

Simulação passo a passo

1. Acesse MFA001 → aba Ambos → Opção 1
2. Deixe o combo "Habilita Inf. de Tecido" em Não (padrão)
3. Salve os parâmetros (F6)
4. Abra um Pedido de Venda em MPD002
5. Observe: a aba "Dados Tecido" NÃO aparece
6. Observe: o grupo "Datas do Tecido" NÃO é exibido
7. O pedido é digitado normalmente sem campos específicos de tecido

Resultado esperado: Interface enxuta, sem controles de tecido. Valor padrão para empresas que não operam com esse tipo de produto.

Este é o valor padrão ao criar um novo registro no MFA001 (AfterInsert em UdmMFA001.pas:522).

---

Tabela Comparativa Resumida

Opção	Descrição	Aba pagTECIDO	Grupo grpTECIDO
S	Sim - Habilita Inf. Tecido	Visível	Visível
N	Não (padrão)	Oculta	Oculto

---

Referências no Código Fonte

MFA001 (tela de configuração)

Arquivo	Linha	Trecho
source/MFA001/UMFA001.dfm	8081	object lblST_INFTECIDO: TLabel — Caption 'Habilita Inf. de Tecido'
source/MFA001/UMFA001.dfm	8874-8895	cmbST_INFTECIDO: TwwDBComboBox — Items 'Sim'#9'S' / 'Não'#9'N', DataField = 'ST_INFTECIDO'
source/MFA001/UMFA001.pas	292	Declaração lblST_INFTECIDO: TLabel
source/MFA001/UMFA001.pas	322	Declaração cmbST_INFTECIDO: TwwDBComboBox
source/MFA001/UdmMFA001.pas	206	tabPARMFATURST_INFTECIDO: TStringField
source/MFA001/UdmMFA001.pas	522	tabPARMFATURST_INFTECIDO.AsString := 'N' (AfterInsert - valor padrão)
source/MFA001/UdmMFA001.dfm	213	SELECT inclui PARMFATUR.ST_INFTECIDO
source/MFA001/UdmMFA001.dfm	1529-1534	Campo persistente tabPARMFATURST_INFTECIDO (FixedChar = True, Size = 1)
source/MFA001/UdmMFA001.dfm	2805	UPDATE inclui ST_INFTECIDO = :ST_INFTECIDO
source/MFA001/UdmMFA001.dfm	3093	Segundo SELECT (refresh) inclui PARMFATUR.ST_INFTECIDO

MPD002 (consumidor - Pedido de Venda)

Arquivo	Linha	Trecho
source/MPD002/UdmMPD002.pas	702-712	if (parmfatur.values['ST_INFTECIDO'] = 'S') → habilita pagTECIDO.TabVisible e grpTECIDO.Visible
source/MPD002/UdmMPD002.pas	5747	SELECT do parâmetro incluindo P.ST_INFTECIDO na consulta de PARMFATUR
source/MPD002/UMPD002.dfm	2215-2217	object pagTECIDO: TTabSheet — Caption 'Dados Tecido'
source/MPD002/UMPD002.dfm	4515-4520	object grpTECIDO: TGroupBox — Caption ' Datas do Tecido '

CPD001 (consumidor - leitura do parâmetro)

Arquivo	Linha	Trecho
source/CPD001/UCPD001.pas	629	Declaração iST_INFTECIDO: String
source/CPD001/UCPD001.pas	2211	'SELECT ST_ENTREGA, ST_INFTECIDO ' + 'FROM PARMFATUR ...'
source/CPD001/UCPD001.pas	2222	iST_INFTECIDO := Resultado[1] (procedure Busca_Parametros)

Scripts SQL (Firebird)

Nenhuma stored procedure referencia ST_INFTECIDO (grep em Scripts/ não retornou resultados). O parâmetro é consumido exclusivamente pelo cliente Delphi.

---