&& ------------------------------ INCEPUT: VerFurnizor ------------------------------
*!* Procedura: VerFurnizor
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 23-01-2004 15:18:03
*!* Autor: ANDREI.BAUTU

PROCEDURE VerFurnizor
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Furnizori'
	lcSursa = 'Balanta de furnizori'
	
	SELE FURNIZOR
	SET FILTER TO 
	SUM PLATIT, TOTDEB, totcred TO M.PLATIT, M.TOTDEB, m.totcred
	 
	IF FLOCK()
		REPLACE ALL totdeb WITH precdeb+platit, totcred WITH preccred+achizit, TOTAVANS WITH PRECAVANS+AVANS
		UNLOCK 
	ENDIF
	SUM totcred, totdeb, totAVANS TO M.TACHIZIT, M.TPLATIT, M.TAVANS

	SELE BAL
	SET FILTER TO 
	SUM soldcred TO m.soldcred FOR LEFT(cont,3)='401'
	M.SOLD=M.SOLDCRED
	SUM totdeb-totcred TO m.solddeb FOR LEFT(cont,3)='409'

	if m.tavans # m.solddeb
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta avans fata de sold debitor 409 este ' + LTRIM(STR(M.solddeb-M.TAVANS,12)), .T., llInTabel, lnId_ref
	ENDIF

	m.sold=m.sold-m.solddeb

	IF M.sold # m.Tachizit-M.TPLATIT-M.TAVANS
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'401;409 Diferenta in sold este de: '+ LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT+M.TAVANS,12)), .T., llInTabel, lnId_ref
			
			*'Diferenta fata de sold creditor 401-sold debitor 409 este ' + LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT+M.TAVANS,12)), .T., llInTabel
	ELSE
		IF llInTabel
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Nu sunt diferente fata de sold creditor 401-sold debitor 409.', .F., llInTabel, lnId_ref
		ENDIF 
	ENDIF
ENDPROC 

&& ------------------------------ SFARSIT: VerFurnizor ------------------------------

&& ------------------------------ INCEPUT: VerCumpLun -------------------------------
*!* Procedura: VerCumpLun
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 14:38:37
*!* Autor: ANDREI.BAUTU
PROCEDURE VerCumpLun
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Furnizori'
	lcSursa = 'Facturi cumparari'

	LOCAL soldcump
	SELE CUMPlun 
	SET FILTER TO
	SUM totctva-achitat TO m.soldcump

	SELECT furnizor
	SET FILTER TO
	SUM totcred - totdeb TO m.sold

	IF m.sold <> m.soldcump 
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta intre sold furnizor si sold facturi este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref
	ELSE 			
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente Diferenta intre sold furnizor si sold facturi.', .F., llInTabel, lnId_ref
	ENDIF 
ENDPROC 
&& ------------------------------ SFARSIT: VerCumpLun ------------------------------

&& ------------------------------INCEPUT: Verfurniz404 ------------------------------ 
*!* Procedura:  Verfurniz404
*!* Parametri: llInTabel
*!* Data/Ora generarii: 03-02-2004 10:08:37
*!* Autor: ANDREI.BAUTU
PROCEDURE  Verfurniz404
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Furnizori'
	lcSursa = 'Balanta furnizori imobilizari'

	SELE furniz404
	SET FILTER TO 
	SUM PLATIT,TOTDEB,totcred TO M.PLATIT,M.TOTDEB,m.totcred
		 
	IF FLOCK()
		REPLACE ALL totdeb WITH precdeb+platit, totcred WITH preccred+achizit
		UNLOCK
	ENDIF
	SUM totcred,totdeb TO M.TACHIZIT, M.TPLATIT

	SELE BAL
	SET FILTER TO 
	SUM soldcred TO m.soldcred FOR LEFT(cont,3)='404'
	m.sold=m.soldCRED

	IF M.sold # m.Tachizit-M.TPLATIT
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta in sold 404 este ' + LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT, 12)), .T., llInTabel, lnId_ref
	ELSE 
		IF llInTabel
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Nu sunt diferente in sold 404 .', .F., llInTabel, lnId_ref
		ENDIF 
	ENDIF
ENDPROC
&& ------------------------------SFARSIT: Verfurniz404 ------------------------------ 

&& ------------------------------ INCEPUT: VerCumpLun404 ------------------------------
*!* Procedura: VerCumpLun404
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 15:27:19
*!* Autor: ANDREI.BAUTU
PROCEDURE VerCumpLun404
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Furnizori'
	lcSursa = 'Facturi cumparari 404'

	LOCAL soldcump
	SELECT cumplun404
	SET FILTER TO
	SUM totctva - achitat TO m.soldcump

	SELECT furniz404
	SET FILTER TO
	SUM totcred - totdeb TO m.sold

	IF m.sold <> m.soldcump
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de balanta analitica de facturi este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref
	ELSE
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente fata de balanta analitica de facturi.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC 
&& ------------------------------ SFARSIT: VerCumpLun404 ------------------------------

&& ------------------------------INCEPUT: Verana408 ------------------------------ 
*!* Procedura:  Verana408
*!* Parametri: llInTabel
*!* Data/Ora generarii: 03-02-2004 10:21:58
*!* Autor: ANDREI.BAUTU
PROCEDURE  Verana408
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Furnizori'
	lcSursa = 'Balanta facturi nesosite'

	SELE ANA408
	SET FILTER TO 
	 
	IF FLOCK()
		REPLACE ALL totdeb WITH precdeb+platit,totcred WITH preccred+achizit
		UNLOCK 
	ENDIF
	SUM totcred,totdeb TO M.TACHIZIT,M.TPLATIT

	SELE BAL
	SET FILTER TO 
	SUM soldcred TO m.soldcred FOR LEFT(cont,3)='408'
	M.SOLD=M.SOLDCRED
	*!*	M.SOLD=M.SOLDCRED+M.SOLD

	IF M.sold # m.Tachizit-M.TPLATIT
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta in sold 408 este ' + LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT, 12)), .T., llInTabel, lnId_ref
	ELSE 
		IF llInTabel
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Nu sunt diferente in sold 408.', .F., llInTabel, lnId_ref
		ENDIF 
	ENDIF
