211 lines
5.7 KiB
Plaintext
211 lines
5.7 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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>
|