Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
This commit is contained in:
196
Programe/oproceduri_app.prg
Normal file
196
Programe/oproceduri_app.prg
Normal file
@@ -0,0 +1,196 @@
|
||||
Define Class gridDinamic As Grid
|
||||
Visible = .T.
|
||||
DeleteMark = .F.
|
||||
RecordMark = .F.
|
||||
HighlightStyle = 2
|
||||
SplitBar = .F.
|
||||
Enddefine
|
||||
|
||||
|
||||
Define Class pornesteLans As Session
|
||||
|
||||
Procedure text1DblClick
|
||||
This.lans(crsSets_categorii.id_set)
|
||||
Endproc
|
||||
|
||||
Procedure text1KeyPress
|
||||
Parameters nKeyCode, nShiftAltCtrl
|
||||
If nKeyCode = 13
|
||||
This.lans(crsSets_categorii.id_set)
|
||||
Endif
|
||||
Endproc
|
||||
|
||||
Procedure lans
|
||||
Parameters tnId_set
|
||||
Set DataSession To 1
|
||||
Private pl_verificat
|
||||
pl_verificat = .F.
|
||||
Private _program
|
||||
_program = 'cont'
|
||||
Local lcSql, lnSucces, lnLinii, lnLiniiReq
|
||||
|
||||
lcSql = [select r.valoare_default,r.id_item,i.camp_lista, i.id_fisier,pack_util.GetText(i.fis_lista,] + ;
|
||||
[i.id_fisier, to_number(r.valoare_default), replace(i.camp_lista, ',' , ' || '' '' || ')) ] + ;
|
||||
[as valoare_default_text, i.var_item ] + ;
|
||||
[from xrequest r ] + ;
|
||||
[join xitems i on i.id_item = r.id_item ] + ;
|
||||
[where r.id_set = ?tnId_set and r.valoare_default is not null ]
|
||||
|
||||
lnSucces = goExecutor.oExecute(lcSql, [crsRequest])
|
||||
If lnSucces < 0
|
||||
Messagebox([Eroare])
|
||||
Return
|
||||
Endif
|
||||
lnLiniiReq = Reccount("crsRequest") * 2
|
||||
If lnLiniiReq = 0
|
||||
Messagebox([Nu exista note predefinite pentru aceasta categorie])
|
||||
Return
|
||||
Endif
|
||||
lcSql = [select n.cont,n.id_part,n.id_set, p.nume, n.tip ] + ;
|
||||
[ from (select n1.xscd as cont, n1.id_partd as id_part, n1.id_set, 'D' as tip ] + ;
|
||||
[ from xnote n1 ] + ;
|
||||
[ where nvl(n1.id_partd, 0) <> 0 and n1.id_set = ?tnId_Set ] + ;
|
||||
[ union ] + ;
|
||||
[ select n2.xscc as cont, n2.id_partc as id_part, n2.id_set, 'C' as tip ] + ;
|
||||
[ from xnote n2 ] + ;
|
||||
[ where nvl(n2.id_partc, 0) <> 0 and n2.id_set = ?tnId_Set ) n ] + ;
|
||||
[ join nom_parteneri p on n.id_part = p.id_part]
|
||||
lnSucces = goExecutor.oExecute(lcSql,[crsNumePartener])
|
||||
If lnSucces<0
|
||||
amessagebox(goExecutor.ceroare,0+16,[Eroare])
|
||||
Return
|
||||
Endif
|
||||
lnLinii = Reccount("crsNumePartener") * 2
|
||||
|
||||
Dimension laValori(lnLiniiReq + lnLinii,4)
|
||||
|
||||
Select crsRequest
|
||||
i = 1
|
||||
|
||||
Scan
|
||||
laValori(i,1) = "poAct." + Allt(Nvl(crsRequest.id_fisier,[]))
|
||||
laValori(i,2) = Allt(Nvl(crsRequest.valoare_default,[]))
|
||||
laValori(i,3) = .F.
|
||||
laValori(i,4) = .T.
|
||||
|
||||
laValori(i+1,1) = "poAct." + Allt(Nvl(crsRequest.var_item,[]))
|
||||
laValori(i+1,2) = Alltrim(Nvl(crsRequest.valoare_default_text,[]))
|
||||
laValori(i+1,3) = .F.
|
||||
laValori(i+1,4) = .T.
|
||||
i = i + 2
|
||||
Endscan
|
||||
|
||||
Select crsNumePartener
|
||||
Scan
|
||||
laValori(i,1) = "poact.id_vv" + Alltrim(Nvl(crsNumePartener.Cont,[])) + ;
|
||||
IIF(INLIST(LEFT(cont,2),'51','53'),IIF(tip = 'D' ,'0','1'),'')
|
||||
laValori(i,2) = Alltrim(Str(Nvl(crsNumePartener.id_part,0)))
|
||||
laValori(i,3) = !Empty(Nvl(crsNumePartener.id_part,0))
|
||||
laValori(i,4) = .T.
|
||||
|
||||
laValori(i+1,1) = "poact.v" + Alltrim(crsNumePartener.Cont)+ ;
|
||||
IIF(INLIST(LEFT(cont,2),'51','53'),IIF(tip = 'D' ,'0','1'),'')
|
||||
laValori(i+1,2) = Alltrim(Nvl(crsNumePartener.nume,[]))
|
||||
laValori(i+1,3) = !Empty(Nvl(crsNumePartener.id_part,0))
|
||||
laValori(i+1,4) = .T.
|
||||
i = i + 2
|
||||
Endscan
|
||||
|
||||
Select xsets
|
||||
If Seek(tnId_set,"xsets")
|
||||
Scatter Name loxset
|
||||
If loxset.aleg_cont
|
||||
Private pcACN, cn, cn2, pcACN2
|
||||
Store '' To pcACN, cn, cn2, pcACN2
|
||||
Endif
|
||||
Endif
|
||||
|
||||
lans(tnId_set,.T.,.T.,@laValori)
|
||||
Use In (Select("crsNumePart"))
|
||||
Use In (Select("crsRequest"))
|
||||
Endproc
|
||||
Enddefine
|
||||
|
||||
*********************************** incaseaza_monetar_50505 ***************************
|
||||
Procedure incaseaza_monetar_50505
|
||||
|
||||
Private pl_verificat
|
||||
pl_verificat = .F.
|
||||
|
||||
Local lnRaspuns, loIm
|
||||
Private pcCont1, pcAcont1, pcCont2, pcAcont2
|
||||
Private pcACN, cn, cn2, pcACN2, loCont, loCont2, _program
|
||||
_program = 'cont'
|
||||
lnRaspuns = 6
|
||||
Do While lnRaspuns = 6
|
||||
Store '' To pcACN, cn, cn2, pcACN2
|
||||
loCont = ret_cont("Selectati contul",'704,707')
|
||||
If gnButon = 2
|
||||
lnRaspuns = 7
|
||||
Else
|
||||
pcCont1=loCont.Cont
|
||||
pcAcont1=loCont.Acont
|
||||
|
||||
loCont2=ret_cont("Selectati contul",'4111')
|
||||
If gnButon = 2
|
||||
lnRaspuns = 7
|
||||
Else
|
||||
pcCont2=loCont2.Cont
|
||||
pcAcont2=loCont2.Acont
|
||||
|
||||
Do update_jtva_coloane With [JV]
|
||||
|
||||
Create Cursor crsIncasare_monetar (serie c(15),id_part N(10),nr_factura N(14), ;
|
||||
nr_incasare N(14), numeclient c(60), valctva N(17,gnPa), valftva N(17,gnPa), ;
|
||||
valtva N(17,gnPa), id_jtva_coloana i(4),cota_tva N(2))
|
||||
Select crsIncasare_monetar
|
||||
|
||||
loIm = Createobject('frm_incasare_monetar_50505')
|
||||
loIm.Show(1)
|
||||
If Used('crsIncasare_monetar')
|
||||
Use In crsIncasare_monetar
|
||||
Endif
|
||||
|
||||
If Used('actactan_o')
|
||||
Use In actactan_o
|
||||
Endif
|
||||
Endif
|
||||
Endif
|
||||
|
||||
If lnRaspuns <> 7
|
||||
lnRaspuns = amessagebox('Doriti sa continuati cu operatii de acest fel?',4+32,"Confirmare")
|
||||
Endif
|
||||
Enddo
|
||||
* Release lnRaspuns,pcCont1,pcAcont1,pcCont2,pcAcont2
|
||||
|
||||
Endproc && incaseaza_monetar_50505 ***************************
|
||||
|
||||
************* incaseaza_monetar *********************************
|
||||
Procedure incaseaza_monetar
|
||||
Local loIm, lnRaspuns
|
||||
Private pl_verificat
|
||||
pl_verificat = .F.
|
||||
Private pcCont1, pcAcont1, pcCont2, pcAcont2
|
||||
Private pcACN, cn, cn2, pcACN2, loCont, loCont2, _program
|
||||
|
||||
lnRaspuns = 6
|
||||
Do While lnRaspuns = 6
|
||||
|
||||
Do update_jtva_coloane With [JV]
|
||||
|
||||
Create Cursor crsIncasare_monetar (serie c(15),id_part N(10),nr_factura N(14), ;
|
||||
nr_incasare N(14), numeclient c(60), valctva N(17,gnPa), valftva N(17,gnPa), ;
|
||||
valtva N(17,gnPa), id_jtva_coloana i(4),cota_tva N(2))
|
||||
Select crsIncasare_monetar
|
||||
|
||||
loIm = Createobject('frm_incasare_monetar')
|
||||
loIm.Show(1)
|
||||
If Used('crsIncasare_monetar')
|
||||
Use In crsIncasare_monetar
|
||||
Endif
|
||||
If lnRaspuns <> 7
|
||||
lnRaspuns = amessagebox('Doriti sa continuati cu operatii de acest fel?',4+32,"Confirmare")
|
||||
Endif
|
||||
Enddo
|
||||
|
||||
Endproc && incaseaza_monetar ^^ *********************************
|
||||
Reference in New Issue
Block a user