ENDPROC
&& ------------------------------SFARSIT: Verana408 ------------------------------ 

&& ------------------------------ INCEPUT: VerFact408 ------------------------------
*!* Procedura: VerFact408
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 15:19:38
*!* Autor: ANDREI.BAUTU
PROCEDURE VerFact408
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Furnizori'
	lcSursa = 'Facturi nesosite'

	LOCAL soldcump
	SELECT FACT408
	SET FILTER TO
	SUM totctva - achitat to m.soldcump
	
	SELECT ANA408
	SET FILTER TO
	SUM totcred - totdeb TO m.sold

	IF m.sold <> m.soldcump
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de balanta analitica facturi 408 este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref
	ELSE 			
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente fata de balanta analitica facturi 408.', .F., llInTabel, lnId_ref
	ENDIF 
ENDPROC 
&& ------------------------------ SFARSIT: VerFact408 ------------------------------









&& ------------------------------ INCEPUT: verClienti ------------------------------
*!* Procedura: verClienti
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 23-01-2004 14:46:21
*!* Autor: ANDREI.BAUTU
PROCEDURE VerClienti
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Clienti'
	lcSursa = 'Balanta de clienti'

	LOCAL M.SUM1,M.SUM2,M.SUM3,M.SUM4

	SELECT CLIENTI
	SET FILTER TO
	IF FLOCK()
		REPLACE ALL TOTDEB WITH precdeb + PRODUCTIE, ;
			totcred WITH preccred + INCASAT, ;
			TOTAVANS WITH PRECAVANS + AVANS
		UNLOCK
	ENDIF
	
	SUM TOTAVANS, totcred, TOTDEB TO m.SUM1, M.SUM2, M.SUM3
	
	SELE BAL
	SET FILTER TO
	SUM SOLDDEB TO M.SOLD FOR LEFT(CONT,3)='411' AND CONT<>"4118"
	SUM totcred-totdeb TO M.SOLDcred FOR LEFT(CONT,3)='419'

	m.SOLD = m.SOLD + m.SOLDcred
	m.SUM4 = M.SUM3-M.SUM2 + m.SUM1

	IF M.SOLD # M.SUM4
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'411+419 Diferenta soldului este de: '+ LTRIM(STR(M.SUM4-M.SOLD, 12)), .T., llInTabel, lnId_ref
			
			*'Diferenta fata de sold debitor 411-sold creditor 419 este ' + LTRIM(STR(M.SUM4-M.SOLD, 12)), .T., llInTabel
	ELSE 
		IF llInTabel
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Nu sunt diferente fata de sold debitor 411-sold creditor 419.', .F., llInTabel, lnId_ref
		ENDIF 
	ENDIF
ENDPROC 
&& ------------------------------ SFARSIT: verClienti ------------------------------

&& ------------------------------ INCEPUT: VerVanzLun ------------------------------
*!* Procedura: VerVanzLun
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 14:51:07
*!* Autor: ANDREI.BAUTU
PROCEDURE VerVanzLun
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Clienti'
	lcSursa = 'Facturi de vanzari'

	LOCAL soldvanz
	SELECT VANZlun
	SET FILTER TO
	SUM totctva-achitat TO m.soldvanz

	SELECT clienti
	SET FILTER TO
	SUM totdeb-totcred TO m.sold 

	IF m.sold <> m.soldvanz
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de clienti este ' + LTRIM(STR(m.sold - m.soldvanz, 12)), .T., llInTabel, lnId_ref
	ELSE 			
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente fata de clienti.', .F., llInTabel, lnId_ref
	ENDIF 
ENDPROC 
&& ------------------------------ SFARSIT: VerVanzLun ------------------------------

&& ------------------------------INCEPUT: VerClient4118 ------------------------------ 
*!* Procedura:  VerClient4118
*!* Parametri: llInTabel
*!* Data/Ora generarii: 03-02-2004 12:57:43
*!* Autor: ANDREI.BAUTU
PROCEDURE  VerClient4118
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Clienti'
	lcSursa = 'Balanta clienti incerti'

	Local M.SUM2,M.SUM3
	Select CLIENT4118
	Set Filter To
	If Flock()
		Replace All TOTDEB With precdeb+PRODUCTIE,totcred With preccred+INCASAT 
	Endif
	Unlock
	Sum totcred, TOTDEB To M.SUM2,M.SUM3

	Sele BAL
	Set Filter To
	Sum SOLDDEB To M.sold For Left(Cont,4)='4118'
	
	IF M.sold#M.SUM3-M.SUM2 
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta in sold 4118 este ' + LTRIM(STR(-(M.sold-M.SUM3+M.SUM2),12)), .T., llInTabel, lnId_ref
	ELSE 
		IF llInTabel
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Nu sunt diferente in sold 4118.', .F., llInTabel, lnId_ref
		ENDIF 
	ENDIF
ENDPROC
&& ------------------------------SFARSIT: VerClient4118 ------------------------------ 

