Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • MATA060 - Informações dos Produtos

Função: MATA060 - Informações dos Produtos
Versões: Microsiga Protheus 8.11 , Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Espanhol , Inglês
Descrição: 
OBJETIVO:
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
Observações

Esta rotina pode ser utilizada via Rotina Automática.
 

Exemplos 
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
Parâmetros:
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