Marius Mutu
63f3828d5e
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
1486 lines
43 KiB
Plaintext
1486 lines
43 KiB
Plaintext
&& ------------------------------ 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 ------------------------------ |