import.css=/download/attachments/327912/newLayout.css |
Função: MATA060 - Informações dos Produtos
Descrição:
Programa Fonte:
MATA060.PRX
Sintaxe:
MATA060 - Informações dos Produtos ( PARAMIXB1 [ PARAMIXB2 ] ) --> Nil
Retorno:
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:
|