182 lines
5.5 KiB
Plaintext
182 lines
5.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="imobilizari1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Leasing SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Leasing PROMPT "Financiar"
|
|
ON BAR 1 OF Leasing ACTIVATE POPUP Financiar
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Financiar SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Financiar PROMPT "La societatea de leasing"
|
|
ON BAR 1 OF Financiar ACTIVATE POPUP Lasocietat
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Lasocietat SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Lasocietat PROMPT "Achizitie imobilizari" ;
|
|
MESSAGE 'X:404; 4426:404'
|
|
ON SELECTION BAR 1 OF Lasocietat DO BAR_1_OF_Lasocietat_FB2P
|
|
|
|
DEFINE BAR 2 OF Lasocietat PROMPT "Inregistrare contract" ;
|
|
MESSAGE '2673:21X ; 2674:472'
|
|
ON SELECTION BAR 2 OF Lasocietat DO BAR_2_OF_Lasocietat_FB2P
|
|
|
|
DEFINE BAR 2 OF Financiar PROMPT "La utilizatori"
|
|
ON BAR 2 OF Financiar ACTIVATE POPUP Lautilizat
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Lautilizat SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Lautilizat PROMPT "Inregistrarea contractului" ;
|
|
MESSAGE '21X :167 ; 471:1687'
|
|
ON SELECTION BAR 1 OF Lautilizat DO BAR_1_OF_Lautilizat_FB2P
|
|
|
|
DEFINE BAR 2 OF Lautilizat PROMPT "Rate leasing"
|
|
ON SELECTION BAR 2 OF Lautilizat DO BAR_2_OF_Lautilizat_FB2P
|
|
|
|
DEFINE BAR 3 OF Lautilizat PROMPT "Reziliere contract - lei" ;
|
|
MESSAGE '461 :404 '
|
|
ON SELECTION BAR 3 OF Lautilizat DO BAR_3_OF_Lautilizat_FB2P
|
|
|
|
DEFINE BAR 4 OF Lautilizat PROMPT "Reziliere contract - valuta" ;
|
|
MESSAGE '461 :404 '
|
|
ON SELECTION BAR 4 OF Lautilizat DO BAR_4_OF_Lautilizat_FB2P
|
|
|
|
DEFINE BAR 2 OF Leasing PROMPT "Operational"
|
|
ON BAR 2 OF Leasing ACTIVATE POPUP Operationa
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Operationa SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Operationa PROMPT "La societatea de leasing"
|
|
ON BAR 1 OF Operationa ACTIVATE POPUP _09a12zk34
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _09a12zk34 SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _09a12zk34 PROMPT "Rate leasing" ;
|
|
MESSAGE '4111 :706 ;4111 :4427'
|
|
ON SELECTION BAR 1 OF _09a12zk34 DO BAR_1_OF__09a12zk34_FB2P
|
|
|
|
DEFINE BAR 2 OF _09a12zk34 PROMPT "Valoare reziduala" ;
|
|
MESSAGE '461:7721;461:4427'
|
|
ON SELECTION BAR 2 OF _09a12zk34 DO BAR_2_OF__09a12zk34_FB2P
|
|
|
|
DEFINE BAR 2 OF Operationa PROMPT "La utilizator"
|
|
ON BAR 2 OF Operationa ACTIVATE POPUP _09a12q2o8
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _09a12q2o8 SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _09a12q2o8 PROMPT "Avans+Taxa contract" ;
|
|
MESSAGE '471 :401 ;4426 :401 '
|
|
ON SELECTION BAR 1 OF _09a12q2o8 DO BAR_1_OF__09a12q2o8_FB2P
|
|
|
|
DEFINE BAR 2 OF _09a12q2o8 PROMPT "Rate leasing" ;
|
|
MESSAGE '612 :401 ;4426 :401 '
|
|
ON SELECTION BAR 2 OF _09a12q2o8 DO BAR_2_OF__09a12q2o8_FB2P
|
|
|
|
DEFINE BAR 3 OF _09a12q2o8 PROMPT "Valoare reziduala" ;
|
|
MESSAGE 'X:404; 4426:404'
|
|
ON SELECTION BAR 3 OF _09a12q2o8 DO BAR_3_OF__09a12q2o8_FB2P
|
|
ACTIVATE POPUP Leasing
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Lasocietat_FB2P
|
|
PRIVATE pcACN
|
|
loCont=ret_cont("Selectati contul",'20,21')
|
|
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
lans(10067)
|
|
ENDPROC && BAR_1_OF_Lasocietat_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Lasocietat_FB2P
|
|
buton = lans(10482)
|
|
IF buton=2
|
|
*DO STERGE
|
|
DO deschid_actc
|
|
RETURN
|
|
ENDIF
|
|
DO introducere_compacta WITH 'achi_mat','','',.F.,.F.,'INREGISTRAREA CONTRACTULUI','',10482
|
|
ENDPROC && BAR_2_OF_Lasocietat_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Lautilizat_FB2P
|
|
buton = lans(10481)
|
|
IF buton=2
|
|
*DO STERGE
|
|
DO deschid_actc
|
|
RETURN
|
|
ENDIF
|
|
DO introducere_compacta WITH 'achi_mat','','',.F.,.F.,'INREGISTRAREA CONTRACTULUI','',10481
|
|
ENDPROC && BAR_1_OF_Lautilizat_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Lautilizat_FB2P
|
|
Local lnDeducere
|
|
lnDeducere = 0
|
|
buton = lans(10455,,,,@lnDeducere)
|
|
|
|
IF buton=2
|
|
*DO STERGE
|
|
DO deschid_actc
|
|
RETURN
|
|
ENDIF
|
|
DO introducere_compacta WITH 'achi_mat','','404 ',.T.,.F.,'RATE LEASING','4426',10455,,lnDeducere
|
|
Release lnDeducere
|
|
ENDPROC && BAR_2_OF_Lautilizat_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Lautilizat_FB2P
|
|
lans(10079)
|
|
ENDPROC && BAR_3_OF_Lautilizat_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_Lautilizat_FB2P
|
|
lans(10595)
|
|
ENDPROC && BAR_4_OF_Lautilizat_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__09a12zk34_FB2P
|
|
*DO ABC2 WITH '411 ',"706 ","411 ","4427"
|
|
lans(10187)
|
|
ENDPROC && BAR_1_OF__09a12zk34_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__09a12zk34_FB2P
|
|
lans(10188)
|
|
ENDPROC && BAR_2_OF__09a12zk34_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__09a12q2o8_FB2P
|
|
lans(10410)
|
|
ENDPROC && BAR_1_OF__09a12q2o8_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__09a12q2o8_FB2P
|
|
lans(10189)
|
|
ENDPROC && BAR_2_OF__09a12q2o8_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__09a12q2o8_FB2P
|
|
PRIVATE pcACN
|
|
loCont=ret_cont("Selectati contul",'20,21')
|
|
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
|
|
IF buton=2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
CN=locont.cont
|
|
PcACN=loCont.Acont
|
|
lans(10308)
|
|
ENDPROC && BAR_3_OF__09a12q2o8_FB2P
|
|
|
|
*</Procedures>
|