122 lines
3.6 KiB
Plaintext
122 lines
3.6 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="decont4511.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 "Materiale primite" ;
|
|
MESSAGE ' X :4511'
|
|
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "Materiale livrate" ;
|
|
MESSAGE ' 4511 : X'
|
|
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 _1920lzdtu
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1920lzdtu SHORTCUT RELATIVE
|
|
DEFINE BAR 4 OF Shortcut PROMPT "Clienti" ;
|
|
MESSAGE ' 4511 : 4111'
|
|
ON SELECTION BAR 4 OF Shortcut lans(10527)
|
|
|
|
DEFINE BAR 5 OF Shortcut PROMPT "\-"
|
|
ON BAR 5 OF Shortcut ACTIVATE POPUP _21g0x5gtc
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _21g0x5gtc SHORTCUT RELATIVE
|
|
DEFINE BAR 6 OF Shortcut PROMPT "Decontari intre subunitati"
|
|
ON BAR 6 OF Shortcut ACTIVATE POPUP Decontarii
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Decontarii SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Decontarii PROMPT "Venituri"
|
|
ON SELECTION BAR 1 OF Decontarii DO BAR_1_OF_Decontarii_FB2P
|
|
|
|
DEFINE BAR 2 OF Decontarii PROMPT "Cheltuieli"
|
|
ON SELECTION BAR 2 OF Decontarii DO BAR_2_OF_Decontarii_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
|
LOCAL lnRaspuns
|
|
lnRaspuns = 6
|
|
|
|
DO WHILE lnRaspuns = 6
|
|
lans(10521)
|
|
if buton = 2
|
|
return
|
|
ENDIF
|
|
DO introducere_compacta WITH 'achi_mat','','4511',.t.,.f.,'DECONTARI IN CADRUL GRUPULUI - PRIMIRE','4426',10521
|
|
|
|
IF buton=1
|
|
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
|
|
else
|
|
lnRaspuns = 7
|
|
ENDIF
|
|
ENDDO
|
|
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
|
LOCAL lnRaspuns
|
|
lnRaspuns = 6
|
|
|
|
DO WHILE lnRaspuns = 6
|
|
lans(10520)
|
|
if buton = 2
|
|
return
|
|
ENDIF
|
|
DO introducere_compacta WITH 'achi_mat','4511','',.t.,.f.,'DECONTARI IN CADRUL GRUPULUI - PRIMIRE','4427',10520
|
|
IF buton=1
|
|
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
|
|
else
|
|
lnRaspuns = 7
|
|
ENDIF
|
|
ENDDO
|
|
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Decontarii_FB2P
|
|
LOCAL lnRaspuns
|
|
lnRaspuns = 6
|
|
|
|
DO WHILE lnRaspuns = 6
|
|
lans(10573)
|
|
if buton = 2
|
|
return
|
|
ENDIF
|
|
DO introducere_compacta WITH 'achi_mat','482',,.t.,.f.,'DECONTARI INTRE SUBUNITATI','4427',10573
|
|
IF buton=1
|
|
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
|
|
else
|
|
lnRaspuns = 7
|
|
ENDIF
|
|
ENDDO
|
|
ENDPROC && BAR_1_OF_Decontarii_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Decontarii_FB2P
|
|
LOCAL lnRaspuns
|
|
lnRaspuns = 6
|
|
|
|
DO WHILE lnRaspuns = 6
|
|
lans(10574)
|
|
if buton = 2
|
|
return
|
|
ENDIF
|
|
DO introducere_compacta WITH 'achi_mat',,'482',.t.,.f.,'DECONTARI INTRE SUBUNITATI','4426',10574
|
|
IF buton=1
|
|
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
|
|
else
|
|
lnRaspuns = 7
|
|
ENDIF
|
|
ENDDO
|
|
ENDPROC && BAR_2_OF_Decontarii_FB2P
|
|
|
|
*</Procedures>
|