romfast/roagest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 11:22:03 +03:00
commit 7ae0c39d5e
204 changed files with 66147 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

258
Meniuri/achi3.mn2 Normal file
View File

@@ -0,0 +1,258 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="achi3.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 "\Pe baza de fisa tehnologica"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\Pe baza de \<deviz"
ON SELECTION BAR 2 OF Shortcut lans(82)
DEFINE BAR 3 OF Shortcut PROMPT "Productie \<proprie" ;
MESSAGE "345:711"
ON SELECTION BAR 3 OF Shortcut lans(100)
DEFINE BAR 4 OF Shortcut PROMPT "\<Inregistrare prod. cu inchidere prod. in curs" ;
MESSAGE "345:711;711:331"
ON SELECTION BAR 4 OF Shortcut lans(219)
DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _6vh12wqmo
*----------------------------------
DEFINE POPUP _6vh12wqmo SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "Semifabricate" ;
MESSAGE "341:711"
ON SELECTION BAR 6 OF Shortcut lans(277)
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
*!* LOCAL lmarca, lcant,LNUME,LCOD,lsuma,ldata
*!* STORE .F. TO lmarca
*!* STORE {} TO ldata
*!* DO sterge
*!* buton=1
*!* m.FDOC='PROCES VERBAL PRODUCTIE'
*!* lans(77)
*!* IF buton=2
*!* DO sterge
*!* RETURN
*!* ENDIF
*!* SELE numegest
*!* LOCA FOR numegest=m.numegest
*!* m.GESTDEST=GEST
*!* ldata=M.DATAACT
*!* OP_GEST.SELECTIE_achi()&&materiale
*!* DO CAUT_ALFA_CURSOR WITH 'NUMEGEST','NUMEGEST','Gestiunea sursa de materiale:','m.numegest'
*!* m.GESTSURSA=GEST
*!* OP_GEST.PAGEFR1.SELECTIE(NR_GEST)
*!* SELECT INTRARI
*!* ZAP
*!* OB=CREATEOBJECT("FACTGEST_RETETAR")
*!* OB.SHOW(1)
*!* IF buton=2
*!* DO sterge
*!* RETURN
*!* ENDIF
*!* SELECT INTRARI
*!* SCAN
*!* m.ID_PRODUS=VAL(sectie)
*!* CANTITATE=CANT
*!* SELECT DISTINCT codmat,denumire,UM,SUM(cants+CANT-cantE) AS cants FROM stoc WHERE GEST=M.GESTSURSA INTO CURSOR STOCTOTAL;
*!* GROUP BY denumire,codmat
*!* SELECT retetar
*!* SCAN FOR ID_PRODUS=m.ID_PRODUS AND !DELETED()
*!* SCATTER MEMVAR
*!* pcant=CANTITATE*m.CANT
*!* SELECT STOCTOTAL
*!* LOCATE FOR denumire=m.denumire AND codmat=m.codmat
*!* IF !FOUND() OR cants<pcant
*!* DO mesaj WITH "Nu e in stoc cantitatea dorita pentru ",ALLTRIM(m.codmat)+' '+ALLTRIM(m.denumire)
*!* lmarca=.T.
*!* ENDIF
*!* SELECT retetar
*!* ENDSCAN
*!* SELECT INTRARI
*!* ENDSCAN
*!* IF lmarca=.T.
*!* RETURN
*!* ENDIF
*!* DO codare
*!* SELECT INTRARI
*!* REPLACE ALL cod WITH m.cod
*!* SELECT INTRARI
*!* SCAN
*!* m.ID_PRODUS=VAL(sectie)
*!* CANTITATE=CANT
*!* STORE .F. TO lmarca
*!* STORE 0 TO lcant
*!* STORE " " TO LNUME,LCOD
*!* CREATE TABLE &LOC\&NFSCURT\TEMPO\retete.DBF (denumire c(100),codmat c(50),CANT N(10,3),cantE N(14,3), pretu N(14,2), pret N(14,2),UM c(6))
*!* SELECT retetar
*!* SCAN FOR ID_PRODUS=m.ID_PRODUS AND !DELETED()
*!* SCATTER MEMVAR
*!* pcant=CANTITATE*m.CANT
*!* *
*!* SELECT retete
*!* APPEND BLANK
*!* GATHER MEMVAR
*!* REPLACE cantE WITH pcant
*!* SELECT retetar
*!* ENDSCAN
*!* SELECT S.UM,S.pret AS pret,S.pret AS pretTOT,S.SCD,S.denumire,S.codmat,S.cants+S.CANT-S.cantE AS cantE,R.cantE AS CANTTOT;
*!* FROM stoc S JOIN retete R ON S.denumire=R.denumire AND S.codmat=R.codmat;
*!* WHERE S.GEST=M.GESTSURSA AND (S.cants+S.CANT-S.cantE)>0;
*!* INTO TABLE &LOC\&NFSCURT\TEMPO\AAA ORDER BY R.denumire,R.codmat
*!* SELECT AAA
*!* SCAN
*!* DO CASE
*!* CASE ALLTRIM(denumire)=LNUME AND ALLTRIM(codmat)=LCOD AND !lmarca
*!* REPLACE cantE WITH 0
*!* REPLACE CANTTOT WITH 0
*!* REPLACE pretTOT WITH 0
*!* CASE cantE>=CANTTOT AND !lmarca &&AND DENUMIRE!=LNUME AND CODMAT!=LCOD
*!* REPLACE cantE WITH CANTTOT
*!* REPLACE pretTOT WITH CANTTOT*pret
*!* LNUME=ALLTRIM(denumire)
*!* LCOD=ALLTRIM(codmat)
*!* CASE cantE<CANTTOT AND !lmarca &&AND DENUMIRE!=LNUME AND CODMAT!=LCOD
*!* lcant=CANTTOT-cantE
*!* lmarca=.T.
*!* REPLACE pretTOT WITH cantE*pret
*!* CASE lmarca AND cantE>=lcant
*!* REPLACE cantE WITH lcant
*!* REPLACE pretTOT WITH lcant*pret
*!* lmarca=.F.
*!* LNUME=ALLTRIM(denumire)
*!* LCOD=ALLTRIM(codmat)
*!* CASE lmarca AND cantE<lcant
*!* lcant=lcant-cantE
*!* REPLACE pretTOT WITH cantE*pret
*!* ENDCASE
*!* ENDSCAN
*!* SELECT iesiri
*!* ZAP
*!* APPEND FROM &LOC\&NFSCURT\TEMPO\AAA.DBF FOR cantE#0 &&FIELDS codmat,denumire,UM,pret,cantE
*!* SELECT iesiri
*!* REPLACE ALL nnir WITH m.nnir,DATAACT WITH ldata, cod WITH m.cod,GEST WITH m.GESTSURSA,;
*!* sectie WITH STR(m.ID_PRODUS)
*!* SELECT iesiri
*!* SUM pret*cantE TO lsuma
*!* SUM pret TO LSUMAP
*!* m.DATAACT=ldata
*!* DO contabilizeaza WITH '601','301',lsuma
*!* SELECT iesiri
*!* DO iestocurimagazii
*!* DO ierulajmagazii
*!* SELECT INTRARI
*!* REPLACE pret WITH lsuma/CANTITATE
*!* REPLACE VALFTVA WITH CANT*lsuma/CANTITATE
*!* ENDSCAN
*!* SELECT INTRARI
*!* *REPLACE ALL nrord WITH ""
*!* m.DATAACT=ldata
*!* PRIVATE pnsuma
*!* SUM VALFTVA TO pnsuma
*!* m.EXPLICATIA=M.nume_4
*!* DO contabilizeaza WITH "345 ","711 ",pnsuma
*!* DO instocurimagazii
*!* DO inrulajmagazii
*!* SELECT rull
*!* IF FLOCK()
*!* REPLACE ALL nrord WITH sectie FOR cod=m.cod
*!* REPLACE ALL sectie WITH "" FOR cod=m.cod
*!* ENDIF
*!* UNLOCK
*!* *!* *-------------------listare----------------------------
*!* *SELECT * from rull WHERE cod=m.cod INTO CURSOR bbb
*!* *SELECT DISTINCT * from intrari i JOIN rull r ON i.cod=r.cod AND i.nrord=r.nrord WHERE R.CANTE#0 INTO CURSOR bbb
*!* *!* sele *,retetar.cant as cant_p ;
*!* *!* from (rull JOIN retetar ON (VAL(rull.nrord)=retetar.id_produs AND rull.denumire=retetar.denumire));
*!* *!* WHERE rull.cod=m.cod AND rull.cante#0 INTO TABLE c:\tabel.dbf
*!* *DO danu WITH 'Doriti sa listati acest nir?'
*!* *IF buton=1
*!* LOCAL m.gest_a,m.gest_b
*!* STORE 0 TO m.gest_a,m.gest_b
*!* SELECT rull.*,retetar.CANT AS cant_p;
*!* FROM (rull JOIN retetar ON (VAL(rull.nrord)=retetar.ID_PRODUS AND rull.denumire=retetar.denumire));
*!* WHERE rull.cod=m.cod 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.cod=R.cod WHERE R.cantE=0 INTO CURSOR bbb
*!* SELECT bbb
*!* GO TOP
*!* SCATTER FIELDS gest_a,gest_b MEMVAR
*!* 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
*!* *ENDIF
*!* *!* *------------------/listare---------------------------
*!* USE IN AAA
*!* USE IN retete
*!* USE IN tabel
*!* DELETE FILE &LOC\&NFSCURT\TEMPO\tabel.DBF
*!* DO sterge
ENDPROC && BAR_1_OF_Shortcut_FB2P
*</Procedures>

81
Meniuri/achi4.mn2 Normal file
View File

@@ -0,0 +1,81 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="achi4.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 "Factura \<neplatita"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\<Factura \<platita din casa"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "\<Factura platita din \<avans spre decontare"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "\<Factura n\<esosita"
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
DEFINE BAR 5 OF Shortcut PROMPT "\<Taxare inversa"
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 _12u0vdvz1
*----------------------------------
DEFINE POPUP _12u0vdvz1 SHORTCUT RELATIVE
DEFINE BAR 7 OF Shortcut PROMPT "\<Repartizare valoare pe articole"
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 _1u30biu5i
*----------------------------------
DEFINE POPUP _1u30biu5i SHORTCUT RELATIVE
DEFINE BAR 9 OF Shortcut PROMPT "\<Materiale recuperate"
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P
DEFINE BAR 10 OF Shortcut PROMPT "NIR - finalizare aprovizionare"
ON SELECTION BAR 10 OF Shortcut DO BAR_10_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
LANS(43)
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
LANS(44)
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
lans(45)
ENDPROC && BAR_3_OF_Shortcut_FB2P
PROCEDURE BAR_4_OF_Shortcut_FB2P
lans(47)
ENDPROC && BAR_4_OF_Shortcut_FB2P
PROCEDURE BAR_5_OF_Shortcut_FB2P
lans(101)
ENDPROC && BAR_5_OF_Shortcut_FB2P
PROCEDURE BAR_7_OF_Shortcut_FB2P
LANS(94)
ENDPROC && BAR_7_OF_Shortcut_FB2P
PROCEDURE BAR_9_OF_Shortcut_FB2P
lans(85)
ENDPROC && BAR_9_OF_Shortcut_FB2P
PROCEDURE BAR_10_OF_Shortcut_FB2P
lans(264)
ENDPROC && BAR_10_OF_Shortcut_FB2P
*</Procedures>

43
Meniuri/achi5.mn2 Normal file
View File

@@ -0,0 +1,43 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="achi5.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 "Factura \<neplatita"
ON SELECTION BAR 1 OF Shortcut lans(49)
DEFINE BAR 2 OF Shortcut PROMPT "Factura neplatita - lista de preturi"
ON SELECTION BAR 2 OF Shortcut lans(231)
DEFINE BAR 3 OF Shortcut PROMPT "Factura neplatita - bilete RATC"
ON SELECTION BAR 3 OF Shortcut lans(234)
DEFINE BAR 4 OF Shortcut PROMPT "\-"
ON BAR 4 OF Shortcut ACTIVATE POPUP _2eu0nacce
*----------------------------------
DEFINE POPUP _2eu0nacce SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "Factura \<platita din casa"
ON SELECTION BAR 5 OF Shortcut lans(48)
DEFINE BAR 6 OF Shortcut PROMPT "Factura platita din \<avans spre decontare"
ON SELECTION BAR 6 OF Shortcut lans(50)
DEFINE BAR 7 OF Shortcut PROMPT "Factura n\<esosita (marfa in consignatie)"
ON SELECTION BAR 7 OF Shortcut lans(51)
DEFINE BAR 8 OF Shortcut PROMPT "\-"
ON BAR 8 OF Shortcut ACTIVATE POPUP _2vc0y92oe
*----------------------------------
DEFINE POPUP _2vc0y92oe SHORTCUT RELATIVE
DEFINE BAR 9 OF Shortcut PROMPT "NIR - finalizare aprovizionare"
ON SELECTION BAR 9 OF Shortcut lans(265)
ACTIVATE POPUP Shortcut
*</MenuCode>

51
Meniuri/achi6.mn2 Normal file
View File

@@ -0,0 +1,51 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="achi6.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 "Factura \<neplatita"
ON SELECTION BAR 1 OF Shortcut lans(246)
DEFINE BAR 2 OF Shortcut PROMPT "Factura neplatita - lista de preturi"
ON SELECTION BAR 2 OF Shortcut lans(247)
DEFINE BAR 3 OF Shortcut PROMPT "Factura neplatita - bilete RATC"
ON SELECTION BAR 3 OF Shortcut lans(248)
DEFINE BAR 4 OF Shortcut PROMPT "\-"
ON BAR 4 OF Shortcut ACTIVATE POPUP _2eu0nacce
*----------------------------------
DEFINE POPUP _2eu0nacce SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "Factura \<platita din casa"
ON SELECTION BAR 5 OF Shortcut lans(249)
DEFINE BAR 6 OF Shortcut PROMPT "Factura platita din \<avans spre decontare"
ON SELECTION BAR 6 OF Shortcut lans(250)
DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON BAR 7 OF Shortcut ACTIVATE POPUP _2xt0jwcgj
*----------------------------------
DEFINE POPUP _2xt0jwcgj SHORTCUT RELATIVE
DEFINE BAR 8 OF Shortcut PROMPT "Factura n\<esosita (marfa in consignatie)"
ON SELECTION BAR 8 OF Shortcut lans(251)
DEFINE BAR 9 OF Shortcut PROMPT "Factura nesosita - lista de preturi"
ON SELECTION BAR 9 OF Shortcut lans(266)
DEFINE BAR 10 OF Shortcut PROMPT "\-"
ON BAR 10 OF Shortcut ACTIVATE POPUP _2vc0y9faq
*----------------------------------
DEFINE POPUP _2vc0y9faq SHORTCUT RELATIVE
DEFINE BAR 11 OF Shortcut PROMPT "NIR - finalizare aprovizionare"
ON SELECTION BAR 11 OF Shortcut lans(265)
ACTIVATE POPUP Shortcut
*</MenuCode>

29
Meniuri/achi_transfer.mn2 Normal file
View File

