Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
221
Meniuri/transfer1.mn2
Normal file
221
Meniuri/transfer1.mn2
Normal 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>
|
||||
Reference in New Issue
Block a user