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: | Nome | Tipo | Escopo | Pode Alterar | Descrição | Array of Record | Global | Não |
| Observações: | Esta rotina pode ser utilizada via Rotina Automática. | ||
| |||
|
|
| |||||||||||||||||||||
| Programa Fonte: | MATA060.PRX | ||||||||||||||||||||
Sintaxe: | MATA060 - Informações dos Produtos ( PARAMIXB1 [ PARAMIXB2 ] ) --> Nil | ||||||||||||||||||||
| Retorno: | Nil(nulo) | ||||||||||||||||||||
| Variáveis: |
| ||||||||||||||||||||
| Observações: | Esta rotina pode ser utilizada via Rotina Automática. |
| Code Block | ||||
|---|---|---|---|---|
| ||||
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 |
