Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
590
Meniuri/list4.mn2
Normal file
590
Meniuri/list4.mn2
Normal file
@@ -0,0 +1,590 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="list4.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 "\Aprovizionare marfuri"
|
||||
ON BAR 2 OF Shortcut ACTIVATE POPUP Aprovizion
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Aprovizion SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Aprovizion PROMPT "Pe furnizori"
|
||||
ON SELECTION BAR 1 OF Aprovizion DO BAR_1_OF_Aprovizion_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Aprovizion PROMPT "Pe produse"
|
||||
ON SELECTION BAR 2 OF Aprovizion DO BAR_2_OF_Aprovizion_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Aprovizion PROMPT "Pe grupe si subgrupe"
|
||||
ON SELECTION BAR 3 OF Aprovizion DO BAR_3_OF_Aprovizion_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Shortcut PROMPT "\-"
|
||||
ON BAR 3 OF Shortcut ACTIVATE POPUP _1020qr818
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1020qr818 SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Shortcut PROMPT "Bonuri"
|
||||
ON BAR 4 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 5 OF Shortcut PROMPT "\<Protocol"
|
||||
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Shortcut PROMPT "Protocol - aviz \<expeditie"
|
||||
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Shortcut PROMPT "\<Sponsorizare"
|
||||
ON SELECTION BAR 7 OF Shortcut DO BAR_7_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Shortcut PROMPT "Sponsorizare - aviz \<expeditie"
|
||||
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 9 OF Shortcut PROMPT "\<Retur magazie"
|
||||
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 10 OF Shortcut PROMPT "Transferuri"
|
||||
ON BAR 10 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 "\<Rezervare"
|
||||
ON SELECTION BAR 3 OF Transferur DO BAR_3_OF_Transferur_FB2P
|
||||
|
||||
DEFINE BAR 11 OF Shortcut PROMPT "\-"
|
||||
ON BAR 11 OF Shortcut ACTIVATE POPUP _1020r4619
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1020r4619 SHORTCUT RELATIVE
|
||||
DEFINE BAR 12 OF Shortcut PROMPT "\Avize de insotire"
|
||||
ON SELECTION BAR 12 OF Shortcut DO BAR_12_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 13 OF Shortcut PROMPT "\-"
|
||||
ON BAR 13 OF Shortcut ACTIVATE POPUP _1020queaj
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1020queaj SHORTCUT RELATIVE
|
||||
DEFINE BAR 14 OF Shortcut PROMPT "\<Factura de vanzare"
|
||||
ON SELECTION BAR 14 OF Shortcut DO BAR_14_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 15 OF Shortcut PROMPT "\-"
|
||||
ON BAR 15 OF Shortcut ACTIVATE POPUP _1020r00x7
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1020r00x7 SHORTCUT RELATIVE
|
||||
DEFINE BAR 16 OF Shortcut PROMPT "\<Raport de gestiune"
|
||||
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 _1u716eziw
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1u716eziw SHORTCUT RELATIVE
|
||||
DEFINE BAR 18 OF Shortcut PROMPT "Stocuri"
|
||||
ON SELECTION BAR 18 OF Shortcut DO BAR_18_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 19 OF Shortcut PROMPT "Fisa de \<magazie"
|
||||
ON SELECTION BAR 19 OF Shortcut DO BAR_19_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 20 OF Shortcut PROMPT "Fisa de magazie - cu preturi in valuta"
|
||||
ON SELECTION BAR 20 OF Shortcut DO BAR_20_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 21 OF Shortcut PROMPT "\-"
|
||||
ON BAR 21 OF Shortcut ACTIVATE POPUP _1te0ou05e
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1te0ou05e SHORTCUT RELATIVE
|
||||
DEFINE BAR 22 OF Shortcut PROMPT "Vanzare marfa la pret de lista"
|
||||
ON BAR 22 OF Shortcut ACTIVATE POPUP Vanzaremar
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Vanzaremar SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Vanzaremar PROMPT "Centralizator pe articole"
|
||||
ON SELECTION BAR 1 OF Vanzaremar DO BAR_1_OF_Vanzaremar_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Vanzaremar PROMPT "Rulaje articole"
|
||||
ON SELECTION BAR 2 OF Vanzaremar DO BAR_2_OF_Vanzaremar_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Vanzaremar PROMPT "Centralizator valoric pe liste de preturi"
|
||||
ON SELECTION BAR 3 OF Vanzaremar DO BAR_3_OF_Vanzaremar_FB2P
|
||||
|
||||
DEFINE BAR 23 OF Shortcut PROMPT "\<Raport comparativ de scadere din gestiune pe baza de fisa tehnologica"
|
||||
ON SELECTION BAR 23 OF Shortcut DO BAR_23_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 24 OF Shortcut PROMPT "\<Raport de scadere din gestiune"
|
||||
ON SELECTION BAR 24 OF Shortcut DO BAR_24_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 25 OF Shortcut PROMPT "\<Raport de productie si descarcare gestiune"
|
||||
ON SELECTION BAR 25 OF Shortcut DO BAR_25_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 26 OF Shortcut PROMPT "\<Raport vanzari"
|
||||
ON SELECTION BAR 26 OF Shortcut DO BAR_26_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 27 OF Shortcut PROMPT "Centralizatoare livrari pe subgrupe de produse"
|
||||
ON BAR 27 OF Shortcut ACTIVATE POPUP NewItem
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF NewItem PROMPT "Transferuri catre gestiuni la p.v. cumulate pe gestiuni"
|
||||
ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P
|
||||
|
||||
DEFINE BAR 2 OF NewItem PROMPT "Facturi cumulate pe clienti"
|
||||
ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P
|
||||
|
||||
DEFINE BAR 3 OF NewItem PROMPT "Protocol si sponsorizari cumulate pe parteneri"
|
||||
ON SELECTION BAR 3 OF NewItem DO BAR_3_OF_NewItem_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 ^
|
||||
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_Aprovizion_FB2P
|
||||
*!* DO list_marf_furn_grupe WITH 1
|
||||
ENDPROC && BAR_1_OF_Aprovizion_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Aprovizion_FB2P
|
||||
*!* DO list_marf_furn_grupe WITH 2
|
||||
ENDPROC && BAR_2_OF_Aprovizion_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Aprovizion_FB2P
|
||||
*!* DO list_articole_gr IN gestiuni.prg
|
||||
ENDPROC && BAR_3_OF_Aprovizion_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
|
||||
ENDPROC && BAR_3_OF_Bonuri_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Shortcut_FB2P
|
||||
PRIVATE pnNr
|
||||
STORE 0 TO pnNr
|
||||
|
||||
DO FORM frm_cere_text WITH 'Numarul avizului','pnNr','Numarul avizului' TO lnNr
|
||||
IF gnButon = 1
|
||||
DO listare_protocol WITH pnNr
|
||||
ENDIF
|
||||
ENDPROC && BAR_5_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Shortcut_FB2P
|
||||
Private pnNrAct,pcSerie
|
||||
Store 0 To pnNr
|
||||
Store "" To pcSerie
|
||||
|
||||
Do Form frm_cere_nrserie With 'Nr. aviz'
|
||||
If gnButon = 1
|
||||
Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,-9 In ofacturare_stoc.prg
|
||||
Endif
|
||||
Release pnNrAct,pcSerie
|
||||
ENDPROC && BAR_6_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF_Shortcut_FB2P
|
||||
PRIVATE pnNr
|
||||
STORE 0 TO pnNr
|
||||
|
||||
DO FORM frm_cere_text WITH 'Numarul avizului','pnNr','Numarul avizului' TO lnNr
|
||||
IF gnButon = 1
|
||||
DO listare_protocol WITH pnNr,2
|
||||
ENDIF
|
||||
ENDPROC && BAR_7_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_8_OF_Shortcut_FB2P
|
||||
Private pnNrAct,pcSerie
|
||||
Store 0 To pnNr
|
||||
Store "" To pcSerie
|
||||
|
||||
Do Form frm_cere_nrserie With 'Nr. aviz'
|
||||
If gnButon = 1
|
||||
Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,-10 In ofacturare_stoc.prg
|
||||
Endif
|
||||
Release pnNrAct,pcSerie
|
||||
ENDPROC && BAR_8_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 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_9_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 'Nr. nota:','pnNr','Numarul notei de rezervare/transfer' TO lnNr
|
||||
IF gnButon = 1
|
||||
lnTip = 8
|
||||
DO LISTARE_TRANSFER WITH pnNr, lnTip
|
||||
ENDIF
|
||||
ENDPROC && BAR_3_OF_Transferur_FB2P
|
||||
|
||||
PROCEDURE BAR_12_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_12_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_14_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_14_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_16_OF_Shortcut_FB2P
|
||||
DO list_raport_gestiuni WITH gnTipGest IN oproceduri_listari.prg
|
||||
ENDPROC && BAR_16_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_18_OF_Shortcut_FB2P
|
||||
ostoc=CREATEOBJECT('frm_raport_stoc')
|
||||
ostoc.show(1)
|
||||
ENDPROC && BAR_18_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_19_OF_Shortcut_FB2P
|
||||
DO fisa_magazie_FIFO WITH gnTipGest IN orapoarte.prg
|
||||
ENDPROC && BAR_19_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_20_OF_Shortcut_FB2P
|
||||
DO fisa_magazie_FIFO_valuta WITH gnTipGest IN orapoarte.prg
|
||||
ENDPROC && BAR_20_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Vanzaremar_FB2P
|
||||
omarfa=CREATEOBJECT('frm_raport_marfa',1)
|
||||
omarfa.show(1)
|
||||
ENDPROC && BAR_1_OF_Vanzaremar_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Vanzaremar_FB2P
|
||||
omarfa=CREATEOBJECT('frm_raport_marfa',2)
|
||||
omarfa.show(1)
|
||||
ENDPROC && BAR_2_OF_Vanzaremar_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Vanzaremar_FB2P
|
||||
omarfa=CREATEOBJECT('frm_raport_marfa',3)
|
||||
omarfa.show(1)
|
||||
ENDPROC && BAR_3_OF_Vanzaremar_FB2P
|
||||
|
||||
PROCEDURE BAR_23_OF_Shortcut_FB2P
|
||||
locant = CREATEOBJECT('frm_rap_gv_cant')
|
||||
locant.show(1)
|
||||
ENDPROC && BAR_23_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_24_OF_Shortcut_FB2P
|
||||
loval = CREATEOBJECT('frm_rap_gv_val')
|
||||
loval.show(1)
|
||||
ENDPROC && BAR_24_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_25_OF_Shortcut_FB2P
|
||||
PRIVATE pnNr
|
||||
STORE 0 TO pnNr
|
||||
|
||||
DO FORM frm_cere_text WITH 'Numarul bonului','pnNr','Numarul bonului' TO lnNr
|
||||
IF gnButon = 1
|
||||
lnTip = gnTipGest
|
||||
DO listare_descarcare_productie WITH pnNr, lnTip
|
||||
ENDIF
|
||||
ENDPROC && BAR_25_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_26_OF_Shortcut_FB2P
|
||||
DO raport_vanzari IN oproceduri_listari.prg
|
||||
ENDPROC && BAR_26_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_NewItem_FB2P
|
||||
Do list_centr_iesiri with gnTipGest,1 in oproceduri_listari.prg
|
||||
ENDPROC && BAR_1_OF_NewItem_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_NewItem_FB2P
|
||||
Do list_centr_iesiri with gnTipGest,2 in oproceduri_listari.prg
|
||||
ENDPROC && BAR_2_OF_NewItem_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_NewItem_FB2P
|
||||
Do list_centr_iesiri with gnTipGest,3 in oproceduri_listari.prg
|
||||
ENDPROC && BAR_3_OF_NewItem_FB2P
|
||||
|
||||
*</Procedures>
|
||||
Reference in New Issue
Block a user