Re: project code

hi.

    If oJournal.GetByKey(JrnNumber) Then

                    For i AsInteger = 0 To oJournal.Lines.Count - 1

                        oJournal.Lines.SetCurrentLine(i)

                        oJournal.Lines.Reference1 = DocNumFV

                        oJournal.Lines.ReferenceDate1 = DateTime.Now

                        oJournal.Lines.Add()

                    Next i

in the above loop just change the code means just add one more line..

    If oJournal.GetByKey(JrnNumber) Then

                    For i AsInteger = 0 To oJournal.Lines.Count - 1

                        oJournal.Lines.SetCurrentLine(i)

                                oJournal.Lines.projectcdoe="yourstring"

                  '      oJournal.Lines.Reference1 = DocNumFV

                      '  oJournal.Lines.ReferenceDate1 = DateTime.Now

                        oJournal.Lines.updte()

                    Next i