430 lines
13 KiB
Plaintext
430 lines
13 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="list1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Shortcut PROMPT "NIR-uri"
|
|
ON BAR 1 OF Shortcut ACTIVATE POPUP NIRuri
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP NIRuri SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF NIRuri PROMPT "\<NIR de la numar la numar"
|
|
ON SELECTION BAR 1 OF NIRuri DO BAR_1_OF_NIRuri_FB2P
|
|
|
|
DEFINE BAR 2 OF NIRuri PROMPT "NIR-uri \<pe Gestiuni"
|
|
ON SELECTION BAR 2 OF NIRuri DO BAR_2_OF_NIRuri_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "\-"
|
|
ON BAR 2 OF Shortcut ACTIVATE POPUP _1020qr818
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1020qr818 SHORTCUT RELATIVE
|
|
DEFINE BAR 3 OF Shortcut PROMPT "Bonuri"
|
|
ON BAR 3 OF Shortcut ACTIVATE POPUP Bonuri
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Bonuri SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Bonuri PROMPT "\<De la numar la numar"
|
|
ON SELECTION BAR 1 OF Bonuri DO BAR_1_OF_Bonuri_FB2P
|
|
|
|
DEFINE BAR 2 OF Bonuri PROMPT "Pe comenzi"
|
|
ON SELECTION BAR 2 OF Bonuri DO BAR_2_OF_Bonuri_FB2P
|
|
|
|
DEFINE BAR 3 OF Bonuri PROMPT "Pe gestiuni"
|
|
ON SELECTION BAR 3 OF Bonuri DO BAR_3_OF_Bonuri_FB2P
|
|
|
|
DEFINE BAR 4 OF Shortcut PROMPT "\<Retur magazie"
|
|
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 5 OF Shortcut PROMPT "Transferuri"
|
|
ON BAR 5 OF Shortcut ACTIVATE POPUP Transferur
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Transferur SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Transferur PROMPT "\<Catre o gestiune la pret de achizitie"
|
|
ON SELECTION BAR 1 OF Transferur DO BAR_1_OF_Transferur_FB2P
|
|
|
|
DEFINE BAR 2 OF Transferur PROMPT "\<Catre o gestiune la pret de vanzare"
|
|
ON SELECTION BAR 2 OF Transferur DO BAR_2_OF_Transferur_FB2P
|
|
|
|
DEFINE BAR 3 OF Transferur PROMPT "\<De la o gestiune valorica"
|
|
ON SELECTION BAR 3 OF Transferur DO BAR_3_OF_Transferur_FB2P
|
|
|
|
DEFINE BAR 6 OF Shortcut PROMPT "\-"
|
|
ON BAR 6 OF Shortcut ACTIVATE POPUP _1020r4619
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1020r4619 SHORTCUT RELATIVE
|
|
DEFINE BAR 7 OF Shortcut PROMPT "\Avize de insotire"
|
|
ON SELECTION BAR 7 OF Shortcut DO BAR_7_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 8 OF Shortcut PROMPT "\-"
|
|
ON BAR 8 OF Shortcut ACTIVATE POPUP _1020queaj
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1020queaj SHORTCUT RELATIVE
|
|
DEFINE BAR 9 OF Shortcut PROMPT "\<Factura de vanzare"
|
|
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 10 OF Shortcut PROMPT "\-"
|
|
ON BAR 10 OF Shortcut ACTIVATE POPUP _1020r00x7
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1020r00x7 SHORTCUT RELATIVE
|
|
DEFINE BAR 11 OF Shortcut PROMPT "Stocuri"
|
|
ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 12 OF Shortcut PROMPT "Fisa de \<magazie"
|
|
ON SELECTION BAR 12 OF Shortcut DO BAR_12_OF_Shortcut_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_NIRuri_FB2P
|
|
*!* 13.01.2015
|
|
*!* PRIVATE pnNr
|
|
*!* STORE 0 TO pnNr
|
|
|
|
*!* DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr
|
|
*!* IF gnButon = 1
|
|
*!* lnTip = gnTipGest
|
|
*!* DO listare_nir WITH pnNr, lnTip
|
|
*!* ENDIF
|
|
|
|
PRIVATE pnNr1, pnNr2
|
|
LOCAL lnTip, lnNr1, lnNr2
|
|
pnNr1 = 0
|
|
pnNr2 = 0
|
|
|
|
lnTip = gnTipGest
|
|
DO FORM frm_cere_text WITH 'Numar NIR 1','pnNr1','Numar NIR 1' TO lnNr1
|
|
IF gnButon = 1
|
|
pnNr2 = m.pnNr1
|
|
DO FORM frm_cere_text WITH 'Numar NIR 2','pnNr2','Numar NIR 2' TO lnNr2
|
|
|
|
*!* DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip
|
|
DO listare_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip
|
|
ENDIF
|
|
*!* 13.01.2015 ^
|
|
|
|
*!* Ointre=CREATEOBJECT("CAUTintre")
|
|
*!* WITH Ointre
|
|
*!* .CAPTION="Numarul NIR-ului"
|
|
*!* .label1.caption="Numarul NIR-ului:"
|
|
*!* .label2.visible=.f.
|
|
*!* .text1.controlsource="m.nract1"
|
|
*!* .text2.visible=.f.
|
|
*!* endwith
|
|
*!* ointre.show(1)
|
|
|
|
*!* DO LIST_NIR WITH STR(M.NRACT1),1
|
|
|
|
ENDPROC && BAR_1_OF_NIRuri_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_NIRuri_FB2P
|
|
lnTip = gnTipGest
|
|
DO list_total_NIR WITH lnTip && in oproceduri_listari.prg
|
|
ENDPROC && BAR_2_OF_NIRuri_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Bonuri_FB2P
|
|
PRIVATE pnNr1, pnNr2
|
|
LOCAL lnTip, lnNr1, lnNr2
|
|
pnNr1 = 0
|
|
pnNr2 = 0
|
|
|
|
lnTip = gnTipGest
|
|
DO FORM frm_cere_text WITH 'Numar BON 1','pnNr1','Numar BON 1' TO lnNr1
|
|
IF gnButon = 1
|
|
pnNr2 = m.pnNr1
|
|
DO FORM frm_cere_text WITH 'Numar BON 2','pnNr2','Numar BON 2' TO lnNr2
|
|
|
|
DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip
|
|
ENDIF
|
|
ENDPROC && BAR_1_OF_Bonuri_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Bonuri_FB2P
|
|
DO list_bon_pe_lucrare WITH gnTipGest
|
|
|
|
*!* SELECT DISTINCT RULL.NRORD FROM RULL into TABLE &LOC\&NFSCURT\tempo\raA.DBF
|
|
*!* SELECT RAA
|
|
*!* APPEND BLANK
|
|
*!* REPLACE NRORD WITH " <TOATE>"
|
|
*!* Index ON NRORD TAG NRORD
|
|
*!* *!* SET ORDER TO NRORD
|
|
*!* do caut_alfa with "RAA","Nrord","NUMELE COMENZII","M.nrord"
|
|
|
|
*!* DO danu WITH 'Total bonuri? (Alegeti DA pt. total bonuri, si NU pt. bonuri din luna curenta)'
|
|
|
|
*!* IF buton=1
|
|
*!* Select DISTINCT rul.nnir,rul.nrord,rul.denumire,rul.um,rul.cant,rul.cante,rul.pret,rul.gest,rul.codmat,rul.dataact,;
|
|
*!* actan.dataireg,actan.NUME_2 As RESPONS,rul.PRETV,rul.scd;
|
|
*!* from actan,rul;
|
|
*!* where actan.cod=rul.cod And rul.cante # 0 And rul.cant=0;
|
|
*!* into CURSOR ra
|
|
*!* ELSE
|
|
*!* Select DISTINCT rull.nnir,rull.nrord,rull.denumire,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.codmat,rull.dataact,;
|
|
*!* act.dataireg,act.NUME_2 As RESPONS,rull.PRETV,rull.scd;
|
|
*!* from act,rull;
|
|
*!* where act.cod=rull.cod And rull.cante # 0 And rull.cant=0;
|
|
*!* into CURSOR ra
|
|
*!* endif
|
|
|
|
*!* SELECT RA
|
|
*!* Index On NRORD+STR(VAL(ALLTRIM(nnir)))+DTOC(dataact) TAG nnir &&To &LOC\&NFSCURT\tempo\FFD
|
|
|
|
*!* IF ALLTRIM(M.NRORD)="<TOATE>"
|
|
*!* SELECT ra
|
|
*!* *SET ORDER TO NRORD
|
|
*!* SET ORDER TO NNIR
|
|
*!* REPORT FORM BONC.FRX TO PRINTER PROMPT PREVIEW
|
|
*!* ELSE
|
|
*!* SELECT RA
|
|
*!* SET FILTER TO NRORD=M.NRORD
|
|
*!* SET ORDER TO nnir
|
|
*!* REPORT FORM BONC.FRX TO PRINTER PROMPT PREVIEW
|
|
*!* ENDIF
|
|
*!* USE IN ra
|
|
*!* SELECT rul
|
|
*!* SET FILTER TO
|
|
*!* SELECT rull
|
|
*!* SET FILTER TO
|
|
ENDPROC && BAR_2_OF_Bonuri_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Bonuri_FB2P
|
|
lnTip = gnTipGest
|
|
DO list_total_BON WITH lnTip && in oproceduri_listari.prg
|
|
|
|
|
|
*!* PRIVATE M.T
|
|
*!* SET SAFETY OFF
|
|
*!* do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST"
|
|
*!* SELE NUMEGEST
|
|
*!* SCAN
|
|
*!* IF NUMEGEST==M.NUMEGEST
|
|
*!* SCATTER MEMVAR
|
|
*!* EXIT
|
|
*!* ENDIF
|
|
*!* ENDSCAN
|
|
|
|
*!* M.T='BONURI'
|
|
|
|
*!* select DISTINCT rull.denumire,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.nnir,rull.codmat,rull.dataact,;
|
|
*!* act.nume,act.fdoc,act.nract,act.dataireg;
|
|
*!* from act,rull;
|
|
*!* where act.cod=rull.cod;
|
|
*!* into cursor ra
|
|
|
|
*!* SELE Ra
|
|
*!* SET FILTER TO GEST=M.GEST AND CANTE # 0
|
|
*!* INDEX ON str(GEST,2)+NNIR TO &loc\&nfscurt\tempo\FFF
|
|
*!* REPORT FORMAT NIRRUL2.FRX TO PRINTER PROMPT PREVIEW
|
|
*!* * WINDOW WPRINT
|
|
*!* USE IN RA
|
|
ENDPROC && BAR_3_OF_Bonuri_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_Shortcut_FB2P
|
|
PRIVATE pnNr
|
|
STORE 0 TO pnNr
|
|
|
|
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de retur' TO lnNr
|
|
IF gnButon = 1
|
|
lnTip = gnTipGest
|
|
DO LISTARE_RETUR WITH pnNr, lnTip
|
|
ENDIF
|
|
|
|
*!* store 0 to m.nract1
|
|
*!* Ointre=CREATEOBJECT("CAUTintre")
|
|
*!* WITH Ointre
|
|
*!* .CAPTION="Numarul notei de retur"
|
|
*!* .label1.caption="Nr. nota:"
|
|
*!* .label2.visible=.f.
|
|
*!* .text1.controlsource="m.nract1"
|
|
*!* .text2.visible=.f.
|
|
*!* endwith
|
|
*!* ointre.show(1)
|
|
|
|
*!* DO LIST_RETUR WITH M.NRACT1,5
|
|
ENDPROC && BAR_4_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Transferur_FB2P
|
|
PRIVATE pnNr
|
|
STORE 0 TO pnNr
|
|
|
|
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
|
|
IF gnButon = 1
|
|
lnTip = gnTipGest
|
|
DO LISTARE_TRANSFER WITH pnNr, lnTip
|
|
ENDIF
|
|
|
|
*!* store 0 to m.nract1
|
|
*!* Ointre=CREATEOBJECT("CAUTintre")
|
|
*!* WITH Ointre
|
|
*!* .CAPTION="Numarul notei de transfer"
|
|
*!* .label1.caption="Nr. nota:"
|
|
*!* .label2.visible=.f.
|
|
*!* .text1.controlsource="m.nract1"
|
|
*!* .text2.visible=.f.
|
|
*!* endwith
|
|
*!* ointre.show(1)
|
|
|
|
*!* DO LIST_TRANSFER WITH M.NRACT1,17
|
|
ENDPROC && BAR_1_OF_Transferur_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Transferur_FB2P
|
|
PRIVATE pnNr
|
|
STORE 0 TO pnNr
|
|
|
|
DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
|
|
IF gnButon = 1
|
|
lnTip = 6
|
|
DO LISTARE_TRANSFER WITH pnNr, lnTip
|
|
ENDIF
|
|
|
|
*!* store 0 to m.nract1
|
|
*!* Ointre=CREATEOBJECT("CAUTintre")
|
|
*!* WITH Ointre
|
|
*!* .CAPTION="Numarul notei de transfer"
|
|
*!* .label1.caption="Nr. nota:"
|
|
*!* .label2.visible=.f.
|
|
*!* .text1.controlsource="m.nract1"
|
|
*!* .text2.visible=.f.
|
|
*!* endwith
|
|
*!* ointre.show(1)
|
|
|
|
*!* DO LIST_TRANSFER WITH M.NRACT1,18
|
|
|
|
ENDPROC && BAR_2_OF_Transferur_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Transferur_FB2P
|
|
PRIVATE pnNr
|
|
STORE 0 TO pnNr
|
|
|
|
DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr
|
|
IF gnButon = 1
|
|
lnTip = gnTipGest
|
|
DO listare_nir WITH pnNr, lnTip, .F. , .F. , 1
|
|
ENDIF
|
|
ENDPROC && BAR_3_OF_Transferur_FB2P
|
|
|
|
PROCEDURE BAR_7_OF_Shortcut_FB2P
|
|
*!* *osetgest.tbrprim.buton4.click
|
|
*!* Public M.T
|
|
*!* Public m.nract1,m.nract2
|
|
*!* Store 0 To m.nract1,m.nract2
|
|
*!* public m.delegat,m.bi,m.nrinmat
|
|
*!* store '' to m.delegat,m.bi,m.nrinmat
|
|
*!* store 0 to m.nract1
|
|
*!* sele calendar
|
|
*!* loca for nl=m.nl and an=m.an
|
|
*!* m.ctva=ctvam
|
|
|
|
|
|
*!* *___________________________________________________________
|
|
*!* Ointre=Createobject("CAUTintre")
|
|
*!* With Ointre
|
|
*!* .Caption="Numarul bonului"
|
|
*!* .label1.Caption="Nr.initial:"
|
|
*!* .label2.Visible=.F.
|
|
*!* .text1.ControlSource="m.nract1"
|
|
*!* .text2.Visible=.F.
|
|
*!* Endwith
|
|
*!* Ointre.Show(1)
|
|
|
|
*!* Sele rull
|
|
*!* Loca For Val(rull.nnir)=m.nract1
|
|
*!* If !Found()
|
|
*!* Do mesaj With 'Nu a fost inregistrat nici un bon','cu numarul '+Allt(Str(m.nract1))
|
|
*!* Return
|
|
*!* Else
|
|
*!* m.T='BONURI'
|
|
|
|
*!* Select Distinct rull.denumire,rull.um,rull.cante,rull.pretV,rull.gest,rull.nnir,rull.codmat,rull.NRORD,rull.PRET,;
|
|
*!* act.dataact,act.NUME_2 As RESPONS,rull.scd,rull.cant;
|
|
*!* from act,rull;
|
|
*!* where act.cod=rull.cod And Val(rull.nnir)=m.nract1 And rull.cante # 0 And rull.cant=0;
|
|
*!* into Table &loc\&nfscurt\tempo\ra
|
|
|
|
*!* Sele ra
|
|
*!* Index On Str(gest,2)+nnir To &loc\&nfscurt\tempo\ra
|
|
*!* ENDIF
|
|
|
|
*!* DO FORM dateexp
|
|
*!* SELE FIRMA
|
|
*!* LOCA FOR NFSCURT=FSCURT
|
|
*!* SCAT MEMV
|
|
*!* FCOD_FISCAL=M.COD_FISCAL
|
|
|
|
|
|
*!* sele clienti
|
|
*!* loca for ALLTRIM(nume)=ALLTRIM(m.nume)
|
|
*!* if found()
|
|
*!* *scat fiel cod_fiscal memv
|
|
*!* CODF=COD_FISCAL
|
|
*!* else
|
|
*!* CODF=''
|
|
*!* ENDIF
|
|
*!*
|
|
*!* *!* SELECT respon
|
|
*!* *!* LOCATE FOR ales
|
|
*!* *!* SCATTER MEMVAR
|
|
*!*
|
|
*!* SELECT ra
|
|
*!* *REPORT FORMAT BONCONS.FRX TO PRINTER PROMPT PREVIEW
|
|
*!* REPORT FORM aviz TO PRINTER PROMPT PREVIEW
|
|
*!* Use In ra
|
|
|
|
ENDPROC && BAR_7_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_9_OF_Shortcut_FB2P
|
|
*!* PRIVATE pnNr
|
|
*!* STORE 0 TO pnNr
|
|
|
|
*!* DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul facturii' TO lnNr
|
|
*!* If gnButon = 1
|
|
*!* *!* modificare 20.08.2007
|
|
*!* *!* DO LISTARE_facturi WITH pnNr
|
|
*!* Do relisteaza_ofacturare_stoc With pnNr In ofacturare_stoc.prg
|
|
*!* *!* modificare 20.08.2007 ^
|
|
*!* Endif
|
|
|
|
*!* *!* STORE 0 to m.nract1
|
|
|
|
*!* *!* Ointre=CREATEOBJECT("CAUTintre")
|
|
*!* *!* WITH Ointre
|
|
*!* *!* .CAPTION="Numarul Documentului"
|
|
*!* *!* .label1.caption="Nr. factura:"
|
|
*!* *!* .label2.visible=.f.
|
|
*!* *!* .text1.controlsource="m.nract1"
|
|
*!* *!* .text2.visible=.f.
|
|
*!* *!* ENDWITH
|
|
*!* *!* Ointre.show(1)
|
|
|
|
*!* *!* DO list_fact WITH m.nract1
|
|
Private pnNrAct,pcSerie
|
|
Store 0 To pnNr
|
|
Store "" To pcSerie
|
|
|
|
Do Form frm_cere_nrserie With 'Nr. factura'
|
|
If gnButon = 1
|
|
Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,2 In ofacturare_stoc.prg
|
|
Endif
|
|
Release pnNrAct,pcSerie
|
|
ENDPROC && BAR_9_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_11_OF_Shortcut_FB2P
|
|
ostoc=CREATEOBJECT('frm_raport_stoc')
|
|
ostoc.show(1)
|
|
ENDPROC && BAR_11_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_12_OF_Shortcut_FB2P
|
|
DO fisa_magazie_FIFO WITH gnTipGest IN orapoarte.prg
|
|
ENDPROC && BAR_12_OF_Shortcut_FB2P
|
|
|
|
*</Procedures>
|