&& ------------------------------ INCEPUT: VerVanzLu4118 ------------------------------
*!* Procedura: VerVanzLu4118
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 15:47:03
*!* Autor: ANDREI.BAUTU
PROCEDURE VerVanzLu4118
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Clienti'
	lcSursa = 'Facturi clienti incerti sau in litigiu'

	LOCAL soldcump
	SELECT VANZlu4118
	SET FILTER TO
	SUM totctva - achitat TO soldcump

	SELECT client4118
	SET FILTER TO
	SUM totdeb - totcred TO m.sold

	IF m.sold <> m.soldcump
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta intre sold clienti si sold facturi este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref
	ELSE
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente intre sold client si sold facturi.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC 
&& ------------------------------ SFARSIT: VerVanzLu4118 ------------------------------

&& ------------------------------INCEPUT: Verana418 ------------------------------ 
*!* Procedura:  Verana418
*!* Parametri: llInTabel
*!* Data/Ora generarii: 03-02-2004 12:30:51
*!* Autor: ANDREI.BAUTU
PROCEDURE  Verana418
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Clienti'
	lcSursa = 'Balanta facturi neintocmite'

	LOCAL M.SUM2,M.SUM3,M.SUM4
	SELECT ANA418
	SET FILTER TO 
	
	IF FLOCK()
		REPLACE ALL totdeb WITH precdeb+productie,totcred WITH preccred+incasat
	ENDIF
	UNLOCK 
	
	sum totcred, totdeb to M.SUM2, M.SUM3

	M.SUM4=m.sum3-M.SUM2

	SELE BAL
	SET FILTER TO 
	SUM SOLDDEB TO M.SOLD FOR LEFT(CONT,3)='418' 

	IF M.SOLD#M.SUM4
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta in sold 418 este '+ LTRIM(STR(M.SUM4-M.SOLD, 12)), .T., llInTabel, lnId_ref
	ELSE 
		IF llInTabel
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Nu sunt diferente in sold 418.', .F., llInTabel, lnId_ref
		ENDIF 
	ENDIF
ENDPROC
&& ------------------------------SFARSIT: Verana418 ------------------------------ 

&& ------------------------------ INCEPUT: VerFact418 ------------------------------
*!* Procedura: VerFact418
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 15:56:05
*!* Autor: ANDREI.BAUTU
PROCEDURE VerFact418
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Clienti'
	lcSursa = 'Clienti - facturi de intocmit'

	LOCAL soldcump
	SELECT Fact418
	SET FILTER TO
	SUM totctva - achitat TO m.soldcump 

	SELECT ana418 
	SET FILTER TO
	SUM totdeb - totcred TO m.sold

	IF m.sold <> m.soldcump
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta intre sold 418 si sold facturi 418 este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref
	ELSE
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente intre sold 418 si sold facturi 418.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC 
&& ------------------------------ SFARSIT: VerFact418 ------------------------------












&& ------------------------------ INCEPUT: VerDebitor ------------------------------
*!* Procedura: VerDebitor
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 23-01-2004 16:35:34
*!* Autor: ANDREI.BAUTU
PROCEDURE VerDebitor
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Alti'
	lcSursa = 'Balanta de debitori'

	Local m.SUM1,M.SUM2,M.SUM3,M.SUM4

	Select DEBITOR
	Set Filter To
	
	Select DEBITOR
	If Flock()
		Replace All TOTDEB With precdeb+DEBIT, totcred With preccred+CREDIT
		Unlock
	Endif
	Sum totcred,TOTDEB To M.SUM2, M.SUM3
	m.Sum3 = m.Sum3 - m.sum2

	Sele BAL
	Sum SOLDDEB, SOLDcred To M.SOLDDEB, M.SOLDcred For Left(Cont,3)='461'
	m.SOLD=m.SOLDDEB-m.SOLDcred

	IF M.SOLD # m.Sum3
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de sold 461 este ' + LTRIM(STR(m.Sum3-M.SOLD,12)), .T., llInTabel, lnId_ref
	ELSE
		IF llInTabel
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Nu sunt diferente fata de sold 461.', .F., llInTabel, lnId_ref
		ENDIF
	ENDIF

ENDPROC 
&& ------------------------------ SFARSIT: VerDebitor ------------------------------

&& ------------------------------ INCEPUT: VerCreditor ------------------------------
*!* Procedura: VerCreditor
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 23-01-2004 16:43:56
*!* Autor: ANDREI.BAUTU
PROCEDURE VerCreditor
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Alti'
	lcSursa = 'Balanta de creditori'

	LOCAL M.SUM2,M.SUM3

	SELECT CREDITOR
	SET FILTER TO
	IF FLOCK()
		REPLACE ALL TOTDEB WITH precdeb+DEBIT,totcred WITH preccred+CREDIT
		UNLOCK
	ENDIF
	SUM totcred,TOTDEB TO M.SUM2,M.SUM3
	m.sum2 = m.sum2 - m.sum3

	SELE BAL
	SET FILTER TO
	SUM SOLDDEB, SOLDcred TO M.SOLDdeb, M.SOLDcred FOR LEFT(CONT,3)='462' 

	m.SOLD=m.SOLDcred - m.SOLDdeb

	IF M.SOLD # m.Sum2
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de sold 462 este ' + LTRIM(STR(m.Sum2-M.SOLD,12)), .T., llInTabel, lnId_ref
	ELSE
		IF llInTabel
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Nu sunt diferente fata de sold 462.', .F., llInTabel, lnId_ref
		ENDIF
	ENDIF

ENDPROC 
&& ------------------------------ SFARSIT: VerCreditor ------------------------------

