|
Главная Новый форум |
||
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in| Search found 9 matches |
| Author | Message |
|---|---|
 Topic: Объединенная накладная-заказ |
|
| Vic2007 Replies: 15 Views: 42313 |
 Forum: Программирование в БЭСТ-4 Posted: 30 Mar 2007 06:30 Subject: Объединенная накладная-заказ |
|
aScope :=rbookm1->(SetScope("UPPER(DopCode)",rbook1->(UPPER(STATUS+DopCode)))) //фильтр не ставиться?! altd() изменил, сделал aScope :=rbookm1 ... |
|
| Topic: Объединенная накладная-заказ |
|
| Vic2007 Replies: 15 Views: 42313 |
Forum: Программирование в БЭСТ-4 Posted: 29 Mar 2007 13:34 Subject: Объединенная накладная-заказ |
| Получилос так ->
aScope :=rbookm1->(SetScope("UPPER(DopCode)",rbook1->(UPPER(STATUS+DopCode)))) //фильтр не ставиться?! altd() // F6 -> смотрю rbookm1 fi ... |
|
| Topic: Объединенная накладная-заказ |
|
| Vic2007 Replies: 15 Views: 42313 |
Forum: Программирование в БЭСТ-4 Posted: 29 Mar 2007 12:46 Subject: Объединенная накладная-заказ |
| #include "excel.ch"
#include 'inkey.ch' Function main() LOCAL KolSum:=0, nLine:=0, indnomer:=1, aScope, aScope2 aRbookm1:={} dbpush() aSetKey:=SaveSetKey() netuse("rbook1",L ... |
|
| Topic: Объединенная накладная-заказ |
|
| Vic2007 Replies: 15 Views: 42313 |
Forum: Программирование в БЭСТ-4 Posted: 28 Mar 2007 09:22 Subject: Объединенная накладная-заказ |
| результат такой -> все классно, но почему-то фильтр не ставиться по SetScope. Привожу код ->
Function main() LOCAL KolSum:=0, nLine:=0, indnomer:=1 aRbookm1:={} dbpush() aSetKey:=SaveSetKey() netuse("rbook1",LOADPATH()+"\ ... |
|
| Topic: Объединенная накладная-заказ |
|
| Vic2007 Replies: 15 Views: 42313 |
Forum: Программирование в БЭСТ-4 Posted: 28 Mar 2007 09:21 Subject: Объединенная накладная-заказ |
| результат такой -> все классно, но почему-то фильтр не ставиться по SetScope. Привожу код ->
Function main() LOCAL KolSum:=0, nLine:=0, indnomer:=1 aRbookm1:={} dbpush() aSetKey:=SaveSetKey() netuse("rbook1",LOADPATH()+"\ ... |
|
| Topic: Объединенная накладная-заказ |
|
| Vic2007 Replies: 15 Views: 42313 |
Forum: Программирование в БЭСТ-4 Posted: 28 Mar 2007 09:20 Subject: Объединенная накладная-заказ |
| Function main()
LOCAL KolSum:=0, nLine:=0, indnomer:=1 aRbookm1:={} dbpush() aSetKey:=SaveSetKey() netuse("rbook1",LOADPATH()+"\real\rbook.dbf") netuse("rbookm1", ... |
|
| Topic: Объединенная накладная-заказ |
|
| Vic2007 Replies: 15 Views: 42313 |
Forum: Программирование в БЭСТ-4 Posted: 28 Mar 2007 09:17 Subject: Фильтр не ставится?! |
| #include "excel.ch"
#include 'inkey.ch' Function main() LOCAL KolSum:=0, nLine:=0, indnomer:=1 aRbookm1:={} dbpush() aSetKey:=SaveSetKey() netuse("rbook1",LOADPATH()+" ... |
|
| Topic: Объединенная накладная-заказ |
|
| Vic2007 Replies: 15 Views: 42313 |
Forum: Программирование в БЭСТ-4 Posted: 27 Mar 2007 10:47 Subject: Объединенная накладная-заказ |
попробовал посчитать тоннаж. ВОПРОС что за база metka__ - это кол-во отмеченных записей в реестре. То правильно посчитает, а после компиляции -> 0кг и все. Что я написал не так? И галочки в реестре не снимаются! 
Function main() LOCAL KolSum:=0, nLine:=0, NumStr:=0 dbpush() aSetKey:=SaveSetKey() netuse(&quo ... |
|
| Topic: Объединенная накладная-заказ |
|
| Vic2007 Replies: 15 Views: 42313 |
Forum: Программирование в БЭСТ-4 Posted: 27 Mar 2007 06:02 Subject: Объединенная накладная-заказ |
| Привет, всем! Несколько заказов объединяем в один, выясняем тоннаж для рещения какая машина поедет. Создал несколько заказов в УП. Попробовал создать сп.функцию Ctrl-F5 для переноса в Excel. Работает только с одним документом, хотя отмечено несколько.
Прошу помочь. Вообще хотелось вычислять для начала тоннаж суммы заказов. #include "excel.ch" Function Main() LOCAL oApp,oW ... |
|
All times are GMT + 4 Hours |
