romfast/roacontracte
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
9566268f5a2bad2a50f8c5911e679bc5177f9208
roacontracte/Programe/verifica.prg
Marius Mutu 7cc3bff358 Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored) 
Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md:
- .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu)
- 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2)
- Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti
- Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back)
- CLAUDE.md, docs/README.md, roa_sync.bat

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
2026-08-03 01:51:36 +03:00

1486 lines
44 KiB
Plaintext
Raw Blame History

&& ------------------------------ 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 ------------------------------
Reference in New Issue View Git Blame Copy Permalink