uconststring.dfm

delphi 源码 小型企业管理软件

          '  --'#25554#20837#34920#20307
          '  select poid, spno, qtyPO, khid, price, amt, boid=space(20)'
          '  into #temp3'
          '  from mrp'
          '  where poid=%0:s'
          ''
          '  update #temp3'
          '  set boid=b.boid'
          '  from #temp3 a, #temp2 b'
          '  where a.khid=b.khid'
          ''
          '  insert into boBody(boid, ljno, qty, price, amt)'
          '  select boid, spno, qtyPO, price, amt'
          '  from  #temp3'
          ''
          '  --'#20462#25913#21830#21697#24211#23384#37327#65306#36229#20986#38656#27714#30340#25968#37327#35760#20837#24050#36141#26410#22238#25968#37327
          
            '  select spno,QtyMore=ISNULL(InvQtyUsed,0)+ISNULL(InvQtyComing,0' +
            ')+ISNULL(QtyPO,0)-ISNULL(qtyNeed,0)'
          '  into #t_1'
          '  from mrp'
          '  where poid=%0:s'
          ''
          '  update sp'
          '  set InvQtyComing=ISNULL(a.InvQtyComing,0) + b.QtyMore'
          '  from sp a, #t_1 b'
          '  where b.QtyMore >0 and a.spno=b.spno'
          ''
          '  drop table #t_1'
          ''
          '--END--approveMRP'
          ''
          '--'#26356#26032#37319#36141#24635#34920
          '--BEGIN--updateMRP'
          '  select *'
          '  into #temp1'
          '  from mrp'
          '  where poid=%0:s'
          ''
          '  select Qty=sum(b.Qty*a.Qty),b.ljno'
          '  into #temp2'
          '  from poBody a, BOM b'
          '  where a.poid=%0:s and a.spno=b.spno'
          '  group by b.ljno'
          ''
          '  select top 0 *, qtyGap=qtyPO, InvQtyAvail=qtyPO'
          '  into #temp3'
          '  from #temp1'
          ''
          
            '  insert into #temp3(poid, spno, qtyNeed, qtyPO, qtyLeft, qtyGap' +
            ', InvQtyAvail)'
          '  select %0:s,ljno,Qty,0,Qty,Qty,0'
          '  from #temp2'
          ''
          '  --'#20808#25226#24211#23384#25968#37327#25220#36807#26469
          '  update #temp3'
          
            '  set InvQty=IsNULL(b.InvQty,0), InvQtyUsed=IsNULL(b.InvQtyUsed,' +
            '0),'
          '      InvQtyComing=IsNULL(b.InvQtyComing,0)'
          '      /*, khid=b.khid, price=b.spprice*/'
          '  from #temp3 a, sp b'
          '  where a.spno=b.spno'
          ''
          '  --'#20808#32771#23519#24211#23384#21487#29992#37327
          '  update #temp3 set InvQtyAvail=InvQty-InvQtyUsed'
          ''
          '  update #temp3'
          '  set qtyGap=0,InvQtyUsed=qtyNeed,InvQtyComing=0,qtyPO=0'
          '  where InvQtyAvail>=qtyNeed'
          ''
          '  update #temp3'
          '  set qtyGap=qtyGap-InvQtyAvail,InvQtyUsed=InvQtyAvail'
          '  where qtyGap>0'
          ''
          '  --'#20877#32771#23519#24050#35746#36141#26410#22238#20179#25968#37327
          '  update #temp3'
          '  set qtyGap=0,InvQtyComing=qtyGap,qtyPO=0'
          '  where qtyGap>0 and InvQtyComing>=qtyGap'
          ''
          '  update #temp3'
          '  set qtyGap=qtyGap-InvQtyComing'
          '  where qtyGap>0 and InvQtyComing<qtyGap'
          ''
          '  --'#35745#31639#37319#36141#37327'('#32771#34385#26368#23567#35746#36135#37327')'
          '  update #temp3'
          '  set qtyGap=0,qtyPO=qtyGap, amt=qtyGap*price'
          '  where qtyGap>0'
          ''
          '/*'
          '  update #temp3'
          '  set qtyPO=b.moq, amt=b.moq*price'
          '  from #temp3 a, sp b'
          '  where a.spno=b.spno and a.qtyPO >0 and a.qtyPO < b.moq'
          '*/'
          ''
          '  update #temp3'
          '  set qtyLeft=QtyPO+InvQtyUsed+InvQtyComing - qtyNeed'
          ''
          '  --'#20462#25913#21830#21697#24211#23384#37327
          '  update sp'
          '  set InvQtyUsed=IsNULL(a.InvQtyUsed,0)+b.InvQtyUsed'
          '    , InvQtyComing=IsNULL(a.InvQtyComing,0)-b.InvQtyComing'
          '  from sp a, #temp3 b'
          '  where a.spno=b.spno'
          ''
          '  --'#25554#20837#35760#24405
          '  delete from mrpHead'
          '  where poid=%0:s'
          ''
          '  insert into mrpHead(poid, needDate, status)'
          '  select  poid, needDate, '#39#24453#25209#39
          '  from poHead'
          '  where poid=%0:s'
          ''
          '  delete from mrp'
          '  where poid=%0:s'
          ''
          '  insert into mrp('
          
            '    poid, spno, qtyNeed, qtyPO, qtyLeft, InvQty, InvQtyUsed, Inv' +
            'QtyComing, khid, price, amt)'
          '  select'
          
            '    poid, spno, qtyNeed, qtyPO, qtyLeft, InvQty, InvQtyUsed, Inv' +
            'QtyComing, khid, price, amt'
          '  from #temp3'
          '--END--updateMRP'
          ''
          '--'#26356#25913#26435#38480
          '--BEGIN--updatePI'
          '  select *'
          '  into #t1'
          '  from #temp1'
          '  where flag<>0'
          ''
          '  update #t1'
          '  set CPow=case CPow when '#39'Y'#39' then '#39'C'#39' else '#39#39' end'
          '     ,RPow=case RPow when '#39'Y'#39' then '#39'R'#39' else '#39#39' end'
          '     ,UPow=case UPow when '#39'Y'#39' then '#39'U'#39' else '#39#39' end'
          '     ,DPow=case DPow when '#39'Y'#39' then '#39'D'#39' else '#39#39' end'
          '     ,EPow=case EPow when '#39'Y'#39' then '#39'E'#39' else '#39#39' end'
          ''
          '  update #t1'
          '  set piName=CPow+RPow+UPow+DPow+EPow'
          ''
          '  update userPriv'
          '  set piName=b.piName'
          '  from  userPriv a, #t1 b'
          '  where a.uid='#39'%0:s'#39' and a.formName=b.formName'
          ''
          '  insert into userPriv(uid,formName,piName)'
          '  select uid,formName,piName'
          '  from #t1 a'
          
            '  where not exists(select 1 from userPriv b where b.uid=a.uid an' +
            'd b.formName=a.formName)'
          '--END--updatePI'
          ''
          ''
          ''
          '--'#20174#29289#26009#38656#27714#34920#36873#25321#21830#21697#36827#34892#36141#20080
          '--BEGIN--updateBO'
          '  select *'
          '  into #temp1'
          '  from #jack'
          '  where id in (%0:s)'
          ''
          '  --'#29289#26009#38656#27714#20313#37327#25187#20026'0'
          '  update mrp'
          '  set QtyPO=a.QtyLeft,QtyLeft=0'
          '  from mrp a, #temp1 b'
          '  where a.poid=b.poid and a.spno=b.spno'
          ''
          '  --'#21830#21697#21512#24182
          '  select *'
          '  into #temp2'
          '  from boBody'
          '  where boid=%1:s'
          ''
          '  insert into #temp2(boid, ljno, qty, price, amt)'
          '  select %1:s, spno, qtyLeft, 0 , 0'
          '  from #temp1'
          ''
          '  update #temp2'
          '  set price=b.spprice, amt=b.spprice*a.qty'
          '  from  #temp2 a, sp b'
          '  where a.price=0 and b.spType=0 and a.ljno=b.spno'
          ''
          '  --'#21512#24182#21518#37325#31639#21333#20215
          
            '  select boid, ljno, price=sum(price), qty=sum(Qty), amt=sum(amt' +
            ')'
          '  into #temp3'
          '  from #temp2'
          '  group by boid, ljno'
          ''
          '  update #temp3'
          '  set price=Round(amt/qty,2)'
          ''
          '  delete from boBody'
          '  where boid=%1:s'
          ''
          '  insert into boBody(boid, ljno, qty, price, amt)'
          '  select boid, ljno, qty, price, amt from #temp3'
          '--END--updateBO')
        TabOrder = 0
        WordWrap = False
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'TabSheet3'
      ImageIndex = 2
      object memoMISC2: TMemo
        Left = 16
        Top = 24
        Width = 649
        Height = 369
        Lines.Strings = (
          ''
          '--'#35745#31639#26032#30340#24211#23384#21333#25454#21495#30721
          '--BEGIN--getInvid'
          '  declare @invid_num integer,  @invid varchar(20)'
          
            '  select @invid_num=cast(right(IsNULL(max(invid),'#39'000'#39'),3) as in' +
            'teger)+1'
          '  from invHead'
          '  where invid like '#39'%0:s%1:s%%'#39
          ''
          '  set @invid=@invid_num'
          '  set @invid=REPLICATE('#39'0'#39',3-Len(@invid))+ @invid'
          '  set @invid= '#39'%0:s%1:s'#39' + @invid  '
          '  select @invid'
          '--END--getInvid'
          ''
          '--'#20179#24211#21333#25454#25171#21360#25968#25454#20934#22791#65288#27599#39029'7'#34892#65289
          '--BEGIN--PrepareDJPrn'
          '  select a.*,b.spname,b.spspec,b.spunit'
          '  into #temp1'
          '  from invBody a, sp b'
          '  where invid=%0:s and a.spno=b.spno'
          ''
          '  declare @cnt int'
          '  select @cnt=count(1) from #temp1'
          '  select @cnt=@cnt %% 7'
          ''
          '  if @cnt>0'
          '  while (@cnt<7) begin'
          '    insert into #temp1(invid,spno,spname) values('#39#39','#39#39','#39#39')'
          '    select @cnt=@cnt +1'
          '  end'
          '--END--PrepareDJPrn'
          ''
          '--IQC'#26816#39564#65292#20135#29983#36141#26009#20837#24211#21333#21644#36141#26009#36864#36135#21333
          '--BEGIN--IQCMatIn'
          '  select top 0 *'
          '  into #temp1'
          '  from invHead'
          ''
          '  select top 0 *'
          '  into #temp2'
          '  from invBody'
          ''
          '  --'#25554#20837#36141#26009#20837#24211#21333
          '  insert into #temp1('
          '    invid, poid, khid, invDate, invType, ioType, spType, ifok)'
          '  select'
          '    %1:s,  poid, khid, getDate(), '#39#36141#26009#20837#24211#39', 1, 0, '#39#21542#39
          '  from invHead'
          '  where invid=%0:s'
          ''
          '  insert into #temp2('
          '    invid, spno, qty, price, amt, qty2, rem)'
          '  select'
          '    %1:s,  spno, qty2, price, qty2*price, 0, '#39#39
          '  from invBody'
          '  where invid=%0:s and qty2>0'
          ''
          '  insert into invHead'
          '  select * from  #temp1'
          ''
          '  insert into invBody'
          '  select * from  #temp2'
          ''
          '/* '#19981#24212#22686#21152#36141#26009#36864#36135#21333#65292#22240#20107#21069#24182#26080#20837#24211#35760#24405#12290
          '  --'#25554#20837#36141#26009#36864#36135#21333
          '  delete from #temp1'
          '  insert into #temp1('
          '    invid, poid, khid, invDate, invType, ioType, spType, ifok)'
          '  select'
          '    %2:s,  poid, khid, getDate(), '#39#36141#26009#36864#36135#39', -1, 0, '#39#21542#39
          '  from invHead'
          '  where invid=%0:s'
          ''
          '  delete from #temp2'
          '  insert into #temp2('
          '    invid, spno, qty, price, amt, qty2, rem)'
          '  select'
          '    %2:s,  spno, qty-qty2, price, qty2*price, 0, '#39#39
          '  from invBody'
          '  where invid=%0:s and qty-qty2>0'
          ''
          '  insert into invHead'
          '  select * from  #temp1'
          ''
          '  insert into invBody'
          '  select * from  #temp2'
          '*/'
          '  --'#20462#25913#26816#39564#21333#26631#35760
          '  update invHead'
          '  set ifOK='#39#26816#39564#23436#27605#39
          '  where invid=%0:s'
          ''
          '--END--IQCMatIn'
          ''
          '--'#23548#20837#35746#21333#23545#24212#30340#37319#36141#21333#26126#32454#21040#24211#23384#21333#25454
          '--BEGIN--ImportFromBO'
          '  update invHead'
          '  set poid=%1:s'
          '  where invid=%0:s'
          ''
          '  delete from invBody'
          '  where invid=%0:s'
          ''
          '  insert into invBody('
          '    invid, spno, qty, price, amt, qty2, rem)'
          '  select'
          '    %0:s, ljno, qty, price, amt, 0, '#39#39
          '  from boHead a, boBody b'
          '  where a.boid=b.boid and a.poid=%1:s and a.khid=%2:s'
          ''
          '--END--ImportFromBO'
          ''
          '--'#23548#20837#35746#21333#26126#32454#21040#24211#23384#21333#25454
          '--BEGIN--ImportFromPO'
          '  update invHead'
          
            '  set poid=%1:s, khid=(select top 1 khid from poHead where poid=' +
            '%1:s)'
          '  where invid=%0:s'
          ''
          '  delete from invBody'
          '  where invid=%0:s'
          ''
          '  insert into invBody('
          '    invid, spno, qty, price, amt, qty2, rem)'
          '  select'
          '    %0:s, spno, qty, price, amt, 0, '#39#39
          '  from poBody'
          '  where poid=%1:s'
          ''
          '--END--ImportFromPO')
        TabOrder = 0
        WordWrap = False
      end
    end
  end
end