Linha Microsiga Protheus

Page tree

MATA060 - Informações dos Produtos

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):


Nome
Tipo
Descrição
Default
Obrigatório Referência

PARAMIXB1
Vetor
Array contendo os campos, valores e validações a serem cadastradas,alteradas ou excluidas.


X



PARAMIXB2
Numérico
Opção escolhida: 3-Inclusão ; 4-Alteração ; 5-Exclusão






Nível de Acesso:Nível 1 (Acesso Clientes)

Idiomas:

Espanhol , Inglês

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Este cadastro armazena informações referentes à relação dos produtos com seus respectivos fornecedores, tais como: o histórico dos 12 últimos preços de compra, condição de pagamento firmada, datas de compra e valores, pontuação do fornecedor etc.

Importante:

Estas informações são utilizadas pelo sistema Protheus para avaliação das especificações de um fornecedor para um determinado produto, como por exemplo:
• Na rotina de geração automática das cotações de compras quando estas são enviadas aos fornecedores dos produtos cadastrados.
• Para controle dos produtos a serem enviados para o controle de qualidade, determinado pelos campos:
• Controle Lote (A5_SKIPLOT) - Caso o usuário queira controlar o envio de materiais ao C.Q. pelo Skip-lote, este campo determina a freqüência de inspeção do produto de um determinado fornecedor (Skip-lote de compra) quando do recebimento do material.

Programa Fonte:MATA060.PRX

Sintaxe:

MATA060 - Informações dos Produtos ( PARAMIXB1 [ PARAMIXB2 ] ) --> Nil

Retorno:

Nil(nulo)
Nil

Variáveis:
Nome
Tipo
Escopo
Pode Alterar
Descrição


Array of Record
Global
Não


Observações:

Esta rotina pode ser utilizada via Rotina Automática.

Exemplo:
User Function MyMata060()Local PARAMIXB1 := {}Local PARAMIXB2 := 3Local cFornec        := "FOR007"Local cLoja       := "01"Local cNomeFor     := "FORNECEDOR 007"Local cProduto  := "PROD00000000007"Local cNomeProd   := "COMPUTADOR                    "PRIVATE lMsErroAuto := .F.//------------------------//| Abertura do ambiente |//------------------------PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST" TABLES "SA5"ConOut(Repl("-",80))ConOut(PadC("Teste de Amarracao Produto x Fornecedor",80))ConOut("Inicio: "+Time())//------------------------//| Teste de Inclusao    |//------------------------Begin Transaction       PARAMIXB1 := {}       aadd(PARAMIXB1,{"A5_FORNECE",cFornec,})     aadd(PARAMIXB1,{"A5_LOJA",cLoja,})         aadd(PARAMIXB1,{"A5_NOMEFOR",cNomeFor,})    aadd(PARAMIXB1,{"A5_PRODUTO",cProduto,})         aadd(PARAMIXB1,{"A5_NOMPROD",cNomeProd,})           MSExecAuto({|x,y| mata060(x,y)},PARAMIXB1,PARAMIXB2)          If !lMsErroAuto           ConOut("Incluido com sucesso! "+cFornec)                Else             ConOut("Erro na inclusao!")        EndIf    ConOut("Fim  : "+Time())End TransactionRESET ENVIRONMENTReturn Nil