ExecAuto LOJA110

Exemplo de Rotina para utilizar o ExecAuto do LOJA110.

User Function Lj110Auto()
Local aCabecSB1 := {} //Dados do SB1
Local aItensSB0 := {} //Dados do SB0
Local nOpcao := 3 //Tipo de operacao (3=Inclusao; 4=Alteracao; 5=Exclusao)

Private lMsErroAuto := .F.

//Informacoes da tabela SB1
aAdd( aCabecSB1, { "B1_COD", "000001", Nil } ) //Codigo do produto
aAdd( aCabecSB1, { "B1_DESC", "PRODUTO 1", Nil } ) //Dewcricao do Produto
aAdd( aCabecSB1, { "B1_TIPO", "PA", Nil } ) //Tipo do produto
aAdd( aCabecSB1, { "B1_UM", "UN", Nil } ) //Unidade de medida
aAdd( aCabecSB1, { "B1_LOCPAD", "01", Nil } ) //Armazem Padrao

//Informacoes da tabela SB0
aAdd( aItensSB0, {} )
aAdd( aItensSB0[1], { "B0_PRV1", 100, Nil } ) //Preco de venda 1
aAdd( aItensSB0[1], { "B0_PRV2", 150, Nil } ) //Preco de venda 2

//Chamada Rotina automatica
MSExecAuto( {|X,Y,Z| LOJA110(X,Y,Z)}, aCabecSB1, aItensSB0, nOpcao )

//Verifica se houve erro durante a execucao
If lMsErroAuto
DisarmTransaction()

//Mostra o erro ocorrido
MostraErro()
EndIf

Return