Prev: Radiobutton in a group
Next: lterative to VO
From: Kevin on 7 May 2010 11:44
Hi,

Can someone test the code below and tell me what I am doing wrong?

The code to create the bArrayServer and order (_SetupMailDB() ) does not
generate any error.

When an attempt to add the second record is made the Append fails but I
cannot figure out why. As far as I know I have not requested a unique
order. If I leave out the order the records are added without problem.
Trying to create the order after adding the records produces only one
record.

odbmail:errinfo:description is just a null_string.

VO2837
bBrowser 3

Thanks in advance.

Kevin


Function SetupMailDB()
//
// Setup the mail database
//
local oDBMail as bArrayServer
local aStruc as array
local dDate as date
local cTime as string
local cSubject as string
local iCount as int

// Mail DB structure
aStruc := {;
{ "MailDate", "D", 8, 0}, ;
{ "MailTime", "C", 8, 0}, ;
{ "Attachments", "C", 1, 0}, ;
{ "Priority", "N", 2, 0}, ;
{ "Sender", "C", 40, 0}, ;
{ "Receipient", "C", 40, 0}, ;
{ "Subject", "C", 150, 0} ;
}

oDBMail := bArrayServer{ aStruc, {} }
oDBMail:CreateOrder( "MailDate" )

dDate := Today()
cTime := Time()
cSubject := "This is a test message"

oDBMail:SuspendNotification()

for iCount := 1 upto 2
if oDBMail:RecCount = 1
dDate -= 1
cSubject := "This is the " + NTrim(oDBMail:RecCount +1) + " message."
endif