@@ -0,0 +1,29 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="achi_transfer.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 "De la o gestiune la pret de achizitie"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "De la o gestiune la pret de vanzare"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
lans(215)
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
lans(216)
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>

14
Meniuri/calend.mn2 Normal file
View File

@@ -0,0 +1,14 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="calend.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 _MST_DIARY OF Shortcut PROMPT "\<Calendar"
ACTIVATE POPUP Shortcut
*</MenuCode>

61
Meniuri/casademarcat.mn2 Normal file
View File

@@ -0,0 +1,61 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="casademarcat.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 "Datecs"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Optima"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
LOCAL MES1,MES2
MES1='Nu este instalata interfata cu'
MES2='Casa de marcat Datecs (MP 500 TR)'
IF !DIRECTORY('&DIRGEN\Datecs')
DO MESAJ WITH MES1,MES2
RETURN
ENDIF
SET DEFAULT TO &DIRGEN\Datecs
IF !FILE('&DIRGEN\Datecs\Datecs.EXE')
DO MESAJ WITH MES1,MES2
RETURN
ENDIF
RUN /N Datecs.EXE
SET DEFAULT TO &DIRGEN
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
LOCAL MES1,MES2
MES1='Nu este instalata interfata cu'
MES2='Casa de marcat Optima (CR715)'
IF !DIRECTORY('&DIRGEN\OPTIMA')
DO MESAJ WITH MES1,MES2
RETURN
ENDIF
SET DEFAULT TO &DIRGEN\OPTIMA
IF !FILE('&DIRGEN\OPTIMA\OPTIMA.EXE')
DO MESAJ WITH MES1,MES2
RETURN
ENDIF
RUN /N OPTIMA.EXE
SET DEFAULT TO &DIRGEN
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>

34
Meniuri/casamarcat.mn2 Normal file
View File

@@ -0,0 +1,34 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="casamarcat.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 "E500"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "DATECS MP55/MP500"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
PRIVATE pnTipCasaMarcat
pnTipCasaMarcat = 1
DO casademarcat IN oproceduri_casademarcat.prg
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
PRIVATE pnTipCasaMarcat,lcStringMp500
pnTipCasaMarcat = 2
lcStringMp500=''
DO casademarcat IN oproceduri_casademarcat.prg
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>

31
Meniuri/config3.mn2 Normal file
View File

@@ -0,0 +1,31 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="config3.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 "\<Fisa tehnologica"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\Cote productie"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
DO viz_retetar IN oproceduri_retete.prg
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
*!* sele cote
*!* do form cote1
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>

113
Meniuri/config5.mn2 Normal file
View File

@@ -0,0 +1,113 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="config5.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 "\Adaos comercial"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP _11a0rode2
*----------------------------------
DEFINE POPUP _11a0rode2 SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\<P.V. de schimbare pret de vanzare"
ON BAR 3 OF Shortcut ACTIVATE POPUP PVdeschimb
*----------------------------------
DEFINE POPUP PVdeschimb SHORTCUT RELATIVE
DEFINE BAR 1 OF PVdeschimb PROMPT "\<O gestiune"
ON SELECTION BAR 1 OF PVdeschimb Do schimba_pret in oschimbare_pret.prg
DEFINE BAR 2 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de politica de preturi"
ON SELECTION BAR 2 OF PVdeschimb Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 1
DEFINE BAR 3 OF PVdeschimb PROMPT "O grupa de gestiuni - pe baza de instiintare schimbare de pret"
ON SELECTION BAR 3 OF PVdeschimb Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 3
DEFINE BAR 4 OF PVdeschimb PROMPT "\-"
ON BAR 4 OF PVdeschimb ACTIVATE POPUP _2k60qobmv
*----------------------------------
DEFINE POPUP _2k60qobmv SHORTCUT RELATIVE
DEFINE BAR 5 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de politica de preturi * (stoc neactualizat)"
ON SELECTION BAR 5 OF PVdeschimb Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 2
DEFINE BAR 6 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de instiintare schimbare de pret * (stoc neactualizat)"
ON SELECTION BAR 6 OF PVdeschimb Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 4
DEFINE BAR 7 OF PVdeschimb PROMPT "\-"
ON BAR 7 OF PVdeschimb ACTIVATE POPUP _4cz0orlji
*----------------------------------
DEFINE POPUP _4cz0orlji SHORTCUT RELATIVE
DEFINE BAR 8 OF PVdeschimb PROMPT "Schimbare cota \<TVA"
ON SELECTION BAR 8 OF PVdeschimb Do schimba_pret_tva in oschimbare_pret.prg
DEFINE BAR 4 OF Shortcut PROMPT "\<Instiintari schimbare pret"
ON SELECTION BAR 4 OF Shortcut do instiintaripret in oschimbare_pret.prg
DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _10w0hn3fc
*----------------------------------
DEFINE POPUP _10w0hn3fc SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "\Raport gestiuni"
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
*!* *orp=create('parola')
*!* *orp.show(1)
*!* *if buton=3
*!* o=crea('adaoscom')
*!* o.show(1)
*!* *endif
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_6_OF_Shortcut_FB2P
*!* Local SEREFACE
*!* Do DANU With 'Se recalculeaza soldurile gestiunilor?'
*!* If buton=1
*!* SEREFACE=.T.
*!* Else
*!* SEREFACE=.F.
*!* Endif
*!* If SEREFACE
*!* Do ref_gestiuni
*!* Endif
*!* Select A.gest,B.NUMEGEST,B.CONTG,a.precdeb as PrecDeb_371,A.deb as RulDeb_371,A.cred as RulCred_371,;
*!* a.precdeb+A.deb-A.cred As SOLD_371,;
*!* a.precred378 as Preccred_378,A.deb378 as RulDEB_378,A.cred378 as RulCred_378,;
*!* a.precred378+A.cred378-A.deb378 As SOLD_378,;
*!* a.procent_k ;
*!* From gestiuni A,NUMEGEST B;
*!* WHERE A.gest=B.gest;
*!* INTO Cursor GES Order By NUMEGEST
*!* Select GES
*!* *SELECT gestiuni
*!* GO TOP
*!* Do Form gestiuni
*!* *!* Use In GES
ENDPROC && BAR_6_OF_Shortcut_FB2P
*</Procedures>

108
Meniuri/config6.mn2 Normal file
View File

@@ -0,0 +1,108 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="config6.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 "\Adaos comercial"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP _11a0rode2
*----------------------------------
DEFINE POPUP _11a0rode2 SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\<P.V. de schimbare pret de vanzare"
ON BAR 3 OF Shortcut ACTIVATE POPUP PVdeschimb
*----------------------------------
DEFINE POPUP PVdeschimb SHORTCUT RELATIVE
DEFINE BAR 1 OF PVdeschimb PROMPT "\<O gestiune"
ON SELECTION BAR 1 OF PVdeschimb DO BAR_1_OF_PVdeschimb_FB2P
DEFINE BAR 2 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de politica de preturi"
ON SELECTION BAR 2 OF PVdeschimb DO BAR_2_OF_PVdeschimb_FB2P
DEFINE BAR 3 OF PVdeschimb PROMPT "\-"
ON BAR 3 OF PVdeschimb ACTIVATE POPUP _2k60qhop4
*----------------------------------
DEFINE POPUP _2k60qhop4 SHORTCUT RELATIVE
DEFINE BAR 4 OF PVdeschimb PROMPT "O \<grupa de gestiuni - pe baza de politica de preturi *"
ON SELECTION BAR 4 OF PVdeschimb DO BAR_4_OF_PVdeschimb_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "\-"
ON BAR 4 OF Shortcut ACTIVATE POPUP _10w0hn3fc
*----------------------------------
DEFINE POPUP _10w0hn3fc SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "\Raport gestiuni"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
*!* *orp=create('parola')
*!* *orp.show(1)
*!* *if buton=3
*!* o=crea('adaoscom')
*!* o.show(1)
*!* *endif
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_PVdeschimb_FB2P
lans(52)
ENDPROC && BAR_1_OF_PVdeschimb_FB2P
PROCEDURE BAR_2_OF_PVdeschimb_FB2P
Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 1
ENDPROC && BAR_2_OF_PVdeschimb_FB2P
PROCEDURE BAR_4_OF_PVdeschimb_FB2P
Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 2
ENDPROC && BAR_4_OF_PVdeschimb_FB2P
PROCEDURE BAR_5_OF_Shortcut_FB2P
*!* Local SEREFACE
*!* Do DANU With 'Se recalculeaza soldurile gestiunilor?'
*!* If buton=1
*!* SEREFACE=.T.
*!* Else
*!* SEREFACE=.F.
*!* Endif
*!* If SEREFACE
*!* Do ref_gestiuni
*!* Endif
*!* Select A.gest,B.NUMEGEST,B.CONTG,a.precdeb as PrecDeb_371,A.deb as RulDeb_371,A.cred as RulCred_371,;
*!* a.precdeb+A.deb-A.cred As SOLD_371,;
*!* a.precred378 as Preccred_378,A.deb378 as RulDEB_378,A.cred378 as RulCred_378,;
*!* a.precred378+A.cred378-A.deb378 As SOLD_378,;
*!* a.procent_k ;
*!* From gestiuni A,NUMEGEST B;
*!* WHERE A.gest=B.gest;
*!* INTO Cursor GES Order By NUMEGEST
*!* Select GES
*!* *SELECT gestiuni
*!* GO TOP
*!* Do Form gestiuni
*!* *!* Use In GES
ENDPROC && BAR_5_OF_Shortcut_FB2P
*</Procedures>

38
Meniuri/consum1.mn2 Normal file
View File

@@ -0,0 +1,38 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="consum1.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 "\<Bon de consum"
ON SELECTION BAR 1 OF Shortcut lans(53)
DEFINE BAR 2 OF Shortcut PROMPT "Bon de consum pe \<lucrare in curs de executie (productie 711)" ;
MESSAGE '6xx:3xx; 332:711'
ON SELECTION BAR 2 OF Shortcut lans(213)
DEFINE BAR 3 OF Shortcut PROMPT "Import bon de consum pe lucrare in curs de executie (productie 711)" ;
MESSAGE '6xx:3xx; 332:711'
ON SELECTION BAR 3 OF Shortcut DO importbonconsumLE WITH 268 IN oimportdinxml.prg
DEFINE BAR 4 OF Shortcut PROMPT "Bon de consum pe \<lucrare in curs de executie (servicii 712)" ;
MESSAGE '6xx:3xx; 332:712'
ON SELECTION BAR 4 OF Shortcut lans(276)
DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _10q0kpgad
*----------------------------------
DEFINE POPUP _10q0kpgad SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "\<Retur la magazie"
ON SELECTION BAR 6 OF Shortcut LANS(57)
DEFINE BAR 7 OF Shortcut PROMPT "\<Retur la magazie pe lucrari"
ON SELECTION BAR 7 OF Shortcut lans(58)
ACTIVATE POPUP Shortcut
*</MenuCode>

28
Meniuri/consum3.mn2 Normal file
View File

@@ -0,0 +1,28 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="consum3.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 "Bon de consum produse (34x)" ;
MESSAGE "711:34x"
ON SELECTION BAR 1 OF Shortcut lans(217)
DEFINE BAR 2 OF Shortcut PROMPT "Bon de consum ca materii prime" ;
MESSAGE "301:345 ; 601:301"
ON SELECTION BAR 2 OF Shortcut lans(54)
DEFINE BAR 3 OF Shortcut PROMPT "Bon de consum produse reziduale (346)" ;
MESSAGE "3022:346 ; 6022:3022"
ON SELECTION BAR 3 OF Shortcut lans(88)
DEFINE BAR 4 OF Shortcut PROMPT "Cheltuieli pentru reclama si publicitate (345)" ;
MESSAGE "623:345"
ON SELECTION BAR 4 OF Shortcut lans(263)
ACTIVATE POPUP Shortcut
*</MenuCode>

62
Meniuri/consum4.mn2 Normal file
View File

@@ -0,0 +1,62 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="consum4.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 "\<Bon de consum"
ON SELECTION BAR 1 OF Shortcut lans(99)
DEFINE BAR 2 OF Shortcut PROMPT "Pe lucrari in curs de executie (productie 711)" ;
MESSAGE '607:xxx; xxx-378; 378:xxx; 332:711'
ON SELECTION BAR 2 OF Shortcut lans(56)
DEFINE BAR 3 OF Shortcut PROMPT "Import bon de consum pe lucrare in curs de executie (productie 711)"
ON SELECTION BAR 3 OF Shortcut DO importbonconsumLE WITH 268 IN oimportdinxml.prg
DEFINE BAR 4 OF Shortcut PROMPT "Pe lucrari in curs de executie (servicii 712)" ;
MESSAGE '607:xxx; xxx-378; 378:xxx; 332:712'
ON SELECTION BAR 4 OF Shortcut lans(275)
DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _64g0x3y2x
*----------------------------------
DEFINE POPUP _64g0x3y2x SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "Retur la \<magazie"
ON SELECTION BAR 6 OF Shortcut lans(90502)
DEFINE BAR 7 OF Shortcut PROMPT "\<Retur la magazie pe lucrari in executie (productie 711)"
ON SELECTION BAR 7 OF Shortcut lans(59)
DEFINE BAR 8 OF Shortcut PROMPT "R\<etur de la comanda facturata"
ON SELECTION BAR 8 OF Shortcut LANS(60)
DEFINE BAR 9 OF Shortcut PROMPT "\-"
ON BAR 9 OF Shortcut ACTIVATE POPUP _2e20m0xxt
*----------------------------------
DEFINE POPUP _2e20m0xxt SHORTCUT RELATIVE
DEFINE BAR 10 OF Shortcut PROMPT "Protocol cu TVA - aviz \<expeditie"
ON SELECTION BAR 10 OF Shortcut initializeaza_vanzare_din_stoc(243)
DEFINE BAR 11 OF Shortcut PROMPT "\Protocol fara TVA" ;
MESSAGE 'x=401;623=401'
ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P
DEFINE BAR 12 OF Shortcut PROMPT "Sponsorizare - aviz de expeditie"
ON SELECTION BAR 12 OF Shortcut initializeaza_vanzare_din_stoc(244)
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_11_OF_Shortcut_FB2P
lans(232)
ENDPROC && BAR_11_OF_Shortcut_FB2P
*</Procedures>

BIN
Meniuri/cont2000-1.MNT Normal file
View File

Binary file not shown.

BIN
Meniuri/cont2000-1.mnx Normal file
View File

Binary file not shown.

1874
Meniuri/cont2000.mn2 Normal file
View File

File diff suppressed because it is too large Load Diff

158
Meniuri/contorice.mn2 Normal file
View File

