Rotina Automática para criação de Saldos Iniciais

Exemplo da Rotina:

MSExecAuto({|x, y| Mata220(x, y)}, aVetor, 3)

Exemplo 1- Incluindo um saldo inicial para um produto:

//Setando valores da rotina automática
lMsErroAuto := .F.		
aVetor :={;
	{"B9_FILIAL", FWxFilial('SB9'), Nil},;
	{"B9_COD",    "000001",         Nil},;
	{"B9_LOCAL",  "01",             Nil},;
	{"B9_QINI",   150,              Nil};
}

//Iniciando transação e executando saldos iniciais
Begin Transaction
	MSExecAuto({|x, y| Mata220(x, y)}, aVetor, 3)
	
	//Se houve erro, mostra mensagem
	If lMsErroAuto
		MostraErro()
		DisarmTransaction()
	EndIf
End Transaction

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;