Modo de uso

A continuación se presentan ejemplos sobre cómo enviar registros al servidor y cómo obtener operaciones realizadas desde la última consulta.

tip

Para una implementación rápida, utilice nuestro código 📌 Boilerplate.
Estos ejemplos están diseñados para facilitar la integración y contienen la estructura básica y completa para el uso de la DLL.

Envío de registros

Para enviar los registros de sus tablas al servidor, siga estos pasos:

1. Obtenga los registros de su base de datos.
2. Itere sobre cada registro:
   1. Cree una nueva instancia de la clase correspondiente (según la tabla).
      En el ejemplo se utiliza: Client.
   2. Asigne a cada propiedad de la clase los valores del registro.
   3. Añada cada registro a Records.
3. Envíe los registros utilizando UpdateRecords().

VB 6.0

Ejemplo

Dim AppSyncHelper As New MeridianoSoftApp.AppSyncHelper
Dim records As New MeridianoSoftApp.records
Dim client As Object

Dim token As String
token = "su-token-privado"


' Ejemplo, enviando solo tabla "clients"
' (repetir este proceso para el resto de tablas que desee enviar)


' Obtener registros de su base de datos
' ...


' Iterar por cada registro y agregar a records
Set client = New MeridianoSoftApp.client

client.ClientId = 1
client.LegalName = "Carrefour"
client.Address = "Cordoba 1000"

records.AddClient client


' Actualizar registros en el servidor
AppSyncHelper.UpdateRecords(token, records);

VB .NET

Ejemplo

Dim AppSyncHelper As New MeridianoSoftApp.AppSyncHelper
Dim records As New MeridianoSoftApp.records

Dim token As String = "su-token-privado"


' Ejemplo, enviando solo tabla "clients"
' (repetir este proceso para el resto de tablas que desee enviar)


' Obtener registros de su base de datos
' ...


' Iterar por cada registro y agregar a records
Dim client = New MeridianoSoftApp.Client With {
  .ClientId = 1,
  .LegalName = "Carrefour",
  .Address = "Cordoba 1000"
}

records.AddClient(client)


' Actualizar registros en el servidor
AppSyncHelper.UpdateRecords(token, records);

Delphi

Ejemplo

var
  AppSyncHelper: _AppSyncHelper;
  Records: _Records;
  token: String;

AppSyncHelper := CoAppSyncHelper.Create();
Records := CoRecords.Create();

token := "su-token-privado";


// Ejemplo, enviando solo tabla "clients"
// (repetir este proceso para el resto de tablas que desee enviar)


// Obtener registros de su base de datos
// ...


// Iterar por cada registro y agregar a records
Client := CoClient.Create();

Client.ClientId := 1;
Client.LegalName := 'Carrefour';
Client.Address := 'Cordoba 1000';

Records.AddClient(Client);


// Actualizar registros en el servidor
AppSyncHelper.UpdateRecords(token, records);

Obtención de operaciones

El término "operaciones" se refiere a nuevos clientes, pedidos o cobranzas generados en la aplicación móvil o en el sitio web.

Para obtener las operaciones realizadas desde su última consulta, siga estos pasos:

1. Obtenga las actualizaciones utilizando GetUpdates().
2. Itere por cada tipo de operación (newClient, order, paymentCollection).
3. Actualize el estado de las operaciones obtenidas a "Procesado" utilizando MarkAsProcessed().

VB 6.0

Ejemplo

Dim AppSyncHelper As New MeridianoSoftApp.AppSyncHelper
Dim operations As New MeridianoSoftApp.operations
Dim I As Long

Dim newClient As New MeridianoSoftApp.newClient
Dim order As New MeridianoSoftApp.order
Dim paymentCollection As New MeridianoSoftApp.paymentCollection

Dim token As String
token = "su-token-privado"


Public Sub RetrieveAppOperations()
  On Error GoTo ErrorHandler

  ' Obtener nuevas operaciones
  Set operations = AppSyncHelper.GetUpdates(token)
  	
  ' No hay nuevas operaciones
  If Operations.HasOperations = False Then
    MsgBox "No existen nuevas operaciones.", vbExclamation
    Exit Sub
  End If


  ' Iterar por cada nuevo cliente
  For I = 0 To Operations.newClientsCount - 1
    Set newClient = operations.GetNewClientByIndex(I)

    ' Insertar en la base de datos
    ' ...

    MsgBox "Nuevo cliente: " & newClient.legalName
  Next


  ' Iterar por cada nuevo pedido
  ' ...


  ' Iterar por cada nueva cobranza
  ' ...


  ' Actualizar estado de las operaciones obtenidas a: "Procesado"
  Call AppSyncHelper.MarkAsProcessed(token, operations)


  Exit Sub

  ' En caso de error:
  ErrorHandler:

    MsgBox "Ha ocurrido un error: " & Err.Description, vbExclamation

End Sub

VB .NET

Ejemplo

Dim AppSyncHelper As New MeridianoSoftApp.AppSyncHelper
Dim operations As New MeridianoSoftApp.operations
Dim I As Long

Dim newClient As New MeridianoSoftApp.newClient
Dim order As New MeridianoSoftApp.order
Dim paymentCollection As New MeridianoSoftApp.paymentCollection

Dim token As String = "su-token-privado"


Public Sub RetrieveAppOperations()
  Try

    ' Obtener nuevas operaciones
    operations = AppSyncHelper.GetUpdates(token)
  	
    ' No hay nuevas operaciones
    If operations.HasOperations = False Then
      MsgBox "No existen nuevas operaciones.", vbExclamation
      Exit Sub
    End If


    ' Iterar por cada nuevo cliente
    For I = 0 To Operations.newClientsCount - 1
      Set newClient = operations.GetNewClientByIndex(I)

      ' Insertar en la base de datos
      ' ...

      MsgBox "Nuevo cliente: " & newClient.legalName
    Next


    ' Iterar por cada nuevo pedido
    ' ...


    ' Iterar por cada nueva cobranza
    ' ...


    ' Actualizar estado de las operaciones obtenidas a: "Procesado"
    Call AppSyncHelper.MarkAsProcessed(token, operations)


  Catch ex As Exception

    MsgBox "Ha ocurrido un error: " & Err.Description, vbExclamation

  End Try
End Sub

Delphi

Ejemplo

procedure RetrieveAppOperations();
var
  AppSyncHelper: _AppSyncHelper;
  Operations: _Operations;
  I: Integer;
  token: String;

  NewClient: _NewClient;
  Order: _Order;
  PaymentCollection: _PaymentCollection;

begin
  try
    AppSyncHelper := CoAppSyncHelper.Create();
    token := "su-token-privado";

    // Obtener nuevas operaciones
    Operations := AppSyncHelper.GetUpdates(token);


    // No hay nuevas operaciones
    if Operations.HasOperations = False then
    begin
      ShowMessage('No hay nuevas operaciones.');
      exit;
    end;


    for I := 0 to Operations.newClientsCount - 1 do
    begin
      NewClient := Operations.GetNewClientByIndex[NewClientsForCounter];

      // Insertar en la base de datos
      // ...

      ShowMessage('Nuevo cliente: ' + newClient.legalName);
    end;


    // Iterar por cada nuevo pedido
    // ...


    // Iterar por cada nueva cobranza
    // ...


    // Actualizar estado de las operaciones obtenidas a: "Procesado"
    AppSyncHelper.MarkAsProcessed(token, Operations);


  except
    on E: Exception do
      begin

        ShowMessage('Error al obtener actualizaciones: ' + E.Message);

      end;
  end;
End Sub