Révision 4 LicensesMercure/UFInvoice.pas

Voir les différences:

UFInvoice.pas
128 128 
          FieldByName('FinalDate').AsDateTime := FMenu.DateLimite;
129 129 
          FieldByName('SoftwareEnableKey').AsString := FMenu.CompleteKey(FieldByName('LicenseNumber').AsInteger, FieldByName('Version').AsString, FieldByName('FirstName').AsString, FieldByName('LastName').AsString, FieldByName('Company').AsString, FieldByName('VolumeSerialNumber').AsString, DateToStr(FMenu.DateLimite));
130 130 
          try
131 
            f := TIniFile.Create(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic');
131 
            f := TIniFile.Create(TempFolder + '\InraPorc.lic');
132 132 
            f.WriteInteger ('License', 'LicenseType', 2);
133 133 
            f.WriteInteger ('License', 'LicenseNumber', FieldByName('LicenseNumber').AsInteger) ;
134 134 
            f.WriteString ('License', 'Version', FieldByName('Version').AsString);
......
180 180 
                Body.AddStrings(StrMessage);
181 181 
              end;
182 182 
              StrMessage.Free;
183 
              if FileExists(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic')
183 
              if FileExists(TempFolder + '\InraPorc.lic')
184 184 
              then
185 
                TIdAttachmentFile.Create(MessageParts, SHARED_DRIVE + SHARED_FOLDER + '\Fichiers\InraPorc.lic')
185 
                TIdAttachmentFile.Create(MessageParts, TempFolder + '\InraPorc.lic')
186 186 
              else
187 
                FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be attached !');
187 
                FMenu.MLog.Lines.Add('File InraPorc.lic could not be attached !');
188 188 
            end;
189 189 
            FMenu.MLog.Lines.Add('SMTP...');
190 190 
            try
......
208 208 
            except
209 209 
              FMenu.MLog.Lines.Add('Message could not be sent !');
210 210 
            end;
211 
            if not DeleteFile(SHARED_DRIVE + SHARED_FOLDER + 'Fichiers\InraPorc.lic')
211 
            if not DeleteFile(TempFolder + '\InraPorc.lic')
212 212 
            then
213 
              FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be deleted !');
213 
              FMenu.MLog.Lines.Add('File InraPorc.lic could not be deleted !');
214 214 
          except
215 
            FMenu.MLog.Lines.Add('File Fichiers\InraPorc.lic could not be created !');
215 
            FMenu.MLog.Lines.Add('File InraPorc.lic could not be created !');
216 216 
          end;
217 217 
        end;
218 218 
        Post;

Formats disponibles : Unified diff