Dodaj raport Filtruj typy do Raporty -> Kartoteki -> Raporty z menu -> Sprzedaż
Załącznik:
hmtypy00.jpg [ 81.44 KiB | Przeglądany 2414 razy ]
o treści
Kod:
int i, iPos = SetFullPos( FS )
baseDK dk
string sTypIn
iorec iolista
//------------------------------------------------------------
string Sub GetElem(string sAll,int ElNum)
//------------------------------------------------------------
int iLicz
buf = sAll + " "
while find regular "{*}/ -"
iLicz += 1
if iLicz == ElNum then GetElem = regular 1
wend
endsub
input "Podaj typy dokumentów. Rozdziel je spacjami.", sTypIn
while iPos
dk.GetRecById( GetLineId( iPos ) )
i = 0
while GetElem(sTypIn,i+=1)
if dk.GetField("typ_dk") == GetElem(sTypIn,i) then
ioLista.SetField("id",(using "%l", GetLineId( iPos )))
endif
wend
iPos = SetFullPos( NX )
wend
ShowListWindow( ioLista, "DK" )
NoOutPut()
baseDK dk
string sTypIn
iorec iolista
//------------------------------------------------------------
string Sub GetElem(string sAll,int ElNum)
//------------------------------------------------------------
int iLicz
buf = sAll + " "
while find regular "{*}/ -"
iLicz += 1
if iLicz == ElNum then GetElem = regular 1
wend
endsub
input "Podaj typy dokumentów. Rozdziel je spacjami.", sTypIn
while iPos
dk.GetRecById( GetLineId( iPos ) )
i = 0
while GetElem(sTypIn,i+=1)
if dk.GetField("typ_dk") == GetElem(sTypIn,i) then
ioLista.SetField("id",(using "%l", GetLineId( iPos )))
endif
wend
iPos = SetFullPos( NX )
wend
ShowListWindow( ioLista, "DK" )
NoOutPut()
Raport dostępny będzie pod prawym klawiszem myszy w oknie dokumentów sprzedaży
Załącznik:
hmtypy01.jpg [ 158.05 KiB | Przeglądany 2414 razy ]
Wpisz interesujące Cię typy rozdzielając je spacją.
Załącznik:
hmtypy02.jpg [ 148.67 KiB | Przeglądany 2414 razy ]