Dashboard y Biblioteca SAP Business One

SAPbobsCOM.Company oCompany = new SAPbobsCOM.Company();
oCompany.Server = "SAP-SERVER";
oCompany.CompanyDB = "SBODEMO_PERU";
oCompany.UserName = "manager";
oCompany.Password = "1234";
oCompany.DbServerType = SAPbobsCOM.BoDbServerTypes.dst_MSSQL2019;

int lRetCode = oCompany.Connect();
if (lRetCode != 0) {
    Console.WriteLine("Error: " + oCompany.GetLastErrorDescription());
}

// Después de usar un objeto COM (ej. oInvoice)
if (oInvoice != null) {
    System.Runtime.InteropServices.Marshal.ReleaseComObject(oInvoice);
    oInvoice = null;
}
GC.Collect(); // Forzar recolección de basura

• ¡CRÍTICO! Si no liberas los objetos COM, el proceso (o el cliente SAP) tendrá fugas de memoria y se colgará.

int lRetCode = oDocument.Add();
if (lRetCode != 0) {
    string errorMsg;
    oCompany.GetLastError(out lRetCode, out errorMsg);
    throw new Exception($"Error SAP: {lRetCode} - {errorMsg}");
}

try {
    oCompany.StartTransaction();
    
    // ... (código que crea factura, ej. oInvoice.Add()) ...

    if (oCompany.InTransaction) {
        oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit);
    }
} catch (Exception) {
    if (oCompany.InTransaction) {
        oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_RollBack);
    }
}

• Usa esto para documentos que crean asientos contables (Facturas, Pagos) para asegurar la integridad (Todo o Nada).

SAPbobsCOM.BusinessPartners oBP;
oBP = (SAPbobsCOM.BusinessPartners)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners);
oBP.CardCode = "C-NUEVO-01";
oBP.CardName = "Cliente de Prueba";
oBP.CardType = SAPbobsCOM.BoCardTypes.cCustomer;
oBP.GroupCode = 100; // Asumiendo 100 es el grupo "Clientes"
oBP.Add();
// (No olvidar manejo de errores y liberar COM)

SAPbobsCOM.BusinessPartners oBP;
oBP = (SAPbobsCOM.BusinessPartners)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners);
if (oBP.GetByKey("C-NUEVO-01")) { // ¡Importante buscarlo primero!
    oBP.Phone1 = "999-888-777";
    oBP.EmailAddress = "test@cliente.com";
    oBP.Update();
}

SAPbobsCOM.Documents oInvoice;
oInvoice = (SAPbobsCOM.Documents)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices);
oInvoice.CardCode = "C-NUEVO-01";
oInvoice.DocDate = DateTime.Now;

// Línea 1
oInvoice.Lines.ItemCode = "ITEM001";
oInvoice.Lines.Quantity = 10;
oInvoice.Lines.Price = 150.0;
oInvoice.Lines.Add();

// Línea 2
oInvoice.Lines.ItemCode = "ITEM002";
oInvoice.Lines.Quantity = 5;
oInvoice.Lines.Price = 300.0;
oInvoice.Lines.Add();

oInvoice.Add();
// (Usar Transacciones, Manejo de Errores y Liberar COM)

SAPbobsCOM.Documents oOrder;
oOrder = (SAPbobsCOM.Documents)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders);
if (oOrder.GetByKey(1234)) { // 1234 = DocEntry del Pedido
    oOrder.Close();
}

• Usa `.Close()` para cerrar documentos. Usa `.Cancel()` para anularlos (si se permite).

SAPbobsCOM.Recordset oRecordset;
oRecordset = (SAPbobsCOM.Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
string sql = "SELECT CardName, Balance FROM OCRD WHERE CardCode = 'C-NUEVO-01'";
oRecordset.DoQuery(sql);

if (!oRecordset.EoF) { // EoF = End of File
    string name = oRecordset.Fields.Item("CardName").Value.ToString();
    double balance = (double)oRecordset.Fields.Item("Balance").Value;
}
// (Liberar COM para oRecordset)

• Seguridad: ¡Nunca uses SQL concatenado con input del usuario! (`sql = "..." + txtBox.Text`). Es un riesgo de Inyección SQL. Usa parámetros si es posible o limpia la entrada.

SAPbobsCOM.UserFieldsMD oUserField;
oUserField = (SAPbobsCOM.UserFieldsMD)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields);
oUserField.TableName = "OITM"; // Tabla de Artículos
oUserField.Name = "MiCampoExtra";
oUserField.Description = "Mi Campo Extra";
oUserField.Type = SAPbobsCOM.BoFieldTypes.db_Alpha;
oUserField.EditSize = 50;
oUserField.Add();

// POST https://sap-server:50000/b1s/v1/Login
{
    "CompanyDB": "SBODEMO_PERU",
    "UserName": "manager",
    "Password": "1234"
}
// Respuesta: Devuelve una Cookie (B1SESSION)

• Guarda la `B1SESSION` y el `ROUTEID` devueltos en la Cookie. Debes enviarlos de vuelta en el Header de *todas* las siguientes peticiones.

