romfast/roagest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
eef67ccbbec1a7d301c47c9dc6116c82b4f56802
roagest/Meniuri/list5.mn2

322 lines
10 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="list5.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"
ON BAR 1 OF Shortcut ACTIVATE POPUP NIRdupanum
*----------------------------------
DEFINE POPUP NIRdupanum SHORTCUT RELATIVE
DEFINE BAR 1 OF NIRdupanum PROMPT "\<NIR de la numar la numar"
ON SELECTION BAR 1 OF NIRdupanum DO BAR_1_OF_NIRdupanum_FB2P
DEFINE BAR 2 OF NIRdupanum PROMPT "NIR-uri \<pe Gestiuni"
ON SELECTION BAR 2 OF NIRdupanum DO BAR_2_OF_NIRdupanum_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "NIR \<RATC"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "NIR din \<Aviz Transfer" ;
MESSAGE 'Lstare aviz de transfer sub forma de NIR'
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "\-"
ON BAR 4 OF Shortcut ACTIVATE POPUP _1020qz893
*----------------------------------
DEFINE POPUP _1020qz893 SHORTCUT RELATIVE
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 "\<Transferuri"
ON BAR 6 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 7 OF Shortcut PROMPT "\-"
ON BAR 7 OF Shortcut ACTIVATE POPUP _1020r95mz
*----------------------------------
DEFINE POPUP _1020r95mz SHORTCUT RELATIVE
DEFINE BAR 8 OF Shortcut PROMPT "\<Aviz de expeditie / aviz de retur"
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
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 "Retur de la gestiune valorica - aviz de expeditie"
ON SELECTION BAR 10 OF Shortcut DO BAR_10_OF_Shortcut_FB2P
DEFINE BAR 11 OF Shortcut PROMPT "\-"
ON BAR 11 OF Shortcut ACTIVATE POPUP _1020qwge1
*----------------------------------
DEFINE POPUP _1020qwge1 SHORTCUT RELATIVE
DEFINE BAR 12 OF Shortcut PROMPT "\<Raport de gestiune"
ON SELECTION BAR 12 OF Shortcut DO BAR_12_OF_Shortcut_FB2P
DEFINE BAR 13 OF Shortcut PROMPT "Raport de gestiune \<centralizator"
ON SELECTION BAR 13 OF Shortcut DO BAR_13_OF_Shortcut_FB2P
DEFINE BAR 14 OF Shortcut PROMPT "\<P.V. schimbare pret 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 _1020r0q7d
*----------------------------------
DEFINE POPUP _1020r0q7d SHORTCUT RELATIVE
DEFINE BAR 16 OF Shortcut PROMPT "\<Stocuri"
ON SELECTION BAR 16 OF Shortcut DO BAR_16_OF_Shortcut_FB2P
DEFINE BAR 17 OF Shortcut PROMPT "Fisa de \<magazie"
ON SELECTION BAR 17 OF Shortcut DO BAR_17_OF_Shortcut_FB2P
DEFINE BAR 18 OF Shortcut PROMPT "\-"
ON BAR 18 OF Shortcut ACTIVATE POPUP _2f20vtiu6
*----------------------------------
DEFINE POPUP _2f20vtiu6 SHORTCUT RELATIVE
DEFINE BAR 19 OF Shortcut PROMPT "Centralizator valoric pe subgrupe de produse"
ON SELECTION BAR 19 OF Shortcut DO BAR_19_OF_Shortcut_FB2P
DEFINE BAR 20 OF Shortcut PROMPT "Centralizator valoric pe subgrupe de produse, gestiune"
ON SELECTION BAR 20 OF Shortcut DO BAR_20_OF_Shortcut_FB2P
DEFINE BAR 21 OF Shortcut PROMPT "Centralizator articole procese verbale schimbare pret"
ON SELECTION BAR 21 OF Shortcut DO BAR_21_OF_Shortcut_FB2P
DEFINE BAR 22 OF Shortcut PROMPT "\-"
ON BAR 22 OF Shortcut ACTIVATE POPUP _2k610w3wl
*----------------------------------
DEFINE POPUP _2k610w3wl SHORTCUT RELATIVE
DEFINE BAR 23 OF Shortcut PROMPT "Centralizator procese verbale de schimbare pret"
ON SELECTION BAR 23 OF Shortcut DO BAR_23_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_NIRdupanum_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="Nr.="
*!* .label2.visible=.f.
*!* .text1.controlsource="m.nract1"
*!* .text2.visible=.f.
*!* endwith
*!* ointre.show(1)
*!* DO LIST_NIR WITH ALLTRIM(STR(M.NRACT1)),2
ENDPROC && BAR_1_OF_NIRdupanum_FB2P
PROCEDURE BAR_2_OF_NIRdupanum_FB2P
lnTip = gnTipGest
DO list_total_NIR WITH lnTip && in oproceduri_listari.prg
ENDPROC && BAR_2_OF_NIRdupanum_FB2P
PROCEDURE BAR_2_OF_Shortcut_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, 17
ENDIF
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
* listare transfer ca un NIR
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_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip, .F., .F., 1
ENDIF
ENDPROC && BAR_3_OF_Shortcut_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_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,18
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,17
ENDPROC && BAR_2_OF_Transferur_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,1 In ofacturare_stoc.prg
Endif
Release pnNrAct,pcSerie
ENDPROC && BAR_8_OF_Shortcut_FB2P
PROCEDURE BAR_9_OF_Shortcut_FB2P
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_10_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,-6 In ofacturare_stoc.prg
Endif
Release pnNrAct,pcSerie
ENDPROC && BAR_10_OF_Shortcut_FB2P
PROCEDURE BAR_12_OF_Shortcut_FB2P
DO list_raport_gestiuni WITH gnTipGest IN oproceduri_listari.prg
ENDPROC && BAR_12_OF_Shortcut_FB2P
PROCEDURE BAR_13_OF_Shortcut_FB2P
DO list_raport_gestiuni_centralizator WITH gnTipGest IN oproceduri_listari.prg
ENDPROC && BAR_13_OF_Shortcut_FB2P
PROCEDURE BAR_14_OF_Shortcut_FB2P
Do relisteaza_schimbare_pret In oschimbare_pret.prg
ENDPROC && BAR_14_OF_Shortcut_FB2P
PROCEDURE BAR_16_OF_Shortcut_FB2P
ostoc=CREATEOBJECT('frm_raport_stoc')
ostoc.show(1)
ENDPROC && BAR_16_OF_Shortcut_FB2P
PROCEDURE BAR_17_OF_Shortcut_FB2P
DO fisa_magazie_FIFO WITH gnTipGest IN orapoarte.prg
ENDPROC && BAR_17_OF_Shortcut_FB2P
PROCEDURE BAR_19_OF_Shortcut_FB2P
Do list_centr_valoric_subgr in oproceduri_listari.prg
ENDPROC && BAR_19_OF_Shortcut_FB2P
PROCEDURE BAR_20_OF_Shortcut_FB2P
Do list_centr_valoric_subgr WITH 2 in oproceduri_listari.prg
ENDPROC && BAR_20_OF_Shortcut_FB2P
PROCEDURE BAR_21_OF_Shortcut_FB2P
Do centralizator_articole_schimbpret in oschimbare_pret.prg
ENDPROC && BAR_21_OF_Shortcut_FB2P
PROCEDURE BAR_23_OF_Shortcut_FB2P
Do listeaza_centralizator_schimbpret in oschimbare_pret.prg WITH gnTipGest
ENDPROC && BAR_23_OF_Shortcut_FB2P
*</Procedures>
Reference in New Issue View Git Blame Copy Permalink