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:
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>
|
||||
Reference in New Issue
Block a user