236 lines
5.9 KiB
Plaintext
236 lines
5.9 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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>
|