Konu: ilginç bir hata mesaji
asagidaki kod command window da
do borc_takip_raporu.prg
seklinde yada prg icindeki kodlari
execute selection
yaparak hatasiz calisiyor ancak ;
menu uzerinden command yolu ile yada procedure icine kopyalayarak calistirildiginda yada form filtre ekranindan sonra cagirildiginda kisaca her turlu olarak asagidaki hatayi veriyor.
hata mesaji dogrultusunda hata mesajina sebeb olacak hatali yeri bir turlu bulamadim
NOT : foxcode.dbf icinde Intellisense le kullanmak üzere actigim kayitlar var ama onunla ne ilgisi var hatanin oda ayri bir sorun
Error Number : 11
Error Message: Function Argument Value,type or count is invalid
Error Line : Foxcode table not found,is not correct version or is incompatible
SET ENGINEBEHAVIOR 70
SET REPORTBEHAVIOR 80
SET DELETED ON
Local lcAlisFisCodes,lcExceptCodes,gcData03,lcCekCodes,lcCariCodes,lcChBetween,lcChGroup
m.lcAlisFisCodes = [ '001','003','005','011','013','015','025','027','036','038' ]
m.lcExceptCodes = [ '042','043','046','047' ]
m.gcData03 = "d:\soykan\mysoftware\depomatik\Data03"
m.lcCekCodes = [ '301','302' ]
m.lcCariCodes = [ '102','104','105','108','113','116' ]
m.lcChGroup = [000]
m.lcChBetween = ''
Select cari.ckodu,cari.cadi,;
ALLTRIM(chgrp.kod)+"-"+chgrp.tanim As chgrubu,;
CouNT(*) as ftsayisi,;
stokhb.islemno,;
DATE() - ( AVG(DATE()-stokhb.tarih)) as AlisOrtVade,;
ALLTRIM(fistipi.kod)+"-"+Alltrim(fistipi.tanim) As islemtipi,;
SUM(stokhb.altgtoplam) As AlisFtToptutari;
From Addbs(m.gcData03)+'stokhb' ;
full Join Addbs(m.gcData03)+'cari' On cari.ckodu=stokhb.ckodu ;
full Join Addbs(m.gcData03)+'chgrp' On chgrp.kod=cari.chgrup ;
full Join Addbs(m.gcData03)+'fistipi' On fistipi.kod=stokhb.fiskodu ;
WHERE Inlist(stokhb.fiskodu,&lcAlisFisCodes) And ;
Not Inlist(stokhb.fiskodu,&lcExceptCodes) ;
GROUP By 1;
INTO Cursor CrsAlisFaturalari NOFILTER Readwrite
&&BROWSE
Select cari.ckodu,cari.cadi,;
ALLTRIM(chgrp.kod)+"-"+chgrp.tanim As chgrubu,;
CouNT(*) as chTahssayisi,;
carih.islemno,carih.tarih,Alltrim(fistipi.kod)+"-"+Alltrim(fistipi.tanim) As islemtipi,;
DATE() - ( AVG(DATE()-carih.tarih)) As ChTahOrtVade,;
SUM(carih.tutar) As tutar;
From Addbs(m.gcData03)+'carih' ;
left Join Addbs(m.gcData03)+'cari' On cari.ckodu=carih.ckodu ;
full Join Addbs(m.gcData03)+'chgrp' On chgrp.kod=cari.chgrup ;
full Join Addbs(m.gcData03)+'fistipi' On fistipi.kod=carih.fiskodu ;
WHERE Inlist(carih.fiskodu,&lcCariCodes);
GROUP By 1;
INTO Cursor CrsCarih NOFILTER READWRITE
&&BROWSE
Select cari.ckodu,cari.cadi,;
ALLTRIM(chgrp.kod)+"-"+chgrp.tanim As chgrubu,;
CouNT(*) as CekTahsSayisi,;
cek.islemno,cek.tarih,Alltrim(fistipi.kod)+"-"+Alltrim(fistipi.tanim) As islemtipi,;
DATE() - ( AVG(DATE()-cek.ortvade)) As CekTahOrtVade,;
SUM(cek.tutar) As tutar;
From Addbs(m.gcData03)+'cek' ;
full Join Addbs(m.gcData03)+'cari' On cari.ckodu=cek.ckodu ;
full Join Addbs(m.gcData03)+'chgrp' On chgrp.kod=cari.chgrup ;
full Join Addbs(m.gcData03)+'fistipi' On fistipi.kod=cek.fiskodu ;
WHERE Inlist(cek.fiskodu,&lcCekCodes);
GROUP By 1;
INTO Cursor CrsCek NOFILTER READWRITE
&&BROWSE
Select cari.ckodu,;
Cari.cadi,;
NVL(CrsAlisFaturalari.ftSayisi,00000) as FtSayisi,;
NVL(CrsAlisFaturalari.AlisOrtVade,{//}) as alisOrtVade,;
nvl(CrsAlisFaturalari.AlisFtToptutari,000000.00) as AlisftTopTutari,;
NVL(CrsCarih.chTahsSayisi,00000) as ChTahsSayisi,;
NVL(CrsCarih.ChTahOrtVade,{//}) as ChTahOrtVade,;
NVL(CrsCarih.tutar,000000.00) as CariTahsilat,;
NVL(CrsCek.CekTahsSayisi,00000) as CekTahsSayisi,;
NVL(CrsCek.CekTahOrtVade,{//}) as CekOrtVade,;
NVL(CrsCek.tutar,000000.00) as CekTopTutar ,;
NVL(CrsCek.CekTahOrtVade - CrsAlisFaturalari.AlisOrtVade,0000) as Gun;
from Addbs(m.gcData03)+'cari' ;
full Join CrsAlisFaturalari On CrsAlisFaturalari.ckodu = cari.ckodu;
full Join CrsCarih On CrsCarih.ckodu = cari.ckodu;
full Join CrsCek On CrsCek.ckodu = Cari.ckodu;
GROUP BY 1;
INTO Cursor CrsResult NOFILTER READWRITE
DELETE FROM CrsResult WHERE (AlisftTopTutari=0 AND CariTahsilat=0 AND CekTopTutar=0)
&& BROWSE
REPORT FORM "rapor\borc_takip" TO PRINTER PROMPT PREVIEW
&&Local LcReportName
&&Store m.LdStart To tar1
&&Store m.LdEnd To tar2
&&Store Thisform.txtckodu.Value To ckod1
&&Store Thisform.txtckodu1.Value To ckod2
&&m.LcReportName='borc_takip.frx'
&&Do Form Form\repdialog With (m.LcReportName),'80'