(

String longstr)

Description:

Data conversion - from String to Long Integer


Parameters:
longstr	String with long integer value

global
procedure ReadImportTagMailHistoryRecord(record MailReadVc MailReadr)
begin
  string 255 uscod,mnam,name;
    
  RecordNew(MailReadr);  
  MailReadr.mailSerNr = StringToLongInt(ImportField);
  uscod = ImportField;
  FindUserMailboxName(uscod,mnam,name);
  if (nonblank(mnam)) then begin
    MailReadr.mailBoxNr = StringToLongInt(mnam);
  end else begin
    MailReadr.mailBoxNr = StringToLongInt(uscod);
  end;
  MailReadr.accode = StringToInt(ImportField);
  MailReadr.fDate = StringToDate(ImportField);
  MailReadr.fTime = StringToTime(ImportField);
  if (MailReadr.accode==1) then begin MailReadr.accode = 0; end;      
  return;
end;


Related topics:

««