@@ -0,0 +1,158 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="contorice.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>1</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE MENU _msysmenu BAR
DEFINE PAD _000000001 OF _msysmenu PROMPT "\<Utile" COLOR SCHEME 3 ;
NEGOTIATE LEFT, NONE ;
KEY ALT+U, "ALT+U" ;
MESSAGE 'Instrumente utile: calculator, calendar, bloc-notes; iesirea din program.'
ON PAD _000000001 OF _msysmenu ACTIVATE POPUP Utile
*----------------------------------
DEFINE POPUP Utile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Utile PROMPT "\<Calculator" ;
MESSAGE 'Deschide un calculator.'
ON SELECTION BAR 1 OF Utile DO BAR_1_OF_Utile_FB2P
DEFINE BAR 2 OF Utile PROMPT "C\<alendar" ;
MESSAGE 'Deschide un calendar.'
ON SELECTION BAR 2 OF Utile DO BAR_2_OF_Utile_FB2P
DEFINE BAR 3 OF Utile PROMPT "\<Notepad" ;
MESSAGE 'Deschide un carnetel.'
ON SELECTION BAR 3 OF Utile DO BAR_3_OF_Utile_FB2P
DEFINE BAR 4 OF Utile PROMPT "\-"
ON BAR 4 OF Utile ACTIVATE POPUP _s9r16veuj
*----------------------------------
DEFINE POPUP _s9r16veuj MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 5 OF Utile PROMPT "\<Reindexare"
ON BAR 5 OF Utile ACTIVATE POPUP Reindexare
*----------------------------------
DEFINE POPUP Reindexare MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Reindexare PROMPT "\<Fisiere locale si temporare"
ON SELECTION BAR 1 OF Reindexare DO BAR_1_OF_Reindexare_FB2P
DEFINE BAR 6 OF Utile PROMPT "\-"
ON BAR 6 OF Utile ACTIVATE POPUP _rap18gw4b
*----------------------------------
DEFINE POPUP _rap18gw4b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 7 OF Utile PROMPT "\<Iesire" ;
KEY F2, "F2" ;
MESSAGE 'Iesire din program.'
ON SELECTION BAR 7 OF Utile DO BAR_7_OF_Utile_FB2P
DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Editare" COLOR SCHEME 3 ;
KEY ALT+E, "" ;
MESSAGE 'Comenzi de editare.'
ON PAD _000000002 OF _msysmenu ACTIVATE POPUP Editare
*----------------------------------
DEFINE POPUP Editare MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF Editare PROMPT "\<Anuleaza" ;
KEY CTRL+Z, "Ctrl+Z" ;
MESSAGE 'Anuleaza ultima comanda de editare.'
DEFINE BAR _med_redo OF Editare PROMPT "\<Refa" ;
KEY CTRL+R, "Ctrl+R" ;
MESSAGE 'Repeta ultima comanda anulata.'
DEFINE BAR _med_sp100 OF Editare PROMPT "\-"
DEFINE BAR _med_cut OF Editare PROMPT "\<Taie si retine" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE 'Copiaza in memorie textul selectat si apoi il sterge din ecran.'
DEFINE BAR _med_copy OF Editare PROMPT "\<Copiaza" ;
KEY CTRL+C, "Ctrl+C" ;
MESSAGE 'Copiaza in memorie textul selectat.'
DEFINE BAR _med_paste OF Editare PROMPT "Re\<da" ;
KEY CTRL+V, "Ctrl+V" ;
MESSAGE 'Reda din memorie textul retinut cu comanda <Copiaza>.'
DEFINE BAR _med_sp200 OF Editare PROMPT "\-"
DEFINE BAR _med_slcta OF Editare PROMPT "\<Selecteaza tot" ;
KEY CTRL+A, "Ctrl+A" ;
MESSAGE 'Selecteaza tot textul din celula activa.'
DEFINE PAD _000000003 OF _msysmenu PROMPT "A\<jutor" COLOR SCHEME 3 ;
KEY ALT+J, "ALT+J" ;
MESSAGE 'Instructiuni de utilizare, informatii despre acest program.'
ON PAD _000000003 OF _msysmenu ACTIVATE POPUP Ajutor
*----------------------------------
DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Ajutor PROMPT "\<Despre program..." ;
MESSAGE 'Informatii despre program'
ON SELECTION BAR 1 OF Ajutor DO BAR_1_OF_Ajutor_FB2P
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Utile_FB2P
do case
case file('C:\WINDOWS\CALC.EXE')
run /N C:\WINDOWS\CALC.EXE
case file('C:\WINDOWS\SYSTEM32\CALC.EXE')
run /N C:\WINDOWS\SYSTEM32\CALC.EXE
case file('C:\WINnt\system32\CALC.EXE')
run /N C:\WINnt\system32\CALC.EXE
otherwise
do mesajatent with 'Aplicatia "Calculator" nu este instalata','pe acest sistem!'
endcase
ENDPROC && BAR_1_OF_Utile_FB2P
PROCEDURE BAR_2_OF_Utile_FB2P
od=createo('diary')
od.show(1)
ENDPROC && BAR_2_OF_Utile_FB2P
PROCEDURE BAR_3_OF_Utile_FB2P
do case
case file('C:\WINDOWS\NOTEPAD.EXE')
run /N C:\WINDOWS\NOTEPAD.EXE
case file('C:\WINnt\system32\NOTEPAD.EXE')
run /N C:\WINnt\system32\NOTEPAD.EXE
otherwise
do mesajatent with 'Aplicatia "NOTEPAD" nu este instalata','pe acest sistem!'
endcase
ENDPROC && BAR_3_OF_Utile_FB2P
PROCEDURE BAR_1_OF_Reindexare_FB2P
do reindexaretempo in reindexare.prg
ENDPROC && BAR_1_OF_Reindexare_FB2P
PROCEDURE BAR_7_OF_Utile_FB2P
ies=.t.
DO IESIRE
*RELEASE OBJECTS_________________________-
*ostart.release
*OSETVIZ.RELEASE
*OSETTULBAR.RELEASE
*OSETINSTRUM.RELEASE
ENDPROC && BAR_7_OF_Utile_FB2P
PROCEDURE BAR_1_OF_Ajutor_FB2P
OD=CREATEO('DESPRE')
OD.SHOW(1)
ENDPROC && BAR_1_OF_Ajutor_FB2P
*</Procedures>

16
Meniuri/editscurt.mn2 Normal file
View File

@@ -0,0 +1,16 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="editscurt.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 _med_copy OF Shortcut PROMPT "\<Copiaza"
DEFINE BAR _med_paste OF Shortcut PROMPT "Re\<da"
ACTIVATE POPUP Shortcut
*</MenuCode>

BIN
Meniuri/furn.MNT Normal file
View File

Binary file not shown.

BIN
Meniuri/furn.mnx Normal file
View File

Binary file not shown.

429
Meniuri/list1.mn2 Normal file
View File

@@ -0,0 +1,429 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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>

538
Meniuri/list3.mn2 Normal file
View File

@@ -0,0 +1,538 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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>

590
Meniuri/list4.mn2 Normal file
View 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>

321
Meniuri/list5.mn2 Normal file
View File

@@ -0,0 +1,321 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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>

336
Meniuri/list6.mn2 Normal file
View File

@@ -0,0 +1,336 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="list6.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 "\-"
ON BAR 3 OF Shortcut ACTIVATE POPUP _1020qz893
*----------------------------------
DEFINE POPUP _1020qz893 SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "\<Protocol"
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
DEFINE BAR 5 OF Shortcut PROMPT "\<Sponsorizare"
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 "\P.V. schimbare pret vanzare"
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 _2f20vtiu6
*----------------------------------
DEFINE POPUP _2f20vtiu6 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 _1020r0q7d
*----------------------------------
DEFINE POPUP _1020r0q7d SHORTCUT RELATIVE
DEFINE BAR 18 OF Shortcut PROMPT "Centralizator valoric pe subgrupe de produse"
ON SELECTION BAR 18 OF Shortcut DO BAR_18_OF_Shortcut_FB2P
DEFINE BAR 19 OF Shortcut PROMPT "Centralizator articole procese verbale schimbare pret"
ON SELECTION BAR 19 OF Shortcut DO BAR_19_OF_Shortcut_FB2P
DEFINE BAR 20 OF Shortcut PROMPT "Centralizator intrari furnizori pe subgrupe de produse"
ON SELECTION BAR 20 OF Shortcut DO BAR_20_OF_Shortcut_FB2P
DEFINE BAR 21 OF Shortcut PROMPT "Centralizator iesiri pe subgrupe de produse"
ON BAR 21 OF Shortcut ACTIVATE POPUP Centraliza
*----------------------------------
DEFINE POPUP Centraliza SHORTCUT RELATIVE
DEFINE BAR 1 OF Centraliza PROMPT "Transferuri catre gestiuni la p.v. cumulate pe gestiuni"
ON SELECTION BAR 1 OF Centraliza DO BAR_1_OF_Centraliza_FB2P
DEFINE BAR 2 OF Centraliza PROMPT "Facturi cumulate pe clienti"
ON SELECTION BAR 2 OF Centraliza DO BAR_2_OF_Centraliza_FB2P
DEFINE BAR 3 OF Centraliza PROMPT "Protocol si sponsorizari cumulate pe parteneri"
ON SELECTION BAR 3 OF Centraliza DO BAR_3_OF_Centraliza_FB2P
DEFINE BAR 22 OF Shortcut PROMPT "\-"
ON BAR 22 OF Shortcut ACTIVATE POPUP _2k610xkny
*----------------------------------
DEFINE POPUP _2k610xkny 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, 27
ENDIF
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_4_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_4_OF_Shortcut_FB2P
PROCEDURE BAR_5_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_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 relisteaza_schimbare_pret In oschimbare_pret.prg
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
Do list_centr_valoric_subgr in oproceduri_listari.prg
ENDPROC && BAR_18_OF_Shortcut_FB2P
PROCEDURE BAR_19_OF_Shortcut_FB2P
Do centralizator_articole_schimbpret in oschimbare_pret.prg
ENDPROC && BAR_19_OF_Shortcut_FB2P
PROCEDURE BAR_20_OF_Shortcut_FB2P
Do list_centr_intrari with gnTipGest in oproceduri_listari.prg
ENDPROC && BAR_20_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_Centraliza_FB2P
Do list_centr_iesiri with gnTipGest,1 in oproceduri_listari.prg
ENDPROC && BAR_1_OF_Centraliza_FB2P
PROCEDURE BAR_2_OF_Centraliza_FB2P
Do list_centr_iesiri with gnTipGest,2 in oproceduri_listari.prg
ENDPROC && BAR_2_OF_Centraliza_FB2P
PROCEDURE BAR_3_OF_Centraliza_FB2P
Do list_centr_iesiri with gnTipGest,3 in oproceduri_listari.prg
ENDPROC && BAR_3_OF_Centraliza_FB2P
PROCEDURE BAR_23_OF_Shortcut_FB2P
Do listeaza_centralizator_schimbpret in oschimbare_pret.prg WITH gnTipGest
ENDPROC && BAR_23_OF_Shortcut_FB2P
*</Procedures>

98
Meniuri/listgen.mn2 Normal file
View File

@@ -0,0 +1,98 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="listgen.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 "Evidenta comenzilor"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Lista de inventariere"
ON BAR 2 OF Shortcut ACTIVATE POPUP Listadeinv
*----------------------------------
DEFINE POPUP Listadeinv SHORTCUT RELATIVE
DEFINE BAR 1 OF Listadeinv PROMPT "Model 1"
ON SELECTION BAR 1 OF Listadeinv DO BAR_1_OF_Listadeinv_FB2P
DEFINE BAR 2 OF Listadeinv PROMPT "Model 2"
ON SELECTION BAR 2 OF Listadeinv DO BAR_2_OF_Listadeinv_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "Achizitie material pe furnizori"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
*!* DO evidenta_comenzi
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_Listadeinv_FB2P
*!* do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST"
*!* SELE NUMEGEST
*!* LOCATE FOR NUMEGEST==M.NUMEGEST
*!* SCATTER MEMVAR
*!* ***DO NCONT.SPR
*!* SELE BAL
*!* DO FORM selecont
*!* SELECT bal
*!* SET FILTER TO
*!* IF BUTON=2
*!* RETURN
*!* ENDIF
*!* SELE stoc
*!* INDEX ON STR(gest)+scd+denumire TAG scdgestden OF &loc\&nfscurt\tempo\STOCINV
*!* *SET ORDER TO tag scd
*!* REPORT FORM nota_inv_mic.frx TO PRINTER PROMPT PREVIEW
*!* SELE stoc
*!* SET ORDER TO tag DENUMIRE
*!* SET FILTER TO
ENDPROC && BAR_1_OF_Listadeinv_FB2P
PROCEDURE BAR_2_OF_Listadeinv_FB2P
*!* do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST"
*!* SELE NUMEGEST
*!* LOCATE FOR NUMEGEST==M.NUMEGEST
*!* SCATTER MEMVAR
*!* ***DO NCONT.SPR
*!* SELE BAL
*!* DO FORM selecont
*!* SELECT bal
*!* SET FILTER TO
*!* IF BUTON=2
*!* RETURN
*!* ENDIF
*!* SELE stoc
*!* INDEX ON STR(gest)+scd+denumire TAG scdgestden OF &loc\&nfscurt\tempo\STOCINV
*!* *SET ORDER TO tag scd
*!* REPORT FORM nota_inv_mic2.frx TO PRINTER PROMPT PREVIEW
*!* SELE stoc
*!* SET ORDER TO tag DENUMIRE
*!* SET FILTER TO
ENDPROC && BAR_2_OF_Listadeinv_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
*!* DO raport_material_furnizor IN gestiuni.prg
ENDPROC && BAR_3_OF_Shortcut_FB2P
*</Procedures>

112
Meniuri/marfaachi.mn2 Normal file
View File

