***
** MAJ lignes de commande dans Nav
***
** Connexion à la base de données
*
hConnection = SQLConnect('NAV_Prod', '', '')
IF hConnection > 0
=SQLSetProp(hConnection, 'asynchronous', .F.)
ELSE
WAIT WINDOW ('Connexion à SQL Serveur impossible') TIMEOUT 30
SET COVERAGE TO
QUIT
ENDIF

***
** MAJ DATE dans Commande_VP
*
SELECT Commandes_VP
GO TOP
IF nType = 0 && Analyse à partir des fichiers TXT générés par VP
SKIP && ON passe l'en-tête
ENDIF

***
** Clients bloqués dans l'ERP
** Requête d'extraction du fichier LOG de Nav
*
SET TEXTMERGE on
TEXT TO vReq noshow

SELECT [Date]
,[File Name]
,[Document No_]
,[Message]
,[Line No_]
,[Customer No_]
FROM [FPMONACO].[dbo].[Bdd$EDI Error Log]
WHERE DAY([Date]) = <<DAY(DATE())>> AND MONTH([Date]) = <<MONTH(DATE())>> AND YEAR([Date]) = <<YEAR(DATE())>> AND LEFT([Message],62) = 'Vous ne pouvez pas créer ce type de document lorsque le client'

ENDTEXT
SET TEXTMERGE off
hExec = SQLExec(hConnection, vReq, 'TableSQL')
=sleep(nTime)
IF hexec <> 1
WAIT WINDOW ('Pb-1'+CHR(13)+LEFT(vReq,245)) TIMEOUT 30
SET COVERAGE TO
QUIT
ELSE
=SQLMORERESULTS(hConnection)
SELECT tableSQL
ENDIF
IF RECCOUNT() > 0
***
** Au moins un client qui a le statut de bloqué dans Nav a reçu une commande de VP !!!
*
cLigneTot = tableSQL.Message
cLigne = cLigneTot + chr(13) + "Navision a stoppé la phase d'importation."+ chr(13)+ chr(13)+"Il faut modifier le statut du client puis relancer l'importation."
ELSE
SELECT Commandes_VP
DO WHILE !EOF()
***
** Requête d'extraction de l'en-tête du devis dans Nav
*
SET TEXTMERGE on
TEXT TO vReq noshow

SELECT [No_]
,[Quote No_]
,[Sell-to Customer No_]
,[Bill-to Name]
,[Ship-to Code]
,[Ship-to Name]
,[Order Date]
,[Posting Date]
,[Shipment Date]
,[Posting Description]
,[Invoice Disc_ Code]
,[Customer Disc_ Group]
,[Salesperson Code]
,[VAT Registration No_]
,[Bill-to County]
,[Document Date]
,[External Document No_]
,[Prepayment Due Date]
,[Prepmt_ Payment Terms Code]
,[Sell-to Contact No_]
,[Customer Priority Code]
,[Inter Sector]
,[Customer Group Code]
,[VP]
,[Export Date]
FROM [FPMONACO].[dbo].[Bdd$Sales Header]
WHERE [Quote No_] = '<<ALLTRIM(Commandes_VP.No_piece)>>' OR [No_] = '<<ALLTRIM(Commandes_VP.No_piece)>>'

ENDTEXT
SET TEXTMERGE off

hExec = SQLExec(hConnection, vReq, 'TableSQL')
=sleep(nTime)
IF hexec <> 1
WAIT WINDOW ('Pb-2'+CHR(13)+LEFT(vReq,245)) TIMEOUT 30
SET COVERAGE TO
QUIT
ELSE
=SQLMORERESULTS(hConnection)
SELECT tableSQL
ENDIF

IF RECCOUNT() > 0
cLigne = cLigne + CHR(13)+ CHR(10) + ALLTRIM(tableSQL.Sell_to_customer_no_) + '|' + ALLTRIM(tableSQL.Ship_to_Name) + '|' + ALLTRIM(tableSQL.Quote_No_) + '|' + ALLTRIM(tableSQL.No_) + '|' + ALLTRIM(DTOC(tableSQL.Order_Date)) + CHR(13)+ CHR(10)
cLigne = cLigne + REPLICATE('=',LEN(ALLTRIM(tableSQL.Sell_to_customer_no_) + '|' + ALLTRIM(tableSQL.Ship_to_Name) + '|' + ALLTRIM(tableSQL.Quote_No_) + '|' + ALLTRIM(tableSQL.No_) + '|' + ALLTRIM(DTOC(tableSQL.Order_Date)))) + CHR(13)+ CHR(10)
nCommandeNav = tableSQL.No_

***
** Contrôle au niveau des lignes du devis
*
SELECT Commandes_dt_VP
// Ici tu poursuis avec le curseur généré et stocké dans TableSQL par rapport à des traitements que tu souhaites réaliser avec ta table Hyperfile