Voilà le message que j'obtiens ...
Not =079=079 lue
C'est pourtant bien égal ...
Ci-dessous le code complet :
[syntax="lotusscript"]Sub Initialize
Dim s As New NotesSession
Dim dbCur As NotesDatabase
Dim vpal As NotesView
Dim vCliPlat As NotesView
Dim arg(0 To 2) As String
Dim doc As NotesDocument
Dim doccli As NotesDocument
Dim fileRead As Integer
Dim fileWrite As Integer
Dim Chemin As String
Dim PlateTraite() As String
Dim JourTraite () As String
Dim TourneTraite () As String
Dim t_pltfDejaMax As Integer
Dim tournee As String
Dim jour As String
Dim Filw As String
Dim OkModif As Integer, OkNouveau As Integer
Dim FileTaille As Long, FilePos As Long
Set dbCur = s.currentDatabase
Set vpal = dbcur.getView("Vpaljouract")
Set vCliPlat = dbcur.getView("Vcliplat")
t_pltfDejaMax = -1
i_p = 0
RepStr = "C:\"
Print "Intégration fichier acteos"
fileRead = Freefile()
chemin = repStr+"logivif.txt"
Open chemin For Input As fileRead
fileWrite = Freefile()
filw = "C:\logMPO.txt"
Open filw For Output As fileWrite
Do Until Eof(fileRead)
Line Input #fileRead, ligStr
codeE = Mid(ligStr,1,1)
If codeE = "E" Then
codeexpe = Mid(ligStr,2,12)
'blanc = Mid(ligStr,14,1)
tournee = Mid(ligStr,14,5)
NumCom = Mid(ligStr,19,17)
TiersFact = Mid(ligStr,36,12)
jour = Mid(ligStr,48,8)
HeureDep = Mid(ligStr,56,4)
DateLiv = Mid(ligStr,60,8)
Transp = Mid(ligStr,68,12)
CodeSite = Mid(ligStr,80,8)
client = Mid(ligStr,88,17)
LibCli = Mid(ligStr,105,30)
ClientFac = Mid(ligStr,135,17)
CatCli = Mid(ligStr,152,2)
Enseigne = Mid(ligStr,154,10)
PaysDest = Mid(ligStr,164,3)
DepDest = Mid(ligStr,167,3)
CPDest = Mid(ligStr,170,6)
LibCommune = Mid(ligStr,176,30)
TypeMouv = Mid(ligStr,206,2)
Incoterm = Mid(ligStr,208,3)
Blanc2 = Mid(ligStr,211,1)
NatProd = Mid(ligStr,211,4)
Poids = Mid(ligStr,216,10)
Qt4 = Mid(ligStr,226,10)
NbPalette = Mid(ligStr,236,10)
Fin = Right(ligStr,129)
Set doccli = vCliPlat.GetDocumentByKey(Trim(client),True)
If Not doccli Is Nothing Then
If t_pltfDejaMax = -1 Then
arg(0) = Trim(tournee)
arg(1) = Trim(jour)
arg(2) = Trim(doccli.CliTriCo7(0))
Else
For i_p = 0 To t_pltfDejaMax
If Not (platetraite(i_p)) = doccli.CliTriCo7(0) Then
Msgbox "1"
If jourtraite(i_p) = jour Then
Msgbox "3"
If tournetraite(i_p)= tournee Then
Msgbox "5"
Else
Msgbox "6"
End If
Else
Msgbox "4"
End If
Else
Msgbox "not =" & platetraite(i_p) & "=" & doccli.CliTriCo7(0)&" lue"
End If
'If Not platetraite(i_p) = Trim(doccli.CliTriCo7(0)) And jourtraite(i_p) = jour And tournetraite(i_p)= tournee Then
' arg(0) = Trim(tournee)
' arg(1) = Trim(jour)
' arg(2) = Trim(doccli.CliTriCo7(0))
'Else
Erase arg
' End If
' End If
Next
End If
Else
arg(0) = Trim(tournee)
arg(1) = Trim(jour)
arg(2) = Trim(client)
End If
Set doc = vpal.GetDocumentByKey(arg, True)
If Not doc Is Nothing Then
nbpal = codeE & codeexpe & blanc & tournee & numcom & tiersfact & jour & heuredep & dateliv & _
transp & codesite & client & libcli & clientfac & catcli & enseigne & paysdest & depdest & _
cpdest & libcommune & typemouv & incoterm & blanc2 & natprod & poids & qt4 & _
Right("0000000000" & doc.palnombre(0), 10) & fin
'po = Left(ligStr,236) & "452" & Right(ligStr,Len(ligStr)-236)
Print #filewrite,nbpal
t_pltfDejaMax = t_pltfDejaMax + 1
Redim Preserve platetraite(t_pltfDejaMax)
Redim Preserve jourtraite(t_pltfDejaMax)
Redim Preserve tournetraite(t_pltfDejaMax)
platetraite(t_pltfDejaMax) = Trim(doccli.CliTriCo7(0))
jourtraite(t_pltfDejaMax) = Trim(jour)
tournetraite(t_pltfDejaMax)= Trim(tournee)
Else
Print #filewrite,ligstr
End If
Else
Print #filewrite, ligStr
End If
Loop
Close fileread
Close filewrite
Print "Importation acteos terminée."
Exit Sub
GestErreur :
Print "Error" & Str(Err) & ": " & Error$
Exit Sub
End Sub[/syntax]
Une piste ?
Encore merci
