User Function MyMata360() //DEFININDO variáveis Local aItemAux := {} //Array auxiliar para inserção dos itens Local aCabecalho := {} //Array do cabeçalho (SE4) Local aItens := {} //Array que irá conter os itens (SEC) Private lMsErroAuto := .F. //Indicador do status pós chamada //Populando Cabeçalho aAdd(aCabecalho, {“E4_CODIGO” , “811”, Nil}) aAdd(aCabecalho, {“E4_TIPO”, “B”, Nil} ) aAdd(aCabecalho, {“E4_COND”, “16”, Nil} ) aAdd(aCabecalho, {“E4_DESCRI”, “Descricao”, Nil} ) //Populando Item auxiliar aAdd(aItemAux, {“EC_ITEM”, “01”, Nil} ) aAdd(aItemAux, {“EC_TIPO”, “2”, Nil} ) aAdd(aItemAux, {“EC_COND”, “3”, Nil} ) aAdd(aItemAux, {“EC_IPI”, “N”, Nil} ) aAdd(aItemAux, {“EC_DDD”, “D”, Nil} ) aAdd(aItemAux, {“EC_SOLID”, “N”, Nil} ) aAdd(aItemAux, {“EC_RATEIO”, 100.00, Nil} ) aAdd(aItens, aItemAux) //Chamando rotina automática de inclusão MSExecAuto({|x,y,z|mata360(x,y,z)},aDados,aItens, 3) //Verificando status da rotina executada If !lMsErroAuto ConOut(“Incluido com sucesso”) Else ConOut(“Erro na inclusão”) EndIf Return |