@@ -0,0 +1,112 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="marfaachi.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 "\<Achizitie"
ON BAR 1 OF Shortcut ACTIVATE POPUP Achizitie
*----------------------------------
DEFINE POPUP Achizitie SHORTCUT RELATIVE
DEFINE BAR 1 OF Achizitie PROMPT "Factura \<neplatita"
ON BAR 1 OF Achizitie ACTIVATE POPUP Facturanep
*----------------------------------
DEFINE POPUP Facturanep SHORTCUT RELATIVE
DEFINE BAR 2 OF Achizitie PROMPT "Factura \<platita din casa"
ON BAR 2 OF Achizitie ACTIVATE POPUP Facturapla
*----------------------------------
DEFINE POPUP Facturapla SHORTCUT RELATIVE
DEFINE BAR 3 OF Achizitie PROMPT "Factura platita din \<avans spre decontare"
ON BAR 3 OF Achizitie ACTIVATE POPUP _0zu193ffz
*----------------------------------
DEFINE POPUP _0zu193ffz SHORTCUT RELATIVE
DEFINE BAR 4 OF Achizitie PROMPT "Factura n\<esosita"
ON BAR 4 OF Achizitie ACTIVATE POPUP Facturanes
*----------------------------------
DEFINE POPUP Facturanes SHORTCUT RELATIVE
DEFINE BAR 2 OF Shortcut PROMPT "\<Import"
ON BAR 2 OF Shortcut ACTIVATE POPUP Import
*----------------------------------
DEFINE POPUP Import SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\-"
ON BAR 3 OF Shortcut ACTIVATE POPUP _0zu1b9h8c
*----------------------------------
DEFINE POPUP _0zu1b9h8c SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "\<Consum"
ON BAR 4 OF Shortcut ACTIVATE POPUP Consum
*----------------------------------
DEFINE POPUP Consum SHORTCUT RELATIVE
DEFINE BAR 1 OF Consum PROMPT "Pe lucrari in curs de executie"
ON BAR 1 OF Consum ACTIVATE POPUP Pelucrarii
*----------------------------------
DEFINE POPUP Pelucrarii SHORTCUT RELATIVE
DEFINE BAR 2 OF Consum PROMPT "Retur la magazie"
ON BAR 2 OF Consum ACTIVATE POPUP Returlamag
*----------------------------------
DEFINE POPUP Returlamag SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "\<Transfer"
ON BAR 5 OF Shortcut ACTIVATE POPUP Transfer
*----------------------------------
DEFINE POPUP Transfer SHORTCUT RELATIVE
DEFINE BAR 1 OF Transfer PROMPT "Spre o gestiune de materiale"
ON BAR 1 OF Transfer ACTIVATE POPUP Spreogesti
*----------------------------------
DEFINE POPUP Spreogesti SHORTCUT RELATIVE
DEFINE BAR 2 OF Transfer PROMPT "Spre o gestiune de marfa la pret de achizitie"
ON BAR 2 OF Transfer ACTIVATE POPUP _0zu19ayjj
*----------------------------------
DEFINE POPUP _0zu19ayjj SHORTCUT RELATIVE
DEFINE BAR 3 OF Transfer PROMPT "Spre o gestiune de marfa la pret de vanzare"
ON BAR 3 OF Transfer ACTIVATE POPUP _0zu19ayjk
*----------------------------------
DEFINE POPUP _0zu19ayjk SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "\-"
ON BAR 6 OF Shortcut ACTIVATE POPUP _0zu1b9h8d
*----------------------------------
DEFINE POPUP _0zu1b9h8d SHORTCUT RELATIVE
DEFINE BAR 7 OF Shortcut PROMPT "\<Vanzare"
ON BAR 7 OF Shortcut ACTIVATE POPUP Vanzare
*----------------------------------
DEFINE POPUP Vanzare SHORTCUT RELATIVE
DEFINE BAR 1 OF Vanzare PROMPT "En-gros"
ON BAR 1 OF Vanzare ACTIVATE POPUP Engros
*----------------------------------
DEFINE POPUP Engros SHORTCUT RELATIVE
DEFINE BAR 2 OF Vanzare PROMPT "En-detail"
ON BAR 2 OF Vanzare ACTIVATE POPUP Endetail
*----------------------------------
DEFINE POPUP Endetail SHORTCUT RELATIVE
DEFINE BAR 3 OF Vanzare PROMPT "Pe lucrari"
ON BAR 3 OF Vanzare ACTIVATE POPUP Pelucrari
*----------------------------------
DEFINE POPUP Pelucrari SHORTCUT RELATIVE
DEFINE BAR 4 OF Vanzare PROMPT "Retur vanzare"
ON BAR 4 OF Vanzare ACTIVATE POPUP Returvanza
*----------------------------------
DEFINE POPUP Returvanza SHORTCUT RELATIVEACTIVATE POPUP Shortcut
*</MenuCode>

102
Meniuri/marfavanz.mn2 Normal file
View File

@@ -0,0 +1,102 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="marfavanz.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 "\<Achizitie"
ON BAR 1 OF Shortcut ACTIVATE POPUP Achizitie
*----------------------------------
DEFINE POPUP Achizitie SHORTCUT RELATIVE
DEFINE BAR 1 OF Achizitie PROMPT "Factura \<neplatita"
ON BAR 1 OF Achizitie ACTIVATE POPUP Facturanep
*----------------------------------
DEFINE POPUP Facturanep SHORTCUT RELATIVE
DEFINE BAR 2 OF Achizitie PROMPT "Factura \<platita din casa"
ON BAR 2 OF Achizitie ACTIVATE POPUP Facturapla
*----------------------------------
DEFINE POPUP Facturapla SHORTCUT RELATIVE
DEFINE BAR 3 OF Achizitie PROMPT "Factura platita din \<avans spre decontare"
ON BAR 3 OF Achizitie ACTIVATE POPUP _0zu193ffz
*----------------------------------
DEFINE POPUP _0zu193ffz SHORTCUT RELATIVE
DEFINE BAR 4 OF Achizitie PROMPT "Factura n\<esosita"
ON BAR 4 OF Achizitie ACTIVATE POPUP Facturanes
*----------------------------------
DEFINE POPUP Facturanes SHORTCUT RELATIVE
DEFINE BAR 2 OF Shortcut PROMPT "\<Transfer"
ON BAR 2 OF Shortcut ACTIVATE POPUP Transfer
*----------------------------------
DEFINE POPUP Transfer SHORTCUT RELATIVE
DEFINE BAR 1 OF Transfer PROMPT "Spre o gestiune de materiale"
ON BAR 1 OF Transfer ACTIVATE POPUP Spreogesti
*----------------------------------
DEFINE POPUP Spreogesti SHORTCUT RELATIVE
DEFINE BAR 2 OF Transfer PROMPT "Spre o gestiune de marfa la pret de achizitie"
ON BAR 2 OF Transfer ACTIVATE POPUP _0zu19ayjj
*----------------------------------
DEFINE POPUP _0zu19ayjj SHORTCUT RELATIVE
DEFINE BAR 3 OF Transfer PROMPT "Spre o gestiune de marfa la pret de vanzare"
ON BAR 3 OF Transfer ACTIVATE POPUP _0zu19ayjk
*----------------------------------
DEFINE POPUP _0zu19ayjk SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\<Descarcare de gestiune"
ON BAR 3 OF Shortcut ACTIVATE POPUP Descarcare
*----------------------------------
DEFINE POPUP Descarcare SHORTCUT RELATIVE
DEFINE BAR 1 OF Descarcare PROMPT "Vanzare en_detail"
ON BAR 1 OF Descarcare ACTIVATE POPUP Vanzareend
*----------------------------------
DEFINE POPUP Vanzareend SHORTCUT RELATIVE
DEFINE BAR 2 OF Descarcare PROMPT "Retur vanzare en-detail"
ON BAR 2 OF Descarcare ACTIVATE POPUP Returvanza
*----------------------------------
DEFINE POPUP Returvanza SHORTCUT RELATIVE
DEFINE BAR 3 OF Descarcare PROMPT "\-"
ON BAR 3 OF Descarcare ACTIVATE POPUP _0zu1b6qxp
*----------------------------------
DEFINE POPUP _0zu1b6qxp SHORTCUT RELATIVE
DEFINE BAR 4 OF Descarcare PROMPT "Monetar"
ON BAR 4 OF Descarcare ACTIVATE POPUP Monetar
*----------------------------------
DEFINE POPUP Monetar SHORTCUT RELATIVE
DEFINE BAR 1 OF Monetar PROMPT "Cu descarcare valorica de gestiune"
ON BAR 1 OF Monetar ACTIVATE POPUP Cudescarca
*----------------------------------
DEFINE POPUP Cudescarca SHORTCUT RELATIVE
DEFINE BAR 2 OF Monetar PROMPT "Cu descarcare cantitativa de gestiune"
ON BAR 2 OF Monetar ACTIVATE POPUP _0zu1b4zfo
*----------------------------------
DEFINE POPUP _0zu1b4zfo SHORTCUT RELATIVE
DEFINE BAR 3 OF Monetar PROMPT "Fara descarcare de gestiune"
ON BAR 3 OF Monetar ACTIVATE POPUP Faradescar
*----------------------------------
DEFINE POPUP Faradescar SHORTCUT RELATIVE
DEFINE BAR 5 OF Descarcare PROMPT "Inchidere descarcare marfa"
ON BAR 5 OF Descarcare ACTIVATE POPUP Inchidered
*----------------------------------
DEFINE POPUP Inchidered SHORTCUT RELATIVEACTIVATE POPUP Shortcut
*</MenuCode>

82
Meniuri/materiale.mn2 Normal file
View File

@@ -0,0 +1,82 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="materiale.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 "\<Achizitie"
ON BAR 1 OF Shortcut ACTIVATE POPUP Achizitie
*----------------------------------
DEFINE POPUP Achizitie SHORTCUT RELATIVE
DEFINE BAR 1 OF Achizitie PROMPT "Factura \<neplatita"
ON BAR 1 OF Achizitie ACTIVATE POPUP Facturanep
*----------------------------------
DEFINE POPUP Facturanep SHORTCUT RELATIVE
DEFINE BAR 2 OF Achizitie PROMPT "Factura \<platita din casa"
ON BAR 2 OF Achizitie ACTIVATE POPUP Facturapla
*----------------------------------
DEFINE POPUP Facturapla SHORTCUT RELATIVE
DEFINE BAR 3 OF Achizitie PROMPT "Factura platita din \<avans spre decontare"
ON BAR 3 OF Achizitie ACTIVATE POPUP _0zu193ffz
*----------------------------------
DEFINE POPUP _0zu193ffz SHORTCUT RELATIVE
DEFINE BAR 4 OF Achizitie PROMPT "Factura n\<esosita"
ON BAR 4 OF Achizitie ACTIVATE POPUP Facturanes
*----------------------------------
DEFINE POPUP Facturanes SHORTCUT RELATIVE
DEFINE BAR 2 OF Shortcut PROMPT "\<Import"
ON BAR 2 OF Shortcut ACTIVATE POPUP Import
*----------------------------------
DEFINE POPUP Import SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\-"
ON BAR 3 OF Shortcut ACTIVATE POPUP _0zu1b8s9w
*----------------------------------
DEFINE POPUP _0zu1b8s9w SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "\<Consum"
ON BAR 4 OF Shortcut ACTIVATE POPUP Consum
*----------------------------------
DEFINE POPUP Consum SHORTCUT RELATIVE
DEFINE BAR 1 OF Consum PROMPT "Bon de consum"
ON BAR 1 OF Consum ACTIVATE POPUP Bondeconsu
*----------------------------------
DEFINE POPUP Bondeconsu SHORTCUT RELATIVE
DEFINE BAR 2 OF Consum PROMPT "Retur la magazie"
ON BAR 2 OF Consum ACTIVATE POPUP Returlamag
*----------------------------------
DEFINE POPUP Returlamag SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "\<Transfer"
ON BAR 5 OF Shortcut ACTIVATE POPUP Transfer
*----------------------------------
DEFINE POPUP Transfer SHORTCUT RELATIVE
DEFINE BAR 1 OF Transfer PROMPT "Spre o gestiune de materiale"
ON BAR 1 OF Transfer ACTIVATE POPUP Spreogesti
*----------------------------------
DEFINE POPUP Spreogesti SHORTCUT RELATIVE
DEFINE BAR 2 OF Transfer PROMPT "Spre o gestiune de marfa la pret de achizitie"
ON BAR 2 OF Transfer ACTIVATE POPUP _0zu19ayjj
*----------------------------------
DEFINE POPUP _0zu19ayjj SHORTCUT RELATIVE
DEFINE BAR 3 OF Transfer PROMPT "Spre o gestiune de marfa la pret de vanzare"
ON BAR 3 OF Transfer ACTIVATE POPUP _0zu19ayjk
*----------------------------------
DEFINE POPUP _0zu19ayjk SHORTCUT RELATIVEACTIVATE POPUP Shortcut
*</MenuCode>

87
Meniuri/obinvent.mn2 Normal file
View File

@@ -0,0 +1,87 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="obinvent.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 "\<Achizitie"
ON BAR 1 OF Shortcut ACTIVATE POPUP Achizitie
*----------------------------------
DEFINE POPUP Achizitie SHORTCUT RELATIVE
DEFINE BAR 1 OF Achizitie PROMPT "Factura \<neplatita"
ON BAR 1 OF Achizitie ACTIVATE POPUP Facturanep
*----------------------------------
DEFINE POPUP Facturanep SHORTCUT RELATIVE
DEFINE BAR 2 OF Achizitie PROMPT "Factura \<platita din casa"
ON BAR 2 OF Achizitie ACTIVATE POPUP Facturapla
*----------------------------------
DEFINE POPUP Facturapla SHORTCUT RELATIVE
DEFINE BAR 3 OF Achizitie PROMPT "Factura platita din \<avans spre decontare"
ON BAR 3 OF Achizitie ACTIVATE POPUP _0zu193ffz
*----------------------------------
DEFINE POPUP _0zu193ffz SHORTCUT RELATIVE
DEFINE BAR 4 OF Achizitie PROMPT "Factura n\<esosita"
ON BAR 4 OF Achizitie ACTIVATE POPUP Facturanes
*----------------------------------
DEFINE POPUP Facturanes SHORTCUT RELATIVE
DEFINE BAR 2 OF Shortcut PROMPT "\<Inregistrarea cheltuielii"
ON BAR 2 OF Shortcut ACTIVATE POPUP Inregistra
*----------------------------------
DEFINE POPUP Inregistra SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\<Dare in folosinta"
ON BAR 3 OF Shortcut ACTIVATE POPUP Dareinfolo
*----------------------------------
DEFINE POPUP Dareinfolo SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "\<Retur la magazie"
ON BAR 4 OF Shortcut ACTIVATE POPUP Returlamag
*----------------------------------
DEFINE POPUP Returlamag SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "\<Casare"
ON BAR 5 OF Shortcut ACTIVATE POPUP Casare
*----------------------------------
DEFINE POPUP Casare SHORTCUT RELATIVE
DEFINE BAR 1 OF Casare PROMPT "Din magazie"
ON BAR 1 OF Casare ACTIVATE POPUP Dinmagazie
*----------------------------------
DEFINE POPUP Dinmagazie SHORTCUT RELATIVE
DEFINE BAR 2 OF Casare PROMPT "Din folosinta"
ON BAR 2 OF Casare ACTIVATE POPUP Dinfolosin
*----------------------------------
DEFINE POPUP Dinfolosin SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "\-"
ON BAR 6 OF Shortcut ACTIVATE POPUP _0zu19kptt
*----------------------------------
DEFINE POPUP _0zu19kptt SHORTCUT RELATIVE
DEFINE BAR 7 OF Shortcut PROMPT "Obiecte de inventar in folosinta"
ON BAR 7 OF Shortcut ACTIVATE POPUP Obiectedei
*----------------------------------
DEFINE POPUP Obiectedei SHORTCUT RELATIVE
DEFINE BAR 1 OF Obiectedei PROMPT "Stare"
ON BAR 1 OF Obiectedei ACTIVATE POPUP Stare
*----------------------------------
DEFINE POPUP Stare SHORTCUT RELATIVE
DEFINE BAR 2 OF Obiectedei PROMPT "Rulaje"
ON BAR 2 OF Obiectedei ACTIVATE POPUP Rulaje
*----------------------------------
DEFINE POPUP Rulaje SHORTCUT RELATIVEACTIVATE POPUP Shortcut
*</MenuCode>

79
Meniuri/produse.mn2 Normal file
View File

