Histórico da Página

Abrangências:	Microsiga Protheus 11 , Protheus 10
Versões:	Protheus 11
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:	Português (Brasil)

Descrição:

Esta rotina permite a manipulação dos registros de inventário de estoque - Tabela SB7.

Programa Fonte:

MATA270.PRX

Sintaxe:

MATA270(aRotAuto, lEscolha, nOpcAuto)

Parâmetros:

NOME

TIPO

DESCRIÇÃO

OBRIGATÓRIO

aRotAuto

Array of records

Array com os itens do inventário

X

lEscolha

Lógico

Define se a contagem será a escolhida

X

nOpcAuto

Numérico

3 - Inclusão

4 - Alteração

5 - Exclusão

Default 3

Bloco de código

theme	Midnight
language	delphi
title	Exemplo

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function MyMata270

Wiki Markup

||Descrição|| Rotina automática MyMata270 (MATA270)
||Observações|| Essa rotina permite o registro de qualquer movimento no inventário.
||Exemplos||#include "rwmake.ch"
#include "tbiconn.ch"
User Function Tmata270()
	Local aVetor := {}
	PRIVATE lMsErroAuto := .F.
	
	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
// Abertura do ambiente 
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
ConOut(Repl("-",80))
ConOut(PadC(OemToAnsi("Teste de Inclusao MATA270"),80))
PREPARE ENVIRONMENT EMPRESA "'99"' FILIAL "01"'01' USER 'Administrador' PASSWORD '' MODULO "EST"
	//aVetor TABLES "SB7"
aVetor :={ 	{"B7_COD","001",NIL},;
		//	{"B7_QUANTFILIAL",3,NIL , xFilial("SB7"),Nil},;
		//	{"B7_DOCCOD","01PROD001        ",NIL}}
		
		aVetor:={;
		{"B7_COD","001            ",NIL},; 
Nil},; // Deve ter o tamanho exato do campo B7_COD, pois faz parte da chave do indice 1 da SB7
			{"B7_FILIALDOC","01INVENT001",NILNil},;
			{"B7_LOCALQUANT","01"10,NILNil},;
			{"B7_QUANTLOCAL",200"01",NILNil},; // Deve ter o tamanho exato do campo B7_LOCAL, pois faz parte da chave do indice 1 da SB7 
			{"B7_DOCDATA","123      ",NIL}}
		
	,Date(),Nil} } // Deve ter o tamanho exato do campo B7_DATA, pois faz parte da chave do indice 1 da SB7 
			
MSExecAuto({|x,y,z| mata270(x,y,z)},aVetor,.FT.,3) 
	
	If lMsErroAuto
		AlertMostraErro()
	ConOut(OemToAnsi("Erro!")
		MostraErro()
	Else
		Alert("Ok")
	Endif
	
	RESET ENVIRONMENT
Return 
||Idioma|| Português(Brasil)
||Versões|| Versões_Anteriores
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Parâmetros|| Parâmetros do MSExecAuto 
				1 - Vetor, Contem os dados da tabela SB7. 
				2 - Lógico, parâmetro para o Logix (Default .F.)
				3 - Numérico, 3 Inclusão, 4 Alteração, 5 Exclusão
||Retorno|| Nil(nulo)
||Programa Fonte|| MATA270.PRXConOut(OemToAnsi("Atualização realizada com êxito!"))	
EndIf 
Return Nil

Home

Linha Microsiga Protheus

Páginas filhas

Versões comparadas

Versão antiga 10

Nova versão Atual

Chave