// POST .../b1s/v1/Orders
{
    "CardCode": "C-NUEVO-01",
    "DocDueDate": "2025-11-10",
    "Comments": "Pedido desde E-commerce",
    "DocumentLines": [
        { "ItemCode": "ITEM001", "Quantity": 10 },
        { "ItemCode": "ITEM002", "Quantity": 5 }
    ]
}

• Service Layer es transaccional por defecto. Si una línea falla, todo el documento falla (Rollback automático).

// POST .../b1s/v1/Invoices
{
    "CardCode": "C001", "DocDueDate": "2025-11-10",
    "DocumentLines": [
        {
            "BaseType": 17, // 17 = Pedido (ORDR)
            "BaseEntry": 1234, // DocEntry del Pedido
            "BaseLine": 0 // Número de línea del Pedido
        },
        {
            "BaseType": 17,
            "BaseEntry": 1234,
            "BaseLine": 1
        }
    ]
}

• Usar `BaseType`, `BaseEntry` y `BaseLine` es la forma correcta de "copiar de" un documento a otro y mantener la referencia.

// PATCH .../b1s/v1/Orders(1234)
{ "Comments": "Nuevo comentario del cliente." }

• Usa `PATCH` (no `PUT`) para actualizaciones parciales. `PATCH` solo actualiza los campos que envías. `PUT` reemplaza el objeto entero.

// PATCH .../b1s/v1/Orders(1234)
{
    "DocumentLines": [
        {
            "LineNum": 1, // Línea que queremos cerrar
            "LineStatus": "bost_Close"
        }
    ]
}

// GET .../b1s/v1/BusinessPartners('C-NUEVO-01')?$select=CardName,Balance,EmailAddress

• ¡La práctica #1! Nunca pidas el objeto completo (`*`). Pide solo los campos que necesitas con `$select`.

// GET .../b1s/v1/Items?$filter=ItemsGroupCode eq 102 and Price gt 100

• Usa `$filter` (el `WHERE`) para filtrar en el servidor, no en tu app.

// GET .../b1s/v1/Invoices?$top=20&$skip=40
// Trae 20 facturas, saltándose las primeras 40 (Página 3)

// GET .../b1s/v1/Orders(1234)?$expand=DocumentLines

• Por defecto, SL no trae las líneas. Usa `$expand` para forzar que las incluya.

// GET .../b1s/v1/sml.svc/MY_QUERY_NAME
// (Asumiendo que creaste un "Query" o "Vista" en B1)

// En el Main() de tu Add-on .exe
SAPbouiCOM.SboGuiApi oGuiApi = new SAPbouiCOM.SboGuiApi();
string sConnectionString = Environment.GetCommandLineArgs().GetValue(1).ToString();
oGuiApi.Connect(sConnectionString);
SAPbouiCOM.Application SBO_Application = oGuiApi.GetApplication();

// Conectarse a la DI-API (para transacciones)
oCompany = (SAPbobsCOM.Company)SBO_Application.Company.GetDICompany();

• Un Add-on siempre recibe la "connection string" como argumento de línea de comandos.
• Usa `GetDICompany()` para obtener la conexión DI-API sin pedirle la contraseña al usuario de nuevo.

// Suscribirse al evento
SBO_Application.ItemEvent += SBO_Application_ItemEvent;

//...
private void SBO_Application_ItemEvent(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
    BubbleEvent = true;
    
    // Si es un clic, en el form de Factura (133), en el botón "Crear" (1)
    if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED &&
        pVal.FormType == 133 && pVal.ItemUID == "1" && pVal.BeforeAction)
    {
        // ... poner aquí la lógica de validación ...
        
        // SBO_Application.MessageBox("¡Validación falló!");
        // BubbleEvent = false; // Esto cancela el clic
    }
}

• ¡Usa `pVal.BeforeAction == true`! Esto te permite capturar el evento *antes* de que SAP B1 lo procese.
• Poner `BubbleEvent = false` es la forma de "cancelar" la acción nativa de SAP (ej. impedir que se cree la factura).

// Obtener el formulario activo
SAPbouiCOM.Form oForm = SBO_Application.Forms.ActiveForm;

// Obtener el campo (EditText) por su UID
SAPbouiCOM.EditText oCardCode = (SAPbouiCOM.EditText)oForm.Items.Item("4").Specific;
SAPbouiCOM.EditText oComments = (SAPbouiCOM.EditText)oForm.Items.Item("16").Specific;

// Leer valor
string cliente = oCardCode.Value;

// Escribir valor
oComments.Value = "Valor puesto por mi Add-on";

// (Capturar el evento de Form_Load para el form de BP: 134)
SAPbouiCOM.Form oForm = SBO_Application.Forms.GetForm("134", pVal.FormUID);

SAPbouiCOM.Item oNewItem;
oNewItem = oForm.Items.Add("MiBoton", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
oNewItem.Left = oForm.Items.Item("2").Left + oForm.Items.Item("2").Width + 10;
oNewItem.Top = oForm.Items.Item("2").Top;
oNewItem.Width = 100;

SAPbouiCOM.Button oButton = (SAPbouiCOM.Button)oNewItem.Specific;
oButton.Caption = "Acción Custom";

• Añade tus items en el evento `et_FORM_LOAD` cuando `pVal.BeforeAction == false` (después de que el form se haya cargado).