Aller directement au contenu principal

Synchroniser, exporter et télécharger

Structure

SyncExportAndUpload(sSyncMapName, sEquipFilter, sService, sFolder, sLocalArchiveFolder, bLab, bOverwrite, bAllowAuth)

Paramètres

| Paramètre | Type | Description
| sSyncMapName | Chaîne de caractères | Nom de la carte de synchronisation à utiliser - il doit s'agir d'une carte de synchronisation liée à l'exportation | mapsEquipFilter | Chaîne de caractères | Requête SQL définissant le filtre des ressources à exporter. La requête SQL doit respecter le format indiqué dans l'exemple ci-dessous (commençant par « FROM GAGES WHERE ») :

FROM GAGES WHERE COMPANY = 'ABC COMPANY'sService | Chaîne | nom du service cloud, doit être soit BOX soit DROPBOXsFolder | Chaîne | dossier cloud dans lequel les fichiers ZIP de synchronisation doivent être téléchargéssLocalArchiveFolder | | Nom du dossier d'archivage local (facultatif)bLab | Booléen | True si « Action effectuée par » est « Lab/Central ». Faux si « Action effectuée par » est « Client/RemotebOverwrite | Booléen | Si True, le fichier dans le cloud peut être écrasé si un fichier correspondant exactement existe déjà | bAllowAuth | Booléen | Si True, les identifiants de connexion au cloud peuvent être demandés, si nécessaire |

Valeur de retour

Chaîne

Description

Cette fonction est liée à la synchronisation des cartes telle qu'elle est configurée dans IndySoft DataSync - Options. Cette fonction exporte un ensemble de ressources et les télécharge vers le cloud en suivant une carte de synchronisation, tout en autorisant des exceptions selon divers critères.

Exemple

sCompany = « 100003 »

if tdDoSQLRecords(1, "SELECT VARIABLE_DATE FROM COMPANY_VARS WHERE COMPANY = '" & sCompany & "' AND VARIABLE_NAME = 'LAST EXPORT DATE'") then

dtCompanyLastExport = tdFieldByNameAsDateTime(1, "VARIABLE_DATE")

Sinon

dtCompanyLastExport = 0

RunSQL("INSERT INTO COMPANY_VARS (COMPANY, VARIABLE_NAME) VALUES ('" & sCompany & "', 'LAST EXPORT DATE')")

Fin Si

sSyncMapName = "TEST1"

sEquipFilter = "FROM GAGES WHERE COMPANY = '" & sCompany & "' AND LAST_MODIFIED_DATE >= '" & FormatDateTimeForSQL(dtCompanyLastExport) & "'"

sService = "DROPBOX"

sFolder = sCompany

sLocalArchiveFolder = "C:\Temp\Uploaded" & sCompany

bLab = True

bOverwrite = True

bAllowAuth = True

sResult = SyncExportAndUpload(sSyncMapName, sEquipFilter, sService, sFolder,

sLocalArchiveFolder, bLab, bOverwrite, bAllowAuth)

DebugLog(sResult)

SendEMail("notreal@notgmail.com", "", "", "Résultats de SyncExportAndUpload", "", "SYNCMAP", sResult, False, False)

Compatibilité des applications

Gestion de l'étalonnage IndySoft, Gestion des laboratoires commerciaux IndySoft, Gestion des outils IndySoft |