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