63 lines
2.5 KiB
Plaintext
63 lines
2.5 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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>
|