&& ------------------------------ INCEPUT: VerDividende ------------------------------
*!* Procedura: VerDividende
*!* Parametrii: llInTabel, lnId_ref
*!* Data/Ora generarii: 14-04-2004 12:51:56
*!* Autor: GEORGIANA.VOICU
PROCEDURE VerDividende
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Alti'
	lcSursa = 'Balanta dividende'

	LOCAL M.SUM2,M.SUM3

	SELECT dividende
	SET FILTER TO
	IF FLOCK()
		REPLACE ALL TOTDEB WITH precdeb+DEBIT,totcred WITH preccred+CREDIT
		UNLOCK
	ENDIF
	SUM totcred,TOTDEB TO M.SUM2,M.SUM3
	m.sum2 = m.sum2 - m.sum3

	SELE BAL
	SET FILTER TO
	SUM SOLDDEB, SOLDcred TO M.SOLDdeb, M.SOLDcred FOR LEFT(CONT,3)='457' 

	m.SOLD=m.SOLDcred - m.SOLDdeb

	IF M.SOLD # m.Sum2
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de sold 457 este ' + LTRIM(STR(m.Sum2-M.SOLD,12)), .T., llInTabel, lnId_ref
	ELSE
		IF llInTabel
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Nu sunt diferente fata de sold 457.', .F., llInTabel, lnId_ref
		ENDIF
	ENDIF

ENDPROC 
&& ------------------------------ SFARSIT: VerDividende ------------------------------

&& ------------------------------ INCEPUT: VerDebLun ------------------------------
*!* Procedura: VerDebLun
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 15:12:53
*!* Autor: ANDREI.BAUTU
PROCEDURE VerDebLun
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Alti'
	lcSursa = 'Inregistrari debitori diversi'

	LOCAL solddeb
	SELECT deblun
	SET FILTER TO
	sum totctva - achitat TO m.solddeb

	SELECT debitor 
	set filter to
	SUM totdeb - totcred TO m.sold 

	IF m.sold <> m.solddeb
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de balanta analitica debitori este ' + LTRIM(STR(m.sold - m.solddeb, 12)), .T., llInTabel, lnId_ref
	ELSE 			
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente fata de balanta analitica debitori.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC 
&& ------------------------------ SFARSIT: VerDebLun ------------------------------

&& ------------------------------ INCEPUT: VerCredLun ------------------------------
*!* Procedura: VerCredLun
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 14:57:39
*!* Autor: ANDREI.BAUTU
PROCEDURE VerCredLun
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Alti'
	lcSursa = 'Inregistrari creditori diversi'

	LOCAL soldcred

	SELECT credlun
	SET FILTER TO
	sum totctva - achitat to m.soldcred

	SELECT creditor
	SET FILTER TO
	SUM totcred - totdeb TO m.sold 
	
	IF m.sold <> m.soldcred
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de balanta analitica creditori este ' + LTRIM(STR(m.sold - m.soldcred, 12)), .T., llInTabel, lnId_ref
	ELSE 			
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente fata de balanta analitica creditori.', .F., llInTabel, lnId_ref
	ENDIF 
ENDPROC
&& ------------------------------ SFARSIT: VerCredLun ------------------------------

&& ------------------------------ INCEPUT: VerDivLun ------------------------------
*!* Procedura: VerDivLun
*!* Parametrii: llInTabel, lnId_ref
*!* Data/Ora generarii: 14-04-2004 12:47:39
*!* Autor: GEORGIANA.VOICU
PROCEDURE VerDivLun
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Alti'
	lcSursa = 'Inregistrari dividende'

	LOCAL soldcred

	SELECT divlun
	SET FILTER TO
	sum totctva - achitat to m.soldcred

	SELECT dividende
	SET FILTER TO
	SUM totcred - totdeb TO m.sold 
	
	IF m.sold <> m.soldcred
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de balanta dividende este ' + LTRIM(STR(m.sold - m.soldcred, 12)), .T., llInTabel, lnId_ref
	ELSE 			
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente fata de balanta dividende.', .F., llInTabel, lnId_ref
	ENDIF 
ENDPROC
&& ------------------------------ SFARSIT: VerDivLun ------------------------------

&& ------------------------------ INCEPUT: VerActionar ------------------------------
*!* Procedura: VerActionar
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 10:18:05
*!* Autor: ANDREI.BAUTU

PROCEDURE VerActionar
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Alti'
	lcSursa = 'Balanta de actionari'

	LOCAL M.SUM2,M.SUM3

	SELECT actionar
	SET FILTER TO
	IF FLOCK()
		REPLACE ALL TOTDEB WITH precdeb+DEBIT,totcred WITH preccred+CREDIT
		UNLOCK
	ENDIF
	SUM totcred,TOTDEB TO M.SUM2,M.SUM3
	m.sum2 = m.sum2 - m.sum3

	SELE BAL
	SET FILTER TO
	SUM SOLDDEB, SOLDcred TO M.SOLDdeb, M.SOLDcred FOR LEFT(CONT,3)='455' 

	m.SOLD=m.SOLDcred - m.SOLDdeb

	IF M.SOLD # m.Sum2
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de sold 455 este ' + LTRIM(STR(m.Sum2-M.SOLD,12)), .T., llInTabel, lnId_ref
	ELSE
		IF llInTabel
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Nu sunt diferente fata de sold 455.', .F., llInTabel, lnId_ref
		ENDIF
	ENDIF


ENDPROC 
&& ------------------------------ SFARSIT: VerActionar ------------------------------









&& ------------------------------INCEPUT: VerCasaNume ------------------------------ 
*!* Procedura:  VerCasaNume
*!* Parametri: llInTabel
*!* Data/Ora generarii: 03-02-2004 14:05:56
*!* Autor: ANDREI.BAUTU
PROCEDURE  VerCasaNume
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Trezorerie - Casa'
	lcSursa = 'Solduri case'

	LOCAL m.sum1,m.sum2,m.sum3
	Sele CASANUME
	Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2
	m.sum3=M.sum1-M.sum2
	m.SOLDDEB=0
	m.SOLDCRED=0
	Sele Bal
	Seek '5311'
	IF FOUND()
		Scatter Memvar
	ENDIF 

	IF M.SOLDDEB-M.SOLDCRED # M.sum3
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta in sold 5311 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref
	ELSE 
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente in sold 5311.', .F., llInTabel, lnId_ref
	ENDIF 
ENDPROC

&& ------------------------------SFARSIT: VerCasaNume ------------------------------ 

&& ------------------------------ INCEPUT: VerCasa ------------------------------
*!* Procedura: VerCasa
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 14:16:47
*!* Autor: ANDREI.BAUTU
PROCEDURE VerCasa
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Trezorerie - Casa'
	lcSursa = 'Registrul de casa'

*!*		SELECT BAL
*!*		LOCATE FOR cont='5311'
*!*		m.solddeb = solddeb
	Sele CASANUME
	Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2
	m.solddeb=M.sum1-M.sum2

	SELE CASA
	SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI
	IF M.TINCASARI-M.TPLATI# M.SOLDDEB
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de solduri case este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref
	ELSE
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente fata de de solduri case.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC 
&& ------------------------------ SFARSIT: VerCasa ------------------------------

&& ------------------------------INCEPUT: VerCASVNUME ------------------------------ 
*!* Procedura:  VerCASVNUME
*!* Parametri: llInTabel
*!* Data/Ora generarii: 03-02-2004 13:52:28
*!* Autor: ANDREI.BAUTU

PROCEDURE  VerCASVNUME
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Trezorerie - Casa'
	lcSursa = 'Solduri case in valuta'

	LOCAL m.sum1,m.sum2,m.sum3
	Sele CASVNUME
	Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2
	m.sum3=M.sum1-M.sum2

	Sele Bal
	Seek '5314'
	m.SOLDDEB=0
	m.SOLDCRED=0
	If Found()
		Scatter Memvar
	ENDIF 
	IF M.SOLDDEB-M.SOLDCRED # M.sum3
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta in sold 5314 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref
	ELSE 
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente in sold 5314.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC
&& ------------------------------SFARSIT: VerCASVNUME ------------------------------ 

&& ------------------------------ INCEPUT: VerCasaVal ------------------------------
*!* Procedura: VerCasaVal
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 14:16:47
*!* Autor: ANDREI.BAUTU
PROCEDURE VerCasaVal
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Trezorerie - Casa'
	lcSursa = 'Registrul de casa in valuta'

*!*		SELECT BAL
*!*		LOCATE FOR cont='5314'
*!*		m.solddeb = solddeb
	Sele CASVNUME
	Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2
	m.solddeb=M.sum1-M.sum2

	SELE CASAVal
	SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI
	IF M.TINCASARI-M.TPLATI# M.SOLDDEB
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de solduri case este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref
	ELSE
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente fata de solduri case.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC 
&& ------------------------------ SFARSIT: VerCasaVal ------------------------------











&& ------------------------------INCEPUT: VerBanNume ------------------------------ 
*!* Procedura:  VerBanNume
*!* Parametri: llInTabel
*!* Data/Ora generarii: 03-02-2004 14:23:52
*!* Autor: ANDREI.BAUTU
PROCEDURE  VerBanNume
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Trezorerie - Banca'
	lcSursa = 'Solduri banci'

	LOCAL m.sum1,m.sum2,m.sum3
	Sele BANNUME
	Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2
	m.sum3=M.sum1-M.sum2
	m.SOLDDEB=0
	m.SOLDCRED=0
	
	Sele Bal
	Seek '5121'
	IF FOUND()
		Scatter Memvar
	ENDIF 
	IF M.SOLDDEB-M.SOLDCRED # M.sum3
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta in sold 5121 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref
	ELSE
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente in sold 5121.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC
&& ------------------------------SFARSIT: VerBanNume ------------------------------ 

&& ------------------------------ INCEPUT: VerBanca ------------------------------
*!* Procedura: VerBanca
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 14:16:47
*!* Autor: ANDREI.BAUTU
PROCEDURE VerBanca
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Trezorerie - Banca'
	lcSursa = 'Registrul de banca'

*!*		SELECT BAL
*!*		LOCATE FOR cont='5121'
*!*		m.solddeb = solddeb
	Sele BANNUME
	Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2
	m.solddeb=M.sum1-M.sum2

	SELE BANCA
	SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI
	
	IF M.TINCASARI-M.TPLATI# M.SOLDDEB
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de solduri banci este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref
	ELSE
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente fata de solduri banci.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC 
&& ------------------------------ SFARSIT: VerBanca ------------------------------

&& ------------------------------INCEPUT: VerBanVNume ------------------------------ 
*!* Procedura:  VerBanVNume
*!* Parametri: llInTabel
*!* Data/Ora generarii: 03-02-2004 14:18:18
*!* Autor: ANDREI.BAUTU
PROCEDURE  VerBanVNume
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Trezorerie - Banca'
	lcSursa = 'Solduri banci in valuta'

	LOCAL m.sum1,m.sum2,m.sum3
	Sele BANVNUME
	Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2
	m.sum3=M.sum1-M.sum2
	m.SOLDDEB=0
	m.SOLDCRED=0
	Sele Bal
	Seek '5124'
	IF FOUND()
		Scatter Memvar
	ENDIF 
	IF M.SOLDDEB-M.SOLDCRED # M.sum3
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta in sold 5124 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref
	ELSE
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente in sold 5124.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC
&& ------------------------------SFARSIT: VerBanVNume ------------------------------ 

&& ------------------------------ INCEPUT: VerBancaVal ------------------------------
*!* Procedura: VerBancaVal
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 14:16:47
*!* Autor: ANDREI.BAUTU
PROCEDURE VerBancaVal
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Trezorerie - Banca'
	lcSursa = 'Registrul de banca in valuta'

