MacroFacili: Da query SAP a Excel

Un esempio che mostra come richamare una query da SAP ed estrarne i dati utilizzando la nostra classe di interfacciamento.

Se la query non è in un gruppo utenti saranno sufficienti queste righe di codice:

' richiama la query
FinSAP.Transazione ("SQ00")
FinSAP.Campo("RS38R-QNUM") = "ANALISI_CLIENTE"
FinSAP.Esegui

' compila i campi ed esegue
FinSAP.Campo("CLI-LOW") = IdCliente
FinSAP.Esegui

Nel caso in cui la query sia contenuta in un gruppo utenti dovremmo prima selezionare questo, cosa resa immediata da due funzioni della nostra classe: TastoFunzione e ScegliVoceSuElenco, il codice in questo caso sarà questo:

' richiama la query
FinSAP.Transazione ("SQ00")
FinSAP.TastoFunzione ("Shift+F7") ' richiama la finestra dei Gruppi Utenti
FinSAP.ScegliVoceSuElenco ("SD") ' sceglie il gruppo utnenti
FinSAP.Campo("RS38R-QNUM") = "ANALISI_CLIENTE"
FinSAP.Esegui

' compila i campi ed esegue
FinSAP.Campo("CLI-LOW") = IdCliente
FinSAP.Esegui

Un esempio di codice completo:

Sub Leggi_Analisi_Cliente()
  Set Wba = ActiveWorkbook
  Set Fa = Wba.Sheets("Dati")
  Fa.Activate

  Fa.Range("C17").ClearContents
  IdCliente = Fa.Range("IdCliente")

  ' crea la classe e la transazione
  Dim FinSAP As New Mf_ScriptSAP
  FinSAP.Apri_Sessione

  ' verifica che l'interfaccia di sap sia disponibile
  If (FinSAP.NonAttiva) Then
    MsgBox "Deve essere avviato SAP per poter eseguire la macro."
    Exit Sub
  Else
    ' ritorna al menu principale
    FinSAP.Esci

    ' richiama la query
    FinSAP.Transazione ("SQ00")
    FinSAP.TastoFunzione ("Shift+F7") ' richiama la finestra dei Gruppi Utenti
    FinSAP.ScegliVoceSuElenco ("SD") ' sceglie il gruppo utnenti
    FinSAP.Campo("RS38R-QNUM") = "ANALISI_CLIENTE"
    FinSAP.Esegui

    ' compila i campi ed esegue
    FinSAP.Campo("CLI-LOW") = IdCliente
    FinSAP.Esegui

    Dim ce As Range
    Set ce = Fa.Range("C17")
    FinSAP.EsportaGriglia Posizione:=ce

    ' ritorna al menu principale
    FinSAP.Esci
  End If
End Sub