romfast/roacont
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
roacont/Meniuri/furnizori1.mn2

1174 lines
36 KiB
Plaintext
Raw Permalink Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori1.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 "Factura de achizitie generala"
ON SELECTION BAR 1 OF Furnizori DO BAR_1_OF_Furnizori_FB2P
DEFINE BAR 2 OF Furnizori PROMPT "Factura externa de achizitie"
ON SELECTION BAR 2 OF Furnizori DO BAR_2_OF_Furnizori_FB2P
DEFINE BAR 3 OF Furnizori PROMPT "\-"
ON BAR 3 OF Furnizori ACTIVATE POPUP _13y108f6b
*----------------------------------
DEFINE POPUP _13y108f6b SHORTCUT RELATIVE
DEFINE BAR "41" OF Furnizori PROMPT "Materii, materiale neplatite"
ON BAR 41 OF Furnizori ACTIVATE POPUP Materiimat
*----------------------------------
DEFINE POPUP Materiimat SHORTCUT RELATIVE
DEFINE BAR "41010" OF Materiimat PROMPT "Materii prime 301" ;
MESSAGE 'Note contabile: 301:401; 4426:401'
ON SELECTION BAR 41010 OF Materiimat DO BAR_"41010"_OF_Materiimat_FB2P
DEFINE BAR "41020" OF Materiimat PROMPT "Materiale auxiliare 3021" ;
MESSAGE 'Note contabile: 3021:401; 4426:401'
ON SELECTION BAR 41020 OF Materiimat DO BAR_"41020"_OF_Materiimat_FB2P
DEFINE BAR "41030" OF Materiimat PROMPT "Combustibil 3022" ;
MESSAGE 'Note contabile: 3022:401; 4426:401'
ON SELECTION BAR 41030 OF Materiimat DO BAR_"41030"_OF_Materiimat_FB2P
DEFINE BAR 4 OF Materiimat PROMPT "Combustibili (cu accize)" ;
MESSAGE 'Note contabile: 3022:401; 4426:401; 401-461'
ON SELECTION BAR 4 OF Materiimat DO BAR_4_OF_Materiimat_FB2P
DEFINE BAR "41040" OF Materiimat PROMPT "Materiale pentru ambalat 3023" ;
MESSAGE 'Note contabile: 3023:401; 4426:401'
ON SELECTION BAR 41040 OF Materiimat DO BAR_"41040"_OF_Materiimat_FB2P
DEFINE BAR "41050" OF Materiimat PROMPT "Piese de schimb 3024" ;
MESSAGE 'Note contabile: 3024:401; 4426:401'
ON SELECTION BAR 41050 OF Materiimat DO BAR_"41050"_OF_Materiimat_FB2P
DEFINE BAR 7 OF Materiimat PROMPT "Alte materiale 3028" ;
MESSAGE 'Note contabile: 3028:401; 4426:401'
ON SELECTION BAR 7 OF Materiimat DO BAR_7_OF_Materiimat_FB2P
DEFINE BAR "41060" OF Materiimat PROMPT "Obiecte de inventar 303" ;
MESSAGE 'Note contabile: 303:401; 4426:401'
ON SELECTION BAR 41060 OF Materiimat DO BAR_"41060"_OF_Materiimat_FB2P
DEFINE BAR "41080" OF Materiimat PROMPT "Ambalaje 381" ;
MESSAGE 'Note contabile: 381:401; 4426:401'
ON SELECTION BAR 41080 OF Materiimat DO BAR_"41080"_OF_Materiimat_FB2P
DEFINE BAR "41110" OF Materiimat PROMPT "\Mijloace fixe" ;
MESSAGE 'Note contabile: 212:404; 4426:404'
ON SELECTION BAR 41110 OF Materiimat DO BAR_"41110"_OF_Materiimat_FB2P
DEFINE BAR 11 OF Materiimat PROMPT "Marfa 371" ;
MESSAGE 'Note contabile: 371:401; 4426:401'
ON SELECTION BAR 11 OF Materiimat lans(10570)
DEFINE BAR 12 OF Materiimat PROMPT "\-"
ON BAR 12 OF Materiimat ACTIVATE POPUP _2vb108l5h
*----------------------------------
DEFINE POPUP _2vb108l5h SHORTCUT RELATIVE
DEFINE BAR 13 OF Materiimat PROMPT "In curs de aprovizionare"
ON BAR 13 OF Materiimat ACTIVATE POPUP Incursdeap
*----------------------------------
DEFINE POPUP Incursdeap SHORTCUT RELATIVE
DEFINE BAR 1 OF Incursdeap PROMPT "Materii prime <20>n curs de aprovizionare 321" ;
MESSAGE 'Note contabile: 321:401; 4426:401'
ON SELECTION BAR 1 OF Incursdeap lans_generic(10309,'321')
DEFINE BAR 2 OF Incursdeap PROMPT "Materii prime finalizare aprovizionare 321" ;
MESSAGE 'Note contabile: 301:321'
ON SELECTION BAR 2 OF Incursdeap lans_generic(10604,'301',,'321')
DEFINE BAR 3 OF Incursdeap PROMPT "\-"
ON BAR 3 OF Incursdeap ACTIVATE POPUP _2vb10q94c
*----------------------------------
DEFINE POPUP _2vb10q94c SHORTCUT RELATIVE
DEFINE BAR 4 OF Incursdeap PROMPT "Materiale consumabile in curs de aprovizionare 322" ;
MESSAGE 'Note contabile: 322:401; 4426:401'
ON SELECTION BAR 4 OF Incursdeap lans_generic(10309,'322')
DEFINE BAR 5 OF Incursdeap PROMPT "Materiale consumabile finalizare aprovizionare 322" ;
MESSAGE 'Note contabile: 302:322'
ON SELECTION BAR 5 OF Incursdeap DO BAR_5_OF_Incursdeap_FB2P
DEFINE BAR 6 OF Incursdeap PROMPT "\-"
ON BAR 6 OF Incursdeap ACTIVATE POPUP _2vb10q94d
*----------------------------------
DEFINE POPUP _2vb10q94d SHORTCUT RELATIVE
DEFINE BAR 7 OF Incursdeap PROMPT "Obiecte de inventar in curs de aprovizionare 323" ;
MESSAGE 'Note contabile: 323:401; 4426:401'
ON SELECTION BAR 7 OF Incursdeap lans_generic(10309,'323')
DEFINE BAR 8 OF Incursdeap PROMPT "Obiecte de inventar finalizare aprovizionare 323" ;
MESSAGE 'Note contabile: 303:323'
ON SELECTION BAR 8 OF Incursdeap lans_generic(10604,'303',,'323')
DEFINE BAR 9 OF Incursdeap PROMPT "\-"
ON BAR 9 OF Incursdeap ACTIVATE POPUP _2vb10q94e
*----------------------------------
DEFINE POPUP _2vb10q94e SHORTCUT RELATIVE
DEFINE BAR 10 OF Incursdeap PROMPT "Animale in curs de aprovizionare 326" ;
MESSAGE 'Note contabile: 326:401; 4426:401'
ON SELECTION BAR 10 OF Incursdeap lans_generic(10309,'326')
DEFINE BAR 11 OF Incursdeap PROMPT "Animale finalizare aprovizionare 326" ;
MESSAGE 'Note contabile: 361:326'
ON SELECTION BAR 11 OF Incursdeap lans_generic(10604,'361',,'326')
DEFINE BAR 12 OF Incursdeap PROMPT "\-"
ON BAR 12 OF Incursdeap ACTIVATE POPUP _2vb10q94f
*----------------------------------
DEFINE POPUP _2vb10q94f SHORTCUT RELATIVE
DEFINE BAR 13 OF Incursdeap PROMPT "Marfuri in curs de aprovizionare 371" ;
MESSAGE 'Note contabile: 327:401; 4426:401'
ON SELECTION BAR 13 OF Incursdeap lans_generic(10309,'327')
DEFINE BAR 14 OF Incursdeap PROMPT "Marfuri finalizare aprovizionare 327" ;
MESSAGE 'Note contabile: 371:327'
ON SELECTION BAR 14 OF Incursdeap lans_generic(10604,'371',,'327')
DEFINE BAR 15 OF Incursdeap PROMPT "\-"
ON BAR 15 OF Incursdeap ACTIVATE POPUP _2vb10q94g
*----------------------------------
DEFINE POPUP _2vb10q94g SHORTCUT RELATIVE
DEFINE BAR 16 OF Incursdeap PROMPT "Ambalaje in curs de aprovizionare 328" ;
MESSAGE 'Note contabile: 328:401; 4426:401'
ON SELECTION BAR 16 OF Incursdeap lans_generic(10309,'328')
DEFINE BAR 17 OF Incursdeap PROMPT "Ambalaje finalizare aprovizionare 328" ;
MESSAGE 'Note contabile: 381:328'
ON SELECTION BAR 17 OF Incursdeap lans_generic(10604,'381',,'328')
DEFINE BAR "42" OF Furnizori PROMPT "Materii, materale platite din casa"
ON BAR 42 OF Furnizori ACTIVATE POPUP _1370tt6bt
*----------------------------------
DEFINE POPUP _1370tt6bt SHORTCUT RELATIVE
DEFINE BAR "42010" OF _1370tt6bt PROMPT "Materii prime 301" ;
MESSAGE 'Note contabile: 301:401; 4426:401; 401:5311'
ON SELECTION BAR 42010 OF _1370tt6bt DO BAR_"42010"_OF__1370tt6bt_FB2P
DEFINE BAR "42020" OF _1370tt6bt PROMPT "Materiale auxiliare 3021" ;
MESSAGE 'Note contabile: 3021:401; 4426:401; 401:5311'
ON SELECTION BAR 42020 OF _1370tt6bt DO BAR_"42020"_OF__1370tt6bt_FB2P
DEFINE BAR "42030" OF _1370tt6bt PROMPT "Combustibil 3022" ;
MESSAGE 'Note contabile: 3022:401; 4426:401; 401:5311'
ON SELECTION BAR 42030 OF _1370tt6bt DO BAR_"42030"_OF__1370tt6bt_FB2P
DEFINE BAR "42040" OF _1370tt6bt PROMPT "Materiale pt. ambalat 3023" ;
MESSAGE 'Note contabile: 3023:401; 4426:401; 401:5311'
ON SELECTION BAR 42040 OF _1370tt6bt DO BAR_"42040"_OF__1370tt6bt_FB2P
DEFINE BAR "42050" OF _1370tt6bt PROMPT "Piese de schimb 3024" ;
MESSAGE 'Note contabile: 3024:401; 4426:401; 401:5311'
ON SELECTION BAR 42050 OF _1370tt6bt DO BAR_"42050"_OF__1370tt6bt_FB2P
DEFINE BAR 6 OF _1370tt6bt PROMPT "Alte materiale 3028" ;
MESSAGE 'Note contabile: 3028:401; 4426:401; 401:5311'
ON SELECTION BAR 6 OF _1370tt6bt DO BAR_6_OF__1370tt6bt_FB2P
DEFINE BAR "42060" OF _1370tt6bt PROMPT "Obiecte de inventar 303" ;
MESSAGE 'Note contabile: 303:401; 4426:401; 401:5311'
ON SELECTION BAR 42060 OF _1370tt6bt DO BAR_"42060"_OF__1370tt6bt_FB2P
DEFINE BAR "42080" OF _1370tt6bt PROMPT "Ambalaje 381" ;
MESSAGE 'Note contabile: 381:401; 4426:401; 401:5311'
ON SELECTION BAR 42080 OF _1370tt6bt DO BAR_"42080"_OF__1370tt6bt_FB2P
DEFINE BAR 9 OF _1370tt6bt PROMPT "Marfa 371" ;
MESSAGE 'Note contabile: 371:401; 4426:401; 401:5311'
ON SELECTION BAR 9 OF _1370tt6bt lans(10571)
DEFINE BAR "43" OF Furnizori PROMPT "Materii, materiale platite din 542"
ON BAR 43 OF Furnizori ACTIVATE POPUP _1370tt6bu
*----------------------------------
DEFINE POPUP _1370tt6bu SHORTCUT RELATIVE
DEFINE BAR "43010" OF _1370tt6bu PROMPT "Materii prime 301" ;
MESSAGE 'Note contabile: 301:401; 4426:401; 401:542'
ON SELECTION BAR 43010 OF _1370tt6bu DO BAR_"43010"_OF__1370tt6bu_FB2P
DEFINE BAR "43020" OF _1370tt6bu PROMPT "Materiale auxiliare 3021" ;
MESSAGE 'Note contabile: 3021:401; 4426:401; 401:542'
ON SELECTION BAR 43020 OF _1370tt6bu DO BAR_"43020"_OF__1370tt6bu_FB2P
DEFINE BAR "43030" OF _1370tt6bu PROMPT "Combustibil 3022" ;
MESSAGE 'Note contabile: 3022:401; 4426:401; 401:542'
ON SELECTION BAR 43030 OF _1370tt6bu DO BAR_"43030"_OF__1370tt6bu_FB2P
DEFINE BAR "43040" OF _1370tt6bu PROMPT "Materiale pt. ambalat 3023" ;
MESSAGE 'Note contabile: 3023:401; 4426:401; 401:542'
ON SELECTION BAR 43040 OF _1370tt6bu DO BAR_"43040"_OF__1370tt6bu_FB2P
DEFINE BAR "43050" OF _1370tt6bu PROMPT "Piese de schimb 3024" ;
MESSAGE 'Note contabile: 3024:401; 4426:401; 401:542'
ON SELECTION BAR 43050 OF _1370tt6bu DO BAR_"43050"_OF__1370tt6bu_FB2P
DEFINE BAR 6 OF _1370tt6bu PROMPT "Alte materiale 3028" ;
MESSAGE 'Note contabile: 3028:401; 4426:401; 401:542'
ON SELECTION BAR 6 OF _1370tt6bu DO BAR_6_OF__1370tt6bu_FB2P
DEFINE BAR "43060" OF _1370tt6bu PROMPT "Obiecte de inventar 303" ;
MESSAGE 'Note contabile: 303:401; 4426:401; 401:542'
ON SELECTION BAR 43060 OF _1370tt6bu DO BAR_"43060"_OF__1370tt6bu_FB2P
DEFINE BAR "43080" OF _1370tt6bu PROMPT "Ambalaje 381" ;
MESSAGE 'Note contabile: 381:401; 4426:401; 401:542'
ON SELECTION BAR 43080 OF _1370tt6bu DO BAR_"43080"_OF__1370tt6bu_FB2P
DEFINE BAR 9 OF _1370tt6bu PROMPT "Marfa 371" ;
MESSAGE 'Note contabile: 371:401; 4426:401; 401:542'
ON SELECTION BAR 9 OF _1370tt6bu
DEFINE BAR 7 OF Furnizori PROMPT "\-"
ON BAR 7 OF Furnizori ACTIVATE POPUP _13z0i7h3k
*----------------------------------
DEFINE POPUP _13z0i7h3k SHORTCUT RELATIVE
DEFINE BAR 8 OF Furnizori PROMPT "Cheltuieli neplatite"
ON BAR 8 OF Furnizori ACTIVATE POPUP _13z0i78ea
*----------------------------------
DEFINE POPUP _13z0i78ea SHORTCUT RELATIVE
DEFINE BAR 1 OF _13z0i78ea PROMPT "Materiale nestocate 604" ;
MESSAGE '604 :401 ;4426:401 '
ON SELECTION BAR 1 OF _13z0i78ea DO BAR_1_OF__13z0i78ea_FB2P
DEFINE BAR 2 OF _13z0i78ea PROMPT "Energie si apa 605x" ;
MESSAGE '605x :401 ;4426: 401'
ON SELECTION BAR 2 OF _13z0i78ea DO BAR_2_OF__13z0i78ea_FB2P
DEFINE BAR 3 OF _13z0i78ea PROMPT "Intretinere si reparatii 611" ;
MESSAGE '611 :401 ;4426:401 '
ON SELECTION BAR 3 OF _13z0i78ea DO BAR_3_OF__13z0i78ea_FB2P
DEFINE BAR 4 OF _13z0i78ea PROMPT "Locatii si chirii 612" ;
MESSAGE '612 :401 ;4426:401 '
ON SELECTION BAR 4 OF _13z0i78ea DO BAR_4_OF__13z0i78ea_FB2P
DEFINE BAR 5 OF _13z0i78ea PROMPT "Prime de asigurare 613" ;
MESSAGE '613 :401 ;4426:401 '
ON SELECTION BAR 5 OF _13z0i78ea DO BAR_5_OF__13z0i78ea_FB2P
DEFINE BAR 6 OF _13z0i78ea PROMPT "Studii si cercetari 614" ;
MESSAGE '614 :401 ;4426:401 '
ON SELECTION BAR 6 OF _13z0i78ea DO BAR_6_OF__13z0i78ea_FB2P
DEFINE BAR 7 OF _13z0i78ea PROMPT "Colaboratori 621" ;
MESSAGE '621 :401 ;4426:401 '
ON SELECTION BAR 7 OF _13z0i78ea DO BAR_7_OF__13z0i78ea_FB2P
DEFINE BAR 8 OF _13z0i78ea PROMPT "Comisioane si onorarii 622" ;
MESSAGE '622 :401 ;4426:401 '
ON SELECTION BAR 8 OF _13z0i78ea DO BAR_8_OF__13z0i78ea_FB2P
DEFINE BAR 9 OF _13z0i78ea PROMPT "Reclama, Protocol 623" ;
MESSAGE '623:401 ;4426:401 '
ON SELECTION BAR 9 OF _13z0i78ea DO BAR_9_OF__13z0i78ea_FB2P
DEFINE BAR 10 OF _13z0i78ea PROMPT "Transport bunuri si persoane 624" ;
MESSAGE '624 :401 ;4426:401 '
ON SELECTION BAR 10 OF _13z0i78ea DO BAR_10_OF__13z0i78ea_FB2P
DEFINE BAR 11 OF _13z0i78ea PROMPT "Deplasari, detasari 625" ;
MESSAGE '625 :401 ;4426:401 '
ON SELECTION BAR 11 OF _13z0i78ea DO BAR_11_OF__13z0i78ea_FB2P
DEFINE BAR 12 OF _13z0i78ea PROMPT "Posta si telecomunicatii 626" ;
MESSAGE '626 :401 ;4426:401 '
ON SELECTION BAR 12 OF _13z0i78ea DO BAR_12_OF__13z0i78ea_FB2P
DEFINE BAR 13 OF _13z0i78ea PROMPT "Alte cheltuieli la terti 628" ;
MESSAGE '628 :401 ;4426:401 '
ON SELECTION BAR 13 OF _13z0i78ea DO BAR_13_OF__13z0i78ea_FB2P
DEFINE BAR 14 OF _13z0i78ea PROMPT "Cheltuieli diverse 6xx / 4xx" ;
MESSAGE '6xx :401; 4426:401 '
ON SELECTION BAR 14 OF _13z0i78ea DO BAR_14_OF__13z0i78ea_FB2P
DEFINE BAR 15 OF _13z0i78ea PROMPT "Cheltuieli diverse 6xx + servicii in curs de executie 332-712" ;
MESSAGE '6xx :401; 4426:401; 332:712'
ON SELECTION BAR 15 OF _13z0i78ea DO BAR_15_OF__13z0i78ea_FB2P
DEFINE BAR 9 OF Furnizori PROMPT "Cheltuieli platite din casa"
ON BAR 9 OF Furnizori ACTIVATE POPUP NewItem
*----------------------------------
DEFINE POPUP NewItem SHORTCUT RELATIVE
DEFINE BAR 1 OF NewItem PROMPT "Materiale nestocate 604" ;
MESSAGE '604 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P
DEFINE BAR 2 OF NewItem PROMPT "Energie si apa 605x" ;
MESSAGE '605x :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P
DEFINE BAR 3 OF NewItem PROMPT "Intretinere si reparatii 611" ;
MESSAGE '611 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 3 OF NewItem DO BAR_3_OF_NewItem_FB2P
DEFINE BAR 4 OF NewItem PROMPT "Locatii si chirii 612" ;
MESSAGE '612 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 4 OF NewItem DO BAR_4_OF_NewItem_FB2P
DEFINE BAR 5 OF NewItem PROMPT "Prime de asigurare 613" ;
MESSAGE '613 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 5 OF NewItem DO BAR_5_OF_NewItem_FB2P
DEFINE BAR 6 OF NewItem PROMPT "Studii si cercetari 614" ;
MESSAGE '614 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 6 OF NewItem DO BAR_6_OF_NewItem_FB2P
DEFINE BAR 7 OF NewItem PROMPT "Colaboratori 621" ;
MESSAGE '621 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 7 OF NewItem DO BAR_7_OF_NewItem_FB2P
DEFINE BAR 8 OF NewItem PROMPT "Comisioane si onorarii 622" ;
MESSAGE '622 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 8 OF NewItem DO BAR_8_OF_NewItem_FB2P
DEFINE BAR 9 OF NewItem PROMPT "Reclama, Protocol 623" ;
MESSAGE '623:401 ;4426:401 ;401 :5311'
ON SELECTION BAR 9 OF NewItem DO BAR_9_OF_NewItem_FB2P
DEFINE BAR 10 OF NewItem PROMPT "Transport bunuri si persoane 624" ;
MESSAGE '624 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 10 OF NewItem DO BAR_10_OF_NewItem_FB2P
DEFINE BAR 11 OF NewItem PROMPT "Deplasari, detasari 625" ;
MESSAGE '625 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 11 OF NewItem DO BAR_11_OF_NewItem_FB2P
DEFINE BAR 12 OF NewItem PROMPT "Posta si telecomunicatii 626" ;
MESSAGE '625 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 12 OF NewItem DO BAR_12_OF_NewItem_FB2P
DEFINE BAR 13 OF NewItem PROMPT "Alte cheltuieli la terti 628" ;
MESSAGE '628 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 13 OF NewItem DO BAR_13_OF_NewItem_FB2P
DEFINE BAR 14 OF NewItem PROMPT "Cheltuieli diverse 6xx" ;
MESSAGE '6xx :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 14 OF NewItem DO BAR_14_OF_NewItem_FB2P
DEFINE BAR 10 OF Furnizori PROMPT "Cheltuieli platite din 542"
ON BAR 10 OF Furnizori ACTIVATE POPUP Cheltuieli
*----------------------------------
DEFINE POPUP Cheltuieli SHORTCUT RELATIVE
DEFINE BAR 1 OF Cheltuieli PROMPT "Materiale nestocate 604" ;
MESSAGE '604 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P
DEFINE BAR 2 OF Cheltuieli PROMPT "Energie si apa 605x" ;
MESSAGE '605x :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P
DEFINE BAR 3 OF Cheltuieli PROMPT "Intretinere si reparatii 611" ;
MESSAGE '611 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 3 OF Cheltuieli DO BAR_3_OF_Cheltuieli_FB2P
DEFINE BAR 4 OF Cheltuieli PROMPT "Locatii si chirii 612" ;
MESSAGE '612 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 4 OF Cheltuieli DO BAR_4_OF_Cheltuieli_FB2P
DEFINE BAR 5 OF Cheltuieli PROMPT "Prime de asigurare 613" ;
MESSAGE '613 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 5 OF Cheltuieli DO BAR_5_OF_Cheltuieli_FB2P
DEFINE BAR 6 OF Cheltuieli PROMPT "Studii si cercetari 614" ;
MESSAGE '614 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 6 OF Cheltuieli DO BAR_6_OF_Cheltuieli_FB2P
DEFINE BAR 7 OF Cheltuieli PROMPT "Colaboratori 621" ;
MESSAGE '621 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 7 OF Cheltuieli DO BAR_7_OF_Cheltuieli_FB2P
DEFINE BAR 8 OF Cheltuieli PROMPT "Comisioane si onorarii 622" ;
MESSAGE '622 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 8 OF Cheltuieli DO BAR_8_OF_Cheltuieli_FB2P
DEFINE BAR 9 OF Cheltuieli PROMPT "Reclama, Protocol 623" ;
MESSAGE '623:401 ;4426:401 ;401 :542 '
ON SELECTION BAR 9 OF Cheltuieli DO BAR_9_OF_Cheltuieli_FB2P
DEFINE BAR 10 OF Cheltuieli PROMPT "Transport bunuri si persoane 624" ;
MESSAGE '624 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 10 OF Cheltuieli DO BAR_10_OF_Cheltuieli_FB2P
DEFINE BAR 11 OF Cheltuieli PROMPT "Deplasari, detasari 625" ;
MESSAGE '625 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 11 OF Cheltuieli DO BAR_11_OF_Cheltuieli_FB2P
DEFINE BAR 12 OF Cheltuieli PROMPT "Posta si telecomunicatii 626" ;
MESSAGE '626 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 12 OF Cheltuieli DO BAR_12_OF_Cheltuieli_FB2P
DEFINE BAR 13 OF Cheltuieli PROMPT "Alte cheltuieli la teri 628" ;
MESSAGE '628 :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 13 OF Cheltuieli DO BAR_13_OF_Cheltuieli_FB2P
DEFINE BAR 14 OF Cheltuieli PROMPT "Cheltuieli diverse 6xx" ;
MESSAGE '6xx :401 ;4426:401 ;401 :542 '
ON SELECTION BAR 14 OF Cheltuieli DO BAR_14_OF_Cheltuieli_FB2P
DEFINE BAR 11 OF Furnizori PROMPT "Cheltuieli platite din 4281"
ON BAR 11 OF Furnizori ACTIVATE POPUP _5p30ps315
*----------------------------------
DEFINE POPUP _5p30ps315 SHORTCUT RELATIVE
DEFINE BAR 1 OF _5p30ps315 PROMPT "Transport bunuri si persoane 624" ;
MESSAGE '624 :401 ;4426:401 ;401 :5311'
ON SELECTION BAR 1 OF _5p30ps315 lans(10644)
DEFINE BAR 12 OF Furnizori PROMPT "\-"
ON BAR 12 OF Furnizori ACTIVATE POPUP _13y10laif
*----------------------------------
DEFINE POPUP _13y10laif SHORTCUT RELATIVE
DEFINE BAR 13 OF Furnizori PROMPT "Inregistrare facturare avansuri 409" ;
MESSAGE '409 : 401 ; 4426 : 401'
ON SELECTION BAR 13 OF Furnizori DO BAR_13_OF_Furnizori_FB2P
DEFINE BAR 14 OF Furnizori PROMPT "Inregistrare facturare avansuri - taxare inversa 409" ;
MESSAGE '409 : 401 ; 4426 : 4427'
ON SELECTION BAR 14 OF Furnizori DO BAR_14_OF_Furnizori_FB2P
DEFINE BAR 15 OF Furnizori PROMPT "Inregistrare cheltuieli in avans 471" ;
MESSAGE '471 : 401; 4426 : 401'
ON SELECTION BAR 15 OF Furnizori DO BAR_15_OF_Furnizori_FB2P
DEFINE BAR 16 OF Furnizori PROMPT "Plata factura achizitie din 461" ;
MESSAGE '401 : 461'
ON SELECTION BAR 16 OF Furnizori lans(10476)
DEFINE BAR 17 OF Furnizori PROMPT "Constituire garantii 462" ;
MESSAGE '401 : 462'
ON SELECTION BAR 17 OF Furnizori DO BAR_17_OF_Furnizori_FB2P
DEFINE BAR 18 OF Furnizori PROMPT "Refacturare" ;
MESSAGE '462 : 401'
ON SELECTION BAR 18 OF Furnizori DO BAR_18_OF_Furnizori_FB2P
DEFINE BAR 19 OF Furnizori PROMPT "\-"
ON BAR 19 OF Furnizori ACTIVATE POPUP _13y10p03a
*----------------------------------
DEFINE POPUP _13y10p03a SHORTCUT RELATIVE
DEFINE BAR 20 OF Furnizori PROMPT "Tichete de masa"
ON SELECTION BAR 20 OF Furnizori DO BAR_20_OF_Furnizori_FB2P
DEFINE BAR 21 OF Furnizori PROMPT "Combustibili cu taxa"
ON SELECTION BAR 21 OF Furnizori DO BAR_21_OF_Furnizori_FB2P
DEFINE BAR 22 OF Furnizori PROMPT "Cheltuieli limitare deducere 50%"
ON SELECTION BAR 22 OF Furnizori DO BAR_22_OF_Furnizori_FB2P
DEFINE BAR 23 OF Furnizori PROMPT "Cheltuieli limitare deducere 100%"
ON SELECTION BAR 23 OF Furnizori DO BAR_23_OF_Furnizori_FB2P
DEFINE BAR 24 OF Furnizori PROMPT "B.C.F."
ON SELECTION BAR 24 OF Furnizori DO BAR_24_OF_Furnizori_FB2P
DEFINE BAR 25 OF Furnizori PROMPT "Bonuri valorice"
ON SELECTION BAR 25 OF Furnizori DO BAR_25_OF_Furnizori_FB2P
DEFINE BAR 26 OF Furnizori PROMPT "Taxare inversa"
ON SELECTION BAR 26 OF Furnizori DO BAR_26_OF_Furnizori_FB2P
DEFINE BAR 27 OF Furnizori PROMPT "\-"
ON BAR 27 OF Furnizori ACTIVATE POPUP _6sa0su8ei
*----------------------------------
DEFINE POPUP _6sa0su8ei SHORTCUT RELATIVE
DEFINE BAR 28 OF Furnizori PROMPT "Import eFactura primite"
ON SELECTION BAR 28 OF Furnizori do importEfacturaPrimite in import_efactura.prg
ACTIVATE POPUP Furnizori
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Furnizori_FB2P
LOCAL lnRaspuns, lnDeducere
lnRaspuns = 6
DO WHILE lnRaspuns = 6
lnDeducere = 0
buton = lans(10456,,,,@lnDeducere)
if buton = 2
return
endif
DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Factura de achizitie - Furnizori 401','4426',10456,,m.lnDeducere
IF buton=1
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
ELSE
lnRaspuns = 7
ENDIF
ENDDO
ENDPROC && BAR_1_OF_Furnizori_FB2P
PROCEDURE BAR_2_OF_Furnizori_FB2P
PRIVATE pcACN
loCont = ret_cont("Selectati contul debitor X = 401",'3,4,6')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
LANS(10423)
ENDPROC && BAR_2_OF_Furnizori_FB2P
PROCEDURE BAR_"41010"_OF_Materiimat_FB2P
lans(10208)
ENDPROC && BAR_"41010"_OF_Materiimat_FB2P
PROCEDURE BAR_"41020"_OF_Materiimat_FB2P
lans(10209)
ENDPROC && BAR_"41020"_OF_Materiimat_FB2P
PROCEDURE BAR_"41030"_OF_Materiimat_FB2P
lans(10210)
ENDPROC && BAR_"41030"_OF_Materiimat_FB2P
PROCEDURE BAR_4_OF_Materiimat_FB2P
lans(10475)
ENDPROC && BAR_4_OF_Materiimat_FB2P
PROCEDURE BAR_"41040"_OF_Materiimat_FB2P
lans(10211)
ENDPROC && BAR_"41040"_OF_Materiimat_FB2P
PROCEDURE BAR_"41050"_OF_Materiimat_FB2P
lans(10212)
ENDPROC && BAR_"41050"_OF_Materiimat_FB2P
PROCEDURE BAR_7_OF_Materiimat_FB2P
lans(10213)
ENDPROC && BAR_7_OF_Materiimat_FB2P
PROCEDURE BAR_"41060"_OF_Materiimat_FB2P
lans(10214)
ENDPROC && BAR_"41060"_OF_Materiimat_FB2P
PROCEDURE BAR_"41080"_OF_Materiimat_FB2P
lans(10215)
ENDPROC && BAR_"41080"_OF_Materiimat_FB2P
PROCEDURE BAR_"41110"_OF_Materiimat_FB2P
PUBLIC DEB
SELE BAL
OS=CREA('SELCONT')
OS.SHOW(1)
IF BUTON=2
RETURN
ENDIF
lans(10216)
ENDPROC && BAR_"41110"_OF_Materiimat_FB2P
PROCEDURE BAR_5_OF_Incursdeap_FB2P
LOCAL loCont
loCont = ret_cont("Materiale consumabile",'3021,3022,3023,3024,3025,3026,3027,3028,3029')
If buton = 2
Release loCont
Return
Endif
lans_generic(10604,loCont.Cont, loCont.Acont, '322')
ENDPROC && BAR_5_OF_Incursdeap_FB2P
PROCEDURE BAR_"42010"_OF__1370tt6bt_FB2P
lans(1)
*DO INTROD2FURNIZORI WITH '301 ','5311 ','PLCASA','ACTGEN01PERC'
ENDPROC && BAR_"42010"_OF__1370tt6bt_FB2P
PROCEDURE BAR_"42020"_OF__1370tt6bt_FB2P
*!* nr_meniu=42020
*!* DO INTROD2FURNIZORI WITH '3021 ','5311 ','PLCASA','ACTGEN01PERC'
lans(10190)
ENDPROC && BAR_"42020"_OF__1370tt6bt_FB2P
PROCEDURE BAR_"42030"_OF__1370tt6bt_FB2P
*!* nr_meniu=42030
*!* DO INTROD2FURNIZORI WITH '3022 ','5311 ','PLCASA','ACTGEN01PERC'
lans(10191)
ENDPROC && BAR_"42030"_OF__1370tt6bt_FB2P
PROCEDURE BAR_"42040"_OF__1370tt6bt_FB2P
*!* nr_meniu=42040
*!* DO INTROD2FURNIZORI WITH '3023 ','5311 ','PLCASA','ACTGEN01PERC'
lans(10192)
ENDPROC && BAR_"42040"_OF__1370tt6bt_FB2P
PROCEDURE BAR_"42050"_OF__1370tt6bt_FB2P
*!* nr_meniu=42050
*!* DO INTROD2FURNIZORI WITH '3024 ','5311 ','PLCASA','ACTGEN01PERC'
lans(10193)
ENDPROC && BAR_"42050"_OF__1370tt6bt_FB2P
PROCEDURE BAR_6_OF__1370tt6bt_FB2P
*DO INTROD2FURNIZORI WITH '3028 ','5311 ','PLCASA','ACTGEN01PERC'
lans(10194)
ENDPROC && BAR_6_OF__1370tt6bt_FB2P
PROCEDURE BAR_"42060"_OF__1370tt6bt_FB2P
*!* nr_meniu=42060
*!* DO INTROD2FURNIZORI WITH '303 ','5311 ','PLCASA','ACTGEN01PERC'
lans(10195)
ENDPROC && BAR_"42060"_OF__1370tt6bt_FB2P
PROCEDURE BAR_"42080"_OF__1370tt6bt_FB2P
*!* nr_meniu=42080
*!* DO INTROD2FURNIZORI WITH '381 ','5311 ','PLCASA','ACTGEN01PERC'
lans(10196)
ENDPROC && BAR_"42080"_OF__1370tt6bt_FB2P
PROCEDURE BAR_"43010"_OF__1370tt6bu_FB2P
lans(10198)
*!* nr_meniu=43010
*!* DO INTROD2FURNIZORI WITH '301 ','542 ','INPLACHIZ','ACTGEN01PER'
ENDPROC && BAR_"43010"_OF__1370tt6bu_FB2P
PROCEDURE BAR_"43020"_OF__1370tt6bu_FB2P
*!* nr_meniu=43020
*!* DO INTROD2FURNIZORI WITH '3021 ','542 ','INPLACHIZ','ACTGEN01PER'
lans(10199)
ENDPROC && BAR_"43020"_OF__1370tt6bu_FB2P
PROCEDURE BAR_"43030"_OF__1370tt6bu_FB2P
*!* nr_meniu=43030
*!* DO INTROD2FURNIZORI WITH '3022 ','542 ','INPLACHIZ','ACTGEN01PER'
lans(10200)
ENDPROC && BAR_"43030"_OF__1370tt6bu_FB2P
PROCEDURE BAR_"43040"_OF__1370tt6bu_FB2P
*!* nr_meniu=43040
*!* DO INTROD2FURNIZORI WITH '3023 ','542 ','INPLACHIZ','ACTGEN01PER'
lans(10201)
ENDPROC && BAR_"43040"_OF__1370tt6bu_FB2P
PROCEDURE BAR_"43050"_OF__1370tt6bu_FB2P
*!* nr_meniu=43050
*!* DO INTROD2FURNIZORI WITH '3024 ','542 ','INPLACHIZ','ACTGEN01PER'
lans(10202)
ENDPROC && BAR_"43050"_OF__1370tt6bu_FB2P
PROCEDURE BAR_6_OF__1370tt6bu_FB2P
*DO INTROD2FURNIZORI WITH '3028 ','542 ','INPLACHIZ','ACTGEN01PER'
lans(10203)
ENDPROC && BAR_6_OF__1370tt6bu_FB2P
PROCEDURE BAR_"43060"_OF__1370tt6bu_FB2P
lans(10204)
*!* nr_meniu=43060
*!* DO INTROD2FURNIZORI WITH '303 ','542 ','INPLACHIZ','ACTGEN01PER'
ENDPROC && BAR_"43060"_OF__1370tt6bu_FB2P
PROCEDURE BAR_"43080"_OF__1370tt6bu_FB2P
lans(10205)
*!* nr_meniu=43080
*!* DO INTROD2FURNIZORI WITH '381 ','542 ','INPLACHIZ','ACTGEN01PER'
ENDPROC && BAR_"43080"_OF__1370tt6bu_FB2P
PROCEDURE BAR_1_OF__13z0i78ea_FB2P
lans(10228)
ENDPROC && BAR_1_OF__13z0i78ea_FB2P
PROCEDURE BAR_2_OF__13z0i78ea_FB2P
* lans(10229)
PRIVATE pcACN
loCont=ret_cont("Selectati contul",'605')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
lans(10311)
ENDPROC && BAR_2_OF__13z0i78ea_FB2P
PROCEDURE BAR_3_OF__13z0i78ea_FB2P
lans(10230)
ENDPROC && BAR_3_OF__13z0i78ea_FB2P
PROCEDURE BAR_4_OF__13z0i78ea_FB2P
lans(10231)
ENDPROC && BAR_4_OF__13z0i78ea_FB2P
PROCEDURE BAR_5_OF__13z0i78ea_FB2P
lans(10232)
ENDPROC && BAR_5_OF__13z0i78ea_FB2P
PROCEDURE BAR_6_OF__13z0i78ea_FB2P
lans(10233)
ENDPROC && BAR_6_OF__13z0i78ea_FB2P
PROCEDURE BAR_7_OF__13z0i78ea_FB2P
lans(10234)
ENDPROC && BAR_7_OF__13z0i78ea_FB2P
PROCEDURE BAR_8_OF__13z0i78ea_FB2P
lans(10235)
ENDPROC && BAR_8_OF__13z0i78ea_FB2P
PROCEDURE BAR_9_OF__13z0i78ea_FB2P
lans(10236)
ENDPROC && BAR_9_OF__13z0i78ea_FB2P
PROCEDURE BAR_10_OF__13z0i78ea_FB2P
lans(10238)
ENDPROC && BAR_10_OF__13z0i78ea_FB2P
PROCEDURE BAR_11_OF__13z0i78ea_FB2P
lans(10239)
ENDPROC && BAR_11_OF__13z0i78ea_FB2P
PROCEDURE BAR_12_OF__13z0i78ea_FB2P
lans(10240)
ENDPROC && BAR_12_OF__13z0i78ea_FB2P
PROCEDURE BAR_13_OF__13z0i78ea_FB2P
lans(10241)
ENDPROC && BAR_13_OF__13z0i78ea_FB2P
PROCEDURE BAR_14_OF__13z0i78ea_FB2P
*!* SELECT BAL
*!* ose=crea('selcont')
*!* ose.show(1)
*!* IF buton=2
*!* RETURN
*!* ENDIF
PRIVATE pcACN
loCont=ret_cont("Selectati contul",'6,4')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
lans(10311)
ENDPROC && BAR_14_OF__13z0i78ea_FB2P
PROCEDURE BAR_15_OF__13z0i78ea_FB2P
PRIVATE pcACN
loCont=ret_cont("Selectati contul",'6')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
lans(10646)
ENDPROC && BAR_15_OF__13z0i78ea_FB2P
PROCEDURE BAR_1_OF_NewItem_FB2P
lans(10242)
ENDPROC && BAR_1_OF_NewItem_FB2P
PROCEDURE BAR_2_OF_NewItem_FB2P
* lans(10243)
PRIVATE pcACN
loCont=ret_cont("Selectati contul",'605')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
lans(10312)
ENDPROC && BAR_2_OF_NewItem_FB2P
PROCEDURE BAR_3_OF_NewItem_FB2P
lans(10244)
ENDPROC && BAR_3_OF_NewItem_FB2P
PROCEDURE BAR_4_OF_NewItem_FB2P
lans(10245)
ENDPROC && BAR_4_OF_NewItem_FB2P
PROCEDURE BAR_5_OF_NewItem_FB2P
lans(10246)
ENDPROC && BAR_5_OF_NewItem_FB2P
PROCEDURE BAR_6_OF_NewItem_FB2P
lans(10247)
ENDPROC && BAR_6_OF_NewItem_FB2P
PROCEDURE BAR_7_OF_NewItem_FB2P
lans(10248)
ENDPROC && BAR_7_OF_NewItem_FB2P
PROCEDURE BAR_8_OF_NewItem_FB2P
lans(10249)
ENDPROC && BAR_8_OF_NewItem_FB2P
PROCEDURE BAR_9_OF_NewItem_FB2P
lans(10250)
ENDPROC && BAR_9_OF_NewItem_FB2P
PROCEDURE BAR_10_OF_NewItem_FB2P
lans(10252)
ENDPROC && BAR_10_OF_NewItem_FB2P
PROCEDURE BAR_11_OF_NewItem_FB2P
lans(10253)
ENDPROC && BAR_11_OF_NewItem_FB2P
PROCEDURE BAR_12_OF_NewItem_FB2P
lans(10254)
ENDPROC && BAR_12_OF_NewItem_FB2P
PROCEDURE BAR_13_OF_NewItem_FB2P
lans(10255)
ENDPROC && BAR_13_OF_NewItem_FB2P
PROCEDURE BAR_14_OF_NewItem_FB2P
*!* SELECT BAL
*!* ose=crea('selcont')
*!* ose.show(1)
*!* IF buton=2
*!* RETURN
*!* ENDIF
PRIVATE pcACN
loCont=ret_cont("Selectati contul",'6')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
lans(10312)
ENDPROC && BAR_14_OF_NewItem_FB2P
PROCEDURE BAR_1_OF_Cheltuieli_FB2P
lans(10256)
ENDPROC && BAR_1_OF_Cheltuieli_FB2P
PROCEDURE BAR_2_OF_Cheltuieli_FB2P
*lans(10257)
PRIVATE pcACN
loCont=ret_cont("Selectati contul",'605')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
lans(10313)
ENDPROC && BAR_2_OF_Cheltuieli_FB2P
PROCEDURE BAR_3_OF_Cheltuieli_FB2P
lans(10258)
ENDPROC && BAR_3_OF_Cheltuieli_FB2P
PROCEDURE BAR_4_OF_Cheltuieli_FB2P
lans(10259)
ENDPROC && BAR_4_OF_Cheltuieli_FB2P
PROCEDURE BAR_5_OF_Cheltuieli_FB2P
lans(10260)
ENDPROC && BAR_5_OF_Cheltuieli_FB2P
PROCEDURE BAR_6_OF_Cheltuieli_FB2P
lans(10261)
ENDPROC && BAR_6_OF_Cheltuieli_FB2P
PROCEDURE BAR_7_OF_Cheltuieli_FB2P
lans(10262)
ENDPROC && BAR_7_OF_Cheltuieli_FB2P
PROCEDURE BAR_8_OF_Cheltuieli_FB2P
lans(10263)
ENDPROC && BAR_8_OF_Cheltuieli_FB2P
PROCEDURE BAR_9_OF_Cheltuieli_FB2P
lans(10264)
ENDPROC && BAR_9_OF_Cheltuieli_FB2P
PROCEDURE BAR_10_OF_Cheltuieli_FB2P
lans(10266)
ENDPROC && BAR_10_OF_Cheltuieli_FB2P
PROCEDURE BAR_11_OF_Cheltuieli_FB2P
lans(10267)
ENDPROC && BAR_11_OF_Cheltuieli_FB2P
PROCEDURE BAR_12_OF_Cheltuieli_FB2P
lans(10268)
ENDPROC && BAR_12_OF_Cheltuieli_FB2P
PROCEDURE BAR_13_OF_Cheltuieli_FB2P
lans(10269)
ENDPROC && BAR_13_OF_Cheltuieli_FB2P
PROCEDURE BAR_14_OF_Cheltuieli_FB2P
*!* SELECT BAL
*!* ose=crea('selcont')
*!* ose.show(1)
*!* IF buton=2
*!* RETURN
*!* ENDIF
PRIVATE pcACN
loCont=ret_cont("Selectati contul",'6')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
lans(10313)
ENDPROC && BAR_14_OF_Cheltuieli_FB2P
PROCEDURE BAR_13_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(10564)
ENDPROC && BAR_13_OF_Furnizori_FB2P
PROCEDURE BAR_14_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(10575)
ENDPROC && BAR_14_OF_Furnizori_FB2P
PROCEDURE BAR_15_OF_Furnizori_FB2P
lans(10410)
ENDPROC && BAR_15_OF_Furnizori_FB2P
PROCEDURE BAR_17_OF_Furnizori_FB2P
lans(10412)
ENDPROC && BAR_17_OF_Furnizori_FB2P
PROCEDURE BAR_18_OF_Furnizori_FB2P
lans(10539)
ENDPROC && BAR_18_OF_Furnizori_FB2P
PROCEDURE BAR_20_OF_Furnizori_FB2P
LOCAL lnRaspuns
lnRaspuns = 6
DO WHILE lnRaspuns = 6
buton = lans(10459)
if buton = 2
return
endif
DO introducere_compacta WITH 'achi_mat','','401 ',.T.,.T.,'Tichete de masa','4426',10459
IF buton=1
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
ELSE
lnRaspuns = 7
ENDIF
ENDDO
ENDPROC && BAR_20_OF_Furnizori_FB2P
PROCEDURE BAR_21_OF_Furnizori_FB2P
LOCAL lnRaspuns
lnRaspuns = 6
DO WHILE lnRaspuns = 6
lans(10460)
if buton = 2
return
ENDIF
DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Combustibili cu taxa','4426',10460
IF buton=1
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
ELSE
lnRaspuns = 7
ENDIF
ENDDO
ENDPROC && BAR_21_OF_Furnizori_FB2P
PROCEDURE BAR_22_OF_Furnizori_FB2P
Local lnDeducere && modificare v 2.2.20
LOCAL lnRaspuns
lnRaspuns = 6
DO WHILE lnRaspuns = 6
*!* modificare v 2.2.20
lnDeducere = 0
lans(10609,,,,@lnDeducere)
*!* lans(10609)
*!* modificare v 2.2.20 ^
if buton = 2
return
ENDIF
*!* modificare v 2.2.20
*!* DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Cheltuieli auto 50%','4426',10609
DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Cheltuieli limitare deducere 50%','4426',10609,,lnDeducere
*!* modificare v 2.2.20 ^
IF buton=1
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
ELSE
lnRaspuns = 7
ENDIF
ENDDO
RELEASE lnDeducere && modificare v 2.2.20
ENDPROC && BAR_22_OF_Furnizori_FB2P
PROCEDURE BAR_23_OF_Furnizori_FB2P
Local lnDeducere && modificare v 2.2.20
LOCAL lnRaspuns
lnRaspuns = 6
DO WHILE lnRaspuns = 6
lnDeducere = 0
lans(10647,,,,@lnDeducere)
if buton = 2
return
ENDIF
DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Cheltuieli limitare deducere 100%','4426',10647,,lnDeducere
IF buton=1
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
ELSE
lnRaspuns = 7
ENDIF
ENDDO
RELEASE lnDeducere && modificare v 2.2.20
ENDPROC && BAR_23_OF_Furnizori_FB2P
PROCEDURE BAR_24_OF_Furnizori_FB2P
LOCAL lnRaspuns, lnDeducere
lnRaspuns = 6
DO WHILE lnRaspuns = 6
lnDeducere = 0
lans(10461,,,,@lnDeducere)
if buton = 2
return
ENDIF
DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.F.,'B .C. F. -uri','4426',10461,,lnDeducere
IF buton=1
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
ELSE
lnRaspuns = 7
ENDIF
ENDDO
ENDPROC && BAR_24_OF_Furnizori_FB2P
PROCEDURE BAR_25_OF_Furnizori_FB2P
LOCAL lnRaspuns
lnRaspuns = 6
DO WHILE lnRaspuns = 6
lans(10462)
if buton = 2
return
ENDIF
DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.F.,'Bonuri valorice','4426',10462
IF buton=1
lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
ELSE
lnRaspuns = 7
ENDIF
ENDDO
ENDPROC && BAR_25_OF_Furnizori_FB2P
PROCEDURE BAR_26_OF_Furnizori_FB2P
PRIVATE pcACN
loCont = ret_cont("Selectati contul",'6')
IF TYPE('loCont') # 'O'
RETURN
ENDIF
IF buton=2
RELEASE loCont
RETURN
ENDIF
CN=locont.cont
PcACN=loCont.Acont
LANS(10565)
ENDPROC && BAR_26_OF_Furnizori_FB2P
*</Procedures>
Reference in New Issue View Git Blame Copy Permalink