Linha de Produto: | Protheus | |||||||||||||||||||||||||||||||||||||||
Segmento: | Manufatura | |||||||||||||||||||||||||||||||||||||||
Módulo: | SIGAPCP - Planejamento e Controle da Produção | |||||||||||||||||||||||||||||||||||||||
Parâmetro(s): |
| |||||||||||||||||||||||||||||||||||||||
| 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 |
| 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. | ||||||||||||||||||||
| Programa Fonte: | MATA060.PRX | ||||||||||||||||||||
Sintaxe: | MATA060 - Informações dos Produtos ( PARAMIXB1 [ PARAMIXB2 ] ) --> Nil | ||||||||||||||||||||
| Retorno: | Programa Fonte: Nil(nulo) | ||||||||||||||||||||
| Variáveis: |
| ||||||||||||||||||||
| Observações: | Esta rotina pode ser utilizada via Rotina Automática. |
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.
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
