Linha Microsiga Protheus

Árvore de páginas

Função: MATA015 - Rotina Automática de Endereços
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Descrição: 
Esta rotina permite efetuar o Cadastro automático de endereços do Estoque/Custos, através do mecanismo de rotina automática.
Programa Fonte: 
MATA015.PRX
Sintaxe:

MATA015 - Rotina Automática de Endereços ( aVetornOpc )

Retorno:
    (nulo)
Observações

Exemplos 
#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH"User Function tMata015()LOCAL aVetor:= {}Local nOpc := 0 Private lMsErroAuto := .F.  aVetor := 	{	{"BE_LOCAL"  	,"10"		,Nil},;				{"BE_LOCALIZ"	,"00000010"	,NIL},;				{"BE_DESCRIC"	,"DESCRICAO",NIL},;				{"BE_CAPACID"	,10			,NIL},;				{"BE_PRIOR"		,"ZZZ"		,NIL},;				{"BE_ALTURLC"	,10			,NIL},;				{"BE_LARGLC"	,10			,NIL},;				{"BE_COMPRLC"	,10			,NIL},; 				{"BE_PERDA"		,5			,NIL},;				{"BE_STATUS"	,"1"		,NIL} }			nOpc := 3	// inclusao			MSExecAuto({|x,y| MATA015(x,y)},aVetor, nOpc)     If lMsErroAuto	ConOut("Erro")	Else	ConOut("Sucesso! ")		EndIfReturn
Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aVetor Array of Record X
nOpc Array of Record Opção da Rotina Automática:3- Inclusão4- Alteração5- Exclusão X