Versions des environnements
Network:
Windows 2003 Server
Dragan,
Here's the entire source code if it could help to resolve the problem.
I've indicated the line that is causing the problem below with <-.
Hope you could assist.
Thanks in advance.
Yau
if thisform.frm_mode="A" && in addition mode
headtype=thisform.mdoch
=sqlexec(posqlconn,"select current_no from icount where doc_type='"+ headtype +"' ","c_currhkey")
=sqlexec(posqlconn,"update icount set current_no=current_no+1 WHERE DOC_TYPE='"+ headtype +"'")
=sqlcommit(posqlconn)
SELECT c_currhkey
replace fheader.hkey with c_currhkey.current_no+1
thisform.m_filldetail(c_currhkey.current_no+1)
IF USED('c_currhkey')
USE IN c_currhkey
endif
endif
if thisform.frm_mode="A"
m.dettype=thisform.mdocd
sele fdetail
go top
do while !eof()
=SQLEXEC(posqlconn,"select a.doc_type, a.current_no from icount a where a.doc_type='ND'", “c_currdkey")
SELECT c_currdkey
=sqlexec(posqlconn,"update icount set icount.current_no=icount.current_no+1 where icount.doc_type='"+ALLTRIM(m.dettype)+"'")
=sqlcommit(posqlconn)
replace fdetail.dkey with c_currdkey.current_no+1
IF USED('c_currdkey')
USE IN c_currdkey
endif
SELE FDETAIL
SKIP
enddo
endif
wait window "Processing..." nowait
do case
case thisform.frm_mode="A"
=SQLSETPROP(posqlconn, 'Transactions', 2) && Manual transactions
BEGIN TRANSACTION
IF thisform.m_saveheader()
select fheader
if (thisform.m_savedetail()) <- The program gets thrown out here ( inside is just the line with llflag=tableupdate(1,.f.,"fdetail")
if thisform.m_saveother() && Detail file is updated
if thisform.m_savestk() && Fire posting trigger
if thisform.m_savegl()
IF sqlcommit(posqlconn)<= 0
=SQLROLLBACK(posqlconn)
ROLLBACK
thisform.o_busrules.m_messbox("Cannot Commit Transaction!")
ELSE
end transaction
llupdate=.t.
ENDIF
ELSE
=SQLROLLBACK(posqlconn)
ROLLBACK
thisform.o_busrules.m_messbox("Cannot Update GL!")
ENDIF
ELSE
=SQLROLLBACK(posqlconn)
rollback
thisform.o_busrules.m_messbox("Cannot Update Stock!")
ENDIF
ELSE
=SQLROLLBACK(posqlconn)
rollback
thisform.o_busrules.m_messbox("Cannot Update Postings!")
ENDIF
ELSE
=SQLROLLBACK(posqlconn)
rollback
thisform.o_busrules.m_messbox("Cannot Update Detail File!")
ENDIF
ELSE
=SQLROLLBACK(posqlconn)
ROLLBACK
thisform.o_busrules.m_messbox("Cannot Update Header File!")
ENDIF
IF llupdate
thisform.lockscreen=.f.
wait clear
thisform.o_busrules.m_messbox(thisform.name+" "+"Number ";
+allTRIM(thisform.firstfield.value)+" Saved!",64)
thisform.m_printdoc()
ELSE
thisform.o_busrules.m_messbox("Unable to save Transaction! Try again later!")
thisform.m_reverttable
ENDIF
WAIT CLEAR
thisform.lockscreen=.t.
thisform.lcreckey=0
thisform.frm_doc_no=" "
append blank in fheader
thisform.lockscreen=.f.
thisform.refresh
if !thisform.autonum
thisform.firstfield.setfocus
else
thisform.secondfield.setfocus
endif
return
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement