310 lines
9.1 KiB
Plaintext
310 lines
9.1 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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>
|