Ejemplos | User Function MyMata360() //DEFININDO variáveis Local aItemAux := {} //Array auxiliar para incluir los ítems Local aCabecalho := {} //Array del encabezado (SE4) Local aItens := {} //Array que contendrá los ítems (SEC) Private lMsErroAuto := .F. //Indicador del estatus después de la llamada //Completando el encabezado 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) //Llamando la rutina automática de inclusión MSExecAuto({|x,y,z|mata360(x,y,z)},aDados,aItens, 3) //Verificando el estatus de la rutina ejecutada If !lMsErroAuto ConOut(“Incluyendo con éxito”) Else ConOut(“Error al incluir”) EndIf Return |