563 lines
17 KiB
Plaintext
563 lines
17 KiB
Plaintext
*!* Parameters tnScrie_Sterge, tlModificare, tlRul
|
|
|
|
*!* #Define crlf Chr(13) + Chr(10)
|
|
*!* Local lnSucces
|
|
|
|
*!* ON ERROR deconecteaza()
|
|
|
|
*!* lnSucces = -1
|
|
*!* If Reccount('actactan') = 0
|
|
*!* Messagebox('Nu s-a inregistrat nota contabila.')
|
|
*!* Return lnSucces
|
|
*!* Endif
|
|
|
|
*!* If Empty(tnScrie_Sterge) Or Isnull(tnScrie_Sterge)
|
|
*!* tnScrie_Sterge = 0
|
|
*!* Endif
|
|
|
|
*!* If !Used('ACTACTAN')
|
|
*!* Messagebox('Nu exista fisierul <actactan>.')
|
|
*!* Return lnSucces
|
|
*!* Endif
|
|
|
|
*!* If tnScrie_Sterge = 2
|
|
*!* Select actactan
|
|
*!* Locate
|
|
*!* lnCod = cod
|
|
*!* Endif
|
|
|
|
*!* *!* modificare 18.09.2007
|
|
*!* If tnScrie_Sterge = 2 And !tlModificare And Used('rul_temp') And Reccount('rul_temp') > 0
|
|
*!* Private pcMesaj
|
|
*!* Store '' To pcMesaj
|
|
*!* lcSql = [begin ] + gcS +[.verifica_stoc(] + Alltrim(Str(lnCod)) + [,?@pcMesaj); end;]
|
|
*!* lnSucces = executaSql(lcSql,"",.t.)
|
|
*!* If lnSucces < 0
|
|
*!* * Messagebox(goExecutor.oPrelucrareEroare(),16,"Eroare")
|
|
*!* Return lnSucces
|
|
*!* Endif
|
|
*!* If !Isnull(pcMesaj)
|
|
*!* Messagebox(pcMesaj,48,"Atentie")
|
|
*!* Release pcMesaj
|
|
*!* Return -5
|
|
*!* Endif
|
|
*!* Release pcMesaj
|
|
*!* Endif
|
|
*!* *!* modificare 18.09.2007 ^
|
|
|
|
*!* && RESETARE VARIABILE
|
|
*!* lcSql = [begin pack_contafin.reset_variables(); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
*!* If lnSucces < 0
|
|
*!* * Messagebox('Resetare variabile ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* Return lnSucces
|
|
*!* Endif
|
|
*!* &&------------------------------------------------------------------------------------
|
|
*!* llManualTransactions = Iif(SQLGetprop(gnhandle,"Transactions")=2,.T.,.F.)
|
|
|
|
*!* If lnSucces > 0
|
|
*!* If !tlModificare And !llManualTransactions
|
|
*!* lnSucces = SQLSetprop(gnhandle,"Transactions",2)
|
|
*!* Endif
|
|
*!* Endif
|
|
*!* && SETARE VARIABILE
|
|
|
|
*!* If lnSucces > 0
|
|
*!* lcSql = [begin pack_contafin.set_idutil(?gnIdUtil); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* If lnSucces < 0
|
|
*!* * Messagebox('Setare ID utilizator ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* Endif
|
|
*!* Endif
|
|
*!* If lnSucces > 0
|
|
*!* pddata = {}
|
|
*!* lcSql = [begin pack_contafin.set_dataora(?pddata); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('Setare DataOra ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0
|
|
*!* lcSql = [begin pack_contafin.set_an(?gnAn); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('Setare An ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0
|
|
*!* lcSql = [begin pack_contafin.set_luna(?gnLuna); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('Setare Luna ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0 And tnScrie_Sterge <> 2
|
|
*!* && genereaza un cod de operatie
|
|
*!* lcSql = [begin pack_contafin.SET_COD('] + gcS +['); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox(goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
*!* &&------------------------------------------------------------------------------------
|
|
*!* If lnSucces > 0
|
|
*!* && seteaza id_sucursala
|
|
*!* lcSql = [begin pack_contafin.SET_ID_SUCURSALA(?gnIdSucursala); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox(goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0
|
|
*!* lnSucces = sql_temp_insert('actactan','ACT_TEMP')
|
|
|
|
*!* If lnSucces > 0 And tlRul
|
|
*!* If Used('rul_temp') And Reccount('rul_temp')>0
|
|
*!* lnSucces = sql_temp_insert('rul_temp','RUL_TEMP')
|
|
*!* Endif
|
|
*!* If Used('RUL_TEMP_OBINV') And Reccount('RUL_TEMP_OBINV')>0
|
|
*!* lnSucces = sql_temp_insert('rul_temp_obinv','RUL_TEMP_OBINV')
|
|
*!* Endif
|
|
*!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0
|
|
*!* && SCRIE IN ACT
|
|
*!* If tnScrie_Sterge <> 2
|
|
*!* If lnSucces > 0
|
|
*!* lcSql = [begin pack_contafin.SCRIE_IN_ACT('] + gcS +['); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('SCRIE_IN_ACT ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
*!* Else
|
|
*!* If tlModificare
|
|
*!* lnSterge = 0
|
|
*!* Else
|
|
*!* lnSterge = 1
|
|
*!* Endif
|
|
*!* lcSql = [begin pack_contafin.STERGE_DIN_ACT('] + gcS +[',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnLuna)) + [,] + Alltrim(Str(lnCod)) + [,] + Alltrim(Str(gnIdUtil)) + [,] + Alltrim(Str(lnSterge))+ [); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('STERGE_DIN_ACT ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
|
|
*!* Endif
|
|
*!* Endif
|
|
*!* If lnSucces > 0 And tlRul
|
|
*!* && SCRIE IN RUL
|
|
*!* If tnScrie_Sterge <> 2
|
|
*!* lcSql = [begin pack_contafin.SCRIE_IN_RUL(?gcS); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('SCRIE IN RUL ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Else
|
|
|
|
*!* lcSql = [begin pack_contafin.STERGE_DIN_RUL('] + gcS +[',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnLuna)) + [,] + Alltrim(Str(lnCod)) + [,] + Alltrim(Str(gnIdUtil)) + [); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('STERGE DIN RUL ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
|
|
*!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0 And tlRul And Used('RUL_TEMP_OBINV') And Reccount('RUL_TEMP_OBINV')>0
|
|
*!* && SCRIE IN RUL_OBINV
|
|
*!* If tnScrie_Sterge <> 2
|
|
*!* lcSql = [begin pack_contafin.SCRIE_IN_RUL_OBINV(?gcS); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('SCRIE IN RUL_OBINV ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Else
|
|
|
|
*!* lcSql = [begin pack_contafin.STERGE_DIN_RUL_OBINV('] + gcS +[',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnLuna)) + [,] + Alltrim(Str(lnCod)) + [,] + Alltrim(Str(gnIdUtil)) + [); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('STERGE DIN RUL_OBINV ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
|
|
*!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0
|
|
*!* && SCRIE IN BALANTA
|
|
*!* lcSql = [begin pack_contafin.SCRIE_IN_BALANTA('] + gcS +[',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnLuna)) + [,] + Alltrim(Str(tnScrie_Sterge)) + [); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('SCRIE_IN_BALANTA ' +goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0
|
|
*!* && SCRIE IN BALANTA_PARTENERI
|
|
*!* lcSql = [begin pack_contafin.SCRIE_IN_BALANTA_PARTENERI('] + gcS +[',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnLuna)) + [,'',] + Alltrim(Str(tnScrie_Sterge)) + [); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('SCRIE_IN_BALANTA_PARTENERI '+goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0
|
|
*!* && SCRIE IN IREG_PARTENERI
|
|
*!* * lcSql = [begin pack_contafin.SCRIE_IN_IREG_PARTENERI('] + gcS +[',] + ALLTRIM(STR(gnAn)) + [,] + ALLTRIM(STR(gnLuna)) + [,'',] + ALLTRIM(STR(tnScrie_Sterge)) + [,1); end;]
|
|
*!* lcSql = [begin pack_contafin.EXECUTA_SCRIE_IN_IREG('] + gcS +[',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnLuna)) + [,'',] + Alltrim(Str(tnScrie_Sterge)) + [,0); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('Executa_SCRIE_IN_INREGISTRARI_PARTENERI '+goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0
|
|
*!* && SCRIE IN CUMP
|
|
*!* Select infisiere
|
|
*!* Locate For Cont = '4426'
|
|
*!* lcCorespD = Alltrim(coresp_d)
|
|
*!* lcCorespC = Alltrim(coresp_c)
|
|
*!* lcCorespDtva = Alltrim(coresp_d) + [,4428,4427]
|
|
*!* lcCorespCtva = Alltrim(coresp_c)
|
|
*!* lcExceptii = [-1]
|
|
*!* lcSql = [select distinct cont_c as exceptie from ] + gcS + [.exceptii_ireg where cont in (] + ;
|
|
*!* lcCorespD + [) and invers = 1]
|
|
*!* lnSucces = executaSql(lcSql,'cont_exceptii',.t.)
|
|
*!* If lnSucces > 0
|
|
*!* Select cont_exceptii
|
|
*!* Scan
|
|
*!* lcExceptii = lcExceptii + ',' + Alltrim(exceptie)
|
|
*!* Endscan
|
|
*!* Use In cont_exceptii
|
|
*!* Endif
|
|
*!* If gnAn >= 2007
|
|
*!* lcSql = [begin PACK_CONTAFIN.SCRIE_JV_2007(?gnAn, ?gnLuna, ] + ;
|
|
*!* Iif(tnScrie_Sterge <> 2, 'pack_contafin.nScriere', 'pack_contafin.nStergere') + [); end;]
|
|
*!* Else
|
|
*!* lcSql = [begin pack_contafin.EXECUTA_SCRIE_TVA('] + gcS +[', 'cump', 1.19, 1.09, '] + ;
|
|
*!* lcCorespDtva +[', '] + lcCorespD +[', '] + lcCorespCtva +[', '] + lcCorespC + ;
|
|
*!* [','4426', '] + lcExceptii +[',] + pcan + [, ] + pcnl + [,] + Alltrim(Str(tnScrie_Sterge)) + [ ); end;]
|
|
*!* Endif
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('SCRIE_IN_CUMP ' +goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0
|
|
*!* && SCRIE IN VANZ
|
|
*!* Select infisiere
|
|
*!* Locate For Cont = '4427'
|
|
*!* lcCorespD = Alltrim(coresp_d)
|
|
*!* lcCorespC = Alltrim(coresp_c)+ [,5121,5311]
|
|
*!* lcCorespDtva = Alltrim(coresp_d)
|
|
*!* lcCorespCtva = Alltrim(coresp_c) + [,4428,4426]
|
|
*!* * lcExceptii = [667,622,419]
|
|
*!* lcExceptii = [419]
|
|
*!* lcSql = [select distinct cont_c as exceptie from ] + gcS + [.exceptii_ireg where cont in (] + lcCorespC + [) and invers = 1]
|
|
*!* lnSucces = executaSql(lcSql,'cont_exceptii',.t.)
|
|
*!* If lnSucces > 0
|
|
*!* Select cont_exceptii
|
|
*!* Scan
|
|
*!* lcExceptii = lcExceptii + ',' + Alltrim(exceptie)
|
|
*!* Endscan
|
|
*!* Use In cont_exceptii
|
|
*!* Endif
|
|
*!* If gnAn >= 2007
|
|
*!* lcSql = [begin PACK_CONTAFIN.SCRIE_JC_2007(?gnAn, ?gnLuna, ] + ;
|
|
*!* Iif(tnScrie_Sterge <> 2, 'pack_contafin.nScriere', 'pack_contafin.nStergere') + [); end;]
|
|
*!* Else
|
|
*!* lcSql = [begin pack_contafin.EXECUTA_SCRIE_TVA('] + gcS +[', 'vanz', 1.19, 1.09, '] + ;
|
|
*!* lcCorespDtva +[', '] + lcCorespD +[', '] + lcCorespCtva +[', '] + lcCorespC +[','4427', '] + ;
|
|
*!* lcExceptii +[',] + pcan + [, ] + pcnl + [,] + Alltrim(Str(tnScrie_Sterge)) + [ ); end;]
|
|
*!* Endif
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('SCRIE_IN_VANZ '+goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
|
|
|
|
*!* *!* lcSql = [SELECT * FROM ] + gcS + [.ACT_TEMP]
|
|
*!* *!* lcCursor = [crsACT_TEMP]
|
|
*!* *!* lnSucces = executaSql(lcSql,lcCursor)
|
|
*!* *!* SELECT crsACT_TEMP
|
|
*!* *!* BROWSE
|
|
*!* *!* USE IN CRSACT_TEMP
|
|
|
|
*!* If lnSucces > 0 And tlRul
|
|
*!* Private pcTabel
|
|
*!* pcTabel = [STOC]
|
|
*!* pcIdTabel = [ID_STOC]
|
|
*!* pcConditie = [2=2]
|
|
*!* lcSql = [begin pack_contafin.SCRIE_IN_Stoc(?gcS,?gnAn,?gnLuna,0,?pcTabel,?pcIdTabel,?pcConditie); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('SCRIE IN STOC ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0 And tlRul And Used('RUL_TEMP_OBINV') And Reccount('RUL_TEMP_OBINV')>0
|
|
*!* Private pcTabel
|
|
*!* pcTabel = [STOC_OBINV]
|
|
*!* pcIdTabel = [ID_STOC]
|
|
*!* pcConditie = [2=2]
|
|
*!* lcSql = [begin pack_contafin.SCRIE_IN_Stoc_OBINV(?gcS,?gnAn,?gnLuna,0,?pcTabel,?pcIdTabel,?pcConditie); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox('SCRIE IN STOC_OBINV ' + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* Endif
|
|
|
|
*!* If lnSucces > 0
|
|
*!* Private pcMesajRefacereNota
|
|
*!* pcMesajRefacereNota = ""
|
|
*!* lcSql = [begin pack_refacere_nota.refacere_nota(?gnAn,?gnLuna,?@pcMesajRefacereNota); end;]
|
|
*!* lnSucces = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces < 0
|
|
*!* *!* Messagebox(goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
*!* If !Empty(Nvl(pcMesajRefacereNota,''))
|
|
*!* Messagebox(pcMesajRefacereNota,0+48,'Atentie')
|
|
*!* Endif
|
|
*!* Release pcMesajRefacereNota
|
|
*!* Endif
|
|
|
|
*!* If !tlModificare And !llManualTransactions
|
|
*!* If lnSucces < 0
|
|
*!* lcSql = "ROLLBACK"
|
|
*!* Else
|
|
*!* lcSql = "COMMIT"
|
|
*!* Endif
|
|
*!* lnSucces2 = executaSql(lcSql,'',.t.)
|
|
|
|
*!* *!* If lnSucces2 < 0
|
|
*!* *!* Messagebox(lcSql + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
|
|
*!* *!* Endif
|
|
|
|
*!* lnSucces2 = SQLSetprop(gnhandle,"Transactions",1)
|
|
*!* If lnSucces2 < 0
|
|
*!* Messagebox([Programul nu a reusit sa treaca pe tranzactie automata. ] + ;
|
|
*!* [Iesiti din program si intrati din nou!],0+48,'Atentie!')
|
|
*!* Endif
|
|
*!* Endif
|
|
|
|
|
|
*!* *!* IF USED('CRS_ACT')
|
|
*!* *!* USE IN CRS_ACT
|
|
*!* *!* ENDIF
|
|
*!* *!* IF USED('rul_temp')
|
|
*!* *!* USE IN rul_temp
|
|
*!* *!* ENDIF
|
|
*!* *!* IF USED('rul_temp_obinv')
|
|
*!* *!* USE IN rul_temp_obinv
|
|
*!* *!* ENDIF
|
|
|
|
*!* Return lnSucces
|
|
#Define crlf Chr(13) + Chr(10)
|
|
|
|
Public gcdatapath, gcapppath, gnhandle
|
|
|
|
gnhandle = conecteaza([jcsserver],[mariusm_auto],[123])
|
|
|
|
gcapppath = Justpath(Sys(16,0))
|
|
*!* gcapppath = Addbs(Justpath(Sys(16,0)))
|
|
*!* gcapppath = Left(gcapppath,Rat("\",gcapppath,2))
|
|
*!* gcdatapath = ADDBS(gcapppath) + [datemenu]
|
|
*!* SET PATH TO (gcdatapath)
|
|
|
|
Set Path To (gcapppath)
|
|
sql_temp_insert([xnote],[xnote])
|
|
|
|
&& ------------------------------------------------------------------------------------
|
|
Procedure sql_temp_insert
|
|
Lparameters tcAlias,tcTableName
|
|
|
|
|
|
If !Used(Addbs(gcapppath) + tcAlias)
|
|
Use (Addbs(gcapppath) + tcAlias)
|
|
Endif
|
|
|
|
Local lcAlias,lcCursor,lnSucces
|
|
Private poIreg
|
|
Local lcVariable
|
|
|
|
If Empty(tcAlias)
|
|
lcAlias = 'ACTACTAN'
|
|
Else
|
|
lcAlias = Upper(Alltrim(tcAlias))
|
|
Endif
|
|
If Empty(tcTableName)
|
|
lcTableName = 'ACT_TEMP'
|
|
Else
|
|
lcTableName = Upper(Alltrim(tcTableName))
|
|
Endif
|
|
|
|
lcCursor = 'crs_Coloane'
|
|
lcSql = [SELECT COLUMN_NAME AS COLOANA from user_tab_columns WHERE table_name = ?lcTableName]
|
|
lnSucces = executaSql(lcSql,lcCursor,.T.)
|
|
*!* If lnSucces < 0
|
|
*!* Messagebox('Eroare la selectare coloane din ' + lcTableName + Chr(13) + goExecutor.cEroare,0+16,'Eroare')
|
|
*!* Endif
|
|
|
|
If lnSucces > 0
|
|
***
|
|
Select (lcAlias)
|
|
lnCount = Fcount()
|
|
Select (lcAlias)
|
|
lcFields = []
|
|
lcValues = []
|
|
lcInsert = []
|
|
Scatter Name poIreg
|
|
For i = 1 To lnCount
|
|
?i
|
|
Select (lcAlias)
|
|
lcFieldName = Upper(Alltrim(Field(i)))
|
|
lcFieldType = Type(lcFieldName)
|
|
lcFieldValue = Evaluate(lcFieldName)
|
|
|
|
Do Case
|
|
Case lcFieldType = "C"
|
|
lcVariable = '?ALLTRIM(poIreg.' + lcFieldName + ')'
|
|
* CASE lcfieldtype = "L"
|
|
* lcvariable = IIF(&poIreg.lcFieldName,[1,],[0,]
|
|
Otherw
|
|
lcVariable = '?poIreg.' + lcFieldName
|
|
Endcase
|
|
|
|
Select CRS_COLOANE
|
|
Locate For Upper(Alltrim(COLOANA)) == lcFieldName
|
|
If !Found()
|
|
Loop
|
|
Endif
|
|
lcFields = lcFields + [,] + lcFieldName
|
|
lcNumber = '0'
|
|
lcDate = ''
|
|
lcString = ''
|
|
|
|
&& FAC NULL ID-URILE CU VALOARE 0
|
|
If Inlist(lcFieldName, 'ID_SUCURSALA')
|
|
If poIreg.id_sucursala = 0
|
|
poIreg.id_sucursala = Null
|
|
Endif
|
|
Endif
|
|
lcValues = lcValues + [,] + lcVariable
|
|
|
|
Endfor
|
|
|
|
lcFields = Substr(lcFields,2)
|
|
lcValues = Substr(lcValues,2)
|
|
|
|
|
|
&& INSERT INTO ACT_TEMP
|
|
lcInsert = [INSERT INTO ] + lcTableName + [ (] + lcFields + [) VALUES (] + lcValues + [)]
|
|
|
|
|
|
Scan
|
|
lnSucces = executaSql(lcInsert,'',.T.)
|
|
If lnSucces < 0
|
|
Messagebox([eroare])
|
|
Exit
|
|
Endif
|
|
Endscan
|
|
|
|
Endif
|
|
If Used('crs_coloane')
|
|
Use In CRS_COLOANE
|
|
Endif
|
|
USE IN (SELECT(Addbs(gcapppath) + tcAlias))
|
|
|
|
Return lnSucces
|
|
|
|
Endproc && sql_temp_insert
|
|
|
|
|
|
|
|
************************ inceput conecteaza ***************************
|
|
Procedure conecteaza
|
|
Lparameters tcHost, tcUser, tcPassword
|
|
|
|
gnhandle = SQLConnect(tcHost, tcUser, tcPassword)
|
|
If gnhandle < 1
|
|
Aerror(laEroare)
|
|
Messagebox(laEroare(2))
|
|
Endif
|
|
|
|
Return gnhandle
|
|
Endproc
|
|
|
|
**************************** inceput executaSql ***************************
|
|
Function executaSql
|
|
Lparameters cmdSql, crsName, tlShowErr
|
|
Local lnSucces
|
|
|
|
lnSucces = -1
|
|
|
|
If Pcount() < 2 And !m.tlShowErr
|
|
crsName=""
|
|
Endif
|
|
|
|
If gnhandle > 0
|
|
lnSucces=SQLExec(gnhandle,cmdSql,crsName)
|
|
|
|
If lnSucces < 0 And m.tlShowErr
|
|
Aerror(laEroare)
|
|
eroaresql(@laEroare,cmdSql)
|
|
Endif
|
|
Endif
|
|
|
|
Return lnSucces
|
|
Endfunc
|
|
|
|
************************* inceput deconecteaza ************************
|
|
Function deconecteaza
|
|
*Lparameters lnConn
|
|
Local lnSucces
|
|
|
|
lnSucces = -1
|
|
If lnConn > 0
|
|
lnSucces = SQLDisconnect(gnhandle)
|
|
Endif
|
|
|
|
On Error
|
|
Return lnSucces
|
|
Endfunc
|
|
|
|
******************************* inceput eroareSql **********************************
|
|
Procedure eroaresql
|
|
Lparameters laErr, lcSql
|
|
|
|
External Array laErr
|
|
|
|
Local lcMesaj
|
|
|
|
lcMesaj = [Eroare # : ] + Alltrim(Str(laErr(1))) + crlf + ;
|
|
[Mesajul : ] + laErr(2) + ;
|
|
IIF(!Empty(laErr(3)), [Eroare OLE : ] + laErr(3) ,[]) + ;
|
|
[Aplicatie : ] + laErr(4) + ;
|
|
IIF(Pcount() = 2, crlf + lcSql, [])
|
|
Messagebox(lcMesaj,0+16)
|
|
|
|
Endproc
|