@@ -0,0 +1,79 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="produse.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 "\<Intrare in gestiune"
ON BAR 1 OF Shortcut ACTIVATE POPUP Intrareing
*----------------------------------
DEFINE POPUP Intrareing SHORTCUT RELATIVE
DEFINE BAR 1 OF Intrareing PROMPT "Simpla"
ON SELECTION BAR 1 OF Intrareing
DEFINE BAR 2 OF Intrareing PROMPT "Pe baza de retetar"
ON SELECTION BAR 2 OF Intrareing
DEFINE BAR 3 OF Intrareing PROMPT "Pe baza de PV de Productie"
ON SELECTION BAR 3 OF Intrareing
DEFINE BAR 2 OF Shortcut PROMPT "\<Consum"
ON BAR 2 OF Shortcut ACTIVATE POPUP Consum
*----------------------------------
DEFINE POPUP Consum SHORTCUT RELATIVE
DEFINE BAR 1 OF Consum PROMPT "Bon de consum"
ON BAR 1 OF Consum ACTIVATE POPUP Bondeconsu
*----------------------------------
DEFINE POPUP Bondeconsu SHORTCUT RELATIVE
DEFINE BAR 2 OF Consum PROMPT "Retur la magazie"
ON BAR 2 OF Consum ACTIVATE POPUP Returlamag
*----------------------------------
DEFINE POPUP Returlamag SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\<Transfer"
ON BAR 3 OF Shortcut ACTIVATE POPUP Transfer
*----------------------------------
DEFINE POPUP Transfer SHORTCUT RELATIVE
DEFINE BAR 1 OF Transfer PROMPT "Spre o gestiune de produse"
ON BAR 1 OF Transfer ACTIVATE POPUP _0zu19xdwn
*----------------------------------
DEFINE POPUP _0zu19xdwn SHORTCUT RELATIVE
DEFINE BAR 2 OF Transfer PROMPT "Spre o gestiune de materiale"
ON BAR 2 OF Transfer ACTIVATE POPUP Spreogesti
*----------------------------------
DEFINE POPUP Spreogesti SHORTCUT RELATIVE
DEFINE BAR 3 OF Transfer PROMPT "Spre o gestiune de marfa la pret de achizitie"
ON BAR 3 OF Transfer ACTIVATE POPUP _0zu19ayjj
*----------------------------------
DEFINE POPUP _0zu19ayjj SHORTCUT RELATIVE
DEFINE BAR 4 OF Transfer PROMPT "Spre o gestiune de marfa la pret de vanzare"
ON BAR 4 OF Transfer ACTIVATE POPUP _0zu19ayjk
*----------------------------------
DEFINE POPUP _0zu19ayjk SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "\<Vanzare"
ON BAR 4 OF Shortcut ACTIVATE POPUP Vanzare
*----------------------------------
DEFINE POPUP Vanzare SHORTCUT RELATIVE
DEFINE BAR 1 OF Vanzare PROMPT "Cost de productie"
ON SELECTION BAR 1 OF Vanzare
DEFINE BAR 2 OF Vanzare PROMPT "Vanzare produse"
ON BAR 2 OF Vanzare ACTIVATE POPUP Vanzarepro
*----------------------------------
DEFINE POPUP Vanzarepro SHORTCUT RELATIVEACTIVATE POPUP Shortcut
*</MenuCode>

55
Meniuri/rapoarte.mn2 Normal file
View File

@@ -0,0 +1,55 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="rapoarte.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 "Verificare Facturi de achizitie"
ON SELECTION BAR 1 OF Shortcut DO ver_nir_facturi WITH 1
DEFINE BAR 2 OF Shortcut PROMPT "Centralizator Facturi achizitie"
ON SELECTION BAR 2 OF Shortcut DO listare_centralizator_nir_bon WITH 1
DEFINE BAR 3 OF Shortcut PROMPT "\-"
ON BAR 3 OF Shortcut ACTIVATE POPUP _4df0yn5xo
*----------------------------------
DEFINE POPUP _4df0yn5xo SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "Verificare Bonuri de consum"
ON SELECTION BAR 4 OF Shortcut DO ver_nir_facturi WITH 2
DEFINE BAR 5 OF Shortcut PROMPT "Centralizator Bonuri de consum"
ON SELECTION BAR 5 OF Shortcut DO listare_centralizator_nir_bon WITH 2
DEFINE BAR 6 OF Shortcut PROMPT "\-"
ON BAR 6 OF Shortcut ACTIVATE POPUP _23e10525t
*----------------------------------
DEFINE POPUP _23e10525t SHORTCUT RELATIVE
DEFINE BAR 7 OF Shortcut PROMPT "Rapoarte bazate pe \<rulaj"
ON SELECTION BAR 7 OF Shortcut Do alege_raport With 1, .F. In orapoarte_dinamice.prg
DEFINE BAR 8 OF Shortcut PROMPT "Rapoarte SQL"
ON SELECTION BAR 8 OF Shortcut Do alege_raport With 2, .T. In orapoarte_dinamice.prg
DEFINE BAR 9 OF Shortcut PROMPT "\-"
ON BAR 9 OF Shortcut ACTIVATE POPUP _4df0yng5p
*----------------------------------
DEFINE POPUP _4df0yng5p SHORTCUT RELATIVE
DEFINE BAR 10 OF Shortcut PROMPT "Stocuri pe vechimi"
ON SELECTION BAR 10 OF Shortcut DO BAR_10_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_10_OF_Shortcut_FB2P
DO rap_stocuri_pe_vechimi IN orapoarte.prg
ENDPROC && BAR_10_OF_Shortcut_FB2P
*</Procedures>

216
Meniuri/roagest.mn2 Normal file
View File

@@ -0,0 +1,216 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="roagest.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>1</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE MENU _msysmenu BAR
DEFINE PAD _000000001 OF _msysmenu PROMPT "\<Utile" COLOR SCHEME 3 ;
NEGOTIATE LEFT, NONE ;
KEY ALT+U, "ALT+U" ;
MESSAGE 'Instrumente utile: calculator, calendar, bloc-notes; iesirea din program.'
ON PAD _000000001 OF _msysmenu ACTIVATE POPUP Utile
*----------------------------------
DEFINE POPUP Utile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Utile PROMPT "\<Calculator" ;
MESSAGE 'Deschide un calculator.'
ON SELECTION BAR 1 OF Utile DO BAR_1_OF_Utile_FB2P
DEFINE BAR 2 OF Utile PROMPT "\<Notepad" ;
MESSAGE 'Deschide un carnetel.'
ON SELECTION BAR 2 OF Utile DO BAR_2_OF_Utile_FB2P
DEFINE BAR 3 OF Utile PROMPT "\-"
ON BAR 3 OF Utile ACTIVATE POPUP _5ow12rytx
*----------------------------------
DEFINE POPUP _5ow12rytx MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 4 OF Utile PROMPT "Schimbare tip raport clasic/modern" ;
MESSAGE 'Previzualizare rapoarte tip clasic sau modern'
ON SELECTION BAR 4 OF Utile DO BAR_4_OF_Utile_FB2P
DEFINE BAR 5 OF Utile PROMPT "\-"
ON BAR 5 OF Utile ACTIVATE POPUP _s9r16veuj
*----------------------------------
DEFINE POPUP _s9r16veuj MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 6 OF Utile PROMPT "\<Iesire" ;
KEY F2, "F2" ;
MESSAGE 'Iesire din program.'
ON SELECTION BAR 6 OF Utile DO BAR_6_OF_Utile_FB2P
DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Editare" COLOR SCHEME 3 ;
KEY ALT+E, "" ;
MESSAGE 'Comenzi de editare.'
ON PAD _000000002 OF _msysmenu ACTIVATE POPUP Editare
*----------------------------------
DEFINE POPUP Editare MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF Editare PROMPT "\<Anuleaza" ;
KEY CTRL+Z, "Ctrl+Z" ;
MESSAGE 'Anuleaza ultima comanda de editare.'
DEFINE BAR _med_redo OF Editare PROMPT "\<Refa" ;
KEY CTRL+R, "Ctrl+R" ;
MESSAGE 'Repeta ultima comanda anulata.'
DEFINE BAR _med_sp100 OF Editare PROMPT "\-"
DEFINE BAR _med_cut OF Editare PROMPT "\<Taie si retine" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE 'Copiaza in memorie textul selectat si apoi il sterge din ecran.'
DEFINE BAR _med_copy OF Editare PROMPT "\<Copiaza" ;
KEY CTRL+C, "Ctrl+C" ;
MESSAGE 'Copiaza in memorie textul selectat.'
DEFINE BAR _med_paste OF Editare PROMPT "Re\<da" ;
KEY CTRL+V, "Ctrl+V" ;
MESSAGE 'Reda din memorie textul retinut cu comanda <Copiaza>.'
DEFINE PAD _000000003 OF _msysmenu PROMPT "\<Actualizari" COLOR SCHEME 3 ;
SKIP FOR m.nivel>1 or luna_inchisa
ON PAD _000000003 OF _msysmenu ACTIVATE POPUP Actualizar
*----------------------------------
DEFINE POPUP Actualizar MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Actualizar PROMPT "Initializare"
ON BAR 1 OF Actualizar ACTIVATE POPUP Initializa
*----------------------------------
DEFINE POPUP Initializa MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Initializa PROMPT "Note contabile"
ON SELECTION BAR 1 OF Initializa DO BAR_1_OF_Initializa_FB2P
DEFINE BAR 2 OF Actualizar PROMPT "\-"
ON BAR 2 OF Actualizar ACTIVATE POPUP _2z00kpm7w
*----------------------------------
DEFINE POPUP _2z00kpm7w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Actualizar PROMPT "Scriere nota din backup"
ON SELECTION BAR 3 OF Actualizar DO BAR_3_OF_Actualizar_FB2P
DEFINE BAR 4 OF Actualizar PROMPT "\-"
ON BAR 4 OF Actualizar ACTIVATE POPUP _3en0pj4w2
*----------------------------------
DEFINE POPUP _3en0pj4w2 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 5 OF Actualizar PROMPT "Actualizare stoc 24% 07/2010" ;
SKIP FOR m.gnAn*12+m.gnLuna <> 2010*12+7
ON BAR 5 OF Actualizar ACTIVATE POPUP _2z00lr4sl
*----------------------------------
DEFINE POPUP _2z00lr4sl MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2z00lr4sl PROMPT "Actualizare stocuri cu pastrarea pretului de vanzare"
ON SELECTION BAR 1 OF _2z00lr4sl do actualizare_stoc_072010 with 1 in actualizari.prg
DEFINE BAR 2 OF _2z00lr4sl PROMPT "\-"
ON BAR 2 OF _2z00lr4sl ACTIVATE POPUP _2z00lsxgj
*----------------------------------
DEFINE POPUP _2z00lsxgj MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF _2z00lr4sl PROMPT "Actualizare stocuri cu cresterea pretului de vanzare"
ON SELECTION BAR 3 OF _2z00lr4sl do actualizare_stoc_072010 with 0 in actualizari.prg
DEFINE PAD _000000004 OF _msysmenu PROMPT "A\<jutor" COLOR SCHEME 3 ;
KEY ALT+J, "ALT+J" ;
MESSAGE 'Instructiuni de utilizare, informatii despre acest program.'
ON PAD _000000004 OF _msysmenu ACTIVATE POPUP Ajutor
*----------------------------------
DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Ajutor PROMPT "\<Instructiuni de utilizare"
ON SELECTION BAR 1 OF Ajutor DO BAR_1_OF_Ajutor_FB2P
DEFINE BAR 2 OF Ajutor PROMPT "\-"
ON BAR 2 OF Ajutor ACTIVATE POPUP _1ts0rxko1
*----------------------------------
DEFINE POPUP _1ts0rxko1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Ajutor PROMPT "\<Jurnal modificari"
ON SELECTION BAR 3 OF Ajutor DO BAR_3_OF_Ajutor_FB2P
DEFINE BAR 4 OF Ajutor PROMPT "\<Despre program..." ;
MESSAGE 'Informatii despre program'
ON SELECTION BAR 4 OF Ajutor DO BAR_4_OF_Ajutor_FB2P
ON SELECTION MENU _msysmenu *:Locale=Yes
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Utile_FB2P
DO apeleaza_calc IN oproceduri_comune.prg
ENDPROC && BAR_1_OF_Utile_FB2P
PROCEDURE BAR_2_OF_Utile_FB2P
DO apeleaza_notepad IN oproceduri_comune.prg
ENDPROC && BAR_2_OF_Utile_FB2P
PROCEDURE BAR_4_OF_Utile_FB2P
**OVARIABILE_GLOBALE.PRG
*** Citesc setarea pentru ReportBehaviour
IF TYPE('gnReportBehaviour') = 'U'
PUBLIC gnReportBehaviour
gnReportBehaviour = 90
ENDIF
LOCAL lcReportBehaviour
lcReportBehaviour = NVL(getini(m.gcGeneralIniFile,'report','reportbehaviour'), '')
IF EMPTY(m.lcReportBehaviour)
setini(m.gcGeneralIniFile,'report','reportbehaviour', '90')
gnReportBehaviour = 90
ELSE
gnReportBehaviour = VAL(m.lcReportBehaviour)
ENDIF
IF !INLIST(gnReportBehaviour, 80, 90)
setini(m.gcGeneralIniFile,'report','reportbehaviour', '90')
gnReportBehaviour = 90
ENDIF
lnReportBehaviourNew = IIF(gnReportBehaviour = 90, 80, 90)
IF AMESSAGEBOX('Rapoarte tip ' + IIF(m.gnReportBehaviour=90, 'modern', 'clasic') + '. Doriti sa schimbati in tip ' + IIF(m.lnReportBehaviourNew=90, 'modern', 'clasic') + '?',4+32,_screen.Caption) = 6
setini(m.gcGeneralIniFile,'report','reportbehaviour', ALLTRIM(STR(m.lnReportBehaviourNew)))
gnReportBehaviour = m.lnReportBehaviourNew
ENDIF
ENDPROC && BAR_4_OF_Utile_FB2P
PROCEDURE BAR_6_OF_Utile_FB2P
ies=.t.
QUIT
ENDPROC && BAR_6_OF_Utile_FB2P
PROCEDURE BAR_1_OF_Initializa_FB2P
gcAcces = "1;2;3;4;"
DO configurare_note IN omeniu_initializari.prg
ENDPROC && BAR_1_OF_Initializa_FB2P
PROCEDURE BAR_3_OF_Actualizar_FB2P
gcAcces = "1;2;3;4;"
do oscrie_in_fisiere.prg with 0, .F., .T., .F., .T.
ENDPROC && BAR_3_OF_Actualizar_FB2P
PROCEDURE BAR_1_OF_Ajutor_FB2P
DO arata_manual IN oproceduri_comune.prg
ENDPROC && BAR_1_OF_Ajutor_FB2P
PROCEDURE BAR_3_OF_Ajutor_FB2P
DO arata_modificari IN oproceduri_comune.prg
ENDPROC && BAR_3_OF_Ajutor_FB2P
PROCEDURE BAR_4_OF_Ajutor_FB2P
DO arata_versiune IN oproceduri_comune.prg
ENDPROC && BAR_4_OF_Ajutor_FB2P
*</Procedures>

48
Meniuri/rulaje.mn2 Normal file
View File

@@ -0,0 +1,48 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="rulaje.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 "\<In luna curenta"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\<Total rulaje"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
osetgest.tbrprim.buton6.click
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
sele rul
set relation off into actan
SET ORDER TO TAG Cod OF &calefirma\datean\actan.cdx IN Actan
sele rul
SET RELATION TO cod INTO Actan ADDITIVE
SELE RUL
SET FILTER TO
SELE ACTAN
SET FILTER TO
SELE RULL
SET FILTER TO
*select DISTINCT rul.denumire,rul.pret,rul.um,rul.cant,rul.cante,rul.scd,rul.gest,actan.dataact,actan.nract,rul.cod,rul.tva;
* from rul,actan;
* where rul.cod=actan.cod;
* into cursor rullactanfact
sele 0
use &datean\rul again alias rullactanfact
do form afrul
use in rullactanfact
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>

