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:
54
Meniuri/achi1.mn2
Normal file
54
Meniuri/achi1.mn2
Normal file
@@ -0,0 +1,54 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="achi1.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 "\<Balanta achizitori 542"
|
||||
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "\<Inregistrari achizitori"
|
||||
ON BAR 2 OF Shortcut ACTIVATE POPUP Inregistra
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Inregistra SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Inregistra PROMPT "Cu test"
|
||||
ON SELECTION BAR 1 OF Inregistra DO BAR_1_OF_Inregistra_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Inregistra PROMPT "Fara test"
|
||||
ON SELECTION BAR 2 OF Inregistra DO BAR_2_OF_Inregistra_FB2P
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
||||
*osetviz.tbrprim.butonachi.click
|
||||
DO lans_balanta_parteneri WITH "542",.T. IN OPARTENERI.prg
|
||||
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Inregistra_FB2P
|
||||
*!* *PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*!* pcTotctva='Incasat'
|
||||
*!* pcAchitat='Justificat'
|
||||
*!* pcSumaTotal='Suma incasata'
|
||||
*!* pcSumaAchi='Suma justificata'
|
||||
*!* DO viz_facturi WITH 'achit542','achilun',542,.t.,.t.,'Situatie Lunara 542','debit','credit'
|
||||
DO lans_ireg_parteneri WITH .T.,'542',.T.
|
||||
ENDPROC && BAR_1_OF_Inregistra_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Inregistra_FB2P
|
||||
*PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*!* pcTotctva='Incasat'
|
||||
*!* pcAchitat='Justificat'
|
||||
*!* pcSumaTotal='Suma incasata'
|
||||
*!* pcSumaAchi='Suma justificata'
|
||||
*DO viz_facturi WITH 'achit542','achilun',542,.f.,.t.,'Situatie Lunara 542','debit','credit'
|
||||
DO lans_ireg_parteneri WITH .F.,'542',.T.
|
||||
ENDPROC && BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
*</Procedures>
|
||||
18
Meniuri/actionari.mn2
Normal file
18
Meniuri/actionari.mn2
Normal file
@@ -0,0 +1,18 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="actionari.mnx" CPID="1250" /> (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 "Balanta actionari (455x)"
|
||||
ON SELECTION BAR 1 OF Shortcut DO lans_balanta_parteneri WITH "4551,4558",.F. IN OPARTENERI.prg
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "Inregistrari actionari (455x)"
|
||||
ON SELECTION BAR 2 OF Shortcut DO lans_ireg_parteneri WITH .F.,'4551,4558',.F.
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
36
Meniuri/balpartc.mn2
Normal file
36
Meniuri/balpartc.mn2
Normal file
@@ -0,0 +1,36 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="balpartc.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 "Predefinita"
|
||||
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "Furnizori + Furnizori debitori (401 + 409)"
|
||||
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Shortcut PROMPT "Clienti + clienti creditori (4111 + 419)"
|
||||
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
||||
DO lans_balanta_cumulata IN OPARTENERI.prg
|
||||
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
||||
DO lans_balanta_cumulata_401_409 IN oparteneri.prg
|
||||
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Shortcut_FB2P
|
||||
DO lans_balanta_cumulata_4111_419 IN oparteneri.prg
|
||||
ENDPROC && BAR_3_OF_Shortcut_FB2P
|
||||
|
||||
*</Procedures>
|
||||
209
Meniuri/banca1.mn2
Normal file
209
Meniuri/banca1.mn2
Normal file
@@ -0,0 +1,209 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="banca1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Bancaincas SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR "83010" OF Bancaincas PROMPT "Depunere numerar in banca 5311" ;
|
||||
MESSAGE '581 :5311;5121:581'
|
||||
ON SELECTION BAR 83010 OF Bancaincas lans(10364)
|
||||
|
||||
DEFINE BAR 2 OF Bancaincas PROMPT "Decontari intre subunitati 482" ;
|
||||
MESSAGE '5121:482'
|
||||
ON SELECTION BAR 2 OF Bancaincas lans(10366)
|
||||
|
||||
DEFINE BAR 3 OF Bancaincas PROMPT "Incasari creditori / decontari intre subunitati 462/482" ;
|
||||
MESSAGE '5121:462; 462 :482'
|
||||
ON SELECTION BAR 3 OF Bancaincas lans(50501)
|
||||
|
||||
DEFINE BAR 4 OF Bancaincas PROMPT "\-"
|
||||
ON BAR 4 OF Bancaincas ACTIVATE POPUP _0h30u83jo
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0h30u83jo SHORTCUT RELATIVE
|
||||
DEFINE BAR "83050" OF Bancaincas PROMPT "Clienti 4111" ;
|
||||
MESSAGE '5121:4111'
|
||||
ON BAR 83050 OF Bancaincas ACTIVATE POPUP Clienti411
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Clienti411 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Clienti411 PROMPT "Fara listare" ;
|
||||
MESSAGE '5121:4111'
|
||||
ON SELECTION BAR 1 OF Clienti411 lans(10367)
|
||||
|
||||
DEFINE BAR 2 OF Clienti411 PROMPT "Cu bon fiscal - CARD" ;
|
||||
MESSAGE '5125:4111 - listare bon fiscal la casa de marcat incasare prin card bancar'
|
||||
ON SELECTION BAR 2 OF Clienti411 DO casademarcat_roacont WITH 10617 IN oproceduri_casademarcat.prg
|
||||
|
||||
DEFINE BAR 6 OF Bancaincas PROMPT "Clienti 4111 in valuta" ;
|
||||
MESSAGE '581 - 5121; 5121 - 581; 5121 - 5121; 5121 - 4111'
|
||||
ON SELECTION BAR 6 OF Bancaincas lans(10602)
|
||||
|
||||
DEFINE BAR "83060" OF Bancaincas PROMPT "Clienti incerti 4118" ;
|
||||
MESSAGE '5121: 4118'
|
||||
ON SELECTION BAR 83060 OF Bancaincas lans(10368)
|
||||
|
||||
DEFINE BAR "83070" OF Bancaincas PROMPT "Clienti creditori 419" ;
|
||||
MESSAGE '5121:419 ;5121:4111 ; 4111:4427'
|
||||
ON SELECTION BAR 83070 OF Bancaincas lans(10369)
|
||||
|
||||
DEFINE BAR 9 OF Bancaincas PROMPT "Incasarea la scadenta a efectelor depuse anterior la banca 5113" ;
|
||||
MESSAGE '5121:5113'
|
||||
ON SELECTION BAR 9 OF Bancaincas lans(10629)
|
||||
|
||||
DEFINE BAR 10 OF Bancaincas PROMPT "Incasarea efectelor la banca la scadenta 413" ;
|
||||
MESSAGE '5121:413 '
|
||||
ON SELECTION BAR 10 OF Bancaincas lans(10307)
|
||||
|
||||
DEFINE BAR 11 OF Bancaincas PROMPT "\-"
|
||||
ON BAR 11 OF Bancaincas ACTIVATE POPUP _0ca0ycxcn
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0ca0ycxcn SHORTCUT RELATIVE
|
||||
DEFINE BAR 12 OF Bancaincas PROMPT "Restituit avans 542" ;
|
||||
MESSAGE '5121:542'
|
||||
ON SELECTION BAR 12 OF Bancaincas lans(10566)
|
||||
|
||||
DEFINE BAR 13 OF Bancaincas PROMPT "\-"
|
||||
ON BAR 13 OF Bancaincas ACTIVATE POPUP _2070wzyg6
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2070wzyg6 SHORTCUT RELATIVE
|
||||
DEFINE BAR "83090" OF Bancaincas PROMPT "TVA de recuperat 4424" ;
|
||||
MESSAGE '5121:4424'
|
||||
ON SELECTION BAR 83090 OF Bancaincas lans(10370)
|
||||
|
||||
DEFINE BAR 15 OF Bancaincas PROMPT "\-"
|
||||
ON BAR 15 OF Bancaincas ACTIVATE POPUP _0co1cdi8r
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0co1cdi8r SHORTCUT RELATIVE
|
||||
DEFINE BAR "83180" OF Bancaincas PROMPT "Asociati 4551" ;
|
||||
MESSAGE '5121:4551'
|
||||
ON SELECTION BAR 83180 OF Bancaincas lans(10371)
|
||||
|
||||
DEFINE BAR "83100" OF Bancaincas PROMPT "Debitori diversi 461" ;
|
||||
MESSAGE '5121: 461'
|
||||
ON SELECTION BAR 83100 OF Bancaincas lans(10372)
|
||||
|
||||
DEFINE BAR "83110" OF Bancaincas PROMPT "Creditori diversi 462" ;
|
||||
MESSAGE '5121:462'
|
||||
ON SELECTION BAR 83110 OF Bancaincas lans(10373)
|
||||
|
||||
DEFINE BAR 19 OF Bancaincas PROMPT "\-"
|
||||
ON BAR 19 OF Bancaincas ACTIVATE POPUP _saq0rc606
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0rc606 SHORTCUT RELATIVE
|
||||
DEFINE BAR "83020" OF Bancaincas PROMPT "Capital social varsat 456/1012" ;
|
||||
MESSAGE '5121:456 ;1011:1012'
|
||||
ON SELECTION BAR 83020 OF Bancaincas lans(10374)
|
||||
|
||||
DEFINE BAR "83030" OF Bancaincas PROMPT "Credite bancare pe termen lung 1621" ;
|
||||
MESSAGE '5121:1621'
|
||||
ON SELECTION BAR 83030 OF Bancaincas lans(10375)
|
||||
|
||||
DEFINE BAR "83120" OF Bancaincas PROMPT "Credite bancare 5191" ;
|
||||
MESSAGE '5121:5191'
|
||||
ON SELECTION BAR 83120 OF Bancaincas lans(10376)
|
||||
|
||||
DEFINE BAR "83040" OF Bancaincas PROMPT "Incasare garantii 267X" ;
|
||||
MESSAGE '5121:267X'
|
||||
ON SELECTION BAR 83040 OF Bancaincas DO BAR_"83040"_OF_Bancaincas_FB2P
|
||||
|
||||
DEFINE BAR 24 OF Bancaincas PROMPT "Subventii pentru investitii 131/445X" ;
|
||||
MESSAGE '5121: X(131/445)'
|
||||
ON SELECTION BAR 24 OF Bancaincas DO BAR_24_OF_Bancaincas_FB2P
|
||||
|
||||
DEFINE BAR "83150" OF Bancaincas PROMPT "Venituri din dobanzi 766" ;
|
||||
MESSAGE '5121: 766'
|
||||
ON SELECTION BAR 83150 OF Bancaincas lans(10379)
|
||||
|
||||
DEFINE BAR "83170" OF Bancaincas PROMPT "Sume in curs de clarificare 473" ;
|
||||
MESSAGE '5121: 473'
|
||||
ON SELECTION BAR 83170 OF Bancaincas lans(10380)
|
||||
|
||||
DEFINE BAR 27 OF Bancaincas PROMPT "Decontari in cadrul grupului 4511" ;
|
||||
MESSAGE '5121 : 4511'
|
||||
ON SELECTION BAR 27 OF Bancaincas lans(10524)
|
||||
|
||||
DEFINE BAR 28 OF Bancaincas PROMPT "Sume in curs de decontare 5125" ;
|
||||
MESSAGE '5121: 5125'
|
||||
ON SELECTION BAR 28 OF Bancaincas lans(10618)
|
||||
|
||||
DEFINE BAR 29 OF Bancaincas PROMPT "\-"
|
||||
ON BAR 29 OF Bancaincas ACTIVATE POPUP _67l0una2d
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _67l0una2d SHORTCUT RELATIVE
|
||||
DEFINE BAR 30 OF Bancaincas PROMPT "Incasare generica prin banca X" ;
|
||||
MESSAGE '5121: X'
|
||||
ON SELECTION BAR 30 OF Bancaincas DO BAR_30_OF_Bancaincas_FB2P
|
||||
|
||||
DEFINE BAR 31 OF Bancaincas PROMPT "Incasare generica facturi valuta" ;
|
||||
MESSAGE '5121: X; 581 : 5121; 5121 : 581; 5121 = 5121'
|
||||
ON SELECTION BAR 31 OF Bancaincas DO BAR_31_OF_Bancaincas_FB2P
|
||||
ACTIVATE POPUP Bancaincas
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_"83040"_OF_Bancaincas_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul creditor 5121:267X",'267')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10377)
|
||||
ENDPROC && BAR_"83040"_OF_Bancaincas_FB2P
|
||||
|
||||
PROCEDURE BAR_24_OF_Bancaincas_FB2P
|
||||
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Alegeti contul creditor 5121 = 131/445X (Subventii)", "131,445")
|
||||
IF buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
|
||||
lans_generic(10378,loCont.cont, loCont.acont)
|
||||
ENDPROC && BAR_24_OF_Bancaincas_FB2P
|
||||
|
||||
PROCEDURE BAR_30_OF_Bancaincas_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Contul creditor")
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
lans_generic(10642,loCont.Cont, loCont.Acont)
|
||||
ENDPROC && BAR_30_OF_Bancaincas_FB2P
|
||||
|
||||
PROCEDURE BAR_31_OF_Bancaincas_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Contul creditor")
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
lans_generic(10648,loCont.Cont, loCont.Acont)
|
||||
ENDPROC && BAR_31_OF_Bancaincas_FB2P
|
||||
|
||||
*</Procedures>
|
||||
573
Meniuri/banca2.mn2
Normal file
573
Meniuri/banca2.mn2
Normal file
@@ -0,0 +1,573 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="banca2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Bancaplati SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR "84010" OF Bancaplati PROMPT "Ridicat numerar din banca 5311" ;
|
||||
MESSAGE '5311:581 ; 581:5121'
|
||||
ON SELECTION BAR 84010 OF Bancaplati DO BAR_"84010"_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Bancaplati PROMPT "Decontari intre subunitati 482" ;
|
||||
MESSAGE '482:5121'
|
||||
ON SELECTION BAR 2 OF Bancaplati DO BAR_2_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Bancaplati PROMPT "Decontari intre subunitati 462" ;
|
||||
MESSAGE '482 : 462; 462 : 5121'
|
||||
ON SELECTION BAR 3 OF Bancaplati lans(50502)
|
||||
|
||||
DEFINE BAR "84190" OF Bancaplati PROMPT "Transferuri 5121" ;
|
||||
MESSAGE '581 :5121;5121: 581'
|
||||
ON SELECTION BAR 84190 OF Bancaplati lans(10451)
|
||||
|
||||
DEFINE BAR 5 OF Bancaplati PROMPT "\-"
|
||||
ON BAR 5 OF Bancaplati ACTIVATE POPUP _57v0tl3ms
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _57v0tl3ms SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF Bancaplati PROMPT "\<Depozite 5081"
|
||||
ON BAR 6 OF Bancaplati ACTIVATE POPUP Depozite50
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Depozite50 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Depozite50 PROMPT "Constituire depozit" ;
|
||||
MESSAGE '581 : 5121;5081 : 581'
|
||||
ON SELECTION BAR 1 OF Depozite50 lans(10634)
|
||||
|
||||
DEFINE BAR 2 OF Depozite50 PROMPT "Lichidare depozit" ;
|
||||
MESSAGE '581 : 5081;5121 : 581'
|
||||
ON SELECTION BAR 2 OF Depozite50 lans(10635)
|
||||
|
||||
DEFINE BAR 3 OF Depozite50 PROMPT "Inregistrare dobanda capitalizare" ;
|
||||
MESSAGE '5088 : 766; 5081 : 5088'
|
||||
ON SELECTION BAR 3 OF Depozite50 lans(10636)
|
||||
|
||||
DEFINE BAR 4 OF Depozite50 PROMPT "Inregistrare dobanda cont curent" ;
|
||||
MESSAGE '5088 : 766; 5121 : 5088'
|
||||
ON SELECTION BAR 4 OF Depozite50 lans(10637)
|
||||
|
||||
DEFINE BAR 7 OF Bancaplati PROMPT "\-"
|
||||
ON BAR 7 OF Bancaplati ACTIVATE POPUP _saq0rjs7n
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0rjs7n SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF Bancaplati PROMPT "Plati furnizori"
|
||||
ON BAR 8 OF Bancaplati ACTIVATE POPUP _0yz0qm9kq
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0yz0qm9kq SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0yz0qm9kq PROMPT "Plata furnizori 401" ;
|
||||
MESSAGE '401 :5121'
|
||||
ON SELECTION BAR 1 OF _0yz0qm9kq lans(10383)
|
||||
|
||||
DEFINE BAR 2 OF _0yz0qm9kq PROMPT "Plata furnizori imobilizari 404" ;
|
||||
MESSAGE '404 :5121'
|
||||
ON SELECTION BAR 2 OF _0yz0qm9kq lans(10384)
|
||||
|
||||
DEFINE BAR 3 OF _0yz0qm9kq PROMPT "Avansuri furnizori 409x" ;
|
||||
MESSAGE '409 :5121'
|
||||
ON SELECTION BAR 3 OF _0yz0qm9kq DO BAR_3_OF__0yz0qm9kq_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _0yz0qm9kq PROMPT "\-"
|
||||
ON BAR 4 OF _0yz0qm9kq ACTIVATE POPUP _1ot0t4sle
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1ot0t4sle SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF _0yz0qm9kq PROMPT "Avansuri furnizori imobilizari 23x"
|
||||
ON BAR 5 OF _0yz0qm9kq ACTIVATE POPUP Avansurifu
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Avansurifu SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Avansurifu PROMPT "Corporale" ;
|
||||
MESSAGE '232 : 5121'
|
||||
ON SELECTION BAR 1 OF Avansurifu lans(10560)
|
||||
|
||||
DEFINE BAR 2 OF Avansurifu PROMPT "Necorporale" ;
|
||||
MESSAGE '234 : 5121'
|
||||
ON SELECTION BAR 2 OF Avansurifu lans(10561)
|
||||
|
||||
DEFINE BAR 9 OF Bancaplati PROMPT "Plati furnizori in valuta" ;
|
||||
MESSAGE '581 - 5121; 5121 - 581; 5121 - 5121; 5121 - 401'
|
||||
ON BAR 9 OF Bancaplati ACTIVATE POPUP Platifurni
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Platifurni SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Platifurni PROMPT "Plati furnizori 401" ;
|
||||
MESSAGE '401 :5121'
|
||||
ON SELECTION BAR 1 OF Platifurni lans(10603)
|
||||
|
||||
DEFINE BAR 2 OF Platifurni PROMPT "Plati furnizori imobilizari 404" ;
|
||||
MESSAGE '404 :5121'
|
||||
ON SELECTION BAR 2 OF Platifurni lans(10607)
|
||||
|
||||
DEFINE BAR 3 OF Platifurni PROMPT "Plati creditori 462" ;
|
||||
MESSAGE '462 :5121'
|
||||
ON SELECTION BAR 3 OF Platifurni lans(10608)
|
||||
|
||||
DEFINE BAR "84140" OF Bancaplati PROMPT "Creditori diversi 462" ;
|
||||
MESSAGE '462 :5121'
|
||||
ON SELECTION BAR 84140 OF Bancaplati DO BAR_"84140"_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR 11 OF Bancaplati PROMPT "Debitori diversi 461" ;
|
||||
MESSAGE '461 :5121'
|
||||
ON SELECTION BAR 11 OF Bancaplati DO BAR_11_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR 12 OF Bancaplati PROMPT "Efecte comerciale 403" ;
|
||||
MESSAGE '403 :5121'
|
||||
ON SELECTION BAR 12 OF Bancaplati LANS(10316)
|
||||
|
||||
DEFINE BAR 13 OF Bancaplati PROMPT "Efecte comerciale imobilizari 405" ;
|
||||
MESSAGE '405 :5121'
|
||||
ON SELECTION BAR 13 OF Bancaplati lans(10319)
|
||||
|
||||
DEFINE BAR 14 OF Bancaplati PROMPT "\-"
|
||||
ON BAR 14 OF Bancaplati ACTIVATE POPUP _54c0wl988
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _54c0wl988 SHORTCUT RELATIVE
|
||||
DEFINE BAR "84130" OF Bancaplati PROMPT "Decontari cu asociati 456" ;
|
||||
MESSAGE ' 456:5121'
|
||||
ON SELECTION BAR 84130 OF Bancaplati DO BAR_"84130"_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR "84220" OF Bancaplati PROMPT "Asociati 4551" ;
|
||||
MESSAGE '4551:5121'
|
||||
ON SELECTION BAR 84220 OF Bancaplati lans(10389)
|
||||
|
||||
DEFINE BAR "84160" OF Bancaplati PROMPT "Colaboratori 621" ;
|
||||
MESSAGE '621 :5121;4426:5121'
|
||||
ON SELECTION BAR 84160 OF Bancaplati lans(10390)
|
||||
|
||||
DEFINE BAR 18 OF Bancaplati PROMPT "\-"
|
||||
ON BAR 18 OF Bancaplati ACTIVATE POPUP _0qh0oeqdz
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0qh0oeqdz SHORTCUT RELATIVE
|
||||
DEFINE BAR 19 OF Bancaplati PROMPT "Acordare avans 542" ;
|
||||
MESSAGE '542 :5121'
|
||||
ON SELECTION BAR 19 OF Bancaplati lans(10567)
|
||||
|
||||
DEFINE BAR 20 OF Bancaplati PROMPT "\-"
|
||||
ON BAR 20 OF Bancaplati ACTIVATE POPUP _2070x74la
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2070x74la SHORTCUT RELATIVE
|
||||
DEFINE BAR 21 OF Bancaplati PROMPT "Salarii"
|
||||
ON BAR 21 OF Bancaplati ACTIVATE POPUP Salarii
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Salarii SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Salarii PROMPT "Salarii 421" ;
|
||||
MESSAGE '421 :5121'
|
||||
ON SELECTION BAR 1 OF Salarii DO BAR_1_OF_Salarii_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Salarii PROMPT "Salarii 4211"
|
||||
ON SELECTION BAR 2 OF Salarii DO BAR_2_OF_Salarii_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Salarii PROMPT "Concedii medicale C.A.S" ;
|
||||
MESSAGE '423 : 5121'
|
||||
ON SELECTION BAR 3 OF Salarii lans(10549)
|
||||
|
||||
DEFINE BAR 4 OF Salarii PROMPT "Avansuri salarii 425" ;
|
||||
MESSAGE '425 :5121'
|
||||
ON SELECTION BAR 4 OF Salarii DO BAR_4_OF_Salarii_FB2P
|
||||
|
||||
DEFINE BAR 22 OF Bancaplati PROMPT "\-"
|
||||
ON BAR 22 OF Bancaplati ACTIVATE POPUP _saq0rlh6g
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0rlh6g SHORTCUT RELATIVE
|
||||
DEFINE BAR "84080" OF Bancaplati PROMPT "Plata retineri 427" ;
|
||||
MESSAGE '427 :5121'
|
||||
ON SELECTION BAR 84080 OF Bancaplati lans(10394)
|
||||
|
||||
DEFINE BAR 24 OF Bancaplati PROMPT "Plata redeventa" ;
|
||||
MESSAGE '4463:5121; 635:4463'
|
||||
ON SELECTION BAR 24 OF Bancaplati LANS(10465)
|
||||
|
||||
DEFINE BAR 25 OF Bancaplati PROMPT "Plata dividende 457" ;
|
||||
MESSAGE ' 457 : 5121'
|
||||
ON SELECTION BAR 25 OF Bancaplati lans(10508)
|
||||
|
||||
DEFINE BAR 26 OF Bancaplati PROMPT "Plata amenzi, penalitati 448x" ;
|
||||
MESSAGE '448X : 5121'
|
||||
ON SELECTION BAR 26 OF Bancaplati DO BAR_26_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR 27 OF Bancaplati PROMPT "Credite"
|
||||
ON BAR 27 OF Bancaplati ACTIVATE POPUP Credite
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Credite SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Credite PROMPT "Rambursat credit scurt 5191" ;
|
||||
MESSAGE '5191:5121'
|
||||
ON SELECTION BAR 1 OF Credite lans(10395)
|
||||
|
||||
DEFINE BAR 2 OF Credite PROMPT "Rambursat credit lung 1621" ;
|
||||
MESSAGE '1621:5121'
|
||||
ON SELECTION BAR 2 OF Credite LANS(10396)
|
||||
|
||||
DEFINE BAR 3 OF Credite PROMPT "Dobanzi credit termen scurt 5198" ;
|
||||
MESSAGE '5198:5121; 666:5198'
|
||||
ON SELECTION BAR 3 OF Credite LANS(10397)
|
||||
|
||||
DEFINE BAR 4 OF Credite PROMPT "Dobanzi credit termen lung 1682" ;
|
||||
MESSAGE '1682:5121; 666:1682'
|
||||
ON SELECTION BAR 4 OF Credite LANS(10398)
|
||||
|
||||
DEFINE BAR "84030" OF Bancaplati PROMPT "Acordare garantii 267X" ;
|
||||
MESSAGE '2678:5121'
|
||||
ON SELECTION BAR 84030 OF Bancaplati DO BAR_"84030"_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR "84150" OF Bancaplati PROMPT "Comisioane bancare 627" ;
|
||||
MESSAGE '627 :5121'
|
||||
ON SELECTION BAR 84150 OF Bancaplati DO BAR_"84150"_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR "84170" OF Bancaplati PROMPT "Comisioane si onorarii 622" ;
|
||||
MESSAGE '622 :5121'
|
||||
ON SELECTION BAR 84170 OF Bancaplati DO BAR_"84170"_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR "84180" OF Bancaplati PROMPT "Cheltuieli exceptionale 6587" ;
|
||||
MESSAGE '6587:5121'
|
||||
ON SELECTION BAR 84180 OF Bancaplati DO BAR_"84180"_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR "84200" OF Bancaplati PROMPT "Sume in curs de clarificare 473" ;
|
||||
MESSAGE '473 :5121'
|
||||
ON SELECTION BAR 84200 OF Bancaplati DO BAR_"84200"_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR 33 OF Bancaplati PROMPT "Plati impozite 4xx" ;
|
||||
MESSAGE ' 4XXX - 5121'
|
||||
ON SELECTION BAR 33 OF Bancaplati DO BAR_33_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR 34 OF Bancaplati PROMPT "Plata alte impozite 446" ;
|
||||
MESSAGE '446 :5121'
|
||||
ON SELECTION BAR 34 OF Bancaplati DO BAR_34_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR 35 OF Bancaplati PROMPT "Cheltuieli in avans 471" ;
|
||||
MESSAGE '471:5121'
|
||||
ON SELECTION BAR 35 OF Bancaplati DO BAR_35_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR 36 OF Bancaplati PROMPT "Decontari in cadrul grupului 4511" ;
|
||||
MESSAGE ' 4511 : 5121'
|
||||
ON SELECTION BAR 36 OF Bancaplati lans(10522)
|
||||
|
||||
DEFINE BAR 37 OF Bancaplati PROMPT "Diurna 625" ;
|
||||
MESSAGE '625 : 5121'
|
||||
ON SELECTION BAR 37 OF Bancaplati lans(10585)
|
||||
|
||||
DEFINE BAR 38 OF Bancaplati PROMPT "\-"
|
||||
ON BAR 38 OF Bancaplati ACTIVATE POPUP _67l0upxxf
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _67l0upxxf SHORTCUT RELATIVE
|
||||
DEFINE BAR 39 OF Bancaplati PROMPT "Plata generica prin banca" ;
|
||||
MESSAGE 'X : 5121'
|
||||
ON SELECTION BAR 39 OF Bancaplati DO BAR_39_OF_Bancaplati_FB2P
|
||||
|
||||
DEFINE BAR 40 OF Bancaplati PROMPT "Plata generica facturi valuta" ;
|
||||
MESSAGE 'X : 5121; 5121 : 581; 581 : 5121; 5121 = 5121'
|
||||
ON SELECTION BAR 40 OF Bancaplati DO BAR_40_OF_Bancaplati_FB2P
|
||||
ACTIVATE POPUP Bancaplati
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_"84010"_OF_Bancaplati_FB2P
|
||||
lans(10381)
|
||||
*DO MENIU84010
|
||||
ENDPROC && BAR_"84010"_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Bancaplati_FB2P
|
||||
lans(10382)
|
||||
*!* m.scC='5121'
|
||||
*!* m.scD='482 '
|
||||
*!* ***do casa.spr
|
||||
*!* DO alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* '','','', ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"DECONTARI INTRE SUBUNITATI", ;
|
||||
*!* "DECONTARI INTRE SUBUNITATI"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* DO PLBANCA
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_2_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0yz0qm9kq_FB2P
|
||||
|
||||
PRIVATE pcACN, CN
|
||||
loCont = ret_cont("Selectati contul",'409') && ,4091,4092')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
CN = locont.cont
|
||||
PcACN = loCont.Acont
|
||||
lans(10385)
|
||||
ENDPROC && BAR_3_OF__0yz0qm9kq_FB2P
|
||||
|
||||
PROCEDURE BAR_"84140"_OF_Bancaplati_FB2P
|
||||
LANS(10386)
|
||||
*DO MENIU84140
|
||||
ENDPROC && BAR_"84140"_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_11_OF_Bancaplati_FB2P
|
||||
lans(10387)
|
||||
*DO MENIU82120B
|
||||
ENDPROC && BAR_11_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"84130"_OF_Bancaplati_FB2P
|
||||
*DO MENIU84130
|
||||
lans(10388)
|
||||
ENDPROC && BAR_"84130"_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Salarii_FB2P
|
||||
lans(10391)
|
||||
*!* *____________________________________________________________________________________________
|
||||
*!* *PROCEDURE MENIU82070
|
||||
|
||||
*!* m.scd='421'
|
||||
*!* m.scc='5121'
|
||||
|
||||
*!* m.explicatia='PLATA SALARII'
|
||||
*!* oa=createo('actsimB')
|
||||
*!* oa.show(1)
|
||||
*!* *!* DO alfabeta with;
|
||||
*!* *!* 'actsimc',;
|
||||
*!* *!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ;
|
||||
*!* *!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* *!* '','',"PLATA SALARII CONTRACT", ;
|
||||
*!* *!* "PLATA SALARII CONTRACT"
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do plbanca
|
||||
*!* do sterge
|
||||
|
||||
*!* *RETURN
|
||||
ENDPROC && BAR_1_OF_Salarii_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Salarii_FB2P
|
||||
lans(10392)
|
||||
*!* *____________________________________________________________________________________________
|
||||
*!* *PROCEDURE MENIU82070
|
||||
|
||||
*!* m.scd='4211'
|
||||
*!* m.scc='5121'
|
||||
|
||||
*!* m.explicatia='PLATA SALARII'
|
||||
*!* oa=createo('actsimB')
|
||||
*!* oa.show(1)
|
||||
*!* *!* DO alfabeta with;
|
||||
*!* *!* 'actsimc',;
|
||||
*!* *!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ;
|
||||
*!* *!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* *!* '','',"PLATA SALARII CONTRACT", ;
|
||||
*!* *!* "PLATA SALARII CONTRACT"
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do plbanca
|
||||
*!* do sterge
|
||||
|
||||
*!* *RETURN
|
||||
ENDPROC && BAR_2_OF_Salarii_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Salarii_FB2P
|
||||
lans(10393)
|
||||
*!* m.scd='425 '
|
||||
*!* m.scc='5121 '
|
||||
*!* ***do casa.spr
|
||||
*!* DO alfabeta with;
|
||||
*!* 'actsimB',;
|
||||
*!* '','','', ;
|
||||
*!* '','','', ;
|
||||
*!* '','',"PLATIT AVANS", ;
|
||||
*!* "PLATIT AVANS"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* DO PLbanca
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_4_OF_Salarii_FB2P
|
||||
|
||||
PROCEDURE BAR_26_OF_Bancaplati_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'448') && ,4481,4482')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10512)
|
||||
ENDPROC && BAR_26_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"84030"_OF_Bancaplati_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul debitor 267X:5121",'267')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10399)
|
||||
ENDPROC && BAR_"84030"_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"84150"_OF_Bancaplati_FB2P
|
||||
LANS(10400)
|
||||
*DO MENIU84150
|
||||
ENDPROC && BAR_"84150"_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"84170"_OF_Bancaplati_FB2P
|
||||
*DO MENIU84170
|
||||
LANS(10401)
|
||||
ENDPROC && BAR_"84170"_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"84180"_OF_Bancaplati_FB2P
|
||||
LANS(10402)
|
||||
*DO MENIU84180
|
||||
ENDPROC && BAR_"84180"_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"84200"_OF_Bancaplati_FB2P
|
||||
LANS(10403)
|
||||
*DO MENIU84200
|
||||
ENDPROC && BAR_"84200"_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_33_OF_Bancaplati_FB2P
|
||||
lans(10467)
|
||||
IF buton=2
|
||||
DO deschid_actc
|
||||
RETURN
|
||||
ENDIF
|
||||
DO plati_impozite WITH 10467 IN ocont2003.prg
|
||||
|
||||
*!* IF USED('plimp')
|
||||
*!* USE IN plimp
|
||||
*!* ENDIF
|
||||
*!*
|
||||
*!* COPY FILE &DIRGEN\_ALFA\AN0000\DATE00\plimp.* to &LOC\&NFSCURT\TEMPO\plimp.*
|
||||
*!* DO des WITH 'PLIMP'
|
||||
*!*
|
||||
*!* SELE PLIMP
|
||||
*!* INDEX ON scd TAG scd OF &loc\&nfscurt\tempo\ZZZ
|
||||
*!* SET ORDER TO TAG scd
|
||||
|
||||
*!* REPL ALL SUMA WITH 0
|
||||
*!* REPL ALL NRACT WITH M.NRACT
|
||||
*!* REPL ALL scc WITH '5121'
|
||||
|
||||
*!* GO TOP
|
||||
*!* oaf=CREATE('afisanaa')
|
||||
*!* oaf.SHOW(1)
|
||||
*!* m.NUME=''
|
||||
*!* SELE PLIMP
|
||||
*!* SUM SUMA TO M.SUMA
|
||||
|
||||
|
||||
*!* IF buton=2
|
||||
*!* DO deschid_actc
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!*
|
||||
*!* SELECT PLIMP
|
||||
*!* SCAN FOR SUMA#0
|
||||
*!* SCATTER MEMVAR
|
||||
*!* SELECT actactan
|
||||
*!* GO top
|
||||
*!* SCATTER FIELDS id_set, nume_2, dataact, dataireg, fdoc MEMVAR
|
||||
*!* DELETE
|
||||
*!* APPEND BLANK
|
||||
*!* GATHER memv
|
||||
*!*
|
||||
*!* SCRIE_IN_FISIERE(' ')
|
||||
*!* SELECT PLIMP
|
||||
*!* ENDSCAN
|
||||
*!*
|
||||
*!* DO deschid_actc
|
||||
ENDPROC && BAR_33_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_34_OF_Bancaplati_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'446') && ,4461,4462,4463,4464,4465,4466,4467,4468,4469')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
|
||||
lans(10466)
|
||||
|
||||
ENDPROC && BAR_34_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_35_OF_Bancaplati_FB2P
|
||||
lans(10405)
|
||||
ENDPROC && BAR_35_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_39_OF_Bancaplati_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Contul debitor")
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
lans_generic(10643,loCont.Cont, loCont.Acont)
|
||||
ENDPROC && BAR_39_OF_Bancaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_40_OF_Bancaplati_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Contul debitor")
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
lans_generic(10649,loCont.Cont, loCont.Acont)
|
||||
ENDPROC && BAR_40_OF_Bancaplati_FB2P
|
||||
|
||||
*</Procedures>
|
||||
379
Meniuri/banca3.mn2
Normal file
379
Meniuri/banca3.mn2
Normal file
@@ -0,0 +1,379 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="banca3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Bancainval SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR "861" OF Bancainval PROMPT "Incasari"
|
||||
ON BAR 861 OF Bancainval ACTIVATE POPUP Incasari
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Incasari SHORTCUT RELATIVE
|
||||
DEFINE BAR "86120" OF Incasari PROMPT "Depunere numerar 5314" ;
|
||||
MESSAGE '581 :5314;5124: 581'
|
||||
ON SELECTION BAR 86120 OF Incasari Lans(10431)
|
||||
|
||||
DEFINE BAR "86110" OF Incasari PROMPT "Cumparare valuta 5121" ;
|
||||
MESSAGE '581 :5121;5124: 581'
|
||||
ON SELECTION BAR 86110 OF Incasari lans(10438)
|
||||
|
||||
DEFINE BAR "86130" OF Incasari PROMPT "Incasare dobanzi 766" ;
|
||||
MESSAGE '5124: 766'
|
||||
ON SELECTION BAR 86130 OF Incasari lans(10439)
|
||||
|
||||
DEFINE BAR 4 OF Incasari PROMPT "Creditori diversi 462" ;
|
||||
MESSAGE '5124 : 462'
|
||||
ON SELECTION BAR 4 OF Incasari lans(10499)
|
||||
|
||||
DEFINE BAR 5 OF Incasari PROMPT "Asociati conturi curente 4551" ;
|
||||
MESSAGE ' 5124 : 4551'
|
||||
ON SELECTION BAR 5 OF Incasari lans(10530)
|
||||
|
||||
DEFINE BAR 6 OF Incasari PROMPT "Credit bancar termen lung 1621" ;
|
||||
MESSAGE '5124 : 1621'
|
||||
ON SELECTION BAR 6 OF Incasari lans(10532)
|
||||
|
||||
DEFINE BAR 7 OF Incasari PROMPT "Credit bancar 5191" ;
|
||||
MESSAGE '5124 : 5191'
|
||||
ON SELECTION BAR 7 OF Incasari lans(10533)
|
||||
|
||||
DEFINE BAR 8 OF Incasari PROMPT "\-"
|
||||
ON BAR 8 OF Incasari ACTIVATE POPUP _0zm10vooj
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0zm10vooj SHORTCUT RELATIVE
|
||||
DEFINE BAR 9 OF Incasari PROMPT "Incasari clienti 4111" ;
|
||||
MESSAGE '5124: 4111'
|
||||
ON SELECTION BAR 9 OF Incasari LANS(10425)
|
||||
|
||||
DEFINE BAR 10 OF Incasari PROMPT "Incasari clienti valuta diferita 411" ;
|
||||
MESSAGE '581 - 5124; 5124 - 581; 5124 - 5124; 5124 - 4111'
|
||||
ON SELECTION BAR 10 OF Incasari lans(10600)
|
||||
|
||||
DEFINE BAR 11 OF Incasari PROMPT "Incasari clienti LEI 411" ;
|
||||
MESSAGE '581 - 5124; 5124 - 581; 5124 - 5124; 5124 - 4111'
|
||||
ON SELECTION BAR 11 OF Incasari lans(10654)
|
||||
|
||||
DEFINE BAR "86150" OF Incasari PROMPT "Incasare avans clienti 419" ;
|
||||
MESSAGE '5124: 419'
|
||||
ON SELECTION BAR 86150 OF Incasari lans(10440)
|
||||
|
||||
DEFINE BAR 13 OF Incasari PROMPT "Incasari debitori diversi 461" ;
|
||||
MESSAGE '5124: 461'
|
||||
ON SELECTION BAR 13 OF Incasari lans(10497)
|
||||
|
||||
DEFINE BAR 14 OF Incasari PROMPT "Incasari garantii 267X" ;
|
||||
MESSAGE '5124: 2678'
|
||||
ON SELECTION BAR 14 OF Incasari DO BAR_14_OF_Incasari_FB2P
|
||||
|
||||
DEFINE BAR 15 OF Incasari PROMPT "\-"
|
||||
ON BAR 15 OF Incasari ACTIVATE POPUP _2070y920s
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2070y920s SHORTCUT RELATIVE
|
||||
DEFINE BAR 16 OF Incasari PROMPT "Restituire avans 542" ;
|
||||
MESSAGE '5124: 542'
|
||||
ON SELECTION BAR 16 OF Incasari lans(10568)
|
||||
|
||||
DEFINE BAR 17 OF Incasari PROMPT "\-"
|
||||
ON BAR 17 OF Incasari ACTIVATE POPUP _67q0z5eb3
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _67q0z5eb3 SHORTCUT RELATIVE
|
||||
DEFINE BAR 18 OF Incasari PROMPT "Incasare generica" ;
|
||||
MESSAGE '5124 - X'
|
||||
ON SELECTION BAR 18 OF Incasari DO BAR_18_OF_Incasari_FB2P
|
||||
|
||||
DEFINE BAR 19 OF Incasari PROMPT "Incasare generica facturi valuta diferita" ;
|
||||
MESSAGE '5124 - X; 581 - 5124; 5124 - 581; 5124 - 5124'
|
||||
ON SELECTION BAR 19 OF Incasari DO BAR_19_OF_Incasari_FB2P
|
||||
|
||||
DEFINE BAR "862" OF Bancainval PROMPT "Plati"
|
||||
ON BAR 862 OF Bancainval ACTIVATE POPUP Plati
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Plati SHORTCUT RELATIVE
|
||||
DEFINE BAR "86230" OF Plati PROMPT "Ridicat numerar 5314" ;
|
||||
MESSAGE '5314:581 ;581 :5124'
|
||||
ON SELECTION BAR 86230 OF Plati lans(10427)
|
||||
|
||||
DEFINE BAR "86220" OF Plati PROMPT "Plata comision 627" ;
|
||||
MESSAGE '627 :5124'
|
||||
ON SELECTION BAR 86220 OF Plati lans(10441)
|
||||
|
||||
DEFINE BAR "86270" OF Plati PROMPT "Plati neclarificate 473" ;
|
||||
MESSAGE '473 :5124'
|
||||
ON SELECTION BAR 86270 OF Plati lans(10442)
|
||||
|
||||
DEFINE BAR "86240" OF Plati PROMPT "Vanzare valuta 5121" ;
|
||||
MESSAGE '5121:581 ; 581:5124'
|
||||
ON SELECTION BAR 86240 OF Plati lans(10443)
|
||||
|
||||
DEFINE BAR "86250" OF Plati PROMPT "Plata dobanda 5198" ;
|
||||
MESSAGE '5198:5124; 666:5198'
|
||||
ON SELECTION BAR 86250 OF Plati lans(10444)
|
||||
|
||||
DEFINE BAR 6 OF Plati PROMPT "Debitori diversi 461" ;
|
||||
MESSAGE '461 : 5124'
|
||||
ON SELECTION BAR 6 OF Plati lans(10500)
|
||||
|
||||
DEFINE BAR 7 OF Plati PROMPT "Asociati conturi curente 4511" ;
|
||||
MESSAGE ' 4511 : 5124'
|
||||
ON SELECTION BAR 7 OF Plati lans(10531)
|
||||
|
||||
DEFINE BAR 8 OF Plati PROMPT "Rambursare credit lung 1621" ;
|
||||
MESSAGE '1621 : 5124'
|
||||
ON SELECTION BAR 8 OF Plati lans(10534)
|
||||
|
||||
DEFINE BAR 9 OF Plati PROMPT "Dobanda credit termen lung 1682" ;
|
||||
MESSAGE '1682 : 5124; 666 : 1682'
|
||||
ON SELECTION BAR 9 OF Plati lans(10535)
|
||||
|
||||
DEFINE BAR 10 OF Plati PROMPT "Rambursare credit termen scurt 5191" ;
|
||||
MESSAGE ' 5191 : 5124'
|
||||
ON SELECTION BAR 10 OF Plati lans(10537)
|
||||
|
||||
DEFINE BAR 11 OF Plati PROMPT "Dobanda credit termen scurt 5198" ;
|
||||
MESSAGE '5198 : 5124; 666 : 5198'
|
||||
ON SELECTION BAR 11 OF Plati lans(10538)
|
||||
|
||||
DEFINE BAR 12 OF Plati PROMPT "Penalitati 6581" ;
|
||||
MESSAGE '6581 : 5124'
|
||||
ON SELECTION BAR 12 OF Plati lans(10536)
|
||||
|
||||
DEFINE BAR 13 OF Plati PROMPT "\-"
|
||||
ON BAR 13 OF Plati ACTIVATE POPUP _0zm10w916
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0zm10w916 SHORTCUT RELATIVE
|
||||
DEFINE BAR 14 OF Plati PROMPT "Plati furnizori 401" ;
|
||||
MESSAGE '401 : 5124'
|
||||
ON SELECTION BAR 14 OF Plati lans(10445)
|
||||
|
||||
DEFINE BAR 15 OF Plati PROMPT "Plati furnizori valuta diferita 401" ;
|
||||
MESSAGE '581 - 5124; 5124 - 581 5124 - 5124; 401 - 5124'
|
||||
ON SELECTION BAR 15 OF Plati lans(10601)
|
||||
|
||||
DEFINE BAR 16 OF Plati PROMPT "Plati furnizori LEI 401" ;
|
||||
MESSAGE '581 - 5124; 5124 - 581 5124 - 5124; 401 - 5124'
|
||||
ON SELECTION BAR 16 OF Plati lans(10655)
|
||||
|
||||
DEFINE BAR 17 OF Plati PROMPT "Plati furnizori imobilizari 404" ;
|
||||
MESSAGE '404 : 5124'
|
||||
ON SELECTION BAR 17 OF Plati lans(10447)
|
||||
|
||||
DEFINE BAR "86260" OF Plati PROMPT "Plata avans furnizori 409" ;
|
||||
MESSAGE '409 :5124'
|
||||
ON SELECTION BAR 86260 OF Plati DO BAR_"86260"_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 19 OF Plati PROMPT "Plata avans furnizori imobilizari 23x" ;
|
||||
MESSAGE '23x :5124'
|
||||
ON SELECTION BAR 19 OF Plati DO BAR_19_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 20 OF Plati PROMPT "Plata creditori diversi 462" ;
|
||||
MESSAGE '462 : 5124'
|
||||
ON SELECTION BAR 20 OF Plati lans(10498)
|
||||
|
||||
DEFINE BAR 21 OF Plati PROMPT "Plata garantii 267X" ;
|
||||
MESSAGE '2678 : 5124'
|
||||
ON SELECTION BAR 21 OF Plati DO BAR_21_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 22 OF Plati PROMPT "\-"
|
||||
ON BAR 22 OF Plati ACTIVATE POPUP _2070ya95a
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2070ya95a SHORTCUT RELATIVE
|
||||
DEFINE BAR 23 OF Plati PROMPT "Acordare avans 542" ;
|
||||
MESSAGE '542:5124'
|
||||
ON SELECTION BAR 23 OF Plati lans(10569)
|
||||
|
||||
DEFINE BAR 24 OF Plati PROMPT "Diurna 625" ;
|
||||
MESSAGE '625 : 5124'
|
||||
ON SELECTION BAR 24 OF Plati lans(10584)
|
||||
|
||||
DEFINE BAR 25 OF Plati PROMPT "\-"
|
||||
ON BAR 25 OF Plati ACTIVATE POPUP _67q0zac7s
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _67q0zac7s SHORTCUT RELATIVE
|
||||
DEFINE BAR 26 OF Plati PROMPT "Plata generica" ;
|
||||
MESSAGE 'X - 5124'
|
||||
ON SELECTION BAR 26 OF Plati DO BAR_26_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 27 OF Plati PROMPT "Plata generica facturi valuta diferita" ;
|
||||
MESSAGE 'X - 5124; 5124 - 581; 581 - 5124; 5124 - 5124'
|
||||
ON SELECTION BAR 27 OF Plati DO BAR_27_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 28 OF Plati PROMPT "Plata generica facturi LEI" ;
|
||||
MESSAGE '581 - 5124; 5124 - 581 5124 - 5124; X - 5124'
|
||||
ON SELECTION BAR 28 OF Plati DO BAR_28_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Bancainval PROMPT "Transferuri 5124"
|
||||
ON BAR 3 OF Bancainval ACTIVATE POPUP Transferur
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Transferur SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Transferur PROMPT "Transfer intre conturi aceeasi valuta" ;
|
||||
MESSAGE '581 :5124 ; 5124:581'
|
||||
ON SELECTION BAR 1 OF Transferur lans(10452)
|
||||
|
||||
DEFINE BAR 2 OF Transferur PROMPT "Transfer intre conturi valute diferite" ;
|
||||
MESSAGE '581 :5124 ; 5124:581'
|
||||
ON SELECTION BAR 2 OF Transferur lans(10633)
|
||||
|
||||
DEFINE BAR 4 OF Bancainval PROMPT "Depozite 5081"
|
||||
ON BAR 4 OF Bancainval ACTIVATE POPUP Depozite50
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Depozite50 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Depozite50 PROMPT "Constituire depozit valuta" ;
|
||||
MESSAGE '581 : 5124;5081 : 581'
|
||||
ON SELECTION BAR 1 OF Depozite50 lans(10638)
|
||||
|
||||
DEFINE BAR 2 OF Depozite50 PROMPT "Lichidare depozit valuta" ;
|
||||
MESSAGE '581 : 5081; 5124 : 581'
|
||||
ON SELECTION BAR 2 OF Depozite50 lans(10639)
|
||||
|
||||
DEFINE BAR 3 OF Depozite50 PROMPT "Inregistrare dobanda capitalizare" ;
|
||||
MESSAGE '5088 : 766; 5081 : 5088'
|
||||
ON SELECTION BAR 3 OF Depozite50 lans(10640)
|
||||
|
||||
DEFINE BAR 4 OF Depozite50 PROMPT "Inregistrare dobanda cont curent" ;
|
||||
MESSAGE '5088 : 766; 5124 : 5088'
|
||||
ON SELECTION BAR 4 OF Depozite50 lans(10641)
|
||||
ACTIVATE POPUP Bancainval
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_14_OF_Incasari_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul creditor 5124:267X",'267')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10577)
|
||||
ENDPROC && BAR_14_OF_Incasari_FB2P
|
||||
|
||||
PROCEDURE BAR_18_OF_Incasari_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Contul creditor")
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
lans_generic(10650,loCont.Cont, loCont.Acont)
|
||||
ENDPROC && BAR_18_OF_Incasari_FB2P
|
||||
|
||||
PROCEDURE BAR_19_OF_Incasari_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Contul creditor")
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
lans_generic(10652,loCont.Cont, loCont.Acont)
|
||||
ENDPROC && BAR_19_OF_Incasari_FB2P
|
||||
|
||||
PROCEDURE BAR_"86260"_OF_Plati_FB2P
|
||||
PRIVATE pcACN, CN
|
||||
loCont = ret_cont("Selectati contul",'409') && ,4091,4092')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
CN = locont.cont
|
||||
PcACN = loCont.Acont
|
||||
lans(10446)
|
||||
ENDPROC && BAR_"86260"_OF_Plati_FB2P
|
||||
|
||||
PROCEDURE BAR_19_OF_Plati_FB2P
|
||||
PRIVATE pcACN, CN
|
||||
loCont = ret_cont("Selectati contul",'23') && 232 IMOBILIZARI CORPORALE, 234 IMOBILIZARI NECORPORALE
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
CN = locont.cont
|
||||
PcACN = loCont.Acont
|
||||
lans(10596)
|
||||
ENDPROC && BAR_19_OF_Plati_FB2P
|
||||
|
||||
PROCEDURE BAR_21_OF_Plati_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul debitor 267X:5124",'267')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10578)
|
||||
ENDPROC && BAR_21_OF_Plati_FB2P
|
||||
|
||||
PROCEDURE BAR_26_OF_Plati_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Contul debitor")
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
lans_generic(10651,loCont.Cont, loCont.Acont)
|
||||
ENDPROC && BAR_26_OF_Plati_FB2P
|
||||
|
||||
PROCEDURE BAR_27_OF_Plati_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Contul debitor")
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
lans_generic(10653,loCont.Cont, loCont.Acont)
|
||||
ENDPROC && BAR_27_OF_Plati_FB2P
|
||||
|
||||
PROCEDURE BAR_28_OF_Plati_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Contul debitor")
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
lans_generic(10656,loCont.Cont, loCont.Acont)
|
||||
ENDPROC && BAR_28_OF_Plati_FB2P
|
||||
|
||||
*</Procedures>
|
||||
156
Meniuri/capitaluri1.mn2
Normal file
156
Meniuri/capitaluri1.mn2
Normal file
@@ -0,0 +1,156 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Capitalsoc SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Capitalsoc PROMPT "Subscriere capital social" ;
|
||||
MESSAGE '456 :1011'
|
||||
ON SELECTION BAR 1 OF Capitalsoc DO BAR_1_OF_Capitalsoc_FB2P
|
||||
|
||||
DEFINE BAR "11010" OF Capitalsoc PROMPT "Majorare capital social"
|
||||
ON BAR 11010 OF Capitalsoc ACTIVATE POPUP Majorareca
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Majorareca SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Majorareca PROMPT "Terenuri" ;
|
||||
MESSAGE '2111:456 ; 1011:1012'
|
||||
ON SELECTION BAR 1 OF Majorareca DO BAR_1_OF_Majorareca_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Majorareca PROMPT "Cladiri" ;
|
||||
MESSAGE '212 :456 ;1011:1012'
|
||||
ON SELECTION BAR 2 OF Majorareca DO BAR_2_OF_Majorareca_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Majorareca PROMPT "Materii prime" ;
|
||||
MESSAGE '301 :456 ;1011:1012'
|
||||
ON SELECTION BAR 3 OF Majorareca DO BAR_3_OF_Majorareca_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Majorareca PROMPT "Materiale de natura obiectelor de inventar" ;
|
||||
MESSAGE '303 :456 ;1011:1012'
|
||||
ON SELECTION BAR 4 OF Majorareca DO BAR_4_OF_Majorareca_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Majorareca PROMPT "Marfuri" ;
|
||||
MESSAGE '371:456 ;1011:1012'
|
||||
ON SELECTION BAR 5 OF Majorareca DO BAR_5_OF_Majorareca_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Majorareca PROMPT "Conturi la banci" ;
|
||||
MESSAGE '5121:456 ;1011:1012'
|
||||
ON SELECTION BAR 6 OF Majorareca DO BAR_6_OF_Majorareca_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Majorareca PROMPT "Numerar la casierie" ;
|
||||
MESSAGE '5311:456 ;1011:1012'
|
||||
ON SELECTION BAR 7 OF Majorareca DO BAR_7_OF_Majorareca_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Majorareca PROMPT "Alte valori" ;
|
||||
MESSAGE '532 :456 ;1011:1012'
|
||||
ON SELECTION BAR 8 OF Majorareca DO BAR_8_OF_Majorareca_FB2P
|
||||
|
||||
DEFINE BAR 9 OF Majorareca PROMPT "Incorporare profit" ;
|
||||
MESSAGE '129 :1012'
|
||||
ON SELECTION BAR 9 OF Majorareca DO BAR_9_OF_Majorareca_FB2P
|
||||
|
||||
DEFINE BAR 10 OF Majorareca PROMPT "Incorporare rezerve" ;
|
||||
MESSAGE '1061:1012'
|
||||
ON SELECTION BAR 10 OF Majorareca DO BAR_10_OF_Majorareca_FB2P
|
||||
|
||||
DEFINE BAR "11020" OF Capitalsoc PROMPT "Reducere capital social"
|
||||
ON BAR 11020 OF Capitalsoc ACTIVATE POPUP _09a0rejku
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _09a0rejku SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _09a0rejku PROMPT "Retragere asociat" ;
|
||||
MESSAGE '1012:456 ;456 :5121'
|
||||
ON SELECTION BAR 1 OF _09a0rejku DO BAR_1_OF__09a0rejku_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _09a0rejku PROMPT "Acoperire pierdere"
|
||||
ON BAR 2 OF _09a0rejku ACTIVATE POPUP Acoperirep
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Acoperirep SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Acoperirep PROMPT "Exercitiul curent" ;
|
||||
MESSAGE '1012:121 '
|
||||
ON SELECTION BAR 1 OF Acoperirep DO BAR_1_OF_Acoperirep_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Acoperirep PROMPT "Exercitii precedente" ;
|
||||
MESSAGE '1012:117 '
|
||||
ON SELECTION BAR 2 OF Acoperirep DO BAR_2_OF_Acoperirep_FB2P
|
||||
ACTIVATE POPUP Capitalsoc
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Capitalsoc_FB2P
|
||||
*DO ABC1 WITH '456 ','1011'
|
||||
lans(10001)
|
||||
ENDPROC && BAR_1_OF_Capitalsoc_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Majorareca_FB2P
|
||||
*DO ABC2 WITH '2111',"456 ","1011","1012"
|
||||
lans(10002)
|
||||
ENDPROC && BAR_1_OF_Majorareca_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Majorareca_FB2P
|
||||
*DO ABC2 WITH '212 ',"456 ","1011","1012"
|
||||
lans(10003)
|
||||
ENDPROC && BAR_2_OF_Majorareca_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Majorareca_FB2P
|
||||
*DO ABC2 WITH '301 ',"456 ","1011","1012"
|
||||
lans(10004)
|
||||
ENDPROC && BAR_3_OF_Majorareca_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Majorareca_FB2P
|
||||
*DO ABC2 WITH '303 ',"456 ","1011","1012"
|
||||
lans(10005)
|
||||
ENDPROC && BAR_4_OF_Majorareca_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Majorareca_FB2P
|
||||
*DO ABC2 WITH '371 ',"456 ","1011","1012"
|
||||
lans(10006)
|
||||
ENDPROC && BAR_5_OF_Majorareca_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Majorareca_FB2P
|
||||
*DO ABC2 WITH '5121',"456 ","1011","1012"
|
||||
lans(10007)
|
||||
ENDPROC && BAR_6_OF_Majorareca_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF_Majorareca_FB2P
|
||||
*DO ABC2 WITH '5311',"456 ","1011","1012"
|
||||
lans(10008)
|
||||
ENDPROC && BAR_7_OF_Majorareca_FB2P
|
||||
|
||||
PROCEDURE BAR_8_OF_Majorareca_FB2P
|
||||
*DO ABC2 WITH '532 ',"456 ","1011","1012"
|
||||
lans(10009)
|
||||
ENDPROC && BAR_8_OF_Majorareca_FB2P
|
||||
|
||||
PROCEDURE BAR_9_OF_Majorareca_FB2P
|
||||
*DO ABC1 WITH '129 ',"1012"
|
||||
lans(10010)
|
||||
ENDPROC && BAR_9_OF_Majorareca_FB2P
|
||||
|
||||
PROCEDURE BAR_10_OF_Majorareca_FB2P
|
||||
*DO ABC1 WITH '1061',"1012"
|
||||
lans(10011)
|
||||
ENDPROC && BAR_10_OF_Majorareca_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__09a0rejku_FB2P
|
||||
*DO ABC2 WITH '1012',"456 ","456 ","5121"
|
||||
lans(10012)
|
||||
ENDPROC && BAR_1_OF__09a0rejku_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Acoperirep_FB2P
|
||||
*DO ABC1 WITH '1012',"121 "
|
||||
lans(10013)
|
||||
ENDPROC && BAR_1_OF_Acoperirep_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Acoperirep_FB2P
|
||||
*DO ABC1 WITH '1012',"117 "
|
||||
lans(10014)
|
||||
ENDPROC && BAR_2_OF_Acoperirep_FB2P
|
||||
|
||||
*</Procedures>
|
||||
97
Meniuri/capitaluri2.mn2
Normal file
97
Meniuri/capitaluri2.mn2
Normal file
@@ -0,0 +1,97 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Rezervedin SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Rezervedin PROMPT "Reevaluare imobilizari"
|
||||
ON BAR 1 OF Rezervedin ACTIVATE POPUP Reevaluare
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Reevaluare SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Reevaluare PROMPT "Cladiri 212" ;
|
||||
MESSAGE '212 :1058 '
|
||||
ON SELECTION BAR 1 OF Reevaluare DO BAR_1_OF_Reevaluare_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Reevaluare PROMPT "Echipamente tehnologice 2131" ;
|
||||
MESSAGE '2131:1058'
|
||||
ON SELECTION BAR 2 OF Reevaluare DO BAR_2_OF_Reevaluare_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Reevaluare PROMPT "Aparate de masura 2132" ;
|
||||
MESSAGE '2132:1058'
|
||||
ON SELECTION BAR 3 OF Reevaluare DO BAR_3_OF_Reevaluare_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Reevaluare PROMPT "Mijloace de transport 2133" ;
|
||||
MESSAGE '2133:1058'
|
||||
ON SELECTION BAR 4 OF Reevaluare DO BAR_4_OF_Reevaluare_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Reevaluare PROMPT "Mobilier birotica 214" ;
|
||||
MESSAGE '214 :1058'
|
||||
ON SELECTION BAR 5 OF Reevaluare DO BAR_5_OF_Reevaluare_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Reevaluare PROMPT "Imobilizari financiare 261" ;
|
||||
MESSAGE '261 :1058'
|
||||
ON SELECTION BAR 6 OF Reevaluare DO BAR_6_OF_Reevaluare_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Rezervedin PROMPT "Transfer diferente din reevaluare"
|
||||
ON BAR 2 OF Rezervedin ACTIVATE POPUP Transferdi
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Transferdi SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Transferdi PROMPT "Rezerve" ;
|
||||
MESSAGE '1058:1068'
|
||||
ON SELECTION BAR 1 OF Transferdi DO BAR_1_OF_Transferdi_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Transferdi PROMPT "Capital social" ;
|
||||
MESSAGE '1058:1012'
|
||||
ON SELECTION BAR 2 OF Transferdi DO BAR_2_OF_Transferdi_FB2P
|
||||
ACTIVATE POPUP Rezervedin
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Reevaluare_FB2P
|
||||
*DO ABC1 WITH '212 ',"1058"
|
||||
lans(10015)
|
||||
ENDPROC && BAR_1_OF_Reevaluare_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Reevaluare_FB2P
|
||||
*DO ABC1 WITH '2131',"1058"
|
||||
lans(10016)
|
||||
ENDPROC && BAR_2_OF_Reevaluare_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Reevaluare_FB2P
|
||||
*DO ABC1 WITH '2132',"1058"
|
||||
lans(10017)
|
||||
ENDPROC && BAR_3_OF_Reevaluare_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Reevaluare_FB2P
|
||||
*DO ABC1 WITH '2133',"1058"
|
||||
lans(10018)
|
||||
ENDPROC && BAR_4_OF_Reevaluare_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Reevaluare_FB2P
|
||||
*DO ABC1 WITH '214',"1058"
|
||||
lans(10019)
|
||||
ENDPROC && BAR_5_OF_Reevaluare_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Reevaluare_FB2P
|
||||
*DO ABC1 WITH '261 ',"1058"
|
||||
lans(10020)
|
||||
ENDPROC && BAR_6_OF_Reevaluare_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Transferdi_FB2P
|
||||
*DO ABC1 WITH '1058',"1068"
|
||||
lans(10021)
|
||||
ENDPROC && BAR_1_OF_Transferdi_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Transferdi_FB2P
|
||||
*DO ABC1 WITH '1058',"1012"
|
||||
lans(10022)
|
||||
ENDPROC && BAR_2_OF_Transferdi_FB2P
|
||||
|
||||
*</Procedures>
|
||||
110
Meniuri/capitaluri3.mn2
Normal file
110
Meniuri/capitaluri3.mn2
Normal file
@@ -0,0 +1,110 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Rezerve SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Rezerve PROMPT "Rezerve legale"
|
||||
ON BAR 1 OF Rezerve ACTIVATE POPUP Rezerveleg
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Rezerveleg SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Rezerveleg PROMPT "Constituite din profit net" ;
|
||||
MESSAGE '129:1061'
|
||||
ON SELECTION BAR 1 OF Rezerveleg DO BAR_1_OF_Rezerveleg_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Rezerveleg PROMPT "Constituite din profitul repartizat" ;
|
||||
MESSAGE '117 :1061'
|
||||
ON SELECTION BAR 2 OF Rezerveleg DO BAR_2_OF_Rezerveleg_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Rezerveleg PROMPT "Diminuare rezerve legale"
|
||||
ON BAR 3 OF Rezerveleg ACTIVATE POPUP _09a0sh3kl
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _09a0sh3kl SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _09a0sh3kl PROMPT "Prin cresterea capitalului social" ;
|
||||
MESSAGE '1061:1012'
|
||||
ON SELECTION BAR 1 OF _09a0sh3kl DO BAR_1_OF__09a0sh3kl_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _09a0sh3kl PROMPT "Prin acoperirea pierderilor curente" ;
|
||||
MESSAGE '1061:121'
|
||||
ON SELECTION BAR 2 OF _09a0sh3kl DO BAR_2_OF__09a0sh3kl_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _09a0sh3kl PROMPT "Prin acoperirea pierderilor precedente" ;
|
||||
MESSAGE '1061:117 '
|
||||
ON SELECTION BAR 3 OF _09a0sh3kl DO BAR_3_OF__09a0sh3kl_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Rezerve PROMPT "Alte rezerve"
|
||||
ON BAR 2 OF Rezerve ACTIVATE POPUP Alterezerv
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Alterezerv SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Alterezerv PROMPT "Diminuare rezerve"
|
||||
ON BAR 1 OF Alterezerv ACTIVATE POPUP Diminuarer
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Diminuarer SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Diminuarer PROMPT "Prin majorare capital social" ;
|
||||
MESSAGE '1068:1012'
|
||||
ON SELECTION BAR 1 OF Diminuarer DO BAR_1_OF_Diminuarer_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Diminuarer PROMPT "Prin acoperirea pierderilor curente" ;
|
||||
MESSAGE '1068:121 '
|
||||
ON SELECTION BAR 2 OF Diminuarer DO BAR_2_OF_Diminuarer_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Diminuarer PROMPT "Prin acoperirea pierderilor precedente" ;
|
||||
MESSAGE '1068:117 '
|
||||
ON SELECTION BAR 3 OF Diminuarer DO BAR_3_OF_Diminuarer_FB2P
|
||||
ACTIVATE POPUP Rezerve
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Rezerveleg_FB2P
|
||||
*DO ABC1 WITH '129 ',"1061"
|
||||
lans(10023)
|
||||
ENDPROC && BAR_1_OF_Rezerveleg_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Rezerveleg_FB2P
|
||||
****DO ABC1 WITH '107 ',"1061"
|
||||
*DO ABC1 WITH '117 ',"1061"
|
||||
lans(10024)
|
||||
ENDPROC && BAR_2_OF_Rezerveleg_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__09a0sh3kl_FB2P
|
||||
*DO ABC1 WITH '1061',"1012"
|
||||
lans(10025)
|
||||
ENDPROC && BAR_1_OF__09a0sh3kl_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__09a0sh3kl_FB2P
|
||||
*DO ABC1 WITH '1061',"121 "
|
||||
lans(10027)
|
||||
ENDPROC && BAR_2_OF__09a0sh3kl_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__09a0sh3kl_FB2P
|
||||
***DO ABC1 WITH '1061',"107 "
|
||||
*DO ABC1 WITH '1061',"117 "
|
||||
lans(10026)
|
||||
ENDPROC && BAR_3_OF__09a0sh3kl_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Diminuarer_FB2P
|
||||
*DO ABC1 WITH '1068',"1012"
|
||||
lans(10028)
|
||||
ENDPROC && BAR_1_OF_Diminuarer_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Diminuarer_FB2P
|
||||
*DO ABC1 WITH '1068',"121 "
|
||||
lans(10029)
|
||||
ENDPROC && BAR_2_OF_Diminuarer_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Diminuarer_FB2P
|
||||
***DO ABC1 WITH '1068',"107 "
|
||||
*DO ABC1 WITH '1068',"117 "
|
||||
lans(10030)
|
||||
ENDPROC && BAR_3_OF_Diminuarer_FB2P
|
||||
|
||||
*</Procedures>
|
||||
79
Meniuri/capitaluri4.mn2
Normal file
79
Meniuri/capitaluri4.mn2
Normal file
@@ -0,0 +1,79 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri4.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP NewItem SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF NewItem PROMPT "Constituire rezerve"
|
||||
ON BAR 1 OF NewItem ACTIVATE POPUP _0u60ol5c8
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60ol5c8 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60ol5c8 PROMPT "Diferente favorabile din conversie (datorii)" ;
|
||||
MESSAGE '167 :107 '
|
||||
ON SELECTION BAR 1 OF _0u60ol5c8 DO BAR_1_OF__0u60ol5c8_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60ol5c8 PROMPT "Diferente favorabile din conversie (creante)" ;
|
||||
MESSAGE '267 :107 '
|
||||
ON SELECTION BAR 2 OF _0u60ol5c8 DO BAR_2_OF__0u60ol5c8_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60ol5c8 PROMPT "Cheltuieli din diferente de curs valutar" ;
|
||||
MESSAGE '6651:107 '
|
||||
ON SELECTION BAR 3 OF _0u60ol5c8 DO BAR_3_OF__0u60ol5c8_FB2P
|
||||
|
||||
DEFINE BAR 2 OF NewItem PROMPT "Diminuare rezerve"
|
||||
ON BAR 2 OF NewItem ACTIVATE POPUP _0u60olaqp
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60olaqp SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60olaqp PROMPT "Diferente nefavorabile din conversie (datorii)" ;
|
||||
MESSAGE '107 :167 '
|
||||
ON SELECTION BAR 1 OF _0u60olaqp DO BAR_1_OF__0u60olaqp_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60olaqp PROMPT "Diferente nefavorabile din conversie (creante)" ;
|
||||
MESSAGE '107 :267 '
|
||||
ON SELECTION BAR 2 OF _0u60olaqp DO BAR_2_OF__0u60olaqp_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60olaqp PROMPT "Venituri din diferente de curs valutar" ;
|
||||
MESSAGE '107 :7651 '
|
||||
ON SELECTION BAR 3 OF _0u60olaqp DO BAR_3_OF__0u60olaqp_FB2P
|
||||
ACTIVATE POPUP NewItem
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF__0u60ol5c8_FB2P
|
||||
*DO ABC1 WITH '167 ','107 '
|
||||
lans(10031)
|
||||
ENDPROC && BAR_1_OF__0u60ol5c8_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60ol5c8_FB2P
|
||||
*DO ABC1 WITH '267 ','107 '
|
||||
lans(10032)
|
||||
ENDPROC && BAR_2_OF__0u60ol5c8_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60ol5c8_FB2P
|
||||
*DO ABC1 WITH '665 ','107 '
|
||||
lans(10033)
|
||||
ENDPROC && BAR_3_OF__0u60ol5c8_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60olaqp_FB2P
|
||||
*DO ABC1 WITH '107 ','167 '
|
||||
lans(10034)
|
||||
ENDPROC && BAR_1_OF__0u60olaqp_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60olaqp_FB2P
|
||||
*DO ABC1 WITH '107 ','267 '
|
||||
lans(10035)
|
||||
ENDPROC && BAR_2_OF__0u60olaqp_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60olaqp_FB2P
|
||||
*DO ABC1 WITH '107 ','765 '
|
||||
lans(10036)
|
||||
ENDPROC && BAR_3_OF__0u60olaqp_FB2P
|
||||
|
||||
*</Procedures>
|
||||
95
Meniuri/capitaluri5.mn2
Normal file
95
Meniuri/capitaluri5.mn2
Normal file
@@ -0,0 +1,95 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Profitsipi SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Profitsipi PROMPT "Inchid.conturilor de venituri"
|
||||
ON BAR 1 OF Profitsipi ACTIVATE POPUP Inchidcont
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Inchidcont SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Inchidcont PROMPT "Produse finite" ;
|
||||
MESSAGE '7015:121 '
|
||||
ON SELECTION BAR 1 OF Inchidcont DO BAR_1_OF_Inchidcont_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Inchidcont PROMPT "Provizioane" ;
|
||||
MESSAGE '787 :121 '
|
||||
ON SELECTION BAR 2 OF Inchidcont DO BAR_2_OF_Inchidcont_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Profitsipi PROMPT "Inchid.conturilor de cheltuieli"
|
||||
ON BAR 2 OF Profitsipi ACTIVATE POPUP _09a104pbk
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _09a104pbk SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _09a104pbk PROMPT "Materii prime" ;
|
||||
MESSAGE '121 :600 '
|
||||
ON SELECTION BAR 1 OF _09a104pbk DO BAR_1_OF__09a104pbk_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _09a104pbk PROMPT "Impozit pe profit" ;
|
||||
MESSAGE '121:691 '
|
||||
ON SELECTION BAR 2 OF _09a104pbk DO BAR_2_OF__09a104pbk_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Profitsipi PROMPT "Pierderi realizate in ex.curente"
|
||||
ON BAR 3 OF Profitsipi ACTIVATE POPUP Pierderire
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Pierderire SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Pierderire PROMPT "Ce reduc capitalul social" ;
|
||||
MESSAGE '121 :691 '
|
||||
ON SELECTION BAR 1 OF Pierderire DO BAR_1_OF_Pierderire_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Pierderire PROMPT "Ce sunt repartizate in ex. urmator" ;
|
||||
MESSAGE '117 :121 '
|
||||
ON SELECTION BAR 2 OF Pierderire DO BAR_2_OF_Pierderire_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Profitsipi PROMPT "Profit net din ex.precedent si repartizat" ;
|
||||
MESSAGE '121 :129 '
|
||||
ON SELECTION BAR 4 OF Profitsipi DO BAR_4_OF_Profitsipi_FB2P
|
||||
ACTIVATE POPUP Profitsipi
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Inchidcont_FB2P
|
||||
*DO ABC1 WITH '701 ',"121 "
|
||||
lans(10044)
|
||||
ENDPROC && BAR_1_OF_Inchidcont_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Inchidcont_FB2P
|
||||
*DO ABC1 WITH '787 ',"121 "
|
||||
lans(10045)
|
||||
ENDPROC && BAR_2_OF_Inchidcont_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__09a104pbk_FB2P
|
||||
*DO ABC1 WITH '121 ',"600 "
|
||||
lans(10046)
|
||||
ENDPROC && BAR_1_OF__09a104pbk_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__09a104pbk_FB2P
|
||||
*DO ABC1 WITH '121 ',"691 "
|
||||
lans(10047)
|
||||
ENDPROC && BAR_2_OF__09a104pbk_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Pierderire_FB2P
|
||||
***DO ABC1 WITH '121 ',"691 "
|
||||
*DO ABC1 WITH '1012',"121 "
|
||||
lans(10048)
|
||||
ENDPROC && BAR_1_OF_Pierderire_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Pierderire_FB2P
|
||||
***DO ABC1 WITH '107 ',"121 "
|
||||
*DO ABC1 WITH '117 ',"121 "
|
||||
lans(10049)
|
||||
ENDPROC && BAR_2_OF_Pierderire_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Profitsipi_FB2P
|
||||
*DO ABC1 WITH '121 ',"129 "
|
||||
lans(10050)
|
||||
ENDPROC && BAR_4_OF_Profitsipi_FB2P
|
||||
|
||||
*</Procedures>
|
||||
84
Meniuri/capitaluri6.mn2
Normal file
84
Meniuri/capitaluri6.mn2
Normal file
@@ -0,0 +1,84 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri6.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Repartizar SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Repartizar PROMPT "Prin cresterea capitalului social" ;
|
||||
MESSAGE '129:1012'
|
||||
ON SELECTION BAR 1 OF Repartizar DO BAR_1_OF_Repartizar_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Repartizar PROMPT "Prin constituirea rezervelor" ;
|
||||
MESSAGE '129 :1061'
|
||||
ON SELECTION BAR 2 OF Repartizar DO BAR_2_OF_Repartizar_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Repartizar PROMPT "Participarea personalului la profit" ;
|
||||
MESSAGE '129 :424 '
|
||||
ON SELECTION BAR 3 OF Repartizar DO BAR_3_OF_Repartizar_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Repartizar PROMPT "Prin constituirea fd.de participare la profit" ;
|
||||
MESSAGE '129:112 '
|
||||
ON SELECTION BAR 4 OF Repartizar DO BAR_4_OF_Repartizar_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Repartizar PROMPT "Prin evidenta dividendelor(vechi)" ;
|
||||
MESSAGE '129 :457 '
|
||||
ON SELECTION BAR 5 OF Repartizar DO BAR_5_OF_Repartizar_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Repartizar PROMPT "Prin acoperirea pierderilor din anii precedenti" ;
|
||||
MESSAGE '129 :117 '
|
||||
ON SELECTION BAR 6 OF Repartizar DO BAR_6_OF_Repartizar_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Repartizar PROMPT "Prin constituirea fondului de rezerva" ;
|
||||
MESSAGE '129 :1061'
|
||||
ON SELECTION BAR 7 OF Repartizar DO BAR_7_OF_Repartizar_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Repartizar PROMPT "Prin evidenta dividendelor" ;
|
||||
MESSAGE ' 117 : 457'
|
||||
ON SELECTION BAR 8 OF Repartizar lans(10507)
|
||||
ACTIVATE POPUP Repartizar
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Repartizar_FB2P
|
||||
*DO ABC1 WITH '129 ',"1012"
|
||||
lans(10037)
|
||||
ENDPROC && BAR_1_OF_Repartizar_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Repartizar_FB2P
|
||||
***DO ABC1 WITH '129 ',"106 "
|
||||
*DO ABC1 WITH '129 ',"1061"
|
||||
lans(10038)
|
||||
ENDPROC && BAR_2_OF_Repartizar_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Repartizar_FB2P
|
||||
*DO ABC1 WITH '129 ',"424 "
|
||||
lans(10039)
|
||||
ENDPROC && BAR_3_OF_Repartizar_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Repartizar_FB2P
|
||||
*DO ABC1 WITH '129 ',"112 "
|
||||
lans(10040)
|
||||
ENDPROC && BAR_4_OF_Repartizar_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Repartizar_FB2P
|
||||
*DO ABC1 WITH '129 ',"457 "
|
||||
lans(10041)
|
||||
ENDPROC && BAR_5_OF_Repartizar_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Repartizar_FB2P
|
||||
***DO ABC1 WITH '129 ',"107 "
|
||||
*DO ABC1 WITH '129 ',"117 "
|
||||
lans(10042)
|
||||
ENDPROC && BAR_6_OF_Repartizar_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF_Repartizar_FB2P
|
||||
*DO ABC1 WITH '129 ',"1061"
|
||||
lans(10043)
|
||||
ENDPROC && BAR_7_OF_Repartizar_FB2P
|
||||
|
||||
*</Procedures>
|
||||
545
Meniuri/capitaluri7.mn2
Normal file
545
Meniuri/capitaluri7.mn2
Normal file
@@ -0,0 +1,545 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri7.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Imprumutur SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Imprumutur PROMPT "Imprumuturi din emisiuni de obligatiuni 161"
|
||||
ON BAR 1 OF Imprumutur ACTIVATE POPUP _0u60pn5yf
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60pn5yf SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60pn5yf PROMPT "Emisiune obligatiuni" ;
|
||||
MESSAGE '461 :161 ;5121:461 '
|
||||
ON SELECTION BAR 1 OF _0u60pn5yf DO BAR_1_OF__0u60pn5yf_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60pn5yf PROMPT "Prime de rambursare" ;
|
||||
MESSAGE '1691 :161 '
|
||||
ON SELECTION BAR 2 OF _0u60pn5yf DO BAR_2_OF__0u60pn5yf_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60pn5yf PROMPT "Rascumparare obligatiuni" ;
|
||||
MESSAGE '505 :5121;161 :505 '
|
||||
ON SELECTION BAR 3 OF _0u60pn5yf DO BAR_3_OF__0u60pn5yf_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Imprumutur PROMPT "Credite bancare pe termen lung 162"
|
||||
ON BAR 2 OF Imprumutur ACTIVATE POPUP _0u60pv4cj
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60pv4cj SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60pv4cj PROMPT "Pentru achitarea furnizorilor" ;
|
||||
MESSAGE '401 :162 '
|
||||
ON SELECTION BAR 1 OF _0u60pv4cj DO BAR_1_OF__0u60pv4cj_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60pv4cj PROMPT "Pentru achitarea furnizorilor de imob." ;
|
||||
MESSAGE '404 :162 '
|
||||
ON SELECTION BAR 2 OF _0u60pv4cj DO BAR_2_OF__0u60pv4cj_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60pv4cj PROMPT "Virare in banca" ;
|
||||
MESSAGE '5121:162 '
|
||||
ON SELECTION BAR 3 OF _0u60pv4cj DO BAR_3_OF__0u60pv4cj_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _0u60pv4cj PROMPT "Rambursare credite" ;
|
||||
MESSAGE '162 :5121'
|
||||
ON SELECTION BAR 4 OF _0u60pv4cj DO BAR_4_OF__0u60pv4cj_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Imprumutur PROMPT "Datorii ce privesc investitiile financiare 166"
|
||||
ON BAR 3 OF Imprumutur ACTIVATE POPUP _0u60q01yu
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60q01yu SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60q01yu PROMPT "Incasare sume" ;
|
||||
MESSAGE '5121:166 '
|
||||
ON SELECTION BAR 1 OF _0u60q01yu DO BAR_1_OF__0u60q01yu_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60q01yu PROMPT "Restituire sume" ;
|
||||
MESSAGE '166 :5121'
|
||||
ON SELECTION BAR 2 OF _0u60q01yu DO BAR_2_OF__0u60q01yu_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Imprumutur PROMPT "Alte imprumuturi si datorii asimilate 167"
|
||||
ON BAR 4 OF Imprumutur ACTIVATE POPUP _0u60q3y8a
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60q3y8a SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60q3y8a PROMPT "Incasari sume" ;
|
||||
MESSAGE '5121:167 '
|
||||
ON SELECTION BAR 1 OF _0u60q3y8a DO BAR_1_OF__0u60q3y8a_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60q3y8a PROMPT "Rambursare imprumuturi" ;
|
||||
MESSAGE '167 :5121'
|
||||
ON SELECTION BAR 2 OF _0u60q3y8a DO BAR_2_OF__0u60q3y8a_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Imprumutur PROMPT "Dobanzi aferente .... 168"
|
||||
ON BAR 5 OF Imprumutur ACTIVATE POPUP _0u60q6usc
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60q6usc SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60q6usc PROMPT "Imprumuturilor din emisiuni de obligatiuni 1681" ;
|
||||
MESSAGE '666 :1681;1681:5121'
|
||||
ON SELECTION BAR 1 OF _0u60q6usc DO BAR_1_OF__0u60q6usc_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60q6usc PROMPT "Creditelor bancare pe termen lung 1682" ;
|
||||
MESSAGE '666 :1682;1682:5121'
|
||||
ON SELECTION BAR 2 OF _0u60q6usc DO BAR_2_OF__0u60q6usc_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60q6usc PROMPT "Datoriilor catre societatile din grup 1685" ;
|
||||
MESSAGE '666 :1685;1685:5121'
|
||||
ON SELECTION BAR 3 OF _0u60q6usc DO BAR_3_OF__0u60q6usc_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _0u60q6usc PROMPT "Datoriilor privind interesele de participare 1686" ;
|
||||
MESSAGE '666 :1686;1686:5121'
|
||||
ON SELECTION BAR 4 OF _0u60q6usc DO BAR_4_OF__0u60q6usc_FB2P
|
||||
|
||||
DEFINE BAR 5 OF _0u60q6usc PROMPT "Altor imprumuturi si datorii asimilate 1687" ;
|
||||
MESSAGE '666 :1687;1687:5121'
|
||||
ON SELECTION BAR 5 OF _0u60q6usc DO BAR_5_OF__0u60q6usc_FB2P
|
||||
ACTIVATE POPUP Imprumutur
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF__0u60pn5yf_FB2P
|
||||
***DO ABC2 WITH '461 ','161 ','5121','461 '
|
||||
*!* m.scd='461 '
|
||||
*!* m.scc='161 '
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "NUMELE CREDITORULUI","CREDITOR","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','','IMPRUMUT EMIS. OBLIGATIUNI', ;
|
||||
*!* ""
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* M.PERECHE=M.NRACT
|
||||
*!* DO CONTABILIZEAZA WITH '5121','461 ',M.suma,CLASAACT
|
||||
|
||||
*!* do inBANCA
|
||||
lans(10051)
|
||||
*!* sele credits
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITS.LUAT WITH CREDITS.LUAT+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
ENDPROC && BAR_1_OF__0u60pn5yf_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60pn5yf_FB2P
|
||||
*DO ABC1 WITH '169 ','161 '
|
||||
lans(10052)
|
||||
ENDPROC && BAR_2_OF__0u60pn5yf_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60pn5yf_FB2P
|
||||
*DO ABC2 WITH '505 ','5121','161 ','505 '
|
||||
lans(10053)
|
||||
ENDPROC && BAR_3_OF__0u60pn5yf_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60pv4cj_FB2P
|
||||
*!* *DO ABC1 WITH '401 ','162 '
|
||||
*!* m.scd='401 '
|
||||
*!* m.scc='162 '
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "NUMELE CREDITULUI","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"CREDIT FURNIZOR", ;
|
||||
*!* "INCASARE CREDIT"
|
||||
*!* *
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do inBANCA
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
|
||||
lans(10054)
|
||||
ENDPROC && BAR_1_OF__0u60pv4cj_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60pv4cj_FB2P
|
||||
*!* *DO ABC1 WITH '404 ','162 '
|
||||
|
||||
*!* m.scd='404 '
|
||||
*!* m.scc='162 '
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "NUMELE CREDITULUI","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"CREDIT FURNIZOR IMOB.", ;
|
||||
*!* "INCASARE CREDIT"
|
||||
*!* *
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do inBANCA
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
|
||||
lans(10055)
|
||||
ENDPROC && BAR_2_OF__0u60pv4cj_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60pv4cj_FB2P
|
||||
*!* *DO ABC1 WITH '5121','162 '
|
||||
*!* m.scd='5121'
|
||||
*!* m.scc='162 '
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "NUMELE CREDITULUI","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"CREDIT IN BANCA", ;
|
||||
*!* "INCASARE CREDIT"
|
||||
*!* *
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do inBANCA
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
|
||||
|
||||
lans(10056)
|
||||
ENDPROC && BAR_3_OF__0u60pv4cj_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF__0u60pv4cj_FB2P
|
||||
*!* *DO ABC1 WITH '162 ','5121'
|
||||
|
||||
*!* m.scd='162 '
|
||||
*!* m.scc='5121'
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "CREDITUL","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"RAMBURSARE CREDIT", ;
|
||||
*!* "RAMBURSARE CREDIT"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do PLBANCA
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.DAT WITH CREDITL.DAT+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
lans(10057)
|
||||
ENDPROC && BAR_4_OF__0u60pv4cj_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60q01yu_FB2P
|
||||
*!* *DO ABC1 WITH '5121','166 '
|
||||
*!* m.scd='5121'
|
||||
*!* m.scc='166 '
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "NUMELE CREDITULUI","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"DATORII-INVESTITII FINANCIARE", ;
|
||||
*!* "INCASARE CREDIT"
|
||||
*!* *
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do inBANCA
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
|
||||
lans(10058)
|
||||
ENDPROC && BAR_1_OF__0u60q01yu_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60q01yu_FB2P
|
||||
*!* *DO ABC1 WITH '166 ','5121'
|
||||
*!* m.scd='166 '
|
||||
*!* m.scc='5121'
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "CREDITUL","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"RAMBURSARE CREDIT", ;
|
||||
*!* "RAMBURSARE CREDIT"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do PLBANCA
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.DAT WITH CREDITL.DAT+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
|
||||
lans(10059)
|
||||
ENDPROC && BAR_2_OF__0u60q01yu_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60q3y8a_FB2P
|
||||
*!* *DO ABC1 WITH '5121','167 '
|
||||
*!* m.scd='5121'
|
||||
*!* m.scc='167 '
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "NUMELE CREDITULUI","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"ALTE IMPRUMUTURI ASIMILATE", ;
|
||||
*!* "INCASARE CREDIT"
|
||||
*!* *
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do inBANCA
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
|
||||
lans(10060)
|
||||
ENDPROC && BAR_1_OF__0u60q3y8a_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60q3y8a_FB2P
|
||||
*!* *DO ABC1 WITH '167 ','5121'
|
||||
*!* m.scd='167 '
|
||||
*!* m.scc='5121'
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "CREDITUL","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"RAMBURSARE ALTE IMPRUMUTURI", ;
|
||||
*!* "RAMBURSARE CREDIT"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do PLBANCA
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.DAT WITH CREDITL.DAT+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
|
||||
lans(10061)
|
||||
ENDPROC && BAR_2_OF__0u60q3y8a_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60q6usc_FB2P
|
||||
*!* *DO ABC2 WITH '666 ','1681','1681','5121'
|
||||
|
||||
*!* m.scd='1681'
|
||||
*!* m.scc='5121'
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "CREDITUL","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"DOBANZI-IMPRUM.EMIS.OBLIG.", ;
|
||||
*!* "DOBANZI LA CREDIT"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do PLBANCA
|
||||
*!* m.scd='666 '
|
||||
*!* m.scc='1681'
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
lans(10062)
|
||||
ENDPROC && BAR_1_OF__0u60q6usc_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60q6usc_FB2P
|
||||
*!* *DO ABC2 WITH '666 ','1682','1682','5121'
|
||||
|
||||
*!* m.scd='1682'
|
||||
*!* m.scc='5121'
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "CREDITUL","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"DOBANZI-CREDIT TERM. LUNG", ;
|
||||
*!* "DOBANZI LA CREDIT"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do PLBANCA
|
||||
*!* m.scd='666 '
|
||||
*!* m.scc='1682'
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
|
||||
lans(10063)
|
||||
ENDPROC && BAR_2_OF__0u60q6usc_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60q6usc_FB2P
|
||||
*!* *DO ABC2 WITH '666 ','1685','1685','5121'
|
||||
*!* m.scd='1685'
|
||||
*!* m.scc='5121'
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "CREDITUL","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"DOBANZI-DATORII SOC.GRUP", ;
|
||||
*!* "DOBANZI LA CREDIT"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do PLBANCA
|
||||
*!* m.scd='666 '
|
||||
*!* m.scc='1685'
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
|
||||
Lans(10064)
|
||||
ENDPROC && BAR_3_OF__0u60q6usc_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF__0u60q6usc_FB2P
|
||||
*!* *DO ABC2 WITH '666 ','1686','1686','5121'
|
||||
*!* m.scd='1686'
|
||||
*!* m.scc='5121'
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "CREDITUL","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"DOBANZI-DATORII ALTE SOC.", ;
|
||||
*!* "DOBANZI LA CREDIT"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do PLBANCA
|
||||
*!* m.scd='666 '
|
||||
*!* m.scc='1686'
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
|
||||
lans(10065)
|
||||
ENDPROC && BAR_4_OF__0u60q6usc_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF__0u60q6usc_FB2P
|
||||
*!* *DO ABC2 WITH '666 ','1687','1687','5121'
|
||||
*!* m.scd='1687'
|
||||
*!* m.scc='5121'
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "CREDITUL","CREDITL","NUME", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* '','',"DOBANZI ALTE IMPRUMUTURI", ;
|
||||
*!* "DOBANZI LA CREDIT"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do PLBANCA
|
||||
*!* m.scd='666 '
|
||||
*!* m.scc='1687'
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* sele creditl
|
||||
*!* if flock()
|
||||
*!* REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* do sterge
|
||||
|
||||
lans(10066)
|
||||
ENDPROC && BAR_5_OF__0u60q6usc_FB2P
|
||||
|
||||
*</Procedures>
|
||||
34
Meniuri/capitaluri8.mn2
Normal file
34
Meniuri/capitaluri8.mn2
Normal file
@@ -0,0 +1,34 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="capitaluri8.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP subventii SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF subventii PROMPT "Subventii pentru investiii 4751" ;
|
||||
MESSAGE '4451:4751'
|
||||
ON SELECTION BAR 1 OF subventii lans_generic(10604,'4451',,'4751')
|
||||
|
||||
DEFINE BAR 2 OF subventii PROMPT "\-"
|
||||
ON BAR 2 OF subventii ACTIVATE POPUP _2mu10jcf6
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2mu10jcf6 SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF subventii PROMPT "Imprumuturi nerambursabile 4752" ;
|
||||
MESSAGE '4452:4752'
|
||||
ON SELECTION BAR 3 OF subventii lans_generic(10604,'4452',,'4752')
|
||||
|
||||
DEFINE BAR 4 OF subventii PROMPT "\-"
|
||||
ON BAR 4 OF subventii ACTIVATE POPUP _2mu10k6hm
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2mu10k6hm SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF subventii PROMPT "\<Alte sume 4758" ;
|
||||
MESSAGE '4458:4758'
|
||||
ON SELECTION BAR 5 OF subventii lans_generic(10604,'4458',,'4758')
|
||||
ACTIVATE POPUP subventii
|
||||
|
||||
*</MenuCode>
|
||||
309
Meniuri/casa1.mn2
Normal file
309
Meniuri/casa1.mn2
Normal file
@@ -0,0 +1,309 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="casa1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Casaincasa SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR "81010" OF Casaincasa PROMPT "Ridicat numerar din banca 5121" ;
|
||||
MESSAGE '5311:581 ; 581:5121'
|
||||
ON SELECTION BAR 81010 OF Casaincasa DO BAR_"81010"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Casaincasa PROMPT "Transfer in alta casa 581" ;
|
||||
MESSAGE '5311: 581'
|
||||
ON SELECTION BAR 2 OF Casaincasa DO BAR_2_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Casaincasa PROMPT "\-"
|
||||
ON BAR 3 OF Casaincasa ACTIVATE POPUP _0c30mnh75
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0c30mnh75 SHORTCUT RELATIVE
|
||||
DEFINE BAR "81070" OF Casaincasa PROMPT "Restituit avans 542" ;
|
||||
MESSAGE '5311: 542'
|
||||
ON SELECTION BAR 81070 OF Casaincasa DO BAR_"81070"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR "81080" OF Casaincasa PROMPT "Asociati cont curent 4551" ;
|
||||
MESSAGE '5311:4551'
|
||||
ON SELECTION BAR 81080 OF Casaincasa DO BAR_"81080"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Casaincasa PROMPT "\-"
|
||||
ON BAR 6 OF Casaincasa ACTIVATE POPUP _saq0r80dh
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0r80dh SHORTCUT RELATIVE
|
||||
DEFINE BAR "81020" OF Casaincasa PROMPT "Clienti 4111" ;
|
||||
MESSAGE '5311:4111'
|
||||
ON BAR 81020 OF Casaincasa ACTIVATE POPUP Clienti411
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Clienti411 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Clienti411 PROMPT "Fara listare" ;
|
||||
MESSAGE '5311:4111'
|
||||
ON SELECTION BAR 1 OF Clienti411 DO BAR_1_OF_Clienti411_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Clienti411 PROMPT "Cu bon fiscal - numerar" ;
|
||||
MESSAGE '5311:4111 - listare bon fiscal la casa de marcat incasare numerar'
|
||||
ON SELECTION BAR 2 OF Clienti411 DO casademarcat_roacont WITH 10576 IN oproceduri_casademarcat.prg
|
||||
|
||||
DEFINE BAR 3 OF Clienti411 PROMPT "Cu listare chitanta" ;
|
||||
MESSAGE '5311:4111'
|
||||
ON SELECTION BAR 3 OF Clienti411 do clienti_chitanta with 10329 in oproceduri_incasari.prg
|
||||
|
||||
DEFINE BAR 4 OF Clienti411 PROMPT "\-"
|
||||
ON BAR 4 OF Clienti411 ACTIVATE POPUP _4ck0qymd8
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _4ck0qymd8 SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Clienti411 PROMPT "Cu bon fiscal - Bacsis fara TVA" ;
|
||||
MESSAGE '4111 : 7588 ; 5311:4111'
|
||||
ON SELECTION BAR 5 OF Clienti411 DO casademarcat_roacont WITH 10619 IN oproceduri_casademarcat.prg
|
||||
|
||||
DEFINE BAR 6 OF Clienti411 PROMPT "Cu bon fiscal - Bacsis cu TVA" ;
|
||||
MESSAGE '4111 : 7588 ; 4111:4427 ; 5311:4111'
|
||||
ON SELECTION BAR 6 OF Clienti411 DO casademarcat_roacont WITH 10620 IN oproceduri_casademarcat.prg
|
||||
|
||||
DEFINE BAR "81030" OF Casaincasa PROMPT "Clienti incerti 4118" ;
|
||||
MESSAGE '5311:4118'
|
||||
ON SELECTION BAR 81030 OF Casaincasa DO BAR_"81030"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR "81040" OF Casaincasa PROMPT "Avansuri TVA" ;
|
||||
MESSAGE '5311:419 ;5311:4111 ; 4111:4427'
|
||||
ON SELECTION BAR 81040 OF Casaincasa DO BAR_"81040"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR "81050" OF Casaincasa PROMPT "Debitori diversi 461" ;
|
||||
MESSAGE '5311:461'
|
||||
ON BAR 81050 OF Casaincasa ACTIVATE POPUP Debitoridi
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Debitoridi SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Debitoridi PROMPT "Fara listare" ;
|
||||
MESSAGE '5311:461'
|
||||
ON SELECTION BAR 1 OF Debitoridi lans(10336)
|
||||
|
||||
DEFINE BAR 2 OF Debitoridi PROMPT "Cu bon fiscal - numerar" ;
|
||||
MESSAGE '5311:461'
|
||||
ON SELECTION BAR 2 OF Debitoridi DO BAR_2_OF_Debitoridi_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Debitoridi PROMPT "Cu listare chitanta" ;
|
||||
MESSAGE '5311:461'
|
||||
ON SELECTION BAR 3 OF Debitoridi DO BAR_3_OF_Debitoridi_FB2P
|
||||
|
||||
DEFINE BAR "81060" OF Casaincasa PROMPT "Creditori diversi 462" ;
|
||||
MESSAGE '5311:462'
|
||||
ON SELECTION BAR 81060 OF Casaincasa lans(10337)
|
||||
|
||||
DEFINE BAR 12 OF Casaincasa PROMPT "\-"
|
||||
ON BAR 12 OF Casaincasa ACTIVATE POPUP _15w0ulhbx
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _15w0ulhbx SHORTCUT RELATIVE
|
||||
DEFINE BAR 13 OF Casaincasa PROMPT "Incasare monetar" ;
|
||||
MESSAGE '4111 : 707 ; 4111:4427 ; 5311:4111'
|
||||
ON SELECTION BAR 13 OF Casaincasa DO BAR_13_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR 14 OF Casaincasa PROMPT "Incasare imputatii 428x" ;
|
||||
MESSAGE '5311 : 428X'
|
||||
ON SELECTION BAR 14 OF Casaincasa DO BAR_14_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR 15 OF Casaincasa PROMPT "Decontari in cadrul grupului 4511" ;
|
||||
MESSAGE ' 5311 : 4511'
|
||||
ON SELECTION BAR 15 OF Casaincasa lans(10525)
|
||||
|
||||
DEFINE BAR 16 OF Casaincasa PROMPT "Drepturi neridicate 426" ;
|
||||
MESSAGE '5311:426'
|
||||
ON SELECTION BAR 16 OF Casaincasa lans(10580)
|
||||
|
||||
DEFINE BAR 17 OF Casaincasa PROMPT "Incasare garantii 267X" ;
|
||||
MESSAGE '5311 : 2678'
|
||||
ON SELECTION BAR 17 OF Casaincasa DO BAR_17_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR 18 OF Casaincasa PROMPT "Incasare diverse 4xx/ 7xx" ;
|
||||
MESSAGE '5311:4xx'
|
||||
ON BAR 18 OF Casaincasa ACTIVATE POPUP Incasaredi
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Incasaredi SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Incasaredi PROMPT "Fara listare 4xx" ;
|
||||
MESSAGE '5311:4xx'
|
||||
ON SELECTION BAR 1 OF Incasaredi DO BAR_1_OF_Incasaredi_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Incasaredi PROMPT "Cu bon fiscal - numerar 4xx" ;
|
||||
MESSAGE '5311:4xx'
|
||||
ON SELECTION BAR 2 OF Incasaredi DO BAR_2_OF_Incasaredi_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Incasaredi PROMPT "Cu chitanta 4xx" ;
|
||||
MESSAGE '5311:4xx'
|
||||
ON SELECTION BAR 3 OF Incasaredi DO BAR_3_OF_Incasaredi_FB2P
|
||||
ACTIVATE POPUP Casaincasa
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_"81010"_OF_Casaincasa_FB2P
|
||||
*DO MENIU81010
|
||||
LANS(10330)
|
||||
ENDPROC && BAR_"81010"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Casaincasa_FB2P
|
||||
LANS(10331)
|
||||
*!* m.scd='5311 '
|
||||
*!* m.scc='581 '
|
||||
|
||||
*!* do alfabeta with;
|
||||
*!* 'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do INCASA
|
||||
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_2_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_"81070"_OF_Casaincasa_FB2P
|
||||
*DO MENIU81070
|
||||
LANS(10332)
|
||||
ENDPROC && BAR_"81070"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_"81080"_OF_Casaincasa_FB2P
|
||||
*DO MENIU81080
|
||||
lans(10333)
|
||||
ENDPROC && BAR_"81080"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Clienti411_FB2P
|
||||
lans(10329)
|
||||
ENDPROC && BAR_1_OF_Clienti411_FB2P
|
||||
|
||||
PROCEDURE BAR_"81030"_OF_Casaincasa_FB2P
|
||||
*DO MENIU810201
|
||||
lans(10334)
|
||||
ENDPROC && BAR_"81030"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_"81040"_OF_Casaincasa_FB2P
|
||||
*DO MENIU81040
|
||||
LANS(10335)
|
||||
ENDPROC && BAR_"81040"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Debitoridi_FB2P
|
||||
&& 5311 = X
|
||||
PRIVATE pcACN
|
||||
CN= '461'
|
||||
pcACN = ''
|
||||
DO casademarcat_roacont WITH 10631 IN oproceduri_casademarcat.prg
|
||||
ENDPROC && BAR_2_OF_Debitoridi_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Debitoridi_FB2P
|
||||
&& 5311 = X
|
||||
PRIVATE pcACN
|
||||
CN= '461'
|
||||
pcACN = ''
|
||||
|
||||
do clienti_chitanta with 10630 in oproceduri_incasari.prg
|
||||
ENDPROC && BAR_3_OF_Debitoridi_FB2P
|
||||
|
||||
PROCEDURE BAR_13_OF_Casaincasa_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'704,707') &&,4461,4462,4463,4464,4465,4466,4467,4468,4469')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10493)
|
||||
ENDPROC && BAR_13_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_14_OF_Casaincasa_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'428') && ,4481,4482')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10547)
|
||||
ENDPROC && BAR_14_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_17_OF_Casaincasa_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul creditor 5311:267X",'267')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10582)
|
||||
ENDPROC && BAR_17_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Incasaredi_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'4,7')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10630)
|
||||
ENDPROC && BAR_1_OF_Incasaredi_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Incasaredi_FB2P
|
||||
* 5311 = 4xx
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'4,7')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
|
||||
DO casademarcat_roacont WITH 10631 IN oproceduri_casademarcat.prg
|
||||
ENDPROC && BAR_2_OF_Incasaredi_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Incasaredi_FB2P
|
||||
* 5311 = 4xx
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'4,7')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
|
||||
do clienti_chitanta with 10630 in oproceduri_incasari.prg
|
||||
ENDPROC && BAR_3_OF_Incasaredi_FB2P
|
||||
|
||||
*</Procedures>
|
||||
646
Meniuri/casa2.mn2
Normal file
646
Meniuri/casa2.mn2
Normal file
@@ -0,0 +1,646 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="casa2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Casaplati SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR "82010" OF Casaplati PROMPT "Depunere numerar in banca" ;
|
||||
MESSAGE '581 :5311;5121:581'
|
||||
ON SELECTION BAR 82010 OF Casaplati DO BAR_"82010"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Casaplati PROMPT "Transfer in alta casa" ;
|
||||
MESSAGE '581 :5311'
|
||||
ON SELECTION BAR 2 OF Casaplati DO BAR_2_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Casaplati PROMPT "Transferuri intre case" ;
|
||||
MESSAGE '581 :5311;5311:581 '
|
||||
ON SELECTION BAR 3 OF Casaplati DO BAR_3_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Casaplati PROMPT "\-"
|
||||
ON BAR 4 OF Casaplati ACTIVATE POPUP _0c30moka3
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0c30moka3 SHORTCUT RELATIVE
|
||||
DEFINE BAR "82020" OF Casaplati PROMPT "Acordare avans materiale" ;
|
||||
MESSAGE '542 :5311'
|
||||
ON SELECTION BAR 82020 OF Casaplati DO BAR_"82020"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82100" OF Casaplati PROMPT "Asociati conturi curente" ;
|
||||
MESSAGE '4551:5311'
|
||||
ON SELECTION BAR 82100 OF Casaplati DO BAR_"82100"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Casaplati PROMPT "\-"
|
||||
ON BAR 7 OF Casaplati ACTIVATE POPUP _saq0r5jfn
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0r5jfn SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF Casaplati PROMPT "Plati furnizori"
|
||||
ON BAR 8 OF Casaplati ACTIVATE POPUP Platifurni
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Platifurni SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Platifurni PROMPT "Plati multiple 401" ;
|
||||
MESSAGE '401 :5311'
|
||||
ON SELECTION BAR 1 OF Platifurni DO BAR_1_OF_Platifurni_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Platifurni PROMPT "Furnizori imobilizari 404" ;
|
||||
MESSAGE '404 :5311'
|
||||
ON SELECTION BAR 2 OF Platifurni DO BAR_2_OF_Platifurni_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Platifurni PROMPT "Avansuri furnizori 409" ;
|
||||
MESSAGE '409 :5311'
|
||||
ON SELECTION BAR 3 OF Platifurni DO BAR_3_OF_Platifurni_FB2P
|
||||
|
||||
DEFINE BAR 9 OF Casaplati PROMPT "Plati furnizori in valuta" ;
|
||||
MESSAGE '581 - 5311; 5311 - 581; 5311 - 5311; 5311 - 401'
|
||||
ON BAR 9 OF Casaplati ACTIVATE POPUP _4y40sqh7w
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _4y40sqh7w SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _4y40sqh7w PROMPT "Plati furnizori 401" ;
|
||||
MESSAGE '401 :5311'
|
||||
ON SELECTION BAR 1 OF _4y40sqh7w lans(10625)
|
||||
|
||||
DEFINE BAR 2 OF _4y40sqh7w PROMPT "Plati furnizori imobilizari 404" ;
|
||||
MESSAGE '404 :5311'
|
||||
ON SELECTION BAR 2 OF _4y40sqh7w lans(10626)
|
||||
|
||||
DEFINE BAR 3 OF _4y40sqh7w PROMPT "Plati creditori 462" ;
|
||||
MESSAGE '462 :5311'
|
||||
ON SELECTION BAR 3 OF _4y40sqh7w lans(10627)
|
||||
|
||||
DEFINE BAR "82120" OF Casaplati PROMPT "Debitori diversi" ;
|
||||
MESSAGE '461 :5311'
|
||||
ON SELECTION BAR 82120 OF Casaplati DO BAR_"82120"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82130" OF Casaplati PROMPT "Creditori diversi" ;
|
||||
MESSAGE '462 :5311'
|
||||
ON SELECTION BAR 82130 OF Casaplati DO BAR_"82130"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 12 OF Casaplati PROMPT "\-"
|
||||
ON BAR 12 OF Casaplati ACTIVATE POPUP _saq0r5jfo
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0r5jfo SHORTCUT RELATIVE
|
||||
DEFINE BAR "82070" OF Casaplati PROMPT "Salarii"
|
||||
ON BAR 82070 OF Casaplati ACTIVATE POPUP Salarii421
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Salarii421 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Salarii421 PROMPT "\<Salarii" ;
|
||||
MESSAGE '421:5311'
|
||||
ON SELECTION BAR 1 OF Salarii421 DO BAR_1_OF_Salarii421_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Salarii421 PROMPT "\<Salarii contract" ;
|
||||
MESSAGE '4211:5311'
|
||||
ON SELECTION BAR 2 OF Salarii421 DO BAR_2_OF_Salarii421_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Salarii421 PROMPT "Salarii \<conventie" ;
|
||||
MESSAGE '4212:5311'
|
||||
ON SELECTION BAR 3 OF Salarii421 DO BAR_3_OF_Salarii421_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Salarii421 PROMPT "\<Datorii legate de personal" ;
|
||||
MESSAGE '4281/4282:5311'
|
||||
ON SELECTION BAR 4 OF Salarii421 DO BAR_4_OF_Salarii421_FB2P
|
||||
|
||||
DEFINE BAR "82080" OF Casaplati PROMPT "Concedii medicale C.A.S." ;
|
||||
MESSAGE '423 :5311'
|
||||
ON SELECTION BAR 82080 OF Casaplati DO BAR_"82080"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82090" OF Casaplati PROMPT "Avansuri salarii" ;
|
||||
MESSAGE '425 :5311'
|
||||
ON SELECTION BAR 82090 OF Casaplati DO BAR_"82090"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82110" OF Casaplati PROMPT "Drepturi neridicate" ;
|
||||
MESSAGE '426 :5311'
|
||||
ON SELECTION BAR 82110 OF Casaplati DO BAR_"82110"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 17 OF Casaplati PROMPT "\-"
|
||||
ON BAR 17 OF Casaplati ACTIVATE POPUP _saq0r5jfp
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0r5jfp SHORTCUT RELATIVE
|
||||
DEFINE BAR 18 OF Casaplati PROMPT "Plati impozite"
|
||||
ON SELECTION BAR 18 OF Casaplati DO BAR_18_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82140" OF Casaplati PROMPT "Plata alte impozite" ;
|
||||
MESSAGE '446 :5311'
|
||||
ON SELECTION BAR 82140 OF Casaplati DO BAR_"82140"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82160" OF Casaplati PROMPT "Plata tratamente" ;
|
||||
MESSAGE '423 :5311;6458:423 '
|
||||
ON SELECTION BAR 82160 OF Casaplati DO BAR_"82160"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82170" OF Casaplati PROMPT "Plata dividende" ;
|
||||
MESSAGE '457 :5311'
|
||||
ON SELECTION BAR 82170 OF Casaplati DO BAR_"82170"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82180" OF Casaplati PROMPT "Plata gratificatii" ;
|
||||
MESSAGE '424 :5311; 112:424'
|
||||
ON SELECTION BAR 82180 OF Casaplati DO BAR_"82180"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 23 OF Casaplati PROMPT "Plata deplasari" ;
|
||||
MESSAGE '625 :5311'
|
||||
ON SELECTION BAR 23 OF Casaplati DO BAR_23_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 24 OF Casaplati PROMPT "Plata amenzi, penalitati" ;
|
||||
MESSAGE '448X-5311'
|
||||
ON SELECTION BAR 24 OF Casaplati DO BAR_24_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 25 OF Casaplati PROMPT "Decontari in cadrul grupului" ;
|
||||
MESSAGE ' 4511 : 5311'
|
||||
ON SELECTION BAR 25 OF Casaplati lans(10523)
|
||||
|
||||
DEFINE BAR 26 OF Casaplati PROMPT "\-"
|
||||
ON BAR 26 OF Casaplati ACTIVATE POPUP _saq0r5jfq
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0r5jfq SHORTCUT RELATIVE
|
||||
DEFINE BAR "82190" OF Casaplati PROMPT "Cheltuieli de infiintare" ;
|
||||
MESSAGE '201 :5311'
|
||||
ON SELECTION BAR 82190 OF Casaplati DO BAR_"82190"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 28 OF Casaplati PROMPT "Cheltuieli in avans" ;
|
||||
MESSAGE '471:5311'
|
||||
ON SELECTION BAR 28 OF Casaplati DO BAR_28_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 29 OF Casaplati PROMPT "Plata garantii 267X" ;
|
||||
MESSAGE '2678 :5311'
|
||||
ON SELECTION BAR 29 OF Casaplati DO BAR_29_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 30 OF Casaplati PROMPT "\-"
|
||||
ON BAR 30 OF Casaplati ACTIVATE POPUP _54r0tqt1r
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _54r0tqt1r SHORTCUT RELATIVE
|
||||
DEFINE BAR 31 OF Casaplati PROMPT "Plati diverse 4xx/6xx" ;
|
||||
MESSAGE '4xx:5311'
|
||||
ON SELECTION BAR 31 OF Casaplati DO BAR_31_OF_Casaplati_FB2P
|
||||
ACTIVATE POPUP Casaplati
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_"82010"_OF_Casaplati_FB2P
|
||||
*DO MENIU82010
|
||||
lans(10338)
|
||||
ENDPROC && BAR_"82010"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Casaplati_FB2P
|
||||
lans(10339)
|
||||
*!* m.scd='581 '
|
||||
*!* m.scc='5311'
|
||||
|
||||
*!* do alfabeta with;
|
||||
*!* 'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do plCASA
|
||||
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_2_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Casaplati_FB2P
|
||||
lans(10450)
|
||||
*!* m.scd='581 '
|
||||
*!* m.scc='5311'
|
||||
|
||||
*!* do alfabeta with;
|
||||
*!* 'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do plCASA
|
||||
|
||||
*!* DO caut_alfa WITH 'casanume','casa','Casa destinatie','m.casa'
|
||||
*!* IF buton=2
|
||||
*!* DO sterge
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
|
||||
*!* m.nume_3=m.casa
|
||||
*!* l=m.scd
|
||||
*!* m.scd=m.scc
|
||||
*!* m.scc=l
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do inCASA
|
||||
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_3_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82020"_OF_Casaplati_FB2P
|
||||
*DO MENIU82020
|
||||
lans(10340)
|
||||
ENDPROC && BAR_"82020"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82100"_OF_Casaplati_FB2P
|
||||
*DO MENIU82100
|
||||
LANS(10344)
|
||||
ENDPROC && BAR_"82100"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Platifurni_FB2P
|
||||
LANS(10345)
|
||||
*!* m.scd='401 '
|
||||
*!* m.scc='5311 '
|
||||
*!* do alfabetaper with;
|
||||
*!* 'casapermul',;
|
||||
*!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ;
|
||||
*!* "NUMELE CASEI","CASANUME","CASA", ;
|
||||
*!* '','',"PLATA FURNIZOR", ;
|
||||
*!* "PLATA FURNIZOR",'c'
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* *M.COD=COD
|
||||
*!* *M.SUMA=TOTCTVA-achitat
|
||||
*!* *M.PERECHE=NRACT
|
||||
*!* *m.nract1=nract
|
||||
|
||||
*!* M.NUME_3=M.CASA
|
||||
*!* m.nract=numaract
|
||||
|
||||
*!* *DO CODARE
|
||||
*!* sele 0
|
||||
*!* use &loc\&nfscurt\tempo\actcv
|
||||
*!* sele actcv
|
||||
*!* scan for ales
|
||||
*!* M.PERECHE=NRACT
|
||||
*!* m.suma=sumaachi
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do plCASA
|
||||
*!* sele furnizor
|
||||
*!* if flock()
|
||||
*!* repl furnizor.platit with furnizor.platit+m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* endscan
|
||||
*!* use in actcv
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
ENDPROC && BAR_1_OF_Platifurni_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Platifurni_FB2P
|
||||
*DO MENIU82050
|
||||
LANS(10346)
|
||||
ENDPROC && BAR_2_OF_Platifurni_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Platifurni_FB2P
|
||||
PRIVATE pcACN, CN
|
||||
loCont = ret_cont("Selectati contul",'409') && ,4091,4092')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
CN = locont.cont
|
||||
PcACN = loCont.Acont
|
||||
LANS(10347)
|
||||
ENDPROC && BAR_3_OF_Platifurni_FB2P
|
||||
|
||||
PROCEDURE BAR_"82120"_OF_Casaplati_FB2P
|
||||
*DO MENIU82120
|
||||
lans(10348)
|
||||
ENDPROC && BAR_"82120"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82130"_OF_Casaplati_FB2P
|
||||
*DO MENIU82130
|
||||
lans(10349)
|
||||
ENDPROC && BAR_"82130"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Salarii421_FB2P
|
||||
lans(10350)
|
||||
*!* *____________________________________________________________________________________________
|
||||
*!* *PROCEDURE MENIU82070
|
||||
|
||||
*!* m.scd='421'
|
||||
*!* m.scc='5311'
|
||||
|
||||
*!* m.explicatia='PLATA SALARII CONTRACT'
|
||||
*!* oa=createo('actsimc')
|
||||
*!* oa.show(1)
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do plCASA
|
||||
*!* do sterge
|
||||
|
||||
*!* *RETURN
|
||||
ENDPROC && BAR_1_OF_Salarii421_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Salarii421_FB2P
|
||||
lans(10351)
|
||||
*!* *____________________________________________________________________________________________
|
||||
*!* *PROCEDURE MENIU82070
|
||||
|
||||
*!* m.scd='4211'
|
||||
*!* m.scc='5311'
|
||||
|
||||
*!* m.explicatia='PLATA SALARII CONTRACT'
|
||||
*!* oa=createo('actsimc')
|
||||
*!* oa.show(1)
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do plCASA
|
||||
*!* do sterge
|
||||
|
||||
*!* *RETURN
|
||||
ENDPROC && BAR_2_OF_Salarii421_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Salarii421_FB2P
|
||||
lans(10352)
|
||||
*!* m.scd='4212'
|
||||
*!* m.scc='5311'
|
||||
|
||||
*!* m.explicatia='PLATA SALARII CONVENTIE'
|
||||
*!* oa=createo('actsimc')
|
||||
*!* oa.show(1)
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do plCASA
|
||||
*!* do sterge
|
||||
ENDPROC && BAR_3_OF_Salarii421_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Salarii421_FB2P
|
||||
PRIVATE pcACN, CN
|
||||
loCont = ret_cont("Selectati contul",'4281,4282') && ,4091,4092')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
CN = locont.cont
|
||||
PcACN = loCont.Acont
|
||||
If CN='4281'
|
||||
LANS(10353)
|
||||
Else
|
||||
LANS(10579)
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
*LANS(10353)
|
||||
*!* m.scd='4281'
|
||||
*!* m.scc='5311'
|
||||
|
||||
*!* m.explicatia='Datorii legate de personal'
|
||||
*!* oa=createo('actsimc')
|
||||
*!* oa.show(1)
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do plCASA
|
||||
*!* do sterge
|
||||
ENDPROC && BAR_4_OF_Salarii421_FB2P
|
||||
|
||||
PROCEDURE BAR_"82080"_OF_Casaplati_FB2P
|
||||
*DO MENIU82080
|
||||
LANS(10354)
|
||||
ENDPROC && BAR_"82080"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82090"_OF_Casaplati_FB2P
|
||||
LANS(10355)
|
||||
*!* DO MENIU82090
|
||||
ENDPROC && BAR_"82090"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82110"_OF_Casaplati_FB2P
|
||||
LANS(10356)
|
||||
*DO MENIU82110
|
||||
ENDPROC && BAR_"82110"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_18_OF_Casaplati_FB2P
|
||||
lans(10468)
|
||||
IF buton=2
|
||||
DO deschid_actc
|
||||
RETURN
|
||||
ENDIF
|
||||
DO plati_impozite WITH 10468 IN ocont2003.prg
|
||||
|
||||
*!* lans(10468)
|
||||
*!* IF buton=2
|
||||
*!* DO deschid_actc
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
|
||||
|
||||
*!* IF USED('plimp')
|
||||
*!* USE IN plimp
|
||||
*!* ENDIF
|
||||
*!*
|
||||
*!* COPY FILE &DIRGEN\_ALFA\AN0000\DATE00\plimp.* to &LOC\&NFSCURT\TEMPO\plimp.*
|
||||
*!* DO des WITH 'PLIMP'
|
||||
*!*
|
||||
*!* SELE PLIMP
|
||||
*!* INDEX ON scd TAG scd OF &loc\&nfscurt\tempo\ZZZ
|
||||
*!* SET ORDER TO TAG scd
|
||||
|
||||
*!* REPL ALL SUMA WITH 0
|
||||
*!* * REPLACE ALL ascd WITH '', ascc WITH ''
|
||||
*!* REPL ALL NRACT WITH M.NRACT
|
||||
*!* REPL ALL scc WITH '5311' FOR INLIST(scc,'5121')
|
||||
|
||||
*!* GO TOP
|
||||
*!* oaf=CREATE('afisanaa')
|
||||
*!* oaf.SHOW(1)
|
||||
*!* m.NUME=''
|
||||
*!* SELE PLIMP
|
||||
*!* SUM SUMA TO M.SUMA
|
||||
|
||||
|
||||
*!* IF buton=2
|
||||
*!* DO deschid_actc
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
|
||||
*!*
|
||||
*!* SELECT PLIMP
|
||||
*!* SCAN FOR SUMA#0
|
||||
*!* SCATTER MEMVAR
|
||||
*!* SELECT actactan
|
||||
*!* GO top
|
||||
*!* SCATTER FIELDS id_set, nume_3, dataact, dataireg, fdoc MEMVAR
|
||||
*!* DELETE
|
||||
*!* APPEND BLANK
|
||||
*!* GATHER memv
|
||||
*!*
|
||||
*!* SCRIE_IN_FISIERE(' ')
|
||||
*!* SELECT PLIMP
|
||||
*!* ENDSCAN
|
||||
|
||||
*!* DO deschid_actc
|
||||
ENDPROC && BAR_18_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82140"_OF_Casaplati_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'446') && ,4461,4462,4463,4464,4465,4466,4467,4468,4469')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
|
||||
LANS(10357)
|
||||
ENDPROC && BAR_"82140"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82160"_OF_Casaplati_FB2P
|
||||
lans(10359)
|
||||
*DO MENIU82160
|
||||
ENDPROC && BAR_"82160"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82170"_OF_Casaplati_FB2P
|
||||
lans(10360)
|
||||
*DO MENIU82170
|
||||
ENDPROC && BAR_"82170"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82180"_OF_Casaplati_FB2P
|
||||
lans(10361)
|
||||
*DO MENIU82180
|
||||
ENDPROC && BAR_"82180"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_23_OF_Casaplati_FB2P
|
||||
lans(10362)
|
||||
*!* *ALFA='m.numeg=""'
|
||||
*!* *BETA='m.numeg=""'
|
||||
*!* *GAMA='m.numeg="PLATA GRATIFICATII"'
|
||||
|
||||
*!* m.scd='625 '
|
||||
*!* m.scc='5311 '
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'actsimc',;
|
||||
*!* '','','', ;
|
||||
*!* '','','', ;
|
||||
*!* '','',"PLATA DEPLASARI", ;
|
||||
*!* "PLATA DEPLASARI"
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do PLCASA
|
||||
|
||||
*!* do sterge
|
||||
|
||||
|
||||
ENDPROC && BAR_23_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_24_OF_Casaplati_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'448') &&,4481,4482')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10513)
|
||||
ENDPROC && BAR_24_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82190"_OF_Casaplati_FB2P
|
||||
lans(10363)
|
||||
*do MENIU82190
|
||||
ENDPROC && BAR_"82190"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_28_OF_Casaplati_FB2P
|
||||
LANS(10365)
|
||||
ENDPROC && BAR_28_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_29_OF_Casaplati_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul debitor 267X:5311",'267')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10583)
|
||||
ENDPROC && BAR_29_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_31_OF_Casaplati_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'4,6')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10632)
|
||||
ENDPROC && BAR_31_OF_Casaplati_FB2P
|
||||
|
||||
*</Procedures>
|
||||
513
Meniuri/casa3.mn2
Normal file
513
Meniuri/casa3.mn2
Normal file
@@ -0,0 +1,513 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="casa3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Casainvalu SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Casainvalu PROMPT "\<Incasari"
|
||||
ON BAR 1 OF Casainvalu ACTIVATE POPUP _08x0o1q7r
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _08x0o1q7r SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _08x0o1q7r PROMPT "Ridicat numerar din banca" ;
|
||||
MESSAGE '5314: 581; 581:5124'
|
||||
ON SELECTION BAR 1 OF _08x0o1q7r DO BAR_1_OF__08x0o1q7r_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _08x0o1q7r PROMPT "Restituire avans materiale" ;
|
||||
MESSAGE '5314: 542'
|
||||
ON SELECTION BAR 2 OF _08x0o1q7r DO BAR_2_OF__08x0o1q7r_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _08x0o1q7r PROMPT "Creditori diversi" ;
|
||||
MESSAGE '5314: 462'
|
||||
ON SELECTION BAR 3 OF _08x0o1q7r DO BAR_3_OF__08x0o1q7r_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _08x0o1q7r PROMPT "Asociati cont curent" ;
|
||||
MESSAGE ' 5314 : 4551'
|
||||
ON SELECTION BAR 4 OF _08x0o1q7r lans(10528)
|
||||
|
||||
DEFINE BAR 5 OF _08x0o1q7r PROMPT "Cumparare valuta" ;
|
||||
MESSAGE '5314 : 581; 581 : 5311'
|
||||
ON SELECTION BAR 5 OF _08x0o1q7r lans(10541)
|
||||
|
||||
DEFINE BAR 6 OF _08x0o1q7r PROMPT "\-"
|
||||
ON BAR 6 OF _08x0o1q7r ACTIVATE POPUP _1600zs4h9
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1600zs4h9 SHORTCUT RELATIVE
|
||||
DEFINE BAR 7 OF _08x0o1q7r PROMPT "Incasare clienti" ;
|
||||
MESSAGE '5314: 4111'
|
||||
ON SELECTION BAR 7 OF _08x0o1q7r DO BAR_7_OF__08x0o1q7r_FB2P
|
||||
|
||||
DEFINE BAR 8 OF _08x0o1q7r PROMPT "Incasare avans clienti" ;
|
||||
MESSAGE '5314: 419'
|
||||
ON SELECTION BAR 8 OF _08x0o1q7r DO BAR_8_OF__08x0o1q7r_FB2P
|
||||
|
||||
DEFINE BAR 9 OF _08x0o1q7r PROMPT "Incasare debitori diversi" ;
|
||||
MESSAGE '5314: 461'
|
||||
ON SELECTION BAR 9 OF _08x0o1q7r DO BAR_9_OF__08x0o1q7r_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Casainvalu PROMPT "\<Plati"
|
||||
ON BAR 2 OF Casainvalu ACTIVATE POPUP _08x0o1q7s
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _08x0o1q7s SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _08x0o1q7s PROMPT "Depunere numerar" ;
|
||||
MESSAGE '581 :5314;5124: 581'
|
||||
ON SELECTION BAR 1 OF _08x0o1q7s DO BAR_1_OF__08x0o1q7s_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _08x0o1q7s PROMPT "Acordare avans materiale" ;
|
||||
MESSAGE '542 :5314'
|
||||
ON SELECTION BAR 2 OF _08x0o1q7s DO BAR_2_OF__08x0o1q7s_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _08x0o1q7s PROMPT "Vanzare valuta" ;
|
||||
MESSAGE '5311:581 ; 581:5314'
|
||||
ON SELECTION BAR 3 OF _08x0o1q7s DO BAR_3_OF__08x0o1q7s_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _08x0o1q7s PROMPT "Plata deplasari" ;
|
||||
MESSAGE '625 : 5314'
|
||||
ON SELECTION BAR 4 OF _08x0o1q7s DO BAR_4_OF__08x0o1q7s_FB2P
|
||||
|
||||
DEFINE BAR 5 OF _08x0o1q7s PROMPT "Debitori diversi" ;
|
||||
MESSAGE '461 : 5314'
|
||||
ON SELECTION BAR 5 OF _08x0o1q7s DO BAR_5_OF__08x0o1q7s_FB2P
|
||||
|
||||
DEFINE BAR 6 OF _08x0o1q7s PROMPT "Asociati conturi curente" ;
|
||||
MESSAGE '4551:5314'
|
||||
ON SELECTION BAR 6 OF _08x0o1q7s lans(10529)
|
||||
|
||||
DEFINE BAR 7 OF _08x0o1q7s PROMPT "\-"
|
||||
ON BAR 7 OF _08x0o1q7s ACTIVATE POPUP _15s0ksn23
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _15s0ksn23 SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF _08x0o1q7s PROMPT "Plata furnizori 401" ;
|
||||
MESSAGE '401 :5314'
|
||||
ON SELECTION BAR 8 OF _08x0o1q7s DO BAR_8_OF__08x0o1q7s_FB2P
|
||||
|
||||
DEFINE BAR 9 OF _08x0o1q7s PROMPT "Plata furnizori imobilizari 404" ;
|
||||
MESSAGE '404 :5314'
|
||||
ON SELECTION BAR 9 OF _08x0o1q7s DO BAR_9_OF__08x0o1q7s_FB2P
|
||||
|
||||
DEFINE BAR 10 OF _08x0o1q7s PROMPT "Plata avansuri furnizori 409" ;
|
||||
MESSAGE '409 :5314'
|
||||
ON SELECTION BAR 10 OF _08x0o1q7s DO BAR_10_OF__08x0o1q7s_FB2P
|
||||
|
||||
DEFINE BAR 11 OF _08x0o1q7s PROMPT "Plata creditori diversi" ;
|
||||
MESSAGE '462 : 5314'
|
||||
ON SELECTION BAR 11 OF _08x0o1q7s DO BAR_11_OF__08x0o1q7s_FB2P
|
||||
ACTIVATE POPUP Casainvalu
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF__08x0o1q7r_FB2P
|
||||
*____________________________________________________________________________________________
|
||||
*PROCEDURE MENIU81010
|
||||
|
||||
lans(10427)
|
||||
*!* m.scd='5314 '
|
||||
*!* m.scc='581 '
|
||||
|
||||
*!* do alfabeta with;
|
||||
*!* 'casaV','NUMELE CASEI IN VALUTA','CASVNUME','NUME_5',;
|
||||
*!* "NUMELE BANCII IN VALUTA","BANVNUME","NUME_3",;
|
||||
*!* 'CURSUL VALUTAR','',"","DO CURS.SPR"
|
||||
*!* *
|
||||
|
||||
*!* M.NUME=''
|
||||
*!* M.NUME_2=''
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do INVALCASA
|
||||
*!* m.scd='581 '
|
||||
*!* m.scc='5124 '
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* DO PLVALBANCA
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
|
||||
ENDPROC && BAR_1_OF__08x0o1q7r_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__08x0o1q7r_FB2P
|
||||
lans(10430)
|
||||
*!* m.scd='5314'
|
||||
*!* m.scc='542 '
|
||||
|
||||
*!* do alfabeta with;
|
||||
*!* 'casaV',;
|
||||
*!* "NUMELE ACHIZITORULUI","ACHIT542","NUME_2",;
|
||||
*!* 'CASA IN VALUTA','CASVNUME','NUME_5',;
|
||||
*!* 'CURSUL VALUTAR','','', ;
|
||||
*!* 'do curs.spr'
|
||||
*!* m.nume_3=m.nume_2
|
||||
*!* M.NUME_2=''
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do inVALCASA
|
||||
|
||||
*!* SELE ACHIT542
|
||||
*!* REPLACE DAT WITH DAT+m.suma
|
||||
|
||||
*!* SELE ACT
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
|
||||
ENDPROC && BAR_2_OF__08x0o1q7r_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__08x0o1q7r_FB2P
|
||||
*____________________________________________________________________________________________
|
||||
*PROCEDURE MENIU81060
|
||||
lans(10501)
|
||||
*!* m.scd='5314 '
|
||||
*!* m.scc='462 '
|
||||
|
||||
*!* do alfabeta with;
|
||||
*!* 'casaV',;
|
||||
*!* "NUMELE CREDITORULUI","CREDITOR","NUME",;
|
||||
*!* 'CASA IN VALUTA','CASVNUME','NUME_5',;
|
||||
*!* 'CURSUL VALUTAR','','', ;
|
||||
*!* 'do curs.spr'
|
||||
*!* *
|
||||
*!* M.NUME_2=''
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do inVALCASA
|
||||
*!* SELE CREDITOR
|
||||
*!* REPLACE LUAT WITH LUAT +m.suma
|
||||
*!* SELE ACT
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
|
||||
ENDPROC && BAR_3_OF__08x0o1q7r_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF__08x0o1q7r_FB2P
|
||||
lans(10426)
|
||||
*!* *____________________________________________________________________________________________
|
||||
*!* *PROCEDURE MENIU86140
|
||||
*!* local sumacorecta,diferente
|
||||
*!* sTore 0 to sumacorecta,diferente
|
||||
*!* m.scd='5314 '
|
||||
*!* m.scc='411 '
|
||||
|
||||
*!* do alfabetaper with;
|
||||
*!* 'casaPERVAL',;
|
||||
*!* "NUMELE CLIENTULUI","CLIEnti","NUME", ;
|
||||
*!* "NUMELE CASEI IN VALUTA","CASvNUME","NUME_5", ;
|
||||
*!* 'CURSUL VALUTAR','','', ;
|
||||
*!* 'do curs.spr','v'
|
||||
*!* *
|
||||
*!* sumacorecta=m.suma*m.cursvechi/m.cursschimb
|
||||
*!* diferente=m.suma-sumacorecta
|
||||
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
|
||||
*!* *M.NUME_3=M.NUME_2
|
||||
*!* M.NUME_2=''
|
||||
|
||||
*!* LOCAL C
|
||||
*!* C=M.CURSSCHIMB
|
||||
*!* M.CURSSCHIMB=M.CURSVECHI
|
||||
*!* M.SUMA_3=M.CURSVECHI
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,sumacorecta,CLASAACT
|
||||
*!* M.CASA=M.NUME_5
|
||||
*!* DO INVALCASA
|
||||
|
||||
|
||||
*!* DO CASE
|
||||
*!* CASE diferente>0
|
||||
*!* m.explicatia='DIFERENTE FAVORABILE'
|
||||
*!* M.SUMA_3=C
|
||||
*!* M.CURSSCHIMB=C
|
||||
*!* M.SUMA_2=0
|
||||
*!* DO CONTABILIZEAZA WITH '5314','765 ',diferente,CLASAACT
|
||||
*!* M.SUMAVAL=0
|
||||
*!* DO INVALBANCA
|
||||
*!* CASE diferente<0
|
||||
*!* m.explicatia='DIFERENTE NEFAVORABILE'
|
||||
*!* M.SUMA_3=C
|
||||
*!* M.CURSSCHIMB=C
|
||||
*!* M.SUMA_2=0
|
||||
*!* DO CONTABILIZEAZA WITH '665 ','411',-diferente,CLASAACT
|
||||
*!* M.SUMAVAL=0
|
||||
*!* DO PLVALBANCA
|
||||
*!* endCASE
|
||||
|
||||
|
||||
|
||||
|
||||
*!* SELE CLIEnti
|
||||
*!* REPLACE CLIEnti.incasat WITH CLIEnti.incasat+m.suma
|
||||
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
|
||||
|
||||
ENDPROC && BAR_7_OF__08x0o1q7r_FB2P
|
||||
|
||||
PROCEDURE BAR_8_OF__08x0o1q7r_FB2P
|
||||
*____________________________________________________________________________________________
|
||||
*PROCEDURE MENIU86150
|
||||
lans(10428)
|
||||
*!* m.scd='5314'
|
||||
*!* m.scc='419 '
|
||||
|
||||
*!* do alfabeta with;
|
||||
*!* 'casAV',;
|
||||
*!* "NUMELE CLIENTULUI","CLIEnti","NUME", ;
|
||||
*!* "NUMELE CASEI IN VALUTA","CASvNUME","NUME_5", ;
|
||||
*!* 'CURSUL VALUTAR','','', ;
|
||||
*!* 'do curs.spr'
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* *M.NUME_3=M.NUME_2
|
||||
*!* M.NUME_2=''
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
|
||||
*!* M.CASA=M.NUME_5
|
||||
*!* DO INVALCASA
|
||||
*!* SELE clienti
|
||||
*!* REPLACE clienti.incasat WITH clienti.incasat+m.suma
|
||||
*!* do sterge
|
||||
ENDPROC && BAR_8_OF__08x0o1q7r_FB2P
|
||||
|
||||
PROCEDURE BAR_9_OF__08x0o1q7r_FB2P
|
||||
*____________________________________________________________________________________________
|
||||
*PROCEDURE MENIU81050
|
||||
*lans(10429)
|
||||
lans(10503)
|
||||
*!* m.scd='5314'
|
||||
*!* m.scc='461 '
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casaV',;
|
||||
*!* "NUMELE DEBITORULUI","DEBITOR","NUME",;
|
||||
*!* 'CASA IN VALUTA','CASVNUME','NUME_5',;
|
||||
*!* 'CURSUL VALUTAR','','', ;
|
||||
*!* 'do curs.spr'
|
||||
*!* *
|
||||
*!* M.NUME_2=''
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do inVALCASA
|
||||
*!* SELE DEBITOR
|
||||
*!* REPLACE DAT WITH DAT +m.suma
|
||||
*!* SELE ACT
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_9_OF__08x0o1q7r_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__08x0o1q7s_FB2P
|
||||
*____________________________________________________________________________________________
|
||||
*PROCEDURE MENIU82010
|
||||
lans(10431)
|
||||
*!* m.scd='581 '
|
||||
*!* m.scc='5314'
|
||||
*!* ***do casa.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'casaV',;
|
||||
*!* 'CASA IN VALUTA','CASVNUME','NUME_5',;
|
||||
*!* "BANCA IN VALUTA","BANVNUME","NUME_3",;
|
||||
*!* 'CURSUL VALUTAR','',"","DO CURS.SPR"
|
||||
*!*
|
||||
*!*
|
||||
*!* *
|
||||
*!* M.NUME=''
|
||||
*!* M.NUME_2=''
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* M.CASA=M.NUME_5
|
||||
*!* do PLVALCASA
|
||||
*!* m.scd='5124'
|
||||
*!* m.scc='581 '
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* M.BANCA=M.NUME_3
|
||||
*!* DO INVALBANCA
|
||||
*!* do sterge
|
||||
ENDPROC && BAR_1_OF__08x0o1q7s_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__08x0o1q7s_FB2P
|
||||
lans(10432)
|
||||
*!* m.scd='542 '
|
||||
*!* m.scc='5314'
|
||||
|
||||
*!* do alfabeta with;
|
||||
*!* 'casaV',;
|
||||
*!* "NUMELE ACHIZITORULUI","ACHIT542","NUME_2",;
|
||||
*!* 'CASA IN VALUTA','CASVNUME','NUME_5',;
|
||||
*!* 'CURSUL VALUTAR','',"",;
|
||||
*!* "DO CURS.SPR"
|
||||
*!* *
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* M.NUME=M.NUME_2
|
||||
*!* M.NUME_2=''
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do plVALCASA
|
||||
*!* repl ACHIT542.LUAT with ACHIT542.LUAT+m.suma
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_2_OF__08x0o1q7s_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__08x0o1q7s_FB2P
|
||||
*____________________________________________________________________________________________
|
||||
*PROCEDURE MENIU86240
|
||||
lans(10437)
|
||||
*!* m.scd='5311 '
|
||||
*!* m.scc='581 '
|
||||
*!* ***do CASA.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'CASAV',;
|
||||
*!* "CASA IN VALUTA","CASVNUME","NUME_5", ;
|
||||
*!* "CASA IN LEI","CASANUME","CASA", ;
|
||||
*!* 'CURSUL VALUTAR','','', ;
|
||||
*!* 'do curs.spr'
|
||||
*!* *
|
||||
|
||||
*!* M.NUME_3=M.CASA
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* m.nume_2=''
|
||||
*!* m.nume=''
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* *M.CASA=M.NUME_3
|
||||
*!* DO INCASA
|
||||
*!* m.scd='581 '
|
||||
*!* m.scc='5314 '
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* M.CASA=M.NUME_5
|
||||
*!* DO PLVALCASA
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_3_OF__08x0o1q7s_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF__08x0o1q7s_FB2P
|
||||
lans(10486)
|
||||
ENDPROC && BAR_4_OF__08x0o1q7s_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF__08x0o1q7s_FB2P
|
||||
lans(10502)
|
||||
ENDPROC && BAR_5_OF__08x0o1q7s_FB2P
|
||||
|
||||
PROCEDURE BAR_8_OF__08x0o1q7s_FB2P
|
||||
*____________________________________________________________________________________________
|
||||
*PROCEDURE MENIU86210
|
||||
lans(10434)
|
||||
*!* m.scd='401 '
|
||||
*!* m.scc='5314'
|
||||
*!* ***do BANCA.spr
|
||||
*!* do alfabetaper with;
|
||||
*!* 'CASAperval',;
|
||||
*!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ;
|
||||
*!* "NUMELE CASEI IN VALUTA","CASVNUME","NUME_5", ;
|
||||
*!* 'CURSUL VALUTAR','','', ;
|
||||
*!* 'do curs.spr','c'
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* m.nume_3=''
|
||||
*!* m.nume_2=''
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* M.CASA=M.NUME_5
|
||||
*!* do plVALCASA
|
||||
|
||||
*!* SELE FURNIZOR
|
||||
*!* repl furnizor.platit with furnizor.platit+m.suma
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_8_OF__08x0o1q7s_FB2P
|
||||
|
||||
PROCEDURE BAR_9_OF__08x0o1q7s_FB2P
|
||||
lans(10435)
|
||||
*!* m.scd='404 '
|
||||
*!* m.scc='5314 '
|
||||
|
||||
*!* do alfabetaper with;
|
||||
*!* 'CASAperval',;
|
||||
*!* "NUMELE FURNIZORULUI","FURNIZ404","NUME", ;
|
||||
*!* "NUMELE CASEI IN VALUTA","CASVNUME","NUME_5", ;
|
||||
*!* 'CURSUL VALUTAR','','', ;
|
||||
*!* 'do curs.spr','p'
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* m.nume_3=''
|
||||
*!* m.nume_2=''
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* M.CASA=M.NUME_5
|
||||
*!* do plVALCASA
|
||||
|
||||
*!* SELE FURNIZ404
|
||||
*!* repl platit with platit+m.suma
|
||||
*!* do sterge
|
||||
ENDPROC && BAR_9_OF__08x0o1q7s_FB2P
|
||||
|
||||
PROCEDURE BAR_10_OF__08x0o1q7s_FB2P
|
||||
PRIVATE pcACN, CN
|
||||
loCont = ret_cont("Selectati contul",'409') &&,4091,4092')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
CN = locont.cont
|
||||
PcACN = loCont.Acont
|
||||
lans(10436)
|
||||
ENDPROC && BAR_10_OF__08x0o1q7s_FB2P
|
||||
|
||||
PROCEDURE BAR_11_OF__08x0o1q7s_FB2P
|
||||
Lans(10504)
|
||||
ENDPROC && BAR_11_OF__08x0o1q7s_FB2P
|
||||
|
||||
*</Procedures>
|
||||
46
Meniuri/cheltavans.mn2
Normal file
46
Meniuri/cheltavans.mn2
Normal file
@@ -0,0 +1,46 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="cheltavans.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Cheltuieli SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Cheltuieli PROMPT "Balanta cheltuieli in avans"
|
||||
ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Cheltuieli PROMPT "Situatia analitica a cheltuielilor in avans"
|
||||
ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P
|
||||
ACTIVATE POPUP Cheltuieli
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Cheltuieli_FB2P
|
||||
DO lans_balanta_parteneri WITH "471",.T. IN OPARTENERI.prg
|
||||
ENDPROC && BAR_1_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Cheltuieli_FB2P
|
||||
*!* PRIVATE pcAcont, pnCumul, pnact1, pnact2
|
||||
*!* STORE '' TO pcAcont
|
||||
*!* STORE 0 TO pnCumul, pnact1, pnact2
|
||||
|
||||
*!* IF USED('xavans')
|
||||
*!* USE IN xavans
|
||||
*!* ENDIF
|
||||
|
||||
*!* USE &date\chavans.dbf again IN 0 SHARED ALIAS xavans
|
||||
*!* SELECT xavans
|
||||
*!* oavans=CREATEOBJECT('ch_ven_avans')
|
||||
*!* oavans.cont='scd'
|
||||
*!* oavans.show(1)
|
||||
|
||||
*!* USE IN xavans
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
DO lans_ireg_parteneri WITH .F.,'471',.T.
|
||||
ENDPROC && BAR_2_OF_Cheltuieli_FB2P
|
||||
|
||||
*</Procedures>
|
||||
198
Meniuri/cheltuieli1.mn2
Normal file
198
Meniuri/cheltuieli1.mn2
Normal file
@@ -0,0 +1,198 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="cheltuieli1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Cheltuieli SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR "71010" OF Cheltuieli PROMPT "Materii prime 601" ;
|
||||
MESSAGE '601 :301 '
|
||||
ON SELECTION BAR 71010 OF Cheltuieli DO BAR_"71010"_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR "71020" OF Cheltuieli PROMPT "Materiale auxiliare 6021" ;
|
||||
MESSAGE '6021:3021'
|
||||
ON SELECTION BAR 71020 OF Cheltuieli DO BAR_"71020"_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR "71030" OF Cheltuieli PROMPT "Combustibili 6022" ;
|
||||
MESSAGE '6022:3022'
|
||||
ON SELECTION BAR 71030 OF Cheltuieli DO BAR_"71030"_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR "71040" OF Cheltuieli PROMPT "Materiale pt. ambalat 6023" ;
|
||||
MESSAGE '6023:3023'
|
||||
ON SELECTION BAR 71040 OF Cheltuieli DO BAR_"71040"_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR "71050" OF Cheltuieli PROMPT "Piese de schimb 6024" ;
|
||||
MESSAGE '6024:3024'
|
||||
ON SELECTION BAR 71050 OF Cheltuieli DO BAR_"71050"_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR "71090" OF Cheltuieli PROMPT "Alte materiale 6028" ;
|
||||
MESSAGE '6028:3028'
|
||||
ON SELECTION BAR 71090 OF Cheltuieli DO BAR_"71090"_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Cheltuieli PROMPT "\-"
|
||||
ON BAR 7 OF Cheltuieli ACTIVATE POPUP _1170vp6f7
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1170vp6f7 SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF Cheltuieli PROMPT "Obiecte de inventar 603" ;
|
||||
MESSAGE '603 :303 '
|
||||
ON SELECTION BAR 8 OF Cheltuieli DO BAR_8_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR 9 OF Cheltuieli PROMPT "\-"
|
||||
ON BAR 9 OF Cheltuieli ACTIVATE POPUP _1170vp6f8
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1170vp6f8 SHORTCUT RELATIVE
|
||||
DEFINE BAR 10 OF Cheltuieli PROMPT "\<Marfuri"
|
||||
ON SELECTION BAR 10 OF Cheltuieli DO BAR_10_OF_Cheltuieli_FB2P
|
||||
ACTIVATE POPUP Cheltuieli
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_"71010"_OF_Cheltuieli_FB2P
|
||||
*!* DO BONARE WITH '601 ','301 ','CHELTMAT'
|
||||
lans(10287)
|
||||
ENDPROC && BAR_"71010"_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_"71020"_OF_Cheltuieli_FB2P
|
||||
*DO BONARE WITH '6021 ','3021 ','CHELTMAT'
|
||||
lans(10288)
|
||||
ENDPROC && BAR_"71020"_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_"71030"_OF_Cheltuieli_FB2P
|
||||
lans(10289)
|
||||
*DO BONARE WITH '6022 ','3022 ','CHELTMAT'
|
||||
ENDPROC && BAR_"71030"_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_"71040"_OF_Cheltuieli_FB2P
|
||||
lans(10290)
|
||||
*DO BONARE WITH '6023 ','3023 ','CHELTMAT'
|
||||
ENDPROC && BAR_"71040"_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_"71050"_OF_Cheltuieli_FB2P
|
||||
lans(10291)
|
||||
*DO BONARE WITH '6024 ','3024 ','CHELTMAT'
|
||||
ENDPROC && BAR_"71050"_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_"71090"_OF_Cheltuieli_FB2P
|
||||
lans(10292)
|
||||
*DO BONARE WITH '6028 ','3028 ','CHELTMAT'
|
||||
ENDPROC && BAR_"71090"_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_8_OF_Cheltuieli_FB2P
|
||||
lans(10293)
|
||||
*!* DO BONARE303 WITH '603 ','303 ','CHELTMAT'
|
||||
|
||||
*!* *____________________________________________________________
|
||||
*!* PROCEDURE bonare303
|
||||
*!* PARAMETERS m.SCD1,m.SCC1,CLASAACT
|
||||
*!* *_______________DO CHELTMAT.SPR
|
||||
*!* oc=createobj(CLASAACT)
|
||||
*!* oc.show(1)
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* m.NNIR=M.NRACT
|
||||
*!* m.SCD=subs(M.SCC1,1,4)
|
||||
|
||||
*!* ob=createobj('BON')
|
||||
*!* ob.show(1)
|
||||
*!* *do form bon1
|
||||
*!* *
|
||||
*!* SELE STOC
|
||||
*!* SET filter to
|
||||
*!* m.SCD=M.SCD1
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
|
||||
*!* SELECT iesiri
|
||||
*!* GO top
|
||||
*!* m.scc1=scd
|
||||
*!* DO CONTABILIZEAZA WITH m.SCD1,m.SCC1,M.TOTVALOARE,CLASAACT
|
||||
*!* SELE LUCRARI
|
||||
*!* *LOCATE FOR nume_2=M.nume
|
||||
*!* IF !EMPTY(M.NRORD)
|
||||
*!* LOCATE FOR NRORD=M.NRORD
|
||||
*!* IF FOUND()
|
||||
*!* IF flock()
|
||||
*!* REPLACE LUCRARI.MATERIALE WITH LUCRARI.MATERIALE+M.TOTVALOARE
|
||||
*!* ENDIF
|
||||
*!* UNLOCK
|
||||
*!* ELSE
|
||||
*!* SELE LUCRARI
|
||||
*!* IF flock()
|
||||
*!* APPE BLAN
|
||||
*!* GATH MEMV
|
||||
*!* ENDIF
|
||||
*!* UNLOCK
|
||||
*!* ENDIF
|
||||
*!* ENDIF
|
||||
|
||||
*!* SELE RESPONS
|
||||
*!* *LOCATE FOR nume_2=M.nume_2
|
||||
*!* LOCA FOR NUME_2=M.NRESP
|
||||
*!* IF flock()
|
||||
*!* REPLACE RESPONS.MATERIALE WITH RESPONS.MATERIALE+m.TOTVALOARE
|
||||
*!* ENDIF
|
||||
*!* UNLOCK
|
||||
*!* SELE STOC
|
||||
*!* m.SCD=subs(m.SCC1,1,4)
|
||||
*!* DO IESTOCURIMAGAZII
|
||||
*!* m.NNIR=M.NRACT
|
||||
*!* DO IERULAJMAGAZII
|
||||
|
||||
*!* SET SAFETY OFF
|
||||
*!* SELECT intrari
|
||||
*!* ZAP
|
||||
|
||||
*!* SELECT iesiri
|
||||
*!* SCAN
|
||||
*!* SCATTER FIELDS denumire, codmat, cante,pret,gest memv
|
||||
*!* SELECT intrari
|
||||
*!* APPEND BLANK
|
||||
*!* m.cant=m.cante
|
||||
*!* GATHER FIELDS denumire, codmat, pret,gest,cant memv
|
||||
*!* SELECT iesiri
|
||||
*!* endscan
|
||||
|
||||
*!* SELECT intrari
|
||||
*!* REPLACE ALL scd WITH '8039'
|
||||
|
||||
*!* DO inrulajmagazii
|
||||
*!* DO instocurimagazii
|
||||
|
||||
|
||||
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* *********************************
|
||||
ENDPROC && BAR_8_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_10_OF_Cheltuieli_FB2P
|
||||
LOCAL lnRaspuns
|
||||
lnRaspuns = 6
|
||||
|
||||
DO WHILE lnRaspuns = 6
|
||||
lans(10581)
|
||||
if buton = 2
|
||||
return
|
||||
ENDIF
|
||||
DO introducere_compacta WITH 'achi_mat','','',.F.,.F.,'Cheltuieli cu marfa','',10581
|
||||
IF buton=1
|
||||
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
|
||||
ELSE
|
||||
lnRaspuns = 7
|
||||
ENDIF
|
||||
ENDDO
|
||||
ENDPROC && BAR_10_OF_Cheltuieli_FB2P
|
||||
|
||||
*</Procedures>
|
||||
210
Meniuri/cheltuieli2.mn2
Normal file
210
Meniuri/cheltuieli2.mn2
Normal file
@@ -0,0 +1,210 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="cheltuieli2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Cheltuieli SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Cheltuieli PROMPT "Tichete combustibili" ;
|
||||
MESSAGE '6022:5328'
|
||||
ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Cheltuieli PROMPT "Tichete de masa" ;
|
||||
MESSAGE '6422:5328'
|
||||
ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Cheltuieli PROMPT "Alte impozite si taxe"
|
||||
ON BAR 3 OF Cheltuieli ACTIVATE POPUP Alteimpozi
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Alteimpozi SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Alteimpozi PROMPT "Prorata" ;
|
||||
MESSAGE '635 : 4426 '
|
||||
ON SELECTION BAR 1 OF Alteimpozi DO BAR_1_OF_Alteimpozi_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Alteimpozi PROMPT "TVA colectat" ;
|
||||
MESSAGE '635 : 4427'
|
||||
ON SELECTION BAR 2 OF Alteimpozi DO BAR_2_OF_Alteimpozi_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Alteimpozi PROMPT "Decontari cu bugetul statului" ;
|
||||
MESSAGE '635 : 446'
|
||||
ON BAR 3 OF Alteimpozi ACTIVATE POPUP Decontaric
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Decontaric SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Decontaric PROMPT "In Lei"
|
||||
ON SELECTION BAR 1 OF Decontaric DO BAR_1_OF_Decontaric_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Decontaric PROMPT "In Valuta"
|
||||
ON SELECTION BAR 2 OF Decontaric DO BAR_2_OF_Decontaric_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Alteimpozi PROMPT "Taxe si varsaminte asimilate" ;
|
||||
MESSAGE '635 : 447'
|
||||
ON SELECTION BAR 4 OF Alteimpozi DO BAR_4_OF_Alteimpozi_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Cheltuieli PROMPT "Constituire penalitati, amenda" ;
|
||||
MESSAGE '6581 : 448X'
|
||||
ON SELECTION BAR 4 OF Cheltuieli DO BAR_4_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Cheltuieli PROMPT "\-"
|
||||
ON BAR 5 OF Cheltuieli ACTIVATE POPUP _0xs0vxqhk
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0xs0vxqhk SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF Cheltuieli PROMPT " Repunere chetuieli in avans" ;
|
||||
MESSAGE '6xx :471 '
|
||||
ON SELECTION BAR 6 OF Cheltuieli DO BAR_6_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Cheltuieli PROMPT " Repunere chetuieli in avans - toate cu rate"
|
||||
ON SELECTION BAR 7 OF Cheltuieli do repunere_venchelt_avans with '471' in ocont2003.prg
|
||||
|
||||
DEFINE BAR 8 OF Cheltuieli PROMPT "\-"
|
||||
ON BAR 8 OF Cheltuieli ACTIVATE POPUP NewItem
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
||||
DEFINE BAR 9 OF Cheltuieli PROMPT "Sconturi acordate clientilor 667" ;
|
||||
MESSAGE '667-4111'
|
||||
ON SELECTION BAR 9 OF Cheltuieli lans(10326)
|
||||
|
||||
DEFINE BAR 10 OF Cheltuieli PROMPT "Reduceri comerciale acordate 709" ;
|
||||
MESSAGE '709-4111; 4111-4427'
|
||||
ON SELECTION BAR 10 OF Cheltuieli lans(10605)
|
||||
ACTIVATE POPUP Cheltuieli
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Cheltuieli_FB2P
|
||||
lans(10294)
|
||||
*!* DO STERGE
|
||||
*!* m.SCD='6022'
|
||||
*!* m.SCC='5328'
|
||||
*!* ***do casa.spr
|
||||
*!* Do alfabeta With;
|
||||
*!* 'casa',;
|
||||
*!* "","","", ;
|
||||
*!* '','','', ;
|
||||
*!* '','','TICHETE COMBUSTIBILI', ;
|
||||
*!* ''
|
||||
*!* *
|
||||
*!* If BUTON=2
|
||||
*!* Do STERGE
|
||||
*!* Return
|
||||
*!* Endif
|
||||
*!* Do CODARE
|
||||
*!* Do CONTABILIZEAZA With m.SCD,m.SCC,M.suma,CLASAACT
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_1_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Cheltuieli_FB2P
|
||||
lans(10295)
|
||||
*!* DO STERGE
|
||||
|
||||
*!* m.SCD='604 '
|
||||
*!* m.SCC='5328'
|
||||
*!* ***do casa.spr
|
||||
*!* Do alfabeta With;
|
||||
*!* 'casa',;
|
||||
*!* "","","", ;
|
||||
*!* '','','', ;
|
||||
*!* '','','TICHETE DE MASA', ;
|
||||
*!* ''
|
||||
*!* *
|
||||
*!* If BUTON=2
|
||||
*!* Do STERGE
|
||||
*!* Return
|
||||
*!* Endif
|
||||
*!* Do CODARE
|
||||
*!* Do CONTABILIZEAZA With m.SCD,m.SCC,M.suma,CLASAACT
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_2_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Alteimpozi_FB2P
|
||||
lans(10477)
|
||||
ENDPROC && BAR_1_OF_Alteimpozi_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Alteimpozi_FB2P
|
||||
lans(10478)
|
||||
ENDPROC && BAR_2_OF_Alteimpozi_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Decontaric_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'446') &&,4461,4462,4463,4464,4465,4466,4467,4468,4469')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
|
||||
lans(10479)
|
||||
ENDPROC && BAR_1_OF_Decontaric_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Decontaric_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'446') &&,4461,4462,4463,4464,4465,4466,4467,4468,4469')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
|
||||
lans(10542)
|
||||
ENDPROC && BAR_2_OF_Decontaric_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Alteimpozi_FB2P
|
||||
lans(10480)
|
||||
ENDPROC && BAR_4_OF_Alteimpozi_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Cheltuieli_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'448') &&,4481,4482')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
|
||||
lans(10358)
|
||||
ENDPROC && BAR_4_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Cheltuieli_FB2P
|
||||
*!* SELE BAL
|
||||
*!* GO TOP
|
||||
*!* OS=crea('selcont')
|
||||
*!* OS.show(1)
|
||||
*!* IF BUTON=2
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul debitor 6XX = 471",'6')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10411)
|
||||
ENDPROC && BAR_6_OF_Cheltuieli_FB2P
|
||||
|
||||
*</Procedures>
|
||||
136
Meniuri/clienti1.mn2
Normal file
136
Meniuri/clienti1.mn2
Normal file
@@ -0,0 +1,136 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="clienti1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Clienti PROMPT "Venituri din vanzari/servicii" ;
|
||||
MESSAGE '4111-7XX ; 4111-4427'
|
||||
ON SELECTION BAR 1 OF Clienti DO BAR_1_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Clienti PROMPT "Inregistrare facturare avansuri" ;
|
||||
MESSAGE '4111-419;4111-4427'
|
||||
ON SELECTION BAR 2 OF Clienti DO BAR_2_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Clienti PROMPT "Inregistrare venituri in avans" ;
|
||||
MESSAGE '4111-472;4111-4427'
|
||||
ON SELECTION BAR 3 OF Clienti DO BAR_3_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Clienti PROMPT "\-"
|
||||
ON BAR 4 OF Clienti ACTIVATE POPUP _09c1af6yl
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _09c1af6yl SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Clienti PROMPT "Clienti externi"
|
||||
ON BAR 5 OF Clienti ACTIVATE POPUP Facturinei
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Facturinei SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Facturinei PROMPT "\<Prestari servicii" ;
|
||||
MESSAGE '4111-X'
|
||||
ON SELECTION BAR 1 OF Facturinei DO BAR_1_OF_Facturinei_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Clienti PROMPT "\-"
|
||||
ON BAR 6 OF Clienti ACTIVATE POPUP _40n0of2zm
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _40n0of2zm SHORTCUT RELATIVE
|
||||
DEFINE BAR 7 OF Clienti PROMPT "Constituire garantii 462"
|
||||
ON SELECTION BAR 7 OF Clienti DO BAR_7_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Clienti PROMPT "\-"
|
||||
ON BAR 8 OF Clienti ACTIVATE POPUP _1381ddz8n
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1381ddz8n SHORTCUT RELATIVE
|
||||
DEFINE BAR 9 OF Clienti PROMPT "Sconturi acordate clientilor" ;
|
||||
MESSAGE '667-4111'
|
||||
ON SELECTION BAR 9 OF Clienti lans(10326)
|
||||
|
||||
DEFINE BAR 10 OF Clienti PROMPT "Reduceri comerciale acordate 709" ;
|
||||
MESSAGE '709-4111; 4111-4427'
|
||||
ON SELECTION BAR 10 OF Clienti lans(10605)
|
||||
|
||||
DEFINE BAR 11 OF Clienti PROMPT "\-"
|
||||
ON BAR 11 OF Clienti ACTIVATE POPUP _4pi12bm3a
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _4pi12bm3a SHORTCUT RELATIVE
|
||||
DEFINE BAR 12 OF Clienti PROMPT "Factura anulata" ;
|
||||
MESSAGE '4111 = 707 Creare document anulat cu suma 0 pentru D394'
|
||||
ON SELECTION BAR 12 OF Clienti lans(99996)
|
||||
|
||||
DEFINE BAR 13 OF Clienti PROMPT "\-"
|
||||
ON BAR 13 OF Clienti ACTIVATE POPUP _6tz10qrp2
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _6tz10qrp2 SHORTCUT RELATIVE
|
||||
DEFINE BAR 14 OF Clienti PROMPT "Import eFactura trimise"
|
||||
ON SELECTION BAR 14 OF Clienti do importEfacturaTrimise in import_efactura.prg
|
||||
ACTIVATE POPUP Clienti
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Clienti_FB2P
|
||||
LOCAL lnRaspuns
|
||||
lnRaspuns = 6
|
||||
|
||||
DO WHILE lnRaspuns = 6
|
||||
lans(10464)
|
||||
if buton = 2
|
||||
return
|
||||
ENDIF
|
||||
DO introducere_compacta WITH 'achi_mat','4111','',.t.,.t.,'Venituri din vanzari - Clienti 4111','4427',10464
|
||||
IF buton=1
|
||||
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
|
||||
ELSE
|
||||
lnRaspuns = 7
|
||||
ENDIF
|
||||
ENDDO
|
||||
ENDPROC && BAR_1_OF_Clienti_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Clienti_FB2P
|
||||
lans(10470)
|
||||
ENDPROC && BAR_2_OF_Clienti_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Clienti_FB2P
|
||||
lans(10471)
|
||||
ENDPROC && BAR_3_OF_Clienti_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Facturinei_FB2P
|
||||
|
||||
|
||||
*!* SELE BAL
|
||||
*!* GO TOP
|
||||
*!* OS=CREA('SELCONT')
|
||||
*!* OS.SHOW(1)
|
||||
*!* IF BUTON=2
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'7,419')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
|
||||
lans(10327)
|
||||
ENDPROC && BAR_1_OF_Facturinei_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF_Clienti_FB2P
|
||||
lans(10615)
|
||||
ENDPROC && BAR_7_OF_Clienti_FB2P
|
||||
|
||||
*</Procedures>
|
||||
30
Meniuri/clienti2.mn2
Normal file
30
Meniuri/clienti2.mn2
Normal file
@@ -0,0 +1,30 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="clienti2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Clientiinc SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Clientiinc PROMPT "Cresterea creantelor"
|
||||
ON BAR 1 OF Clientiinc ACTIVATE POPUP _09b0utqd8
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _09b0utqd8 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _09b0utqd8 PROMPT "Clienti incerti" ;
|
||||
MESSAGE '4118 :4111'
|
||||
ON SELECTION BAR 1 OF _09b0utqd8 lans(10416)
|
||||
|
||||
DEFINE BAR 2 OF Clientiinc PROMPT "Diminuarea creantelor"
|
||||
ON BAR 2 OF Clientiinc ACTIVATE POPUP Diminuarea
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Diminuarea SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Diminuarea PROMPT "\<Sume trecute pe pierderi" ;
|
||||
MESSAGE '654 :4118;4118:4427'
|
||||
ON SELECTION BAR 1 OF Diminuarea lans(10422)
|
||||
ACTIVATE POPUP Clientiinc
|
||||
|
||||
*</MenuCode>
|
||||
303
Meniuri/clienti3.mn2
Normal file
303
Meniuri/clienti3.mn2
Normal file
@@ -0,0 +1,303 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="clienti3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Clienti PROMPT "Regularizare facturi neintocmite" ;
|
||||
MESSAGE '4111 :418 ; 4428:4427'
|
||||
ON SELECTION BAR 1 OF Clienti DO BAR_1_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Clienti PROMPT "Regularizare clienti creditori"
|
||||
ON SELECTION BAR 2 OF Clienti DO BAR_2_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Clienti PROMPT "\<Regularizare clienti externi creditori" ;
|
||||
MESSAGE '419:4111'
|
||||
ON SELECTION BAR 3 OF Clienti DO BAR_3_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Clienti PROMPT "\-"
|
||||
ON BAR 4 OF Clienti ACTIVATE POPUP _40i0phplc
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _40i0phplc SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Clienti PROMPT "Compensare facturi client - lei" ;
|
||||
MESSAGE '5121:4111'
|
||||
ON SELECTION BAR 5 OF Clienti lans(10613)
|
||||
|
||||
DEFINE BAR 6 OF Clienti PROMPT "Compensare facturi clienti - valuta" ;
|
||||
MESSAGE '5124 : 4111,461'
|
||||
ON SELECTION BAR 6 OF Clienti DO BAR_6_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Clienti PROMPT "\-"
|
||||
ON BAR 7 OF Clienti ACTIVATE POPUP _7ey0nygcs
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _7ey0nygcs SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF Clienti PROMPT "Compensare avansuri client - lei" ;
|
||||
MESSAGE '419 : 5121'
|
||||
ON SELECTION BAR 8 OF Clienti lans(10621)
|
||||
|
||||
DEFINE BAR 9 OF Clienti PROMPT "Compensare avansuri clienti - valuta" ;
|
||||
MESSAGE '419 : 5124'
|
||||
ON SELECTION BAR 9 OF Clienti lans_generic(10658,"419")
|
||||
ACTIVATE POPUP Clienti
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Clienti_FB2P
|
||||
lans(10325)
|
||||
|
||||
IF gnButon = 2
|
||||
IF USED('actactan')
|
||||
USE IN actactan
|
||||
ENDIF
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
SELECT actactan
|
||||
*!* modificare v 2.4.25 : am pus GO TOP deoarece, daca avea si nota cu 4428 - 4427, atunci copia datele de pe aceasta nota
|
||||
*!* si aveam id_fact de la factura, in loc de cel de la nota actuala
|
||||
*!* GO BOTTOM
|
||||
Go Top
|
||||
*!* modificare v 2.4.25 ^
|
||||
SCATTER FIELDS EXCEPT id_factd, id_factc,pereched,perechec, id_partd, id_partc, partd, partc,id_jtva_coloana,proc_tva,taxcode,taxname NAME otemp
|
||||
|
||||
*!* SELECT DISTINCT proc_tva FROM actactan WHERE !INLIST(proc_tva,1,0) AND scc = '418 ' INTO CURSOR procent
|
||||
SELECT distinct a.id_jtva_coloana,(b.cota_tva+100)/100 as proc_tva,b.id_tva, a.taxcode,a.taxname FROM actactan a JOIN jtva_coloane b ;
|
||||
ON a.id_jtva_coloana = b.id_jtva_coloana WHERE b.cota_tva <> 0 AND ALLTRIM(a.scc) = '418' INTO CURSOR procent
|
||||
|
||||
IF _tally#0
|
||||
SELECT procent
|
||||
SCAN
|
||||
SCATTER NAME oproc
|
||||
SELECT actactan
|
||||
SUM suma TO lnsuma FOR id_jtva_coloana=oproc.id_jtva_coloana AND ALLTRIM(scc)='418'
|
||||
SELECT actactan
|
||||
APPEND BLANK
|
||||
GATHER NAME otemp
|
||||
replace id_jtva_coloana WITH oproc.id_tva,proc_tva WITH oproc.proc_tva, taxcode WITH oproc.taxcode, taxname WITH oproc.taxname
|
||||
*!* REPLACE scd WITH '4428',scc WITH '4427',
|
||||
REPLACE scd WITH '4428',scc WITH iif(inlist(id_jtva_coloana, 22, 24, 26), '4428', '4427')
|
||||
|
||||
REPLACE suma WITH ROUND(LnSuma*(oproc.proc_tva-1)/oproc.proc_tva,gnPc)
|
||||
|
||||
SELECT procent
|
||||
ENDSCAN
|
||||
ENDIF
|
||||
|
||||
SELECT actactan
|
||||
GO TOP
|
||||
DO FORM verificare
|
||||
|
||||
IF gnButon=1
|
||||
oscrie_in_fisiere()
|
||||
ENDIF
|
||||
|
||||
IF USED('actactan')
|
||||
USE IN actactan
|
||||
ENDIF
|
||||
IF USED('procent')
|
||||
USE IN procent
|
||||
ENDIF
|
||||
ENDPROC && BAR_1_OF_Clienti_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Clienti_FB2P
|
||||
lans(10421)
|
||||
|
||||
|
||||
IF gnButon = 2
|
||||
IF USED('actactan')
|
||||
USE IN actactan
|
||||
ENDIF
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
SELECT actactan
|
||||
*!* modificare v 2.4.25 : am pus GO TOP deoarece, daca avea si nota cu 4428 - 4427, atunci copia datele de pe aceasta nota
|
||||
*!* si aveam id_fact de la factura, in loc de cel de la nota actuala
|
||||
*!* GO BOTTOM
|
||||
Go Top
|
||||
*!* modificare v 2.4.25 ^
|
||||
SCATTER FIELDS EXCEPT id_factd, id_factc,pereched, perechec, id_partd, id_partc, partd, partc, scd, scc, ascd, ascc, id_jtva_coloana,proc_tva,taxcode,taxname NAME otemp
|
||||
|
||||
SELECT DISTINCT a.id_jtva_coloana, (b.cota_tva+100)/100 as proc_tva, a.scc, a.ascc, a.id_partc, a.partc, a.id_factc,;
|
||||
a.perechec, b.id_tva, a.taxcode,a.taxname ;
|
||||
FROM actactan a join jtva_coloane b on a.id_jtva_coloana = b.id_jtva_coloana WHERE b.cota_tva <> 0 ;
|
||||
AND LEFT(a.scd,3) = '419' INTO CURSOR procent
|
||||
|
||||
IF _tally#0
|
||||
SELECT procent
|
||||
SCAN
|
||||
SCATTER NAME oproc
|
||||
SELECT actactan
|
||||
SUM suma TO lnsuma FOR id_jtva_coloana=oproc.id_jtva_coloana AND LEFT(scd,3) = '419' AND id_partc = oproc.id_partc AND scc = oproc.scc AND NVL(ascc,'xxxx') = NVL(oproc.ascc,'xxxx') AND id_factc = oproc.id_factc AND perechec = oproc.perechec
|
||||
SELECT actactan
|
||||
APPEND BLANK
|
||||
GATHER NAME otemp
|
||||
REPLACE scd WITH oproc.scc, ascd WITH oproc.ascc, partd WITH oproc.partc, id_partd WITH oproc.id_partc, id_factd WITH oproc.id_factc, pereched WITH oproc.perechec, scc WITH '4427',id_jtva_coloana with oproc.id_tva,proc_tva with oproc.proc_tva
|
||||
REPLACE suma WITH -ROUND(LnSuma*(oproc.proc_tva-1),gnPc)
|
||||
REPLACE taxcode WITH oproc.taxcode, taxname WITH oproc.taxname
|
||||
SELECT procent
|
||||
ENDSCAN
|
||||
ENDIF
|
||||
|
||||
SELECT actactan
|
||||
GO TOP
|
||||
DO FORM verificare
|
||||
|
||||
IF gnButon=1
|
||||
oscrie_in_fisiere()
|
||||
ENDIF
|
||||
|
||||
IF USED('actactan')
|
||||
USE IN actactan
|
||||
ENDIF
|
||||
IF USED('procent')
|
||||
USE IN procent
|
||||
ENDIF
|
||||
|
||||
|
||||
|
||||
|
||||
ENDPROC && BAR_2_OF_Clienti_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Clienti_FB2P
|
||||
lans(10454)
|
||||
|
||||
SELECT actactan
|
||||
GO TOP
|
||||
|
||||
IF gnButon=1
|
||||
DO FORM verificare
|
||||
ENDIF
|
||||
|
||||
IF gnButon=1
|
||||
oscrie_in_fisiere()
|
||||
ENDIF
|
||||
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* DO inchid_actcv
|
||||
*!* DO deschid_actc
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
|
||||
*!* PRIVATE PnSuma,pnSumaVal
|
||||
*!* pnSuma=m.suma
|
||||
*!* pnSumaVal=m.suma_2
|
||||
|
||||
*!* lcnume=UPPER(ALLTRIM(m.nume))
|
||||
*!* DO imperechere_fact_avans WITH 'avans419',lcnume,m.suma,.t.,'pereche'
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
*!* m.scd='419 '
|
||||
*!* m.scc='411 '
|
||||
*!* do alfabetaper with;
|
||||
*!* 'CASApermulval',;
|
||||
*!* "NUMELE CLIENTULUI","CLIENTI","NUME", ;
|
||||
*!* "","","", ;
|
||||
*!* 'CURSUL VALUTAR','','', ;
|
||||
*!* 'do curs.spr','v'
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
|
||||
*!* local c
|
||||
*!* c=0
|
||||
*!* m.nract=numaract
|
||||
*!* *DO CODARE
|
||||
*!* sele 0
|
||||
*!* use &loc\&nfscurt\tempo\actcv
|
||||
*!* sele actcv
|
||||
*!* scan for ales
|
||||
*!* c=cod
|
||||
*!* M.PERECHE=NRACT
|
||||
*!* m.suma_2=sumaachi
|
||||
*!* m.nrord=''
|
||||
*!* sele actan
|
||||
*!* loca for cod=c
|
||||
*!* if found()
|
||||
*!* m.nrord=nrord
|
||||
*!* cursfact=suma_3
|
||||
*!* endif
|
||||
*!* *!* sele avans419
|
||||
*!* *!* loca for cod=c
|
||||
*!* *!* if found()
|
||||
*!* cursavans=m.cursschimb
|
||||
*!* m.suma=sumaachi*min(cursavans,cursfact)
|
||||
*!* dif=sumaachi*(cursavans-cursfact)
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* do case
|
||||
*!* case dif<0
|
||||
*!* DO CONTABILIZEAZA WITH '665 ','411 ',-dif,CLASAACT
|
||||
*!* case dif>0
|
||||
*!* DO CONTABILIZEAZA WITH '419 ','765 ',dif,CLASAACT
|
||||
*!* endcase
|
||||
*!* *!* do inBANCAval
|
||||
*!* *!* SELE LUCRARI
|
||||
*!* *!* LOCA FOR NRORD=M.NRORD
|
||||
*!* *!* if flock()
|
||||
*!* *!* REPLACE lucrari.incasat WITH lucrari.incasat+m.suma
|
||||
*!* *!* endif
|
||||
*!* *!* unlock
|
||||
*!* *!* SELE CLIENTI
|
||||
*!* *!* if flock()
|
||||
*!* *!* REPLACE CLIENTI.incasat WITH CLIENTI.incasat+m.suma
|
||||
*!* *!* endif
|
||||
*!* *!* unlock
|
||||
|
||||
*!* SELE CLIENTI
|
||||
*!* if flock()
|
||||
*!* REPLACE CLIENTI.incasat WITH CLIENTI.incasat+m.suma
|
||||
*!* REPLACE CLIENTI.AVANS WITH CLIENTI.AVANS-m.suma
|
||||
*!* endif
|
||||
*!* unlock
|
||||
|
||||
*!* endscan
|
||||
*!* use in actcv
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_3_OF_Clienti_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Clienti_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Contul creditor", "4111,461")
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
lans_generic(10657,loCont.Cont, loCont.Acont)
|
||||
ENDPROC && BAR_6_OF_Clienti_FB2P
|
||||
|
||||
*</Procedures>
|
||||
74
Meniuri/clienti4.mn2
Normal file
74
Meniuri/clienti4.mn2
Normal file
@@ -0,0 +1,74 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="clienti4.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Clienti PROMPT "Efecte de primit"
|
||||
ON BAR 1 OF Clienti ACTIVATE POPUP _s4u0pzetj
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _s4u0pzetj SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _s4u0pzetj PROMPT "Cresterea creantelor"
|
||||
ON BAR 1 OF _s4u0pzetj ACTIVATE POPUP Crestereac
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Crestereac SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Crestereac PROMPT "Acceptare efecte comerciale" ;
|
||||
MESSAGE '413:4111'
|
||||
ON SELECTION BAR 1 OF Crestereac lans(10302)
|
||||
|
||||
DEFINE BAR 2 OF Crestereac PROMPT "Prin diferente favorabile de curs valutar" ;
|
||||
MESSAGE '413 :7651'
|
||||
ON SELECTION BAR 2 OF Crestereac lans(10303)
|
||||
|
||||
DEFINE BAR 3 OF Crestereac PROMPT "Prin reluarea diferentelor nefavorabile de curs valutar" ;
|
||||
MESSAGE '413 :476 '
|
||||
ON SELECTION BAR 3 OF Crestereac LANS(10304)
|
||||
|
||||
DEFINE BAR 2 OF _s4u0pzetj PROMPT "Micsorarea creantelor"
|
||||
ON BAR 2 OF _s4u0pzetj ACTIVATE POPUP Micsorarea
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Micsorarea SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Micsorarea PROMPT "Depunere efecte comerciale la banca pentru incasare la scadenta" ;
|
||||
MESSAGE '5113:413 '
|
||||
ON SELECTION BAR 1 OF Micsorarea lans(10305)
|
||||
|
||||
DEFINE BAR 2 OF Micsorarea PROMPT "Incasarea la scadenta a efectelor depuse anterior la banca" ;
|
||||
MESSAGE '5121:5113'
|
||||
ON SELECTION BAR 2 OF Micsorarea lans(10629)
|
||||
|
||||
DEFINE BAR 3 OF Micsorarea PROMPT "\-"
|
||||
ON BAR 3 OF Micsorarea ACTIVATE POPUP _54c0vt2gn
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _54c0vt2gn SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Micsorarea PROMPT "Incasarea efectelor la banca la scadenta" ;
|
||||
MESSAGE '5121:413 '
|
||||
ON SELECTION BAR 4 OF Micsorarea lans(10307)
|
||||
|
||||
DEFINE BAR 5 OF Micsorarea PROMPT "\-"
|
||||
ON BAR 5 OF Micsorarea ACTIVATE POPUP _54c0vv9h3
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _54c0vv9h3 SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF Micsorarea PROMPT "Girare efecte comerciale primite de la clienti" ;
|
||||
MESSAGE '403:413'
|
||||
ON SELECTION BAR 6 OF Micsorarea lans(10628)
|
||||
|
||||
DEFINE BAR 7 OF Micsorarea PROMPT "\-"
|
||||
ON BAR 7 OF Micsorarea ACTIVATE POPUP _54c0vv9h4
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _54c0vv9h4 SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF Micsorarea PROMPT "Prin reluarea diferentelor de curs valutar" ;
|
||||
MESSAGE '6651:413 '
|
||||
ON SELECTION BAR 8 OF Micsorarea lans(10306)
|
||||
ACTIVATE POPUP Clienti
|
||||
|
||||
*</MenuCode>
|
||||
64
Meniuri/clienti5.mn2
Normal file
64
Meniuri/clienti5.mn2
Normal file
@@ -0,0 +1,64 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="clienti5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Clientiext SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Clientiext PROMPT "Facturi neintocmite 418-general"
|
||||
ON SELECTION BAR 1 OF Clientiext DO BAR_1_OF_Clientiext_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Clientiext PROMPT "\-"
|
||||
ON BAR 2 OF Clientiext ACTIVATE POPUP _1400t1yci
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1400t1yci SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Clientiext PROMPT "Facturi neintocmite 418" ;
|
||||
MESSAGE '418 : 70X'
|
||||
ON SELECTION BAR 3 OF Clientiext DO BAR_3_OF_Clientiext_FB2P
|
||||
ACTIVATE POPUP Clientiext
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Clientiext_FB2P
|
||||
Buton = lans(10469)
|
||||
IF Buton=2
|
||||
DO deschid_actc
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
DO introducere_compacta WITH 'achi_mat','418 ','',.t.,.f.,'Vanzari-Facturi neintocmite 418','4428',10469
|
||||
ENDPROC && BAR_1_OF_Clientiext_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Clientiext_FB2P
|
||||
|
||||
*!* SELE BAL
|
||||
*!* GO TOP
|
||||
*!* OS=CREA('SELCONT')
|
||||
*!* OS.SHOW(1)
|
||||
*!* IF BUTON=2
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'70')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
|
||||
lans(10301)
|
||||
ENDPROC && BAR_3_OF_Clientiext_FB2P
|
||||
|
||||
*</Procedures>
|
||||
37
Meniuri/coeficientilunari.mn2
Normal file
37
Meniuri/coeficientilunari.mn2
Normal file
@@ -0,0 +1,37 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="coeficientilunari.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 "Cote TVA"
|
||||
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "Plafoane casa"
|
||||
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
||||
lnAn = gnAn
|
||||
lnLuna = gnLuna
|
||||
|
||||
DO viz_cote_tva WITH gcs,lnAn,lnLuna
|
||||
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
||||
lnAn = gnAn
|
||||
lnLuna = gnLuna
|
||||
|
||||
DO viz_plafon_casa WITH gcs,lnAn,lnLuna IN onomenclatoare.prg
|
||||
*!* oc=crea('coef')
|
||||
*!* oc.show(1)
|
||||
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
||||
|
||||
*</Procedures>
|
||||
614
Meniuri/cont2000.mn2
Normal file
614
Meniuri/cont2000.mn2
Normal file
@@ -0,0 +1,614 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>1</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE MENU _msysmenu BAR
|
||||
DEFINE PAD _000000001 OF _msysmenu PROMPT "\<Utile" COLOR SCHEME 3 ;
|
||||
NEGOTIATE LEFT, NONE ;
|
||||
KEY ALT+U, "ALT+U" ;
|
||||
MESSAGE 'Instrumente utile: calculator, calendar, bloc-notes; iesirea din program.'
|
||||
|
||||
ON PAD _000000001 OF _msysmenu ACTIVATE POPUP Utile
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Utile MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Utile PROMPT "\<Romfast Suport" ;
|
||||
KEY ALT+R, "ALT+R" ;
|
||||
MESSAGE 'Romfast Suport'
|
||||
ON SELECTION BAR 1 OF Utile DO BAR_1_OF_Utile_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Utile PROMPT "\<Captura ecran si email" ;
|
||||
KEY ALT+S, "ALT+S"
|
||||
ON SELECTION BAR 2 OF Utile DO BAR_2_OF_Utile_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Utile PROMPT "\-"
|
||||
ON BAR 3 OF Utile ACTIVATE POPUP _5ow11i45g
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _5ow11i45g MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 4 OF Utile PROMPT "Schimbare tip raport clasic/modern" ;
|
||||
MESSAGE 'Previzualizare rapoarte tip clasic sau modern'
|
||||
ON SELECTION BAR 4 OF Utile DO BAR_4_OF_Utile_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Utile PROMPT "\-"
|
||||
ON BAR 5 OF Utile ACTIVATE POPUP _4lz0t1ukd
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _4lz0t1ukd MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 6 OF Utile PROMPT "\<Iesire" ;
|
||||
KEY F2, "F2" ;
|
||||
MESSAGE 'Iesire din program.'
|
||||
ON SELECTION BAR 6 OF Utile DO BAR_6_OF_Utile_FB2P
|
||||
|
||||
DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Editare" COLOR SCHEME 3 ;
|
||||
KEY ALT+E, "" ;
|
||||
MESSAGE 'Comenzi de editare.'
|
||||
|
||||
ON PAD _000000002 OF _msysmenu ACTIVATE POPUP Editare
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Editare MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR _med_undo OF Editare PROMPT "\<Anuleaza" ;
|
||||
KEY CTRL+Z, "Ctrl+Z" ;
|
||||
MESSAGE 'Anuleaza ultima comanda de editare.'
|
||||
|
||||
DEFINE BAR _med_redo OF Editare PROMPT "\<Refa" ;
|
||||
KEY CTRL+R, "Ctrl+R" ;
|
||||
MESSAGE 'Repeta ultima comanda anulata.'
|
||||
|
||||
DEFINE BAR _med_sp100 OF Editare PROMPT "\-"
|
||||
|
||||
DEFINE BAR _med_cut OF Editare PROMPT "\<Taie si retine" ;
|
||||
KEY CTRL+X, "Ctrl+X" ;
|
||||
MESSAGE 'Copiaza in memorie textul selectat si apoi il sterge din ecran.'
|
||||
|
||||
DEFINE BAR _med_copy OF Editare PROMPT "\<Copiaza" ;
|
||||
KEY CTRL+C, "Ctrl+C" ;
|
||||
MESSAGE 'Copiaza in memorie textul selectat.'
|
||||
|
||||
DEFINE BAR _med_paste OF Editare PROMPT "Re\<da" ;
|
||||
KEY CTRL+V, "Ctrl+V" ;
|
||||
MESSAGE 'Reda din memorie textul retinut cu comanda <Copiaza>.'
|
||||
|
||||
DEFINE BAR _med_sp200 OF Editare PROMPT "\-"
|
||||
|
||||
DEFINE BAR _med_slcta OF Editare PROMPT "\<Selecteaza tot" ;
|
||||
KEY CTRL+A, "Ctrl+A" ;
|
||||
MESSAGE 'Selecteaza tot textul din celula activa.'
|
||||
|
||||
DEFINE BAR 9 OF Editare PROMPT "\-"
|
||||
ON BAR 9 OF Editare ACTIVATE POPUP _5j00vkrd6
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _5j00vkrd6 MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 10 OF Editare PROMPT "Alege font implicit"
|
||||
ON SELECTION BAR 10 OF Editare DO BAR_10_OF_Editare_FB2P
|
||||
|
||||
DEFINE PAD _000000003 OF _msysmenu PROMPT "I\<nitializare" COLOR SCHEME 3 ;
|
||||
KEY ALT+N, "ALT+N" ;
|
||||
MESSAGE 'Comenzi de initializare a sesiunii de lucru.'
|
||||
|
||||
ON PAD _000000003 OF _msysmenu ACTIVATE POPUP Initializa
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Initializa MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Initializa PROMPT "\<Deschidere de luna noua"
|
||||
ON SELECTION BAR 1 OF Initializa DO BAR_1_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Initializa PROMPT "\<Redeschidere de luna" ;
|
||||
MESSAGE 'Actualizarea cu date modificate din luna precedenta, aparute ulterior deschiderii lunii contabile curente.'
|
||||
ON BAR 2 OF Initializa ACTIVATE POPUP Redeschide
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Redeschide MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Redeschide PROMPT "Redeschidere de luna"
|
||||
ON SELECTION BAR 1 OF Redeschide DO BAR_1_OF_Redeschide_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Redeschide PROMPT "\-"
|
||||
ON BAR 2 OF Redeschide ACTIVATE POPUP _34h0z67ak
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _34h0z67ak MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 3 OF Redeschide PROMPT "Programare redeschidere de luna"
|
||||
ON SELECTION BAR 3 OF Redeschide do programare_deschidere_luna in oredeschid.prg
|
||||
|
||||
DEFINE BAR 3 OF Initializa PROMPT "\-"
|
||||
ON BAR 3 OF Initializa ACTIVATE POPUP _1mw0krb26
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1mw0krb26 MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 4 OF Initializa PROMPT "\<Plan conturi"
|
||||
ON SELECTION BAR 4 OF Initializa DO BAR_4_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Initializa PROMPT "\<Completare plan conturi din anul precedent"
|
||||
ON SELECTION BAR 5 OF Initializa DO BAR_5_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Initializa PROMPT "\-"
|
||||
ON BAR 6 OF Initializa ACTIVATE POPUP _3a60oj8xk
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _3a60oj8xk MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 7 OF Initializa PROMPT "Configurare TVA & Impozit"
|
||||
ON SELECTION BAR 7 OF Initializa DO BAR_7_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Initializa PROMPT "Plafoane c\<asa"
|
||||
ON SELECTION BAR 8 OF Initializa DO viz_plafon_casa WITH gcs, gnAn, gnLuna IN onomenclatoare.prg
|
||||
|
||||
DEFINE BAR 9 OF Initializa PROMPT "Configurare \<serii"
|
||||
ON BAR 9 OF Initializa ACTIVATE POPUP Configurar
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Configurar MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Configurar PROMPT "\<Bon fiscal"
|
||||
ON SELECTION BAR 1 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 3
|
||||
|
||||
DEFINE BAR 2 OF Configurar PROMPT "\<Chitanta"
|
||||
ON SELECTION BAR 2 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 16
|
||||
|
||||
DEFINE BAR 3 OF Configurar PROMPT "\<Dispozitie de incasare/plata"
|
||||
ON SELECTION BAR 3 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 19
|
||||
|
||||
DEFINE BAR 4 OF Configurar PROMPT "\<Factura"
|
||||
ON SELECTION BAR 4 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 5
|
||||
|
||||
DEFINE BAR 5 OF Configurar PROMPT "\<Factura alocata D394" ;
|
||||
MESSAGE 'Serii facturi alocate pentru D394'
|
||||
ON SELECTION BAR 5 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 24
|
||||
|
||||
DEFINE BAR 6 OF Configurar PROMPT "\<Monetar"
|
||||
ON SELECTION BAR 6 OF Configurar Do viz_config_serii_complet In oserii_numere.prg With 12
|
||||
|
||||
DEFINE BAR 10 OF Initializa PROMPT "Configurare inchidere \<amortizare"
|
||||
ON SELECTION BAR 10 OF Initializa DO BAR_10_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 11 OF Initializa PROMPT "\-"
|
||||
ON BAR 11 OF Initializa ACTIVATE POPUP _3a60ohaj1
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _3a60ohaj1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 12 OF Initializa PROMPT "Configurare \<Entitati"
|
||||
ON SELECTION BAR 12 OF Initializa DO BAR_12_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 13 OF Initializa PROMPT "Configurare Entitati - \<Conturi"
|
||||
ON SELECTION BAR 13 OF Initializa DO BAR_13_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 14 OF Initializa PROMPT "Configurare \<Balante Parteneri"
|
||||
ON SELECTION BAR 14 OF Initializa DO BAR_14_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 15 OF Initializa PROMPT "Configurare Note contabile"
|
||||
ON SELECTION BAR 15 OF Initializa DO BAR_15_OF_Initializa_FB2P
|
||||
|
||||
DEFINE BAR 16 OF Initializa PROMPT "Configurare \<Analitice"
|
||||
ON BAR 16 OF Initializa ACTIVATE POPUP _4k30zzwaf
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _4k30zzwaf MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF _4k30zzwaf PROMPT "Configurare analitice pe \<grupuri utilizatori"
|
||||
ON SELECTION BAR 1 OF _4k30zzwaf DO BAR_1_OF__4k30zzwaf_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _4k30zzwaf PROMPT "Configurare analitice conturi TVA"
|
||||
ON SELECTION BAR 2 OF _4k30zzwaf DO BAR_2_OF__4k30zzwaf_FB2P
|
||||
|
||||
DEFINE BAR 17 OF Initializa PROMPT "\-"
|
||||
ON BAR 17 OF Initializa ACTIVATE POPUP _6cc0uc21r
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _6cc0uc21r MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 18 OF Initializa PROMPT "Optiuni utilizator"
|
||||
ON BAR 18 OF Initializa ACTIVATE POPUP Optiuniuti
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Optiuniuti MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Optiuniuti PROMPT "\<Tratare bug blocare listare Registru Cumparari"
|
||||
ON SELECTION BAR 1 OF Optiuniuti DO BAR_1_OF_Optiuniuti_FB2P
|
||||
|
||||
DEFINE PAD _000000004 OF _msysmenu PROMPT "Ac\<tualizari" COLOR SCHEME 3 ;
|
||||
KEY ALT+T, "ALT+T" ;
|
||||
SKIP FOR Type('glLunaInchisa') = 'L' and m.glLunaInchisa
|
||||
|
||||
ON PAD _000000004 OF _msysmenu ACTIVATE POPUP _1bs12qror
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1bs12qror MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF _1bs12qror PROMPT "Conversie"
|
||||
ON BAR 1 OF _1bs12qror ACTIVATE POPUP Conversie
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Conversie MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Conversie PROMPT "1. Actualizare Plan Conturi"
|
||||
ON SELECTION BAR 1 OF Conversie DO BAR_1_OF_Conversie_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Conversie PROMPT "2. Actualizare Registrul Jurnal"
|
||||
ON SELECTION BAR 2 OF Conversie DO BAR_2_OF_Conversie_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Conversie PROMPT "3. Actualizare Balanta de verificare"
|
||||
ON SELECTION BAR 3 OF Conversie DO BAR_3_OF_Conversie_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _1bs12qror PROMPT "\-"
|
||||
ON BAR 2 OF _1bs12qror ACTIVATE POPUP _1v40t2lwt
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1v40t2lwt MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 3 OF _1bs12qror PROMPT "Actualizare solduri in \<valuta"
|
||||
ON SELECTION BAR 3 OF _1bs12qror DO BAR_3_OF__1bs12qror_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _1bs12qror PROMPT "Actualizare cote \<TVA pentru anul 2007"
|
||||
ON SELECTION BAR 4 OF _1bs12qror DO BAR_4_OF__1bs12qror_FB2P
|
||||
|
||||
DEFINE PAD _000000005 OF _msysmenu PROMPT "\<Verificari" COLOR SCHEME 3 ;
|
||||
SKIP FOR Type('glLunaInchisa') = 'L' and m.glLunaInchisa
|
||||
|
||||
ON PAD _000000005 OF _msysmenu ACTIVATE POPUP Verificari
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Verificari MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Verificari PROMPT "\<Verificare globala"
|
||||
ON SELECTION BAR 1 OF Verificari DO BAR_1_OF_Verificari_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Verificari PROMPT "\<Situatii contabile invalidate" ;
|
||||
MESSAGE 'Situatii contabile invalidate de operatii efectuate in lunile anterioare'
|
||||
ON SELECTION BAR 2 OF Verificari DO BAR_2_OF_Verificari_FB2P
|
||||
|
||||
DEFINE PAD _000000006 OF _msysmenu PROMPT "\<Import" COLOR SCHEME 3 ;
|
||||
SKIP FOR Type('glLunaInchisa') = 'L' and m.glLunaInchisa
|
||||
|
||||
ON PAD _000000006 OF _msysmenu ACTIVATE POPUP _5100zlkwx
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _5100zlkwx MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF _5100zlkwx PROMPT "Initializare \<facturi, balante parteneri si Registre TVA din *.xlsx"
|
||||
ON SELECTION BAR 1 OF _5100zlkwx do form frm_initializare_facturi_balanta.scx
|
||||
|
||||
DEFINE BAR 2 OF _5100zlkwx PROMPT "\-"
|
||||
ON BAR 2 OF _5100zlkwx ACTIVATE POPUP _66a0sg613
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _66a0sg613 MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 3 OF _5100zlkwx PROMPT "\<Note facturi clienti din *.xlsx" ;
|
||||
MESSAGE '4111 = 7xx ; 4111 = 442x'
|
||||
ON SELECTION BAR 3 OF _5100zlkwx do form frm_import_note_facturi_clienti.scx
|
||||
|
||||
DEFINE BAR 4 OF _5100zlkwx PROMPT "\<Note facturi clienti anulate din *.xlsx"
|
||||
ON SELECTION BAR 4 OF _5100zlkwx do form frm_import_note_facturi_clienti.scx with 'ANULAT'
|
||||
|
||||
DEFINE BAR 5 OF _5100zlkwx PROMPT "\-"
|
||||
ON BAR 5 OF _5100zlkwx ACTIVATE POPUP _61m0tv1xb
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _61m0tv1xb MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 6 OF _5100zlkwx PROMPT "\<Monetare din fisiere casa marcat A4200" ;
|
||||
MESSAGE '4111 = 7xx ; 4111 = 442x ; 5xx = 4111'
|
||||
ON SELECTION BAR 6 OF _5100zlkwx do form frm_import_note_a4200.scx
|
||||
|
||||
DEFINE BAR 7 OF _5100zlkwx PROMPT "\-"
|
||||
ON BAR 7 OF _5100zlkwx ACTIVATE POPUP _61m0tuffp
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _61m0tuffp MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 8 OF _5100zlkwx PROMPT "\<Extrase bancare, deconturi curieri, procesatori plati"
|
||||
ON SELECTION BAR 8 OF _5100zlkwx do form frm_import_extrase_banca.scx
|
||||
|
||||
DEFINE PAD _000000007 OF _msysmenu PROMPT "\<SPV - eFactura" COLOR SCHEME 3 ;
|
||||
MESSAGE 'Borderou eFactura'
|
||||
|
||||
ON PAD _000000007 OF _msysmenu ACTIVATE POPUP SPVeFactur
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP SPVeFactur MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF SPVeFactur PROMPT "Borderou eFactura"
|
||||
ON SELECTION BAR 1 OF SPVeFactur DO BAR_1_OF_SPVeFactur_FB2P
|
||||
|
||||
DEFINE BAR 2 OF SPVeFactur PROMPT "\-"
|
||||
ON BAR 2 OF SPVeFactur ACTIVATE POPUP _6y511yz3u
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _6y511yz3u MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 3 OF SPVeFactur PROMPT "\<Trimite xml eFactura..."
|
||||
ON SELECTION BAR 3 OF SPVeFactur DO BAR_3_OF_SPVeFactur_FB2P
|
||||
|
||||
DEFINE BAR 4 OF SPVeFactur PROMPT "\-"
|
||||
ON BAR 4 OF SPVeFactur ACTIVATE POPUP _6ug0wevae
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _6ug0wevae MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 5 OF SPVeFactur PROMPT "Import eFactura primite"
|
||||
ON SELECTION BAR 5 OF SPVeFactur DO BAR_5_OF_SPVeFactur_FB2P
|
||||
|
||||
DEFINE BAR 6 OF SPVeFactur PROMPT "Import eFactura trimise"
|
||||
ON SELECTION BAR 6 OF SPVeFactur DO BAR_6_OF_SPVeFactur_FB2P
|
||||
|
||||
DEFINE BAR 7 OF SPVeFactur PROMPT "\-"
|
||||
ON BAR 7 OF SPVeFactur ACTIVATE POPUP _6zm0qrbxl
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _6zm0qrbxl MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 8 OF SPVeFactur PROMPT "SPV"
|
||||
ON SELECTION BAR 8 OF SPVeFactur DO BAR_8_OF_SPVeFactur_FB2P
|
||||
|
||||
DEFINE PAD _000000008 OF _msysmenu PROMPT "\<Ajutor" COLOR SCHEME 3 ;
|
||||
KEY ALT+J, "ALT+J" ;
|
||||
MESSAGE 'Instructiuni de utilizare, informatii despre acest program.'
|
||||
|
||||
ON PAD _000000008 OF _msysmenu ACTIVATE POPUP Ajutor
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Ajutor PROMPT "\<Planul general de conturi"
|
||||
ON SELECTION BAR 1 OF Ajutor DO BAR_1_OF_Ajutor_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Ajutor PROMPT "\<Instructiuni de utilizare" ;
|
||||
KEY F1, "F1"
|
||||
ON SELECTION BAR 2 OF Ajutor DO BAR_2_OF_Ajutor_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Ajutor PROMPT "\-"
|
||||
ON BAR 3 OF Ajutor ACTIVATE POPUP _0yw0umukf
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0yw0umukf MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 4 OF Ajutor PROMPT "\<Despre program..." ;
|
||||
MESSAGE 'Informatii despre program'
|
||||
ON SELECTION BAR 4 OF Ajutor DO BAR_4_OF_Ajutor_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Ajutor PROMPT "\<Jurnal modificari"
|
||||
ON SELECTION BAR 5 OF Ajutor DO BAR_5_OF_Ajutor_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Ajutor PROMPT "\-"
|
||||
ON BAR 6 OF Ajutor ACTIVATE POPUP _70c02mw5j
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _70c02mw5j MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 7 OF Ajutor PROMPT "Romfast Suport Bot"
|
||||
ON SELECTION BAR 7 OF Ajutor DO FORM frm_chatbot
|
||||
ON SELECTION MENU _msysmenu *:Locale=Yes
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Utile_FB2P
|
||||
Try
|
||||
OHELP.TOOL_HELP1.stromfast.Click
|
||||
Catch To loEx
|
||||
AMESSAGEBOX(loEx.Message,0+48,_Screen.Caption)
|
||||
Endtry
|
||||
ENDPROC && BAR_1_OF_Utile_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Utile_FB2P
|
||||
Try
|
||||
ohelp.toOL_HELP1.screenshot.Click
|
||||
Catch To loEx
|
||||
AMESSAGEBOX(loEx.Message,0+48,_Screen.Caption)
|
||||
Endtry
|
||||
ENDPROC && BAR_2_OF_Utile_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Utile_FB2P
|
||||
**OVARIABILE_GLOBALE.PRG
|
||||
|
||||
*** Citesc setarea pentru ReportBehaviour
|
||||
IF TYPE('gnReportBehaviour') = 'U'
|
||||
PUBLIC gnReportBehaviour
|
||||
gnReportBehaviour = 90
|
||||
ENDIF
|
||||
|
||||
LOCAL lcReportBehaviour
|
||||
lcReportBehaviour = NVL(getini(m.gcGeneralIniFile,'report','reportbehaviour'), '')
|
||||
IF EMPTY(m.lcReportBehaviour)
|
||||
setini(m.gcGeneralIniFile,'report','reportbehaviour', '90')
|
||||
gnReportBehaviour = 90
|
||||
ELSE
|
||||
gnReportBehaviour = VAL(m.lcReportBehaviour)
|
||||
ENDIF
|
||||
IF !INLIST(gnReportBehaviour, 80, 90)
|
||||
setini(m.gcGeneralIniFile,'report','reportbehaviour', '90')
|
||||
gnReportBehaviour = 90
|
||||
ENDIF
|
||||
|
||||
lnReportBehaviourNew = IIF(gnReportBehaviour = 90, 80, 90)
|
||||
|
||||
IF AMESSAGEBOX('Rapoarte tip ' + IIF(m.gnReportBehaviour=90, 'modern', 'clasic') + '. Doriti sa schimbati in tip ' + IIF(m.lnReportBehaviourNew=90, 'modern', 'clasic') + '?',4+32,_screen.Caption) = 6
|
||||
setini(m.gcGeneralIniFile,'report','reportbehaviour', ALLTRIM(STR(m.lnReportBehaviourNew)))
|
||||
gnReportBehaviour = m.lnReportBehaviourNew
|
||||
ENDIF
|
||||
ENDPROC && BAR_4_OF_Utile_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Utile_FB2P
|
||||
ies=.t.
|
||||
QUIT
|
||||
ENDPROC && BAR_6_OF_Utile_FB2P
|
||||
|
||||
PROCEDURE BAR_10_OF_Editare_FB2P
|
||||
Local oFonts, llReturn
|
||||
Do Case
|
||||
Case Type("goApp") = "O" And ;
|
||||
PEMSTATUS(goApp, "oFontHandler",5)
|
||||
If Vartype(goApp.oFontHandler) <> "O"
|
||||
* instantiate it
|
||||
goApp.oFontHandler = CREATEOBJECT("cusFontHandler") && Newobject("cusFontHandler", "Accessibility")
|
||||
Endif
|
||||
oFonts = goApp.oFontHandler
|
||||
Case Vartype(oFontHandler) <> "O"
|
||||
Release oFontHandler
|
||||
Public oFontHandler
|
||||
oFontHandler = CREATEOBJECT("cusFontHandler")&& Newobject("cusFontHandler", "Accessibility")
|
||||
oFonts = oFontHandler
|
||||
Otherwise
|
||||
* it already exists in the public variable
|
||||
oFonts = oFontHandler
|
||||
ENDCASE
|
||||
|
||||
llReturn = oFonts.PromptForFont()
|
||||
|
||||
IF m.llReturn
|
||||
goApp.WriteIni('INTERFATA', 'FONTNAME', oFonts.cFontName)
|
||||
AMESSAGEBOX('Intrati din nou in aplicatie pentru activarea fontului ' + oFonts.cFontName,0+64,_SCREEN.Caption)
|
||||
ENDIF
|
||||
ENDPROC && BAR_10_OF_Editare_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Initializa_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
DO deschidluna WITH .T. IN oredeschid.prg
|
||||
ENDPROC && BAR_1_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Redeschide_FB2P
|
||||
DO deschidluna WITH .F., "refacere_completa" IN oredeschid.prg
|
||||
ENDPROC && BAR_1_OF_Redeschide_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Initializa_FB2P
|
||||
* gcAcces = "1;2;3;4"
|
||||
gcAcces = GetAccesByCod("ZA03") && Z = meniu, A = pad#, 3 = bar#
|
||||
DO viz_plcont IN onomenclatoare.prg
|
||||
ENDPROC && BAR_4_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Initializa_FB2P
|
||||
Local lcSql,lnSucces
|
||||
lnRasp=aMESSAGEBOX("Doriti sa completati planul de conturi",4+32,"Atentie")
|
||||
If lnRasp=6
|
||||
lcSql = [begin pack_deschidere_luna.completare_plan_conturi(?gnAn); end;]
|
||||
llSucces = goExecutor.oExecuta(m.lcSql)
|
||||
If m.llSucces
|
||||
aMESSAGEBOX("Planul de conturi s-a completat!",0,"Confirmare")
|
||||
Endif
|
||||
Endif
|
||||
|
||||
|
||||
ENDPROC && BAR_5_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF_Initializa_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
LOCAL lcSchema, lnAn, lnLuna
|
||||
lnAn = m.gnAn
|
||||
lnLuna = m.gnLuna
|
||||
lcSchema = m.gcS
|
||||
DO viz_cote_tva WITH m.lcSchema, m.lnAn, m.lnLuna
|
||||
ENDPROC && BAR_7_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_10_OF_Initializa_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
DO viz_inchidere_amortizari_conturi in oproceduri_inchidere.prg
|
||||
ENDPROC && BAR_10_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_12_OF_Initializa_FB2P
|
||||
*gcAcces = "1;2;3;4;"
|
||||
gcAcces = GetAccesByCod("ZA09") && Z = meniu, A = pad#, 9 = bar#
|
||||
DO viz_parteneri IN onomenclatoare.prg
|
||||
ENDPROC && BAR_12_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_13_OF_Initializa_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
DO viz_entitati_conturi IN onomenclatoare.prg
|
||||
ENDPROC && BAR_13_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_14_OF_Initializa_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
DO configurare_balanta_cumulata IN oparteneri.prg
|
||||
ENDPROC && BAR_14_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_15_OF_Initializa_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
DO configurare_note IN omeniu_initializari.prg
|
||||
ENDPROC && BAR_15_OF_Initializa_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__4k30zzwaf_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
DO configurare_analitice_gruputil IN omeniu_initializari.prg
|
||||
ENDPROC && BAR_1_OF__4k30zzwaf_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__4k30zzwaf_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
DO configurare_analitice_tva IN omeniu_initializari.prg
|
||||
ENDPROC && BAR_2_OF__4k30zzwaf_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Optiuniuti_FB2P
|
||||
Local lcOptiune, lnOptiune
|
||||
lcOptiune = 'RC_REGCUMP_LISTARE_BUG'
|
||||
lnOptiune = Int(Val(Nvl(citeste_optiune_utilizator(m.lcOptiune), '0')))
|
||||
lnRaspuns = AMESSAGEBOX('Optiunea este ' + Iif(m.lnOptiune = 0, 'Inactiva.', 'Activa.') + Chr(13) + Chr(10) + ;
|
||||
'Doriti sa o ' + Iif(m.lnOptiune = 0, 'activati?', 'inactivati?'),4+32, _Screen.Caption)
|
||||
|
||||
If m.lnRaspuns = 6
|
||||
lnOptiune = Iif(m.lnOptiune = 0, 1, 0)
|
||||
scrie_optiune_utilizator(m.lcOptiune, ALLTRIM(STR(m.lnOptiune)), "Tratare bug blocare listare Registru Cumparari")
|
||||
Endif
|
||||
ENDPROC && BAR_1_OF_Optiuniuti_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Conversie_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
DO CONVERSIE_CONTURI with "PLAN" IN oproceduri_conversie.prg
|
||||
ENDPROC && BAR_1_OF_Conversie_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Conversie_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
DO CONVERSIE_CONTURI with "JURNAL" IN oproceduri_conversie.prg
|
||||
ENDPROC && BAR_2_OF_Conversie_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Conversie_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
DO CONVERSIE_CONTURI with "BALANTA" IN oproceduri_conversie.prg
|
||||
ENDPROC && BAR_3_OF_Conversie_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__1bs12qror_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
do actualizare_solduri_valuta in oproceduri_actualizari.prg
|
||||
ENDPROC && BAR_3_OF__1bs12qror_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF__1bs12qror_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
do actualizare_tva2007 in oproceduri_actualizari.prg
|
||||
ENDPROC && BAR_4_OF__1bs12qror_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Verificari_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
DO verificareGlobala IN overificari.prg
|
||||
ENDPROC && BAR_1_OF_Verificari_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Verificari_FB2P
|
||||
gcAcces = "1;2;3;4;"
|
||||
do SituatiiInvalidate in overificari.prg
|
||||
ENDPROC && BAR_2_OF_Verificari_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_SPVeFactur_FB2P
|
||||
gcAcces = GetAccesByCod("ZE01") && Z = meniu, A = pad#, 3 = bar#
|
||||
do viz_borderou_efactura in anaf_efactura.prg
|
||||
ENDPROC && BAR_1_OF_SPVeFactur_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_SPVeFactur_FB2P
|
||||
gcAcces = GetAccesByCod("ZE01") && Z = meniu, A = pad#, 3 = bar#
|
||||
do viz_efactura_xml in anaf_efactura.prg
|
||||
ENDPROC && BAR_3_OF_SPVeFactur_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_SPVeFactur_FB2P
|
||||
gcAcces = GetAccesByCod("DA01") && D = Pagina 4 Terti, A = pagina 2 Furnizori, 01 = meniul 1 Furnizori
|
||||
do importEfacturaPrimite in import_efactura.prg
|
||||
ENDPROC && BAR_5_OF_SPVeFactur_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_SPVeFactur_FB2P
|
||||
gcAcces = GetAccesByCod("DB01") && D = Pagina 4 Terti, B = pagina 2 Clienti, 01 = meniul 1 Clienti
|
||||
do importEfacturaTrimise in import_efactura.prg
|
||||
ENDPROC && BAR_6_OF_SPVeFactur_FB2P
|
||||
|
||||
PROCEDURE BAR_8_OF_SPVeFactur_FB2P
|
||||
gcAcces = GetAccesByCod("ZE05") && Z = meniu, E = pad#, 5 = bar#
|
||||
do viz_spv in anaf_efactura.prg
|
||||
ENDPROC && BAR_8_OF_SPVeFactur_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Ajutor_FB2P
|
||||
DO viz_plcont IN ocont2003.prg
|
||||
ENDPROC && BAR_1_OF_Ajutor_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Ajutor_FB2P
|
||||
lansare_help_meniu() &&oproceduri_comune.prg
|
||||
ENDPROC && BAR_2_OF_Ajutor_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Ajutor_FB2P
|
||||
DO FORM frm_about
|
||||
ENDPROC && BAR_4_OF_Ajutor_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Ajutor_FB2P
|
||||
DO FORM frm_changelog
|
||||
ENDPROC && BAR_5_OF_Ajutor_FB2P
|
||||
|
||||
*</Procedures>
|
||||
1756
Meniuri/cont2000_.mn2
Normal file
1756
Meniuri/cont2000_.mn2
Normal file
File diff suppressed because it is too large
Load Diff
532
Meniuri/contcasa_.mn2
Normal file
532
Meniuri/contcasa_.mn2
Normal file
@@ -0,0 +1,532 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="contcasa_.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Introducer SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Introducer PROMPT "\<Introducere" ;
|
||||
SKIP FOR luna_inchisa OR m.nivel>3 ;
|
||||
MESSAGE 'Trezorerie'
|
||||
ON BAR 1 OF Introducer ACTIVATE POPUP _0bh0pul28
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0bh0pul28 SHORTCUT RELATIVE
|
||||
DEFINE BAR "81" OF _0bh0pul28 PROMPT "Casa incasari"
|
||||
ON BAR 81 OF _0bh0pul28 ACTIVATE POPUP Casaincasa
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Casaincasa SHORTCUT RELATIVE
|
||||
DEFINE BAR "81010" OF Casaincasa PROMPT "Ridicat numerar din banca 581" ;
|
||||
MESSAGE '5311:581 ;581 :5121'
|
||||
ON SELECTION BAR 81010 OF Casaincasa DO BAR_"81010"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Casaincasa PROMPT "Transfer intre case 581" ;
|
||||
MESSAGE '5311:581'
|
||||
ON SELECTION BAR 2 OF Casaincasa DO BAR_2_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Casaincasa PROMPT "\-"
|
||||
ON BAR 3 OF Casaincasa ACTIVATE POPUP _0j10xmir1
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0j10xmir1 SHORTCUT RELATIVE
|
||||
DEFINE BAR "81070" OF Casaincasa PROMPT "Restituit avans 542" ;
|
||||
MESSAGE '5311:542'
|
||||
ON SELECTION BAR 81070 OF Casaincasa DO BAR_"81070"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR "81080" OF Casaincasa PROMPT "Asociati cont curent" ;
|
||||
MESSAGE '5311:4551'
|
||||
ON SELECTION BAR 81080 OF Casaincasa DO BAR_"81080"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Casaincasa PROMPT "\-"
|
||||
ON BAR 6 OF Casaincasa ACTIVATE POPUP _saq0r80dh
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0r80dh SHORTCUT RELATIVE
|
||||
DEFINE BAR "81020" OF Casaincasa PROMPT "Clienti 411" ;
|
||||
MESSAGE '5311:411'
|
||||
ON SELECTION BAR 81020 OF Casaincasa DO BAR_"81020"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR "81030" OF Casaincasa PROMPT "Clienti incerti 416" ;
|
||||
MESSAGE '5331:416'
|
||||
ON SELECTION BAR 81030 OF Casaincasa DO BAR_"81030"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR "81040" OF Casaincasa PROMPT "Avansuri TVA 419" ;
|
||||
MESSAGE '5311:419 ;5311:411 ; 411:4427'
|
||||
ON SELECTION BAR 81040 OF Casaincasa DO BAR_"81040"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR "81050" OF Casaincasa PROMPT "Debitori diversi 461" ;
|
||||
MESSAGE '5311:461'
|
||||
ON SELECTION BAR 81050 OF Casaincasa DO BAR_"81050"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR "81060" OF Casaincasa PROMPT "Creditori diversi 462" ;
|
||||
MESSAGE '5311:462'
|
||||
ON SELECTION BAR 81060 OF Casaincasa DO BAR_"81060"_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR 12 OF Casaincasa PROMPT "\-"
|
||||
ON BAR 12 OF Casaincasa ACTIVATE POPUP _00i0rr0vq
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _00i0rr0vq SHORTCUT RELATIVE
|
||||
DEFINE BAR 13 OF Casaincasa PROMPT "\<Incasare monetar"
|
||||
ON SELECTION BAR 13 OF Casaincasa DO BAR_13_OF_Casaincasa_FB2P
|
||||
|
||||
DEFINE BAR "82" OF _0bh0pul28 PROMPT "Casa plati"
|
||||
ON BAR 82 OF _0bh0pul28 ACTIVATE POPUP Casaplati
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Casaplati SHORTCUT RELATIVE
|
||||
DEFINE BAR "82010" OF Casaplati PROMPT "Depunere numerar in banca" ;
|
||||
MESSAGE '581 :5311;5121:581'
|
||||
ON SELECTION BAR 82010 OF Casaplati DO BAR_"82010"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Casaplati PROMPT "Transfer intre case 581" ;
|
||||
MESSAGE '581 :5311'
|
||||
ON SELECTION BAR 2 OF Casaplati DO BAR_2_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Casaplati PROMPT "\-"
|
||||
ON BAR 3 OF Casaplati ACTIVATE POPUP _0c70oxuh2
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0c70oxuh2 SHORTCUT RELATIVE
|
||||
DEFINE BAR "82020" OF Casaplati PROMPT "Acordare avans materiale 542" ;
|
||||
MESSAGE '542 :5311'
|
||||
ON SELECTION BAR 82020 OF Casaplati DO BAR_"82020"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82040" OF Casaplati PROMPT "Plata furnizori din 542" ;
|
||||
MESSAGE '401 :542'
|
||||
ON SELECTION BAR 82040 OF Casaplati DO BAR_"82040"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Casaplati PROMPT "Plata deplasari din 542" ;
|
||||
MESSAGE '625 :542'
|
||||
ON SELECTION BAR 6 OF Casaplati DO BAR_6_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82100" OF Casaplati PROMPT "Asociati conturi curente" ;
|
||||
MESSAGE '4551:5311'
|
||||
ON SELECTION BAR 82100 OF Casaplati DO BAR_"82100"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Casaplati PROMPT "\-"
|
||||
ON BAR 8 OF Casaplati ACTIVATE POPUP _saq0r5jfn
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0r5jfn SHORTCUT RELATIVE
|
||||
DEFINE BAR "82030" OF Casaplati PROMPT "Furnizori 401 din casa" ;
|
||||
MESSAGE '401 :5311'
|
||||
ON SELECTION BAR 82030 OF Casaplati DO BAR_"82030"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82050" OF Casaplati PROMPT "Furnizori imobilizari 404" ;
|
||||
MESSAGE '404 :5311'
|
||||
ON SELECTION BAR 82050 OF Casaplati DO BAR_"82050"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82060" OF Casaplati PROMPT "Avansuri furnizori 409" ;
|
||||
MESSAGE '409 :5311'
|
||||
ON SELECTION BAR 82060 OF Casaplati DO BAR_"82060"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82120" OF Casaplati PROMPT "Debitori diversi" ;
|
||||
MESSAGE '461 :5311'
|
||||
ON SELECTION BAR 82120 OF Casaplati DO BAR_"82120"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82130" OF Casaplati PROMPT "Creditori diversi" ;
|
||||
MESSAGE '462 :5311'
|
||||
ON SELECTION BAR 82130 OF Casaplati DO BAR_"82130"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 14 OF Casaplati PROMPT "\-"
|
||||
ON BAR 14 OF Casaplati ACTIVATE POPUP _saq0r5jfo
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0r5jfo SHORTCUT RELATIVE
|
||||
DEFINE BAR "82070" OF Casaplati PROMPT "Salarii"
|
||||
ON BAR 82070 OF Casaplati ACTIVATE POPUP Salarii
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Salarii SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Salarii PROMPT "\<Salarii contract" ;
|
||||
MESSAGE '4211:5311'
|
||||
ON SELECTION BAR 1 OF Salarii DO BAR_1_OF_Salarii_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Salarii PROMPT "Salarii \<conventie" ;
|
||||
MESSAGE '4212:5311'
|
||||
ON SELECTION BAR 2 OF Salarii DO BAR_2_OF_Salarii_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Salarii PROMPT "\<Datorii legate de personal" ;
|
||||
MESSAGE '4281:5311'
|
||||
ON SELECTION BAR 3 OF Salarii DO BAR_3_OF_Salarii_FB2P
|
||||
|
||||
DEFINE BAR "82080" OF Casaplati PROMPT "Concedii medicale C.A.S." ;
|
||||
MESSAGE '423 :5311'
|
||||
ON SELECTION BAR 82080 OF Casaplati DO BAR_"82080"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82090" OF Casaplati PROMPT "Avansuri salarii 425" ;
|
||||
MESSAGE '425 :5311'
|
||||
ON SELECTION BAR 82090 OF Casaplati DO BAR_"82090"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82110" OF Casaplati PROMPT "Drepturi neridicate 426" ;
|
||||
MESSAGE '426 :5311'
|
||||
ON SELECTION BAR 82110 OF Casaplati DO BAR_"82110"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 19 OF Casaplati PROMPT "\-"
|
||||
ON BAR 19 OF Casaplati ACTIVATE POPUP _saq0r5jfp
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0r5jfp SHORTCUT RELATIVE
|
||||
DEFINE BAR "82140" OF Casaplati PROMPT "Plata alte impozite 446" ;
|
||||
MESSAGE '446 :5311; 635:446'
|
||||
ON SELECTION BAR 82140 OF Casaplati DO BAR_"82140"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82150" OF Casaplati PROMPT "Plata alte datorii 448" ;
|
||||
MESSAGE '448 :5311;6711: 448'
|
||||
ON SELECTION BAR 82150 OF Casaplati DO BAR_"82150"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82160" OF Casaplati PROMPT "Plata tratamente" ;
|
||||
MESSAGE '423 :5311;6458:423'
|
||||
ON SELECTION BAR 82160 OF Casaplati DO BAR_"82160"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82170" OF Casaplati PROMPT "Plata dividende" ;
|
||||
MESSAGE '457 :5311'
|
||||
ON SELECTION BAR 82170 OF Casaplati DO BAR_"82170"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR "82180" OF Casaplati PROMPT "Plata gratificatii" ;
|
||||
MESSAGE '424 :5311; 112: 424'
|
||||
ON SELECTION BAR 82180 OF Casaplati DO BAR_"82180"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 25 OF Casaplati PROMPT "Plata deplasari" ;
|
||||
MESSAGE '625 :5311'
|
||||
ON SELECTION BAR 25 OF Casaplati DO BAR_25_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 26 OF Casaplati PROMPT "\-"
|
||||
ON BAR 26 OF Casaplati ACTIVATE POPUP _saq0r5jfq
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _saq0r5jfq SHORTCUT RELATIVE
|
||||
DEFINE BAR "82190" OF Casaplati PROMPT "Cheltuieli de infiintare" ;
|
||||
MESSAGE '201 :5311'
|
||||
ON SELECTION BAR 82190 OF Casaplati DO BAR_"82190"_OF_Casaplati_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Introducer PROMPT "\-"
|
||||
ON BAR 2 OF Introducer ACTIVATE POPUP NewItem
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Introducer PROMPT "\<Vizualizare"
|
||||
ON BAR 3 OF Introducer ACTIVATE POPUP Vizualizar
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Vizualizar SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Vizualizar PROMPT "\<Registrul de casa"
|
||||
ON SELECTION BAR 1 OF Vizualizar DO BAR_1_OF_Vizualizar_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Vizualizar PROMPT "\<Solduri case"
|
||||
ON SELECTION BAR 2 OF Vizualizar DO BAR_2_OF_Vizualizar_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Introducer PROMPT "\-"
|
||||
ON BAR 4 OF Introducer ACTIVATE POPUP _0bh0v7gzk
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0bh0v7gzk SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Introducer PROMPT "\<Listare"
|
||||
ON SELECTION BAR 5 OF Introducer DO BAR_5_OF_Introducer_FB2P
|
||||
ACTIVATE POPUP Introducer
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_"81010"_OF_Casaincasa_FB2P
|
||||
DO MENIU81010
|
||||
ENDPROC && BAR_"81010"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Casaincasa_FB2P
|
||||
|
||||
m.scd='5311 '
|
||||
m.scc='581 '
|
||||
|
||||
do alfabeta with;
|
||||
'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE"
|
||||
*
|
||||
IF BUTON=2
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDIF
|
||||
DO CODARE
|
||||
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
do INCASA
|
||||
|
||||
do sterge
|
||||
RETURN
|
||||
ENDPROC && BAR_2_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_"81070"_OF_Casaincasa_FB2P
|
||||
DO MENIU81070
|
||||
ENDPROC && BAR_"81070"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_"81080"_OF_Casaincasa_FB2P
|
||||
DO MENIU81080
|
||||
ENDPROC && BAR_"81080"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_"81020"_OF_Casaincasa_FB2P
|
||||
DO MENIU81020
|
||||
ENDPROC && BAR_"81020"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_"81030"_OF_Casaincasa_FB2P
|
||||
DO MENIU81030
|
||||
ENDPROC && BAR_"81030"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_"81040"_OF_Casaincasa_FB2P
|
||||
DO MENIU81040
|
||||
ENDPROC && BAR_"81040"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_"81050"_OF_Casaincasa_FB2P
|
||||
DO MENIU81050
|
||||
ENDPROC && BAR_"81050"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_"81060"_OF_Casaincasa_FB2P
|
||||
DO MENIU81060
|
||||
ENDPROC && BAR_"81060"_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_13_OF_Casaincasa_FB2P
|
||||
do procmonetar in proceduri.prg
|
||||
ENDPROC && BAR_13_OF_Casaincasa_FB2P
|
||||
|
||||
PROCEDURE BAR_"82010"_OF_Casaplati_FB2P
|
||||
DO MENIU82010
|
||||
ENDPROC && BAR_"82010"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Casaplati_FB2P
|
||||
m.scd='581 '
|
||||
m.scc='5311'
|
||||
|
||||
do alfabeta with;
|
||||
'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE"
|
||||
*
|
||||
IF BUTON=2
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDIF
|
||||
DO CODARE
|
||||
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
do plCASA
|
||||
|
||||
do sterge
|
||||
RETURN
|
||||
ENDPROC && BAR_2_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82020"_OF_Casaplati_FB2P
|
||||
DO MENIU82020
|
||||
ENDPROC && BAR_"82020"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82040"_OF_Casaplati_FB2P
|
||||
DO MENIU82040
|
||||
ENDPROC && BAR_"82040"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Casaplati_FB2P
|
||||
|
||||
m.scd='625 '
|
||||
m.scc='542 '
|
||||
***do BANCA.spr
|
||||
do alfabeta with;
|
||||
'CASAc',;
|
||||
"","","", ;
|
||||
"NUMELE ACHIZITORULUI","ACHIT542","NUME_2", ;
|
||||
'','', "PLATA DEPLASARI", ;
|
||||
""
|
||||
*
|
||||
IF BUTON=2
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDIF
|
||||
DO CODARE
|
||||
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
|
||||
SELE ACHIT542
|
||||
REPL ACHIT542.DAT WITH ACHIT542.DAT+M.SUMA
|
||||
do sterge
|
||||
|
||||
ENDPROC && BAR_6_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82100"_OF_Casaplati_FB2P
|
||||
DO MENIU82100
|
||||
ENDPROC && BAR_"82100"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82030"_OF_Casaplati_FB2P
|
||||
DO MENIU82030
|
||||
ENDPROC && BAR_"82030"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82050"_OF_Casaplati_FB2P
|
||||
DO MENIU82050
|
||||
ENDPROC && BAR_"82050"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82060"_OF_Casaplati_FB2P
|
||||
DO MENIU82060
|
||||
ENDPROC && BAR_"82060"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82120"_OF_Casaplati_FB2P
|
||||
DO MENIU82120
|
||||
ENDPROC && BAR_"82120"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82130"_OF_Casaplati_FB2P
|
||||
DO MENIU82130
|
||||
ENDPROC && BAR_"82130"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Salarii_FB2P
|
||||
*____________________________________________________________________________________________
|
||||
*PROCEDURE MENIU82070
|
||||
|
||||
m.scd='4211'
|
||||
m.scc='5311'
|
||||
|
||||
m.explicatia='PLATA SALARII CONTRACT'
|
||||
oa=createo('actsimc')
|
||||
oa.show(1)
|
||||
|
||||
IF BUTON=2
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDIF
|
||||
DO CODARE
|
||||
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
do plCASA
|
||||
do sterge
|
||||
|
||||
*RETURN
|
||||
ENDPROC && BAR_1_OF_Salarii_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Salarii_FB2P
|
||||
m.scd='4212'
|
||||
m.scc='5311'
|
||||
|
||||
m.explicatia='PLATA SALARII CONVENTIE'
|
||||
oa=createo('actsimc')
|
||||
oa.show(1)
|
||||
|
||||
IF BUTON=2
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDIF
|
||||
DO CODARE
|
||||
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
do plCASA
|
||||
do sterge
|
||||
ENDPROC && BAR_2_OF_Salarii_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Salarii_FB2P
|
||||
m.scd='4281'
|
||||
m.scc='5311'
|
||||
|
||||
m.explicatia='Datorii legate de personal'
|
||||
oa=createo('actsimc')
|
||||
oa.show(1)
|
||||
|
||||
IF BUTON=2
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDIF
|
||||
DO CODARE
|
||||
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
do plCASA
|
||||
do sterge
|
||||
ENDPROC && BAR_3_OF_Salarii_FB2P
|
||||
|
||||
PROCEDURE BAR_"82080"_OF_Casaplati_FB2P
|
||||
DO MENIU82080
|
||||
ENDPROC && BAR_"82080"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82090"_OF_Casaplati_FB2P
|
||||
DO MENIU82090
|
||||
ENDPROC && BAR_"82090"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82110"_OF_Casaplati_FB2P
|
||||
DO MENIU82110
|
||||
ENDPROC && BAR_"82110"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82140"_OF_Casaplati_FB2P
|
||||
DO MENIU82140
|
||||
ENDPROC && BAR_"82140"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82150"_OF_Casaplati_FB2P
|
||||
DO MENIU82150
|
||||
ENDPROC && BAR_"82150"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82160"_OF_Casaplati_FB2P
|
||||
DO MENIU82160
|
||||
ENDPROC && BAR_"82160"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82170"_OF_Casaplati_FB2P
|
||||
DO MENIU82170
|
||||
ENDPROC && BAR_"82170"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82180"_OF_Casaplati_FB2P
|
||||
DO MENIU82180
|
||||
ENDPROC && BAR_"82180"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_25_OF_Casaplati_FB2P
|
||||
|
||||
*ALFA='m.numeg=""'
|
||||
*BETA='m.numeg=""'
|
||||
*GAMA='m.numeg="PLATA GRATIFICATII"'
|
||||
|
||||
m.scd='625 '
|
||||
m.scc='5311 '
|
||||
***do casa.spr
|
||||
do alfabeta with;
|
||||
'casac',;
|
||||
'','','', ;
|
||||
'','','', ;
|
||||
'','',"PLATA DEPLASARI", ;
|
||||
"PLATA DEPLASARI"
|
||||
*
|
||||
IF BUTON=2
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDIF
|
||||
DO CODARE
|
||||
DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
do PLCASA
|
||||
|
||||
do sterge
|
||||
|
||||
|
||||
ENDPROC && BAR_25_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_"82190"_OF_Casaplati_FB2P
|
||||
do MENIU82190
|
||||
ENDPROC && BAR_"82190"_OF_Casaplati_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Vizualizar_FB2P
|
||||
osetviz.tbrprim.butoncasa.click
|
||||
ENDPROC && BAR_1_OF_Vizualizar_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Vizualizar_FB2P
|
||||
public m.sum1,m.sum2,m.sum3
|
||||
|
||||
sele casanume
|
||||
|
||||
M.SOLDDEB=0
|
||||
M.SOLDCRED=0
|
||||
sum INCASARI,PLATI to m.SUM1,M.SUM2
|
||||
M.SUM3=M.SUM1-M.SUM2
|
||||
SELE Bal
|
||||
seek '5311'
|
||||
if found()
|
||||
SCATTER MEMVAR
|
||||
IF M.SOLDDEB-M.SOLDCRED # M.SUM3
|
||||
do mesajval with 'Diferenta este:',M.SOLDDEB-M.SOLDCRED-M.SUM3
|
||||
ENDIF
|
||||
else
|
||||
do mesajval with '',M.SOLDDEB
|
||||
endif
|
||||
|
||||
sele casanume
|
||||
Obancana=CREATEOBJECT("afbancanav")
|
||||
Obancana.grid1.column1.controlsource="casa"
|
||||
Obancana.label10.caption='SOLDURI CASE'
|
||||
Obancana.SHOW(1)
|
||||
ENDPROC && BAR_2_OF_Vizualizar_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Introducer_FB2P
|
||||
SELE CASA
|
||||
REPORT FORMAT CASA.FRX TO PRINTER PROMPT NOCONSOLE preview
|
||||
ENDPROC && BAR_5_OF_Introducer_FB2P
|
||||
|
||||
*</Procedures>
|
||||
2188
Meniuri/contgest.mn2
Normal file
2188
Meniuri/contgest.mn2
Normal file
File diff suppressed because it is too large
Load Diff
82
Meniuri/creditori.mn2
Normal file
82
Meniuri/creditori.mn2
Normal file
@@ -0,0 +1,82 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="creditori.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Creditori SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Creditori PROMPT "Balanta C\<reditori"
|
||||
ON SELECTION BAR 1 OF Creditori DO BAR_1_OF_Creditori_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Creditori PROMPT "\<Inregistrari creditori"
|
||||
ON BAR 2 OF Creditori ACTIVATE POPUP Inregistra
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Inregistra SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Inregistra PROMPT "Cu test"
|
||||
ON SELECTION BAR 1 OF Inregistra DO BAR_1_OF_Inregistra_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Inregistra PROMPT "Fara test"
|
||||
ON SELECTION BAR 2 OF Inregistra DO BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Creditori PROMPT "\-"
|
||||
ON BAR 3 OF Creditori ACTIVATE POPUP _0z30tyir5
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0z30tyir5 SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Creditori PROMPT "Situatie operativa (462)"
|
||||
ON BAR 4 OF Creditori ACTIVATE POPUP _0z30tx7lf
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0z30tx7lf SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0z30tx7lf PROMPT "In luna curenta"
|
||||
ON SELECTION BAR 1 OF _0z30tx7lf DO BAR_1_OF__0z30tx7lf_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0z30tx7lf PROMPT "Istoric"
|
||||
ON SELECTION BAR 2 OF _0z30tx7lf DO BAR_2_OF__0z30tx7lf_FB2P
|
||||
ACTIVATE POPUP Creditori
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Creditori_FB2P
|
||||
*osetviz.tbrprim.butoncredi.click
|
||||
DO lans_balanta_parteneri WITH "462",.F. IN oparteneri.prg
|
||||
ENDPROC && BAR_1_OF_Creditori_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Inregistra_FB2P
|
||||
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*DO viz_facturi WITH 'creditor','credlun',462,.t.,.t.,'Inregistrari creditori','debit','credit'
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
DO lans_ireg_parteneri WITH .T.,'462',.F.
|
||||
|
||||
ENDPROC && BAR_1_OF_Inregistra_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Inregistra_FB2P
|
||||
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*DO viz_facturi WITH 'creditor','credlun',462,.f.,.t.,'Inregistrari creditori','debit','credit'
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
DO lans_ireg_parteneri WITH .F.,'462',.F.
|
||||
|
||||
ENDPROC && BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0z30tx7lf_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '462',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna"
|
||||
ENDPROC && BAR_1_OF__0z30tx7lf_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0z30tx7lf_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '462',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada"
|
||||
ENDPROC && BAR_2_OF__0z30tx7lf_FB2P
|
||||
|
||||
*</Procedures>
|
||||
16
Meniuri/creditoriop.mn2
Normal file
16
Meniuri/creditoriop.mn2
Normal file
@@ -0,0 +1,16 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="creditoriop.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Clienti PROMPT "Diurne" ;
|
||||
MESSAGE '625-462; 462-5311'
|
||||
ON SELECTION BAR 1 OF Clienti lans(10610)
|
||||
ACTIVATE POPUP Clienti
|
||||
|
||||
*</MenuCode>
|
||||
82
Meniuri/debitori.mn2
Normal file
82
Meniuri/debitori.mn2
Normal file
@@ -0,0 +1,82 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="debitori.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Debitori SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Debitori PROMPT "\<Balanta Debitori"
|
||||
ON SELECTION BAR 1 OF Debitori DO BAR_1_OF_Debitori_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Debitori PROMPT "\<Inregistrari debitori"
|
||||
ON BAR 2 OF Debitori ACTIVATE POPUP Inregistra
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Inregistra SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Inregistra PROMPT "Cu test"
|
||||
ON SELECTION BAR 1 OF Inregistra DO BAR_1_OF_Inregistra_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Inregistra PROMPT "Fara test"
|
||||
ON SELECTION BAR 2 OF Inregistra DO BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Debitori PROMPT "\-"
|
||||
ON BAR 3 OF Debitori ACTIVATE POPUP _0z30zmyyk
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0z30zmyyk SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Debitori PROMPT "Situatie operativa (461)"
|
||||
ON BAR 4 OF Debitori ACTIVATE POPUP _0z30zlgl1
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0z30zlgl1 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0z30zlgl1 PROMPT "In luna curenta"
|
||||
ON SELECTION BAR 1 OF _0z30zlgl1 DO BAR_1_OF__0z30zlgl1_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0z30zlgl1 PROMPT "Istoric"
|
||||
ON SELECTION BAR 2 OF _0z30zlgl1 DO BAR_2_OF__0z30zlgl1_FB2P
|
||||
ACTIVATE POPUP Debitori
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Debitori_FB2P
|
||||
*osetviz.tbrprim.butondeb.click
|
||||
DO lans_balanta_parteneri WITH "461",.T. IN oparteneri.prg
|
||||
ENDPROC && BAR_1_OF_Debitori_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Inregistra_FB2P
|
||||
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*DO viz_facturi WITH 'debitor','deblun',461,.t.,.t.,'Inregistrari debitori','debit','credit'
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
DO lans_ireg_parteneri WITH .T.,'461',.T.
|
||||
|
||||
|
||||
ENDPROC && BAR_1_OF_Inregistra_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Inregistra_FB2P
|
||||
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*DO viz_facturi WITH 'debitor','deblun',461,.f.,.t.,'Inregistrari debitori','debit','credit'
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
DO lans_ireg_parteneri WITH .F.,'461',.T.
|
||||
ENDPROC && BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0z30zlgl1_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '461',.T.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna"
|
||||
ENDPROC && BAR_1_OF__0z30zlgl1_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0z30zlgl1_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '461',.T.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada"
|
||||
ENDPROC && BAR_2_OF__0z30zlgl1_FB2P
|
||||
|
||||
*</Procedures>
|
||||
121
Meniuri/decont4511.mn2
Normal file
121
Meniuri/decont4511.mn2
Normal file
@@ -0,0 +1,121 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (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>
|
||||
40
Meniuri/dividende.mn2
Normal file
40
Meniuri/dividende.mn2
Normal file
@@ -0,0 +1,40 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="dividende.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 "Constituire impozit dividende" ;
|
||||
MESSAGE '457 : 446 '
|
||||
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "Datorii prescrise sau anulate" ;
|
||||
MESSAGE ' 457 : 758'
|
||||
ON SELECTION BAR 2 OF Shortcut lans(10510)
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'446') &&,4461,4462,4463,4464,4465,4466,4467,4468,4469')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10509)
|
||||
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
*</Procedures>
|
||||
16
Meniuri/editscurt.mn2
Normal file
16
Meniuri/editscurt.mn2
Normal file
@@ -0,0 +1,16 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="editscurt.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 _med_copy OF Shortcut PROMPT "\<Copiaza"
|
||||
|
||||
DEFINE BAR _med_paste OF Shortcut PROMPT "Re\<da"
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
38
Meniuri/fisedecont.mn2
Normal file
38
Meniuri/fisedecont.mn2
Normal file
@@ -0,0 +1,38 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="fisedecont.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Situatiico SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Situatiico PROMPT "\<Datorii catre buget"
|
||||
ON SELECTION BAR 1 OF Situatiico DO datorii_buget IN orapoarte.prg
|
||||
|
||||
DEFINE BAR 2 OF Situatiico PROMPT "\<Fisa de cont"
|
||||
ON SELECTION BAR 2 OF Situatiico Do fisa_cont_noua In orapoarte.prg With .F.
|
||||
|
||||
DEFINE BAR 3 OF Situatiico PROMPT "Fisa de cont in \<valuta"
|
||||
ON SELECTION BAR 3 OF Situatiico Do fisa_cont_noua In orapoarte.prg With .T.
|
||||
|
||||
DEFINE BAR 4 OF Situatiico PROMPT "\<Cartea mare"
|
||||
ON SELECTION BAR 4 OF Situatiico DO BAR_4_OF_Situatiico_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Situatiico PROMPT "\<Registrul Inventar"
|
||||
ON SELECTION BAR 5 OF Situatiico Do registrul_inventar In orapoarte.prg
|
||||
|
||||
DEFINE BAR 6 OF Situatiico PROMPT "Balanta c\<umulata"
|
||||
ON SELECTION BAR 6 OF Situatiico DO viz_balanta_contabilitate WITH "bal", .T. IN ooperatii_comune.prg
|
||||
ACTIVATE POPUP Situatiico
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_4_OF_Situatiico_FB2P
|
||||
loCarteaMare = CREATEOBJECT("frm_cartea_mare") && orapoarte.vcx
|
||||
loCarteaMare.show(1)
|
||||
ENDPROC && BAR_4_OF_Situatiico_FB2P
|
||||
|
||||
*</Procedures>
|
||||
1173
Meniuri/furnizori1.mn2
Normal file
1173
Meniuri/furnizori1.mn2
Normal file
File diff suppressed because it is too large
Load Diff
270
Meniuri/furnizori1_scurt.mn2
Normal file
270
Meniuri/furnizori1_scurt.mn2
Normal file
@@ -0,0 +1,270 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori1_scurt.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 "Factura de achizitie"
|
||||
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "\Factura de achizitie marfa cu amanuntul"
|
||||
ON SELECTION BAR 2 OF Shortcut
|
||||
|
||||
DEFINE BAR 3 OF Shortcut PROMPT "Factura externa de achizitie"
|
||||
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Shortcut PROMPT "\-"
|
||||
ON BAR 4 OF Shortcut ACTIVATE POPUP _138146gi7
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _138146gi7 SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Shortcut PROMPT "Constituire garantii"
|
||||
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Shortcut PROMPT "Inregistrare cheltuieli in avans" ;
|
||||
MESSAGE ' 471 :401; 4426: 401'
|
||||
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Shortcut PROMPT "\-"
|
||||
ON BAR 7 OF Shortcut ACTIVATE POPUP _13813zf6f
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _13813zf6f SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF Shortcut PROMPT "Tichete de masa"
|
||||
ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 9 OF Shortcut PROMPT "Combustibili cu taxa"
|
||||
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 10 OF Shortcut PROMPT "B.C.F."
|
||||
ON SELECTION BAR 10 OF Shortcut DO BAR_10_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 11 OF Shortcut PROMPT "Bonuri valorice"
|
||||
ON SELECTION BAR 11 OF Shortcut DO BAR_11_OF_Shortcut_FB2P
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
||||
lans(10456)
|
||||
IF buton=2
|
||||
DO deschid_actc
|
||||
RETURN
|
||||
ENDIF
|
||||
DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Factura de achizitie - Furnizori 401',10456
|
||||
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Shortcut_FB2P
|
||||
*DO FURN_E_MAT WITH .T. IN PROCMENIU.PRG
|
||||
SELE BAL
|
||||
GO TOP
|
||||
OS=CREA('SELCONT')
|
||||
OS.SHOW(1)
|
||||
IF BUTON=2
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
LANS(10423)
|
||||
ENDPROC && BAR_3_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Shortcut_FB2P
|
||||
lans(10412)
|
||||
ENDPROC && BAR_5_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Shortcut_FB2P
|
||||
lans(10410)
|
||||
ENDPROC && BAR_6_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_8_OF_Shortcut_FB2P
|
||||
lans(10459)
|
||||
IF buton=2
|
||||
DO deschid_actc
|
||||
RETURN
|
||||
ENDIF
|
||||
DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Tichete de masa',10459
|
||||
|
||||
*!* clasaact='actverif'
|
||||
*!* SCD1='628 '
|
||||
*!* SCC1='401 '
|
||||
*!* SCD2='4426 '
|
||||
*!* SCC2='401 '
|
||||
|
||||
*!* OA=CREATEOBJ('BONMASA')
|
||||
*!* OA.SHOW(1)
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* *******************************************
|
||||
*!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA,clasaact
|
||||
*!* *******************************************
|
||||
*!* IF m.NEIMPOZAB>0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='NEIMPOZABIL '
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,0,clasaact
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaI>0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,clasaact
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaM>0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='TVA '+str(m.ctvam,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM,clasaact
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* M.EXPLICATIA='TICHETE DE MASA'
|
||||
*!* DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact
|
||||
*!* m.nume_2='NEIMPOZABIL '
|
||||
*!* DO CONTABILIZEAZA WITH '4426 ','401 ',0,clasaact
|
||||
*!* *************************************************
|
||||
*!* SELE FURNIZOR
|
||||
*!* repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA
|
||||
*!* M.TOTCTVA=M.TOTCTVA+M.TAXA
|
||||
*!* M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB
|
||||
*!* DO ADCUMP
|
||||
*!* DO ADCHIND
|
||||
*!* DO ADRESPONS
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_8_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_9_OF_Shortcut_FB2P
|
||||
*DO MENIU44140
|
||||
lans(10460)
|
||||
IF buton=2
|
||||
DO deschid_actc
|
||||
RETURN
|
||||
ENDIF
|
||||
DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Combustibili cu taxa',10460
|
||||
ENDPROC && BAR_9_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_10_OF_Shortcut_FB2P
|
||||
lans(10461)
|
||||
IF buton=2
|
||||
DO deschid_actc
|
||||
RETURN
|
||||
ENDIF
|
||||
DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.F.,'B .C. F. -uri',10461
|
||||
*!* create table &loc\&nfscurt\tempo\ratelis.dbf free (nrcrt n(2),nume_2 c(30),scd C(4),scc C(4),suma n(12),BIFA l)
|
||||
*!* sele ratelis
|
||||
*!* index on nrcrt tag nrcrt
|
||||
*!* for i=1 to 6
|
||||
*!* appe blank
|
||||
*!* repl nrcrt with i
|
||||
*!* ENDFOR
|
||||
*!* SELE RATELIS
|
||||
*!* repl nume_2 with "VALOARE COMBUSTIBILI",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=1
|
||||
*!* repl nume_2 with "TVA COMBUSTIBILI",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=2
|
||||
*!* repl nume_2 with " ",SCD WITH '6022',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=3
|
||||
*!* repl nume_2 with "TAXA DE DRUM",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .T. for nrcrt=4
|
||||
*!* repl nume_2 with "PRET IMPRIMATE",SCD WITH '604',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=5
|
||||
*!* repl nume_2 with "TVA IMPRIMATE",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=6
|
||||
|
||||
*!* *brow
|
||||
|
||||
*!* titlu='B.C.F.'
|
||||
*!* do form ratelis
|
||||
|
||||
*!* if buton=2
|
||||
*!* return
|
||||
*!* endif
|
||||
*!* DO CODARE
|
||||
*!* sele ratelis
|
||||
*!* scan FOR !EMPTY(SCc) AND !EMPTY(SCd) AND !EMPTY(suma)
|
||||
*!* scat memv
|
||||
*!* if bifa
|
||||
*!* m.neimpozab=m.suma
|
||||
*!* else
|
||||
*!* m.neimpozab=0
|
||||
*!* endif
|
||||
*!* do contabilizeaza with m.scd,m.scc,m.suma
|
||||
*!* endscan
|
||||
|
||||
*!* SELE RATELIS
|
||||
*!* SUM SUMA FOR BIFA=.F. AND SCD#'4426' AND scc='401 ' TO M.TOTFTVAM
|
||||
*!* SUM SUMA FOR SCD='4426' TO M.TVAM
|
||||
*!* SUM SUMA FOR BIFA=.T. AND scc='401 ' TO M.NEIMPOZAB
|
||||
*!* M.TOTCTVA=M.TOTFTVAM+M.TVAM +m.neimpozab
|
||||
|
||||
*!* DO ADCUMP
|
||||
*!*
|
||||
*!* SELE FURNIZOR
|
||||
*!* LOCATE FOR NUME=ALLT(M.NUME)
|
||||
*!* IF flock()
|
||||
*!* REPL FURNIZOR.achizit with FURNIZOR.achizit+m.TOTCTVA
|
||||
*!* ENDIF
|
||||
*!* unlock
|
||||
|
||||
*!* use in ratelis
|
||||
ENDPROC && BAR_10_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_11_OF_Shortcut_FB2P
|
||||
lans(10462)
|
||||
IF buton=2
|
||||
DO deschid_actc
|
||||
RETURN
|
||||
ENDIF
|
||||
DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.F.,'Bonuri valorice',10462
|
||||
*!* create table &loc\&nfscurt\tempo\ratelis.dbf free (nrcrt n(2),nume_2 c(30),scd C(4),scc C(4),suma n(12),BIFA l)
|
||||
*!* sele ratelis
|
||||
*!* index on nrcrt tag nrcrt
|
||||
*!* for i=1 to 5
|
||||
*!* appe blank
|
||||
*!* repl nrcrt with i
|
||||
*!* ENDFOR
|
||||
*!* SELE RATELIS
|
||||
*!* repl nume_2 with "BONURI VALORICE",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=1
|
||||
*!* repl nume_2 with "TVA ",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=2
|
||||
*!* repl nume_2 with "FOND SPECIAL",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .T. for nrcrt=3
|
||||
*!* repl nume_2 with "VALOARE IMPRIMATE",SCD WITH '628',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=4
|
||||
*!* repl nume_2 with "TVA IMPRIMATE",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=5
|
||||
|
||||
*!* *brow
|
||||
|
||||
*!* titlu='BONURI VALORICE'
|
||||
*!* do form ratelis
|
||||
|
||||
*!* if buton=2
|
||||
*!* return
|
||||
*!* endif
|
||||
*!* DO CODARE
|
||||
*!* sele ratelis
|
||||
*!* scan FOR !EMPTY(SCc) AND !EMPTY(SCd) AND !EMPTY(suma)
|
||||
*!* scat memv
|
||||
*!* if bifa
|
||||
*!* m.neimpozab=m.suma
|
||||
*!* else
|
||||
*!* m.neimpozab=0
|
||||
*!* endif
|
||||
*!* do contabilizeaza with m.scd,m.scc,m.suma
|
||||
*!* endscan
|
||||
|
||||
*!* SELE RATELIS
|
||||
*!* SUM SUMA FOR BIFA=.F. AND SCD#'4426' TO M.TOTFTVAM
|
||||
*!* SUM SUMA FOR SCD='4426' TO M.TVAM
|
||||
*!* SUM SUMA FOR BIFA=.T. TO M.NEIMPOZAB
|
||||
*!* M.TOTCTVA=M.TOTFTVAM+M.TVAM +m.neimpozab
|
||||
|
||||
*!* DO ADCUMP
|
||||
*!*
|
||||
*!* SELE FURNIZOR
|
||||
*!* LOCATE FOR NUME=ALLT(M.NUME)
|
||||
*!* IF flock()
|
||||
*!* REPL FURNIZOR.achizit with FURNIZOR.achizit+m.TOTCTVA
|
||||
*!* ENDIF
|
||||
*!* unlock
|
||||
|
||||
*!* use in ratelis
|
||||
ENDPROC && BAR_11_OF_Shortcut_FB2P
|
||||
|
||||
*</Procedures>
|
||||
176
Meniuri/furnizori2.mn2
Normal file
176
Meniuri/furnizori2.mn2
Normal file
@@ -0,0 +1,176 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori2.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 "Factura de achizitie"
|
||||
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "Factura externa de achizitie"
|
||||
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 _138140a2e
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _138140a2e SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Shortcut PROMPT "In curs de aprovizionare"
|
||||
ON BAR 4 OF Shortcut ACTIVATE POPUP _2vc0mbr3g
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2vc0mbr3g SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _2vc0mbr3g PROMPT "Imobilizari corporale in curs de aprovizionare 22x" ;
|
||||
MESSAGE 'Note contabile: 223/224:404; 4426:404'
|
||||
ON SELECTION BAR 1 OF _2vc0mbr3g DO BAR_1_OF__2vc0mbr3g_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _2vc0mbr3g PROMPT "Imobilizari corporale (instalatii, utilaje) finalizare aprovizionare 223" ;
|
||||
MESSAGE 'Note contabile: 213x:223'
|
||||
ON SELECTION BAR 2 OF _2vc0mbr3g DO BAR_2_OF__2vc0mbr3g_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _2vc0mbr3g PROMPT "Imobilizari corporale (mobilier) finalizare aprovizionare 224" ;
|
||||
MESSAGE 'Note contabile: 214:224'
|
||||
ON SELECTION BAR 3 OF _2vc0mbr3g lans_generic(10604,'214', , '224')
|
||||
|
||||
DEFINE BAR 5 OF Shortcut PROMPT "\-"
|
||||
ON BAR 5 OF Shortcut ACTIVATE POPUP _2vc0mbumr
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2vc0mbumr SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF Shortcut PROMPT "Constituire garantii" ;
|
||||
MESSAGE '404 : 462'
|
||||
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Shortcut PROMPT "Inregistrare cheltuieli in avans" ;
|
||||
MESSAGE '471 :404; 4426 : 404'
|
||||
ON SELECTION BAR 7 OF Shortcut DO BAR_7_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Shortcut PROMPT "\-"
|
||||
ON BAR 8 OF Shortcut ACTIVATE POPUP _13813snx0
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _13813snx0 SHORTCUT RELATIVE
|
||||
DEFINE BAR 9 OF Shortcut PROMPT "Inregistrare obligatii creditate"
|
||||
ON BAR 9 OF Shortcut ACTIVATE POPUP _13813sjq0
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _13813sjq0 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _13813sjq0 PROMPT "Valoare imobilizari"
|
||||
ON BAR 1 OF _13813sjq0 ACTIVATE POPUP NewItem
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF NewItem PROMPT "Necorporale" ;
|
||||
MESSAGE '203 : 404 ; 4426 : 404'
|
||||
ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P
|
||||
|
||||
DEFINE BAR 2 OF NewItem PROMPT "Corporale" ;
|
||||
MESSAGE '212 : 404 ; 4426 : 404'
|
||||
ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _13813sjq0 PROMPT "Diferente nefavorabile de curs valutar" ;
|
||||
MESSAGE '6651: 404'
|
||||
ON SELECTION BAR 2 OF _13813sjq0 DO BAR_2_OF__13813sjq0_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _13813sjq0 PROMPT "Diferente favorabile de curs valutar" ;
|
||||
MESSAGE '404 : 7651'
|
||||
ON SELECTION BAR 3 OF _13813sjq0 DO BAR_3_OF__13813sjq0_FB2P
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
||||
*!* modificare v 2.2.20
|
||||
Local lnDeducere
|
||||
lnDeducere = 0
|
||||
*!* modificare v 2.2.20 ^
|
||||
buton = lans(10457,,,,@lnDeducere)
|
||||
If buton=2
|
||||
Do deschid_actc
|
||||
Return
|
||||
Endif
|
||||
|
||||
*!* modificare v 2.2.20
|
||||
*!* DO introducere_compacta WITH 'achi_mat','','404 ',.t.,.t.,'Achizitie-Cheltuieli Materiale-Furnizori 404','4426',10457
|
||||
Do introducere_compacta With 'achi_mat','','404 ',.T.,.T.,'Achizitie-Cheltuieli Materiale-Furnizori 404','4426',10457,,lnDeducere
|
||||
Release lnDeducere
|
||||
*!* modificare v 2.2.20 ^
|
||||
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
||||
*!* SELE BAL
|
||||
*!* GO TOP
|
||||
*!* OS=CREA('SELCONT')
|
||||
*!* OS.SHOW(1)
|
||||
*!* IF BUTON=2
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'20,21,22,23')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
LANS(10424)
|
||||
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__2vc0mbr3g_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Imobilizari in curs de aprovizionare",'223,224')
|
||||
IF buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
|
||||
lans_generic(10216,loCont.cont, loCont.acont)
|
||||
ENDPROC && BAR_1_OF__2vc0mbr3g_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__2vc0mbr3g_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Imobilizari corporale 213x",'2311,2132,2133')
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
lans_generic(10604,loCont.Cont, loCont.Acont, '223')
|
||||
ENDPROC && BAR_2_OF__2vc0mbr3g_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Shortcut_FB2P
|
||||
lans(10413)
|
||||
ENDPROC && BAR_6_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF_Shortcut_FB2P
|
||||
lans(10483)
|
||||
ENDPROC && BAR_7_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_NewItem_FB2P
|
||||
lans(10224)
|
||||
ENDPROC && BAR_1_OF_NewItem_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_NewItem_FB2P
|
||||
lans(10225)
|
||||
ENDPROC && BAR_2_OF_NewItem_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__13813sjq0_FB2P
|
||||
lans(10226)
|
||||
ENDPROC && BAR_2_OF__13813sjq0_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__13813sjq0_FB2P
|
||||
lans(10227)
|
||||
ENDPROC && BAR_3_OF__13813sjq0_FB2P
|
||||
|
||||
*</Procedures>
|
||||
890
Meniuri/furnizori2_.mn2
Normal file
890
Meniuri/furnizori2_.mn2
Normal file
@@ -0,0 +1,890 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori2_.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR "44" OF Furnizori PROMPT "Cheltuieli neplatite"
|
||||
ON BAR 44 OF Furnizori ACTIVATE POPUP _s8o01v1sp
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _s8o01v1sp SHORTCUT RELATIVE
|
||||
DEFINE BAR "44010" OF _s8o01v1sp PROMPT "Materiale nestocate 604" ;
|
||||
MESSAGE '604 :401 ;4426:401 '
|
||||
ON SELECTION BAR 44010 OF _s8o01v1sp DO BAR_"44010"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44020" OF _s8o01v1sp PROMPT "Energie si apa 605" ;
|
||||
MESSAGE '605 :401 ;4426: 401'
|
||||
ON SELECTION BAR 44020 OF _s8o01v1sp DO BAR_"44020"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44030" OF _s8o01v1sp PROMPT "Intretinere si reparatii 611" ;
|
||||
MESSAGE '611 :401 ;4426:401 '
|
||||
ON SELECTION BAR 44030 OF _s8o01v1sp DO BAR_"44030"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44040" OF _s8o01v1sp PROMPT "Locatii si chirii 612" ;
|
||||
MESSAGE '612 :401 ;4426:401 '
|
||||
ON SELECTION BAR 44040 OF _s8o01v1sp DO BAR_"44040"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44100" OF _s8o01v1sp PROMPT "Prime de asigurare 613" ;
|
||||
MESSAGE '613 :401 ;4426:401 '
|
||||
ON SELECTION BAR 44100 OF _s8o01v1sp DO BAR_"44100"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44110" OF _s8o01v1sp PROMPT "Studii si cercetari 614" ;
|
||||
MESSAGE '614 :401 ;4426:401 '
|
||||
ON SELECTION BAR 44110 OF _s8o01v1sp DO BAR_"44110"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44120" OF _s8o01v1sp PROMPT "Colaboratori 621" ;
|
||||
MESSAGE '621 :401 ;4426:401 '
|
||||
ON SELECTION BAR 44120 OF _s8o01v1sp DO BAR_"44120"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44130" OF _s8o01v1sp PROMPT "Comisioane si onorarii 622" ;
|
||||
MESSAGE '622 :401 ;4426:401 '
|
||||
ON SELECTION BAR 44130 OF _s8o01v1sp DO BAR_"44130"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44050" OF _s8o01v1sp PROMPT "Protocol 6231" ;
|
||||
MESSAGE '6231:401 ;4426:401 '
|
||||
ON SELECTION BAR 44050 OF _s8o01v1sp DO BAR_"44050"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR 10 OF _s8o01v1sp PROMPT "Reclama 6232" ;
|
||||
MESSAGE '6232:401 ;4426:401 '
|
||||
ON SELECTION BAR 10 OF _s8o01v1sp DO BAR_10_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44060" OF _s8o01v1sp PROMPT "Transport bunuri si persoane 624" ;
|
||||
MESSAGE '624 :401 ;4426:401 '
|
||||
ON SELECTION BAR 44060 OF _s8o01v1sp DO BAR_"44060"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44070" OF _s8o01v1sp PROMPT "Deplasari, detasari 625" ;
|
||||
MESSAGE '625 :401 ;4426:401 '
|
||||
ON SELECTION BAR 44070 OF _s8o01v1sp DO BAR_"44070"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44080" OF _s8o01v1sp PROMPT "Posta si telecomunicatii 626" ;
|
||||
MESSAGE '626 :401 ;4426:401 '
|
||||
ON SELECTION BAR 44080 OF _s8o01v1sp DO BAR_"44080"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44090" OF _s8o01v1sp PROMPT "Alte cheltuieli la terti 628" ;
|
||||
MESSAGE '628 :401 ;4426:401 '
|
||||
ON SELECTION BAR 44090 OF _s8o01v1sp DO BAR_"44090"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR 15 OF _s8o01v1sp PROMPT "Tichete de masa"
|
||||
ON SELECTION BAR 15 OF _s8o01v1sp DO BAR_15_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "44140" OF _s8o01v1sp PROMPT "Combustibili cu taxa" ;
|
||||
MESSAGE '6012:401 ;4426:401 '
|
||||
ON SELECTION BAR 44140 OF _s8o01v1sp DO BAR_"44140"_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR 17 OF _s8o01v1sp PROMPT "B.C.F."
|
||||
ON SELECTION BAR 17 OF _s8o01v1sp DO BAR_17_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR 18 OF _s8o01v1sp PROMPT "Bonuri valorice"
|
||||
ON SELECTION BAR 18 OF _s8o01v1sp DO BAR_18_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR 19 OF _s8o01v1sp PROMPT "\-"
|
||||
ON BAR 19 OF _s8o01v1sp ACTIVATE POPUP _0w60k6cc3
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0w60k6cc3 SHORTCUT RELATIVE
|
||||
DEFINE BAR 20 OF _s8o01v1sp PROMPT "Cheltuieli diverse"
|
||||
ON SELECTION BAR 20 OF _s8o01v1sp DO BAR_20_OF__s8o01v1sp_FB2P
|
||||
|
||||
DEFINE BAR "45" OF Furnizori PROMPT "Cheltuieli platite din casa"
|
||||
ON BAR 45 OF Furnizori ACTIVATE POPUP _s8o01v1sq
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _s8o01v1sq SHORTCUT RELATIVE
|
||||
DEFINE BAR "45010" OF _s8o01v1sq PROMPT "Materiale nestocate 604" ;
|
||||
MESSAGE '604 :401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45010 OF _s8o01v1sq DO BAR_"45010"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45020" OF _s8o01v1sq PROMPT "Energie si apa 605" ;
|
||||
MESSAGE '605 :401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45020 OF _s8o01v1sq DO BAR_"45020"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45030" OF _s8o01v1sq PROMPT "Intretinere si reparatii 611" ;
|
||||
MESSAGE '611 :401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45030 OF _s8o01v1sq DO BAR_"45030"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45040" OF _s8o01v1sq PROMPT "Locatii si chirii 612" ;
|
||||
MESSAGE '612 :401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45040 OF _s8o01v1sq DO BAR_"45040"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45100" OF _s8o01v1sq PROMPT "Prime de asigurare 613" ;
|
||||
MESSAGE '613 :401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45100 OF _s8o01v1sq DO BAR_"45100"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45110" OF _s8o01v1sq PROMPT "Studii si cercetari 614" ;
|
||||
MESSAGE '614 :401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45110 OF _s8o01v1sq DO BAR_"45110"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45120" OF _s8o01v1sq PROMPT "Colaboratori 621" ;
|
||||
MESSAGE '621 :401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45120 OF _s8o01v1sq DO BAR_"45120"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45130" OF _s8o01v1sq PROMPT "Comisioane si onorarii 622" ;
|
||||
MESSAGE '622 :401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45130 OF _s8o01v1sq DO BAR_"45130"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45050" OF _s8o01v1sq PROMPT "Protocol 6231" ;
|
||||
MESSAGE '6231:401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45050 OF _s8o01v1sq DO BAR_"45050"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR 10 OF _s8o01v1sq PROMPT "Reclama 6232" ;
|
||||
MESSAGE '6232:401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 10 OF _s8o01v1sq DO BAR_10_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45060" OF _s8o01v1sq PROMPT "Transport bunuri si persoane 624" ;
|
||||
MESSAGE '624 :401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45060 OF _s8o01v1sq DO BAR_"45060"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45070" OF _s8o01v1sq PROMPT "Deplasari, detasari 625" ;
|
||||
MESSAGE '625 :401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45070 OF _s8o01v1sq DO BAR_"45070"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45080" OF _s8o01v1sq PROMPT "Posta si telecomunicatii 626" ;
|
||||
MESSAGE '625 :401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45080 OF _s8o01v1sq DO BAR_"45080"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45090" OF _s8o01v1sq PROMPT "Alte cheltuieli la terti 628" ;
|
||||
MESSAGE '628 :401 ;4426:401 ;401 :5311'
|
||||
ON SELECTION BAR 45090 OF _s8o01v1sq DO BAR_"45090"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "45140" OF _s8o01v1sq PROMPT "\Combustibili cu taxa"
|
||||
ON SELECTION BAR 45140 OF _s8o01v1sq DO BAR_"45140"_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR 16 OF _s8o01v1sq PROMPT "\Tichete de masa"
|
||||
ON SELECTION BAR 16 OF _s8o01v1sq DO BAR_16_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR 17 OF _s8o01v1sq PROMPT "\-"
|
||||
ON SELECTION BAR 17 OF _s8o01v1sq
|
||||
|
||||
DEFINE BAR 18 OF _s8o01v1sq PROMPT "Cheltuieli diverse"
|
||||
ON SELECTION BAR 18 OF _s8o01v1sq DO BAR_18_OF__s8o01v1sq_FB2P
|
||||
|
||||
DEFINE BAR "46" OF Furnizori PROMPT "Cheltuieli platite din 542"
|
||||
ON BAR 46 OF Furnizori ACTIVATE POPUP _s3n000oov
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _s3n000oov SHORTCUT RELATIVE
|
||||
DEFINE BAR "46010" OF _s3n000oov PROMPT "Materiale nestocate 604" ;
|
||||
MESSAGE '604 :401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46010 OF _s3n000oov DO BAR_"46010"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46020" OF _s3n000oov PROMPT "Energie si apa 605" ;
|
||||
MESSAGE '605 :401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46020 OF _s3n000oov DO BAR_"46020"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46030" OF _s3n000oov PROMPT "Intretinere si reparatii 611" ;
|
||||
MESSAGE '611 :401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46030 OF _s3n000oov DO BAR_"46030"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46040" OF _s3n000oov PROMPT "Locatii si chirii 612" ;
|
||||
MESSAGE '612 :401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46040 OF _s3n000oov DO BAR_"46040"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46110" OF _s3n000oov PROMPT "Prime de asigurare 613" ;
|
||||
MESSAGE '613 :401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46110 OF _s3n000oov DO BAR_"46110"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46100" OF _s3n000oov PROMPT "Studii si cercetari 614" ;
|
||||
MESSAGE '614 :401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46100 OF _s3n000oov DO BAR_"46100"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46120" OF _s3n000oov PROMPT "Colaboratori 621" ;
|
||||
MESSAGE '621 :401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46120 OF _s3n000oov DO BAR_"46120"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46130" OF _s3n000oov PROMPT "Comisioane si onorarii 622" ;
|
||||
MESSAGE '622 :401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46130 OF _s3n000oov DO BAR_"46130"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46050" OF _s3n000oov PROMPT "Protocol 6231" ;
|
||||
MESSAGE '6231:401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46050 OF _s3n000oov DO BAR_"46050"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR 10 OF _s3n000oov PROMPT "Reclama 6232" ;
|
||||
MESSAGE '6232:401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 10 OF _s3n000oov DO BAR_10_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46060" OF _s3n000oov PROMPT "Transport bunuri si persoane 624" ;
|
||||
MESSAGE '624 :401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46060 OF _s3n000oov DO BAR_"46060"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46070" OF _s3n000oov PROMPT "Deplasari, detasari 625" ;
|
||||
MESSAGE '625 :401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46070 OF _s3n000oov DO BAR_"46070"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46080" OF _s3n000oov PROMPT "Posta si telecomunicatii 626" ;
|
||||
MESSAGE '626 :401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46080 OF _s3n000oov DO BAR_"46080"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46090" OF _s3n000oov PROMPT "Alte cheltuieli la teri 628" ;
|
||||
MESSAGE '628 :401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46090 OF _s3n000oov DO BAR_"46090"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR "46140" OF _s3n000oov PROMPT "\Combustibili cu taxa" ;
|
||||
MESSAGE '6012:401 ;4426:401 ;401 :542 '
|
||||
ON SELECTION BAR 46140 OF _s3n000oov DO BAR_"46140"_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR 16 OF _s3n000oov PROMPT "\Tichete de masa"
|
||||
ON SELECTION BAR 16 OF _s3n000oov DO BAR_16_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR 17 OF _s3n000oov PROMPT "\-"
|
||||
ON BAR 17 OF _s3n000oov ACTIVATE POPUP _0w60k8bd3
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0w60k8bd3 SHORTCUT RELATIVE
|
||||
DEFINE BAR 18 OF _s3n000oov PROMPT "Cheltuieli diverse"
|
||||
ON SELECTION BAR 18 OF _s3n000oov DO BAR_18_OF__s3n000oov_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Furnizori PROMPT "\-"
|
||||
ON BAR 4 OF Furnizori ACTIVATE POPUP _1131460yy
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1131460yy SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Furnizori PROMPT "Facturi nesosite"
|
||||
ON SELECTION BAR 5 OF Furnizori DO BAR_5_OF_Furnizori_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Furnizori PROMPT "\-"
|
||||
ON BAR 6 OF Furnizori ACTIVATE POPUP _0xs0llvv4
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0xs0llvv4 SHORTCUT RELATIVE
|
||||
DEFINE BAR 7 OF Furnizori PROMPT "Inregistrare cheltuieli in avans" ;
|
||||
MESSAGE '471 :401 ;4426:401 '
|
||||
ON SELECTION BAR 7 OF Furnizori DO BAR_7_OF_Furnizori_FB2P
|
||||
ACTIVATE POPUP Furnizori
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_"44010"_OF__s8o01v1sp_FB2P
|
||||
lans(10228)
|
||||
*!* nr_meniu=44010
|
||||
*!* DO INcindneplatite WITH '604 ','401 ','4426 ','401 ','FACTURI',"actgen02"
|
||||
ENDPROC && BAR_"44010"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44020"_OF__s8o01v1sp_FB2P
|
||||
lans(10229)
|
||||
*!* nr_meniu=44020
|
||||
*!* DO INcindneplatite WITH '605 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
ENDPROC && BAR_"44020"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44030"_OF__s8o01v1sp_FB2P
|
||||
*!* nr_meniu=44030
|
||||
*!* DO INcindneplatite WITH '611 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
lans(10230)
|
||||
ENDPROC && BAR_"44030"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44040"_OF__s8o01v1sp_FB2P
|
||||
lans(10231)
|
||||
*!* nr_meniu=44040
|
||||
*!* DO INcindneplatite WITH '612 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
ENDPROC && BAR_"44040"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44100"_OF__s8o01v1sp_FB2P
|
||||
lans(10232)
|
||||
*!* nr_meniu=44100
|
||||
*!* DO INcindneplatite WITH '613 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
ENDPROC && BAR_"44100"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44110"_OF__s8o01v1sp_FB2P
|
||||
lans(10233)
|
||||
*!* nr_meniu=44110
|
||||
*!* DO INcindneplatite WITH '614 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
ENDPROC && BAR_"44110"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44120"_OF__s8o01v1sp_FB2P
|
||||
lans(10234)
|
||||
*!* nr_meniu=44120
|
||||
*!* DO INcindneplatite WITH '621 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
ENDPROC && BAR_"44120"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44130"_OF__s8o01v1sp_FB2P
|
||||
lans(10235)
|
||||
*!* nr_meniu=44130
|
||||
*!* DO INcindneplatite WITH '622 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
ENDPROC && BAR_"44130"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44050"_OF__s8o01v1sp_FB2P
|
||||
lans(10236)
|
||||
*!* nr_meniu=44050
|
||||
*!* DO INcindneplatite WITH '6231 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
ENDPROC && BAR_"44050"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_10_OF__s8o01v1sp_FB2P
|
||||
lans(10237)
|
||||
*!* DO INcindneplatite WITH '6232 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
ENDPROC && BAR_10_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44060"_OF__s8o01v1sp_FB2P
|
||||
lans(10238)
|
||||
*!* nr_meniu=44060
|
||||
*!* DO INcindneplatite WITH '624 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
ENDPROC && BAR_"44060"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44070"_OF__s8o01v1sp_FB2P
|
||||
lans(10239)
|
||||
*!* nr_meniu=44070
|
||||
*!* DO INcindneplatite WITH '625 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
ENDPROC && BAR_"44070"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44080"_OF__s8o01v1sp_FB2P
|
||||
lans(10240)
|
||||
*!* nr_meniu=44080
|
||||
*!* DO INcindneplatite WITH '626 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
ENDPROC && BAR_"44080"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44090"_OF__s8o01v1sp_FB2P
|
||||
lans(10241)
|
||||
*!* nr_meniu=44090
|
||||
*!* DO INcindneplatite WITH '628 ','401 ','4426 ','401 ','FACTURI','ACTGEN02'
|
||||
ENDPROC && BAR_"44090"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_15_OF__s8o01v1sp_FB2P
|
||||
|
||||
clasaact='actverif'
|
||||
SCD1='628 '
|
||||
SCC1='401 '
|
||||
SCD2='4426 '
|
||||
SCC2='401 '
|
||||
|
||||
OA=CREATEOBJ('BONMASA')
|
||||
OA.SHOW(1)
|
||||
IF BUTON=2
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDIF
|
||||
DO CODARE
|
||||
*******************************************
|
||||
DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA,clasaact
|
||||
*******************************************
|
||||
IF m.NEIMPOZAB>0
|
||||
m.num=m.nume_2
|
||||
m.nume_2='NEIMPOZABIL '
|
||||
DO CONTABILIZEAZA WITH SCD2,SCC2,0,clasaact
|
||||
M.NUME_2=M.NUM
|
||||
ENDIF
|
||||
IF m.totftvaI>0
|
||||
m.num=m.nume_2
|
||||
m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,clasaact
|
||||
M.NUME_2=M.NUM
|
||||
ENDIF
|
||||
IF m.totftvaM>0
|
||||
m.num=m.nume_2
|
||||
m.nume_2='TVA '+str(m.ctvam,5,2)
|
||||
DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM,clasaact
|
||||
M.NUME_2=M.NUM
|
||||
ENDIF
|
||||
M.EXPLICATIA='TICHETE DE MASA'
|
||||
DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact
|
||||
m.nume_2='NEIMPOZABIL '
|
||||
DO CONTABILIZEAZA WITH '4426 ','401 ',0,clasaact
|
||||
*************************************************
|
||||
SELE FURNIZOR
|
||||
repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA
|
||||
M.TOTCTVA=M.TOTCTVA+M.TAXA
|
||||
M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB
|
||||
DO ADCUMP
|
||||
DO ADCHIND
|
||||
DO ADRESPONS
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDPROC && BAR_15_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"44140"_OF__s8o01v1sp_FB2P
|
||||
DO MENIU44140
|
||||
ENDPROC && BAR_"44140"_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_17_OF__s8o01v1sp_FB2P
|
||||
create table &loc\&nfscurt\tempo\ratelis.dbf free (nrcrt n(2),nume_2 c(30),scd C(4),scc C(4),suma n(12),BIFA l)
|
||||
sele ratelis
|
||||
index on nrcrt tag nrcrt
|
||||
for i=1 to 6
|
||||
appe blank
|
||||
repl nrcrt with i
|
||||
ENDFOR
|
||||
SELE RATELIS
|
||||
repl nume_2 with "VALOARE COMBUSTIBILI",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=1
|
||||
repl nume_2 with "TVA COMBUSTIBILI",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=2
|
||||
repl nume_2 with " ",SCD WITH '6022',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=3
|
||||
repl nume_2 with "TAXA DE DRUM",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .T. for nrcrt=4
|
||||
repl nume_2 with "PRET IMPRIMATE",SCD WITH '604',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=5
|
||||
repl nume_2 with "TVA IMPRIMATE",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=6
|
||||
|
||||
*brow
|
||||
|
||||
titlu='B.C.F.'
|
||||
do form ratelis
|
||||
|
||||
if buton=2
|
||||
return
|
||||
endif
|
||||
DO CODARE
|
||||
sele ratelis
|
||||
scan FOR !EMPTY(SCc) AND !EMPTY(SCd) AND !EMPTY(suma)
|
||||
scat memv
|
||||
if bifa
|
||||
m.neimpozab=m.suma
|
||||
else
|
||||
m.neimpozab=0
|
||||
endif
|
||||
do contabilizeaza with m.scd,m.scc,m.suma
|
||||
endscan
|
||||
|
||||
SELE RATELIS
|
||||
SUM SUMA FOR BIFA=.F. AND SCD#'4426' AND scc='401 ' TO M.TOTFTVAM
|
||||
SUM SUMA FOR SCD='4426' TO M.TVAM
|
||||
SUM SUMA FOR BIFA=.T. AND scc='401 ' TO M.NEIMPOZAB
|
||||
M.TOTCTVA=M.TOTFTVAM+M.TVAM +m.neimpozab
|
||||
|
||||
DO ADCUMP
|
||||
|
||||
SELE FURNIZOR
|
||||
LOCATE FOR NUME=ALLT(M.NUME)
|
||||
IF flock()
|
||||
REPL FURNIZOR.achizit with FURNIZOR.achizit+m.TOTCTVA
|
||||
ENDIF
|
||||
unlock
|
||||
|
||||
use in ratelis
|
||||
ENDPROC && BAR_17_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_18_OF__s8o01v1sp_FB2P
|
||||
create table &loc\&nfscurt\tempo\ratelis.dbf free (nrcrt n(2),nume_2 c(30),scd C(4),scc C(4),suma n(12),BIFA l)
|
||||
sele ratelis
|
||||
index on nrcrt tag nrcrt
|
||||
for i=1 to 5
|
||||
appe blank
|
||||
repl nrcrt with i
|
||||
ENDFOR
|
||||
SELE RATELIS
|
||||
repl nume_2 with "BONURI VALORICE",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=1
|
||||
repl nume_2 with "TVA ",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=2
|
||||
repl nume_2 with "FOND SPECIAL",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .T. for nrcrt=3
|
||||
repl nume_2 with "VALOARE IMPRIMATE",SCD WITH '628',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=4
|
||||
repl nume_2 with "TVA IMPRIMATE",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=5
|
||||
|
||||
*brow
|
||||
|
||||
titlu='BONURI VALORICE'
|
||||
do form ratelis
|
||||
|
||||
if buton=2
|
||||
return
|
||||
endif
|
||||
DO CODARE
|
||||
sele ratelis
|
||||
scan FOR !EMPTY(SCc) AND !EMPTY(SCd) AND !EMPTY(suma)
|
||||
scat memv
|
||||
if bifa
|
||||
m.neimpozab=m.suma
|
||||
else
|
||||
m.neimpozab=0
|
||||
endif
|
||||
do contabilizeaza with m.scd,m.scc,m.suma
|
||||
endscan
|
||||
|
||||
SELE RATELIS
|
||||
SUM SUMA FOR BIFA=.F. AND SCD#'4426' TO M.TOTFTVAM
|
||||
SUM SUMA FOR SCD='4426' TO M.TVAM
|
||||
SUM SUMA FOR BIFA=.T. TO M.NEIMPOZAB
|
||||
M.TOTCTVA=M.TOTFTVAM+M.TVAM +m.neimpozab
|
||||
|
||||
DO ADCUMP
|
||||
|
||||
SELE FURNIZOR
|
||||
LOCATE FOR NUME=ALLT(M.NUME)
|
||||
IF flock()
|
||||
REPL FURNIZOR.achizit with FURNIZOR.achizit+m.TOTCTVA
|
||||
ENDIF
|
||||
unlock
|
||||
|
||||
use in ratelis
|
||||
ENDPROC && BAR_18_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_20_OF__s8o01v1sp_FB2P
|
||||
SELECT BAL
|
||||
ose=crea('selcont')
|
||||
ose.show(1)
|
||||
IF buton=2
|
||||
RETURN
|
||||
ENDIF
|
||||
lans(10311)
|
||||
*!* m.scd=CN
|
||||
|
||||
*!* DO INcindneplatite WITH M.SCD,'401 ','4426','401 ','FACTURI',"actgen02"
|
||||
ENDPROC && BAR_20_OF__s8o01v1sp_FB2P
|
||||
|
||||
PROCEDURE BAR_"45010"_OF__s8o01v1sq_FB2P
|
||||
lans(10242)
|
||||
*!* nr_meniu=45010
|
||||
*!* DO INcindplatite WITH '604 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA', 'actgen02PERc'
|
||||
ENDPROC && BAR_"45010"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45020"_OF__s8o01v1sq_FB2P
|
||||
lans(10243)
|
||||
*!* nr_meniu=45020
|
||||
*!* DO INcindplatite WITH '605 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
ENDPROC && BAR_"45020"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45030"_OF__s8o01v1sq_FB2P
|
||||
lans(10244)
|
||||
*!* nr_meniu=45020
|
||||
*!* DO INcindplatite WITH '611 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
ENDPROC && BAR_"45030"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45040"_OF__s8o01v1sq_FB2P
|
||||
lans(10245)
|
||||
*!* nr_meniu=45040
|
||||
*!* DO INcindplatite WITH '612 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
ENDPROC && BAR_"45040"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45100"_OF__s8o01v1sq_FB2P
|
||||
lans(10246)
|
||||
*!* DO INcindplatite WITH '613 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
ENDPROC && BAR_"45100"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45110"_OF__s8o01v1sq_FB2P
|
||||
lans(10247)
|
||||
*!* DO INcindplatite WITH '614 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
ENDPROC && BAR_"45110"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45120"_OF__s8o01v1sq_FB2P
|
||||
*!* DO INcindplatite WITH '621 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
lans(10248)
|
||||
ENDPROC && BAR_"45120"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45130"_OF__s8o01v1sq_FB2P
|
||||
lans(10249)
|
||||
*DO INcindplatite WITH '622 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
ENDPROC && BAR_"45130"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45050"_OF__s8o01v1sq_FB2P
|
||||
lans(10250)
|
||||
*!* DO INcindplatite WITH '6231 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
ENDPROC && BAR_"45050"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_10_OF__s8o01v1sq_FB2P
|
||||
lans(10251)
|
||||
*DO INcindplatite WITH '6232 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
ENDPROC && BAR_10_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45060"_OF__s8o01v1sq_FB2P
|
||||
lans(10252)
|
||||
*!* DO INcindplatite WITH '624 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
ENDPROC && BAR_"45060"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45070"_OF__s8o01v1sq_FB2P
|
||||
lans(10253)
|
||||
*DO INcindplatite WITH '625 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
ENDPROC && BAR_"45070"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45080"_OF__s8o01v1sq_FB2P
|
||||
lans(10254)
|
||||
*DO INcindplatite WITH '626 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
ENDPROC && BAR_"45080"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45090"_OF__s8o01v1sq_FB2P
|
||||
lans(10255)
|
||||
*DO INcindplatite WITH '628 ','401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA','actgen02PERc'
|
||||
ENDPROC && BAR_"45090"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"45140"_OF__s8o01v1sq_FB2P
|
||||
DO MENIU45140
|
||||
*ACT604
|
||||
ENDPROC && BAR_"45140"_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_16_OF__s8o01v1sq_FB2P
|
||||
|
||||
clasaact='actverif'
|
||||
SCD1='628 '
|
||||
SCC1='401 '
|
||||
SCD2='4426'
|
||||
SCC2='401 '
|
||||
|
||||
OA=CREATEOBJ('BONMASAc')
|
||||
OA.SHOW(1)
|
||||
IF BUTON=2
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDIF
|
||||
DO CODARE
|
||||
*******************************************
|
||||
DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA,clasaact
|
||||
*******************************************
|
||||
IF m.NEIMPOZAB>0
|
||||
m.num=m.nume_2
|
||||
m.nume_2='NEIMPOZABIL '
|
||||
DO CONTABILIZEAZA WITH SCD2,SCC2,0,clasaact
|
||||
M.NUME_2=M.NUM
|
||||
ENDIF
|
||||
IF m.totftvaI>0
|
||||
m.num=m.nume_2
|
||||
m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,clasaact
|
||||
M.NUME_2=M.NUM
|
||||
ENDIF
|
||||
IF m.totftvaM>0
|
||||
m.num=m.nume_2
|
||||
m.nume_2='TVA '+str(m.ctvam,5,2)
|
||||
DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM,clasaact
|
||||
M.NUME_2=M.NUM
|
||||
ENDIF
|
||||
M.EXPLICATIA='TICHETE DE MASA'
|
||||
DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact
|
||||
M.NUM=M.NUME_2
|
||||
m.nume_2='NEIMPOZABIL '
|
||||
DO CONTABILIZEAZA WITH '4426','401 ',0,clasaact
|
||||
*************************************************
|
||||
SELE FURNIZOR
|
||||
repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA
|
||||
M.TOTCTVA=M.TOTCTVA+M.TAXA
|
||||
M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB
|
||||
M.EXPLICATIA='PLATA FURNIZOR'
|
||||
M.NUME_2=M.NUM
|
||||
do contabilizeaza with '401 ','5311',m.totctva,clasaact
|
||||
|
||||
do PLcasa
|
||||
DO ADCUMP
|
||||
DO ADCHIND
|
||||
DO ADRESPONS
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDPROC && BAR_16_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_18_OF__s8o01v1sq_FB2P
|
||||
SELECT BAL
|
||||
ose=crea('selcont')
|
||||
ose.show(1)
|
||||
IF buton=2
|
||||
RETURN
|
||||
ENDIF
|
||||
lans(10312)
|
||||
*!* m.scd=CN
|
||||
|
||||
*!* DO INcindplatite WITH m.scd,'401 ','4426 ','401 ','401 ','5311 ','FACTURI','PLCASA', 'actgen02PERc'
|
||||
ENDPROC && BAR_18_OF__s8o01v1sq_FB2P
|
||||
|
||||
PROCEDURE BAR_"46010"_OF__s3n000oov_FB2P
|
||||
lans(10256)
|
||||
*!* nr_meniu=46010
|
||||
*!* DO INcindplatite WITH '604 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46010"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46020"_OF__s3n000oov_FB2P
|
||||
lans(10257)
|
||||
*!* nr_meniu=46020
|
||||
*!* DO INcindplatite WITH '605 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46020"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46030"_OF__s3n000oov_FB2P
|
||||
lans(10258)
|
||||
*!* nr_meniu=46030
|
||||
*!* DO INcindplatite WITH '611 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46030"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46040"_OF__s3n000oov_FB2P
|
||||
lans(10259)
|
||||
*!* nr_meniu=46040
|
||||
*!* DO INcindplatite WITH '612 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46040"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46110"_OF__s3n000oov_FB2P
|
||||
lans(10260)
|
||||
*!* nr_meniu=46110
|
||||
*!* DO INcindplatite WITH '613 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46110"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46100"_OF__s3n000oov_FB2P
|
||||
lans(10261)
|
||||
*!* nr_meniu=46100
|
||||
*!* DO INcindplatite WITH '614 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46100"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46120"_OF__s3n000oov_FB2P
|
||||
lans(10262)
|
||||
*!* nr_meniu=46120
|
||||
*!* DO INcindplatite WITH '621 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46120"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46130"_OF__s3n000oov_FB2P
|
||||
lans(10263)
|
||||
*!* nr_meniu=46130
|
||||
*!* DO INcindplatite WITH '622 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46130"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46050"_OF__s3n000oov_FB2P
|
||||
lans(10264)
|
||||
*!* nr_meniu=46050
|
||||
*!* DO INcindplatite WITH '6231 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46050"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_10_OF__s3n000oov_FB2P
|
||||
lans(10265)
|
||||
*!* DO INcindplatite WITH '6232 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_10_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46060"_OF__s3n000oov_FB2P
|
||||
lans(10266)
|
||||
*!* nr_meniu=46060
|
||||
*!* DO INcindplatite WITH '624 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46060"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46070"_OF__s3n000oov_FB2P
|
||||
lans(10267)
|
||||
*!* nr_meniu=46070
|
||||
*!* DO INcindplatite WITH '625 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46070"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46080"_OF__s3n000oov_FB2P
|
||||
lans(10268)
|
||||
*!* nr_meniu=46080
|
||||
*!* DO INcindplatite WITH '626 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46080"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46090"_OF__s3n000oov_FB2P
|
||||
lans(10269)
|
||||
*!* nr_meniu=46090
|
||||
*!* DO INcindplatite WITH '628 ','401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_"46090"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_"46140"_OF__s3n000oov_FB2P
|
||||
DO MENIU46140
|
||||
*ACT604
|
||||
ENDPROC && BAR_"46140"_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_16_OF__s3n000oov_FB2P
|
||||
|
||||
clasaact='actverif'
|
||||
SCD1='628 '
|
||||
SCC1='401 '
|
||||
SCD2='4426'
|
||||
SCC2='401 '
|
||||
|
||||
OA=CREATEOBJ('BONMASA')
|
||||
OA.SHOW(1)
|
||||
IF BUTON=2
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDIF
|
||||
DO CODARE
|
||||
*******************************************
|
||||
DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA,clasaact
|
||||
*******************************************
|
||||
IF m.NEIMPOZAB>0
|
||||
m.num=m.nume_2
|
||||
m.nume_2='NEIMPOZABIL '
|
||||
DO CONTABILIZEAZA WITH SCD2,SCC2,0,clasaact
|
||||
M.NUME_2=M.NUM
|
||||
ENDIF
|
||||
IF m.totftvaI>0
|
||||
m.num=m.nume_2
|
||||
m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,clasaact
|
||||
M.NUME_2=M.NUM
|
||||
ENDIF
|
||||
IF m.totftvaM>0
|
||||
m.num=m.nume_2
|
||||
m.nume_2='TVA '+str(m.ctvam,5,2)
|
||||
DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM,clasaact
|
||||
M.NUME_2=M.NUM
|
||||
ENDIF
|
||||
M.EXPLICATIA='TICHETE DE MASA'
|
||||
DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact
|
||||
M.NUM=M.NUME_2
|
||||
m.nume_2='NEIMPOZABIL '
|
||||
DO CONTABILIZEAZA WITH '4426','401 ',0,clasaact
|
||||
*************************************************
|
||||
SELE FURNIZOR
|
||||
repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA
|
||||
M.TOTCTVA=M.TOTCTVA+M.TAXA
|
||||
M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB
|
||||
M.EXPLICATIA='PLATA FURNIZOR'
|
||||
M.NUME_2=M.NUM
|
||||
do contabilizeaza with '401 ','542 ',m.totctva,clasaact
|
||||
|
||||
do INPLACHIZ
|
||||
DO ADCUMP
|
||||
DO ADCHIND
|
||||
DO ADRESPONS
|
||||
DO STERGE
|
||||
RETURN
|
||||
ENDPROC && BAR_16_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_18_OF__s3n000oov_FB2P
|
||||
SELECT BAL
|
||||
ose=crea('selcont')
|
||||
ose.show(1)
|
||||
IF buton=2
|
||||
RETURN
|
||||
ENDIF
|
||||
lans(10313)
|
||||
*!* m.scd=CN
|
||||
|
||||
*!* DO INcindplatite WITH m.scd,'401 ','4426 ','401 ','401 ','542 ','FACTURI','INPLACHIZ','actgen02PER'
|
||||
ENDPROC && BAR_18_OF__s3n000oov_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Furnizori_FB2P
|
||||
|
||||
SELE BAL
|
||||
GO TOP
|
||||
OS=CREA('SELCONT')
|
||||
OS.SHOW(1)
|
||||
IF BUTON=2
|
||||
RETURN
|
||||
ENDIF
|
||||
*
|
||||
lans(10314)
|
||||
*!* OA=CREA('ACTFIXn')
|
||||
*!* OA.SHOW(1)
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* *do pnir
|
||||
|
||||
*!* SCC1='408 '
|
||||
*!* SCD2='4428 '
|
||||
*!* SCC2=SCC1
|
||||
|
||||
*!* *M.TOTCTVA=M.TOTFTVA+M.TOTTVA
|
||||
|
||||
*!* DO CONTABILIZEAZA WITH CN,SCC1,M.TOTFTVA,CLASAACT
|
||||
|
||||
*!* IF m.NEIMPOZAB>0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='NEIMPOZABIL '
|
||||
*!* DO CONTABILIZEAZA WITH CN,SCC1,M.NEIMPOZAB,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* *IF m.totftvaI#0
|
||||
*!* * m.num=m.nume_2
|
||||
*!* * m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
*!* * DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI,CLASAACT
|
||||
*!* * M.NUME_2=M.NUM
|
||||
*!* *ENDIF
|
||||
*!* *IF m.totftvaM#0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='TVA '+str(m.ctvam,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TOTTVA,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* *ENDIF
|
||||
|
||||
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_5_OF_Furnizori_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF_Furnizori_FB2P
|
||||
*DO cheltinavans WITH '471 ','401 ','4426','401 ','FACTURI',"actgen02"
|
||||
lans(10410)
|
||||
|
||||
ENDPROC && BAR_7_OF_Furnizori_FB2P
|
||||
|
||||
*</Procedures>
|
||||
299
Meniuri/furnizori3.mn2
Normal file
299
Meniuri/furnizori3.mn2
Normal file
@@ -0,0 +1,299 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Furnizori PROMPT "Regularizare fact. nesosite" ;
|
||||
MESSAGE '408:401;4426:4428'
|
||||
ON SELECTION BAR 1 OF Furnizori DO BAR_1_OF_Furnizori_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Furnizori PROMPT "Regularizare fact. nesosite de imobilizari" ;
|
||||
MESSAGE '408:404;4426:4428'
|
||||
ON SELECTION BAR 2 OF Furnizori DO BAR_2_OF_Furnizori_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Furnizori PROMPT "Regularizare furnizori debitori" ;
|
||||
MESSAGE '401 : 409'
|
||||
ON SELECTION BAR 3 OF Furnizori DO BAR_3_OF_Furnizori_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Furnizori PROMPT "Regularizare avans furnizori imobilizari"
|
||||
ON BAR 4 OF Furnizori ACTIVATE POPUP Regulariza
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Regulariza SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Regulariza PROMPT "Corporale" ;
|
||||
MESSAGE '404 : 232'
|
||||
ON SELECTION BAR 1 OF Regulariza lans(10562)
|
||||
|
||||
DEFINE BAR 2 OF Regulariza PROMPT "Necorporale" ;
|
||||
MESSAGE '404 : 234'
|
||||
ON SELECTION BAR 2 OF Regulariza lans(10563)
|
||||
|
||||
DEFINE BAR 5 OF Furnizori PROMPT "\-"
|
||||
ON BAR 5 OF Furnizori ACTIVATE POPUP NewItem
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF Furnizori PROMPT "Regularizare furnizori externi debitori" ;
|
||||
MESSAGE '401 : 409'
|
||||
ON SELECTION BAR 6 OF Furnizori DO BAR_6_OF_Furnizori_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Furnizori PROMPT "Regularizare avans furnizori externi imobilizari"
|
||||
ON SELECTION BAR 7 OF Furnizori DO BAR_7_OF_Furnizori_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Furnizori PROMPT "\-"
|
||||
ON BAR 8 OF Furnizori ACTIVATE POPUP _13w0x2gl2
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _13w0x2gl2 SHORTCUT RELATIVE
|
||||
DEFINE BAR 9 OF Furnizori PROMPT "Compensari furnizor-client"
|
||||
ON BAR 9 OF Furnizori ACTIVATE POPUP _15t10svwr
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _15t10svwr SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _15t10svwr PROMPT "Compensare furnizor - client" ;
|
||||
MESSAGE '401-4111'
|
||||
ON SELECTION BAR 1 OF _15t10svwr lans(10489)
|
||||
|
||||
DEFINE BAR 2 OF _15t10svwr PROMPT "Compensare furnizor404 - client" ;
|
||||
MESSAGE '404-4111'
|
||||
ON SELECTION BAR 2 OF _15t10svwr lans(10543)
|
||||
|
||||
DEFINE BAR 3 OF _15t10svwr PROMPT "\-"
|
||||
ON BAR 3 OF _15t10svwr ACTIVATE POPUP _15t10uhfs
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _15t10uhfs SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF _15t10svwr PROMPT "Compensare valuta furnizor - client" ;
|
||||
MESSAGE '401-4111'
|
||||
ON SELECTION BAR 4 OF _15t10svwr lans(10490)
|
||||
|
||||
DEFINE BAR 10 OF Furnizori PROMPT "Compensare facturi furnizor - lei" ;
|
||||
MESSAGE '401 : 5121'
|
||||
ON SELECTION BAR 10 OF Furnizori lans(10614)
|
||||
|
||||
DEFINE BAR 11 OF Furnizori PROMPT "Compensare facturi furnizor - valuta" ;
|
||||
MESSAGE '401,404,462 : 5124'
|
||||
ON SELECTION BAR 11 OF Furnizori DO BAR_11_OF_Furnizori_FB2P
|
||||
|
||||
DEFINE BAR 12 OF Furnizori PROMPT "\-"
|
||||
ON BAR 12 OF Furnizori ACTIVATE POPUP _7ey0oap0x
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _7ey0oap0x SHORTCUT RELATIVE
|
||||
DEFINE BAR 13 OF Furnizori PROMPT "Compensare avansuri furnizor - lei" ;
|
||||
MESSAGE '409x : 5121'
|
||||
ON SELECTION BAR 13 OF Furnizori DO BAR_13_OF_Furnizori_FB2P
|
||||
|
||||
DEFINE BAR 14 OF Furnizori PROMPT "Compensare avansuri furnizor - valuta" ;
|
||||
MESSAGE '409 : 5124'
|
||||
ON SELECTION BAR 14 OF Furnizori DO BAR_14_OF_Furnizori_FB2P
|
||||
ACTIVATE POPUP Furnizori
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Furnizori_FB2P
|
||||
lans(10406)
|
||||
|
||||
IF gnButon = 2
|
||||
IF USED('actactan')
|
||||
USE IN actactan
|
||||
ENDIF
|
||||
RETURN
|
||||
ENDIF
|
||||
SET STEP ON
|
||||
SELECT actactan
|
||||
GO BOTTOM
|
||||
SCATTER FIELDS EXCEPT id_factd, id_factc,pereched,perechec, id_partd, id_partc, partd, partc,id_jtva_coloana,proc_tva,taxcode,taxname NAME otemp
|
||||
|
||||
SELECT DISTINCT a.id_jtva_coloana,(b.cota_tva+100)/100 as proc_Tva,b.id_tva,a.taxcode,a.taxname FROM actactan a JOIN jtva_coloane b ON a.id_jtva_coloana = b.id_jtva_coloana WHERE b.cota_tva <> 0 AND ALLTRIM(a.scd) = '408' INTO CURSOR procent
|
||||
|
||||
IF _tally#0
|
||||
SELECT procent
|
||||
SCAN
|
||||
SCATTER NAME oproc
|
||||
SELECT actactan
|
||||
SUM suma TO lnsuma FOR id_jtva_coloana=oproc.id_jtva_coloana AND ALLTRIM(scd)='408'
|
||||
SELECT actactan
|
||||
APPEND BLANK
|
||||
GATHER NAME otemp
|
||||
replace proc_tva WITH oproc.proc_tva,id_jtva_coloana WITH oproc.id_tva, taxcode WITH oproc.taxcode, taxname WITH oproc.taxname
|
||||
*!* REPLACE scd WITH '4426',scc WITH '4428',proc_tva WITH oproc.proc_tva,id_jtva_coloana WITH oproc.id_tva
|
||||
REPLACE scd WITH iif(inlist(id_jtva_coloana, 171, 173, 175, 179, 189, 211, 215), '4428', '4426'),scc WITH '4428'
|
||||
REPLACE suma WITH ROUND(LnSuma*(oproc.proc_tva-1)/oproc.proc_tva,gnPc)
|
||||
|
||||
SELECT procent
|
||||
ENDSCAN
|
||||
ENDIF
|
||||
|
||||
SELECT actactan
|
||||
GO TOP
|
||||
DO FORM verificare
|
||||
|
||||
IF gnButon=1
|
||||
oscrie_in_fisiere()
|
||||
ENDIF
|
||||
|
||||
IF USED('actactan')
|
||||
USE IN actactan
|
||||
ENDIF
|
||||
IF USED('procent')
|
||||
USE IN procent
|
||||
ENDIF
|
||||
|
||||
|
||||
|
||||
ENDPROC && BAR_1_OF_Furnizori_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Furnizori_FB2P
|
||||
lans(10407)
|
||||
|
||||
|
||||
IF gnButon = 2
|
||||
IF USED('actactan')
|
||||
USE IN actactan
|
||||
ENDIF
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
SELECT actactan
|
||||
GO BOTTOM
|
||||
SCATTER FIELDS EXCEPT id_factd, id_factc,pereched,perechec, id_partd, id_partc, partd, partc,id_jtva_coloana, proc_tva,taxcode,taxname NAME otemp
|
||||
|
||||
SELECT DISTINCT a.id_jtva_coloana,(b.cota_tva+100)/100 as proc_tva,b.id_tva,a.taxcode,a.taxname FROM actactan a JOIN jtva_coloane b ON a.id_jtva_coloana = b.id_jtva_coloana WHERE b.cota_tva <> 0 AND ALLTRIM(a.scd) = '408' INTO CURSOR procent
|
||||
|
||||
IF _tally#0
|
||||
SELECT procent
|
||||
SCAN
|
||||
SCATTER NAME oproc
|
||||
SELECT actactan
|
||||
SUM suma TO lnsuma FOR id_jtva_coloana=oproc.id_jtva_coloana AND ALLTRIM(scd)='408'
|
||||
SELECT actactan
|
||||
APPEND BLANK
|
||||
GATHER NAME otemp
|
||||
REPLACE scd WITH '4426',scc WITH '4428',id_jtva_coloana WITH oproc.id_tva,proc_tva WITH oproc.proc_tva, taxcode WITH oproc.taxcode, taxname WITH oproc.taxname
|
||||
REPLACE suma WITH ROUND(LnSuma*(oproc.proc_tva-1)/oproc.proc_tva,gnPc)
|
||||
|
||||
SELECT procent
|
||||
ENDSCAN
|
||||
ENDIF
|
||||
|
||||
SELECT actactan
|
||||
GO TOP
|
||||
DO FORM verificare
|
||||
|
||||
IF gnButon=1
|
||||
oscrie_in_fisiere()
|
||||
ENDIF
|
||||
|
||||
IF USED('actactan')
|
||||
USE IN actactan
|
||||
ENDIF
|
||||
IF USED('procent')
|
||||
USE IN procent
|
||||
ENDIF
|
||||
ENDPROC && BAR_2_OF_Furnizori_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Furnizori_FB2P
|
||||
PRIVATE pcACN, CN
|
||||
loCont = ret_cont("Selectati contul",'409') && ,4091,4092')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
CN = locont.cont
|
||||
PcACN = loCont.Acont
|
||||
LANS(10487)
|
||||
ENDPROC && BAR_3_OF_Furnizori_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Furnizori_FB2P
|
||||
PRIVATE pcACN, CN
|
||||
loCont = ret_cont("Selectati contul creditor",'409') &&,4091,4092')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
CN = locont.cont
|
||||
PcACN = loCont.Acont
|
||||
lans(10495)
|
||||
ENDPROC && BAR_6_OF_Furnizori_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF_Furnizori_FB2P
|
||||
PRIVATE pcACN, CN
|
||||
loCont = ret_cont("Selectati contul creditor",'23,409') && 232,234 - corporale/necorporale
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
|
||||
|
||||
CN = locont.cont
|
||||
PcACN = loCont.Acont
|
||||
lans(10597)
|
||||
ENDPROC && BAR_7_OF_Furnizori_FB2P
|
||||
|
||||
PROCEDURE BAR_11_OF_Furnizori_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Contul debitor", "401,404,462")
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
lans_generic(10658,loCont.Cont, loCont.Acont)
|
||||
ENDPROC && BAR_11_OF_Furnizori_FB2P
|
||||
|
||||
PROCEDURE BAR_13_OF_Furnizori_FB2P
|
||||
Local lcCont, lcAcont, loCont
|
||||
loCont=ret_cont("Selectati contul",'409') && 409,4091, 4092
|
||||
If Type('loCont') # 'O'
|
||||
Return
|
||||
Endif
|
||||
If buton=2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
lcCont = Alltrim(loCont.Cont)
|
||||
lcAcont = loCont.Acont
|
||||
Do Case
|
||||
Case lcCont = '409'
|
||||
lans(10622)
|
||||
Case lcCont = '4091'
|
||||
lans(10623)
|
||||
Case lcCont = '4092'
|
||||
lans(10624)
|
||||
Endcase
|
||||
|
||||
ENDPROC && BAR_13_OF_Furnizori_FB2P
|
||||
|
||||
PROCEDURE BAR_14_OF_Furnizori_FB2P
|
||||
LOCAL loCont
|
||||
loCont = ret_cont("Contul creditor", "409")
|
||||
If buton = 2
|
||||
Release loCont
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
lans_generic(10657,loCont.Cont, loCont.Acont)
|
||||
ENDPROC && BAR_14_OF_Furnizori_FB2P
|
||||
|
||||
*</Procedures>
|
||||
82
Meniuri/furnizori4.mn2
Normal file
82
Meniuri/furnizori4.mn2
Normal file
@@ -0,0 +1,82 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori4.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Furnizori PROMPT "Efecte de platit"
|
||||
ON BAR 1 OF Furnizori ACTIVATE POPUP _0u60ym7h6
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60ym7h6 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60ym7h6 PROMPT "Cresterea obligatiilor"
|
||||
ON BAR 1 OF _0u60ym7h6 ACTIVATE POPUP _0u60ymy8q
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60ymy8q SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60ymy8q PROMPT "Prin efecte comerciale" ;
|
||||
MESSAGE '401 :403 '
|
||||
ON SELECTION BAR 1 OF _0u60ymy8q lans(10414)
|
||||
|
||||
DEFINE BAR 2 OF _0u60ymy8q PROMPT "Prin diferente nefavorabile de curs valutar" ;
|
||||
MESSAGE '6651:403 '
|
||||
ON SELECTION BAR 2 OF _0u60ymy8q lans(10315)
|
||||
|
||||
DEFINE BAR 2 OF _0u60ym7h6 PROMPT "Micsorarea obligatiilor"
|
||||
ON BAR 2 OF _0u60ym7h6 ACTIVATE POPUP _0u60ypevr
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60ypevr SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60ypevr PROMPT "Prin plata efectelor la scadenta" ;
|
||||
MESSAGE '403 :5121'
|
||||
ON SELECTION BAR 1 OF _0u60ypevr LANS(10316)
|
||||
|
||||
DEFINE BAR 2 OF _0u60ypevr PROMPT "Prin diferente favorabile de curs valutar" ;
|
||||
MESSAGE '403 :7651'
|
||||
ON SELECTION BAR 2 OF _0u60ypevr lans(10317)
|
||||
|
||||
DEFINE BAR 2 OF Furnizori PROMPT "Efecte de platit pt imobilizari"
|
||||
ON BAR 2 OF Furnizori ACTIVATE POPUP _0u60ytd0l
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60ytd0l SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60ytd0l PROMPT "Cresterea obligatiilor"
|
||||
ON BAR 1 OF _0u60ytd0l ACTIVATE POPUP _0u60ytmf3
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60ytmf3 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60ytmf3 PROMPT "Prin efecte comerciale" ;
|
||||
MESSAGE '404 :405 '
|
||||
ON SELECTION BAR 1 OF _0u60ytmf3 lans(10415)
|
||||
|
||||
DEFINE BAR 2 OF _0u60ytmf3 PROMPT "Prin diferente nefavorabile de curs valutar" ;
|
||||
MESSAGE '6651:405 '
|
||||
ON SELECTION BAR 2 OF _0u60ytmf3 lans(10318)
|
||||
|
||||
DEFINE BAR 2 OF _0u60ytd0l PROMPT "Micsorarea obligatiilor"
|
||||
ON BAR 2 OF _0u60ytd0l ACTIVATE POPUP _0u60yvtkc
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60yvtkc SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60yvtkc PROMPT "Prin plata efectelor la scadenta" ;
|
||||
MESSAGE '405 :5121'
|
||||
ON SELECTION BAR 1 OF _0u60yvtkc lans(10319)
|
||||
|
||||
DEFINE BAR 2 OF _0u60yvtkc PROMPT "Prin diferente favorabile de curs valutar" ;
|
||||
MESSAGE '405 :7651'
|
||||
ON SELECTION BAR 2 OF _0u60yvtkc DO BAR_2_OF__0u60yvtkc_FB2P
|
||||
ACTIVATE POPUP Furnizori
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_2_OF__0u60yvtkc_FB2P
|
||||
*DO ABC1 WITH '405 ','765 '
|
||||
lans(10320)
|
||||
ENDPROC && BAR_2_OF__0u60yvtkc_FB2P
|
||||
|
||||
*</Procedures>
|
||||
113
Meniuri/furnizori5.mn2
Normal file
113
Meniuri/furnizori5.mn2
Normal file
@@ -0,0 +1,113 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori5.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 "Factura nesosita"
|
||||
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "Factura nesosita externa"
|
||||
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 _13y10dnby
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _13y10dnby SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Shortcut PROMPT "Facturi nesosite 408"
|
||||
ON BAR 4 OF Shortcut ACTIVATE POPUP Facturines
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Facturines SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Facturines PROMPT "Marfa" ;
|
||||
MESSAGE '371 : 408; 4428 :408'
|
||||
ON SELECTION BAR 1 OF Facturines DO BAR_1_OF_Facturines_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Facturines PROMPT "Materii prime" ;
|
||||
MESSAGE '301 :408; 4428 :408'
|
||||
ON SELECTION BAR 2 OF Facturines DO BAR_2_OF_Facturines_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Facturines PROMPT "Materiale auxiliare" ;
|
||||
MESSAGE '3021 :408; 4428 :408'
|
||||
ON SELECTION BAR 3 OF Facturines DO BAR_3_OF_Facturines_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Facturines PROMPT "Combustibili" ;
|
||||
MESSAGE '3022:408; 4428 :408'
|
||||
ON SELECTION BAR 4 OF Facturines DO BAR_4_OF_Facturines_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Facturines PROMPT "Piese de schimb" ;
|
||||
MESSAGE '3024:408; 4428 :408'
|
||||
ON SELECTION BAR 5 OF Facturines DO BAR_5_OF_Facturines_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Facturines PROMPT "Alte materiale" ;
|
||||
MESSAGE '3028:408; 4428 :408'
|
||||
ON SELECTION BAR 6 OF Facturines DO BAR_6_OF_Facturines_FB2P
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
||||
buton = lans(10458)
|
||||
IF buton=2
|
||||
DO deschid_actc
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
DO introducere_compacta WITH 'achi_mat','','408 ',.t.,.t.,'Achizitie-Cheltuieli Materiale-Facturi nesosite 408','4428',10458
|
||||
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
||||
*!* SELE BAL
|
||||
*!* GO TOP
|
||||
*!* OS=CREA('SELCONT')
|
||||
*!* OS.SHOW(1)
|
||||
*!* IF BUTON=2
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'3,4,6')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
LANS(10548)
|
||||
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Facturines_FB2P
|
||||
lans(10218)
|
||||
ENDPROC && BAR_1_OF_Facturines_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Facturines_FB2P
|
||||
lans(10219)
|
||||
ENDPROC && BAR_2_OF_Facturines_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Facturines_FB2P
|
||||
lans(10220)
|
||||
ENDPROC && BAR_3_OF_Facturines_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Facturines_FB2P
|
||||
lans(10221)
|
||||
ENDPROC && BAR_4_OF_Facturines_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Facturines_FB2P
|
||||
lans(10222)
|
||||
ENDPROC && BAR_5_OF_Facturines_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Facturines_FB2P
|
||||
lans(10223)
|
||||
ENDPROC && BAR_6_OF_Facturines_FB2P
|
||||
|
||||
*</Procedures>
|
||||
66
Meniuri/furnizori5_.mn2
Normal file
66
Meniuri/furnizori5_.mn2
Normal file
@@ -0,0 +1,66 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori5_.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Furnizorie SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Furnizorie PROMPT "Furnizori de materiale/servicii"
|
||||
ON SELECTION BAR 1 OF Furnizorie DO BAR_1_OF_Furnizorie_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Furnizorie PROMPT "\Furnizori de materiale/servicii scutite de TVA"
|
||||
ON SELECTION BAR 2 OF Furnizorie DO BAR_2_OF_Furnizorie_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Furnizorie PROMPT "Furnizori de \<imobilizari"
|
||||
ON SELECTION BAR 3 OF Furnizorie DO BAR_3_OF_Furnizorie_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Furnizorie PROMPT "\-"
|
||||
ON BAR 4 OF Furnizorie ACTIVATE POPUP _0je0sxil0
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0je0sxil0 SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Furnizorie PROMPT "\Import marfa"
|
||||
ON SELECTION BAR 5 OF Furnizorie DO BAR_5_OF_Furnizorie_FB2P
|
||||
ACTIVATE POPUP Furnizorie
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Furnizorie_FB2P
|
||||
*DO FURN_E_MAT WITH .T. IN PROCMENIU.PRG
|
||||
SELE BAL
|
||||
GO TOP
|
||||
OS=CREA('SELCONT')
|
||||
OS.SHOW(1)
|
||||
IF BUTON=2
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
LANS(10423)
|
||||
ENDPROC && BAR_1_OF_Furnizorie_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Furnizorie_FB2P
|
||||
DO FURN_E_MAT WITH .F. IN PROCMENIU.PRG
|
||||
ENDPROC && BAR_2_OF_Furnizorie_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Furnizorie_FB2P
|
||||
*DO FURN_E_IMOB IN PROCMENIU.PRG
|
||||
SELE BAL
|
||||
GO TOP
|
||||
OS=CREA('SELCONT')
|
||||
OS.SHOW(1)
|
||||
IF BUTON=2
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
LANS(10424)
|
||||
ENDPROC && BAR_3_OF_Furnizorie_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Furnizorie_FB2P
|
||||
do importmarfa in procmeniu.prg
|
||||
ENDPROC && BAR_5_OF_Furnizorie_FB2P
|
||||
|
||||
*</Procedures>
|
||||
181
Meniuri/imobilizari1.mn2
Normal file
181
Meniuri/imobilizari1.mn2
Normal file
@@ -0,0 +1,181 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (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>
|
||||
484
Meniuri/imobilizari2.mn2
Normal file
484
Meniuri/imobilizari2.mn2
Normal file
@@ -0,0 +1,484 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP _09c0qzbvl SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF _09c0qzbvl PROMPT "Constituire"
|
||||
ON BAR 1 OF _09c0qzbvl ACTIVATE POPUP _09c0r8r60
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _09c0r8r60 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _09c0r8r60 PROMPT "Cheltuieli de constituire 201"
|
||||
ON BAR 1 OF _09c0r8r60 ACTIVATE POPUP Cheltuieli
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Cheltuieli SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Cheltuieli PROMPT "Prin banca" ;
|
||||
MESSAGE '201:5121'
|
||||
ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Cheltuieli PROMPT "Prin casa" ;
|
||||
MESSAGE '201 :5311'
|
||||
ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Cheltuieli PROMPT "Prin furnizori" ;
|
||||
MESSAGE '201 :404 ;4426:404 '
|
||||
ON SELECTION BAR 3 OF Cheltuieli DO BAR_3_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Cheltuieli PROMPT "De la furnizori-taxa inversa" ;
|
||||
MESSAGE '4426:4427 '
|
||||
ON SELECTION BAR 4 OF Cheltuieli DO BAR_4_OF_Cheltuieli_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _09c0r8r60 PROMPT "Cheltuieli de cercetare dezvoltare 203"
|
||||
ON BAR 2 OF _09c0r8r60 ACTIVATE POPUP _09c0rhqjj
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _09c0rhqjj SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _09c0rhqjj PROMPT "Realizate pe cont propriu" ;
|
||||
MESSAGE '203 :721 '
|
||||
ON SELECTION BAR 1 OF _09c0rhqjj DO BAR_1_OF__09c0rhqjj_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _09c0rhqjj PROMPT "Aport asociati" ;
|
||||
MESSAGE '203 :456 '
|
||||
ON SELECTION BAR 2 OF _09c0rhqjj DO BAR_2_OF__09c0rhqjj_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _09c0rhqjj PROMPT "Prin furnizori" ;
|
||||
MESSAGE '203 :404 ;4426:404 '
|
||||
ON SELECTION BAR 3 OF _09c0rhqjj DO BAR_3_OF__09c0rhqjj_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _09c0r8r60 PROMPT "Concesiuni,brevete 205"
|
||||
ON BAR 3 OF _09c0r8r60 ACTIVATE POPUP Concesiuni
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Concesiuni SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Concesiuni PROMPT "Primite cu titlu gratuit" ;
|
||||
MESSAGE '205 :131 '
|
||||
ON SELECTION BAR 1 OF Concesiuni DO BAR_1_OF_Concesiuni_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Concesiuni PROMPT "Ca urmare a chelt. de dezvoltare" ;
|
||||
MESSAGE '205 :203 '
|
||||
ON SELECTION BAR 2 OF Concesiuni DO BAR_2_OF_Concesiuni_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Concesiuni PROMPT "Prin furnizori" ;
|
||||
MESSAGE '205 :404 ;4426:404 '
|
||||
ON SELECTION BAR 3 OF Concesiuni DO BAR_3_OF_Concesiuni_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Concesiuni PROMPT "Aport asociati" ;
|
||||
MESSAGE '205 :456 '
|
||||
ON SELECTION BAR 4 OF Concesiuni DO BAR_4_OF_Concesiuni_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Concesiuni PROMPT "Realizate pe cont propriu" ;
|
||||
MESSAGE '205 :721 '
|
||||
ON SELECTION BAR 5 OF Concesiuni DO BAR_5_OF_Concesiuni_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _09c0r8r60 PROMPT "Fond comercial 207"
|
||||
ON BAR 4 OF _09c0r8r60 ACTIVATE POPUP NewItem
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF NewItem PROMPT "Aport asociati" ;
|
||||
MESSAGE '207 :456 '
|
||||
ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P
|
||||
|
||||
DEFINE BAR 2 OF NewItem PROMPT "De la furnizori" ;
|
||||
MESSAGE '207 :404 ;4426:404 '
|
||||
ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P
|
||||
|
||||
DEFINE BAR 5 OF _09c0r8r60 PROMPT "Alte imobilizari necorporale 208"
|
||||
ON BAR 5 OF _09c0r8r60 ACTIVATE POPUP Alteimobil
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Alteimobil SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Alteimobil PROMPT "Realizate pe cont propriu" ;
|
||||
MESSAGE '208 :721 '
|
||||
ON SELECTION BAR 1 OF Alteimobil DO BAR_1_OF_Alteimobil_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Alteimobil PROMPT "Aport asociati" ;
|
||||
MESSAGE '208 :456 '
|
||||
ON SELECTION BAR 2 OF Alteimobil DO BAR_2_OF_Alteimobil_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Alteimobil PROMPT "Prin furnizori" ;
|
||||
MESSAGE '208 :404 ;4426:404 '
|
||||
ON SELECTION BAR 3 OF Alteimobil DO BAR_3_OF_Alteimobil_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _09c0qzbvl PROMPT "Vanzare"
|
||||
ON BAR 2 OF _09c0qzbvl ACTIVATE POPUP _0u60orcae
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60orcae SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60orcae PROMPT "Cheltuieli de dezvoltare 203" ;
|
||||
MESSAGE '6583:203 '
|
||||
ON SELECTION BAR 1 OF _0u60orcae DO BAR_1_OF__0u60orcae_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60orcae PROMPT "Concesiuni, brevete si licente 205" ;
|
||||
MESSAGE '6583:205 '
|
||||
ON SELECTION BAR 2 OF _0u60orcae DO BAR_2_OF__0u60orcae_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60orcae PROMPT "Fond comercial 207" ;
|
||||
MESSAGE '6583:207 '
|
||||
ON SELECTION BAR 3 OF _0u60orcae DO BAR_3_OF__0u60orcae_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _09c0qzbvl PROMPT "Inchidere"
|
||||
ON BAR 3 OF _09c0qzbvl ACTIVATE POPUP _09c0rf0za
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _09c0rf0za SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _09c0rf0za PROMPT "Cheltuieli de constituire 201" ;
|
||||
MESSAGE '2801:201 '
|
||||
ON SELECTION BAR 1 OF _09c0rf0za DO BAR_1_OF__09c0rf0za_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _09c0rf0za PROMPT "Cheltuieli de cercetare dezvoltare 203" ;
|
||||
MESSAGE '2803:203 '
|
||||
ON SELECTION BAR 2 OF _09c0rf0za DO BAR_2_OF__09c0rf0za_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _09c0rf0za PROMPT "Concesiuni brevete 205" ;
|
||||
MESSAGE '2805:205 '
|
||||
ON SELECTION BAR 3 OF _09c0rf0za DO BAR_3_OF__09c0rf0za_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _09c0rf0za PROMPT "Fond comercial 207" ;
|
||||
MESSAGE '2807:207 '
|
||||
ON SELECTION BAR 4 OF _09c0rf0za DO BAR_4_OF__09c0rf0za_FB2P
|
||||
ACTIVATE POPUP _09c0qzbvl
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Cheltuieli_FB2P
|
||||
*DO ABC1 WITH '201',"5121"
|
||||
lans(10126)
|
||||
ENDPROC && BAR_1_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Cheltuieli_FB2P
|
||||
*DO ABC1 WITH '201 ',"5311"
|
||||
lans(10127)
|
||||
ENDPROC && BAR_2_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Cheltuieli_FB2P
|
||||
lans(10128)
|
||||
ENDPROC && BAR_3_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Cheltuieli_FB2P
|
||||
lans(10589)
|
||||
ENDPROC && BAR_4_OF_Cheltuieli_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__09c0rhqjj_FB2P
|
||||
*!* DO ABC1 WITH '203 ',"5121"
|
||||
*DO ABC1 WITH '203 ',"721"
|
||||
lans(10129)
|
||||
ENDPROC && BAR_1_OF__09c0rhqjj_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__09c0rhqjj_FB2P
|
||||
*!* DO ABC1 WITH '203 ',"5311"
|
||||
*DO ABC1 WITH '203 ',"456 "
|
||||
lans(10130)
|
||||
ENDPROC && BAR_2_OF__09c0rhqjj_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__09c0rhqjj_FB2P
|
||||
lans(10131)
|
||||
*!* *!* DO ABC1 WITH '203 ',"404 "
|
||||
*!* DEB='203 '
|
||||
*!* M.SCD=DEB
|
||||
*!* M.SCD1=DEB
|
||||
*!* SCC1='404 '
|
||||
*!* SCD2='4426'
|
||||
*!* SCC2=SCC1
|
||||
|
||||
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
||||
*!* CLASAACT='ACTFIX404'
|
||||
*!* OA=CREA(CLASAACT)
|
||||
*!* OA.SHOW(1)
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* do pnir
|
||||
|
||||
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
|
||||
*!* ***********
|
||||
*!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT
|
||||
*!* *************
|
||||
*!* IF m.NEIMPOZAB>0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='NEIMPOZABIL '
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaI>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaM>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvaM,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* SELE FURNIZ404
|
||||
*!* set filter to
|
||||
*!* loca for allt(nume)=allt(m.nume)
|
||||
*!* if flock()
|
||||
*!* repl achizit with achizit+M.TOTCTVA
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* DO ADCUMP404
|
||||
*!* **********
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_3_OF__09c0rhqjj_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Concesiuni_FB2P
|
||||
*!* DO ABC1 WITH '205 ',"5121" - Prin banca
|
||||
*DO ABC1 WITH '205 ',"131 "
|
||||
lans(10132)
|
||||
ENDPROC && BAR_1_OF_Concesiuni_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Concesiuni_FB2P
|
||||
*!* DO ABC1 WITH '205 ',"5311" - Prin casa
|
||||
*DO ABC1 WITH '205 ',"203 "
|
||||
lans(10133)
|
||||
ENDPROC && BAR_2_OF_Concesiuni_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Concesiuni_FB2P
|
||||
lans(10134)
|
||||
*!* *!* DO ABC1 WITH '205 ',"404 "
|
||||
*!* DEB='205 '
|
||||
*!* M.SCD=DEB
|
||||
*!* M.SCD1=DEB
|
||||
*!* SCC1='404 '
|
||||
*!* SCD2='4426'
|
||||
*!* SCC2=SCC1
|
||||
|
||||
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
||||
*!* CLASAACT='ACTFIX404'
|
||||
*!* OA=CREA(CLASAACT)
|
||||
*!* OA.SHOW(1)
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* do pnir
|
||||
|
||||
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
|
||||
*!* ***********
|
||||
*!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT
|
||||
*!* *************
|
||||
*!* IF m.NEIMPOZAB>0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='NEIMPOZABIL '
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaI>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaM>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvaM,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* SELE FURNIZ404
|
||||
*!* set filter to
|
||||
*!* loca for allt(nume)=allt(m.nume)
|
||||
*!* if flock()
|
||||
*!* repl achizit with achizit+M.TOTCTVA
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* DO ADCUMP404
|
||||
*!* **********
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_3_OF_Concesiuni_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Concesiuni_FB2P
|
||||
*DO ABC1 WITH '205 ',"456 "
|
||||
lans(10135)
|
||||
ENDPROC && BAR_4_OF_Concesiuni_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Concesiuni_FB2P
|
||||
*DO ABC1 WITH '205 ',"721 "
|
||||
lans(10136)
|
||||
ENDPROC && BAR_5_OF_Concesiuni_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_NewItem_FB2P
|
||||
*DO ABC1 WITH '207 ','456 '
|
||||
lans(10137)
|
||||
ENDPROC && BAR_1_OF_NewItem_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_NewItem_FB2P
|
||||
lans(10138)
|
||||
*!* DEB='207 '
|
||||
*!* M.SCD=DEB
|
||||
*!* M.SCD1=DEB
|
||||
*!* SCC1='404 '
|
||||
*!* SCD2='4426'
|
||||
*!* SCC2=SCC1
|
||||
|
||||
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
||||
*!* CLASAACT='ACTFIX404'
|
||||
*!* OA=CREA(CLASAACT)
|
||||
*!* OA.SHOW(1)
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* do pnir
|
||||
|
||||
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
|
||||
*!* ***********
|
||||
*!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT
|
||||
*!* *************
|
||||
*!* IF m.NEIMPOZAB>0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='NEIMPOZABIL '
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaI>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaM>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvaM,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* SELE FURNIZ404
|
||||
*!* set filter to
|
||||
*!* loca for allt(nume)=allt(m.nume)
|
||||
*!* if flock()
|
||||
*!* repl achizit with achizit+M.TOTCTVA
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* DO ADCUMP404
|
||||
*!* **********
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_2_OF_NewItem_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Alteimobil_FB2P
|
||||
*DO ABC1 WITH '208 ',"721"
|
||||
lans(10139)
|
||||
ENDPROC && BAR_1_OF_Alteimobil_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Alteimobil_FB2P
|
||||
*DO ABC1 WITH '208 ',"456 "
|
||||
lans(10140)
|
||||
ENDPROC && BAR_2_OF_Alteimobil_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Alteimobil_FB2P
|
||||
lans(10141)
|
||||
*!* *!* DO ABC1 WITH '208 ',"404 "
|
||||
*!* DEB='208 '
|
||||
*!* M.SCD=DEB
|
||||
*!* M.SCD1=DEB
|
||||
*!* SCC1='404 '
|
||||
*!* SCD2='4426'
|
||||
*!* SCC2=SCC1
|
||||
|
||||
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
||||
*!* CLASAACT='ACTFIX404'
|
||||
*!* OA=CREA(CLASAACT)
|
||||
*!* OA.SHOW(1)
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* do pnir
|
||||
|
||||
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
|
||||
*!* ***********
|
||||
*!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT
|
||||
*!* *************
|
||||
*!* IF m.NEIMPOZAB>0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='NEIMPOZABIL '
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaI>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaM>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvaM,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* SELE FURNIZ404
|
||||
*!* set filter to
|
||||
*!* loca for allt(nume)=allt(m.nume)
|
||||
*!* if flock()
|
||||
*!* repl achizit with achizit+M.TOTCTVA
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* DO ADCUMP404
|
||||
*!* **********
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_3_OF_Alteimobil_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60orcae_FB2P
|
||||
*DO ABC1 WITH '6583',"203 "
|
||||
lans(10142)
|
||||
ENDPROC && BAR_1_OF__0u60orcae_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60orcae_FB2P
|
||||
*DO ABC1 WITH '6583',"205 "
|
||||
lans(10143)
|
||||
ENDPROC && BAR_2_OF__0u60orcae_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60orcae_FB2P
|
||||
*DO ABC1 WITH '6583',"207 "
|
||||
lans(10144)
|
||||
ENDPROC && BAR_3_OF__0u60orcae_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__09c0rf0za_FB2P
|
||||
*DO ABC1 WITH '2801',"201 "
|
||||
lans(10145)
|
||||
ENDPROC && BAR_1_OF__09c0rf0za_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__09c0rf0za_FB2P
|
||||
*DO ABC1 WITH '2803',"203 "
|
||||
lans(10146)
|
||||
ENDPROC && BAR_2_OF__09c0rf0za_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__09c0rf0za_FB2P
|
||||
*DO ABC1 WITH '2805',"205 "
|
||||
lans(10147)
|
||||
ENDPROC && BAR_3_OF__09c0rf0za_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF__09c0rf0za_FB2P
|
||||
*DO ABC1 WITH '2807','207 '
|
||||
lans(10148)
|
||||
ENDPROC && BAR_4_OF__09c0rf0za_FB2P
|
||||
|
||||
*</Procedures>
|
||||
802
Meniuri/imobilizari3.mn2
Normal file
802
Meniuri/imobilizari3.mn2
Normal file
@@ -0,0 +1,802 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP _09c0r6h54 SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF _09c0r6h54 PROMPT "Terenuri 211"
|
||||
ON BAR 1 OF _09c0r6h54 ACTIVATE POPUP Terenuri21
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Terenuri21 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Terenuri21 PROMPT "Achizitie"
|
||||
ON BAR 1 OF Terenuri21 ACTIVATE POPUP Achizitie
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Achizitie SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Achizitie PROMPT "De la furnizori" ;
|
||||
MESSAGE '2111:404 ;4426:404 '
|
||||
ON SELECTION BAR 1 OF Achizitie DO BAR_1_OF_Achizitie_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Achizitie PROMPT "De la furnizori-taxa inversa" ;
|
||||
MESSAGE '2111:404'
|
||||
ON SELECTION BAR 2 OF Achizitie DO BAR_2_OF_Achizitie_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Achizitie PROMPT "Aport asociati" ;
|
||||
MESSAGE '2111:456 '
|
||||
ON SELECTION BAR 3 OF Achizitie DO BAR_3_OF_Achizitie_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Achizitie PROMPT "\-"
|
||||
ON BAR 4 OF Achizitie ACTIVATE POPUP _2vb0y05pw
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2vb0y05pw SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Achizitie PROMPT "Primite cu titlu gratuit, prin donatie (subventie) 131" ;
|
||||
MESSAGE '2111:131 '
|
||||
ON SELECTION BAR 5 OF Achizitie DO BAR_5_OF_Achizitie_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Achizitie PROMPT "Subventii pentru investitii 4751" ;
|
||||
MESSAGE '2111:4751'
|
||||
ON SELECTION BAR 6 OF Achizitie lans_generic(10604,'2111',,'4751')
|
||||
|
||||
DEFINE BAR 7 OF Achizitie PROMPT "Primite cu titlu gratuit 4753" ;
|
||||
MESSAGE '2111:4753'
|
||||
ON SELECTION BAR 7 OF Achizitie lans_generic(10604,'2111',,'4753')
|
||||
|
||||
DEFINE BAR 2 OF Terenuri21 PROMPT "Vanzare"
|
||||
ON BAR 2 OF Terenuri21 ACTIVATE POPUP Vanzare
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Vanzare SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Vanzare PROMPT "Propriu zisa" ;
|
||||
MESSAGE '461:7583;461 :4427'
|
||||
ON SELECTION BAR 1 OF Vanzare DO BAR_1_OF_Vanzare_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Vanzare PROMPT "Scadere din gestiune a terenurilor vandute" ;
|
||||
MESSAGE '6583:2111'
|
||||
ON SELECTION BAR 2 OF Vanzare DO BAR_2_OF_Vanzare_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Terenuri21 PROMPT "Retragere asociat" ;
|
||||
MESSAGE '456 :211 '
|
||||
ON SELECTION BAR 3 OF Terenuri21 DO BAR_3_OF_Terenuri21_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _09c0r6h54 PROMPT "Constructii 212"
|
||||
ON BAR 2 OF _09c0r6h54 ACTIVATE POPUP _0u60pi7rd
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60pi7rd SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60pi7rd PROMPT "Achizitie"
|
||||
ON BAR 1 OF _0u60pi7rd ACTIVATE POPUP _0u60pirxi
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60pirxi SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60pirxi PROMPT "De la furnizori" ;
|
||||
MESSAGE '212 :404 ;4426:404 '
|
||||
ON SELECTION BAR 1 OF _0u60pirxi DO BAR_1_OF__0u60pirxi_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60pirxi PROMPT "De la furnizori-taxa inversa" ;
|
||||
MESSAGE '212 :404 '
|
||||
ON SELECTION BAR 2 OF _0u60pirxi DO BAR_2_OF__0u60pirxi_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60pirxi PROMPT "Aport asociati" ;
|
||||
MESSAGE '212 :456 '
|
||||
ON SELECTION BAR 3 OF _0u60pirxi DO BAR_3_OF__0u60pirxi_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _0u60pirxi PROMPT "Din productia proprie" ;
|
||||
MESSAGE '212 :722 '
|
||||
ON SELECTION BAR 4 OF _0u60pirxi DO BAR_4_OF__0u60pirxi_FB2P
|
||||
|
||||
DEFINE BAR 5 OF _0u60pirxi PROMPT "\-"
|
||||
ON BAR 5 OF _0u60pirxi ACTIVATE POPUP _2vb0y2500
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2vb0y2500 SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF _0u60pirxi PROMPT "Donatii cu titlu gratuit 131" ;
|
||||
MESSAGE '212 :131 '
|
||||
ON SELECTION BAR 6 OF _0u60pirxi DO BAR_6_OF__0u60pirxi_FB2P
|
||||
|
||||
DEFINE BAR 7 OF _0u60pirxi PROMPT "Subventii pentru investitii 4751" ;
|
||||
MESSAGE '212 :4751'
|
||||
ON SELECTION BAR 7 OF _0u60pirxi lans_generic(10604,'212',,'4751')
|
||||
|
||||
DEFINE BAR 8 OF _0u60pirxi PROMPT "Cu titlu gratuit 4753" ;
|
||||
MESSAGE '212 :4753'
|
||||
ON SELECTION BAR 8 OF _0u60pirxi lans_generic(10604,'212',,'4753')
|
||||
|
||||
DEFINE BAR 2 OF _0u60pi7rd PROMPT "Vanzare" ;
|
||||
MESSAGE '461 :7583;461 :4427'
|
||||
ON SELECTION BAR 2 OF _0u60pi7rd DO BAR_2_OF__0u60pi7rd_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60pi7rd PROMPT "Scoatere din gestiune"
|
||||
ON BAR 3 OF _0u60pi7rd ACTIVATE POPUP _0u60pngsi
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60pngsi SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60pngsi PROMPT "Amortizare integrala" ;
|
||||
MESSAGE '281 :212 '
|
||||
ON SELECTION BAR 1 OF _0u60pngsi DO BAR_1_OF__0u60pngsi_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60pngsi PROMPT "Amortizare partiala" ;
|
||||
MESSAGE '281 :212 ;6583:212 '
|
||||
ON SELECTION BAR 2 OF _0u60pngsi DO BAR_2_OF__0u60pngsi_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60pngsi PROMPT "Restituire catre asociati" ;
|
||||
MESSAGE '456 :212 '
|
||||
ON SELECTION BAR 3 OF _0u60pngsi DO BAR_3_OF__0u60pngsi_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _09c0r6h54 PROMPT "Echipamente tehnologice 2131"
|
||||
ON BAR 3 OF _09c0r6h54 ACTIVATE POPUP _0u60prr10
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60prr10 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60prr10 PROMPT "Achizitie"
|
||||
ON BAR 1 OF _0u60prr10 ACTIVATE POPUP _0u60pwbws
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60pwbws SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60pwbws PROMPT "De la furnizori" ;
|
||||
MESSAGE '2131:404 ;4426:404 '
|
||||
ON SELECTION BAR 1 OF _0u60pwbws DO BAR_1_OF__0u60pwbws_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60pwbws PROMPT "Aport asociati" ;
|
||||
MESSAGE '2131:456 '
|
||||
ON SELECTION BAR 2 OF _0u60pwbws DO BAR_2_OF__0u60pwbws_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60pwbws PROMPT "Din productia proprie" ;
|
||||
MESSAGE '2131:722 '
|
||||
ON SELECTION BAR 3 OF _0u60pwbws DO BAR_3_OF__0u60pwbws_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _0u60pwbws PROMPT "\-"
|
||||
ON BAR 4 OF _0u60pwbws ACTIVATE POPUP _2vb0y5yvk
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2vb0y5yvk SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF _0u60pwbws PROMPT "Donatii cu titlu gratuit 131" ;
|
||||
MESSAGE '2131:131 '
|
||||
ON SELECTION BAR 5 OF _0u60pwbws DO BAR_5_OF__0u60pwbws_FB2P
|
||||
|
||||
DEFINE BAR 6 OF _0u60pwbws PROMPT "Subventii pentru investitii 4751" ;
|
||||
MESSAGE '2131:4751'
|
||||
ON SELECTION BAR 6 OF _0u60pwbws lans_generic(10604,'2131',,'4751')
|
||||
|
||||
DEFINE BAR 7 OF _0u60pwbws PROMPT "Cu titlu gratuit 4753" ;
|
||||
MESSAGE '2131:4753'
|
||||
ON SELECTION BAR 7 OF _0u60pwbws lans_generic(10604,'2131',,'4753')
|
||||
|
||||
DEFINE BAR 2 OF _0u60prr10 PROMPT " Vanzare" ;
|
||||
MESSAGE '461 :7583;461 :4427'
|
||||
ON SELECTION BAR 2 OF _0u60prr10 DO BAR_2_OF__0u60prr10_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60prr10 PROMPT "Scoatere din gestiune"
|
||||
ON BAR 3 OF _0u60prr10 ACTIVATE POPUP _0u60q5p9b
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60q5p9b SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60q5p9b PROMPT "Amortizare integrala" ;
|
||||
MESSAGE '281 :2131'
|
||||
ON SELECTION BAR 1 OF _0u60q5p9b DO BAR_1_OF__0u60q5p9b_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60q5p9b PROMPT "Amortizare partiala" ;
|
||||
MESSAGE '281 :2131;6583:2131'
|
||||
ON SELECTION BAR 2 OF _0u60q5p9b DO BAR_2_OF__0u60q5p9b_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60q5p9b PROMPT "Restituire catre asociati" ;
|
||||
MESSAGE '456 :2131'
|
||||
ON SELECTION BAR 3 OF _0u60q5p9b DO BAR_3_OF__0u60q5p9b_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _09c0r6h54 PROMPT "Aparate de masura 2132"
|
||||
ON BAR 4 OF _09c0r6h54 ACTIVATE POPUP _0u60qd0ny
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60qd0ny SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60qd0ny PROMPT "Achizitie"
|
||||
ON BAR 1 OF _0u60qd0ny ACTIVATE POPUP _0u60qe5ej
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60qe5ej SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60qe5ej PROMPT "De la furnizori" ;
|
||||
MESSAGE '2132:404 ;4426:404 '
|
||||
ON SELECTION BAR 1 OF _0u60qe5ej DO BAR_1_OF__0u60qe5ej_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60qe5ej PROMPT "Aport asociati" ;
|
||||
MESSAGE '2132:456 '
|
||||
ON SELECTION BAR 2 OF _0u60qe5ej DO BAR_2_OF__0u60qe5ej_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60qe5ej PROMPT "Din productia proprie" ;
|
||||
MESSAGE '2132:722 '
|
||||
ON SELECTION BAR 3 OF _0u60qe5ej DO BAR_3_OF__0u60qe5ej_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _0u60qe5ej PROMPT "\-"
|
||||
ON BAR 4 OF _0u60qe5ej ACTIVATE POPUP _2vb0y72bk
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2vb0y72bk SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF _0u60qe5ej PROMPT "Donatii cu titlu gratuit 131" ;
|
||||
MESSAGE '2132:131 '
|
||||
ON SELECTION BAR 5 OF _0u60qe5ej DO BAR_5_OF__0u60qe5ej_FB2P
|
||||
|
||||
DEFINE BAR 6 OF _0u60qe5ej PROMPT "Subventii pentru investii 4751" ;
|
||||
MESSAGE '2132:4751'
|
||||
ON SELECTION BAR 6 OF _0u60qe5ej lans_generic(10577,'2132',,'4751')
|
||||
|
||||
DEFINE BAR 7 OF _0u60qe5ej PROMPT "Cu titlu gratuit 4753" ;
|
||||
MESSAGE '2132:4753'
|
||||
ON SELECTION BAR 7 OF _0u60qe5ej lans_generic(10577,'2132',,'4753')
|
||||
|
||||
DEFINE BAR 2 OF _0u60qd0ny PROMPT "Vanzare" ;
|
||||
MESSAGE '461 :7583;461 :4427'
|
||||
ON SELECTION BAR 2 OF _0u60qd0ny DO BAR_2_OF__0u60qd0ny_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60qd0ny PROMPT "Scoatere din gestiune"
|
||||
ON BAR 3 OF _0u60qd0ny ACTIVATE POPUP _0u60qpa2l
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60qpa2l SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60qpa2l PROMPT "Amortizare integrala" ;
|
||||
MESSAGE '281 :2132'
|
||||
ON SELECTION BAR 1 OF _0u60qpa2l DO BAR_1_OF__0u60qpa2l_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60qpa2l PROMPT "Amortizare partiala" ;
|
||||
MESSAGE '281 :2132;6583:2132'
|
||||
ON SELECTION BAR 2 OF _0u60qpa2l DO BAR_2_OF__0u60qpa2l_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60qpa2l PROMPT "Restituire catre asociati" ;
|
||||
MESSAGE '456 :2132'
|
||||
ON SELECTION BAR 3 OF _0u60qpa2l DO BAR_3_OF__0u60qpa2l_FB2P
|
||||
|
||||
DEFINE BAR 5 OF _09c0r6h54 PROMPT "Mijloace de transport 2133"
|
||||
ON BAR 5 OF _09c0r6h54 ACTIVATE POPUP _0u60quxkz
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60quxkz SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60quxkz PROMPT "Achizitie"
|
||||
ON BAR 1 OF _0u60quxkz ACTIVATE POPUP _0u60qv453
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60qv453 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60qv453 PROMPT "De la furnizori" ;
|
||||
MESSAGE '2133:404 ;4426:404 '
|
||||
ON SELECTION BAR 1 OF _0u60qv453 DO BAR_1_OF__0u60qv453_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60qv453 PROMPT "De la furnizori-taxa inversa" ;
|
||||
MESSAGE '2133:404'
|
||||
ON SELECTION BAR 2 OF _0u60qv453 DO BAR_2_OF__0u60qv453_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60qv453 PROMPT "Aport asociati" ;
|
||||
MESSAGE '2133:456 '
|
||||
ON SELECTION BAR 3 OF _0u60qv453 DO BAR_3_OF__0u60qv453_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _0u60qv453 PROMPT "Din productia proprie" ;
|
||||
MESSAGE '2133:722 '
|
||||
ON SELECTION BAR 4 OF _0u60qv453 DO BAR_4_OF__0u60qv453_FB2P
|
||||
|
||||
DEFINE BAR 5 OF _0u60qv453 PROMPT "\-"
|
||||
ON BAR 5 OF _0u60qv453 ACTIVATE POPUP _2vb0zwc5z
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2vb0zwc5z SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF _0u60qv453 PROMPT "Donatii cu titlu gratuit 131" ;
|
||||
MESSAGE '2133:131 '
|
||||
ON SELECTION BAR 6 OF _0u60qv453 DO BAR_6_OF__0u60qv453_FB2P
|
||||
|
||||
DEFINE BAR 7 OF _0u60qv453 PROMPT "Subventii pentru investii 4751" ;
|
||||
MESSAGE '2133:4751'
|
||||
ON SELECTION BAR 7 OF _0u60qv453 lans_generic(10604,'2132',,'4751')
|
||||
|
||||
DEFINE BAR 8 OF _0u60qv453 PROMPT "Cu titlu gratuit 4753" ;
|
||||
MESSAGE '2133:4753'
|
||||
ON SELECTION BAR 8 OF _0u60qv453 lans_generic(10604,'2132',,'4753')
|
||||
|
||||
DEFINE BAR 2 OF _0u60quxkz PROMPT "Vanzare" ;
|
||||
MESSAGE '461 :7583;461 :4427'
|
||||
ON SELECTION BAR 2 OF _0u60quxkz DO BAR_2_OF__0u60quxkz_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60quxkz PROMPT "Scoatere din gestiune"
|
||||
ON BAR 3 OF _0u60quxkz ACTIVATE POPUP Scoateredi
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Scoateredi SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Scoateredi PROMPT "Amortizare integrala" ;
|
||||
MESSAGE '281 :2133'
|
||||
ON SELECTION BAR 1 OF Scoateredi DO BAR_1_OF_Scoateredi_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Scoateredi PROMPT "Amortizare partiala" ;
|
||||
MESSAGE '281 :2133;6583:2133'
|
||||
ON SELECTION BAR 2 OF Scoateredi DO BAR_2_OF_Scoateredi_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Scoateredi PROMPT "Restituire catre asociati" ;
|
||||
MESSAGE '456 :2133'
|
||||
ON SELECTION BAR 3 OF Scoateredi DO BAR_3_OF_Scoateredi_FB2P
|
||||
|
||||
DEFINE BAR 6 OF _09c0r6h54 PROMPT "Mobilier birotica 214"
|
||||
ON BAR 6 OF _09c0r6h54 ACTIVATE POPUP _0u60r4hxo
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60r4hxo SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60r4hxo PROMPT "Achizitie"
|
||||
ON BAR 1 OF _0u60r4hxo ACTIVATE POPUP _0u60r4pla
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60r4pla SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60r4pla PROMPT "De la furnizori" ;
|
||||
MESSAGE '214 :404 ;4426:404 '
|
||||
ON SELECTION BAR 1 OF _0u60r4pla DO BAR_1_OF__0u60r4pla_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60r4pla PROMPT "Aport asociati" ;
|
||||
MESSAGE '214 :456 '
|
||||
ON SELECTION BAR 2 OF _0u60r4pla DO BAR_2_OF__0u60r4pla_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60r4pla PROMPT "Din productia proprie" ;
|
||||
MESSAGE '214 :722 '
|
||||
ON SELECTION BAR 3 OF _0u60r4pla DO BAR_3_OF__0u60r4pla_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _0u60r4pla PROMPT "\-"
|
||||
ON BAR 4 OF _0u60r4pla ACTIVATE POPUP _2vb104ksz
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2vb104ksz SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF _0u60r4pla PROMPT "Donatii cu titlu gratuit" ;
|
||||
MESSAGE '214 :131 '
|
||||
ON SELECTION BAR 5 OF _0u60r4pla DO BAR_5_OF__0u60r4pla_FB2P
|
||||
|
||||
DEFINE BAR 6 OF _0u60r4pla PROMPT "Subventii pentru investitii 4751" ;
|
||||
MESSAGE '214 :4751'
|
||||
ON SELECTION BAR 6 OF _0u60r4pla lans_generic(10604,'214',,'4751')
|
||||
|
||||
DEFINE BAR 7 OF _0u60r4pla PROMPT "Cu titlu gratuit 4753" ;
|
||||
MESSAGE '214 :4753'
|
||||
ON SELECTION BAR 7 OF _0u60r4pla lans_generic(10604,'214',,'4753')
|
||||
|
||||
DEFINE BAR 2 OF _0u60r4hxo PROMPT "Vanzare" ;
|
||||
MESSAGE '461 :7583;461 :4427'
|
||||
ON SELECTION BAR 2 OF _0u60r4hxo DO BAR_2_OF__0u60r4hxo_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60r4hxo PROMPT "Scoatere din gestiune"
|
||||
ON BAR 3 OF _0u60r4hxo ACTIVATE POPUP _0u60rb80y
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60rb80y SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60rb80y PROMPT "Amortizare integrala" ;
|
||||
MESSAGE '281 :214 '
|
||||
ON SELECTION BAR 1 OF _0u60rb80y DO BAR_1_OF__0u60rb80y_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60rb80y PROMPT "Amortizare partiala" ;
|
||||
MESSAGE '281 :214 ;6583:214 '
|
||||
ON SELECTION BAR 2 OF _0u60rb80y DO BAR_2_OF__0u60rb80y_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60rb80y PROMPT "Restituire catre asociati" ;
|
||||
MESSAGE '456 :214 '
|
||||
ON SELECTION BAR 3 OF _0u60rb80y DO BAR_3_OF__0u60rb80y_FB2P
|
||||
ACTIVATE POPUP _09c0r6h54
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Achizitie_FB2P
|
||||
lans(10080)
|
||||
ENDPROC && BAR_1_OF_Achizitie_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Achizitie_FB2P
|
||||
lans(10586)
|
||||
ENDPROC && BAR_2_OF_Achizitie_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Achizitie_FB2P
|
||||
*DO ABC1 WITH '2111',"456 "
|
||||
lans(10081)
|
||||
ENDPROC && BAR_3_OF_Achizitie_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Achizitie_FB2P
|
||||
*DO ABC1 WITH '2111',"131 "
|
||||
lans(10082)
|
||||
ENDPROC && BAR_5_OF_Achizitie_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Vanzare_FB2P
|
||||
*!*vvv DO ABC2 WITH '461 ',"7721","461 ","4427"
|
||||
*DO ABC2 WITH '461 ',"7583","461 ","4427"
|
||||
lans(10083)
|
||||
ENDPROC && BAR_1_OF_Vanzare_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Vanzare_FB2P
|
||||
*!* DO ABC1 WITH '6721',"2111"
|
||||
*DO ABC1 WITH '6583',"2111"
|
||||
lans(10084)
|
||||
ENDPROC && BAR_2_OF_Vanzare_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Terenuri21_FB2P
|
||||
*DO ABC1 WITH '456 ',"211 "
|
||||
lans(10085)
|
||||
ENDPROC && BAR_3_OF_Terenuri21_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60pirxi_FB2P
|
||||
lans(10086)
|
||||
ENDPROC && BAR_1_OF__0u60pirxi_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60pirxi_FB2P
|
||||
lans(10587)
|
||||
ENDPROC && BAR_2_OF__0u60pirxi_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60pirxi_FB2P
|
||||
*DO ABC1 WITH '212 ',"456 "
|
||||
lans(10087)
|
||||
ENDPROC && BAR_3_OF__0u60pirxi_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF__0u60pirxi_FB2P
|
||||
*DO ABC1 WITH '212 ',"722 "
|
||||
lans(10089)
|
||||
ENDPROC && BAR_4_OF__0u60pirxi_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF__0u60pirxi_FB2P
|
||||
*DO ABC1 WITH '212 ',"131 "
|
||||
lans(10088)
|
||||
ENDPROC && BAR_6_OF__0u60pirxi_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60pi7rd_FB2P
|
||||
*DO ABC2 WITH '461 ',"7583","461 ","4427"
|
||||
lans(10090)
|
||||
ENDPROC && BAR_2_OF__0u60pi7rd_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60pngsi_FB2P
|
||||
*DO ABC1 WITH '281 ',"212 "
|
||||
lans(10091)
|
||||
ENDPROC && BAR_1_OF__0u60pngsi_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60pngsi_FB2P
|
||||
*!* *DO ABC2 WITH '281 ',"212 ","6583","212 "
|
||||
*!* DO abc1 WITH '2812','212'
|
||||
*!* ss=m.suma
|
||||
*!* *m.suma=round((m.ctva-1)*ss,0)
|
||||
*!* DO abc1 WITH '6583','212'
|
||||
|
||||
lans(10121)
|
||||
ENDPROC && BAR_2_OF__0u60pngsi_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60pngsi_FB2P
|
||||
*DO ABC1 WITH '456 ',"212 "
|
||||
lans(10092)
|
||||
ENDPROC && BAR_3_OF__0u60pngsi_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60pwbws_FB2P
|
||||
*!* *DO ABC2 WITH '2131',"404 ","4426","404 "
|
||||
|
||||
*!* DEB='2131'
|
||||
*!* M.SCD=DEB
|
||||
*!* M.SCD1=DEB
|
||||
*!* SCC1='404 '
|
||||
*!* SCD2='4426'
|
||||
*!* SCC2=SCC1
|
||||
|
||||
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
||||
*!* CLASAACT='ACTFIX404'
|
||||
*!* OA=CREA(CLASAACT)
|
||||
*!* OA.SHOW(1)
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* do pnir
|
||||
|
||||
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
|
||||
*!* ***********
|
||||
*!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT
|
||||
*!* *************
|
||||
*!* IF m.NEIMPOZAB>0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='NEIMPOZABIL '
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaI>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaM>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvaM,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* SELE FURNIZ404
|
||||
*!* set filter to
|
||||
*!* loca for allt(nume)=allt(m.nume)
|
||||
*!* if flock()
|
||||
*!* repl furnizor.achizit with furnizor.achizit+M.TOTCTVA
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* DO ADCUMP404
|
||||
*!* **********
|
||||
*!* DO STERGE
|
||||
lans(10093)
|
||||
ENDPROC && BAR_1_OF__0u60pwbws_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60pwbws_FB2P
|
||||
*DO ABC1 WITH '2131',"456 "
|
||||
lans(10094)
|
||||
ENDPROC && BAR_2_OF__0u60pwbws_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60pwbws_FB2P
|
||||
*DO ABC1 WITH '2131','722 '
|
||||
lans(10096)
|
||||
ENDPROC && BAR_3_OF__0u60pwbws_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF__0u60pwbws_FB2P
|
||||
*DO ABC1 WITH '2131',"131 "
|
||||
lans(10095)
|
||||
ENDPROC && BAR_5_OF__0u60pwbws_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60prr10_FB2P
|
||||
*DO ABC2 WITH '461 ',"7583","461 ","4427"
|
||||
lans(10097)
|
||||
ENDPROC && BAR_2_OF__0u60prr10_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60q5p9b_FB2P
|
||||
*DO ABC1 WITH '281 ',"2131"
|
||||
lans(10098)
|
||||
ENDPROC && BAR_1_OF__0u60q5p9b_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60q5p9b_FB2P
|
||||
*!* *DO ABC2 WITH '281',"2131",'6583',"2131"
|
||||
*!* DO abc1 WITH '2813','2131'
|
||||
*!* ss=m.suma
|
||||
*!* *m.suma=round((m.ctva-1)*ss,0)
|
||||
*!* DO abc1 WITH '6583','2131'
|
||||
lans(10122)
|
||||
ENDPROC && BAR_2_OF__0u60q5p9b_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60q5p9b_FB2P
|
||||
*DO ABC1 WITH '456 ',"2131"
|
||||
lans(10099)
|
||||
ENDPROC && BAR_3_OF__0u60q5p9b_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60qe5ej_FB2P
|
||||
lans(10100)
|
||||
*!* *DO ABC2 WITH '2132',"404 ",'4426',"404 "
|
||||
*!* DEB='2132'
|
||||
*!* M.SCD=DEB
|
||||
*!* M.SCD1=DEB
|
||||
*!* SCC1='404 '
|
||||
*!* SCD2='4426'
|
||||
*!* SCC2=SCC1
|
||||
|
||||
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
||||
*!* CLASAACT='ACTFIX404'
|
||||
*!* OA=CREA(CLASAACT)
|
||||
*!* OA.SHOW(1)
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* do pnir
|
||||
|
||||
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
|
||||
*!* ***********
|
||||
*!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT
|
||||
*!* *************
|
||||
*!* IF m.NEIMPOZAB>0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='NEIMPOZABIL '
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaI>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaM>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvaM,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* SELE FURNIZ404
|
||||
*!* set filter to
|
||||
*!* loca for allt(nume)=allt(m.nume)
|
||||
*!* if flock()
|
||||
*!* repl achizit with achizit+M.TOTCTVA
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* DO ADCUMP404
|
||||
*!* **********
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_1_OF__0u60qe5ej_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60qe5ej_FB2P
|
||||
*DO ABC1 WITH '2132',"456 "
|
||||
lans(10101)
|
||||
ENDPROC && BAR_2_OF__0u60qe5ej_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60qe5ej_FB2P
|
||||
*DO ABC1 WITH '2132','722 '
|
||||
lans(10103)
|
||||
ENDPROC && BAR_3_OF__0u60qe5ej_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF__0u60qe5ej_FB2P
|
||||
*DO ABC1 WITH '2132',"131 "
|
||||
lans(10102)
|
||||
ENDPROC && BAR_5_OF__0u60qe5ej_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60qd0ny_FB2P
|
||||
*DO ABC2 WITH '461','7583','461 ','4427'
|
||||
lans(10104)
|
||||
ENDPROC && BAR_2_OF__0u60qd0ny_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60qpa2l_FB2P
|
||||
*DO ABC1 WITH '281 ','2132'
|
||||
lans(10105)
|
||||
ENDPROC && BAR_1_OF__0u60qpa2l_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60qpa2l_FB2P
|
||||
*!* *DO ABC2 WITH '281 ','2132','6583','2132'
|
||||
*!* DO abc1 WITH '2813','2132'
|
||||
*!* ss=m.suma
|
||||
*!* *m.suma=round((m.ctva-1)*ss,0)
|
||||
*!* DO abc1 WITH '6583','2132'
|
||||
lans(10123)
|
||||
ENDPROC && BAR_2_OF__0u60qpa2l_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60qpa2l_FB2P
|
||||
*DO ABC1 WITH '456 ','2132'
|
||||
lans(10106)
|
||||
ENDPROC && BAR_3_OF__0u60qpa2l_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60qv453_FB2P
|
||||
lans(10107)
|
||||
ENDPROC && BAR_1_OF__0u60qv453_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60qv453_FB2P
|
||||
lans(10588)
|
||||
ENDPROC && BAR_2_OF__0u60qv453_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60qv453_FB2P
|
||||
*DO ABC1 WITH '2133','456 '
|
||||
lans(10108)
|
||||
ENDPROC && BAR_3_OF__0u60qv453_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF__0u60qv453_FB2P
|
||||
*DO ABC1 WITH '2133','722 '
|
||||
lans(10110)
|
||||
ENDPROC && BAR_4_OF__0u60qv453_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF__0u60qv453_FB2P
|
||||
*DO ABC1 WITH '2133','131 '
|
||||
lans(10109)
|
||||
ENDPROC && BAR_6_OF__0u60qv453_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60quxkz_FB2P
|
||||
*DO ABC2 WITH '461 ','7583','461 ','4427'
|
||||
lans(10111)
|
||||
ENDPROC && BAR_2_OF__0u60quxkz_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Scoateredi_FB2P
|
||||
*DO ABC1 WITH '281 ','2133'
|
||||
laNS(10112)
|
||||
ENDPROC && BAR_1_OF_Scoateredi_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Scoateredi_FB2P
|
||||
*!* *DO ABC2 WITH '281 ','2133','6583','2133'
|
||||
*!* DO abc1 WITH '2813','2133'
|
||||
*!* ss=m.suma
|
||||
*!* *m.suma=round((m.ctva-1)*ss,0)
|
||||
*!* DO abc1 WITH '6583','2133'
|
||||
lans(10124)
|
||||
ENDPROC && BAR_2_OF_Scoateredi_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Scoateredi_FB2P
|
||||
*DO ABC1 WITH '456 ','2133'
|
||||
lans(10113)
|
||||
ENDPROC && BAR_3_OF_Scoateredi_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60r4pla_FB2P
|
||||
lans(10114)
|
||||
*!* *DO ABC2 WITH '214 ','404 ','4426','404 '
|
||||
|
||||
*!* DEB='214 '
|
||||
*!* M.SCD=DEB
|
||||
*!* M.SCD1=DEB
|
||||
*!* SCC1='404 '
|
||||
*!* SCD2='4426 '
|
||||
*!* SCC2=SCC1
|
||||
|
||||
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
||||
*!* CLASAACT='ACTFIX404'
|
||||
*!* OA=CREA(CLASAACT)
|
||||
*!* OA.SHOW(1)
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* do pnir
|
||||
|
||||
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
|
||||
*!* ***********
|
||||
*!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT
|
||||
*!* *************
|
||||
*!* IF m.NEIMPOZAB>0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='NEIMPOZABIL '
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaI>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaM>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvaM,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* SELE FURNIZ404
|
||||
*!* set filter to
|
||||
*!* loca for allt(nume)=allt(m.nume)
|
||||
*!* if flock()
|
||||
*!* repl achizit with achizit+M.TOTCTVA
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* DO ADCUMP404
|
||||
*!* **********
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_1_OF__0u60r4pla_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60r4pla_FB2P
|
||||
*DO ABC1 WITH '214 ','456 '
|
||||
lans(10115)
|
||||
ENDPROC && BAR_2_OF__0u60r4pla_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60r4pla_FB2P
|
||||
*DO ABC1 WITH '214 ','722 '
|
||||
lans(10117)
|
||||
ENDPROC && BAR_3_OF__0u60r4pla_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF__0u60r4pla_FB2P
|
||||
*DO ABC1 WITH '214 ','131 '
|
||||
lans(10116)
|
||||
ENDPROC && BAR_5_OF__0u60r4pla_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60r4hxo_FB2P
|
||||
*DO ABC2 WITH '461 ','7583','461 ','4427'
|
||||
lans(10118)
|
||||
ENDPROC && BAR_2_OF__0u60r4hxo_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60rb80y_FB2P
|
||||
*DO ABC1 WITH '281 ','214 '
|
||||
lans(10119)
|
||||
ENDPROC && BAR_1_OF__0u60rb80y_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60rb80y_FB2P
|
||||
*!* *DO ABC2 WITH '281 ','214 ','6583','214 '
|
||||
*!* DO abc1 WITH '2814','214'
|
||||
*!* ss=m.suma
|
||||
*!* *m.suma=round((m.ctva-1)*ss,0)
|
||||
*!* DO abc1 WITH '6583','214'
|
||||
lans(10125)
|
||||
ENDPROC && BAR_2_OF__0u60rb80y_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60rb80y_FB2P
|
||||
*DO ABC1 WITH '456 ','214 '
|
||||
lans(10120)
|
||||
ENDPROC && BAR_3_OF__0u60rb80y_FB2P
|
||||
|
||||
*</Procedures>
|
||||
255
Meniuri/imobilizari4.mn2
Normal file
255
Meniuri/imobilizari4.mn2
Normal file
@@ -0,0 +1,255 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari4.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP _0u60rfpee SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF _0u60rfpee PROMPT "Titluri la filiale din cadrul grupului"
|
||||
ON BAR 1 OF _0u60rfpee ACTIVATE POPUP _0u60rgk56
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60rgk56 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60rgk56 PROMPT "Intrare in gestiune"
|
||||
ON BAR 1 OF _0u60rgk56 ACTIVATE POPUP Intrareing
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Intrareing SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Intrareing PROMPT "Aport asociati" ;
|
||||
MESSAGE '261 :456 '
|
||||
ON SELECTION BAR 1 OF Intrareing DO BAR_1_OF_Intrareing_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Intrareing PROMPT "Cu plata in numerar" ;
|
||||
MESSAGE '261 :5311'
|
||||
ON SELECTION BAR 2 OF Intrareing DO BAR_2_OF_Intrareing_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Intrareing PROMPT "Cu plata prin banca" ;
|
||||
MESSAGE '261 :5121'
|
||||
ON SELECTION BAR 3 OF Intrareing DO BAR_3_OF_Intrareing_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60rgk56 PROMPT "Iesire din gestiune"
|
||||
ON BAR 2 OF _0u60rgk56 ACTIVATE POPUP _0u60rqh9y
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60rqh9y SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60rqh9y PROMPT "Prin cedarea titlurilor" ;
|
||||
MESSAGE '6641:261 '
|
||||
ON SELECTION BAR 1 OF _0u60rqh9y DO BAR_1_OF__0u60rqh9y_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60rqh9y PROMPT "Restituire catre asociati" ;
|
||||
MESSAGE '456 :261 '
|
||||
ON SELECTION BAR 2 OF _0u60rqh9y DO BAR_2_OF__0u60rqh9y_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60rfpee PROMPT "Titluri la societati din afara grupului"
|
||||
ON BAR 2 OF _0u60rfpee ACTIVATE POPUP _0u60rthqw
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60rthqw SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60rthqw PROMPT "Intrare in gestiune"
|
||||
ON BAR 1 OF _0u60rthqw ACTIVATE POPUP _0u60rtoto
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60rtoto SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60rtoto PROMPT "Aport asociati" ;
|
||||
MESSAGE '262 :456 '
|
||||
ON SELECTION BAR 1 OF _0u60rtoto DO BAR_1_OF__0u60rtoto_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60rtoto PROMPT "Cu plata in numerar" ;
|
||||
MESSAGE '262 :5311'
|
||||
ON SELECTION BAR 2 OF _0u60rtoto DO BAR_2_OF__0u60rtoto_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60rtoto PROMPT "Cu plata prin banca" ;
|
||||
MESSAGE '262 :5121'
|
||||
ON SELECTION BAR 3 OF _0u60rtoto DO BAR_3_OF__0u60rtoto_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60rthqw PROMPT "Iesire din gestiune"
|
||||
ON BAR 2 OF _0u60rthqw ACTIVATE POPUP _0u60rwtsy
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60rwtsy SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60rwtsy PROMPT "Prin cedarea titlurilor" ;
|
||||
MESSAGE '6641 :262'
|
||||
ON SELECTION BAR 1 OF _0u60rwtsy DO BAR_1_OF__0u60rwtsy_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60rwtsy PROMPT "Restituire catre asociati" ;
|
||||
MESSAGE '456 :262 '
|
||||
ON SELECTION BAR 2 OF _0u60rwtsy DO BAR_2_OF__0u60rwtsy_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60rfpee PROMPT "Interese de participare"
|
||||
ON BAR 3 OF _0u60rfpee ACTIVATE POPUP _0u60rz3sr
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60rz3sr SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60rz3sr PROMPT "Intrare in gestiune"
|
||||
ON BAR 1 OF _0u60rz3sr ACTIVATE POPUP _0u60rz9gc
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60rz9gc SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60rz9gc PROMPT "Aport asociati" ;
|
||||
MESSAGE '263 :456 '
|
||||
ON SELECTION BAR 1 OF _0u60rz9gc DO BAR_1_OF__0u60rz9gc_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60rz9gc PROMPT "Cu plata in numerar" ;
|
||||
MESSAGE '263 :5311'
|
||||
ON SELECTION BAR 2 OF _0u60rz9gc DO BAR_2_OF__0u60rz9gc_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60rz9gc PROMPT "Cu plata prin banca" ;
|
||||
MESSAGE '263 :5121'
|
||||
ON SELECTION BAR 3 OF _0u60rz9gc DO BAR_3_OF__0u60rz9gc_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60rz3sr PROMPT "Iesire din gestiune"
|
||||
ON BAR 2 OF _0u60rz3sr ACTIVATE POPUP _0u60s3kk3
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60s3kk3 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60s3kk3 PROMPT "Prin cedarea titlurilor" ;
|
||||
MESSAGE '6641:263 '
|
||||
ON SELECTION BAR 1 OF _0u60s3kk3 DO BAR_1_OF__0u60s3kk3_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60s3kk3 PROMPT "Restituire catre asociati" ;
|
||||
MESSAGE '456 :263 '
|
||||
ON SELECTION BAR 2 OF _0u60s3kk3 DO BAR_2_OF__0u60s3kk3_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _0u60rfpee PROMPT "Alte titluri imobilizate"
|
||||
ON BAR 4 OF _0u60rfpee ACTIVATE POPUP _0u60s7p0a
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60s7p0a SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60s7p0a PROMPT "Intrare in gestiune"
|
||||
ON BAR 1 OF _0u60s7p0a ACTIVATE POPUP _0u60s7vd0
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60s7vd0 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60s7vd0 PROMPT "Aport asociati" ;
|
||||
MESSAGE '265 :456 '
|
||||
ON SELECTION BAR 1 OF _0u60s7vd0 DO BAR_1_OF__0u60s7vd0_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60s7vd0 PROMPT "Cu plata in numerar" ;
|
||||
MESSAGE '265 :5311'
|
||||
ON SELECTION BAR 2 OF _0u60s7vd0 DO BAR_2_OF__0u60s7vd0_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60s7vd0 PROMPT "Cu plata prin banca" ;
|
||||
MESSAGE '265 :5121'
|
||||
ON SELECTION BAR 3 OF _0u60s7vd0 DO BAR_3_OF__0u60s7vd0_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60s7p0a PROMPT "Iesire din gestiune"
|
||||
ON BAR 2 OF _0u60s7p0a ACTIVATE POPUP _0u60sbg40
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60sbg40 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60sbg40 PROMPT "Prin cedarea titlurilor" ;
|
||||
MESSAGE '6641:265 '
|
||||
ON SELECTION BAR 1 OF _0u60sbg40 DO BAR_1_OF__0u60sbg40_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60sbg40 PROMPT "Restituire catre asociati" ;
|
||||
MESSAGE '456 :265 '
|
||||
ON SELECTION BAR 2 OF _0u60sbg40 DO BAR_2_OF__0u60sbg40_FB2P
|
||||
ACTIVATE POPUP _0u60rfpee
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Intrareing_FB2P
|
||||
*DO ABC1 WITH '261 ','456 '
|
||||
lans(10149)
|
||||
ENDPROC && BAR_1_OF_Intrareing_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Intrareing_FB2P
|
||||
*DO ABC1 WITH '261 ','5311'
|
||||
lans(10150)
|
||||
ENDPROC && BAR_2_OF_Intrareing_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Intrareing_FB2P
|
||||
*DO ABC1 WITH '261 ','5121'
|
||||
lans(10151)
|
||||
ENDPROC && BAR_3_OF_Intrareing_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60rqh9y_FB2P
|
||||
*DO ABC1 WITH '6641','261 '
|
||||
laNS(10152)
|
||||
ENDPROC && BAR_1_OF__0u60rqh9y_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60rqh9y_FB2P
|
||||
*DO ABC1 WITH '456 ','261 '
|
||||
lans(10153)
|
||||
ENDPROC && BAR_2_OF__0u60rqh9y_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60rtoto_FB2P
|
||||
*DO ABC1 WITH '262 ','456 '
|
||||
lans(10154)
|
||||
ENDPROC && BAR_1_OF__0u60rtoto_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60rtoto_FB2P
|
||||
*DO ABC1 WITH '262 ','5311'
|
||||
lans(10155)
|
||||
ENDPROC && BAR_2_OF__0u60rtoto_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60rtoto_FB2P
|
||||
*DO ABC1 WITH '262 ','5121'
|
||||
lans(10156)
|
||||
ENDPROC && BAR_3_OF__0u60rtoto_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60rwtsy_FB2P
|
||||
*DO ABC1 WITH '6641','262 '
|
||||
lans(10157)
|
||||
ENDPROC && BAR_1_OF__0u60rwtsy_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60rwtsy_FB2P
|
||||
*DO ABC1 WITH '456 ','262 '
|
||||
lans(10158)
|
||||
ENDPROC && BAR_2_OF__0u60rwtsy_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60rz9gc_FB2P
|
||||
*DO ABC1 WITH '263 ','456 '
|
||||
lans(10159)
|
||||
ENDPROC && BAR_1_OF__0u60rz9gc_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60rz9gc_FB2P
|
||||
*DO ABC1 WITH '263 ','5311'
|
||||
lans(10160)
|
||||
ENDPROC && BAR_2_OF__0u60rz9gc_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60rz9gc_FB2P
|
||||
*DO ABC1 WITH '263 ','5121'
|
||||
lans(10161)
|
||||
ENDPROC && BAR_3_OF__0u60rz9gc_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60s3kk3_FB2P
|
||||
*DO ABC1 WITH '6641','263 '
|
||||
lans(10162)
|
||||
ENDPROC && BAR_1_OF__0u60s3kk3_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60s3kk3_FB2P
|
||||
*DO ABC1 WITH '456 ','263 '
|
||||
lans(10163)
|
||||
ENDPROC && BAR_2_OF__0u60s3kk3_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60s7vd0_FB2P
|
||||
*DO ABC1 WITH '265 ','456 '
|
||||
lans(10164)
|
||||
ENDPROC && BAR_1_OF__0u60s7vd0_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60s7vd0_FB2P
|
||||
*DO ABC1 WITH '265 ','5311'
|
||||
lans(10165)
|
||||
ENDPROC && BAR_2_OF__0u60s7vd0_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60s7vd0_FB2P
|
||||
*DO ABC1 WITH '265 ','5121'
|
||||
lans(10166)
|
||||
ENDPROC && BAR_3_OF__0u60s7vd0_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60sbg40_FB2P
|
||||
*DO ABC1 WITH '6641','265 '
|
||||
lans(10167)
|
||||
ENDPROC && BAR_1_OF__0u60sbg40_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60sbg40_FB2P
|
||||
*DO ABC1 WITH '456 ','265 '
|
||||
lans(10168)
|
||||
ENDPROC && BAR_2_OF__0u60sbg40_FB2P
|
||||
|
||||
*</Procedures>
|
||||
417
Meniuri/imobilizari5.mn2
Normal file
417
Meniuri/imobilizari5.mn2
Normal file
@@ -0,0 +1,417 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP _0u60sg1k5 SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF _0u60sg1k5 PROMPT "Corporale 231"
|
||||
ON BAR 1 OF _0u60sg1k5 ACTIVATE POPUP _0u60sk6ro
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60sk6ro SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60sk6ro PROMPT "Realizarea imobilizarilor in curs"
|
||||
ON BAR 1 OF _0u60sk6ro ACTIVATE POPUP _0u60skexy
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60skexy SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60skexy PROMPT "De la asociati" ;
|
||||
MESSAGE '231 :456 '
|
||||
ON SELECTION BAR 1 OF _0u60skexy DO BAR_1_OF__0u60skexy_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60skexy PROMPT "De la furnizori" ;
|
||||
MESSAGE '231 :404 ;4426:404 '
|
||||
ON SELECTION BAR 2 OF _0u60skexy DO BAR_2_OF__0u60skexy_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60skexy PROMPT "De la furnizori-taxa inversa" ;
|
||||
MESSAGE '4426:404 '
|
||||
ON SELECTION BAR 3 OF _0u60skexy DO BAR_3_OF__0u60skexy_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _0u60skexy PROMPT "Din regie proprie" ;
|
||||
MESSAGE '231 :722 '
|
||||
ON SELECTION BAR 4 OF _0u60skexy DO BAR_4_OF__0u60skexy_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60sk6ro PROMPT "Receptionarea imobilizarilor in curs, terminate"
|
||||
ON BAR 2 OF _0u60sk6ro ACTIVATE POPUP _0u60spwkz
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60spwkz SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60spwkz PROMPT "Constructii 212" ;
|
||||
MESSAGE '212 :231 '
|
||||
ON SELECTION BAR 1 OF _0u60spwkz DO BAR_1_OF__0u60spwkz_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60spwkz PROMPT "Echipamente tehnologice 2131" ;
|
||||
MESSAGE '2131:231 '
|
||||
ON SELECTION BAR 2 OF _0u60spwkz DO BAR_2_OF__0u60spwkz_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60spwkz PROMPT "Aparate de masura 2132" ;
|
||||
MESSAGE '2132:231 '
|
||||
ON SELECTION BAR 3 OF _0u60spwkz DO BAR_3_OF__0u60spwkz_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _0u60spwkz PROMPT "Mijloace de transport 2133" ;
|
||||
MESSAGE '2133:231 '
|
||||
ON SELECTION BAR 4 OF _0u60spwkz DO BAR_4_OF__0u60spwkz_FB2P
|
||||
|
||||
DEFINE BAR 5 OF _0u60spwkz PROMPT "Mobilier birotica 214" ;
|
||||
MESSAGE '214 :231 '
|
||||
ON SELECTION BAR 5 OF _0u60spwkz DO BAR_5_OF__0u60spwkz_FB2P
|
||||
|
||||
DEFINE BAR 6 OF _0u60spwkz PROMPT "Animale si plantatii 2134" ;
|
||||
MESSAGE '2134 :231 '
|
||||
ON SELECTION BAR 6 OF _0u60spwkz DO BAR_6_OF__0u60spwkz_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60sg1k5 PROMPT "Avansuri pentru imob. corporale 232"
|
||||
ON BAR 2 OF _0u60sg1k5 ACTIVATE POPUP _0u60sw49x
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60sw49x SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60sw49x PROMPT "Acordate furnizorilor" ;
|
||||
MESSAGE '232 :404 '
|
||||
ON SELECTION BAR 1 OF _0u60sw49x DO BAR_1_OF__0u60sw49x_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60sw49x PROMPT "Decontate de furnizori" ;
|
||||
MESSAGE '404 :232 '
|
||||
ON SELECTION BAR 2 OF _0u60sw49x DO BAR_2_OF__0u60sw49x_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60sg1k5 PROMPT "Necorporale 233"
|
||||
ON BAR 3 OF _0u60sg1k5 ACTIVATE POPUP _0u60t8smb
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60t8smb SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60t8smb PROMPT "Realizarea imobilizarilor in curs"
|
||||
ON BAR 1 OF _0u60t8smb ACTIVATE POPUP _0u60t9l2m
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60t9l2m SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60t9l2m PROMPT "De la asociati" ;
|
||||
MESSAGE '233 :456 '
|
||||
ON SELECTION BAR 1 OF _0u60t9l2m DO BAR_1_OF__0u60t9l2m_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60t9l2m PROMPT "De la furnizori" ;
|
||||
MESSAGE '233 :404 ;4426:404 '
|
||||
ON SELECTION BAR 2 OF _0u60t9l2m DO BAR_2_OF__0u60t9l2m_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60t9l2m PROMPT "Din regie proprie" ;
|
||||
MESSAGE '233 :721 '
|
||||
ON SELECTION BAR 3 OF _0u60t9l2m DO BAR_3_OF__0u60t9l2m_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60t8smb PROMPT "Receptionarea imobilizarilor in curs, terminate"
|
||||
ON BAR 2 OF _0u60t8smb ACTIVATE POPUP _0u60tfh6h
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60tfh6h SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60tfh6h PROMPT "Cheltuieli de dezvoltare 203" ;
|
||||
MESSAGE '203 :233 '
|
||||
ON SELECTION BAR 1 OF _0u60tfh6h DO BAR_1_OF__0u60tfh6h_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60tfh6h PROMPT "Concesiuni, brevete 205" ;
|
||||
MESSAGE '205 :233 '
|
||||
ON SELECTION BAR 2 OF _0u60tfh6h DO BAR_2_OF__0u60tfh6h_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _0u60tfh6h PROMPT "Alte imobilizari necorporale 208" ;
|
||||
MESSAGE '208 :233 '
|
||||
ON SELECTION BAR 3 OF _0u60tfh6h DO BAR_3_OF__0u60tfh6h_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _0u60sg1k5 PROMPT "Avansuri pentru imob. necorporale 234"
|
||||
ON BAR 4 OF _0u60sg1k5 ACTIVATE POPUP _0u60tiszu
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0u60tiszu SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0u60tiszu PROMPT "Acordate furnizorilor" ;
|
||||
MESSAGE '234 :404 '
|
||||
ON SELECTION BAR 1 OF _0u60tiszu DO BAR_1_OF__0u60tiszu_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0u60tiszu PROMPT "Decontate de furnizori" ;
|
||||
MESSAGE '404 :234 '
|
||||
ON SELECTION BAR 2 OF _0u60tiszu DO BAR_2_OF__0u60tiszu_FB2P
|
||||
ACTIVATE POPUP _0u60sg1k5
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF__0u60skexy_FB2P
|
||||
*DO ABC1 WITH '231 ','456 '
|
||||
lans(10169)
|
||||
ENDPROC && BAR_1_OF__0u60skexy_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60skexy_FB2P
|
||||
lans(10170)
|
||||
ENDPROC && BAR_2_OF__0u60skexy_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60skexy_FB2P
|
||||
lans(10590)
|
||||
ENDPROC && BAR_3_OF__0u60skexy_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF__0u60skexy_FB2P
|
||||
*DO ABC1 WITH '231 ','722 '
|
||||
lans(10171)
|
||||
ENDPROC && BAR_4_OF__0u60skexy_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60spwkz_FB2P
|
||||
*DO ABC1 WITH '212 ','231 '
|
||||
lans(10172)
|
||||
ENDPROC && BAR_1_OF__0u60spwkz_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60spwkz_FB2P
|
||||
*DO ABC1 WITH '2131','231 '
|
||||
lans(10173)
|
||||
ENDPROC && BAR_2_OF__0u60spwkz_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60spwkz_FB2P
|
||||
*DO ABC1 WITH '2132','231 '
|
||||
lans(10174)
|
||||
ENDPROC && BAR_3_OF__0u60spwkz_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF__0u60spwkz_FB2P
|
||||
*DO ABC1 WITH '2133','231 '
|
||||
lans(10175)
|
||||
ENDPROC && BAR_4_OF__0u60spwkz_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF__0u60spwkz_FB2P
|
||||
*DO ABC1 WITH '214 ','231 '
|
||||
lans(10176)
|
||||
ENDPROC && BAR_5_OF__0u60spwkz_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF__0u60spwkz_FB2P
|
||||
lans(10599)
|
||||
ENDPROC && BAR_6_OF__0u60spwkz_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60sw49x_FB2P
|
||||
lans(10177)
|
||||
*!* *DO ABC1 WITH '232 ','404 '
|
||||
*!* m.scd='232 '
|
||||
*!* m.scc='404 '
|
||||
*!* ****do casa.spr
|
||||
*!* DO alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "NUMELE FURNIZORULUI","FURNIZ404","NUME",;
|
||||
*!* "","","",;
|
||||
*!* '','','',;
|
||||
*!* ""
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* SELE FURNIZ404
|
||||
*!* IF flock()
|
||||
*!* REPL ACHIZIT with ACHIZIT+m.suma
|
||||
*!* ENDIF
|
||||
*!* UNLOCK
|
||||
*!* m.totctva=m.suma
|
||||
*!* m.totftva=m.suma
|
||||
*!* DO adcump404
|
||||
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_1_OF__0u60sw49x_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60sw49x_FB2P
|
||||
lans(10178)
|
||||
*!* *DO ABC1 WITH '404 ','232 '
|
||||
*!* m.scd='404 '
|
||||
*!* m.scc='232 '
|
||||
*!* ****do casa.spr
|
||||
*!* DO alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "NUMELE FURNIZORULUI","FURNIZ404","NUME",;
|
||||
*!* "","","",;
|
||||
*!* '','','',;
|
||||
*!* ""
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* SELE FURNIZ404
|
||||
*!* IF flock()
|
||||
*!* REPL PLATIT with PLATIT+m.suma
|
||||
*!* ENDIF
|
||||
*!* UNLOCK
|
||||
*!* *DO ADCUMP404
|
||||
*!* *!* SELECT CUMPLUN404
|
||||
*!* *!* IF FLOCK()
|
||||
*!* *!* APPEND BLANK
|
||||
*!* *!* GATHER MEMV
|
||||
*!* *!* REPLACE TOTCTVA WITH M.SUMA
|
||||
*!* *!* ENDIF
|
||||
*!* *!* UNLOCK
|
||||
|
||||
*!* *!* SELECT CUMP
|
||||
*!* *!* IF FLOCK()
|
||||
*!* *!* APPEND BLANK
|
||||
*!* *!* GATHER MEMV
|
||||
*!* *!* REPLACE TOTCTVA WITH M.SUMA
|
||||
*!* *!* ENDIF
|
||||
*!* *!* UNLOCK
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_2_OF__0u60sw49x_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60t9l2m_FB2P
|
||||
*DO ABC1 WITH '233 ','456 '
|
||||
lans(10179)
|
||||
ENDPROC && BAR_1_OF__0u60t9l2m_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60t9l2m_FB2P
|
||||
lans(10180)
|
||||
*!* *DO ABC2 WITH '233 ','404 ','4426','404 '
|
||||
*!* DEB='233 '
|
||||
*!* M.SCD=DEB
|
||||
*!* M.SCD1=DEB
|
||||
*!* SCC1='404 '
|
||||
*!* SCD2='4426'
|
||||
*!* SCC2=SCC1
|
||||
|
||||
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
||||
*!* CLASAACT='ACTFIX404'
|
||||
*!* OA=CREA(CLASAACT)
|
||||
*!* OA.SHOW(1)
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* do pnir
|
||||
|
||||
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
|
||||
*!* ***********
|
||||
*!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT
|
||||
*!* *************
|
||||
*!* IF m.NEIMPOZAB>0
|
||||
*!* m.num=m.nume_2
|
||||
*!* m.nume_2='NEIMPOZABIL '
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaI>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvai,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* IF m.totftvaM>0
|
||||
*!* m.num=m.nume_2
|
||||
|
||||
*!* m.nume_2='TVA '+str(m.ctvaM,5,2)
|
||||
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT
|
||||
*!* M.NUME_2=M.NUM
|
||||
*!* ENDIF
|
||||
*!* SELE FURNIZ404
|
||||
*!* set filter to
|
||||
*!* loca for allt(nume)=allt(m.nume)
|
||||
*!* if flock()
|
||||
*!* repl achizit with achizit+M.TOTCTVA
|
||||
*!* endif
|
||||
*!* unlock
|
||||
*!* DO ADCUMP404
|
||||
*!* **********
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_2_OF__0u60t9l2m_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60t9l2m_FB2P
|
||||
*DO ABC1 WITH '233 ','721 '
|
||||
lans(10181)
|
||||
ENDPROC && BAR_3_OF__0u60t9l2m_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60tfh6h_FB2P
|
||||
*DO ABC1 WITH '203 ','233 '
|
||||
lans(10182)
|
||||
ENDPROC && BAR_1_OF__0u60tfh6h_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60tfh6h_FB2P
|
||||
*DO ABC1 WITH '205 ','233 '
|
||||
lans(10183)
|
||||
ENDPROC && BAR_2_OF__0u60tfh6h_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__0u60tfh6h_FB2P
|
||||
*DO ABC1 WITH '208 ','233 '
|
||||
lans(10184)
|
||||
ENDPROC && BAR_3_OF__0u60tfh6h_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0u60tiszu_FB2P
|
||||
lans(10185)
|
||||
*!* *DO ABC1 WITH '234 ','404 '
|
||||
*!* m.scd='234 '
|
||||
*!* m.scc='404 '
|
||||
*!* ****do casa.spr
|
||||
*!* DO alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "NUMELE FURNIZORULUI","FURNIZ404","NUME",;
|
||||
*!* "","","",;
|
||||
*!* '','','',;
|
||||
*!* ""
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* SELE FURNIZ404
|
||||
*!* IF flock()
|
||||
*!* REPL ACHIZIT with ACHIZIT+m.suma
|
||||
*!* ENDIF
|
||||
*!* UNLOCK
|
||||
*!* m.totctva=m.suma
|
||||
*!* m.totftva=m.suma
|
||||
*!* DO adcump404
|
||||
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_1_OF__0u60tiszu_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0u60tiszu_FB2P
|
||||
lans(10186)
|
||||
*!* *DO ABC1 WITH '404 ','234 '
|
||||
*!* m.scd='404 '
|
||||
*!* m.scc='234 '
|
||||
*!* ****do casa.spr
|
||||
*!* DO alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "NUMELE FURNIZORULUI","FURNIZ404","NUME",;
|
||||
*!* "","","",;
|
||||
*!* '','','',;
|
||||
*!* ""
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* SELE FURNIZ404
|
||||
*!* IF flock()
|
||||
*!* REPL PLATIT with PLATIT+m.suma
|
||||
*!* ENDIF
|
||||
*!* UNLOCK
|
||||
*!* *DO ADCUMP404
|
||||
*!* *!* SELECT CUMPLUN404
|
||||
*!* *!* IF FLOCK()
|
||||
*!* *!* APPEND BLANK
|
||||
*!* *!* GATHER MEMV
|
||||
*!* *!* REPLACE TOTCTVA WITH M.SUMA
|
||||
*!* *!* ENDIF
|
||||
*!* *!* UNLOCK
|
||||
|
||||
*!* *!* SELECT CUMP
|
||||
*!* *!* IF FLOCK()
|
||||
*!* *!* APPEND BLANK
|
||||
*!* *!* GATHER MEMV
|
||||
*!* *!* REPLACE TOTCTVA WITH M.SUMA
|
||||
*!* *!* ENDIF
|
||||
*!* *!* UNLOCK
|
||||
*!* DO STERGE
|
||||
ENDPROC && BAR_2_OF__0u60tiszu_FB2P
|
||||
|
||||
*</Procedures>
|
||||
64
Meniuri/imobilizari6.mn2
Normal file
64
Meniuri/imobilizari6.mn2
Normal file
@@ -0,0 +1,64 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari6.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Rate SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Rate PROMPT "\Plata rate"
|
||||
ON SELECTION BAR 1 OF Rate DO BAR_1_OF_Rate_FB2P
|
||||
ACTIVATE POPUP Rate
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Rate_FB2P
|
||||
|
||||
|
||||
|
||||
*!* do tva
|
||||
*!* local s1,s2,s3,s4,s5
|
||||
*!* store 0 to m.suma,s1,s2,s3,s4,s5
|
||||
*!* m.explicatia='DIFERENTA CURS VALUTAR'
|
||||
*!* do abc1 with '665 ','404 '
|
||||
|
||||
*!* s1=m.suma
|
||||
*!* s2=round((m.ctva-1)*s1,0)
|
||||
*!* m.suma=s2
|
||||
*!* m.explicatia='TVA'
|
||||
*!* do abc1 with '4426','404 '
|
||||
|
||||
*!* M.SUMA=0
|
||||
*!* m.explicatia='DOBANDA'
|
||||
*!* do abc1 with '666 ','404 '
|
||||
|
||||
*!* s3=m.suma
|
||||
*!* m.explicatia='PENALITATI'
|
||||
*!* do abc1 with '6711','404 '
|
||||
|
||||
*!* s4=m.suma
|
||||
*!* m.explicatia='PRIMA CASCO'
|
||||
*!* do abc1 with '613 ','404 '
|
||||
*!* s5=m.suma
|
||||
*!* M.TOTCTVA=S1+S2+S3+S4+S5
|
||||
*!* M.TOTFTVAM=S1
|
||||
*!* M.TVAM=S2
|
||||
*!* M.NEIMPOZAB=S3+S4+S5
|
||||
|
||||
*!* SELE FURNIZ404
|
||||
*!* SET filter to
|
||||
*!* LOCA for allt(nume)=allt(m.nume)
|
||||
*!* IF flock()
|
||||
*!* REPL achizit with achizit+M.TOTCTVA
|
||||
*!* ENDIF
|
||||
*!* UNLOCK
|
||||
*!* DO ADCUMP404
|
||||
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_1_OF_Rate_FB2P
|
||||
|
||||
*</Procedures>
|
||||
27
Meniuri/listbanca.mn2
Normal file
27
Meniuri/listbanca.mn2
Normal file
@@ -0,0 +1,27 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="listbanca.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Listare PROMPT "\<Registre" ;
|
||||
MESSAGE 'Tiparirea registrelor'
|
||||
ON BAR 1 OF Listare ACTIVATE POPUP _s2512rxlc
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _s2512rxlc SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _s2512rxlc PROMPT "Registrul de \<Banca Lei"
|
||||
ON SELECTION BAR 1 OF _s2512rxlc do listare_reg_casabanca with '5121'
|
||||
|
||||
DEFINE BAR 2 OF _s2512rxlc PROMPT "Registrul B\<anca in Valuta cumulat pe documente pereche"
|
||||
ON SELECTION BAR 2 OF _s2512rxlc do listare_reg_casabanca_val with '5124', .T.
|
||||
|
||||
DEFINE BAR 3 OF _s2512rxlc PROMPT "Registrul B\<anca in Valuta defalcat pe documente pereche"
|
||||
ON SELECTION BAR 3 OF _s2512rxlc do listare_reg_casabanca_val with '5124', .F.
|
||||
ACTIVATE POPUP Listare
|
||||
|
||||
*</MenuCode>
|
||||
38
Meniuri/listcasa.mn2
Normal file
38
Meniuri/listcasa.mn2
Normal file
@@ -0,0 +1,38 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="listcasa.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Listare PROMPT "\<Registre" ;
|
||||
MESSAGE 'Tiparirea registrelor'
|
||||
ON BAR 1 OF Listare ACTIVATE POPUP _s2512rxlc
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _s2512rxlc SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _s2512rxlc PROMPT "Registrul de C\<asa"
|
||||
ON SELECTION BAR 1 OF _s2512rxlc do listare_reg_casabanca with '5311'
|
||||
|
||||
DEFINE BAR 2 OF _s2512rxlc PROMPT "Registrul de Casa - case cumulate"
|
||||
ON SELECTION BAR 2 OF _s2512rxlc do listare_reg_casacum
|
||||
|
||||
DEFINE BAR 3 OF _s2512rxlc PROMPT "Registrul de Ca\<sa in Valuta"
|
||||
ON SELECTION BAR 3 OF _s2512rxlc do listare_reg_casabanca_val with '5314'
|
||||
|
||||
DEFINE BAR 4 OF _s2512rxlc PROMPT "Registru Incasari Plati (PFA)"
|
||||
ON BAR 4 OF _s2512rxlc ACTIVATE POPUP NewItem
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF NewItem PROMPT "Listare"
|
||||
ON SELECTION BAR 1 OF NewItem do listare_reg_incasariplati in orap_trezorerie.prg
|
||||
|
||||
DEFINE BAR 2 OF NewItem PROMPT "Export xls"
|
||||
ON SELECTION BAR 2 OF NewItem do listare_reg_incasariplati with .T. in orap_trezorerie.prg
|
||||
ACTIVATE POPUP Listare
|
||||
|
||||
*</MenuCode>
|
||||
288
Meniuri/listcli.mn2
Normal file
288
Meniuri/listcli.mn2
Normal file
@@ -0,0 +1,288 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="listcli.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Listare PROMPT "Registrul de \<Vanzari"
|
||||
ON BAR 1 OF Listare ACTIVATE POPUP _1790n9m5l
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1790n9m5l SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _1790n9m5l PROMPT "Format 2007"
|
||||
ON SELECTION BAR 1 OF _1790n9m5l DO BAR_1_OF__1790n9m5l_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _1790n9m5l PROMPT "\<Normal"
|
||||
ON BAR 2 OF _1790n9m5l ACTIVATE POPUP Normalform
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Normalform SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Normalform PROMPT "\<Format 2004"
|
||||
ON SELECTION BAR 1 OF Normalform DO BAR_1_OF_Normalform_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Normalform PROMPT "Cu \<Recapitulatie"
|
||||
ON SELECTION BAR 2 OF Normalform DO BAR_2_OF_Normalform_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _1790n9m5l PROMPT "\<Simplificat"
|
||||
ON SELECTION BAR 3 OF _1790n9m5l DO BAR_3_OF__1790n9m5l_FB2P
|
||||
|
||||
DEFINE BAR 4 OF _1790n9m5l PROMPT "\<Condensat"
|
||||
ON SELECTION BAR 4 OF _1790n9m5l DO BAR_4_OF__1790n9m5l_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Listare PROMPT "\-"
|
||||
ON BAR 2 OF Listare ACTIVATE POPUP _11317zqz8
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _11317zqz8 SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Listare PROMPT "Balanta clienti"
|
||||
ON SELECTION BAR 3 OF Listare DO BAR_3_OF_Listare_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Listare PROMPT "\-"
|
||||
ON BAR 4 OF Listare ACTIVATE POPUP _1s20ixmih
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1s20ixmih SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Listare PROMPT "Situatie \<operativa"
|
||||
ON SELECTION BAR 5 OF Listare DO BAR_5_OF_Listare_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Listare PROMPT "\-"
|
||||
ON BAR 6 OF Listare ACTIVATE POPUP _1s20ixmii
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1s20ixmii SHORTCUT RELATIVE
|
||||
DEFINE BAR 7 OF Listare PROMPT "S\<ituatii facturi"
|
||||
ON BAR 7 OF Listare ACTIVATE POPUP Situatiifa
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Situatiifa SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Situatiifa PROMPT "Facturi \<vanzari"
|
||||
ON BAR 1 OF Situatiifa ACTIVATE POPUP Facturivan
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Facturivan SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Facturivan PROMPT "\<Toate facturile (pe clienti)"
|
||||
ON BAR 1 OF Facturivan ACTIVATE POPUP Toatefactu
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Toatefactu SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Toatefactu PROMPT "Cu sold in \<perioada..."
|
||||
ON SELECTION BAR 1 OF Toatefactu DO BAR_1_OF_Toatefactu_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Toatefactu PROMPT "Facturi \<emise in perioada..."
|
||||
ON SELECTION BAR 2 OF Toatefactu DO BAR_2_OF_Toatefactu_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Facturivan PROMPT "\-"
|
||||
ON BAR 2 OF Facturivan ACTIVATE POPUP _0ew0s3wd7
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0ew0s3wd7 SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Facturivan PROMPT "Facturi \<neincasate (pe clienti)"
|
||||
ON BAR 3 OF Facturivan ACTIVATE POPUP Facturinei
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Facturinei SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Facturinei PROMPT "\<Solduri pe facturi"
|
||||
ON SELECTION BAR 1 OF Facturinei DO BAR_1_OF_Facturinei_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Facturinei PROMPT "\<Solduri pe facturi(analitic)"
|
||||
ON SELECTION BAR 2 OF Facturinei DO BAR_2_OF_Facturinei_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Facturivan PROMPT "\<Facturi neincasate (in ordinea emiterii)"
|
||||
ON SELECTION BAR 4 OF Facturivan DO BAR_4_OF_Facturivan_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Facturivan PROMPT "\-"
|
||||
ON BAR 5 OF Facturivan ACTIVATE POPUP _0er0lwh96
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0er0lwh96 SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF Facturivan PROMPT "Situatia facturilor emise pe zile"
|
||||
ON SELECTION BAR 6 OF Facturivan DO BAR_6_OF_Facturivan_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Facturivan PROMPT "\-"
|
||||
ON BAR 7 OF Facturivan ACTIVATE POPUP _1s50xzj3h
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1s50xzj3h SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF Facturivan PROMPT "Facturi pe contracte"
|
||||
ON SELECTION BAR 8 OF Facturivan DO BAR_8_OF_Facturivan_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Situatiifa PROMPT "\-"
|
||||
ON BAR 2 OF Situatiifa ACTIVATE POPUP _07i0yojcv
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _07i0yojcv SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Situatiifa PROMPT "Facturi \<scadente"
|
||||
ON SELECTION BAR 3 OF Situatiifa DO BAR_3_OF_Situatiifa_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Situatiifa PROMPT "\-"
|
||||
ON BAR 4 OF Situatiifa ACTIVATE POPUP _0yy0n2atd
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0yy0n2atd SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Situatiifa PROMPT "Facturi furnizor-client"
|
||||
ON SELECTION BAR 5 OF Situatiifa DO BAR_5_OF_Situatiifa_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Situatiifa PROMPT "\-"
|
||||
ON BAR 6 OF Situatiifa ACTIVATE POPUP _1810vh8rw
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1810vh8rw SHORTCUT RELATIVE
|
||||
DEFINE BAR 7 OF Situatiifa PROMPT "\<Facturi incasate in luna curenta"
|
||||
ON BAR 7 OF Situatiifa ACTIVATE POPUP Facturiinc
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Facturiinc SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Facturiinc PROMPT "Grupate dupa luna \<emiterii"
|
||||
ON SELECTION BAR 1 OF Facturiinc DO BAR_1_OF_Facturiinc_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Facturiinc PROMPT "Grupate dupa data \<incasarii"
|
||||
ON SELECTION BAR 2 OF Facturiinc DO BAR_2_OF_Facturiinc_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Listare PROMPT "\<Situatie clienti pe vechimi"
|
||||
ON BAR 8 OF Listare ACTIVATE POPUP Situatiecl
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Situatiecl SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Situatiecl PROMPT "Fata de data scadenta"
|
||||
ON SELECTION BAR 1 OF Situatiecl Do sold_fact_pe_vechimi In orap_terti.prg with "C"
|
||||
|
||||
DEFINE BAR 2 OF Situatiecl PROMPT "Fata de data emitere"
|
||||
ON SELECTION BAR 2 OF Situatiecl Do sold_fact_pe_vechimi In orap_terti.prg with "C", .T.
|
||||
|
||||
DEFINE BAR 9 OF Listare PROMPT "Raport scadentar - 4111 + 4118"
|
||||
ON SELECTION BAR 9 OF Listare DO BAR_9_OF_Listare_FB2P
|
||||
|
||||
DEFINE BAR 10 OF Listare PROMPT "\-"
|
||||
ON BAR 10 OF Listare ACTIVATE POPUP _2hj10qvz3
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2hj10qvz3 SHORTCUT RELATIVE
|
||||
DEFINE BAR 11 OF Listare PROMPT "Inregistrari clienti \<cu sold final in luna"
|
||||
ON BAR 11 OF Listare ACTIVATE POPUP Inregistra
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Inregistra SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Inregistra PROMPT "In \<lei"
|
||||
ON SELECTION BAR 1 OF Inregistra DO BAR_1_OF_Inregistra_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Inregistra PROMPT "In lei si \<valuta"
|
||||
ON SELECTION BAR 2 OF Inregistra DO BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
DEFINE BAR 12 OF Listare PROMPT "\-"
|
||||
ON BAR 12 OF Listare ACTIVATE POPUP _3tp0zfz6g
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _3tp0zfz6g SHORTCUT RELATIVE
|
||||
DEFINE BAR 13 OF Listare PROMPT "Facturi clienti / furnizori (subantreprenori) cu sold pe lucrari"
|
||||
ON SELECTION BAR 13 OF Listare do executa_raport with 2,1000000 in orapoarte_dinamice.prg
|
||||
|
||||
DEFINE BAR 14 OF Listare PROMPT "\-"
|
||||
ON BAR 14 OF Listare ACTIVATE POPUP _4h10r64ed
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _4h10r64ed SHORTCUT RELATIVE
|
||||
DEFINE BAR 15 OF Listare PROMPT "\<Pondere clienti pe perioada"
|
||||
ON SELECTION BAR 15 OF Listare DO BAR_15_OF_Listare_FB2P
|
||||
ACTIVATE POPUP Listare
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF__1790n9m5l_FB2P
|
||||
DO listare_registru_vanzcump_2007 IN orap_terti WITH 'V'
|
||||
ENDPROC && BAR_1_OF__1790n9m5l_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Normalform_FB2P
|
||||
DO listare_registru_vanzcump IN orap_terti WITH [4111],[NORMAL],.f.
|
||||
ENDPROC && BAR_1_OF_Normalform_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Normalform_FB2P
|
||||
DO listare_registru_vanzcump IN orap_terti WITH [4111],[NORMAL],.t.
|
||||
ENDPROC && BAR_2_OF_Normalform_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__1790n9m5l_FB2P
|
||||
DO listare_registru_vanzcump IN orap_terti WITH [4111],[SIMPLIFICAT],.f.
|
||||
ENDPROC && BAR_3_OF__1790n9m5l_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF__1790n9m5l_FB2P
|
||||
DO listare_registru_vanzcump IN orap_terti WITH [4111],[CONDENSAT],.f.
|
||||
ENDPROC && BAR_4_OF__1790n9m5l_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Listare_FB2P
|
||||
DO PrepareRptBalantaFC WITH gcCont411,"Jurnal Clienti","balanta_parteneri_rpt3",.T. IN osituatii_operative.prg
|
||||
ENDPROC && BAR_3_OF_Listare_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Listare_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,
|
||||
*tc_NumeForma
|
||||
|
||||
** titlu lasat gol ca sa keme cereTitlu
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '4111',.T.,"",.T.,.F.,
|
||||
ENDPROC && BAR_5_OF_Listare_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Toatefactu_FB2P
|
||||
DO viz_frm_facturi IN orap_terti_comun WITH 1,gcCont411
|
||||
ENDPROC && BAR_1_OF_Toatefactu_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Toatefactu_FB2P
|
||||
DO viz_frm_facturi IN orap_terti_comun WITH 2,gcCont411
|
||||
ENDPROC && BAR_2_OF_Toatefactu_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Facturinei_FB2P
|
||||
DO list_facturi_neachitate IN orap_terti WITH gcCont411,.T.
|
||||
ENDPROC && BAR_1_OF_Facturinei_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Facturinei_FB2P
|
||||
DO list_facturi_neachitate IN orap_terti WITH gcCont411,.T.,.t.
|
||||
ENDPROC && BAR_2_OF_Facturinei_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Facturivan_FB2P
|
||||
DO list_facturi_neachitate IN orap_terti WITH gcCont411,.F.
|
||||
ENDPROC && BAR_4_OF_Facturivan_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Facturivan_FB2P
|
||||
DO rap_facturi_emise_pe_zile IN orap_terti.prg
|
||||
ENDPROC && BAR_6_OF_Facturivan_FB2P
|
||||
|
||||
PROCEDURE BAR_8_OF_Facturivan_FB2P
|
||||
DO rap_fact_grup_pe_lucari_parteneri WITH gcCont411, .t., 0 IN orap_terti.prg
|
||||
ENDPROC && BAR_8_OF_Facturivan_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Situatiifa_FB2P
|
||||
DO list_facturi_scadente IN orap_terti WITH [4111]
|
||||
ENDPROC && BAR_3_OF_Situatiifa_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Situatiifa_FB2P
|
||||
DO facturi_furnizor_client IN orap_terti
|
||||
ENDPROC && BAR_5_OF_Situatiifa_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Facturiinc_FB2P
|
||||
DO incasari_facturi_lunac IN orap_terti_comun WITH .t.
|
||||
ENDPROC && BAR_1_OF_Facturiinc_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Facturiinc_FB2P
|
||||
DO incasari_facturi_lunac IN orap_terti_comun WITH .f.
|
||||
ENDPROC && BAR_2_OF_Facturiinc_FB2P
|
||||
|
||||
PROCEDURE BAR_9_OF_Listare_FB2P
|
||||
Do proc_scadentar In orap_terti.prg with "C"
|
||||
ENDPROC && BAR_9_OF_Listare_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Inregistra_FB2P
|
||||
Do parteneri_cu_sold_final In orap_terti.prg with .F.,"4111"
|
||||
ENDPROC && BAR_1_OF_Inregistra_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Inregistra_FB2P
|
||||
Do parteneri_cu_sold_final In orap_terti.prg with .T.,"4111"
|
||||
ENDPROC && BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
PROCEDURE BAR_15_OF_Listare_FB2P
|
||||
do pondere_clienti in orap_terti.prg
|
||||
ENDPROC && BAR_15_OF_Listare_FB2P
|
||||
|
||||
*</Procedures>
|
||||
279
Meniuri/listfurn.mn2
Normal file
279
Meniuri/listfurn.mn2
Normal file
@@ -0,0 +1,279 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="listfurn.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Listare PROMPT "Registrul de \<Cumparari" ;
|
||||
MESSAGE 'Tiparirea registrelor'
|
||||
ON BAR 1 OF Listare ACTIVATE POPUP Registruld
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Registruld SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Registruld PROMPT "Format 200\<7"
|
||||
ON BAR 1 OF Registruld ACTIVATE POPUP Format2007
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Format2007 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Format2007 PROMPT "Achizitii de bunuri si prestari de sevicii taxabile din tara"
|
||||
ON SELECTION BAR 1 OF Format2007 DO BAR_1_OF_Format2007_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Format2007 PROMPT "Achizitii de bunuri si prestari de sevicii taxabile din import"
|
||||
ON SELECTION BAR 2 OF Format2007 DO BAR_2_OF_Format2007_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Format2007 PROMPT "Achizitii intracomunitare de bunuri"
|
||||
ON SELECTION BAR 3 OF Format2007 DO BAR_3_OF_Format2007_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Format2007 PROMPT "Taxare Inversa"
|
||||
ON SELECTION BAR 4 OF Format2007 DO BAR_4_OF_Format2007_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Registruld PROMPT "Format 200\<4"
|
||||
ON SELECTION BAR 2 OF Registruld DO BAR_2_OF_Registruld_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Registruld PROMPT "Cu \<Recapitulatie"
|
||||
ON SELECTION BAR 3 OF Registruld DO BAR_3_OF_Registruld_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Listare PROMPT "\-"
|
||||
ON BAR 2 OF Listare ACTIVATE POPUP _0qn0pzv21
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0qn0pzv21 SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Listare PROMPT "\<Balanta furnizori" ;
|
||||
MESSAGE 'Tiparirea fiselor analitice'
|
||||
ON SELECTION BAR 3 OF Listare DO BAR_3_OF_Listare_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Listare PROMPT "\-"
|
||||
ON BAR 4 OF Listare ACTIVATE POPUP NewItem
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Listare PROMPT "Situatii \<operative"
|
||||
ON BAR 5 OF Listare ACTIVATE POPUP Situatiiop
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Situatiiop SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Situatiiop PROMPT "Furnizori"
|
||||
ON SELECTION BAR 1 OF Situatiiop DO BAR_1_OF_Situatiiop_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Situatiiop PROMPT "Furnizori imobilizari"
|
||||
ON SELECTION BAR 2 OF Situatiiop DO BAR_2_OF_Situatiiop_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Listare PROMPT "\-"
|
||||
ON BAR 6 OF Listare ACTIVATE POPUP _11313x9rq
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _11313x9rq SHORTCUT RELATIVE
|
||||
DEFINE BAR 7 OF Listare PROMPT "S\<ituatii facturi"
|
||||
ON BAR 7 OF Listare ACTIVATE POPUP Situatiifa
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Situatiifa SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Situatiifa PROMPT "Facturi \<cumparari"
|
||||
ON BAR 1 OF Situatiifa ACTIVATE POPUP Facturicum
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Facturicum SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Facturicum PROMPT "\<Toate facturile (pe furnizori)"
|
||||
ON BAR 1 OF Facturicum ACTIVATE POPUP Toatefactu
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Toatefactu SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Toatefactu PROMPT "Cu sold in \<perioada..."
|
||||
ON SELECTION BAR 1 OF Toatefactu DO BAR_1_OF_Toatefactu_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Toatefactu PROMPT "\<Facturi emise in perioada..."
|
||||
ON SELECTION BAR 2 OF Toatefactu DO BAR_2_OF_Toatefactu_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Facturicum PROMPT "\-"
|
||||
ON BAR 2 OF Facturicum ACTIVATE POPUP _0ew0s86n3
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0ew0s86n3 SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Facturicum PROMPT "Facturi \<neachitate (pe furnizori)"
|
||||
ON BAR 3 OF Facturicum ACTIVATE POPUP Facturinea
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Facturinea SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Facturinea PROMPT "\<Solduri"
|
||||
ON SELECTION BAR 1 OF Facturinea DO BAR_1_OF_Facturinea_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Facturicum PROMPT "\<Facturi neachitate (in ordinea emiterii)"
|
||||
ON SELECTION BAR 4 OF Facturicum DO BAR_4_OF_Facturicum_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Facturicum PROMPT "\-"
|
||||
ON BAR 5 OF Facturicum ACTIVATE POPUP _1s51049tm
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1s51049tm SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF Facturicum PROMPT "Facturi pe contracte"
|
||||
ON SELECTION BAR 6 OF Facturicum DO BAR_6_OF_Facturicum_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Situatiifa PROMPT "Facturi \<scadente"
|
||||
ON SELECTION BAR 2 OF Situatiifa DO BAR_2_OF_Situatiifa_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Situatiifa PROMPT "\-"
|
||||
ON BAR 3 OF Situatiifa ACTIVATE POPUP _0yy0n2atd
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0yy0n2atd SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Situatiifa PROMPT "Facturi furnizor-client"
|
||||
ON SELECTION BAR 4 OF Situatiifa DO BAR_4_OF_Situatiifa_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Listare PROMPT "\Istoric facturi furnizori 401"
|
||||
ON SELECTION BAR 8 OF Listare do istoric_terti in orap_terti.prg with '401', 'P'
|
||||
|
||||
DEFINE BAR 9 OF Listare PROMPT "\<Situatie furnizori pe vechimi"
|
||||
ON BAR 9 OF Listare ACTIVATE POPUP Situatiefu
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Situatiefu SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Situatiefu PROMPT "Fata de data scadenta"
|
||||
ON SELECTION BAR 1 OF Situatiefu Do sold_fact_pe_vechimi In orap_terti.prg with "F", .F.
|
||||
|
||||
DEFINE BAR 2 OF Situatiefu PROMPT "Fata de data emitere"
|
||||
ON SELECTION BAR 2 OF Situatiefu Do sold_fact_pe_vechimi In orap_terti.prg with "F", .T.
|
||||
|
||||
DEFINE BAR 10 OF Listare PROMPT "Raport scadentar"
|
||||
ON BAR 10 OF Listare ACTIVATE POPUP Raportscad
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Raportscad SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Raportscad PROMPT "Furnizori 401"
|
||||
ON SELECTION BAR 1 OF Raportscad Do proc_scadentar In orap_terti.prg with "F",'401'
|
||||
|
||||
DEFINE BAR 2 OF Raportscad PROMPT "Furnizori 404"
|
||||
ON SELECTION BAR 2 OF Raportscad Do proc_scadentar In orap_terti.prg with "F",'404'
|
||||
|
||||
DEFINE BAR 11 OF Listare PROMPT "\-"
|
||||
ON BAR 11 OF Listare ACTIVATE POPUP _2hk0udsmt
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2hk0udsmt SHORTCUT RELATIVE
|
||||
DEFINE BAR 12 OF Listare PROMPT "Inregistrari furnizori \<cu sold final in luna"
|
||||
ON BAR 12 OF Listare ACTIVATE POPUP Inregistra
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Inregistra SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Inregistra PROMPT "In \<lei"
|
||||
ON BAR 1 OF Inregistra ACTIVATE POPUP Inlei
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Inlei SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Inlei PROMPT "Standard"
|
||||
ON SELECTION BAR 1 OF Inlei DO BAR_1_OF_Inlei_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Inlei PROMPT "Cu sold cumulat"
|
||||
ON SELECTION BAR 2 OF Inlei DO BAR_2_OF_Inlei_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Inregistra PROMPT "In lei si in \<valuta"
|
||||
ON SELECTION BAR 2 OF Inregistra DO BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
DEFINE BAR 13 OF Listare PROMPT "\-"
|
||||
ON BAR 13 OF Listare ACTIVATE POPUP _4h10r4hif
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _4h10r4hif SHORTCUT RELATIVE
|
||||
DEFINE BAR 14 OF Listare PROMPT "\<Pondere furnizori pe perioada"
|
||||
ON SELECTION BAR 14 OF Listare DO BAR_14_OF_Listare_FB2P
|
||||
ACTIVATE POPUP Listare
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Format2007_FB2P
|
||||
DO listare_registru_vanzcump_2007 IN orap_terti WITH 'C', 'RO'
|
||||
ENDPROC && BAR_1_OF_Format2007_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Format2007_FB2P
|
||||
DO listare_registru_vanzcump_2007 IN orap_terti WITH 'C', 'FO'
|
||||
ENDPROC && BAR_2_OF_Format2007_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Format2007_FB2P
|
||||
DO listare_registru_vanzcump_2007 IN orap_terti WITH 'C', 'CE'
|
||||
ENDPROC && BAR_3_OF_Format2007_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Format2007_FB2P
|
||||
DO listare_registru_vanzcump_2007 IN orap_terti WITH 'C', 'TI'
|
||||
ENDPROC && BAR_4_OF_Format2007_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Registruld_FB2P
|
||||
DO listare_registru_vanzcump IN orap_terti WITH [401],[NORMAL],.f.
|
||||
ENDPROC && BAR_2_OF_Registruld_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Registruld_FB2P
|
||||
DO listare_registru_vanzcump IN orap_terti WITH [401],[NORMAL],.t.
|
||||
ENDPROC && BAR_3_OF_Registruld_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Listare_FB2P
|
||||
DO PrepareRptBalantaFC WITH "401","Jurnal Furnizori","balanta_parteneri_rpt3",.F. IN osituatii_operative.prg
|
||||
ENDPROC && BAR_3_OF_Listare_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Situatiiop_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,
|
||||
**tc_NumeForma
|
||||
|
||||
|
||||
** titlu lasat gol ca sa keme cereTitlu
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '401',.F.,"",.T.,.F.,
|
||||
ENDPROC && BAR_1_OF_Situatiiop_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Situatiiop_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,
|
||||
*tc_NumeForma
|
||||
|
||||
** titlu lasat gol ca sa keme cereTitlu
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '404',.F.,"",.T.,.F.,
|
||||
ENDPROC && BAR_2_OF_Situatiiop_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Toatefactu_FB2P
|
||||
DO viz_frm_facturi IN orap_terti_comun WITH 1,[401]
|
||||
ENDPROC && BAR_1_OF_Toatefactu_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Toatefactu_FB2P
|
||||
DO viz_frm_facturi IN orap_terti_comun WITH 2,[401]
|
||||
ENDPROC && BAR_2_OF_Toatefactu_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Facturinea_FB2P
|
||||
DO list_facturi_neachitate IN orap_terti WITH [401],.T.
|
||||
|
||||
ENDPROC && BAR_1_OF_Facturinea_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Facturicum_FB2P
|
||||
DO list_facturi_neachitate IN orap_terti WITH [401],.F.
|
||||
ENDPROC && BAR_4_OF_Facturicum_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Facturicum_FB2P
|
||||
DO rap_fact_grup_pe_lucari_parteneri WITH [401], .f., 0 IN orap_terti.prg
|
||||
ENDPROC && BAR_6_OF_Facturicum_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Situatiifa_FB2P
|
||||
DO list_facturi_scadente IN orap_terti WITH [401]
|
||||
ENDPROC && BAR_2_OF_Situatiifa_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Situatiifa_FB2P
|
||||
DO facturi_furnizor_client IN orap_terti
|
||||
ENDPROC && BAR_4_OF_Situatiifa_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Inlei_FB2P
|
||||
Do parteneri_cu_sold_final In orap_terti.prg with .F.,"401",.F.
|
||||
ENDPROC && BAR_1_OF_Inlei_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Inlei_FB2P
|
||||
Do parteneri_cu_sold_final In orap_terti.prg with .F.,"401",.F.,.T.
|
||||
ENDPROC && BAR_2_OF_Inlei_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Inregistra_FB2P
|
||||
Do parteneri_cu_sold_final In orap_terti.prg with .T.,"401",.F.
|
||||
ENDPROC && BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
PROCEDURE BAR_14_OF_Listare_FB2P
|
||||
do pondere_furnizori in orap_terti.prg
|
||||
ENDPROC && BAR_14_OF_Listare_FB2P
|
||||
|
||||
*</Procedures>
|
||||
188
Meniuri/listgen.mn2
Normal file
188
Meniuri/listgen.mn2
Normal file
@@ -0,0 +1,188 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="listgen.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Listare PROMPT "\<Balanta" ;
|
||||
MESSAGE 'Tiparirea balantei'
|
||||
ON SELECTION BAR 1 OF Listare do viz_form_rapbal with "Balanta"
|
||||
|
||||
DEFINE BAR 2 OF Listare PROMPT "Balanta \<parteneri"
|
||||
ON BAR 2 OF Listare ACTIVATE POPUP Balantapar
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Balantapar SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Balantapar PROMPT "Raport xls (luni pe coloane)"
|
||||
ON SELECTION BAR 1 OF Balantapar Do raport_bal_parteneri in oparteneri.prg
|
||||
|
||||
DEFINE BAR 2 OF Balantapar PROMPT "Raport xls (luni pe linii)"
|
||||
ON SELECTION BAR 2 OF Balantapar Do alege_raport With 3, .F. In orapoarte_dinamice.prg
|
||||
|
||||
DEFINE BAR 3 OF Listare PROMPT "\-"
|
||||
ON BAR 3 OF Listare ACTIVATE POPUP _3tp0yl37p
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _3tp0yl37p SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Listare PROMPT "Rapoarte dinamice"
|
||||
ON SELECTION BAR 4 OF Listare Do alege_raport With 2, .T. In orapoarte_dinamice.prg
|
||||
|
||||
DEFINE BAR 5 OF Listare PROMPT "\-"
|
||||
ON BAR 5 OF Listare ACTIVATE POPUP _say0qhy8u
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _say0qhy8u SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF Listare PROMPT "\<Registrul jurnal" ;
|
||||
MESSAGE 'Tiparirea registrelor'
|
||||
ON SELECTION BAR 6 OF Listare DO viz_form_rapjurnal with "Registrul jurnal"
|
||||
|
||||
DEFINE BAR 7 OF Listare PROMPT "\-"
|
||||
ON BAR 7 OF Listare ACTIVATE POPUP _s7y0v26gq
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _s7y0v26gq SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF Listare PROMPT "\<Declaratii"
|
||||
ON BAR 8 OF Listare ACTIVATE POPUP Declaratii
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Declaratii SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Declaratii PROMPT "Declaratia 094"
|
||||
ON SELECTION BAR 1 OF Declaratii do viz_decl094 in oproceduri_decont.prg
|
||||
|
||||
DEFINE BAR 2 OF Declaratii PROMPT "\-"
|
||||
ON BAR 2 OF Declaratii ACTIVATE POPUP _68o0pehf9
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _68o0pehf9 SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Declaratii PROMPT "Declaratia 097 Notificare aplicare TVA la incasare"
|
||||
ON SELECTION BAR 3 OF Declaratii do viz_decl097 in oproceduri_decont.prg
|
||||
|
||||
DEFINE BAR 4 OF Declaratii PROMPT "\-"
|
||||
ON BAR 4 OF Declaratii ACTIVATE POPUP _3mf0pcv1z
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _3mf0pcv1z SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Declaratii PROMPT "Declaratia 100 lunar"
|
||||
ON SELECTION BAR 5 OF Declaratii DO BAR_5_OF_Declaratii_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Declaratii PROMPT "Declaratia 100 trimestrial"
|
||||
ON SELECTION BAR 6 OF Declaratii DO BAR_6_OF_Declaratii_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Declaratii PROMPT "\-"
|
||||
ON BAR 7 OF Declaratii ACTIVATE POPUP _43n0uzq2y
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _43n0uzq2y SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF Declaratii PROMPT "Declaratia 102 lunar"
|
||||
ON SELECTION BAR 8 OF Declaratii DO viz_decl100_102 with 102 IN oproceduri_decont.prg
|
||||
|
||||
DEFINE BAR 9 OF Declaratii PROMPT "Declaratia 102 trimestrial"
|
||||
ON SELECTION BAR 9 OF Declaratii DO viz_decl100_102 with 102,.T. IN oproceduri_decont.prg
|
||||
|
||||
DEFINE BAR 10 OF Declaratii PROMPT "\-"
|
||||
ON BAR 10 OF Declaratii ACTIVATE POPUP _35h0sf9ek
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _35h0sf9ek SHORTCUT RELATIVE
|
||||
DEFINE BAR 11 OF Declaratii PROMPT "Declaratia 101 - Impozit pe profit"
|
||||
ON SELECTION BAR 11 OF Declaratii DO viz_decl101 in oproceduri_decont.prg
|
||||
|
||||
DEFINE BAR 12 OF Declaratii PROMPT "\-"
|
||||
ON BAR 12 OF Declaratii ACTIVATE POPUP _35h0sf9el
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _35h0sf9el SHORTCUT RELATIVE
|
||||
DEFINE BAR 13 OF Declaratii PROMPT "Declaratia 205 Impozit dividende"
|
||||
ON SELECTION BAR 13 OF Declaratii DO viz_decl205 in oproceduri_decont.prg
|
||||
|
||||
DEFINE BAR 14 OF Declaratii PROMPT "\-"
|
||||
ON BAR 14 OF Declaratii ACTIVATE POPUP _6jj0o8j7k
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _6jj0o8j7k SHORTCUT RELATIVE
|
||||
DEFINE BAR 15 OF Declaratii PROMPT "Declaratia 300 Decont TVA"
|
||||
ON SELECTION BAR 15 OF Declaratii DO viz_decontTVA IN oproceduri_decont.prg
|
||||
|
||||
DEFINE BAR 16 OF Declaratii PROMPT "\-"
|
||||
ON BAR 16 OF Declaratii ACTIVATE POPUP _35h0sf9em
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _35h0sf9em SHORTCUT RELATIVE
|
||||
DEFINE BAR 17 OF Declaratii PROMPT "Declaratia 390 Achizitii/Livrari intracomunitare"
|
||||
ON SELECTION BAR 17 OF Declaratii DO viz_decl390 in oproceduri_decont.prg
|
||||
|
||||
DEFINE BAR 18 OF Declaratii PROMPT "\-"
|
||||
ON BAR 18 OF Declaratii ACTIVATE POPUP _3zr0t5rm0
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _3zr0t5rm0 SHORTCUT RELATIVE
|
||||
DEFINE BAR 19 OF Declaratii PROMPT "Declaratia 392" ;
|
||||
SKIP FOR gnLuna <> 12
|
||||
ON SELECTION BAR 19 OF Declaratii DO viz_decl392 in oproceduri_decont.prg
|
||||
|
||||
DEFINE BAR 20 OF Declaratii PROMPT "\-"
|
||||
ON BAR 20 OF Declaratii ACTIVATE POPUP _3bi0q7h2b
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _3bi0q7h2b SHORTCUT RELATIVE
|
||||
DEFINE BAR 21 OF Declaratii PROMPT "Declaratia 394 Achizitii/Livrari intern"
|
||||
ON SELECTION BAR 21 OF Declaratii DO viz_decl394 in oproceduri_decont.prg
|
||||
|
||||
DEFINE BAR 22 OF Declaratii PROMPT "\-"
|
||||
ON BAR 22 OF Declaratii ACTIVATE POPUP _66m0xszxw
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _66m0xszxw SHORTCUT RELATIVE
|
||||
DEFINE BAR 23 OF Declaratii PROMPT "D406" ;
|
||||
SKIP FOR !(TYPE('GND406')<>'U' AND m.GND406=1)
|
||||
ON SELECTION BAR 23 OF Declaratii do viz_saft_d406 in saft_d406.prg
|
||||
|
||||
DEFINE BAR 9 OF Listare PROMPT "\-"
|
||||
ON BAR 9 OF Listare ACTIVATE POPUP _53d0xiczb
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _53d0xiczb SHORTCUT RELATIVE
|
||||
DEFINE BAR 10 OF Listare PROMPT "\<TVA Defalcat"
|
||||
ON BAR 10 OF Listare ACTIVATE POPUP NewItem
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF NewItem PROMPT "Raport incasari banca lei TVA defalcat"
|
||||
ON SELECTION BAR 1 OF NewItem do TVADefalcatIncasariPlati with '5121' , "INCASARI" in orapoarte.prg
|
||||
|
||||
DEFINE BAR 2 OF NewItem PROMPT "\-"
|
||||
ON BAR 2 OF NewItem ACTIVATE POPUP _55i0mgind
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _55i0mgind SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF NewItem PROMPT "Raport incasari casa lei TVA defalcat"
|
||||
ON SELECTION BAR 3 OF NewItem do TVADefalcatIncasariPlati with '5311' , "INCASARI" in orapoarte.prg
|
||||
|
||||
DEFINE BAR 4 OF NewItem PROMPT "Raport plati casa lei TVA Defalcat"
|
||||
ON SELECTION BAR 4 OF NewItem do TVADefalcatIncasariPlati with '5311' , "PLATI" in orapoarte.prg
|
||||
ACTIVATE POPUP Listare
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_5_OF_Declaratii_FB2P
|
||||
IF gnAn>=2016
|
||||
DO viz_decl100 with 100 IN oproceduri_decont.prg
|
||||
ELSE
|
||||
DO viz_decl100_102 with 100 IN oproceduri_decont.prg
|
||||
ENDIF
|
||||
ENDPROC && BAR_5_OF_Declaratii_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Declaratii_FB2P
|
||||
IF gnAn >= 2016
|
||||
DO viz_decl100 with 100, .T. IN oproceduri_decont.prg
|
||||
ELSE
|
||||
DO viz_decl100_102 with 100,.T. IN oproceduri_decont.prg
|
||||
ENDIF
|
||||
ENDPROC && BAR_6_OF_Declaratii_FB2P
|
||||
|
||||
*</Procedures>
|
||||
200
Meniuri/listterti.mn2
Normal file
200
Meniuri/listterti.mn2
Normal file
@@ -0,0 +1,200 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="listterti.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Listare SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Listare PROMPT "\<Balanta analitica" ;
|
||||
MESSAGE 'Tiparirea fiselor analitice'
|
||||
ON BAR 1 OF Listare ACTIVATE POPUP Balantaana
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Balantaana SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Balantaana PROMPT "A\<ltii"
|
||||
ON SELECTION BAR 1 OF Balantaana DO BAR_1_OF_Balantaana_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Balantaana PROMPT "\-"
|
||||
ON BAR 2 OF Balantaana ACTIVATE POPUP _1dl0i71ek
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1dl0i71ek SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Balantaana PROMPT "C\<reditori"
|
||||
ON SELECTION BAR 3 OF Balantaana DO BAR_3_OF_Balantaana_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Balantaana PROMPT "\<Debitori"
|
||||
ON SELECTION BAR 4 OF Balantaana DO BAR_4_OF_Balantaana_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Balantaana PROMPT "\<Achizitori"
|
||||
ON SELECTION BAR 5 OF Balantaana DO BAR_5_OF_Balantaana_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Balantaana PROMPT "A\<ctionari"
|
||||
ON SELECTION BAR 6 OF Balantaana DO BAR_6_OF_Balantaana_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Listare PROMPT "Situatii \<operative"
|
||||
ON BAR 2 OF Listare ACTIVATE POPUP Situatiiop
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Situatiiop SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Situatiiop PROMPT "A\<ltii"
|
||||
ON SELECTION BAR 1 OF Situatiiop DO BAR_1_OF_Situatiiop_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Situatiiop PROMPT "\-"
|
||||
ON BAR 2 OF Situatiiop ACTIVATE POPUP _1dl0i76vl
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1dl0i76vl SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Situatiiop PROMPT "C\<reditori"
|
||||
ON SELECTION BAR 3 OF Situatiiop DO BAR_3_OF_Situatiiop_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Situatiiop PROMPT "\<Debitori"
|
||||
ON SELECTION BAR 4 OF Situatiiop DO BAR_4_OF_Situatiiop_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Situatiiop PROMPT "\<Achizitori"
|
||||
ON SELECTION BAR 5 OF Situatiiop DO BAR_5_OF_Situatiiop_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Situatiiop PROMPT "A\<ctionari"
|
||||
ON SELECTION BAR 6 OF Situatiiop DO BAR_6_OF_Situatiiop_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Listare PROMPT "\-"
|
||||
ON BAR 3 OF Listare ACTIVATE POPUP _1s60kszls
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1s60kszls SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Listare PROMPT "Situatii \<inregistrari"
|
||||
ON SELECTION BAR 4 OF Listare DO BAR_4_OF_Listare_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Listare PROMPT "Situatii \<facturi"
|
||||
ON SELECTION BAR 5 OF Listare DO BAR_5_OF_Listare_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Listare PROMPT "\-"
|
||||
ON BAR 6 OF Listare ACTIVATE POPUP _2hk0ugcft
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2hk0ugcft SHORTCUT RELATIVE
|
||||
DEFINE BAR 7 OF Listare PROMPT "Inregistrari parteneri cu \<sold final in luna"
|
||||
ON BAR 7 OF Listare ACTIVATE POPUP Inregistra
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Inregistra SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Inregistra PROMPT "In \<lei"
|
||||
ON SELECTION BAR 1 OF Inregistra DO BAR_1_OF_Inregistra_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Inregistra PROMPT "In lei si in \<valuta"
|
||||
ON SELECTION BAR 2 OF Inregistra DO BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Listare PROMPT "Situatii pe vechimi"
|
||||
ON BAR 8 OF Listare ACTIVATE POPUP Situatiipe
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Situatiipe SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Situatiipe PROMPT "Fata de data scadenta"
|
||||
ON SELECTION BAR 1 OF Situatiipe Do sold_fact_pe_vechimi In orap_terti.prg with "A", .F.
|
||||
|
||||
DEFINE BAR 2 OF Situatiipe PROMPT "Fata de data emitere"
|
||||
ON SELECTION BAR 2 OF Situatiipe Do sold_fact_pe_vechimi In orap_terti.prg with "A", .T.
|
||||
ACTIVATE POPUP Listare
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Balantaana_FB2P
|
||||
DO PrepareRptBalantaFC WITH "","Jurnal","balanta_parteneri_rpt3",.F. IN osituatii_operative.prg
|
||||
ENDPROC && BAR_1_OF_Balantaana_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Balantaana_FB2P
|
||||
*!* SELE creditor
|
||||
*!* * set filter to luat-dAT#0
|
||||
*!* TITLU = 'CREDITORI'
|
||||
*!* REPORT FORMAT creditor.FRX to printer prompt PREVIEW
|
||||
*!* *WINDOW WPRINT
|
||||
|
||||
DO PrepareRptBalantaFC WITH "462","Jurnal Creditori","balanta_parteneri_rpt3",.F. IN osituatii_operative.prg
|
||||
ENDPROC && BAR_3_OF_Balantaana_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Balantaana_FB2P
|
||||
*!* SELE DEBitor
|
||||
*!* REPORT FORMAT DEBitor.FRX to printer prompt PREVIEW
|
||||
|
||||
DO PrepareRptBalantaFC WITH "461","Jurnal Debitori","balanta_parteneri_rpt3",.T. IN osituatii_operative.prg
|
||||
ENDPROC && BAR_4_OF_Balantaana_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Balantaana_FB2P
|
||||
*!* *SELE ACHIT542
|
||||
*!* SELECT nume_2 as nume , totdeb , totcred FROM achit542 INTO CURSOR tachi
|
||||
*!* SELECT tachi
|
||||
*!* REPORT FORMAT ACHIZ.FRX TO PRINTER PROMPT NOCONSOLE preview
|
||||
*!* *WINDOW WPRINT
|
||||
*!* USE IN tachi
|
||||
|
||||
DO PrepareRptBalantaFC WITH "542","Jurnal Achizitori","balanta_parteneri_rpt3",.T. IN osituatii_operative.prg
|
||||
ENDPROC && BAR_5_OF_Balantaana_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Balantaana_FB2P
|
||||
*!* SELE actionar
|
||||
*!* TITLU = 'ACTIONARI'
|
||||
*!* REPORT FORMAT creditor.FRX to printer prompt PREVIEW
|
||||
|
||||
DO PrepareRptBalantaFC WITH "455","Jurnal Actionari","balanta_parteneri_rpt3",.F. IN osituatii_operative.prg
|
||||
ENDPROC && BAR_6_OF_Balantaana_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Situatiiop_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
** titlu lasat gol ca sa keme cereTitlu
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg
|
||||
ENDPROC && BAR_1_OF_Situatiiop_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Situatiiop_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
** titlu lasat gol ca sa keme cereTitlu
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '462',.F.,"",.T.,.F.,
|
||||
ENDPROC && BAR_3_OF_Situatiiop_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Situatiiop_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
** titlu lasat gol ca sa keme cereTitlu
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '461',.T.,"",.T.,.F.,
|
||||
ENDPROC && BAR_4_OF_Situatiiop_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Situatiiop_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
** titlu lasat gol ca sa keme cereTitlu
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '452',.T.,"",.T.,.F.,
|
||||
ENDPROC && BAR_5_OF_Situatiiop_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Situatiiop_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
** titlu lasat gol ca sa keme cereTitlu
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '455',.F.,"",.T.,.F.,
|
||||
ENDPROC && BAR_6_OF_Situatiiop_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Listare_FB2P
|
||||
DO rap_fact_grup_pe_lucari_parteneri WITH [], .F., 1 IN orap_terti.prg
|
||||
ENDPROC && BAR_4_OF_Listare_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Listare_FB2P
|
||||
DO viz_frm_facturi IN orap_terti_comun WITH 1
|
||||
ENDPROC && BAR_5_OF_Listare_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Inregistra_FB2P
|
||||
Do parteneri_cu_sold_final In orap_terti.prg with .F.
|
||||
ENDPROC && BAR_1_OF_Inregistra_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Inregistra_FB2P
|
||||
Do parteneri_cu_sold_final In orap_terti.prg with .T.
|
||||
ENDPROC && BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
*</Procedures>
|
||||
53
Meniuri/listtrez.mn2
Normal file
53
Meniuri/listtrez.mn2
Normal file
@@ -0,0 +1,53 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="listtrez.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 "\<Jurnal plati"
|
||||
ON BAR 1 OF Shortcut ACTIVATE POPUP Jurnalplat
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Jurnalplat SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Jurnalplat PROMPT "Pe \<parteneri"
|
||||
ON SELECTION BAR 1 OF Jurnalplat DO BAR_1_OF_Jurnalplat_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Jurnalplat PROMPT "Pe \<responsabili"
|
||||
ON SELECTION BAR 2 OF Jurnalplat DO BAR_2_OF_Jurnalplat_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "J\<urnal incasari"
|
||||
ON BAR 2 OF Shortcut ACTIVATE POPUP Jurnalinca
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Jurnalinca SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Jurnalinca PROMPT "Pe \<parteneri"
|
||||
ON SELECTION BAR 1 OF Jurnalinca DO BAR_1_OF_Jurnalinca_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Jurnalinca PROMPT "Pe \<responsabili"
|
||||
ON SELECTION BAR 2 OF Jurnalinca DO BAR_2_OF_Jurnalinca_FB2P
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Jurnalplat_FB2P
|
||||
DO jurnal_plati_incasari IN orap_trezorerie WITH .f.,.t.
|
||||
ENDPROC && BAR_1_OF_Jurnalplat_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Jurnalplat_FB2P
|
||||
DO jurnal_plati_incasari IN orap_trezorerie WITH .t.,.t.
|
||||
ENDPROC && BAR_2_OF_Jurnalplat_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Jurnalinca_FB2P
|
||||
DO jurnal_plati_incasari IN orap_trezorerie WITH .f.,.f.
|
||||
ENDPROC && BAR_1_OF_Jurnalinca_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Jurnalinca_FB2P
|
||||
DO jurnal_plati_incasari IN orap_trezorerie WITH .t.,.f.
|
||||
ENDPROC && BAR_2_OF_Jurnalinca_FB2P
|
||||
|
||||
*</Procedures>
|
||||
123
Meniuri/notei.mn2
Normal file
123
Meniuri/notei.mn2
Normal file
@@ -0,0 +1,123 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="notei.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Inchidere SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Inchidere PROMPT "\<Nota de salarii" ;
|
||||
SKIP FOR !ISNULL(gnIdSucursala) && Nota de salarii nu se face pe sucursale.
|
||||
ON SELECTION BAR 1 OF Inchidere DO BAR_1_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Inchidere PROMPT "Diurne" ;
|
||||
SKIP FOR !ISNULL(gnIdSucursala) && Nota de diurne nu se face pe sucursale.
|
||||
ON SELECTION BAR 2 OF Inchidere DO BAR_2_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Inchidere PROMPT "Amortizare Imobilizari \<Corporale" ;
|
||||
SKIP FOR glEMama && Nota de imobilizari nu se face pe firma mama.
|
||||
ON SELECTION BAR 3 OF Inchidere DO inchidere_amortizari WITH 1 in oproceduri_inchidere.prg
|
||||
|
||||
DEFINE BAR 4 OF Inchidere PROMPT "Amortizare Imobilizari \<Necorporale" ;
|
||||
SKIP FOR glEMama && Nota de imobilizari nu se face pe firma mama.
|
||||
ON SELECTION BAR 4 OF Inchidere DO inchidere_amortizari WITH 2 in oproceduri_inchidere.prg
|
||||
|
||||
DEFINE BAR 5 OF Inchidere PROMPT "\<T.V.A." ;
|
||||
SKIP FOR !ISNULL(gnIdSucursala) && Nota de TVA nu se face pe sucursale.
|
||||
ON BAR 5 OF Inchidere ACTIVATE POPUP TVA
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP TVA SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF TVA PROMPT "\<Inchidere TVA (inclusiv TVA exigibil 90 zile < 01/2014)"
|
||||
ON SELECTION BAR 1 OF TVA do inchidere_tva with 1 in oproceduri_inchidere.prg
|
||||
|
||||
DEFINE BAR 2 OF TVA PROMPT "\<TVA exigibil 90 zile (< 01/2014)" ;
|
||||
SKIP FOR m.gnAn * 12 + m.gnluna > 2013*12+12 ;
|
||||
MESSAGE 'Note TVA colectat 4428 = 4427 devenit exigibil la 90 de zile dupa data emiterii'
|
||||
ON SELECTION BAR 2 OF TVA do inchidere_tva with 2 in oproceduri_inchidere.prg
|
||||
|
||||
DEFINE BAR 6 OF Inchidere PROMPT "\<Venituri" ;
|
||||
SKIP FOR glEMama && Nota de venituri nu se face pe firma mama.
|
||||
ON SELECTION BAR 6 OF Inchidere do inchidere_venituri_cheltuieli with 7 in oproceduri_inchidere.prg
|
||||
|
||||
DEFINE BAR 7 OF Inchidere PROMPT "\<Cheltuieli" ;
|
||||
SKIP FOR glEMama && Nota de cheltuieli nu se face pe firma mama.
|
||||
ON SELECTION BAR 7 OF Inchidere do inchidere_venituri_cheltuieli with 6 in oproceduri_inchidere.prg
|
||||
|
||||
DEFINE BAR 8 OF Inchidere PROMPT "Cheltuiala \<Profit"
|
||||
ON BAR 8 OF Inchidere ACTIVATE POPUP Cheltuiala
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Cheltuiala SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Cheltuiala PROMPT "Inchidere impozit pe venit"
|
||||
ON SELECTION BAR 1 OF Cheltuiala DO BAR_1_OF_Cheltuiala_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Cheltuiala PROMPT "\-"
|
||||
ON BAR 2 OF Cheltuiala ACTIVATE POPUP _14e0vvvq1
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _14e0vvvq1 SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Cheltuiala PROMPT "Inchidere impozit pe profit"
|
||||
ON SELECTION BAR 3 OF Cheltuiala DO BAR_3_OF_Cheltuiala_FB2P
|
||||
|
||||
DEFINE BAR 9 OF Inchidere PROMPT "\-"
|
||||
ON BAR 9 OF Inchidere ACTIVATE POPUP _23o0zal29
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _23o0zal29 SHORTCUT RELATIVE
|
||||
DEFINE BAR 10 OF Inchidere PROMPT "Inchidere sold 542 in 461" ;
|
||||
MESSAGE '461=542'
|
||||
ON SELECTION BAR 10 OF Inchidere do inchidere_sold_542 in oproceduri_inchidere.prg
|
||||
|
||||
DEFINE BAR 11 OF Inchidere PROMPT "Repunere sold 542 din 461" ;
|
||||
MESSAGE '542=461'
|
||||
ON SELECTION BAR 11 OF Inchidere do repunere_sold_542 in oproceduri_inchidere.prg
|
||||
|
||||
DEFINE BAR 12 OF Inchidere PROMPT "\-"
|
||||
ON BAR 12 OF Inchidere ACTIVATE POPUP _44s0vd5hg
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _44s0vd5hg SHORTCUT RELATIVE
|
||||
DEFINE BAR 13 OF Inchidere PROMPT "Popriri" ;
|
||||
MESSAGE "421 = xxxx"
|
||||
ON SELECTION BAR 13 OF Inchidere DO POPRIRI IN OPROCEDURI_INCHIDERE.PRG
|
||||
|
||||
DEFINE BAR 14 OF Inchidere PROMPT "Drepturi neridicate - Lichidare" ;
|
||||
MESSAGE "421 = 426"
|
||||
ON SELECTION BAR 14 OF Inchidere DO drepturi_nerid_sal IN OPROCEDURI_INCHIDERE.PRG
|
||||
|
||||
DEFINE BAR 15 OF Inchidere PROMPT "Achitare drepturi neridicate - Lichidare" ;
|
||||
MESSAGE "426 = 5311"
|
||||
ON SELECTION BAR 15 OF Inchidere DO Achitare_drepturi_neridicate_Lichidare IN OPROCEDURI_INCHIDERE.PRG
|
||||
|
||||
DEFINE BAR 16 OF Inchidere PROMPT "Drepturi neridicate - Avans" ;
|
||||
MESSAGE "421 = 426"
|
||||
ON SELECTION BAR 16 OF Inchidere DO drepturi_nerid_av IN OPROCEDURI_INCHIDERE.PRG
|
||||
|
||||
DEFINE BAR 17 OF Inchidere PROMPT "Achitare drepturi neridicate - Avans" ;
|
||||
MESSAGE "426 = 5311"
|
||||
ON SELECTION BAR 17 OF Inchidere DO Achitare_drepturi_neridicate_Avans IN OPROCEDURI_INCHIDERE.PRG
|
||||
ACTIVATE POPUP Inchidere
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Inchidere_FB2P
|
||||
do inchidere_salarii in ocont2003.prg
|
||||
ENDPROC && BAR_1_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Inchidere_FB2P
|
||||
do inchidere_DIURNE in ocont2003.prg
|
||||
ENDPROC && BAR_2_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Cheltuiala_FB2P
|
||||
DO cheltprofit2_ana IN ocont2003.prg
|
||||
ENDPROC && BAR_1_OF_Cheltuiala_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Cheltuiala_FB2P
|
||||
DO cheltprofit1_ana IN ocont2003.prg
|
||||
ENDPROC && BAR_3_OF_Cheltuiala_FB2P
|
||||
|
||||
*</Procedures>
|
||||
167
Meniuri/notei2.mn2
Normal file
167
Meniuri/notei2.mn2
Normal file
@@ -0,0 +1,167 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="notei2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>1</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE MENU _msysmenu BAR
|
||||
DEFINE PAD _000000001 OF _msysmenu PROMPT "In\<chidere" COLOR SCHEME 3 ;
|
||||
KEY ALT+C, "ALT+C" ;
|
||||
SKIP FOR luna_inchisa or luna_neplatita
|
||||
|
||||
ON PAD _000000001 OF _msysmenu ACTIVATE POPUP Inchidere
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Inchidere MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Inchidere PROMPT "\<Nota de salarii" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 1 OF Inchidere DO BAR_1_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Inchidere PROMPT "A\<mortizare imobilizari necorporale"
|
||||
ON SELECTION BAR 2 OF Inchidere DO BAR_2_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Inchidere PROMPT "\<Amortizare Mijloace Fixe" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 3 OF Inchidere DO BAR_3_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Inchidere PROMPT "\<T.V.A." ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 4 OF Inchidere DO BAR_4_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Inchidere PROMPT "\<Venituri" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 5 OF Inchidere DO BAR_5_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Inchidere PROMPT "\<Cheltuieli" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 6 OF Inchidere DO BAR_6_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Inchidere PROMPT "Cheltuiala \<Profit" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 7 OF Inchidere DO BAR_7_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Inchidere PROMPT "\<Marfa" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON SELECTION BAR 8 OF Inchidere DO BAR_8_OF_Inchidere_FB2P
|
||||
|
||||
DEFINE BAR 9 OF Inchidere PROMPT "\-"
|
||||
ON BAR 9 OF Inchidere ACTIVATE POPUP _08g0oc8ql
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _08g0oc8ql MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 10 OF Inchidere PROMPT "\<Penalitati" ;
|
||||
SKIP FOR m.nivel>1
|
||||
ON BAR 10 OF Inchidere ACTIVATE POPUP Penalitati
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Penalitati MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 1 OF Penalitati PROMPT "\<TVA"
|
||||
ON SELECTION BAR 1 OF Penalitati DO BAR_1_OF_Penalitati_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Penalitati PROMPT "\Impozit pe \<profit"
|
||||
ON BAR 2 OF Penalitati ACTIVATE POPUP Impozitpep
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Impozitpep MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
DEFINE BAR 3 OF Penalitati PROMPT "\Impozit \<salarii"
|
||||
ON BAR 3 OF Penalitati ACTIVATE POPUP Impozitsal
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Impozitsal MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Inchidere_FB2P
|
||||
do salarii19 in inchidere.prg
|
||||
ENDPROC && BAR_1_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Inchidere_FB2P
|
||||
|
||||
|
||||
SELE calendar
|
||||
LOCATE for nl=m.nl and an=m.an
|
||||
Skip -1
|
||||
IF !bof()
|
||||
nla=nl
|
||||
ana=an
|
||||
dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC
|
||||
ELSE
|
||||
dateA=dirgen+'\_alfa\an0000\date00\'
|
||||
ENDIF
|
||||
|
||||
USE &DATEA\BAL IN 0 ALIAS BALP
|
||||
|
||||
M.NRACT=8
|
||||
m.NUME='UZURA OB.DE INVENTAR'
|
||||
M.EXPLICATIA='LUNA '+M.NL
|
||||
M.SUMA=0
|
||||
M.FDOC='NOTA'
|
||||
|
||||
|
||||
SELE BALP
|
||||
SUM RULcred TO M.SUMA FOR CONT='2801'
|
||||
M.NUME_2='CHELT.CONSTITUIRE'
|
||||
DO ABC1 WITH '6811','2801'
|
||||
SELE BALP
|
||||
SUM RULcred TO M.SUMA FOR CONT='2803'
|
||||
M.NUME_2='CHELT.CERCET.DEZV.'
|
||||
DO ABC1 WITH '6811','2803'
|
||||
SELE BALP
|
||||
SUM RULcred TO M.SUMA FOR CONT='2805'
|
||||
M.NUME_2='BREVETE SI INVENTII'
|
||||
DO ABC1 WITH '6811','2805'
|
||||
SELE BALP
|
||||
SUM RULcred TO M.SUMA FOR CONT='2808'
|
||||
M.NUME_2='ALTE IMOB.NECORP.'
|
||||
DO ABC1 WITH '6811','2808'
|
||||
|
||||
USE IN BALP
|
||||
|
||||
|
||||
|
||||
DO STERGE
|
||||
ENDPROC && BAR_2_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Inchidere_FB2P
|
||||
do amortizari in inchidere.prg
|
||||
ENDPROC && BAR_3_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Inchidere_FB2P
|
||||
do tva in inchidere.prg
|
||||
ENDPROC && BAR_4_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Inchidere_FB2P
|
||||
do venituri in inchidere.prg
|
||||
ENDPROC && BAR_5_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Inchidere_FB2P
|
||||
do cheltuieli in inchidere.prg
|
||||
ENDPROC && BAR_6_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF_Inchidere_FB2P
|
||||
do cheltprofit in inchidere.prg
|
||||
ENDPROC && BAR_7_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_8_OF_Inchidere_FB2P
|
||||
do marfa in inchidere.prg
|
||||
ENDPROC && BAR_8_OF_Inchidere_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Penalitati_FB2P
|
||||
DO PENTVA IN PENALITATI.PRG
|
||||
|
||||
IF !USED('PENTVA')
|
||||
sele 0
|
||||
use &dirfirm\tempo\pentva alias pentva
|
||||
ENDIF
|
||||
|
||||
o=crea('penalitati')
|
||||
o.show(1)
|
||||
|
||||
sele pentva
|
||||
use
|
||||
ENDPROC && BAR_1_OF_Penalitati_FB2P
|
||||
|
||||
*</Procedures>
|
||||
87
Meniuri/trez.mn2
Normal file
87
Meniuri/trez.mn2
Normal file
@@ -0,0 +1,87 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="trez.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Trezorerie SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Trezorerie PROMPT "Acreditive in lei"
|
||||
ON BAR 1 OF Trezorerie ACTIVATE POPUP _2j50up1gp
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2j50up1gp SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _2j50up1gp PROMPT "Constituire" ;
|
||||
MESSAGE '5411 :581 ; 581:5121'
|
||||
ON SELECTION BAR 1 OF _2j50up1gp DO BAR_1_OF__2j50up1gp_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _2j50up1gp PROMPT "Plata furnizori 401" ;
|
||||
MESSAGE ' 401: 5411'
|
||||
ON SELECTION BAR 2 OF _2j50up1gp DO BAR_2_OF__2j50up1gp_FB2P
|
||||
|
||||
DEFINE BAR 3 OF _2j50up1gp PROMPT "Plata furnizori 404" ;
|
||||
MESSAGE ' 404: 5411'
|
||||
ON SELECTION BAR 3 OF _2j50up1gp DO BAR_3_OF__2j50up1gp_FB2P
|
||||
|
||||
DEFINE BAR "89" OF Trezorerie PROMPT "Acreditive in valuta"
|
||||
ON BAR 89 OF Trezorerie ACTIVATE POPUP Acreditive
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Acreditive SHORTCUT RELATIVE
|
||||
DEFINE BAR "89010" OF Acreditive PROMPT "Constituire" ;
|
||||
MESSAGE '5412:581 ; 581:5124'
|
||||
ON SELECTION BAR 89010 OF Acreditive DO BAR_"89010"_OF_Acreditive_FB2P
|
||||
|
||||
DEFINE BAR "89020" OF Acreditive PROMPT "Plata furnizori 401" ;
|
||||
MESSAGE ' 401: 5412'
|
||||
ON SELECTION BAR 89020 OF Acreditive DO BAR_"89020"_OF_Acreditive_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Acreditive PROMPT "Plata furnizori 404" ;
|
||||
MESSAGE ' 404: 5412'
|
||||
ON SELECTION BAR 3 OF Acreditive DO BAR_3_OF_Acreditive_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Trezorerie PROMPT "\-"
|
||||
ON BAR 3 OF Trezorerie ACTIVATE POPUP _40o0pi3ci
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _40o0pi3ci SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Trezorerie PROMPT "Stornare plata/incasare"
|
||||
ON SELECTION BAR 4 OF Trezorerie DO BAR_4_OF_Trezorerie_FB2P
|
||||
ACTIVATE POPUP Trezorerie
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF__2j50up1gp_FB2P
|
||||
lans(10592)
|
||||
ENDPROC && BAR_1_OF__2j50up1gp_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__2j50up1gp_FB2P
|
||||
lans(10593)
|
||||
ENDPROC && BAR_2_OF__2j50up1gp_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF__2j50up1gp_FB2P
|
||||
lans(10594)
|
||||
ENDPROC && BAR_3_OF__2j50up1gp_FB2P
|
||||
|
||||
PROCEDURE BAR_"89010"_OF_Acreditive_FB2P
|
||||
*DO MENIU89010
|
||||
lans(10448)
|
||||
ENDPROC && BAR_"89010"_OF_Acreditive_FB2P
|
||||
|
||||
PROCEDURE BAR_"89020"_OF_Acreditive_FB2P
|
||||
*DO MENIU89020
|
||||
lans(10449)
|
||||
ENDPROC && BAR_"89020"_OF_Acreditive_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Acreditive_FB2P
|
||||
lans(10591)
|
||||
ENDPROC && BAR_3_OF_Acreditive_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Trezorerie_FB2P
|
||||
DO stornare_plinc IN ocont2003.prg
|
||||
ENDPROC && BAR_4_OF_Trezorerie_FB2P
|
||||
|
||||
*</Procedures>
|
||||
155
Meniuri/trez1.mn2
Normal file
155
Meniuri/trez1.mn2
Normal file
@@ -0,0 +1,155 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="trez1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Trezorerie SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Trezorerie PROMPT "Ridicat avans din casa" ;
|
||||
MESSAGE '542:5311'
|
||||
ON SELECTION BAR 1 OF Trezorerie DO BAR_1_OF_Trezorerie_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Trezorerie PROMPT "Restituire avans in casa" ;
|
||||
MESSAGE '5311:542'
|
||||
ON SELECTION BAR 2 OF Trezorerie DO BAR_2_OF_Trezorerie_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Trezorerie PROMPT "\-"
|
||||
ON BAR 3 OF Trezorerie ACTIVATE POPUP _2070xlhpe
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2070xlhpe SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Trezorerie PROMPT "Ridicat avans din banca" ;
|
||||
MESSAGE '542:5121'
|
||||
ON SELECTION BAR 4 OF Trezorerie lans(10567)
|
||||
|
||||
DEFINE BAR 5 OF Trezorerie PROMPT "Restituire avans in banca" ;
|
||||
MESSAGE '5121:542'
|
||||
ON SELECTION BAR 5 OF Trezorerie lans(10566)
|
||||
|
||||
DEFINE BAR 6 OF Trezorerie PROMPT "\-"
|
||||
ON BAR 6 OF Trezorerie ACTIVATE POPUP _15s0jven8
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _15s0jven8 SHORTCUT RELATIVE
|
||||
DEFINE BAR "89" OF Trezorerie PROMPT "Plati"
|
||||
ON BAR 89 OF Trezorerie ACTIVATE POPUP Plati
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Plati SHORTCUT RELATIVE
|
||||
DEFINE BAR "89020" OF Plati PROMPT "Plata furnizori 401" ;
|
||||
MESSAGE ' 401: 542'
|
||||
ON SELECTION BAR 89020 OF Plati DO BAR_"89020"_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Plati PROMPT "Plati multiple furnizori 401" ;
|
||||
MESSAGE '401 : 542'
|
||||
ON SELECTION BAR 2 OF Plati lans(10546)
|
||||
|
||||
DEFINE BAR 3 OF Plati PROMPT "Plata furnizori 404" ;
|
||||
MESSAGE ' 404: 542'
|
||||
ON SELECTION BAR 3 OF Plati DO BAR_3_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Plati PROMPT "\-"
|
||||
ON BAR 4 OF Plati ACTIVATE POPUP _1470mvbgt
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1470mvbgt SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Plati PROMPT "Plata deplasari" ;
|
||||
MESSAGE ' 625: 542'
|
||||
ON SELECTION BAR 5 OF Plati lans(10343)
|
||||
|
||||
DEFINE BAR 6 OF Plati PROMPT "Plati impozite"
|
||||
ON SELECTION BAR 6 OF Plati DO BAR_6_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Plati PROMPT "Alte impozite si taxe" ;
|
||||
MESSAGE '446 : 542'
|
||||
ON SELECTION BAR 7 OF Plati DO BAR_7_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Plati PROMPT "Plata amenzi, penalitati" ;
|
||||
MESSAGE '448X - 542'
|
||||
ON SELECTION BAR 8 OF Plati DO BAR_8_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 9 OF Plati PROMPT "\-"
|
||||
ON BAR 9 OF Plati ACTIVATE POPUP _18c0khqgc
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _18c0khqgc SHORTCUT RELATIVE
|
||||
DEFINE BAR 10 OF Plati PROMPT "Salarii"
|
||||
ON BAR 10 OF Plati ACTIVATE POPUP Salarii
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Salarii SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Salarii PROMPT "Plata salarii" ;
|
||||
MESSAGE '421 : 542'
|
||||
ON SELECTION BAR 1 OF Salarii lans(10514)
|
||||
|
||||
DEFINE BAR 2 OF Salarii PROMPT "Plata avansuri" ;
|
||||
MESSAGE '425 : 542'
|
||||
ON SELECTION BAR 2 OF Salarii lans(10515)
|
||||
|
||||
DEFINE BAR 3 OF Salarii PROMPT "Plata drepturi" ;
|
||||
MESSAGE '426 : 542'
|
||||
ON SELECTION BAR 3 OF Salarii lans(10516)
|
||||
ACTIVATE POPUP Trezorerie
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Trezorerie_FB2P
|
||||
lans(10340)
|
||||
ENDPROC && BAR_1_OF_Trezorerie_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Trezorerie_FB2P
|
||||
LANS(10332)
|
||||
ENDPROC && BAR_2_OF_Trezorerie_FB2P
|
||||
|
||||
PROCEDURE BAR_"89020"_OF_Plati_FB2P
|
||||
lans(10341)
|
||||
ENDPROC && BAR_"89020"_OF_Plati_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Plati_FB2P
|
||||
lans(10342)
|
||||
ENDPROC && BAR_3_OF_Plati_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_Plati_FB2P
|
||||
lans(10598)
|
||||
IF buton=2
|
||||
DO deschid_actc
|
||||
RETURN
|
||||
ENDIF
|
||||
DO plati_impozite WITH 10598 IN ocont2003.prg
|
||||
ENDPROC && BAR_6_OF_Plati_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF_Plati_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'446') &&,4461,4462,4463,4464,4465,4466,4467,4468,4469')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10540)
|
||||
ENDPROC && BAR_7_OF_Plati_FB2P
|
||||
|
||||
PROCEDURE BAR_8_OF_Plati_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'448') && ,4481,4482')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10545)
|
||||
ENDPROC && BAR_8_OF_Plati_FB2P
|
||||
|
||||
*</Procedures>
|
||||
227
Meniuri/trez2.mn2
Normal file
227
Meniuri/trez2.mn2
Normal file
@@ -0,0 +1,227 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="trez2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Trezorerie SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Trezorerie PROMPT "CEC incasari"
|
||||
ON BAR 1 OF Trezorerie ACTIVATE POPUP CECincasar
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP CECincasar SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF CECincasar PROMPT "Clienti 4111 CEC" ;
|
||||
MESSAGE '5112: 4111'
|
||||
ON SELECTION BAR 1 OF CECincasar DO BAR_1_OF_CECincasar_FB2P
|
||||
|
||||
DEFINE BAR 2 OF CECincasar PROMPT "Transfer CEC->Banca" ;
|
||||
MESSAGE '581 :5112;5121: 581'
|
||||
ON SELECTION BAR 2 OF CECincasar DO BAR_2_OF_CECincasar_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Trezorerie PROMPT "CEC plati"
|
||||
ON BAR 2 OF Trezorerie ACTIVATE POPUP CECplati
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP CECplati SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF CECplati PROMPT "Plata furnizori 401 CEC" ;
|
||||
MESSAGE '401 :5112'
|
||||
ON SELECTION BAR 1 OF CECplati DO BAR_1_OF_CECplati_FB2P
|
||||
|
||||
DEFINE BAR 2 OF CECplati PROMPT "Transfer Banca -> CEC" ;
|
||||
MESSAGE '581 :5121;5112: 581'
|
||||
ON SELECTION BAR 2 OF CECplati DO BAR_2_OF_CECplati_FB2P
|
||||
|
||||
DEFINE BAR 3 OF CECplati PROMPT "Avansuri furnizori" ;
|
||||
MESSAGE '409:5112'
|
||||
ON SELECTION BAR 3 OF CECplati DO BAR_3_OF_CECplati_FB2P
|
||||
|
||||
DEFINE BAR 4 OF CECplati PROMPT "Salarii" ;
|
||||
MESSAGE '421:5112'
|
||||
ON SELECTION BAR 4 OF CECplati DO BAR_4_OF_CECplati_FB2P
|
||||
|
||||
DEFINE BAR 5 OF CECplati PROMPT "Avans salarii" ;
|
||||
MESSAGE '425:5112'
|
||||
ON SELECTION BAR 5 OF CECplati DO BAR_5_OF_CECplati_FB2P
|
||||
|
||||
DEFINE BAR 6 OF CECplati PROMPT "Taxe diverse" ;
|
||||
MESSAGE '447:5112'
|
||||
ON SELECTION BAR 6 OF CECplati DO BAR_6_OF_CECplati_FB2P
|
||||
|
||||
DEFINE BAR 7 OF CECplati PROMPT "Impozit salariu" ;
|
||||
MESSAGE '444:5112'
|
||||
ON SELECTION BAR 7 OF CECplati DO BAR_7_OF_CECplati_FB2P
|
||||
|
||||
DEFINE BAR 8 OF CECplati PROMPT "Impozite la stat" ;
|
||||
MESSAGE '446:5112'
|
||||
ON SELECTION BAR 8 OF CECplati DO BAR_8_OF_CECplati_FB2P
|
||||
|
||||
DEFINE BAR 9 OF CECplati PROMPT "Creditori diversi" ;
|
||||
MESSAGE '462:5112'
|
||||
ON SELECTION BAR 9 OF CECplati DO BAR_9_OF_CECplati_FB2P
|
||||
|
||||
DEFINE BAR 10 OF CECplati PROMPT "Aprovizionare (avansuri cec)" ;
|
||||
MESSAGE '542:5112'
|
||||
ON SELECTION BAR 10 OF CECplati DO BAR_10_OF_CECplati_FB2P
|
||||
ACTIVATE POPUP Trezorerie
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_CECincasar_FB2P
|
||||
lans(10417)
|
||||
*!* m.scd='5112 '
|
||||
*!* m.scc='411 '
|
||||
*!* ***do BANCA.spr
|
||||
*!* do alfabetaper with;
|
||||
*!* 'CASAPER',;
|
||||
*!* "NUMELE CLIENTULUI","CLIENTI","NUME", ;
|
||||
*!* "","","", ;
|
||||
*!* "NUMELE CECULUI","CECNUME","CEC", ;
|
||||
*!* "",'v'
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* M.CEC=M.EXPLICATIA
|
||||
*!* DO INCEC
|
||||
*!* SELE CLIENTI
|
||||
*!* REPLACE CLIENTI.incasat WITH CLIENTI.incasat+m.suma
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_1_OF_CECincasar_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_CECincasar_FB2P
|
||||
lans(10418)
|
||||
*!* m.scd='581 '
|
||||
*!* m.scc='5112'
|
||||
*!* ***do BANCA.spr
|
||||
*!* do alfabeta with;
|
||||
*!* 'CASA',;
|
||||
*!* "","","", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* "NUMELE CECULUI","CECNUME","CEC", ;
|
||||
*!* ""
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* M.NUME=''
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH '581 ','5112',M.suma,CLASAACT
|
||||
*!* M.CEC=M.EXPLICATIA
|
||||
*!* DO PLCEC
|
||||
*!* DO CONTABILIZEAZA WITH '5121','581 ',M.suma,CLASAACT
|
||||
*!* do inBANCA
|
||||
|
||||
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_2_OF_CECincasar_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_CECplati_FB2P
|
||||
lans(10419)
|
||||
*!* m.scd='401 '
|
||||
*!* m.scc='5112'
|
||||
*!* *do BANCA.spr
|
||||
*!* do alfabetaper with;
|
||||
*!* 'casaPER',;
|
||||
*!* "NUMELE FURNIZORULUI","FURNIZOR","NUME", ;
|
||||
*!* "","","", ;
|
||||
*!* 'NUMELE CECULUI','CECNUME',"CEC", ;
|
||||
*!* "",'c'
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
|
||||
*!* M.CEC=M.EXPLICATIA
|
||||
*!* DO PLCEC
|
||||
|
||||
*!* sele furnizor
|
||||
*!* repl furnizor.platit with furnizor.platit+m.suma
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_1_OF_CECplati_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_CECplati_FB2P
|
||||
lans(10420)
|
||||
*!* m.scd='581 '
|
||||
*!* m.scc='5121'
|
||||
|
||||
*!* do alfabeta with;
|
||||
*!* 'casa',;
|
||||
*!* "","","", ;
|
||||
*!* "NUMELE BANCII","BANNUME","NUME_2", ;
|
||||
*!* 'NUMELE CECULUI','CECNUME',"CEC", ;
|
||||
*!* ""
|
||||
*!* *
|
||||
*!* IF BUTON=2
|
||||
*!* DO STERGE
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* DO CODARE
|
||||
*!* DO CONTABILIZEAZA WITH '581 ','5121',M.suma,CLASAACT
|
||||
*!* do plBANCA
|
||||
*!* DO CONTABILIZEAZA WITH '5112','581 ',M.suma,CLASAACT
|
||||
*!* M.CEC=M.EXPLICATIA
|
||||
*!* DO INCEC
|
||||
*!* do sterge
|
||||
*!* RETURN
|
||||
ENDPROC && BAR_2_OF_CECplati_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_CECplati_FB2P
|
||||
PRIVATE pcACN, CN
|
||||
loCont = ret_cont("Selectati contul",'409') && ,4091,4092')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
CN = locont.cont
|
||||
PcACN = loCont.Acont
|
||||
lans(10552)
|
||||
ENDPROC && BAR_3_OF_CECplati_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_CECplati_FB2P
|
||||
lans(10553)
|
||||
ENDPROC && BAR_4_OF_CECplati_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_CECplati_FB2P
|
||||
lans(10554)
|
||||
ENDPROC && BAR_5_OF_CECplati_FB2P
|
||||
|
||||
PROCEDURE BAR_6_OF_CECplati_FB2P
|
||||
lans(10555)
|
||||
ENDPROC && BAR_6_OF_CECplati_FB2P
|
||||
|
||||
PROCEDURE BAR_7_OF_CECplati_FB2P
|
||||
lans(10556)
|
||||
ENDPROC && BAR_7_OF_CECplati_FB2P
|
||||
|
||||
PROCEDURE BAR_8_OF_CECplati_FB2P
|
||||
lans(10557)
|
||||
ENDPROC && BAR_8_OF_CECplati_FB2P
|
||||
|
||||
PROCEDURE BAR_9_OF_CECplati_FB2P
|
||||
lans(10558)
|
||||
ENDPROC && BAR_9_OF_CECplati_FB2P
|
||||
|
||||
PROCEDURE BAR_10_OF_CECplati_FB2P
|
||||
lans(10559)
|
||||
ENDPROC && BAR_10_OF_CECplati_FB2P
|
||||
|
||||
*</Procedures>
|
||||
97
Meniuri/trez3.mn2
Normal file
97
Meniuri/trez3.mn2
Normal file
@@ -0,0 +1,97 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="trez3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Trezorerie SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Trezorerie PROMPT "Ridicat avans din casa" ;
|
||||
MESSAGE '542:5314'
|
||||
ON SELECTION BAR 1 OF Trezorerie DO BAR_1_OF_Trezorerie_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Trezorerie PROMPT "Restituire avans in casa" ;
|
||||
MESSAGE '5314:542'
|
||||
ON SELECTION BAR 2 OF Trezorerie DO BAR_2_OF_Trezorerie_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Trezorerie PROMPT "\-"
|
||||
ON BAR 3 OF Trezorerie ACTIVATE POPUP _15s0jven8
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _15s0jven8 SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Trezorerie PROMPT "Ridicat avans din banca" ;
|
||||
MESSAGE '542:5124'
|
||||
ON SELECTION BAR 4 OF Trezorerie lans(10569)
|
||||
|
||||
DEFINE BAR 5 OF Trezorerie PROMPT "Restituire avans in banca" ;
|
||||
MESSAGE '5124:542'
|
||||
ON SELECTION BAR 5 OF Trezorerie lans(10568)
|
||||
|
||||
DEFINE BAR 6 OF Trezorerie PROMPT "\-"
|
||||
ON BAR 6 OF Trezorerie ACTIVATE POPUP _2070yhzbr
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _2070yhzbr SHORTCUT RELATIVE
|
||||
DEFINE BAR "89" OF Trezorerie PROMPT "Plati"
|
||||
ON BAR 89 OF Trezorerie ACTIVATE POPUP Plati
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Plati SHORTCUT RELATIVE
|
||||
DEFINE BAR "89020" OF Plati PROMPT "Plata furnizori 401" ;
|
||||
MESSAGE ' 401: 542'
|
||||
ON SELECTION BAR 89020 OF Plati DO BAR_"89020"_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Plati PROMPT "Plata furnizori 404" ;
|
||||
MESSAGE ' 404: 542'
|
||||
ON SELECTION BAR 2 OF Plati DO BAR_2_OF_Plati_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Plati PROMPT "\-"
|
||||
ON BAR 3 OF Plati ACTIVATE POPUP _1470mvbgt
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _1470mvbgt SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Plati PROMPT "Plata deplasari" ;
|
||||
MESSAGE ' 625: 542'
|
||||
ON SELECTION BAR 4 OF Plati lans(10484)
|
||||
|
||||
DEFINE BAR 5 OF Plati PROMPT "Plata alte impozite si taxe"
|
||||
ON SELECTION BAR 5 OF Plati DO BAR_5_OF_Plati_FB2P
|
||||
ACTIVATE POPUP Trezorerie
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Trezorerie_FB2P
|
||||
lans(10432)
|
||||
ENDPROC && BAR_1_OF_Trezorerie_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Trezorerie_FB2P
|
||||
LANS(10430)
|
||||
ENDPROC && BAR_2_OF_Trezorerie_FB2P
|
||||
|
||||
PROCEDURE BAR_"89020"_OF_Plati_FB2P
|
||||
lans(10433)
|
||||
ENDPROC && BAR_"89020"_OF_Plati_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Plati_FB2P
|
||||
lans(10485)
|
||||
ENDPROC && BAR_2_OF_Plati_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Plati_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'446') &&,4461,4462,4463,4464,4465,4466,4467,4468,4469')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10544)
|
||||
ENDPROC && BAR_5_OF_Plati_FB2P
|
||||
|
||||
*</Procedures>
|
||||
269
Meniuri/venituri.mn2
Normal file
269
Meniuri/venituri.mn2
Normal file
@@ -0,0 +1,269 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="venituri.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Venituri SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Venituri PROMPT "Din vanzari si servicii catre clienti" ;
|
||||
MESSAGE '4111 :X ;4111 :4427'
|
||||
ON SELECTION BAR 1 OF Venituri DO BAR_1_OF_Venituri_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Venituri PROMPT "\-"
|
||||
ON BAR 2 OF Venituri ACTIVATE POPUP _09c1aknd0
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _09c1aknd0 SHORTCUT RELATIVE
|
||||
DEFINE BAR 3 OF Venituri PROMPT "Din redevente,locatii de gestiune si chirii" ;
|
||||
MESSAGE '461 :706 ;461 :4427'
|
||||
ON SELECTION BAR 3 OF Venituri DO BAR_3_OF_Venituri_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Venituri PROMPT "\-"
|
||||
ON BAR 4 OF Venituri ACTIVATE POPUP NewItem
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
||||
DEFINE BAR 5 OF Venituri PROMPT "Din productia de imobilizari"
|
||||
ON BAR 5 OF Venituri ACTIVATE POPUP Dinproduct
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Dinproduct SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Dinproduct PROMPT "Necorporale"
|
||||
ON BAR 1 OF Dinproduct ACTIVATE POPUP Necorporal
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Necorporal SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Necorporal PROMPT "Cercetere-dezvoltare 203" ;
|
||||
MESSAGE '203 :721 '
|
||||
ON SELECTION BAR 1 OF Necorporal DO BAR_1_OF_Necorporal_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Necorporal PROMPT "Concesiuni,brevete 205" ;
|
||||
MESSAGE '205 :721 '
|
||||
ON SELECTION BAR 2 OF Necorporal DO BAR_2_OF_Necorporal_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Necorporal PROMPT "Alte imobilizari 208" ;
|
||||
MESSAGE '208 :721 '
|
||||
ON SELECTION BAR 3 OF Necorporal DO BAR_3_OF_Necorporal_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Necorporal PROMPT "In curs 230" ;
|
||||
MESSAGE '230 :721 '
|
||||
ON SELECTION BAR 4 OF Necorporal DO BAR_4_OF_Necorporal_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Dinproduct PROMPT "Corporale"
|
||||
ON BAR 2 OF Dinproduct ACTIVATE POPUP Corporale
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Corporale SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Corporale PROMPT "Mijloace fixe obtinute din productie proprie" ;
|
||||
MESSAGE '212 :722 ;4426:4427'
|
||||
ON SELECTION BAR 1 OF Corporale DO BAR_1_OF_Corporale_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Corporale PROMPT "In curs de productie" ;
|
||||
MESSAGE '231 :722 '
|
||||
ON SELECTION BAR 2 OF Corporale DO BAR_2_OF_Corporale_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Venituri PROMPT "Din dobanzi"
|
||||
ON BAR 6 OF Venituri ACTIVATE POPUP Dindobanzi
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Dindobanzi SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Dindobanzi PROMPT "De la debitori diversi" ;
|
||||
MESSAGE '461 :766 '
|
||||
ON SELECTION BAR 1 OF Dindobanzi DO BAR_1_OF_Dindobanzi_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Dindobanzi PROMPT "De la banci" ;
|
||||
MESSAGE '5187:766 '
|
||||
ON SELECTION BAR 2 OF Dindobanzi DO BAR_2_OF_Dindobanzi_FB2P
|
||||
|
||||
DEFINE BAR 7 OF Venituri PROMPT "Imputatii"
|
||||
ON BAR 7 OF Venituri ACTIVATE POPUP Imputatii
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Imputatii SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Imputatii PROMPT "Salariati" ;
|
||||
MESSAGE '4282 :758X ;4282 :4427'
|
||||
ON SELECTION BAR 1 OF Imputatii DO BAR_1_OF_Imputatii_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Imputatii PROMPT "Debitori diversi" ;
|
||||
MESSAGE '461 :758 ;461 :4427'
|
||||
ON SELECTION BAR 2 OF Imputatii DO BAR_2_OF_Imputatii_FB2P
|
||||
|
||||
DEFINE BAR 8 OF Venituri PROMPT "\-"
|
||||
ON BAR 8 OF Venituri ACTIVATE POPUP _09c1akncz
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _09c1akncz SHORTCUT RELATIVE
|
||||
DEFINE BAR 9 OF Venituri PROMPT "\<Discount 767" ;
|
||||
MESSAGE '401 :767 ;4426:401 '
|
||||
ON SELECTION BAR 9 OF Venituri DO BAR_9_OF_Venituri_FB2P
|
||||
|
||||
DEFINE BAR 10 OF Venituri PROMPT "Reduceri comerciale primite 609" ;
|
||||
MESSAGE '401 :609 ;4426:401 '
|
||||
ON SELECTION BAR 10 OF Venituri lans(10606)
|
||||
|
||||
DEFINE BAR 11 OF Venituri PROMPT "\-"
|
||||
ON BAR 11 OF Venituri ACTIVATE POPUP _14d0z6nkt
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _14d0z6nkt SHORTCUT RELATIVE
|
||||
DEFINE BAR 12 OF Venituri PROMPT "Repunere venituri in avans (472)" ;
|
||||
MESSAGE '472-7xx'
|
||||
ON SELECTION BAR 12 OF Venituri DO BAR_12_OF_Venituri_FB2P
|
||||
|
||||
DEFINE BAR 13 OF Venituri PROMPT "Repunere venituri in avans (472) valuta"
|
||||
ON SELECTION BAR 13 OF Venituri DO BAR_13_OF_Venituri_FB2P
|
||||
|
||||
DEFINE BAR 14 OF Venituri PROMPT "Repunere venituri in avans (472) - toate cu rate"
|
||||
ON SELECTION BAR 14 OF Venituri do repunere_venchelt_avans with '472' in ocont2003.prg
|
||||
|
||||
DEFINE BAR 15 OF Venituri PROMPT "\-"
|
||||
ON BAR 15 OF Venituri ACTIVATE POPUP _5is0uvphe
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _5is0uvphe SHORTCUT RELATIVE
|
||||
DEFINE BAR 16 OF Venituri PROMPT "Repunere subventii (475X) - toate cu rate"
|
||||
ON SELECTION BAR 16 OF Venituri DO BAR_16_OF_Venituri_FB2P
|
||||
ACTIVATE POPUP Venituri
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Venituri_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'7')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10298)
|
||||
ENDPROC && BAR_1_OF_Venituri_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Venituri_FB2P
|
||||
lans(10275)
|
||||
ENDPROC && BAR_3_OF_Venituri_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Necorporal_FB2P
|
||||
lans(10277)
|
||||
ENDPROC && BAR_1_OF_Necorporal_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Necorporal_FB2P
|
||||
lans(10278)
|
||||
ENDPROC && BAR_2_OF_Necorporal_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Necorporal_FB2P
|
||||
lans(10279)
|
||||
ENDPROC && BAR_3_OF_Necorporal_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Necorporal_FB2P
|
||||
lans(10280)
|
||||
ENDPROC && BAR_4_OF_Necorporal_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Corporale_FB2P
|
||||
lans(10281)
|
||||
ENDPROC && BAR_1_OF_Corporale_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Corporale_FB2P
|
||||
lans(10282)
|
||||
ENDPROC && BAR_2_OF_Corporale_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Dindobanzi_FB2P
|
||||
|
||||
lans(10283)
|
||||
ENDPROC && BAR_1_OF_Dindobanzi_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Dindobanzi_FB2P
|
||||
lans(10284)
|
||||
ENDPROC && BAR_2_OF_Dindobanzi_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Imputatii_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'758') &&,7581,7582,7583,7584,7588')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10285)
|
||||
ENDPROC && BAR_1_OF_Imputatii_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Imputatii_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'758') && ,7581,7582,7583,7584,7588')
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10286)
|
||||
ENDPROC && BAR_2_OF_Imputatii_FB2P
|
||||
|
||||
PROCEDURE BAR_9_OF_Venituri_FB2P
|
||||
lans(10463)
|
||||
ENDPROC && BAR_9_OF_Venituri_FB2P
|
||||
|
||||
PROCEDURE BAR_12_OF_Venituri_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'7')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10472)
|
||||
ENDPROC && BAR_12_OF_Venituri_FB2P
|
||||
|
||||
PROCEDURE BAR_13_OF_Venituri_FB2P
|
||||
PRIVATE pcACN
|
||||
loCont=ret_cont("Selectati contul",'7')
|
||||
|
||||
IF TYPE('loCont') # 'O'
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF buton=2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
CN=locont.cont
|
||||
PcACN=loCont.Acont
|
||||
lans(10645)
|
||||
ENDPROC && BAR_13_OF_Venituri_FB2P
|
||||
|
||||
PROCEDURE BAR_16_OF_Venituri_FB2P
|
||||
LOCAL lcCont
|
||||
loCont=ret_cont("Selectati contul",'475')
|
||||
|
||||
IF TYPE('loCont') # 'O' OR buton = 2
|
||||
RELEASE loCont
|
||||
RETURN
|
||||
ENDIF
|
||||
lcCont = locont.cont
|
||||
|
||||
do repunere_venchelt_avans with m.lcCont in ocont2003.prg
|
||||
ENDPROC && BAR_16_OF_Venituri_FB2P
|
||||
|
||||
*</Procedures>
|
||||
63
Meniuri/vizcli1.mn2
Normal file
63
Meniuri/vizcli1.mn2
Normal file
@@ -0,0 +1,63 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="vizcli1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Clienti PROMPT "\<Clienti (4111)"
|
||||
ON SELECTION BAR 1 OF Clienti DO BAR_1_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Clienti PROMPT "Clienti cr\<editori (419)"
|
||||
ON SELECTION BAR 2 OF Clienti DO BAR_2_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Clienti PROMPT "Clienti + clienti creditori (4111 + 419)"
|
||||
ON SELECTION BAR 3 OF Clienti DO BAR_3_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Clienti PROMPT "Clienti \<incerti (4118)"
|
||||
ON SELECTION BAR 4 OF Clienti DO BAR_4_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Clienti PROMPT "Facturi \<neintocmite (418)"
|
||||
ON SELECTION BAR 5 OF Clienti DO BAR_5_OF_Clienti_FB2P
|
||||
|
||||
DEFINE BAR 6 OF Clienti PROMPT "\-"
|
||||
ON BAR 6 OF Clienti ACTIVATE POPUP _54c0y4a2x
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _54c0y4a2x SHORTCUT RELATIVE
|
||||
DEFINE BAR 7 OF Clienti PROMPT "\<Efecte comerciale (413)"
|
||||
ON SELECTION BAR 7 OF Clienti DO lans_balanta_parteneri WITH "413",.T. IN oparteneri.prg
|
||||
ACTIVATE POPUP Clienti
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Clienti_FB2P
|
||||
*osetviz.tbrprim.butoncli.click
|
||||
DO lans_balanta_parteneri WITH gcCont411, .T. IN oparteneri.prg
|
||||
ENDPROC && BAR_1_OF_Clienti_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Clienti_FB2P
|
||||
DO lans_balanta_parteneri WITH "419",.F. IN oparteneri.prg
|
||||
ENDPROC && BAR_2_OF_Clienti_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Clienti_FB2P
|
||||
DO lans_balanta_cumulata_4111_419 IN oparteneri.prg
|
||||
ENDPROC && BAR_3_OF_Clienti_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Clienti_FB2P
|
||||
*lctitlu = 'Situatie analitica clienti incerti'
|
||||
*DO lans_balante_analitice WITH 'A', 'client4118', lctitlu , '4118 ', 'productie', 'incasat', 'prodval', 'incasval', .f., ''
|
||||
DO lans_balanta_parteneri WITH "4118",.T. IN oparteneri.prg
|
||||
ENDPROC && BAR_4_OF_Clienti_FB2P
|
||||
|
||||
PROCEDURE BAR_5_OF_Clienti_FB2P
|
||||
*lctitlu = 'Situatie analitica facturi neintocmite'
|
||||
*DO lans_balante_analitice WITH 'A', 'ana418', lctitlu , '418 ', 'productie', 'incasat', 'prodval', 'incasval', .f., ''
|
||||
DO lans_balanta_parteneri WITH "418",.T. IN oparteneri.prg
|
||||
ENDPROC && BAR_5_OF_Clienti_FB2P
|
||||
|
||||
*</Procedures>
|
||||
178
Meniuri/vizcli2.mn2
Normal file
178
Meniuri/vizcli2.mn2
Normal file
@@ -0,0 +1,178 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="vizcli2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Clienti PROMPT "\<Facturi Vanzari (4111)" ;
|
||||
PICTURE "c:\program files\grafice\fact_c.bmp"
|
||||
ON BAR 1 OF Clienti ACTIVATE POPUP FacturiVan
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP FacturiVan SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF FacturiVan PROMPT "\<Cu test"
|
||||
ON SELECTION BAR 1 OF FacturiVan DO BAR_1_OF_FacturiVan_FB2P
|
||||
|
||||
DEFINE BAR 2 OF FacturiVan PROMPT "\<Fara test"
|
||||
ON SELECTION BAR 2 OF FacturiVan DO BAR_2_OF_FacturiVan_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Clienti PROMPT "Facturi Vanzari (4118)"
|
||||
ON BAR 2 OF Clienti ACTIVATE POPUP NewItem
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF NewItem PROMPT "Cu test"
|
||||
ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P
|
||||
|
||||
DEFINE BAR 2 OF NewItem PROMPT "Fara test"
|
||||
ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Clienti PROMPT "Facturi Neintocmite (418)"
|
||||
ON BAR 3 OF Clienti ACTIVATE POPUP FacturiNei
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP FacturiNei SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF FacturiNei PROMPT "\<Cu test"
|
||||
ON SELECTION BAR 1 OF FacturiNei DO BAR_1_OF_FacturiNei_FB2P
|
||||
|
||||
DEFINE BAR 2 OF FacturiNei PROMPT "\Fara test"
|
||||
ON SELECTION BAR 2 OF FacturiNei DO BAR_2_OF_FacturiNei_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Clienti PROMPT "\<Avansuri (419)"
|
||||
ON BAR 4 OF Clienti ACTIVATE POPUP Avansuri41
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Avansuri41 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Avansuri41 PROMPT "Cu test"
|
||||
ON SELECTION BAR 1 OF Avansuri41 DO BAR_1_OF_Avansuri41_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Avansuri41 PROMPT "Fara test"
|
||||
ON SELECTION BAR 2 OF Avansuri41 DO BAR_2_OF_Avansuri41_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Clienti PROMPT "\-"
|
||||
ON BAR 5 OF Clienti ACTIVATE POPUP _54c0y5yo9
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _54c0y5yo9 SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF Clienti PROMPT "\<Efecte comerciale (413)"
|
||||
ON BAR 6 OF Clienti ACTIVATE POPUP Efectecome
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Efectecome SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Efectecome PROMPT "\<Cu test"
|
||||
ON SELECTION BAR 1 OF Efectecome DO lans_ireg_parteneri WITH .T.,'413',.T.
|
||||
|
||||
DEFINE BAR 2 OF Efectecome PROMPT "\<Fara test"
|
||||
ON SELECTION BAR 2 OF Efectecome DO lans_ireg_parteneri WITH .F.,'413',.T.
|
||||
|
||||
DEFINE BAR 7 OF Clienti PROMPT "\-"
|
||||
ON BAR 7 OF Clienti ACTIVATE POPUP _0yk12e938
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0yk12e938 SHORTCUT RELATIVE
|
||||
DEFINE BAR 8 OF Clienti PROMPT "\<Situatie operativa clienti (4111)"
|
||||
ON BAR 8 OF Clienti ACTIVATE POPUP Situatieop
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Situatieop SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Situatieop PROMPT "In luna curenta"
|
||||
ON SELECTION BAR 1 OF Situatieop DO BAR_1_OF_Situatieop_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Situatieop PROMPT "Istoric"
|
||||
ON SELECTION BAR 2 OF Situatieop DO BAR_2_OF_Situatieop_FB2P
|
||||
ACTIVATE POPUP Clienti
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_FacturiVan_FB2P
|
||||
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*DO viz_facturi WITH 'clienti','vanzlun',411,.t.,.t.,'Situatie Lunara Facturi vanzari','productie','incasat'
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
DO lans_ireg_parteneri WITH .T.,gcCont411, .T.
|
||||
ENDPROC && BAR_1_OF_FacturiVan_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_FacturiVan_FB2P
|
||||
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*DO viz_facturi WITH 'clienti','vanzlun',411,.f.,.t.,'Situatie Lunara Facturi vanzari','productie','incasat'
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
DO lans_ireg_parteneri WITH .F., gcCont411, .T.
|
||||
|
||||
|
||||
ENDPROC && BAR_2_OF_FacturiVan_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_NewItem_FB2P
|
||||
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*DO viz_facturi WITH 'client4118','vanzlu4118',4118,.t.,.t.,'Situatie Lunara Facturi Vanzari 4118','productie','incasat'
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
DO lans_ireg_parteneri WITH .T.,'4118',.T.
|
||||
|
||||
ENDPROC && BAR_1_OF_NewItem_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_NewItem_FB2P
|
||||
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*DO viz_facturi WITH 'client4118','vanzlu4118',4118,.f.,.t.,'Situatie Lunara Facturi Vanzari 4118','productie','incasat'
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
DO lans_ireg_parteneri WITH .F.,'4118',.T.
|
||||
ENDPROC && BAR_2_OF_NewItem_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_FacturiNei_FB2P
|
||||
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*DO viz_facturi WITH 'ana418','fact418',418,.t.,.f.,'Situatie Lunara Facturi Neintocmite','productie','incasat'
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
*DO lans_ireg_parteneri WITH .F.,'411',.T.
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
DO lans_ireg_parteneri WITH .T.,'418',.T.
|
||||
|
||||
|
||||
|
||||
ENDPROC && BAR_1_OF_FacturiNei_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_FacturiNei_FB2P
|
||||
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
DO lans_ireg_parteneri WITH .T.,'418',.F.
|
||||
ENDPROC && BAR_2_OF_FacturiNei_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Avansuri41_FB2P
|
||||
DO lans_ireg_parteneri WITH .T.,'419',.F.
|
||||
ENDPROC && BAR_1_OF_Avansuri41_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Avansuri41_FB2P
|
||||
*!* If Used('avans')
|
||||
*!* Use In avans
|
||||
*!* Endif
|
||||
*!* Use &Date\avans419 In 0 Again Alias avans
|
||||
*!* Sele avans
|
||||
*!* oav=Crea('avans')
|
||||
*!* oav.label9.Caption='Avansuri clienti'
|
||||
*!* oav.Show(1)
|
||||
*!* Use In avans
|
||||
|
||||
DO lans_ireg_parteneri WITH .F.,'419',.F.
|
||||
ENDPROC && BAR_2_OF_Avansuri41_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Situatieop_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH gcCont411, .T.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna"
|
||||
ENDPROC && BAR_1_OF_Situatieop_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Situatieop_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH gcCont411,.T.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada"
|
||||
ENDPROC && BAR_2_OF_Situatieop_FB2P
|
||||
|
||||
*</Procedures>
|
||||
82
Meniuri/vizdividende.mn2
Normal file
82
Meniuri/vizdividende.mn2
Normal file
@@ -0,0 +1,82 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="vizdividende.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 "\<Balanta 457"
|
||||
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "\<Inregistrari dividende"
|
||||
ON BAR 2 OF Shortcut ACTIVATE POPUP Inregistra
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Inregistra SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Inregistra PROMPT "Cu test"
|
||||
ON SELECTION BAR 1 OF Inregistra DO BAR_1_OF_Inregistra_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Inregistra PROMPT "Fara test"
|
||||
ON SELECTION BAR 2 OF Inregistra DO BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Shortcut PROMPT "\-"
|
||||
ON BAR 3 OF Shortcut ACTIVATE POPUP _17d0n5jnr
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _17d0n5jnr SHORTCUT RELATIVE
|
||||
DEFINE BAR 4 OF Shortcut PROMPT "\Situatie operativa"
|
||||
ON BAR 4 OF Shortcut ACTIVATE POPUP _17d0mxwaz
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _17d0mxwaz SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _17d0mxwaz PROMPT "In luna curenta"
|
||||
ON SELECTION BAR 1 OF _17d0mxwaz DO BAR_1_OF__17d0mxwaz_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _17d0mxwaz PROMPT "Istoric"
|
||||
ON SELECTION BAR 2 OF _17d0mxwaz DO BAR_2_OF__17d0mxwaz_FB2P
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
||||
*lctitlu = 'Situatie analitica - dividende'
|
||||
*DO lans_balante_analitice WITH 'P', 'dividende', lctitlu , '457 ', 'debit', credit', 'valdebit', 'valcredit', .f., ''
|
||||
DO lans_balanta_parteneri WITH "457",.F. IN OPARTENERI.prg
|
||||
|
||||
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Inregistra_FB2P
|
||||
*!* *PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*!* pcTotctva='Divid. de plata'
|
||||
*!* pcAchitat='Divid. platite'
|
||||
*!* pcSumaTotal='Suma de plata'
|
||||
*!* pcSumaAchi='Suma platita'
|
||||
*!* DO viz_facturi WITH 'dividende','divlun',457,.t.,.t.,'Situatie Lunara Dividende','debit','credit'
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
DO lans_ireg_parteneri WITH .T.,'457',.F.
|
||||
ENDPROC && BAR_1_OF_Inregistra_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Inregistra_FB2P
|
||||
*!* *PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*!* pcTotctva='Divid.de plata'
|
||||
*!* pcAchitat='Divid.platite'
|
||||
*!* DO viz_facturi WITH 'dividende','divlun',457,.f.,.t.,'Situatie Lunara Dividende','debit','credit'
|
||||
|
||||
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
||||
DO lans_ireg_parteneri WITH .F.,'457',.F.
|
||||
ENDPROC && BAR_2_OF_Inregistra_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__17d0mxwaz_FB2P
|
||||
*DO situatie_operativa IN contabilitate_rapoarte WITH 'dividende', '457', 'Dividende' &&, 'Divid. platite', 'Divid.de plata'
|
||||
ENDPROC && BAR_1_OF__17d0mxwaz_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__17d0mxwaz_FB2P
|
||||
*DO istoric_sit_operativa IN contabilitate_rapoarte WITH 'dividende', '457', 'Dividende' &&, 'Divid. platite', 'Divid.de plata'
|
||||
ENDPROC && BAR_2_OF__17d0mxwaz_FB2P
|
||||
|
||||
*</Procedures>
|
||||
61
Meniuri/vizfurn1.mn2
Normal file
61
Meniuri/vizfurn1.mn2
Normal file
@@ -0,0 +1,61 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="vizfurn1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Furnizori PROMPT "\<Furnizori (401)"
|
||||
ON SELECTION BAR 1 OF Furnizori DO BAR_1_OF_Furnizori_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Furnizori PROMPT "Furnizori \<debitori (409)"
|
||||
ON SELECTION BAR 2 OF Furnizori DO BAR_2_OF_Furnizori_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Furnizori PROMPT "Furnizori + Furnizori debitori (401 + 409)"
|
||||
ON SELECTION BAR 3 OF Furnizori DO BAR_3_OF_Furnizori_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Furnizori PROMPT "Furnizori de \<imobilizari (404)"
|
||||
ON SELECTION BAR 4 OF Furnizori DO BAR_4_OF_Furnizori_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Furnizori PROMPT "Facturi \<nesosite (408)"
|
||||
ON SELECTION BAR 5 OF Furnizori DO lans_balanta_parteneri WITH "408",.F. IN oparteneri.prg
|
||||
|
||||
DEFINE BAR 6 OF Furnizori PROMPT "\-"
|
||||
ON BAR 6 OF Furnizori ACTIVATE POPUP _54c0y3z3z
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _54c0y3z3z SHORTCUT RELATIVE
|
||||
DEFINE BAR 7 OF Furnizori PROMPT "Efecte comerciale (403)"
|
||||
ON SELECTION BAR 7 OF Furnizori DO lans_balanta_parteneri WITH "403",.F. IN oparteneri.prg
|
||||
|
||||
DEFINE BAR 8 OF Furnizori PROMPT "Efecte comerciale imobilizari (405)"
|
||||
ON SELECTION BAR 8 OF Furnizori DO lans_balanta_parteneri WITH "405",.F. IN oparteneri.prg
|
||||
ACTIVATE POPUP Furnizori
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_Furnizori_FB2P
|
||||
*osetviz.tbrprim.butonfurn.click
|
||||
DO lans_balanta_parteneri WITH "401",.F. IN oparteneri.prg
|
||||
ENDPROC && BAR_1_OF_Furnizori_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Furnizori_FB2P
|
||||
DO lans_balanta_parteneri WITH "409,4091,4092,4093,4094",.T. IN oparteneri.prg
|
||||
ENDPROC && BAR_2_OF_Furnizori_FB2P
|
||||
|
||||
PROCEDURE BAR_3_OF_Furnizori_FB2P
|
||||
DO lans_balanta_cumulata_401_409 IN oparteneri.prg
|
||||
ENDPROC && BAR_3_OF_Furnizori_FB2P
|
||||
|
||||
PROCEDURE BAR_4_OF_Furnizori_FB2P
|
||||
*lctitlu = 'Situatie analitica furnizori imobilizari'
|
||||
*DO lans_balante_analitice WITH 'P', 'furniz404', lctitlu , '404 ', 'platit', 'achizit', 'platival', 'achizitval', .f., ''
|
||||
DO lans_balanta_parteneri WITH "404",.F. IN oparteneri.prg
|
||||
|
||||
ENDPROC && BAR_4_OF_Furnizori_FB2P
|
||||
|
||||
*</Procedures>
|
||||
197
Meniuri/vizfurn2.mn2
Normal file
197
Meniuri/vizfurn2.mn2
Normal file
@@ -0,0 +1,197 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="vizfurn2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*<MenuType>4</MenuType>
|
||||
*<MenuLocation>REPLACE</MenuLocation>
|
||||
|
||||
*<MenuCode>
|
||||
DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL()
|
||||
DEFINE BAR 1 OF Furnizori PROMPT "F\<acturi Cumparari (401)"
|
||||
ON BAR 1 OF Furnizori ACTIVATE POPUP FacturiCum
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP FacturiCum SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF FacturiCum PROMPT "Cu test"
|
||||
ON SELECTION BAR 1 OF FacturiCum DO BAR_1_OF_FacturiCum_FB2P
|
||||
|
||||
DEFINE BAR 2 OF FacturiCum PROMPT "Fara test"
|
||||
ON SELECTION BAR 2 OF FacturiCum DO BAR_2_OF_FacturiCum_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Furnizori PROMPT "Facturi Cumparari (404)"
|
||||
ON BAR 2 OF Furnizori ACTIVATE POPUP _0zm11awzq
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _0zm11awzq SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _0zm11awzq PROMPT "Cu test"
|
||||
ON SELECTION BAR 1 OF _0zm11awzq DO BAR_1_OF__0zm11awzq_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _0zm11awzq PROMPT "Fara test"
|
||||
ON SELECTION BAR 2 OF _0zm11awzq DO BAR_2_OF__0zm11awzq_FB2P
|
||||
|
||||
DEFINE BAR 3 OF Furnizori PROMPT "\<Facturi nesosite (408)"
|
||||
ON BAR 3 OF Furnizori ACTIVATE POPUP Facturines
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Facturines SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Facturines PROMPT "Cu test"
|
||||
ON SELECTION BAR 1 OF Facturines DO BAR_1_OF_Facturines_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Facturines PROMPT "Fara test"
|
||||
ON SELECTION BAR 2 OF Facturines DO BAR_2_OF_Facturines_FB2P
|
||||
|
||||
DEFINE BAR 4 OF Furnizori PROMPT "\<Avansuri (409)"
|
||||
ON BAR 4 OF Furnizori ACTIVATE POPUP Avansuri40
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Avansuri40 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Avansuri40 PROMPT "Cu test"
|
||||
ON SELECTION BAR 1 OF Avansuri40 DO BAR_1_OF_Avansuri40_FB2P
|
||||
|
||||
DEFINE BAR 2 OF Avansuri40 PROMPT "Fara test"
|
||||
ON SELECTION BAR 2 OF Avansuri40 DO BAR_2_OF_Avansuri40_FB2P
|
||||
|
||||
DEFINE BAR 5 OF Furnizori PROMPT "\-"
|
||||
ON BAR 5 OF Furnizori ACTIVATE POPUP _54c0y69xu
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _54c0y69xu SHORTCUT RELATIVE
|
||||
DEFINE BAR 6 OF Furnizori PROMPT "\<Efecte comerciale (403)"
|
||||
ON BAR 6 OF Furnizori ACTIVATE POPUP Efectecome
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP Efectecome SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF Efectecome PROMPT "Cu test"
|
||||
ON SELECTION BAR 1 OF Efectecome DO lans_ireg_parteneri WITH .T.,'403',.F.
|
||||
|
||||
DEFINE BAR 2 OF Efectecome PROMPT "Fara test"
|
||||
ON SELECTION BAR 2 OF Efectecome DO lans_ireg_parteneri WITH .F.,'403',.F.
|
||||
|
||||
DEFINE BAR 7 OF Furnizori PROMPT "\<Efecte comerciale imobilizari (405)"
|
||||
ON BAR 7 OF Furnizori ACTIVATE POPUP _54c0y12ul
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _54c0y12ul SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _54c0y12ul PROMPT "Cu test"
|
||||
ON SELECTION BAR 1 OF _54c0y12ul DO lans_ireg_parteneri WITH .T.,'405',.F.
|
||||
|
||||
DEFINE BAR 2 OF _54c0y12ul PROMPT "Fara test"
|
||||
ON SELECTION BAR 2 OF _54c0y12ul DO lans_ireg_parteneri WITH .F.,'405',.F.
|
||||
|
||||
DEFINE BAR 8 OF Furnizori PROMPT "\-"
|
||||
ON SELECTION BAR 8 OF Furnizori
|
||||
|
||||
DEFINE BAR 9 OF Furnizori PROMPT "Situatie operativa furnizori (401)"
|
||||
ON BAR 9 OF Furnizori ACTIVATE POPUP _11n15fvwe
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _11n15fvwe SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _11n15fvwe PROMPT "In luna curenta"
|
||||
ON SELECTION BAR 1 OF _11n15fvwe DO BAR_1_OF__11n15fvwe_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _11n15fvwe PROMPT "Istoric"
|
||||
ON SELECTION BAR 2 OF _11n15fvwe DO BAR_2_OF__11n15fvwe_FB2P
|
||||
|
||||
DEFINE BAR 10 OF Furnizori PROMPT "Situatie operativa furnizori de imobilizari (404)"
|
||||
ON BAR 10 OF Furnizori ACTIVATE POPUP _11n15fyq7
|
||||
|
||||
*----------------------------------
|
||||
DEFINE POPUP _11n15fyq7 SHORTCUT RELATIVE
|
||||
DEFINE BAR 1 OF _11n15fyq7 PROMPT "In luna curenta"
|
||||
ON SELECTION BAR 1 OF _11n15fyq7 DO BAR_1_OF__11n15fyq7_FB2P
|
||||
|
||||
DEFINE BAR 2 OF _11n15fyq7 PROMPT "Istoric"
|
||||
ON SELECTION BAR 2 OF _11n15fyq7 DO BAR_2_OF__11n15fyq7_FB2P
|
||||
ACTIVATE POPUP Furnizori
|
||||
|
||||
*</MenuCode>
|
||||
|
||||
*<Procedures>
|
||||
PROCEDURE BAR_1_OF_FacturiCum_FB2P
|
||||
*DO viz_facturi WITH 'furnizor','cumplun',401,.t.,.t.,'Situatie lunara facturi cumparari','platit','achizit'
|
||||
DO lans_ireg_parteneri WITH .T.,'401',.F.
|
||||
ENDPROC && BAR_1_OF_FacturiCum_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_FacturiCum_FB2P
|
||||
*DO viz_facturi WITH 'furnizor','cumplun',401,.f.,.t.,'Situatie lunara facturi cumparari','platit','achizit'
|
||||
DO lans_ireg_parteneri WITH .F.,'401',.F.
|
||||
|
||||
ENDPROC && BAR_2_OF_FacturiCum_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__0zm11awzq_FB2P
|
||||
*DO viz_facturi WITH 'furniz404','cumplun404',404,.t.,.t.,'Situatie lunara facturi cumparari-404','platit','achizit'
|
||||
DO lans_ireg_parteneri WITH .T.,'404',.F.
|
||||
|
||||
ENDPROC && BAR_1_OF__0zm11awzq_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__0zm11awzq_FB2P
|
||||
*DO viz_facturi WITH 'furniz404','cumplun404',404,.f.,.t.,'Situatie lunara facturi cumparari-404','platit','achizit'
|
||||
DO lans_ireg_parteneri WITH .F.,'404',.F.
|
||||
ENDPROC && BAR_2_OF__0zm11awzq_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Facturines_FB2P
|
||||
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*DO viz_facturi WITH 'ana408','fact408',408,.t.,.t.,'Situatie Lunara Facturi Nesosite','platit','achizit'
|
||||
DO lans_ireg_parteneri WITH .T.,'408',.F.
|
||||
|
||||
ENDPROC && BAR_1_OF_Facturines_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Facturines_FB2P
|
||||
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
||||
*DO viz_facturi WITH 'ana408','fact408',408,.f.,.t.,'Situatie Lunara Facturi Nesosite','platit','achizit'
|
||||
DO lans_ireg_parteneri WITH .F.,'408',.F.
|
||||
|
||||
ENDPROC && BAR_2_OF_Facturines_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF_Avansuri40_FB2P
|
||||
DO lans_ireg_parteneri WITH .T.,'409,4091,4092,4093,4094',.T.
|
||||
ENDPROC && BAR_1_OF_Avansuri40_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF_Avansuri40_FB2P
|
||||
*!* IF USED('avans')
|
||||
*!* USE IN avans
|
||||
*!* ENDIF
|
||||
|
||||
*!* use &date\avans409 in 0 again alias avans
|
||||
|
||||
*!* SELECT avans
|
||||
*!* oav=crea('avans')
|
||||
*!* oav.label9.caption='Avansuri furnizori'
|
||||
*!* oav.cmdlist2.visible=.f.
|
||||
*!* oav.show(1)
|
||||
|
||||
*!* use in avans
|
||||
|
||||
DO lans_ireg_parteneri WITH .F.,'409,4091,4092,4093,4094',.T.
|
||||
ENDPROC && BAR_2_OF_Avansuri40_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__11n15fvwe_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '401',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna"
|
||||
ENDPROC && BAR_1_OF__11n15fvwe_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__11n15fvwe_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '401',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada"
|
||||
|
||||
ENDPROC && BAR_2_OF__11n15fvwe_FB2P
|
||||
|
||||
PROCEDURE BAR_1_OF__11n15fyq7_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '404',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna"
|
||||
ENDPROC && BAR_1_OF__11n15fyq7_FB2P
|
||||
|
||||
PROCEDURE BAR_2_OF__11n15fyq7_FB2P
|
||||
**parametrii:
|
||||
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
||||
DO PrepareRptSitOp IN osituatii_operative.prg WITH '404',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada"
|
||||
ENDPROC && BAR_2_OF__11n15fyq7_FB2P
|
||||
|
||||
*</Procedures>
|
||||
18
Meniuri/vnavans.mn2
Normal file
18
Meniuri/vnavans.mn2
Normal file
@@ -0,0 +1,18 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="vnavans.mnx" CPID="1250" /> (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 "Balanta venituri in avans 472"
|
||||
ON SELECTION BAR 1 OF Shortcut DO lans_balanta_parteneri WITH "472",.F. IN OPARTENERI.prg
|
||||
|
||||
DEFINE BAR 2 OF Shortcut PROMPT "Inregistrari venituri in avans 472"
|
||||
ON SELECTION BAR 2 OF Shortcut DO lans_ireg_parteneri WITH .F.,'472',.F.
|
||||
ACTIVATE POPUP Shortcut
|
||||
|
||||
*</MenuCode>
|
||||
Reference in New Issue
Block a user