if oDBMail:Append()
oDBMail:FIELDPUT( #MailDate, dDate )
oDBMail:FIELDPUT( #MailTime, cTime )
oDBMail:FIELDPUT( #Attachments, "Y" )
oDBMail:FIELDPUT( #Priority, 3 )
oDBMail:FIELDPUT( #Sender, "from(a)isp.net" )
oDBMail:FIELDPUT( #Receipient, "you(a)anotherisp.ie" )
oDBMail:FIELDPUT( #Subject, cSubject )
oDBMail:Commit()

endif

next

oDBMail:ResetNotification()

oDBMail:GoTop()

return nil

From: Camille Kater on 7 May 2010 13:33
Kevin,

Try this:

CreateOrder("dtos(Server:MailDate)")

or

CreateOrder({|Server|Dtos(Server:MailDate)})


Camille

Kevin wrote:
> Hi,
>
> Can someone test the code below and tell me what I am doing wrong?
>
> The code to create the bArrayServer and order (_SetupMailDB() ) does not
> generate any error.
>
> When an attempt to add the second record is made the Append fails but I
> cannot figure out why. As far as I know I have not requested a unique
> order. If I leave out the order the records are added without problem.
> Trying to create the order after adding the records produces only one
> record.
>
> odbmail:errinfo:description is just a null_string.
>
> VO2837
> bBrowser 3
>
> Thanks in advance.
>
> Kevin
>
>
> Function SetupMailDB()
> //
> // Setup the mail database
> //
> local oDBMail as bArrayServer
> local aStruc as array
> local dDate as date
> local cTime as string
> local cSubject as string
> local iCount as int
>
> // Mail DB structure
> aStruc := {;
> { "MailDate", "D", 8, 0}, ;
> { "MailTime", "C", 8, 0}, ;
> { "Attachments", "C", 1, 0}, ;
> { "Priority", "N", 2, 0}, ;
> { "Sender", "C", 40, 0}, ;
> { "Receipient", "C", 40, 0}, ;
> { "Subject", "C", 150, 0} ;
> }
>
> oDBMail := bArrayServer{ aStruc, {} }
> oDBMail:CreateOrder( "MailDate" )
>
> dDate := Today()
> cTime := Time()
> cSubject := "This is a test message"
>
> oDBMail:SuspendNotification()
>
> for iCount := 1 upto 2
> if oDBMail:RecCount = 1
> dDate -= 1
> cSubject := "This is the " + NTrim(oDBMail:RecCount +1) + "
> message."
> endif
>
> if oDBMail:Append()
> oDBMail:FIELDPUT( #MailDate, dDate )
> oDBMail:FIELDPUT( #MailTime, cTime )
> oDBMail:FIELDPUT( #Attachments, "Y" )
> oDBMail:FIELDPUT( #Priority, 3 )
> oDBMail:FIELDPUT( #Sender, "from(a)isp.net" )
> oDBMail:FIELDPUT( #Receipient, "you(a)anotherisp.ie" )
> oDBMail:FIELDPUT( #Subject, cSubject )
> oDBMail:Commit()
>
> endif
>
> next
>
> oDBMail:ResetNotification()
>
> oDBMail:GoTop()
>
> return nil
>
From: Kevin on 7 May 2010 14:47
Camille,

Thanks for that. Including the 'Server:' was all that was needed.

Kevin

"Camille Kater" <katercamXXX(a)pt.lu> wrote in message
news:1273253838_5(a)vo.lu:

> Kevin,
>
> Try this:
>
> CreateOrder("dtos(Server:MailDate)")
>
> or
>
> CreateOrder({|Server|Dtos(Server:MailDate)})
>
>
> Camille
>
> Kevin wrote:
> > Hi,
> >
> > Can someone test the code below and tell me what I am doing wrong?
> >
> > The code to create the bArrayServer and order (_SetupMailDB() ) does not
> > generate any error.
> >
> > When an attempt to add the second record is made the Append fails but I
> > cannot figure out why. As far as I know I have not requested a unique
> > order. If I leave out the order the records are added without problem.
> > Trying to create the order after adding the records produces only one
> > record.
> >
> > odbmail:errinfo:description is just a null_string.
> >
> > VO2837
> > bBrowser 3
> >
> > Thanks in advance.
> >
> > Kevin
> >
> >
> > Function SetupMailDB()
> > //
> > // Setup the mail database
> > //
> > local oDBMail as bArrayServer
> > local aStruc as array
> > local dDate as date
> > local cTime as string
> > local cSubject as string
> > local iCount as int
> >
> > // Mail DB structure
> > aStruc := {;
> > { "MailDate", "D", 8, 0}, ;
> > { "MailTime", "C", 8, 0}, ;
> > { "Attachments", "C", 1, 0}, ;
> > { "Priority", "N", 2, 0}, ;
> > { "Sender", "C", 40, 0}, ;
> > { "Receipient", "C", 40, 0}, ;
> > { "Subject", "C", 150, 0} ;
> > }
> >
> > oDBMail := bArrayServer{ aStruc, {} }
> > oDBMail:CreateOrder( "MailDate" )
> >
> > dDate := Today()
> > cTime := Time()
> > cSubject := "This is a test message"
> >
> > oDBMail:SuspendNotification()
> >
> > for iCount := 1 upto 2
> > if oDBMail:RecCount = 1
> > dDate -= 1
> > cSubject := "This is the " + NTrim(oDBMail:RecCount +1) + "
> > message."
> > endif
> >
> > if oDBMail:Append()
> > oDBMail:FIELDPUT( #MailDate, dDate )
> > oDBMail:FIELDPUT( #MailTime, cTime )
> > oDBMail:FIELDPUT( #Attachments, "Y" )
> > oDBMail:FIELDPUT( #Priority, 3 )
> > oDBMail:FIELDPUT( #Sender, "from(a)isp.net" )
> > oDBMail:FIELDPUT( #Receipient, "you(a)anotherisp.ie" )
> > oDBMail:FIELDPUT( #Subject, cSubject )
> > oDBMail:Commit()
> >
> > endif
> >
> > next
> >
> > oDBMail:ResetNotification()
> >
> > oDBMail:GoTop()
> >
> > return nil
> >

From: richard.townsendrose on 8 May 2010 06:32
Kevin

Its also a good idea to then do this: barrayserver:setorder(1)

the manual describes this as:

Purpose
Activate an order from the list of the open orders.

i have had very occasional problems when NOT doing this

Richard
 | 
Pages: 1
Prev: Radiobutton in a group
Next: lterative to VO