300 lines
8.6 KiB
Plaintext
300 lines
8.6 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Furnizori PROMPT "Regularizare fact. nesosite" ;
|
|
MESSAGE '408:401;4426:4428'
|
|
ON SELECTION BAR 1 OF Furnizori DO BAR_1_OF_Furnizori_FB2P
|
|
|
|
DEFINE BAR 2 OF Furnizori PROMPT "Regularizare fact. nesosite de imobilizari" ;
|
|
MESSAGE '408:404;4426:4428'
|
|
ON SELECTION BAR 2 OF Furnizori DO BAR_2_OF_Furnizori_FB2P
|
|
|
|
DEFINE BAR 3 OF Furnizori PROMPT "Regularizare furnizori debitori" ;
|
|
MESSAGE '401 : 409'
|
|
ON SELECTION BAR 3 OF Furnizori DO BAR_3_OF_Furnizori_FB2P
|
|
|
|
DEFINE BAR 4 OF Furnizori PROMPT "Regularizare avans furnizori imobilizari"
|
|
ON BAR 4 OF Furnizori ACTIVATE POPUP Regulariza
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Regulariza SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Regulariza PROMPT "Corporale" ;
|
|
MESSAGE '404 : 232'
|
|
ON SELECTION BAR 1 OF Regulariza lans(10562)
|
|
|
|
DEFINE BAR 2 OF Regulariza PROMPT "Necorporale" ;
|
|
MESSAGE '404 : 234'
|
|
ON SELECTION BAR 2 OF Regulariza lans(10563)
|
|
|
|
DEFINE BAR 5 OF Furnizori PROMPT "\-"
|
|
ON BAR 5 OF Furnizori ACTIVATE POPUP NewItem
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
|
DEFINE BAR 6 OF Furnizori PROMPT "Regularizare furnizori externi debitori" ;
|
|
MESSAGE '401 : 409'
|
|
ON SELECTION BAR 6 OF Furnizori DO BAR_6_OF_Furnizori_FB2P
|
|
|
|
DEFINE BAR 7 OF Furnizori PROMPT "Regularizare avans furnizori externi imobilizari"
|
|
ON SELECTION BAR 7 OF Furnizori DO BAR_7_OF_Furnizori_FB2P
|
|
|
|
DEFINE BAR 8 OF Furnizori PROMPT "\-"
|
|
ON BAR 8 OF Furnizori ACTIVATE POPUP _13w0x2gl2
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _13w0x2gl2 SHORTCUT RELATIVE
|
|
DEFINE BAR 9 OF Furnizori PROMPT "Compensari furnizor-client"
|
|
ON BAR 9 OF Furnizori ACTIVATE POPUP _15t10svwr
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _15t10svwr SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _15t10svwr PROMPT "Compensare furnizor - client" ;
|
|
MESSAGE '401-4111'
|
|
ON SELECTION BAR 1 OF _15t10svwr lans(10489)
|
|
|
|
DEFINE BAR 2 OF _15t10svwr PROMPT "Compensare furnizor404 - client" ;
|
|
MESSAGE '404-4111'
|
|
ON SELECTION BAR 2 OF _15t10svwr lans(10543)
|
|
|
|
DEFINE BAR 3 OF _15t10svwr PROMPT "\-"
|
|
ON BAR 3 OF _15t10svwr ACTIVATE POPUP _15t10uhfs
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _15t10uhfs SHORTCUT RELATIVE
|
|
DEFINE BAR 4 OF _15t10svwr PROMPT "Compensare valuta furnizor - client" ;
|
|
MESSAGE '401-4111'
|
|
ON SELECTION BAR 4 OF _15t10svwr lans(10490)
|
|
|
|
DEFINE BAR 10 OF Furnizori PROMPT "Compensare facturi furnizor - lei" ;
|
|
MESSAGE '401 : 5121'
|
|
ON SELECTION BAR 10 OF Furnizori lans(10614)
|
|
|
|
DEFINE BAR 11 OF Furnizori PROMPT "Compensare facturi furnizor - valuta" ;
|
|
MESSAGE '401,404,462 : 5124'
|
|
ON SELECTION BAR 11 OF Furnizori DO BAR_11_OF_Furnizori_FB2P
|
|
|
|
DEFINE BAR 12 OF Furnizori PROMPT "\-"
|
|
ON BAR 12 OF Furnizori ACTIVATE POPUP _7ey0oap0x
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _7ey0oap0x SHORTCUT RELATIVE
|
|
DEFINE BAR 13 OF Furnizori PROMPT "Compensare avansuri furnizor - lei" ;
|
|
MESSAGE '409x : 5121'
|
|
ON SELECTION BAR 13 OF Furnizori DO BAR_13_OF_Furnizori_FB2P
|
|
|
|
DEFINE BAR 14 OF Furnizori PROMPT "Compensare avansuri furnizor - valuta" ;
|
|
MESSAGE '409 : 5124'
|
|
ON SELECTION BAR 14 OF Furnizori DO BAR_14_OF_Furnizori_FB2P
|
|
ACTIVATE POPUP Furnizori
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Furnizori_FB2P
|
|
lans(10406)
|
|
|
|
IF gnButon = 2
|
|
IF USED('actactan')
|
|
USE IN actactan
|
|
ENDIF
|
|
RETURN
|
|
ENDIF
|
|
SET STEP ON
|
|
SELECT actactan
|
|
GO BOTTOM
|
|
SCATTER FIELDS EXCEPT id_factd, id_factc,pereched,perechec, id_partd, id_partc, partd, partc,id_jtva_coloana,proc_tva,taxcode,taxname NAME otemp
|
|
|
|
SELECT DISTINCT a.id_jtva_coloana,(b.cota_tva+100)/100 as proc_Tva,b.id_tva,a.taxcode,a.taxname FROM actactan a JOIN jtva_coloane b ON a.id_jtva_coloana = b.id_jtva_coloana WHERE b.cota_tva <> 0 AND ALLTRIM(a.scd) = '408' INTO CURSOR procent
|
|
|
|
IF _tally#0
|
|
SELECT procent
|
|
SCAN
|
|
SCATTER NAME oproc
|
|
SELECT actactan
|
|
SUM suma TO lnsuma FOR id_jtva_coloana=oproc.id_jtva_coloana AND ALLTRIM(scd)='408'
|
|
SELECT actactan
|
|
APPEND BLANK
|
|
GATHER NAME otemp
|
|
replace proc_tva WITH oproc.proc_tva,id_jtva_coloana WITH oproc.id_tva, taxcode WITH oproc.taxcode, taxname WITH oproc.taxname
|
|
*!* REPLACE scd WITH '4426',scc WITH '4428',proc_tva WITH oproc.proc_tva,id_jtva_coloana WITH oproc.id_tva
|
|
REPLACE scd WITH iif(inlist(id_jtva_coloana, 171, 173, 175, 179, 189, 211, 215), '4428', '4426'),scc WITH '4428'
|
|
REPLACE suma WITH ROUND(LnSuma*(oproc.proc_tva-1)/oproc.proc_tva,gnPc)
|
|
|
|
SELECT procent
|
|
ENDSCAN
|
|
ENDIF
|
|
|
|
SELECT actactan
|
|
GO TOP
|
|
DO FORM verificare
|
|
|
|
IF gnButon=1
|
|
oscrie_in_fisiere()
|
|
ENDIF
|
|
|
|
IF USED('actactan')
|
|
USE IN actactan
|
|
ENDIF
|
|
IF USED('procent')
|
|
USE IN procent
|
|
ENDIF
|
|
|
|
|
|
|
|
ENDPROC && BAR_1_OF_Furnizori_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Furnizori_FB2P
|
|
lans(10407)
|
|
|
|
|
|
IF gnButon = 2
|
|
IF USED('actactan')
|
|
USE IN actactan
|
|
ENDIF
|
|
RETURN
|
|
ENDIF
|
|
|
|
SELECT actactan
|
|
GO BOTTOM
|
|
SCATTER FIELDS EXCEPT id_factd, id_factc,pereched,perechec, id_partd, id_partc, partd, partc,id_jtva_coloana, proc_tva,taxcode,taxname NAME otemp
|
|
|
|
SELECT DISTINCT a.id_jtva_coloana,(b.cota_tva+100)/100 as proc_tva,b.id_tva,a.taxcode,a.taxname FROM actactan a JOIN jtva_coloane b ON a.id_jtva_coloana = b.id_jtva_coloana WHERE b.cota_tva <> 0 AND ALLTRIM(a.scd) = '408' INTO CURSOR procent
|
|
|
|
IF _tally#0
|
|
SELECT procent
|
|
SCAN
|
|
SCATTER NAME oproc
|
|
SELECT actactan
|
|
SUM suma TO lnsuma FOR id_jtva_coloana=oproc.id_jtva_coloana AND ALLTRIM(scd)='408'
|
|
SELECT actactan
|
|
APPEND BLANK
|
|
GATHER NAME otemp
|
|
REPLACE scd WITH '4426',scc WITH '4428',id_jtva_coloana WITH oproc.id_tva,proc_tva WITH oproc.proc_tva, taxcode WITH oproc.taxcode, taxname WITH oproc.taxname
|
|
REPLACE suma WITH ROUND(LnSuma*(oproc.proc_tva-1)/oproc.proc_tva,gnPc)
|
|
|
|
SELECT procent
|
|
ENDSCAN
|
|
ENDIF
|
|
|
|
SELECT actactan
|
|
GO TOP
|
|
DO FORM verificare
|
|
|
|
IF gnButon=1
|
|
oscrie_in_fisiere()
|
|
ENDIF
|
|
|
|
IF USED('actactan')
|
|
USE IN actactan
|
|
ENDIF
|
|
IF USED('procent')
|
|
USE IN procent
|
|
ENDIF
|
|
ENDPROC && BAR_2_OF_Furnizori_FB2P
|
|
|
|
PROCEDURE BAR_3_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(10487)
|
|
ENDPROC && BAR_3_OF_Furnizori_FB2P
|
|
|
|
PROCEDURE BAR_6_OF_Furnizori_FB2P
|
|
PRIVATE pcACN, CN
|
|
loCont = ret_cont("Selectati contul creditor",'409') &&,4091,4092')
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
IF buton = 2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
|
|
CN = locont.cont
|
|
PcACN = loCont.Acont
|
|
lans(10495)
|
|
ENDPROC && BAR_6_OF_Furnizori_FB2P
|
|
|
|
PROCEDURE BAR_7_OF_Furnizori_FB2P
|
|
PRIVATE pcACN, CN
|
|
loCont = ret_cont("Selectati contul creditor",'23,409') && 232,234 - corporale/necorporale
|
|
IF TYPE('loCont') # 'O'
|
|
RETURN
|
|
ENDIF
|
|
IF buton = 2
|
|
RELEASE loCont
|
|
RETURN
|
|
ENDIF
|
|
|
|
|
|
|
|
CN = locont.cont
|
|
PcACN = loCont.Acont
|
|
lans(10597)
|
|
ENDPROC && BAR_7_OF_Furnizori_FB2P
|
|
|
|
PROCEDURE BAR_11_OF_Furnizori_FB2P
|
|
LOCAL loCont
|
|
loCont = ret_cont("Contul debitor", "401,404,462")
|
|
If buton = 2
|
|
Release loCont
|
|
Return
|
|
Endif
|
|
|
|
|
|
lans_generic(10658,loCont.Cont, loCont.Acont)
|
|
ENDPROC && BAR_11_OF_Furnizori_FB2P
|
|
|
|
PROCEDURE BAR_13_OF_Furnizori_FB2P
|
|
Local lcCont, lcAcont, loCont
|
|
loCont=ret_cont("Selectati contul",'409') && 409,4091, 4092
|
|
If Type('loCont') # 'O'
|
|
Return
|
|
Endif
|
|
If buton=2
|
|
Release loCont
|
|
Return
|
|
Endif
|
|
lcCont = Alltrim(loCont.Cont)
|
|
lcAcont = loCont.Acont
|
|
Do Case
|
|
Case lcCont = '409'
|
|
lans(10622)
|
|
Case lcCont = '4091'
|
|
lans(10623)
|
|
Case lcCont = '4092'
|
|
lans(10624)
|
|
Endcase
|
|
|
|
ENDPROC && BAR_13_OF_Furnizori_FB2P
|
|
|
|
PROCEDURE BAR_14_OF_Furnizori_FB2P
|
|
LOCAL loCont
|
|
loCont = ret_cont("Contul creditor", "409")
|
|
If buton = 2
|
|
Release loCont
|
|
Return
|
|
Endif
|
|
|
|
|
|
lans_generic(10657,loCont.Cont, loCont.Acont)
|
|
ENDPROC && BAR_14_OF_Furnizori_FB2P
|
|
|
|
*</Procedures>
|