539 lines
15 KiB
Plaintext
539 lines
15 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="list3.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 _13c0v16p0
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _13c0v16p0 SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _13c0v16p0 PROMPT "\<NIR de la numar la numar"
|
|
ON SELECTION BAR 1 OF _13c0v16p0 DO BAR_1_OF__13c0v16p0_FB2P
|
|
|
|
DEFINE BAR 2 OF _13c0v16p0 PROMPT "NIR-uri \<pe Gestiuni"
|
|
ON SELECTION BAR 2 OF _13c0v16p0 DO BAR_2_OF__13c0v16p0_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "\NIR/BON pe baza de fisa tehnologica"
|
|
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 3 OF Shortcut PROMPT "\-"
|
|
ON BAR 3 OF Shortcut ACTIVATE POPUP _1020r1888
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1020r1888 SHORTCUT RELATIVE
|
|
DEFINE BAR 4 OF Shortcut PROMPT "PV de productie"
|
|
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 5 OF Shortcut PROMPT "\Deviz-PV de productie"
|
|
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 6 OF Shortcut PROMPT "\-"
|
|
ON BAR 6 OF Shortcut ACTIVATE POPUP _1020r5imu
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1020r5imu SHORTCUT RELATIVE
|
|
DEFINE BAR 7 OF Shortcut PROMPT "\<Bon de consum"
|
|
ON BAR 7 OF Shortcut ACTIVATE POPUP Bondeconsu
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Bondeconsu SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Bondeconsu PROMPT "\<De la numar la numar"
|
|
ON SELECTION BAR 1 OF Bondeconsu DO BAR_1_OF_Bondeconsu_FB2P
|
|
|
|
DEFINE BAR 2 OF Bondeconsu PROMPT "Pe comenzi"
|
|
ON SELECTION BAR 2 OF Bondeconsu DO BAR_2_OF_Bondeconsu_FB2P
|
|
|
|
DEFINE BAR 3 OF Bondeconsu PROMPT "Pe gestiuni"
|
|
ON SELECTION BAR 3 OF Bondeconsu DO BAR_3_OF_Bondeconsu_FB2P
|
|
|
|
DEFINE BAR 8 OF Shortcut PROMPT "\<Retur magazie"
|
|
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 9 OF Shortcut PROMPT "\Raport de productie postcalcul"
|
|
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 _10w0r33ym
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _10w0r33ym SHORTCUT RELATIVE
|
|
DEFINE BAR 11 OF Shortcut PROMPT "Transferuri"
|
|
ON BAR 11 OF Shortcut ACTIVATE POPUP NewItem
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF NewItem PROMPT "\<Diferenta de pret la produse"
|
|
ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P
|
|
|
|
DEFINE BAR 2 OF NewItem PROMPT "Catre o gestiune la pret de \<achizitie"
|
|
ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P
|
|
|
|
DEFINE BAR 3 OF NewItem PROMPT "Catre o gestiune la pret de \<vanzare"
|
|
ON SELECTION BAR 3 OF NewItem DO BAR_3_OF_NewItem_FB2P
|
|
|
|
DEFINE BAR 12 OF Shortcut PROMPT "\-"
|
|
ON BAR 12 OF Shortcut ACTIVATE POPUP _12r0pi9gj
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _12r0pi9gj SHORTCUT RELATIVE
|
|
DEFINE BAR 13 OF Shortcut PROMPT "Factura de vanzare en-detail"
|
|
ON SELECTION BAR 13 OF Shortcut DO BAR_13_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 14 OF Shortcut PROMPT "\-"
|
|
ON BAR 14 OF Shortcut ACTIVATE POPUP _13c0sbq6o
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _13c0sbq6o SHORTCUT RELATIVE
|
|
DEFINE BAR 15 OF Shortcut PROMPT "Stocuri"
|
|
ON SELECTION BAR 15 OF Shortcut DO BAR_15_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 16 OF Shortcut PROMPT "Fisa de \<magazie"
|
|
ON SELECTION BAR 16 OF Shortcut DO BAR_16_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 17 OF Shortcut PROMPT "\-"
|
|
ON BAR 17 OF Shortcut ACTIVATE POPUP _1tl0pj2sf
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1tl0pj2sf SHORTCUT RELATIVE
|
|
DEFINE BAR 18 OF Shortcut PROMPT "\<Raport comparativ de scadere din gestiune pe baza de fisa tehnologica"
|
|
ON SELECTION BAR 18 OF Shortcut DO BAR_18_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 19 OF Shortcut PROMPT "\<Raport de scadere din gestiune"
|
|
ON SELECTION BAR 19 OF Shortcut DO BAR_19_OF_Shortcut_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF__13c0v16p0_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 ^
|
|
|
|
|
|
*!* *public m.nract1,m.nract2
|
|
*!* *store 0 to m.nract1,m.nract2,M.SUM1,M.SUM2
|
|
|
|
*!* 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__13c0v16p0_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__13c0v16p0_FB2P
|
|
lnTip = gnTipGest
|
|
DO list_total_NIR WITH lnTip && in oproceduri_listari.prg
|
|
ENDPROC && BAR_2_OF__13c0v16p0_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
|
*!* STORE 0 TO m.nract1
|
|
*!* Ointre=CREATEOBJECT("CAUTintre")
|
|
*!* WITH Ointre
|
|
*!* .CAPTION="Numarul NIR-ului"
|
|
*!* .label1.caption="Nr.initial:"
|
|
*!* .label2.visible=.f.
|
|
*!* .text1.controlsource="m.nract1"
|
|
*!* .text2.visible=.f.
|
|
*!* endwith
|
|
*!* ointre.show(1)
|
|
*!*
|
|
*!* M.NNIR=ALLTRIM(STR(M.NRACT1))
|
|
*!* SELECT rull.*,retetar.cant as cant_p;
|
|
*!* from (rull JOIN retetar ON (VAL(rull.nrord)=retetar.id_produs AND rull.denumire=retetar.denumire));
|
|
*!* WHERE VAL(rull.nnir)=m.nract1 AND rull.cante#0 INTO TABLE &loc\&nfscurt\tempo\tabel.dbf
|
|
|
|
|
|
*!* SELECT * from tabel t JOIN rull r ON t.nrord=r.nrord AND t.nnir=r.nnir WHERE r.cante=0 INTO CURSOR bbb
|
|
*!* SELECT bbb
|
|
*!* GO top
|
|
*!* SCATTER FIELDS gest_a,gest_b memv
|
|
*!* SELECT numegest
|
|
*!* LOCATE FOR gest=m.gest_a
|
|
*!* m.numegest=numegest
|
|
*!* LOCATE FOR gest=m.gest_b
|
|
*!* gestfix=numegest
|
|
*!* SELECT bbb
|
|
*!* REPORT FORM bontransfer TO PRINTER PROMPT PREVIEW
|
|
*!* USE IN tabel
|
|
*!* USE IN BBB
|
|
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_Shortcut_FB2P
|
|
PRIVATE pnNr
|
|
STORE 0 TO pnNr
|
|
|
|
DO FORM frm_cere_text WITH 'Numarul procesului verbal','pnNr','Numarul procesului verbal' TO lnNr
|
|
IF gnButon = 1
|
|
lnTip = gnTipGest
|
|
DO listare_nir WITH pnNr, lnTip, .T.
|
|
ENDIF
|
|
ENDPROC && BAR_4_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Shortcut_FB2P
|
|
|
|
|
|
*!* STORE 0 TO m.regulariz,CC,DD,TT
|
|
*!* CC='C1'
|
|
*!* DD='D1'
|
|
*!* TT='T1'
|
|
*!* FOR I=2 TO 20
|
|
*!* CC=CC+',C'+ALLTRIM(STR(I))
|
|
*!* DD=DD+',D'+ALLTRIM(STR(I))
|
|
*!* TT=TT+',T'+ALLTRIM(STR(I))
|
|
*!* NEXT
|
|
*!* ZZ='STORE 0 TO '+CC+','+TT
|
|
*!* &ZZ
|
|
*!* ZZ='STORE "" TO '+DD
|
|
*!* &ZZ
|
|
|
|
|
|
*!* m.nrord=ALLTRIM(m.nrord)
|
|
|
|
*!* DO cerenumar WITH 'Nr.PV de productie:','m.nract'
|
|
|
|
|
|
*!* SELECT act
|
|
*!* LOCATE FOR nract=m.nract AND INLIST(scd,'345 ','347 ')
|
|
*!* IF !FOUND()
|
|
*!* DO mesaj WITH 'Acest numar nu este regasit in luna curenta',''
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
|
|
*!* SELECT act
|
|
*!* SCATTER FIELDS nrord,dataireg,nract,cod,suma MEMV
|
|
|
|
*!* SELECT rull
|
|
*!* SET ORDER TO TAG cod
|
|
*!* SEEK m.cod
|
|
*!* IF !FOUND()
|
|
*!* DO mesaj WITH 'Eroare de inregistrare',''
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* SCATTER FIELDS denumire, pret,cante,gest MEMV
|
|
*!* m.totftva=m.pret
|
|
|
|
|
|
*!* &&& materiale:
|
|
*!* SELECT denumire, pret,cante AS CANT,nnir,nrord FROM rul;
|
|
*!* WHERE cante!=0 AND !EMPTY(nrord) AND ALLTRIM(nrord)=m.nrord ;
|
|
*!* INTO CURSOR bonuri
|
|
*!* *!* SELECT BONURI
|
|
*!* *!* BROW
|
|
|
|
*!* IF _TALLY=0
|
|
*!* DO mesaj WITH 'Nu exista bonuri la aceasta lucrare!',''
|
|
*!* DO sterge
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
|
|
*!* &&& pretul de achizitie:
|
|
*!* SELECT bonuri
|
|
*!* SUM pret*CANT TO m.totftvaa
|
|
|
|
|
|
*!* &&& pretul de intrare:
|
|
|
|
*!* *STORE '' TO m.denumire
|
|
*!* STORE 1 TO m.CANT
|
|
*!* *DO cerestring WITH 'Denumirea produsului:','m.denumire'
|
|
*!* *!* DO cerenumar WITH 'Cantitatea produsa:','m.cant'
|
|
*!* *!* IF m.cant<=0
|
|
*!* *!* m.cant=1
|
|
*!* *!* endif
|
|
*!* SELE INTRARI
|
|
*!* ZAP
|
|
*!* APPEND BLANK
|
|
*!* GATHER FIELDS scd,gest,denumire,CANT,cod MEMV
|
|
*!* REPLACE pret WITH m.totftva/m.CANT
|
|
|
|
*!* SELECT COTE
|
|
*!* GO TOP
|
|
*!* SCATTER MEMV
|
|
*!* totcote=(c1+c2+c3+c4+c5+c6+c7+c8+c9+c10+c11+c12+c13+c14+c15+c16+c17+c18+c19+c20)*m.totftvaa
|
|
*!* m.totftva=m.totftvaa+totcote
|
|
*!* m.regulariz=m.suma-m.totftva
|
|
*!* IF ABS(m.regulariz)>1
|
|
*!* DO mesaj WITH 'Regularizare= '+ALLTRIM(STR(m.regulariz)),''
|
|
*!* ENDIF
|
|
|
|
*!* SELECT bonuri
|
|
*!* COPY TO &LOC\&NFSCURT\TEMPO\temp.DBF
|
|
*!* USE &LOC\&NFSCURT\TEMPO\temp.DBF IN 0 ALIAS temp EXCL
|
|
*!* SELE temp
|
|
*!* SELE temp
|
|
*!* ALTER TABLE temp ADD COLUMN cante N(10,3)
|
|
*!* FOR I = 1 TO 20
|
|
*!* T='c'+ALLT(STR(I))
|
|
*!* ALTER TABLE temp ADD COLUMN &T N(10,4)
|
|
*!* ENDFOR
|
|
*!* REPLACE ALL nrord WITH M.nrord
|
|
*!* REPLACE ALL cante WITH 1
|
|
|
|
|
|
*!* SELECT temp
|
|
*!* SCAN
|
|
*!* GATH FIEL LIKE C?,C?? MEMV
|
|
*!* ENDSCAN
|
|
*!* REPORT FORM pvprod TO PRINTER PROMPT PREVIEW
|
|
*!* USE IN temp
|
|
|
|
*!* DO sterge
|
|
*!* RETURN
|
|
ENDPROC && BAR_5_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Bondeconsu_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_Bondeconsu_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Bondeconsu_FB2P
|
|
DO list_bon_pe_lucrare WITH gnTipGest
|
|
ENDPROC && BAR_2_OF_Bondeconsu_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Bondeconsu_FB2P
|
|
lnTip = gnTipGest
|
|
DO list_total_BON WITH lnTip && in oproceduri_listari.prg
|
|
|
|
|
|
*!* *******
|
|
|
|
*!* PUBLIC 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
|
|
|
|
*!* USE IN RA
|
|
ENDPROC && BAR_3_OF_Bondeconsu_FB2P
|
|
|
|
PROCEDURE BAR_8_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,6
|
|
ENDPROC && BAR_8_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_9_OF_Shortcut_FB2P
|
|
*!* DO raport_productie_postcalcul IN gestiuni.prg
|
|
ENDPROC && BAR_9_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_NewItem_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 = 7
|
|
DO LISTARE_TRANSFER WITH pnNr, lnTip
|
|
ENDIF
|
|
ENDPROC && BAR_1_OF_NewItem_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_NewItem_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_2_OF_NewItem_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_NewItem_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)
|
|
|
|
*!* Sele act
|
|
*!* Loca For nract=m.nract1 And scd='3712' And scc='3711'
|
|
*!* If Found()
|
|
*!* Scat Memv
|
|
|
|
*!* m.numegest=m.explicatia
|
|
*!* Select * From RUL Where COD=M.COD Into Table &LOC\&NFSCURT\TEMPO\ARUL
|
|
*!* Use In RUL
|
|
*!* Use In ARUL
|
|
*!* Use &LOC\&NFSCURT\TEMPO\ARUL In 0 Alias RUL
|
|
*!* ***
|
|
*!* Select RUL
|
|
*!* Set Filter To !Empty(cante)
|
|
*!* Report Format NIRTRANSFER.FRX To Printer Prompt Preview
|
|
*!* *Endif
|
|
*!* Do TOTV
|
|
|
|
*!* Else
|
|
*!* Do MESAJ With 'Nu exista aceasta nota de transfer',''
|
|
*!* Endif
|
|
|
|
*!* sele act
|
|
*!* set filter to
|
|
ENDPROC && BAR_3_OF_NewItem_FB2P
|
|
|
|
PROCEDURE BAR_13_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_13_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_15_OF_Shortcut_FB2P
|
|
ostoc=CREATEOBJECT('frm_raport_stoc')
|
|
ostoc.show(1)
|
|
ENDPROC && BAR_15_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_16_OF_Shortcut_FB2P
|
|
DO fisa_magazie_FIFO WITH gnTipGest IN orapoarte.prg
|
|
ENDPROC && BAR_16_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_18_OF_Shortcut_FB2P
|
|
locant = CREATEOBJECT('frm_rap_gv_cant')
|
|
locant.show(1)
|
|
ENDPROC && BAR_18_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_19_OF_Shortcut_FB2P
|
|
loval = CREATEOBJECT('frm_rap_gv_val')
|
|
loval.show(1)
|
|
ENDPROC && BAR_19_OF_Shortcut_FB2P
|
|
|
|
*</Procedures>
|