*!*		SELECT BAL
*!*		LOCATE FOR cont='5124'
*!*		m.solddeb = solddeb
	Sele BANVNUME
	Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2
	m.solddeb=M.sum1-M.sum2
	
	SELE BANCAVal
	SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI
	IF M.TINCASARI-M.TPLATI# M.SOLDDEB
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de solduri banci este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref
	ELSE
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente fata de solduri banci.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC 
&& ------------------------------ SFARSIT: VerBancaVal ------------------------------







&& ------------------------------INCEPUT: VerCecNume ------------------------------ 
*!* Procedura:  VerCecNume
*!* Parametri: llInTabel
*!* Data/Ora generarii: 03-02-2004 14:30:32
*!* Autor: ANDREI.BAUTU
PROCEDURE  VerCecNume
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Trezorerie - Alte'
	lcSursa = 'Cec - Solduri'

	LOCAL m.sum1,m.sum2,m.sum3
	Sele CecNume
	Sum INCARCAT +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2
	m.sum3=M.sum1-M.sum2
	m.SOLDDEB=0
	m.SOLDCRED=0
	Sele Bal
	Seek '5112'
	IF FOUND()
		Scatter Memvar
	ENDIF 
	IF M.SOLDDEB-M.SOLDCRED # M.sum3
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta in sold 5112 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref
	ELSE
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente in sold 5112.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC
&& ------------------------------SFARSIT: VerCecNume ------------------------------ 

&& ------------------------------ INCEPUT: VerCec ------------------------------
*!* Procedura: VerCec
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 14:16:47
*!* Autor: ANDREI.BAUTU
PROCEDURE VerCec
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Trezorerie - Alte'
	lcSursa = 'Cec - Registrul de operatiuni'

*!*		SELECT BAL
*!*		LOCATE FOR cont='5112'
*!*		m.solddeb = solddeb
	Sele CecNume
	Sum INCARCAT +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2
	m.solddeb=M.sum1-M.sum2
	
	SELE CEC
	SUM INCARCAT, PLATI TO m.tINCASARI, M.tPLATI
	IF M.TINCASARI-M.TPLATI# M.SOLDDEB
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de solduri CEC este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref
	ELSE
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente fata de solduri CEC.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC 
&& ------------------------------ SFARSIT: VerCec ------------------------------

&& ------------------------------ INCEPUT: VerAchit542 ------------------------------
*!* Procedura: VerAchit542
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 09:51:54
*!* Autor: ANDREI.BAUTU
PROCEDURE VerAchit542
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Trezorerie - Alte'
	lcSursa = 'Balanta de achizitori'

	Local m.SUM1,M.SUM2,M.SUM3,M.SUM4
	Select achit542
	Set Filter To

	IF Flock()
		Replace All TOTDEB With precdeb+DEBIT, totcred With preccred+CREDIT
		UNLOCK 
	ENDIF 
	Sum totcred, TOTDEB To M.SUM2, M.SUM3
	M.SUM1 = M.Sum3-m.sum2

	Sele BAL
	Set Filter To
	Sum SOLDDEB, SOLDcred To M.SOLDDEB, M.SOLDcred For Left(Cont,3)='542'
	m.SOLD=m.SOLDDEB-m.SOLDcred

	If M.SOLD # M.SUM1
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de sold 542 este ' + LTRIM(STR(m.Sum1-M.SOLD,12)), .T., llInTabel, lnId_ref
	ELSE
		IF llInTabel
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Nu sunt diferente fata de sold 542.', .F., llInTabel, lnId_ref
		ENDIF
	ENDIF

ENDPROC 
&& ------------------------------ SFARSIT: VerAchit542 ------------------------------

&& ------------------------------ INCEPUT: VerAchiLun ------------------------------
*!* Procedura: VerAchiLun
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 16:08:22
*!* Autor: ANDREI.BAUTU
PROCEDURE VerAchiLun
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Trezorerie - Alte'
	lcSursa = 'Avansuri de trezorerie'

	LOCAL soldcump
	SELE achilun
	SET FILTER TO
	SUM totctva - achitat TO m.soldcump

	sele achit542 
	set filter to
	SUM totdeb - totcred TO m.sold

	IF m.sold <> m.soldcump
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta intre sold achizitori si sold inregistrari este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref
	ELSE
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente intre sold achizitori si sold inregistrari.', .F., llInTabel, lnId_ref
	ENDIF
ENDPROC 
&& ------------------------------ SFARSIT: VerAchiLun ------------------------------






&& ------------------------------ INCEPUT: VerCump ------------------------------
*!* Procedura: VerCump
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 11:33:20
*!* Autor: ANDREI.BAUTU
PROCEDURE VerCump
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Furnizori'
	lcSursa = 'Registrul de cumparari'

	LOCAL llDiferente
	m.stotctva=0
	SELE act
	SUM suma TO m.f767 FOR LEFT(scc,3) = '767' AND INLIST(LEFT(scd,3),'401','404')

	SELECT BAL
*!*		SEEK '767 '
*!*		m.f767=rulcred
	SEEK '401 '
	m.f401=rulcred
	SEEK '404 '
	m.f404=rulcred
	m.f401404=m.f401+m.f404-M.F767
	seek '4426'
	m.f4426=ruldeb

	SELECT CUMP
	SUM totctva, neimpozab, totftvaI, tvaI, totftvaM, tvaM ;
		TO m.Stotctva, m.Sneimpozab, m.StotftvaI, m.StvaI, m.StotftvaM, m.StvaM
	M.ADUN=m.Sneimpozab + m.StotftvaI + m.StvaI + m.StotftvaM + m.StvaM
	IF M.STOTCTVA # M.ADUN
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta este ' + LTRIM(STR(M.STOTCTVA-M.ADUN, 12)), .T., llInTabel, lnId_ref
		llDiferente = .T.
	ENDIF 
	SELECT cump
	SUM totctva	TO m.stotctva FOR INLIST(LEFT(scc,3),'401','404')
	
	IF M.STOTCTVA # M.f401404
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de 401+404 este ' + LTRIM(STR(M.STOTCTVA-M.f401404, 12)), .T., llInTabel, lnId_ref
		llDiferente = .T.
	ENDIF 
	IF  m.f4426 # m.StvaM + m.stvai
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta de TVA este ' + LTRIM(STR(m.f4426-m.StvaM-m.stvai, 12)), .T., llInTabel, lnId_ref
		llDiferente = .T.
	ENDIF
	IF !llDiferente AND llInTabel 
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente.', .F., llInTabel, lnId_ref
	ENDIF 
ENDPROC 
&& ------------------------------ SFARSIT: VerCump ------------------------------

&& ------------------------------ INCEPUT: VerVanz ------------------------------
*!* Procedura: VerVanz
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 11:48:29
*!* Autor: ANDREI.BAUTU
PROCEDURE VerVanz
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Terti - Clienti'
	lcSursa = 'Registrul de vanzari'

	LOCAL m.f461, llDiferente
	SELECT vanz
	SUM totctva, neimpozab, totftvaI, tvaI, totftvaM, tvaM ;
		TO m.Stotctva, m.Sneimpozab, m.StotftvaI, m.StvaI, m.StotftvaM, m.StvaM
	M.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+m.StotftvaM+m.StvaM

	IF M.STOTCTVA # M.ADUN
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta este ' + LTRIM(STR(M.STOTCTVA-M.ADUN, 12)), .T., llInTabel, lnId_ref
		llDiferente = .T.
	ENDIF 

	SELE act
	SUM suma TO m.f667 FOR LEFT(scd,3) = '667' AND INLIST(LEFT(scc,3),'411')
	
	SELE BAL
*!*		SEEK '667 '
*!*		m.f667=rulDEB

	SEEK '461 '
	m.f461=IIF(FOUND(), rulDEB, 0)

	SUM RULDEB TO M.RULDEB FOR LEFT(CONT,3)='411' AND cont<>'4118'

	sele vanz
	Sum totctva,neimpozab,totftvaI,tvaI,totftvaM,tvaM;
		TO m.stotctva,m.Sneimpozab,m.StotftvaI,m.StvaI,;
		M.StotftvaM,m.StvaM For Left(SCD,3)='411' And scd<>'4118'
		
	SUM tvam, tvai TO tvam419, tvai419 FOR LEFT(scd,3) = '419'

	m.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+;
		M.StotftvaM+m.StvaM

	If M.stotctva + (tvam419 + tvai419) != M.ruldeb - M.f667
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta fata de 411 este: '+ LTRIM(STR(M.stotctva + (tvam419 + tvai419)-M.ruldeb+M.f667,12)), .T., llInTabel, lnId_ref
		llDiferente = .T.
	ENDIF
	
	
*!*		SUM totctva, neimpozab, totftvaI, tvaI, totftvaM, tvaM ;
*!*			TO m.Stotctva, m.Sneimpozab, m.StotftvaI, m.StvaI, m.StotftvaM, m.StvaM ;
*!*			FOR LEFT(SCD,3)='411' AND cont<>'4118'
*!*		   
*!*		M.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+m.StotftvaM+m.StvaM
*!*		   
*!*		IF M.STOTCTVA != M.RULDEB-M.F667
*!*			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
*!*				'Diferenta fata de 411 este ' + LTRIM(STR(M.STOTCTVA-M.RULDEB+M.F667, 12)), .T., llInTabel, lnId_ref
*!*			llDiferente = .T.
*!*		ENDIF 

	IF !llDiferente AND llInTabel 
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente.', .F., llInTabel, lnId_ref
	ENDIF 
ENDPROC 
&& ------------------------------ SFARSIT: VerVanz ------------------------------

&& ------------------------------ INCEPUT: VerBal -------------------------------
*!* Procedura: VerBal
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 12:00:13
*!* Autor: ANDREI.BAUTU
PROCEDURE VerBal
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = ''
	lcSursa = 'Balanta'

	local trd, trc, s, pd, pc, td, tc, llDiferente
	store 0 to trd,trc,s,pd,pc,td,tc
	SELECT ACT
	SET FILTER TO
	SUM SUMA to S

	SELE BAL
	SUM RULDEB, RULCRED, precdeb, preccred TO TRD, TRC, pd, pc
	IF TRD<>TRC
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Balanta dezechilibrata cu ' + LTRIM(STR(TRC-TRD, 12)), .T., llInTabel, lnId_ref
		llDiferente = .T.
	ENDIF
	IF TRc<>s
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferente intre jurnal si balanta pe credit este ' + LTRIM(STR(TRC-S, 12)), .T., llInTabel, lnId_ref
		llDiferente = .T.
	ENDIF 
	IF TRD<>s
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferente intre jurnal si balanta pe debit este ' + LTRIM(STR(TRD-S, 12)), .T., llInTabel, lnId_ref
		llDiferente = .T.
	ENDIF

	SELECT calendar
	LOCATE FOR nl=pcnl and an=pcan
	SKIP -1
	if bof() OR !FOUND()
		RETURN 
	ENDIF
	dateprec = calefirma+'\an'+an+'\date'+nl
	use &dateprec\bal in 0 alias bal_prec
	SELECT bal_prec
	SUM totdeb, totcred, solddeb, soldcred to td, tc, sd, sc

	IF m.nl<>'01'
		IF pd<>td
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pd-td, 12)), .T., llInTabel, lnId_ref
			llDiferente = .T.
		ENDIF
		IF pc<>tc
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pc-tc, 12)), .T., llInTabel, lnId_ref
			llDiferente = .T.
		ENDIF 
	ELSE 
		IF  pd<>sd 
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pd-sd, 12)), .T., llInTabel, lnId_ref
			llDiferente = .T.
		ENDIF 
		IF  pc<>sc
			DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
				'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pc-sc, 12)), .T., llInTabel, lnId_ref
			llDiferente = .T.
		ENDIF 
	ENDIF
	use in bal_prec
	IF !llDiferente AND llInTabel 
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente.', .F., llInTabel, lnId_ref
	ENDIF 
	
m.nl=pcnl
m.an=pcan
	
ENDPROC 
&& ------------------------------ SFARSIT: VerBal ------------------------------

&& ------------------------------ INCEPUT: VerAct ------------------------------
*!* Procedura: VerAct
*!* Parametrii: llInTabel
*!* Data/Ora generarii: 27-01-2004 12:14:27
*!* Autor: ANDREI.BAUTU
PROCEDURE VerAct
	LPARAMETERS llInTabel, lnId_ref

	LOCAL lcCategorie, lcSursa
	lcCategorie = 'Diverse'
	lcSursa = 'Registrul jurnal'

	local trd,trc,s,pd,pc,td,tc, llDiferente
	store 0 to trd,trc,s,pd,pc,td,tc
	SELECT ACT
	SET FILTER TO
	sum SUMA to S

	SELE BAL
	SUM RULDEB,RULCRED,precdeb,preccred TO TRD,TRC,pd,pc
	IF TRD<>TRC
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Balanta dezechilibrata cu ' + LTRIM(STR(TRC-TRD, 12)), .T., llInTabel, lnId_ref
		llDiferente = .T.
	ENDIF
	IF (TRc<>s)
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta intre jurnal si balanta pe credit este ' + LTRIM(STR(TRC-S, 12)), .T., llInTabel, lnId_ref
		llDiferente = .T.
	endif
	IF (TRD<>s)
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Diferenta intre jurnal si balanta pe debit este ' + LTRIM(STR(TRD-S, 12)), .T., llInTabel, lnId_ref
		llDiferente = .T.
	ENDIF		
	IF !llDiferente AND llInTabel 
		DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ;
			'Nu sunt diferente.', .F., llInTabel, lnId_ref
	ENDIF 
ENDPROC 
&& ------------------------------ SFARSIT: VerAct -------------------------------------

&& ------------------------------INCEPUT: VerificareLunaDeschisa ------------------------------ 
*!* Procedura:  VerificareLunaDeschisa
*!* Parametri: llInTabel
*!* Data/Ora generarii: 03-02-2004 14:39:07
*!* Autor: ANDREI.BAUTU
PROCEDURE VerificareLunaDeschisa
	LPARAMETERS llInTabel
	sterge_mesaje()

&& Diverse
	DO VerBal IN verifica WITH llInTabel, 1
	
	*DO VerAct IN verifica WITH llInTabel, 36

&& Terti - Furnizori
	DO VerCump IN verifica WITH llInTabel, 11
	
	DO VerFurnizor IN verifica WITH llInTabel, 9
	DO VerCumpLun IN verifica WITH llInTabel, 10

	DO Verfurniz404 IN verifica WITH llInTabel, 13
	DO VerCumpLun404 IN verifica WITH llInTabel, 14

	DO Verana408 IN verifica WITH llInTabel, 19
	DO VerFact408 IN verifica WITH llInTabel, 20

*	DO VerAvans409 in verifica WITH llInTabel

&& Terti - Clienti
	DO VerVanz IN verifica WITH llInTabel, 5
	
	DO VerClienti IN verifica WITH llInTabel, 3
	DO VerVanzLun IN verifica WITH llInTabel, 4

	DO VerClient4118 IN verifica WITH llInTabel, 7
	DO VerVanzLu4118 IN verifica WITH llInTabel, 8

	DO Verana418 IN verifica WITH llInTabel, 25
	DO VerFact418 IN verifica WITH llInTabel, 26

*	DO VerAvans419 in verifica WITH llInTabel

&& Terti - Alti
	DO VerDebitor IN verifica WITH llInTabel, 15
	DO VerDebLun IN verifica WITH llInTabel, 16
	
	DO VerCreditor IN verifica WITH llInTabel, 17
	DO VerCredLun IN verifica WITH llInTabel, 18
	
	DO VerDividende IN verifica WITH llInTabel, 34
	DO VerDivLun IN verifica WITH llInTabel, 35

	DO VerActionar IN verifica WITH llInTabel, 36

&& Trezorerie - Casa
	DO VerCasaNume IN verifica WITH llInTabel, 21
	DO VerCasa IN verifica WITH llInTabel, 21

	DO VerCASVNUME IN verifica WITH llInTabel, 22
	DO VerCASAVal IN verifica WITH llInTabel, 22

&& Trezorerie - Banca
	DO VerBanNume IN verifica WITH llInTabel, 23
	DO VerBanca IN verifica WITH llInTabel, 23

	DO VerBanVNume IN verifica WITH llInTabel, 24
	DO VerBancaVal IN verifica WITH llInTabel, 24

&& Trezorerie - Alte
	DO VerCecNume IN verifica WITH llInTabel, 31
	DO VerCec IN verifica WITH llInTabel, 31

	DO VerAchit542 IN verifica WITH llInTabel, 28
	DO VerAchiLun IN verifica WITH llInTabel, 29



*!*		if(llInTabel)
*!*			raport_mesaje()
*!*		ENDIF 
ENDPROC
&& ------------------------------SFARSIT: VerificareLunaDeschisa ------------------------------