115 lines
3.2 KiB
Plaintext
115 lines
3.2 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="introdgen.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 "LISTA INVENTAR"
|
|
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "\<Nota de inventariere si constatare diferente"
|
|
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 3 OF Shortcut PROMPT "\<Nota inventariere obiecte inventar 8039"
|
|
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
|
Do lista_inventar In ointroduceri.prg
|
|
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
|
DO nota_inventar IN ointroduceri.prg
|
|
|
|
*!* buton=2
|
|
*!* If File('&loc\&nfscurt\tempo\difstoc.DBF')
|
|
*!* Do danu With 'Doriti sa continuati nota inceputa?'
|
|
*!* Endif
|
|
|
|
*!* If buton=1
|
|
*!* Use &loc\&nfscurt\tempo\difstoc.Dbf In 0 Exclusive Alias difstoc
|
|
*!* Else
|
|
*!* Do stoc_data In PROCEDURI.PRG
|
|
|
|
*!* Use &loc\&nfscurt\tempo\inloc In 0 Alias inloc
|
|
|
|
*!* Select *,cants+cant-cante As stocf,cants-cants As Dif,pret*0 As valdif;
|
|
*!* FROM inloc Into Table &loc\&nfscurt\tempo\difstoc.Dbf Order By denumire
|
|
*!* Endif
|
|
|
|
*!* Do sterge
|
|
*!* buton=2
|
|
|
|
*!* PRIVATE PcNrgrupa
|
|
*!* STORE '' TO PcNrgrupa
|
|
|
|
*!* Select difstoc
|
|
*!* Do Form difinventar
|
|
|
|
*!* If buton=2
|
|
*!* IF USED('inloc')
|
|
*!* Use In inloc
|
|
*!* endif
|
|
*!* Use In difstoc
|
|
*!* Return
|
|
*!* Endif
|
|
|
|
*!* Do codare
|
|
*!* m.id_set=90101
|
|
*!* Select * From difstoc Where Dif#0 Into Table &loc\&nfscurt\tempo\aaa.Dbf
|
|
|
|
*!* *SELECT aaa
|
|
*!* Replace All cante With Dif
|
|
|
|
|
|
*!* Select iesiri
|
|
*!* Zap
|
|
*!* Append From &loc\&nfscurt\tempo\aaa.Dbf
|
|
*!* m.nnir=ALLTRIM(STR(m.NRACT))
|
|
|
|
*!* Select iesiri
|
|
*!* Replace All nnir With m.nnir,cod With m.cod,dataact With m.dataact,dataout WITH m.dataact
|
|
*!* *BROWSE
|
|
|
|
*!* *Do contabilizeaza_ana With m.scd,m.scc,m.ascd,m.ascc,m.suma
|
|
*!* IF USED('actactan')
|
|
*!* USE IN actactan
|
|
*!* ENDIF
|
|
|
|
|
|
*!* SELECT ACT
|
|
*!* COPY STRUCTURE TO &loc\&nfscurt\tempo\actactan WITH CDX
|
|
*!* USE &loc\&nfscurt\tempo\actactan IN 0 SHARED ALIAS ACTACTAN
|
|
|
|
*!* SELECT ACTACTAN
|
|
*!* APPEND BLANK
|
|
*!* GATHER MEMVAR
|
|
|
|
*!* DO FORM verificare
|
|
*!* IF buton = 1
|
|
*!* SCRIE_IN_FISIERE('BON')
|
|
*!* ENDIF
|
|
|
|
*!* Use In difstoc
|
|
*!* Use In aaa
|
|
*!* IF USED('inloc')
|
|
*!* Use In inloc
|
|
*!* ENDIF
|
|
*!* IF USED('actactan')
|
|
*!* USE IN actactan
|
|
*!* ENDIF
|
|
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Shortcut_FB2P
|
|
DO nota_inventar WITH .T. IN ointroduceri.prg
|
|
ENDPROC && BAR_3_OF_Shortcut_FB2P
|
|
|
|
*</Procedures>
|