*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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) * *4 *REPLACE * 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 î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 * * 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 *