Histórico da Página

...

Visão Geral
Exemplo de Utilização
Rotina Automática
Principais Campos
Pré-condições para Utilização da Rotina
Tabelas Utilizadas
Assuntos Relacionados

...

Deck of Cards

effectDuration	0.5
history	false
id	samples
effectType	fade

Card

default	true
id	1
label	Incluir

Permite a inclusão de informações de um produto.

As informações devem ser preenchidas conforme as orientações descritas em Principais Campos.

Cadastrar um Registro

1. No módulo SIGAEST, acesse Atualizações → Cadastros → Produto → Correlação de Produtos
2. Na telaCorrelação de Produtos, clique em Incluir.
3. Na tela Filiais, selecione o código da Filial.
4. Na telaCorrelação de Produtos - Incluir, informe os dados necessários para o cadastro em questão, definindo os dados do produto pai e produtos filhos.
5. Clique em Confirmar.

Card

default	true
id	2
label	Alterar

Permite a alteração de informações do produto selecionado.

As informações devem ser ajustadas conforme as orientações descritas em Principais Campos.

Alterar as Informações do Registro Cadastrado

1. Na telaCorrelação de Produtos, selecione o registro cujas informações serão alteradas.
2. Clique em Alterar.
3. Na tela Correlação de Produtos - Alterar, efetue a alteração necessária.
4. Clique em Confirmar.

Card

id	3
label	Visualizar

Permite a visualização de informações do produto.

Visualizar um Registro Cadastrado

1. Na tela Correlação de Produtos, selecione o registro cujas informações serão eliminadas.
2. Clique em Outras Ações → Visualizar.
3. Em seguida será apresentada uma mensagem solicitando a confirmação da exclusão.
4. Clique em Confirmar.

Card

id	4
label	Excluir

Permite a exclusão um produto.

Excluir um Registro Cadastrado

1. Na tela Correlação de Produtos, selecione o registro cujas informações serão eliminadas.
2. Clique em Outras Ações → Excluir.
3. Em seguida será apresentada uma mensagem solicitando a confirmação da exclusão.
4. Clique em Confirmar.

03. ROTINA AUTOMÁTICA

A rotina Correlação de Produtos permite a efetuação das operações por meio de rotina automática em MVC que podem ser utilizadas em suas customizações conforme exemplos abaixo:

Bloco de código

title	Rotina Automática MVC
linenumbers	true

#INCLUDE "RWMAKE.CH" 
#INCLUDE "TBICONN.CH"
#INCLUDE 'Protheus.ch'
#INCLUDE 'FWMVCDef.ch'
//------------------------------------------------------------------------
/*
EXEMPLO DE INCLUSÃO
*/
//------------------------------------------------------------------------
User Function m039Inc()
Local oModel      := Nil
Private lMsErroAuto := .F.
 
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST"
 
    oModel := FwLoadModel("MATA039")
    oModel:SetOperation(MODEL_OPERATION_INSERT)
    oModel:Activate()
    // Cabeçalho
    oModel:SetValue("MdFieldD4C", "D4C_PRODUT", "001")
    // Item 01
    oModel:SetValue("MdGridD4C", "D4C_PRDATO", "002")
    oModel:SetValue("MdGridD4C", "D4C_QTPRAT", 5)
    oModel:GetModel("MdGridD4C"):AddLine()
    // Item 02
    oModel:SetValue("MdGridD4C", "D4C_PRDATO", "003")
    oModel:SetValue("MdGridD4C", "D4C_QTPRAT", 10)

    If oModel:VldData()
        oModel:CommitData()
        MsgInfo("Registro INCLUIDO!", "Atenção")
    Else
        VarInfo("",oModel:GetErrorMessage())
    EndIf       
        
    oModel:DeActivate()
    oModel:Destroy()

    oModel := NIL

RESET ENVIRONMENT

Return Nil

//------------------------------------------------------------------------
/*
EXEMPLO DE ALTERAÇÃO
*/
//------------------------------------------------------------------------
User Function m019Alt()
Local oModel := Nil
Local cProdPai := "001                           "
Local cProdFil := "002                           "
Private lMsErroAuto := .F.
 
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST"
 
// Posiciona
D4C->(DbSetOrder(1))
If D4C->(DbSeek(xFilial("D4C") + cProdPai + cProdFil))
    oModel := FwLoadModel("MATA039")
    oModel:SetOperation(MODEL_OPERATION_UPDATE)
    oModel:Activate()
    oModel:SetValue("MdGridD4C","D4C_QTPRAT",15)
 
    If oModel:VldData()
        oModel:CommitData()
        MsgInfo("Registro ALTERADO!", "Atenção")
    Else
        VarInfo("",oModel:GetErrorMessage())
    EndIf
    
    oModel:DeActivate()
Else
    MsgInfo("Registro NAO LOCALIZADO!", "Atenção")
EndIf

RESET ENVIRONMENT

Return Nil

//------------------------------------------------------------------------
/*
EXEMPLO DE EXCLUSÃO
*/
//------------------------------------------------------------------------
User Function m019Exc()
Local oModel := Nil
Local cProdPai := "001                           "
Local cProdFil := "002                           "
Private aRotina := {}
 
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST"

// Posiciona
D4C->(DbSetOrder(1))
If D4C->(DbSeek(xFilial("D4C") + cProdPai + cProdFil))
    oModel := FwLoadModel ("MATA039")
    oModel:SetOperation(MODEL_OPERATION_DELETE)
    oModel:Activate()
 
    If oModel:VldData()
        oModel:CommitData()
        MsgInfo("Registro EXCLUIDO!", "Atenção")
    Else
        VarInfo("",oModel:GetErrorMessage())
    EndIf

    oModel:DeActivate()
Else
    MsgInfo("Registro NAO LOCALIZADO!", "Atenção")
EndIf

RESET ENVIRONMENT
 
Return Nil

04. PRINCIPAIS CAMPOS

Na tela de cadastro da rotina, estão disponíveis as opções:

Deck of Cards

effectDuration	0.5
history	false
id	samples
effectType	fade

Card

default	true
id	1
label	Cabeçalho

No cabeçalho são informados os dados de identificação do produto pai.

Campo:	Descrição
Codigo do Produto Pai	Informe o código identificador do produto pai.
Un. de medida Prod Pai	Unidade de medida do produto pai obtido a partir da tabela Produtos (SB1), preenchido automaticamente após definição do código do produto pai.

Card

default	true
id	2
label	Itens

Nos itens são informados os dados de identificação dos produtos filhos.

Campo:	Descrição
Codigo Produto Filho	Informe o código identificador do produto filho que será correlacionado com o produto pai.
Unid. de medida Prd Filho	Unidade de medida do produto filho obtido a partir da tabela Produtos (SB1), preenchido automaticamente após definição do código do produto filho.
Quant. Prod. Filho	Informe a quantidade do produto filho.

...

05. PRÉ-CONDIÇÕES PARA UTILIZAÇÃO DA ROTINA

...

06. TABELAS UTILIZADAS

D4C - Correlação de Produtos
NNR - Locais de Estoque
SAH - Unidades de Medida
SB1 - Produtos

...

07. ASSUNTOS RELACIONADOS

Não se aplica

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave

Cadastrar um Registro

Alterar as Informações do Registro Cadastrado

Visualizar um Registro Cadastrado

Excluir um Registro Cadastrado

03. ROTINA AUTOMÁTICA

04. PRINCIPAIS CAMPOS

05. PRÉ-CONDIÇÕES PARA UTILIZAÇÃO DA ROTINA

06. TABELAS UTILIZADAS

07. ASSUNTOS RELACIONADOS