Форум

SetKey(-8,{||Print1(),1})
...............
static Function Print1()
sScope:=Mdoc->NNOPER
DbPush("Mdocm","Tag_Oper_","NNOPER_==sScope")
//SetScope("NNOPER_+UPPER(Grup+NNum+MDim+Partia+Sclad)",sScope)
//Select("MDOC")
DbPush("Mdoc","RBook_D","NNOPER==sScope")
Print_FastReport(Category,ReportTemplate,.T.)
AltD()
return

Private aAmounts:=   {{"ID", "C", 22, 0}, ;//id записи
                     {"GRUP", "C", 5,0},;//группа продаж
                     {"NNUM", "C", 13,0},;//номер продаж
                     {"BOM", "C", 30,0},;//код спец
                     {"DATE", "D", 8,0},;//дата потребности
                     {"Amount", "N", 19,3},;//сумма
                     {"KOL", "N", 19,6},;//затребован колич
                     {"NZ_OK", "L", 1, 0}, ;//признак формир НЗ
                     {"NZ_NUM", "C", 6, 0}, ;//ном НЗ
                     {"ID_ORDER", "C", 22, 0}, ;//ИД заказа
                     {"Partner", "C", 6, 0}, ;//Код партнёра
                     {"ORDER_NUM", "C", 6, 0}, ;//Код заказа, я его так и не использую
                     {"STATUS", "C", 1, 0}, ;
                     {"ID_STR", "C", 22, 0}, ;//ИД строки заказа
                     {"FullName", "C", 250, 0}, ;
                     {"RAZMER", "C", 35, 0}, ;
                     {"Comment", "M", 4, 0},;
                     {"Sclad", "C", 6, 0},;//Код Склад хранения в продажах
                     {"DIV", "C", 6, 0},;//Код выпуск цех
                     {"NZ_ID", "C", 22, 0}}//ИД НЗ
/*STATUS - 1 поступил в утверждённый заказ, 2 - поступил в цех, 3 - изготовлен, 4 - отгружен*/
    dbPush()
    aADD(aTagName,"S_DATE")
    aADD(aTagName,"bom")
    aADD(aTagName,"DATE")
    aADD(aTagName,"BOMDATE")
    aADD(aTagName,"NEED2MAKE")
    aADD(aTagName,"ID_STR")
    aADD(aTagName,"ID_ORDER")
    aADD(aTagName,"NZ_ID")
    aADD(aTagName,"STATUS")



    aADD(aIndexKey,"Dtos(DATE)+UPPER(STATUS)")
    aADD(aIndexKey,"UPPER(GRUP+NNUM+BOM)+ID")
    aADD(aIndexKey,"Dtos(DATE)+UPPER(LEFT(FULLNAME,10))")
    aADD(aIndexKey,"(Dtos(DATE)+UPPER(BOM))")
    aADD(aIndexKey,"Dtos(DATE)+UPPER(LEFT(FULLNAME,15))")
    aADD(aIndexKey,"ID_STR")
    aADD(aIndexKey,"ID_ORDER")
    aADD(aIndexKey,"NZ_ID")
    aADD(aIndexKey,"STATUS+UPPER(PARTNER)+UPPER(GRUP+NNUM)")

    aADD(aForKey,"")
    aADD(aForKey,'')
    aADD(aForKey,'')
    aADD(aForKey,'')
    aADD(aForKey,'NZ_OK==.F.')
    aADD(aForKey,'')
    aADD(aForKey,'')
    aADD(aForKey,'')
    aADD(aForKey,'')

oDoc:AddRow("Группа продаж","Н\Н продаж","Код спецификации","Код партии",Количество(число),,,,,,,,,,,,,)  /

/*METHOD AddRow(cGrup,cNNum,cMDim,cPartia,nKolOut,cEd1,nR,cNNOPERM,aAuto,aSerNo,;
     cPrd_Grup, cPrd_NNUM, cPrd_Bom, cDef_Grup, cDef_NNUM, cDef_mDim, cNZ_ID, cCommentM )*/

Procedue StartPlugin()
Memvar PROVERKA
Private PROVERKA
.......
OtherProcedure()
......
return



STATIC Procedure OtherProcedure()
//Переменная PROVERKA не определена в данной процедуре.
//Но к ней можно обратиться. ИМХО неправильно.
.........
PROVERKA:=11
.......
return

STATIC Procedure OtherProcedure()
Memvar PROVERKA
.........
PROVERKA:=11
.......
return

STATIC Procedure OtherProcedure(PROVERKA)
.........
//Или Local PROVERKA
PROVERKA:=11
.......
return

WHILE !RLOCK()
ENDDO