159
Meniuri/stoc.mn2 Normal file
View File

@@ -0,0 +1,159 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="stoc.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 "In luna curenta"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "De la luna-la luna..."
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "In luna curenta pana la ziua..."
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
osetgest.tbrprim.buton5.click
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
SET CENTURY on
SET DATE TO dmy
LOCAL a1,l1,a2,l2,inceput,sfirsit,ll,aa,cond,d1,d2
STORE '' TO a1,l1,a2,l2,inceput,sfirsit,ll,aa,cond
STORE DATE() TO d1,d2
ll=m.nl
aa=m.an
inceput=cereluna('Alegeti luna de inceput')
l1=LEFT(inceput,2)
a1=RIGHT(inceput,4)
sfirsit=cereluna('Alegeti luna de sfarsit')
l2=LEFT(sfirsit,2)
a2=RIGHT(sfirsit,4)
z='01/'+l1+'/'+a1
d1=CTOD(z)
z='01/'+l2+'/'+a2
d2=CTOD(z)
d2=GOMONTH(d2,1)
cond='(dataireg>=d1 and dataireg<d2)'
*WAIT WINDOW l1+a1+'-'+l2+a2
&& generare stoc
m.nl=l1
m.an=a1
SELECT stoc
COPY STRUCTURE TO &loc\&nfscurt\tempo\stoct WITH cdx
CLOSE DATABASES
DO des WITH 'rul'
DO des WITH 'actan'
DO des WITH 'calendar'
DO des WITH 'numegest'
USE &loc\&nfscurt\tempo\stoct IN 0 ALIAS stoc ORDER tag denumire
select DISTINCT cod,dataireg FROM actan WHERE &cond INTO CURSOR act
SELECT * from act INTO TABLE &loc\&nfscurt\tempo\w50
SELECT w50
INDEX ON cod TAG cod OF &loc\&nfscurt\tempo\w50
SELECT * from rul ;
WHERE cod in (select DISTINCT cod FROM act);
INTO table &loc\&nfscurt\tempo\rull
COPY FILE &dirgen\_alfa\an0000\date00\rull.cdx TO &loc\&nfscurt\tempo\rull.cdx
SELECT rull
SET INDEX TO &loc\&nfscurt\tempo\rull.cdx
reindex
sele rul
SET FILTER TO
sele rulL
SET FILTER TO
sele ACT
SET FILTER TO
sele ACTAN
SET FILTER TO
do refstint
&&-------
SELE RUL
SET FILTER TO
SELE ACTAN
SET FILTER TO
SELE RULL
SET FILTER TO
SELE STOC
SET FILTER TO
sele rul
set relation off into actan
SET ORDER TO TAG Cod OF &calefirma\datean\actan.cdx IN Actan
sele rul
SET RELATION TO cod INTO Actan ADDITIVE
titlu='In perioada:'+l1+'/'+a1+'-'+l2+'/'+a2
do form afstoc
set relation off into actan
m.an=aa
m.nl=ll
DO totv
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
LOCAL aa,ll
ll=m.nl
aa=m.an
DO stoc_data IN PROCEDURI.PRG
&&-------
SELE RULL
SET FILTER TO
SELE STOC
SET FILTER TO
USE IN stoc
USE &loc\&nfscurt\tempo\inloc IN 0 ALIAS stoc ORDER tag denumire
sele rul
set relation off into actan
SET ORDER TO TAG Cod OF &calefirma\datean\actan.cdx IN Actan
sele rul
SET RELATION TO cod INTO Actan ADDITIVE
*titlu='Pana la data de:'+DTOC(
do form afstoc
set relation off into actan
m.an=aa
m.nl=ll
DO totv
ENDPROC && BAR_3_OF_Shortcut_FB2P
*</Procedures>

37
Meniuri/transfer.mn2 Normal file
View File

@@ -0,0 +1,37 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="transfer.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 "Catre o gestiune la pret de \<achizitie"
ON SELECTION BAR 1 OF Shortcut lans(74)
DEFINE BAR 2 OF Shortcut PROMPT "Catre o gestiune la pret de \<vanzare"
ON SELECTION BAR 2 OF Shortcut lans(75)
DEFINE BAR 3 OF Shortcut PROMPT "\-"
ON BAR 3 OF Shortcut ACTIVATE POPUP _2gm0yf7lf
*----------------------------------
DEFINE POPUP _2gm0yf7lf SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "Retur din transfer de la gestiune valorica la pret de vanzare - aviz \<expeditie"
ON SELECTION BAR 4 OF Shortcut initializeaza_vanzare_din_stoc(241)
DEFINE BAR 5 OF Shortcut PROMPT "Retur din transfer de la gestiune valorica (cantitativ) la pret de vanzare - aviz \<expeditie"
ON SELECTION BAR 5 OF Shortcut initializeaza_vanzare_din_stoc(242)
DEFINE BAR 6 OF Shortcut PROMPT "\-"
ON BAR 6 OF Shortcut ACTIVATE POPUP _2db0knq6i
*----------------------------------
DEFINE POPUP _2db0knq6i SHORTCUT RELATIVE
DEFINE BAR 7 OF Shortcut PROMPT "\<Rezervare"
ON SELECTION BAR 7 OF Shortcut lans(229)
ACTIVATE POPUP Shortcut
*</MenuCode>

221
Meniuri/transfer1.mn2 Normal file
View File

@@ -0,0 +1,221 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="transfer1.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 "\<Diferenta de pret la produse"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Catre o gestiune la pret de \<achizitie"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "Catre o gestiune la pret de \<vanzare"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
lans(218)
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
LANS(74)
*!* SELE CALENDAR
*!* LOCA FOR NL=M.NL AND AN=M.AN
*!* M.CTVA=CTVAM
*!* M.FDOC='NOTA TRANSFER'
*!* buton=1
*!* OACT=CREATEOBJ('ACTTRANSFERg')
*!* OACT.SHOW(1)
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* M.NNIR=M.NRACT
*!* DO CODARE
*!* SELE IESIRI
*!* ZAP
*!* do cursul
*!* buton=1
*!* OBM=CREA('BONTRANSFERgg')
*!* OBM.SHOW(1)
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* *******************************************
*!* sele numegest
*!* **scd din m.numegest
*!* loca for numegest=m.numegest
*!* m.scd1=contg
*!* **scd din m.nume_4
*!* loca for numegest=m.nume_4
*!* m.scd2=contg
*!* DO CONTABILIZEAZA WITH m.scd2,m.scd1,M.TOTFTVA-M.TOTADAOS,CLASAACT
*!* DO IESTOCURIMAGAZII
*!* &&IESIRE DIN GESTIUNEA M.NUMEGEST
*!* DO IERULAJMAGAZII
*!* buton=2
*!* DO DANU WITH 'Doriti sa listati NOTA DE TRANSFER?'
*!* if buton=1
*!* SELE RUL
*!* SET FILTER TO cod=m.cod and !empty(cante)
*!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW
*!* endif
*!* &&INTRARE IN GESTIUNEA M.NUME_4
*!* SELE NUMEGEST
*!* LOCA FOR ALLT(NUMEGEST)=ALLT(M.NUME_4)
*!* SCAT FIEL GEST MEMV
*!* SELE INTRARI
*!* ZAP
*!* SELE IESIRI
*!* SCAN
*!* SCAT FIEL EXCEPT GEST MEMV
*!* M.CANT=M.CANTE
*!* M.SCD=m.scd2
*!* SELE INTRARI
*!* APPE BLAN
*!* GATH MEMV
*!* SELE IESIRI
*!* ENDSCAN
*!* DO INRULAJMAGAZII
*!* DO INSTOCURIMAGAZII
*!* DO STERGE
*!* RETURN
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
LANS(75)
*!* Sele CALENDAR
*!* Loca For NL=M.NL And AN=M.AN
*!* m.CTVA=CTVAM
*!* m.FDOC='NOTA TRANSFER'
*!* buton=1
*!* OACT=Createobj('ACTTRANSFER')
*!* OACT.Show(1)
*!* If buton=2
*!* Do STERGE
*!* Return
*!* Endif
*!* m.NNIR=M.NRACT
*!* Do CODARE
*!* Sele IESIRI
*!* Zap
*!* Do cursul
*!* buton=1
*!* *do form bonmarfa1
*!* M.NUMEGEST=M.EXPLICATIA
*!* SELECT STOC
*!* SET FILTER TO
*!* SELECT NUMEGEST
*!* SET FILTER TO
*!* M.NUMEGEST=ALLTRIM(M.NUMEGEST)
*!* OBM=Crea('BONTRANSFERGM')
*!* OBM.Show(1)
*!* If buton=2
*!* Do STERGE
*!* Return
*!* Endif
*!* *******************************************
*!* Z=M.EXPLICATIA
*!* M.EXPLICATIA=M.NUME_4
*!* M.NUME_4=Z
*!* SELECT NUMEGEST
*!* LOCATE FOR NUMEGEST=M.NUME_4
*!* M.CONTG=CONTG
*!* m.TOTTVA=Round(M.TOTFTVA*(M.CTVA-1),0)
*!* Do CONTABILIZEAZA With C371ENDETAIL,M.CONTG,M.TOTFTVA-m.totadaos,CLASAACT
*!* Do CONTABILIZEAZA With C371ENDETAIL,C378ENDETAIL,M.totadaos,CLASAACT
*!* Do CONTABILIZEAZA With C371ENDETAIL,'4428',M.TOTTVA,CLASAACT
*!* Z=M.NUME_4
*!* M.NUME_4=M.EXPLICATIA
*!* M.EXPLICATIA=Z
*!* Do IESTOCURIMAGAZII
*!* &&IESIRE DIN GESTIUNEA M.NUMEGEST
*!* Do IERULAJMAGAZII
*!* &&INTRARE IN GESTIUNEA M.NUME_4
*!* Sele NUMEGEST
*!* Loca For Allt(NUMEGEST)=Allt(M.NUME_4)
*!* Scat Fiel GEST Memv
*!* Sele INTRARI
*!* Zap
*!* Sele IESIRI
*!* Scan
*!* Scat Fiel Except GEST Memv
*!* m.CANT=M.CANTE
*!* m.SCD=C371ENDETAIL
*!* Sele INTRARI
*!* Appe Blan
*!* Gath Memv
*!* Sele IESIRI
*!* Endscan
*!* Do INRULAJMAGAZII
*!* Do INSTOCURIMAGAZII
*!* buton=2
*!* Do DANU With 'Doriti sa listati NOTA DE TRANSFER?'
*!* If buton=1
*!* Sele RUL
*!* ***
*!* 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
*!* Do TOTV
*!* Endif
*!* Do STERGE
*!* Return
ENDPROC && BAR_3_OF_Shortcut_FB2P
*</Procedures>

235
Meniuri/transfer5.mn2 Normal file
View File

@@ -0,0 +1,235 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="transfer5.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 "Catre o gestiune la pret de \<achizitie"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Catre o gestiune la pret de \<vanzare"
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 _2ev0nri5r
*----------------------------------
DEFINE POPUP _2ev0nri5r SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "\<Intrare din transfer de la gestiune valorica la pret de vanzare"
ON SELECTION BAR 4 OF Shortcut lans(237)
DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _2fv0okwnu
*----------------------------------
DEFINE POPUP _2fv0okwnu SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "Retur din transfer de la gestiune valorica la pret de vanzare - aviz \<expeditie"
ON SELECTION BAR 6 OF Shortcut initializeaza_vanzare_din_stoc(236)
DEFINE BAR 7 OF Shortcut PROMPT "Retur din transfer de la gestiune valorica (cantitativ) la pret de vanzare - aviz \<expeditie"
ON SELECTION BAR 7 OF Shortcut initializeaza_vanzare_din_stoc(240)
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
LANS(76)
*!* Local TR
*!* Sele CALENDAR
*!* Loca For NL=M.NL And AN=M.AN
*!* m.CTVA=CTVAM
*!* m.FDOC='NOTA TRANSFER'
*!* buton=1
*!* OACT=Createobj('ACTTRANSFER')
*!* OACT.LABEL7.Caption='GESTIUNEA DESTINATIE' &&M.NUMEGEST; SURSA=M.NUME_4
*!* OACT.Show(1)
*!* If buton=2
*!* Do STERGE
*!* Return
*!* Endif
*!* TR=M.NUMEGEST
*!* m.NUMEGEST=M.NUME_4
*!* m.NUME_4=TR
*!* m.NNIR=M.NRACT
*!* Do CODARE
*!* Sele IESIRI
*!* Zap
*!* Do cursul
*!* buton=1
*!* *do form bonmarfa1
*!* OBM=Crea('BONTRANSFERMG')
*!* *OBM.LABELNUME.CAPTION='TRANSFER MAGAZIN - GESTIUNE'
*!* OBM.Show(1)
*!* If buton=2
*!* Do STERGE
*!* Return
*!* Endif
*!* *******************************************
*!* *!* Z=M.EXPLICATIA
*!* *!* M.EXPLICATIA=M.NUME_4
*!* *!* M.NUME_4=Z
*!* m.TOTTVA=Round(M.TOTFTVA*(M.CTVA-1),0)
*!* Do CONTABILIZEAZA With C371ENGROS,C371ENDETAIL,M.TOTFTVA-m.totadaos,CLASAACT
*!* *M.EXPLICATIA='ADAOS COMERCIAL'
*!* Do CONTABILIZEAZA With C378ENDETAIL,C371ENDETAIL,M.totadaos,CLASAACT
*!* m.EXPLICATIA='TVA '+Allt(Str((M.CTVA-1)*100))+'%'
*!* Do CONTABILIZEAZA With '4428',C371ENDETAIL,M.TOTTVA,CLASAACT
*!* *!* Z=M.NUME_4
*!* *!* M.NUME_4=M.EXPLICATIA
*!* *!* M.EXPLICATIA=Z
*!* Do IESTOCURIMAGAZII
*!* &&IESIRE DIN GESTIUNEA M.NUMEGEST
*!* Do IERULAJMAGAZII
*!* &&INTRARE IN GESTIUNEA M.NUME_4
*!* Sele NUMEGEST
*!* Loca For Allt(NUMEGEST)=Allt(M.NUME_4)
*!* Scat Fiel GEST Memv
*!* Sele INTRARI
*!* Zap
*!* Sele IESIRI
*!* Scan
*!* Scat Fiel Except GEST Memv
*!* m.CANT=M.CANTE
*!* m.SCD=C371ENGROS
*!* Sele INTRARI
*!* Appe Blan
*!* Gath Memv
*!* Sele IESIRI
*!* Endscan
*!* Do INRULAJMAGAZII
*!* Do INSTOCURIMAGAZII
*!* buton=2
*!* Do DANU With 'Doriti sa listati NOTA DE TRANSFER?'
*!* If buton=1
*!* *!* SELE RUL
*!* *!* SET FILTER TO cod=m.cod and !empty(cante)
*!* *!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW
*!* 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
*!* Do TOTV
*!* Endif
*!* Do STERGE
*!* Return
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
LANS(207)
*!* SELE CALENDAR
*!* LOCA FOR NL=M.NL AND AN=M.AN
*!* M.CTVA=CTVAM
*!* M.FDOC='NOTA TRANSFER'
*!* buton=1
*!* OACT=CREATEOBJ('ACTTRANSFERg')
*!* OACT.SHOW(1)
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* M.NNIR=M.NRACT
*!* DO CODARE
*!* SELE IESIRI
*!* ZAP
*!* do cursul
*!* buton=1
*!* *do form bonmarfa1
*!* OBM=CREA('BONTRANSFERgg')
*!* OBM.SHOW(1)
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* *******************************************
*!* sele numegest
*!* **scd din m.numegest
*!* loca for numegest=m.numegest
*!* m.scd1=contg
*!* **scd din m.nume_4
*!* loca for numegest=m.nume_4
*!* m.scd2=contg
*!* DO CONTABILIZEAZA WITH m.scd2,m.scd1,M.TOTFTVA-M.TOTADAOS,CLASAACT
*!* DO IESTOCURIMAGAZII
*!* &&IESIRE DIN GESTIUNEA M.NUMEGEST
*!* DO IERULAJMAGAZII
*!* buton=2
*!* DO DANU WITH 'Doriti sa listati NOTA DE TRANSFER?'
*!* if buton=1
*!* SELE RUL
*!* SET FILTER TO cod=m.cod and !empty(cante)
*!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW
*!* endif
*!* &&INTRARE IN GESTIUNEA M.NUME_4
*!* SELE NUMEGEST
*!* LOCA FOR ALLT(NUMEGEST)=ALLT(M.NUME_4)
*!* SCAT FIEL GEST MEMV
*!* SELE INTRARI
*!* ZAP
*!* SELE IESIRI
*!* SCAN
*!* SCAT FIEL EXCEPT GEST MEMV
*!* M.CANT=M.CANTE
*!* M.SCD=m.scd2
*!* SELE INTRARI
*!* APPE BLAN
*!* GATH MEMV
*!* SELE IESIRI
*!* ENDSCAN
*!* DO INRULAJMAGAZII
*!* DO INSTOCURIMAGAZII
*!* DO STERGE
*!* RETURN
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>

235
Meniuri/transfer6.mn2 Normal file
View File

@@ -0,0 +1,235 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="transfer6.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 "Catre o gestiune la pret de \<achizitie"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Catre o gestiune la pret de \<vanzare"
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 _2ev0nri5r
*----------------------------------
DEFINE POPUP _2ev0nri5r SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "Intrare din transfer de la gestiune valorica la pret de vanzare"
ON SELECTION BAR 4 OF Shortcut lans(257)
DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _2fv0okwnu
*----------------------------------
DEFINE POPUP _2fv0okwnu SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "Retur din transfer de la gestiune valorica la pret de vanzare - aviz \<expeditie"
ON SELECTION BAR 6 OF Shortcut initializeaza_vanzare_din_stoc(255)
DEFINE BAR 7 OF Shortcut PROMPT "Retur din transfer de la gestiune valorica (cantitativ) la pret de vanzare - aviz \<expeditie"
ON SELECTION BAR 7 OF Shortcut initializeaza_vanzare_din_stoc(256)
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
LANS(253)
*!* Local TR
*!* Sele CALENDAR
*!* Loca For NL=M.NL And AN=M.AN
*!* m.CTVA=CTVAM
*!* m.FDOC='NOTA TRANSFER'
*!* buton=1
*!* OACT=Createobj('ACTTRANSFER')
*!* OACT.LABEL7.Caption='GESTIUNEA DESTINATIE' &&M.NUMEGEST; SURSA=M.NUME_4
*!* OACT.Show(1)
*!* If buton=2
*!* Do STERGE
*!* Return
*!* Endif
*!* TR=M.NUMEGEST
*!* m.NUMEGEST=M.NUME_4
*!* m.NUME_4=TR
*!* m.NNIR=M.NRACT
*!* Do CODARE
*!* Sele IESIRI
*!* Zap
*!* Do cursul
*!* buton=1
*!* *do form bonmarfa1
*!* OBM=Crea('BONTRANSFERMG')
*!* *OBM.LABELNUME.CAPTION='TRANSFER MAGAZIN - GESTIUNE'
*!* OBM.Show(1)
*!* If buton=2
*!* Do STERGE
*!* Return
*!* Endif
*!* *******************************************
*!* *!* Z=M.EXPLICATIA
*!* *!* M.EXPLICATIA=M.NUME_4
*!* *!* M.NUME_4=Z
*!* m.TOTTVA=Round(M.TOTFTVA*(M.CTVA-1),0)
*!* Do CONTABILIZEAZA With C371ENGROS,C371ENDETAIL,M.TOTFTVA-m.totadaos,CLASAACT
*!* *M.EXPLICATIA='ADAOS COMERCIAL'
*!* Do CONTABILIZEAZA With C378ENDETAIL,C371ENDETAIL,M.totadaos,CLASAACT
*!* m.EXPLICATIA='TVA '+Allt(Str((M.CTVA-1)*100))+'%'
*!* Do CONTABILIZEAZA With '4428',C371ENDETAIL,M.TOTTVA,CLASAACT
*!* *!* Z=M.NUME_4
*!* *!* M.NUME_4=M.EXPLICATIA
*!* *!* M.EXPLICATIA=Z
*!* Do IESTOCURIMAGAZII
*!* &&IESIRE DIN GESTIUNEA M.NUMEGEST
*!* Do IERULAJMAGAZII
*!* &&INTRARE IN GESTIUNEA M.NUME_4
*!* Sele NUMEGEST
*!* Loca For Allt(NUMEGEST)=Allt(M.NUME_4)
*!* Scat Fiel GEST Memv
*!* Sele INTRARI
*!* Zap
*!* Sele IESIRI
*!* Scan
*!* Scat Fiel Except GEST Memv
*!* m.CANT=M.CANTE
*!* m.SCD=C371ENGROS
*!* Sele INTRARI
*!* Appe Blan
*!* Gath Memv
*!* Sele IESIRI
*!* Endscan
*!* Do INRULAJMAGAZII
*!* Do INSTOCURIMAGAZII
*!* buton=2
*!* Do DANU With 'Doriti sa listati NOTA DE TRANSFER?'
*!* If buton=1
*!* *!* SELE RUL
*!* *!* SET FILTER TO cod=m.cod and !empty(cante)
*!* *!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW
*!* 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
*!* Do TOTV
*!* Endif
*!* Do STERGE
*!* Return
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
LANS(254)
*!* SELE CALENDAR
*!* LOCA FOR NL=M.NL AND AN=M.AN
*!* M.CTVA=CTVAM
*!* M.FDOC='NOTA TRANSFER'
*!* buton=1
*!* OACT=CREATEOBJ('ACTTRANSFERg')
*!* OACT.SHOW(1)
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* M.NNIR=M.NRACT
*!* DO CODARE
*!* SELE IESIRI
*!* ZAP
*!* do cursul
*!* buton=1
*!* *do form bonmarfa1
*!* OBM=CREA('BONTRANSFERgg')
*!* OBM.SHOW(1)
*!* IF BUTON=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* *******************************************
*!* sele numegest
*!* **scd din m.numegest
*!* loca for numegest=m.numegest
*!* m.scd1=contg
*!* **scd din m.nume_4
*!* loca for numegest=m.nume_4
*!* m.scd2=contg
*!* DO CONTABILIZEAZA WITH m.scd2,m.scd1,M.TOTFTVA-M.TOTADAOS,CLASAACT
*!* DO IESTOCURIMAGAZII
*!* &&IESIRE DIN GESTIUNEA M.NUMEGEST
*!* DO IERULAJMAGAZII
*!* buton=2
*!* DO DANU WITH 'Doriti sa listati NOTA DE TRANSFER?'
*!* if buton=1
*!* SELE RUL
*!* SET FILTER TO cod=m.cod and !empty(cante)
*!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW
*!* endif
*!* &&INTRARE IN GESTIUNEA M.NUME_4
*!* SELE NUMEGEST
*!* LOCA FOR ALLT(NUMEGEST)=ALLT(M.NUME_4)
*!* SCAT FIEL GEST MEMV
*!* SELE INTRARI
*!* ZAP
*!* SELE IESIRI
*!* SCAN
*!* SCAT FIEL EXCEPT GEST MEMV
*!* M.CANT=M.CANTE
*!* M.SCD=m.scd2
*!* SELE INTRARI
*!* APPE BLAN
*!* GATH MEMV
*!* SELE IESIRI
*!* ENDSCAN
*!* DO INRULAJMAGAZII
*!* DO INSTOCURIMAGAZII
*!* DO STERGE
*!* RETURN
ENDPROC && BAR_2_OF_Shortcut_FB2P
*</Procedures>

29
Meniuri/vanz2.mn2 Normal file
View File

@@ -0,0 +1,29 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="vanz2.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 "Vanzare en-\<gros"
ON SELECTION BAR 1 OF Shortcut initializeaza_vanzare_din_stoc(73)
DEFINE BAR 2 OF Shortcut PROMPT "Vanzare en-\<detail"
ON SELECTION BAR 2 OF Shortcut initializeaza_vanzare_din_stoc(222)
DEFINE BAR 3 OF Shortcut PROMPT "\<Retur vanzare"
ON SELECTION BAR 3 OF Shortcut initializeaza_vanzare_din_stoc(224)
DEFINE BAR 4 OF Shortcut PROMPT "\-"
ON BAR 4 OF Shortcut ACTIVATE POPUP _26o0ww6ac
*----------------------------------
DEFINE POPUP _26o0ww6ac SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "Vanzare en-detail in \<valuta"
ON SELECTION BAR 5 OF Shortcut initializeaza_vanzare_din_stoc(223)
ACTIVATE POPUP Shortcut
*</MenuCode>

87
Meniuri/vanz3.mn2 Normal file
View File

@@ -0,0 +1,87 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="vanz3.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 "\<Cost de productie"
ON BAR 1 OF Shortcut ACTIVATE POPUP Costdeprod
*----------------------------------
DEFINE POPUP Costdeprod SHORTCUT RELATIVE
DEFINE BAR 1 OF Costdeprod PROMPT "Produse finite"
ON SELECTION BAR 1 OF Costdeprod LANS(78)
DEFINE BAR 2 OF Costdeprod PROMPT "Semifabricate"
ON SELECTION BAR 2 OF Costdeprod LANS(80)
DEFINE BAR 3 OF Costdeprod PROMPT "Animale si Pasari"
ON SELECTION BAR 3 OF Costdeprod lans(90)
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP _12o0p4fw7
*----------------------------------
DEFINE POPUP _12o0p4fw7 SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "\<Vanzare produse (en-gros)"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
DEFINE BAR 4 OF Shortcut PROMPT "\<Vanzare produse (en-detail) - Pret vanzare" ;
MESSAGE '345-348;348-711;711-345;4111-7015;4111-4427'
ON SELECTION BAR 4 OF Shortcut initializeaza_vanzare_din_stoc(83)
DEFINE BAR 5 OF Shortcut PROMPT "\<Vanzare produse (en-detail) - Pret achizitie" ;
MESSAGE '711-345;4111-7015;4111-4427'
ON SELECTION BAR 5 OF Shortcut initializeaza_vanzare_din_stoc(271)
DEFINE BAR 6 OF Shortcut PROMPT "\-"
ON BAR 6 OF Shortcut ACTIVATE POPUP _2700yi5nt
*----------------------------------
DEFINE POPUP _2700yi5nt SHORTCUT RELATIVE
DEFINE BAR 7 OF Shortcut PROMPT "Vanzare produse (en-detail) in \<valuta - Pret vanzare" ;
MESSAGE '345-348;348-711;711-345;4111-7015;4111-4427'
ON SELECTION BAR 7 OF Shortcut initializeaza_vanzare_din_stoc(225)
DEFINE BAR 8 OF Shortcut PROMPT "Vanzare produse (en-detail) in \<valuta - Pret achizitie" ;
MESSAGE '711-345;4111-7015;4111-4427'
ON SELECTION BAR 8 OF Shortcut initializeaza_vanzare_din_stoc(272)
DEFINE BAR 9 OF Shortcut PROMPT "\-"
ON BAR 9 OF Shortcut ACTIVATE POPUP _1d40uq9r5
*----------------------------------
DEFINE POPUP _1d40uq9r5 SHORTCUT RELATIVE
DEFINE BAR 10 OF Shortcut PROMPT "Retur vanzare produse"
ON SELECTION BAR 10 OF Shortcut initializeaza_vanzare_din_stoc(206)
DEFINE BAR 11 OF Shortcut PROMPT "\-"
ON BAR 11 OF Shortcut ACTIVATE POPUP _1u712gh04
*----------------------------------
DEFINE POPUP _1u712gh04 SHORTCUT RELATIVE
DEFINE BAR 12 OF Shortcut PROMPT "\<Monetar"
ON BAR 12 OF Shortcut ACTIVATE POPUP Monetar
*----------------------------------
DEFINE POPUP Monetar SHORTCUT RELATIVE
DEFINE BAR 1 OF Monetar PROMPT "\<Fara descarcare de gestiune"
ON SELECTION BAR 1 OF Monetar DO BAR_1_OF_Monetar_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_3_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(79)
ENDPROC && BAR_3_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_Monetar_FB2P
lans(98)
ENDPROC && BAR_1_OF_Monetar_FB2P
*</Procedures>

110
Meniuri/vanz4.mn2 Normal file
View File

@@ -0,0 +1,110 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="vanz4.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 "\<En-gros"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "En-gros \<Taxare inversa"
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 _1y00sgdyf
*----------------------------------
DEFINE POPUP _1y00sgdyf SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "En-\<detail"
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
DEFINE BAR 5 OF Shortcut PROMPT "En-detail Ta\<xare inversa"
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 _1y00sgdyg
*----------------------------------
DEFINE POPUP _1y00sgdyg SHORTCUT RELATIVE
DEFINE BAR 7 OF Shortcut PROMPT "En-detail in \<valuta"
ON SELECTION BAR 7 OF Shortcut initializeaza_vanzare_din_stoc(226)
DEFINE BAR 8 OF Shortcut PROMPT "En-detail taxare inver\<sa in valuta"
ON SELECTION BAR 8 OF Shortcut initializeaza_vanzare_din_stoc(227)
DEFINE BAR 9 OF Shortcut PROMPT "\-"
ON BAR 9 OF Shortcut ACTIVATE POPUP _2700yfq6p
*----------------------------------
DEFINE POPUP _2700yfq6p SHORTCUT RELATIVE
DEFINE BAR 10 OF Shortcut PROMPT "\<Retur vanzare"
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 _1tr1de1a7
*----------------------------------
DEFINE POPUP _1tr1de1a7 SHORTCUT RELATIVE
DEFINE BAR 12 OF Shortcut PROMPT "\<Descarcare de gestiune"
ON BAR 12 OF Shortcut ACTIVATE POPUP Descarcare
*----------------------------------
DEFINE POPUP Descarcare SHORTCUT RELATIVE
DEFINE BAR 1 OF Descarcare PROMPT "Descarcare marfa la pret de lista cu monetar"
ON SELECTION BAR 1 OF Descarcare DO BAR_1_OF_Descarcare_FB2P
DEFINE BAR 2 OF Descarcare PROMPT "Descarcare marfa la pret de lista dupa fisa tehnologica cu monetar"
ON SELECTION BAR 2 OF Descarcare DO BAR_2_OF_Descarcare_FB2P
DEFINE BAR 3 OF Descarcare PROMPT "Descarcare marfa la pret de lista"
ON SELECTION BAR 3 OF Descarcare DO BAR_3_OF_Descarcare_FB2P
DEFINE BAR 4 OF Descarcare PROMPT "Descarcare marfa la pret de lista dupa fisa tehnologica"
ON SELECTION BAR 4 OF Descarcare DO BAR_4_OF_Descarcare_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(62)
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(102)
* lans(102)
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_4_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(61)
ENDPROC && BAR_4_OF_Shortcut_FB2P
PROCEDURE BAR_5_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(103)
ENDPROC && BAR_5_OF_Shortcut_FB2P
PROCEDURE BAR_10_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(63)
ENDPROC && BAR_10_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_Descarcare_FB2P
lans(91)
ENDPROC && BAR_1_OF_Descarcare_FB2P
PROCEDURE BAR_2_OF_Descarcare_FB2P
lans(92)
ENDPROC && BAR_2_OF_Descarcare_FB2P
PROCEDURE BAR_3_OF_Descarcare_FB2P
lans(96)
ENDPROC && BAR_3_OF_Descarcare_FB2P
PROCEDURE BAR_4_OF_Descarcare_FB2P
lans(97)
ENDPROC && BAR_4_OF_Descarcare_FB2P
*</Procedures>

281
Meniuri/vanz5.mn2 Normal file
View File

@@ -0,0 +1,281 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="vanz5.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 "\<Vanzare en_detail"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\<Retur vanzare en-detail"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "\<Pe lucrari in curs de executie"
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 _2fu0nwiv5
*----------------------------------
DEFINE POPUP _2fu0nwiv5 SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "\<Factura retur marfa (valorica)"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
DEFINE BAR 6 OF Shortcut PROMPT "\<Aviz retur marfa (valoric)"
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON BAR 7 OF Shortcut ACTIVATE POPUP _0zz0xwwtn
*----------------------------------
DEFINE POPUP _0zz0xwwtn SHORTCUT RELATIVE
DEFINE BAR 8 OF Shortcut PROMPT "\<Descarcare de gestiune"
ON BAR 8 OF Shortcut ACTIVATE POPUP Descarcare
*----------------------------------
DEFINE POPUP Descarcare SHORTCUT RELATIVE
DEFINE BAR 1 OF Descarcare PROMPT "Metoda cu \<K - utilizand balante de parteneri"
ON SELECTION BAR 1 OF Descarcare DO BAR_1_OF_Descarcare_FB2P
DEFINE BAR 2 OF Descarcare PROMPT "Metoda cu K pentru marfa in \<custodie"
ON SELECTION BAR 2 OF Descarcare DO BAR_2_OF_Descarcare_FB2P
DEFINE BAR 3 OF Descarcare PROMPT "\Descarcare cantitativa (fara monetar)"
ON SELECTION BAR 3 OF Descarcare DO BAR_3_OF_Descarcare_FB2P
DEFINE BAR 4 OF Descarcare PROMPT "\<Descarcare marfa la pret de lista cu monetar"
ON SELECTION BAR 4 OF Descarcare DO BAR_4_OF_Descarcare_FB2P
DEFINE BAR 9 OF Shortcut PROMPT "\<Monetar"
ON BAR 9 OF Shortcut ACTIVATE POPUP Monetar
*----------------------------------
DEFINE POPUP Monetar SHORTCUT RELATIVE
DEFINE BAR 1 OF Monetar PROMPT "\Cu descarcare cantitativa de gestiune"
ON SELECTION BAR 1 OF Monetar DO BAR_1_OF_Monetar_FB2P
DEFINE BAR 2 OF Monetar PROMPT "\Cu descarcare valorica de gestiune"
ON SELECTION BAR 2 OF Monetar DO BAR_2_OF_Monetar_FB2P
DEFINE BAR 3 OF Monetar PROMPT "\<Fara descarcare de gestiune"
ON SELECTION BAR 3 OF Monetar DO BAR_3_OF_Monetar_FB2P
DEFINE BAR 10 OF Shortcut PROMPT "\-"
ON BAR 10 OF Shortcut ACTIVATE POPUP _2e20ld90d
*----------------------------------
DEFINE POPUP _2e20ld90d SHORTCUT RELATIVE
DEFINE BAR 11 OF Shortcut PROMPT "\<Protocol cu TVA" ;
MESSAGE 'x=401;623=401;635=4427'
ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P
DEFINE BAR 12 OF Shortcut PROMPT "Protocol" ;
MESSAGE 'x=401;623=401;378=x; 4428=x '
ON SELECTION BAR 12 OF Shortcut DO BAR_12_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(64)
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(65)
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
lans(93)
ENDPROC && BAR_3_OF_Shortcut_FB2P
PROCEDURE BAR_5_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(239)
ENDPROC && BAR_5_OF_Shortcut_FB2P
PROCEDURE BAR_6_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(238)
ENDPROC && BAR_6_OF_Shortcut_FB2P
PROCEDURE BAR_1_OF_Descarcare_FB2P
DO inchidere_k IN inchidere_k.prg
*!* LOCAL A411,A371,A378,S371,S378,K,V,B
*!* STORE 0 TO S371,S378,K,V,B
*!* DO REF_GESTIUNI
*!* m.SCD=''
*!* m.SCC=''
*!* semafor=.t.
*!* lans(66)
*!* semafor=.f.
*!* IF buton=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* SELECT NUMEGEST
*!* SET FILTER TO
*!* M.GEST=GEST
*!* LOCAL ULIT
*!* ulit=SUBSTR(contg,4,1)
*!* A411='411'+ULIT
*!* A371='371'+ULIT
*!* A378='378'+ULIT
*!* SELECT GESTIUNI
*!* SEEK M.GEST
*!* IF !FOUND()
*!* DO MESAJ WITH 'Eroare: generare gestiuni!',''
*!* RETURN
*!* ENDIF
*!* M.SUMA=CRED
*!* k=procent_k
*!* IF k=0
*!* DO mesaj WITH 'Modificati procentul k','in gestiuni'
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* m.totftvam=ROUND(M.SUMA/1.19,0)
*!* m.tvam=M.SUMA-M.totftvam
*!* m.TOTCTVA=M.SUMA
*!* m.NEIMPOZAB=0
*!* m.PERECHE=0
*!* V=M.TOTCTVA
*!* LOCAL A,B,c,d,E,F,G,H
*!* A=ROUND(V*K,0)
*!* B=V-A-M.TVAM
*!* DO MESAJ WITH 'Coeficientul K= '+ALLT(STR(K,10,6)),''
*!* DO CONTABILIZEAZA WITH '607 ',A371,B,clasaact
*!* DO CONTABILIZEAZA WITH A378,A371,A,clasaact
*!* DO CONTABILIZEAZA WITH '4428',A371,M.tvam,clasaact
*!* DO STERGE
ENDPROC && BAR_1_OF_Descarcare_FB2P
PROCEDURE BAR_2_OF_Descarcare_FB2P
DO inchidere_k_custodie IN inchidere_k.prg
ENDPROC && BAR_2_OF_Descarcare_FB2P
PROCEDURE BAR_3_OF_Descarcare_FB2P
lans(84)
ENDPROC && BAR_3_OF_Descarcare_FB2P
PROCEDURE BAR_4_OF_Descarcare_FB2P
lans(95)
ENDPROC && BAR_4_OF_Descarcare_FB2P
PROCEDURE BAR_1_OF_Monetar_FB2P
LANS(69)
ENDPROC && BAR_1_OF_Monetar_FB2P
PROCEDURE BAR_2_OF_Monetar_FB2P
*!* LOCAL A411,A371,A378,S371,S378,K,V,B
*!* STORE 0 TO S371,S378,K,V,B
*!* lans(68)
*!* iF buton=2
*!* DO STERGE
*!* RETURN
*!* ENDIF
*!* SELECT NUMEGEST
*!* SET FILTER TO
*!* M.GEST=GEST
*!* LOCAL ULIT
*!* ULIT=SUBSTR(CONTG,4,1)
*!* A411='411'+ULIT
*!* A371='371'+ULIT
*!* A378='378'+ULIT
*!* SELECT GESTIUNI
*!* SEEK M.GEST
*!* IF !FOUND()
*!* DO MESAJ WITH 'Eroare: generare gestiuni!',''
*!* RETURN
*!* ENDIF
*!* k=procent_k
*!* IF k=0
*!* DO mesaj WITH 'Modificati procentul k','in gestiuni'
*!* RETURN
*!* ENDIF
*!* DO CODARE
*!* *m.totftvam=ROUND(M.SUMA/1.19,0)
*!* m.totftvam=m.totftva
*!* *m.tvam=M.SUMA-M.totftvam
*!* m.tvam=m.tottva
*!* *m.TOTCTVA=M.SUMA
*!* m.NEIMPOZAB=0
*!* DO CONTABILIZEAZA WITH A411,'707 ',M.TOTFTVAM,CLASAACT
*!* DO CONTABILIZEAZA WITH A411,'4427',M.TVAM,CLASAACT
*!* M.PERECHE=M.NRACT
*!* DO CONTABILIZEAZA WITH '5311',A411,M.TOTCTVA,CLASAACT
*!* m.PERECHE=0
*!* V=M.TOTCTVA
*!* LOCAL A,B,c,d,E,F,G,H
*!* A=ROUND(V*K,0)
*!* B=V-A-M.TVAM
*!* DO MESAJ WITH 'Coeficientul K= '+ALLT(STR(K,10,6)),''
*!* DO CONTABILIZEAZA WITH '607 ',A371,B,clasaact
*!* DO CONTABILIZEAZA WITH A378,A371,A,clasaact
*!* DO CONTABILIZEAZA WITH '4428',A371,M.tvam,clasaact
*!* M.SUMA=M.TOTCTVA
*!* *** in casa e prost face gath memv si nu are m.scd si m.scc
*!* m.scd='5311'
*!* m.scc=A411
*!* do inCASA
*!* DO ADVANZ
*!* SELE CLIENTI
*!* if flock()
*!* REPLACE CLIENTI.incasat WITH CLIENTI.incasat+m.TOTCTVA
*!* REPLACE CLIENTI.PRODUCTIE WITH CLIENTI.PRODUCTIE++m.TOTCTVA
*!* endif
*!* unlock
*!* DO STERGE
ENDPROC && BAR_2_OF_Monetar_FB2P
PROCEDURE BAR_3_OF_Monetar_FB2P
lans(67)
ENDPROC && BAR_3_OF_Monetar_FB2P
PROCEDURE BAR_11_OF_Shortcut_FB2P
*!* lans(233)
initializeaza_vanzare_din_stoc(233)
ENDPROC && BAR_11_OF_Shortcut_FB2P
PROCEDURE BAR_12_OF_Shortcut_FB2P
*lans(232)
initializeaza_vanzare_din_stoc(270)
ENDPROC && BAR_12_OF_Shortcut_FB2P
*</Procedures>

76
Meniuri/vanz6.mn2 Normal file
View File

@@ -0,0 +1,76 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="vanz6.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 "\<Vanzare en_detail"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "Retur vanzare en-detail"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
DEFINE BAR 3 OF Shortcut PROMPT "\Pe lucrari in curs de executie"
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 _2fu0nwiv5
*----------------------------------
DEFINE POPUP _2fu0nwiv5 SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "Factura retur marfa (valorica)"
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
DEFINE BAR 6 OF Shortcut PROMPT "Aviz retur marfa (valoric)"
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON BAR 7 OF Shortcut ACTIVATE POPUP _0zz0xwwtn
*----------------------------------
DEFINE POPUP _0zz0xwwtn SHORTCUT RELATIVE
DEFINE BAR 8 OF Shortcut PROMPT "Protocol cu TVA" ;
MESSAGE 'x=401;623=401;635=4427'
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
DEFINE BAR 9 OF Shortcut PROMPT "Sponsorizare"
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(252)
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_2_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(258)
ENDPROC && BAR_2_OF_Shortcut_FB2P
PROCEDURE BAR_3_OF_Shortcut_FB2P
lans(93)
ENDPROC && BAR_3_OF_Shortcut_FB2P
PROCEDURE BAR_5_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(259)
ENDPROC && BAR_5_OF_Shortcut_FB2P
PROCEDURE BAR_6_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(260)
ENDPROC && BAR_6_OF_Shortcut_FB2P
PROCEDURE BAR_8_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(261)
ENDPROC && BAR_8_OF_Shortcut_FB2P
PROCEDURE BAR_9_OF_Shortcut_FB2P
initializeaza_vanzare_din_stoc(262)
ENDPROC && BAR_9_OF_Shortcut_FB2P
*</Procedures>

72
Meniuri/vizgen.mn2 Normal file
View File

@@ -0,0 +1,72 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="vizgen.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 "Extras din Registrul Jurnal"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
DEFINE BAR 2 OF Shortcut PROMPT "\-"
ON BAR 2 OF Shortcut ACTIVATE POPUP _1010wxse4
*----------------------------------
DEFINE POPUP _1010wxse4 SHORTCUT RELATIVE
DEFINE BAR 3 OF Shortcut PROMPT "Stocuri de materiale"
ON BAR 3 OF Shortcut ACTIVATE POPUP Stocuridem
*----------------------------------
DEFINE POPUP Stocuridem SHORTCUT RELATIVE
DEFINE BAR 1 OF Stocuridem PROMPT "In luna curenta"
ON SELECTION BAR 1 OF Stocuridem
DEFINE BAR 2 OF Stocuridem PROMPT "De la luna-la luna..."
ON SELECTION BAR 2 OF Stocuridem
DEFINE BAR 4 OF Shortcut PROMPT "Rulaje de materiale"
ON BAR 4 OF Shortcut ACTIVATE POPUP Rulajedema
*----------------------------------
DEFINE POPUP Rulajedema SHORTCUT RELATIVE
DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _12s0oacnm
*----------------------------------
DEFINE POPUP _12s0oacnm SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "Facturi"
ON BAR 6 OF Shortcut ACTIVATE POPUP Facturi
*----------------------------------
DEFINE POPUP Facturi SHORTCUT RELATIVE
DEFINE BAR 1 OF Facturi PROMPT "De \<Achizitie, cu NIR, in luna curenta"
ON SELECTION BAR 1 OF Facturi
DEFINE BAR 2 OF Facturi PROMPT "De \<Vanzari marfuri, in luna curenta"
ON SELECTION BAR 2 OF Facturi
DEFINE BAR 7 OF Shortcut PROMPT "\-"
ON BAR 7 OF Shortcut ACTIVATE POPUP _13w0whdup
*----------------------------------
DEFINE POPUP _13w0whdup SHORTCUT RELATIVE
DEFINE BAR 8 OF Shortcut PROMPT "\<Lucrari"
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
*!* osetviz.tbrprim.buton1.click
ENDPROC && BAR_1_OF_Shortcut_FB2P
PROCEDURE BAR_8_OF_Shortcut_FB2P
*!* ol=crea('aflucrari')
*!* ol.show()
ENDPROC && BAR_8_OF_Shortcut_FB2P
*</Procedures>