Home

Linha Microsiga Protheus

Páginas filhas
  • Rotina automática MyMata270 (MATA270)

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
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:

 

NOMETIPODESCRIÇÃOOBRIGATÓRIO
aRotAutoArray of recordsArray com os itens do inventárioX
lEscolhaLógicoDefine se a contagem será a escolhidaX

 

nOpcAuto

 

Numérico

3 - Inclusão

4 - Alteração

5 - Exclusão

 

Default 3

 

Bloco de código
themeMidnight
languagedelphi
titleExemplo
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function MyMata270

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' USER 'Administrador' PASSWORD '' MODULO "EST" TABLES "SB7"
aVetor := 	{;
			{"B7_FILIAL" , xFilial("SB7"),Nil},;
			{"B7_COD","PROD001        ",Nil},; // Deve ter o tamanho exato do campo B7_COD, pois faz parte da chave do indice 1 da SB7
			{"B7_DOC","INVENT001",Nil},;
			

...

Descrição

...

Rotina automática MyMata270 (MATA270)

...

Observações

...

Essa rotina permite o registro de qualquer movimento no inventário.

...

Exemplos

...

{"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,.

...

T.,3)

...


If

...

 lMsErroAuto
	MostraErro()
	ConOut(OemToAnsi("Erro!")

...

)

...

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

...


Else
	ConOut(OemToAnsi("Atualização realizada com êxito!"))	
EndIf 
Return Nil