hi,
i try it, i get "gotit1",
about "gotit2" also i git it "gotit2" becuse all the time i can find date and typ.
but i think the problem is
i have at my table mac1=io27 and io21
if insert io27 or io21 i can see it at mygrid ,
but if insert e.x io25 or io26 i get message not found all of this is grate ,
but if i insert io2 i get io27 and io21 at mygrid,
i must get not found.
>Your going to need to break it down abit to work out why its not working.
>
>LOCATE FOR month(dat)=(thisform.text2.Value) .AND. table1.mac1=ALLTRIM(thisform.text18.value )
>IF FOUND()
>wait window "gotit1"
>else
>wait window "Missed1"
>endif
>
>LOCATE FOR month(dat)=(thisform.text2.Value) AND TYP=THISFORM.TEXT24.VALUEIF FOUND()
>wait window "gotit2"
>else
>wait window "Missed2"
>endif
>
>Lets get the locate working and worry about the rest later.
>
>Jon
>
>
>>hi,
>>with locate if insert at textbox "IO2", i see at mygrid io27,becuse io2 not found ,
>>with filter if i nsert at my textbox "io27" or any mac1 as io21,1o25..., i get message not found.
>>
>>thanks.
>>>Which bit doesnt work?
>>>Do you fall into the found() part and set the filter?
>>>Is the problem with the LOCATE or the FILTER part?
>>>
>>>
>>>>hi,
>>>>i try,but the same this is the all code i use it
>>>>if you can see somthing rong
>>>>
>>>>
>>>>LOCATE FOR month(dat)=(thisform.text2.Value) .AND. table1.mac1=ALLTRIM(thisform.text18.value ) AND TYP=THISFORM.TEXT24.VALUE
>>>>
>>>>IF FOUND()
>>>>
>>>>cFilter = "MONTH(dat) == " + ALLTRIM(STR(MONTH(thisform.Text2.Value)))+ " AND "+;
>>>> "Mac1 == '" + ALLTRIM(thisform.Text18.Value) + "' AND "+;
>>>> "Typ == " + ALLTRIM(STR(thisform.Text24.Value))
>>>>
>>>>set filter to &cFilter
>>>>
>>>>
>>>>thisform.grid1.Visible=.t.
>>>>thisform.text10.visible=.t.
>>>>thisform.text11.visible=.t.
>>>>thisform.text13.visible=.t.
>>>>thisform.text14.visible=.t.
>>>>thisform.text15.visible=.t.
>>>>thisform.text16.visible=.t.
>>>> thisform.label13.visible=.t.
>>>> thisform.grid1.Refresh
>>>>*********************************************
>>>>local lnSec10,lnSec11,lnSec13,lnSec14,lnSec15,lnSec16
>>>>SUM CTOT(plan) - CTOT("0000:00:00") to lnSec
>>>>* ? PADL(INT(lnSec/3600), 2, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0") + ":" + ;
>>>> PADL(lnSec % 60,2, "0")
>>>>
>>>>SUM VAL(LEFT(plan,2))*3600 + ;
>>>> VAL(SUBSTR(plan,4,2))*60 + ;
>>>> VAL(RIGHT(plan,4)) TO lnSec
>>>>lnSec10=lnSec
>>>>
>>>>THISFORM.TEXT10.VALUE= PADL(INT(lnSec/3600), 4, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0")
>>>>
>>>>* lnCost=thisform.text3.value
>>>>*THISFORM.TEXT10.VALUE = ROUND(lnSec/3600*lnCost,2)
>>>>SUM CTOT(true) - CTOT("00:00:00") to lnSec
>>>>* ? PADL(INT(lnSec/3600), 2, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0") + ":" + ;
>>>> PADL(lnSec % 60,2, "0")
>>>>
>>>>SUM VAL(LEFT(true,2))*3600 + ;
>>>> VAL(SUBSTR(true,4,2))*60 + ;
>>>> VAL(RIGHT(true,2)) TO lnSec
>>>>lnSec11=lnSec
>>>>
>>>>THISFORM.TEXT11.VALUE= PADL(INT(lnSec/3600),4, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0")
>>>>thisform.text19.value=(lnSec11/lnSec10)*(100)
>>>>
>>>>SUM CTOT(HOT) - CTOT("0000:00:00") to lnSec
>>>>* ? PADL(INT(lnSec/3600), 2, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),4, "0") + ":" + ;
>>>> PADL(lnSec % 60,4, "0")
>>>>
>>>>SUM VAL(LEFT(HOT,4))*3600 + ;
>>>> VAL(SUBSTR(HOT,4,2))*60 + ;
>>>> VAL(RIGHT(HOT,4)) TO lnSec
>>>>lnSec13=lnSec
>>>>THISFORM.TEXT13.VALUE= PADL(INT(lnSec/3600), 4, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),4, "0")
>>>>
>>>>
>>>> THISFORM.TEXT13.VALUE= PADL(INT(lnSec/3600), 4, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0")
>>>>thisform.text20.value=(lnSec13/lnSec10)*(100)
>>>>
>>>>SUM CTOT(BALANC) - CTOT("00:00:00") to lnSec
>>>>* ? PADL(INT(lnSec/3600), 2, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0") + ":" + ;
>>>> PADL(lnSec % 60,2, "0")
>>>>
>>>>SUM VAL(LEFT(BALANC,2))*3600 + ;
>>>> VAL(SUBSTR(BALANC,4,2))*60 + ;
>>>> VAL(RIGHT(BALANC,2)) TO lnSec
>>>>lnSec14=lnSec
>>>>THISFORM.TEXT14.VALUE= PADL(INT(lnSec/3600), 4, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0")
>>>>
>>>>
>>>> THISFORM.TEXT14.VALUE= PADL(INT(lnSec/3600), 4, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0")
>>>>thisform.text21.value=(lnSec14/lnSec10)*(100)
>>>>
>>>>*********************
>>>>SUM CTOT(mint) - CTOT("00:00:00") to lnSec
>>>>* ? PADL(INT(lnSec/3600), 2, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0") + ":" + ;
>>>> PADL(lnSec % 60,2, "0")
>>>>
>>>>SUM VAL(LEFT(mint,2))*3600 + ;
>>>> VAL(SUBSTR(mint,4,2))*60 + ;
>>>> VAL(RIGHT(mint,2)) TO lnSec
>>>>lnSec15=lnSec
>>>>THISFORM.TEXT15.VALUE= PADL(INT(lnSec/3600), 4, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0")
>>>>
>>>>
>>>> THISFORM.TEXT15.VALUE= PADL(INT(lnSec/3600), 4, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0")
>>>>thisform.text22.value=(lnSec15/lnSec10)*(100)
>>>>*****************************************************
>>>>SUM CTOT(other) - CTOT("00:00:00") to lnSec
>>>>* ? PADL(INT(lnSec/3600), 2, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0") + ":" + ;
>>>> PADL(lnSec % 60,2, "0")
>>>>
>>>>SUM VAL(LEFT(other,2))*3600 + ;
>>>> VAL(SUBSTR(other,4,2))*60 + ;
>>>> VAL(RIGHT(other,2)) TO lnSec
>>>>lnSec16=lnSec
>>>>THISFORM.TEXT16.VALUE= PADL(INT(lnSec/3600), 4, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0")
>>>>
>>>>
>>>> THISFORM.TEXT16.VALUE= PADL(INT(lnSec/3600), 4, "0") + ":" + ;
>>>> PADL(INT((lnSec%3600)/60),2, "0")
>>>>thisform.text23.value=(lnSec16/lnSec10)*(100)
>>>>
>>>>********************************************* end of calculate
>>>>
>>>>RETURN
>>>>else
>>>> =messagebox(" not found ")
>>>> thisform.grid1.visible=.f.
>>>> thisform.text17.value=CTOD(" / / /")
>>>>thisform.text4.value="00:00:"
>>>>thisform.text5.value="00:00:"
>>>>thisform.text6.value="00:00:"
>>>>thisform.text7.value="00:00:"
>>>>thisform.text8.value="00:00:"
>>>>thisform.text9.value="00:00:"
>>>>thisform.text12.value=SPACE(10)
>>>>
>>>>thisform.text10.visible=.f.
>>>>thisform.text11.visible=.f.
>>>>thisform.text13.visible=.f.
>>>>thisform.text14.visible=.f.
>>>>thisform.text15.visible=.f.
>>>>thisform.text16.visible=.f.
>>>>ENDIF
>>>><pre>
>>>>thanks
>>>>
>>>>>>hi,
>>>>>>i'm sorry, but nothing at mygrid, i try browse after the code ,i see the
>>>>>> mytable bottom,
>>>>>> can i use it as locate and if found i put the same code again.
>>>>>>
>>>>>>thanks
>>>>>>><pre>
>>>>>>>cFilter = "MONTH(dat) == " + ALLTRIM(STR(MONTH(thisform.Text2.Value)))+ " AND "+;
>>>>>>> "Mac1 == '" + ALLTRIM(thisform.Text18.Value) + "' AND "+;
>>>>>>> "Typ == " + ALLTRIM(STR(thisform.Text24.Value))
>>>>>>>
>>>>>>>set filter to &cFilter
>>>>>>>>>>>>
>>>>>
>>>>>Yes I think You should add this code AFTER
>>>>>IF FOUND() statement
