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

Wiki Markup

||Descrição|| Rotina automatica MyMata270 (MATA270)
  
||Observações|| Essa rotina permite o registro de qualquer movimento no inventario.
||Exemplos||#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function MyMata270 //U_MYMATA270()    
	

Local aVetor := {}
	PRIVATE lMsErroAuto := .F.	
	
	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
	//| Abertura do ambiente                                         |
	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
	ConOut(Repl("-",80))
	ConOut(PadC(OemToAnsi("Teste de Inclusao MyMata270MATA270"),80))
	PREPARE ENVIRONMENT EMPRESA '99' FILIAL '01' USER 'Administrador' PASSWORD '' MODULO "COMEST" TABLES "SB7"
	
	aVetor := 	{;
			{"B7_FILIAL" , xFilial("SB7"),Nil},;
			{"B7_COD","002PROD001        ",Nil},; // Deve ter o tamanho exato do campo B7_COD, pois faz parte da chave do indice 1 da SB7
			{"B7_DOC","Inventario 001INVENT001",Nil},;
			{"B7_QUANT",10,Nil},;
			{"B7_LOCAL","01",Nil},; // Deve ter o tamanho exato do campo B7_LOCAL, pois faz parte da chave do indice 1 da SB7 
			{"B7_DATA",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
		MostraErro()
		ConOut(OemToAnsi("Erro!"))
	Else
		ConOut(OemToAnsi("CadastradoAtualização realizada com sucessoêxito!"))	
	EndifEndIf 
		
Return Nil 

||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Versões_Anteriores
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| Vetor, Lógico, Numérico.
||Retorno|| Nil(nulo)
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte|| MATA270.PRX

Home

Linha Microsiga Protheus

Páginas filhas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave