求助：多栏式明细账的生成方法

2014-05-08 04:08:34 337 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

oracle账户余额表和明细表,科目余额表与明细账 (明细与上相同)在建工程 11 小计明细账科 LI 余额表年月日序上期余额本期发生额月末余额科目名称号借方贷方借方贷方借方贷方二、负债类短期借款 12 XX 银行 XX 银行应付账款 13 XX 单位 XX 单位预收账款 14 XX 单位 XX ......余额上述内容可简化为“T”型账户左方账户名称(会计科目) 右方 “T”...明细分类级分类科目从属科目从属科目 ... 阅读详情

1、说明：多栏明细显示的各例，是根据用户设置显示生成，所以各列明细项目是不固定的。
2、要求：麻烦高手提供编制的方法，最好有代码复制到回贴中。谢谢！

...全文

Linux中断子系统（二）—— 通用框架处理 1、数据结构分析 (1)中断描述符结构structirq＿desc： 1）打开CONFIG＿SPARSE＿IRQ宏（中断编号不连续），中断描述符以radix- tree来组织，用户在初始化时进行动态分配，然后再插入radix-tree中； 2）关闭CONFIG＿SPARSE＿IRQ宏（中断编号连续），中断描述符以数组的形式组织，并且已经分配好； 3）不管哪种形式，最终都可以通过linuxirq号来找到对应的中断描述符；（2）stru... 阅读详情

jaychensusu

DataWindow 611 成员 20,469 内容

+ 关注 + 加入社区

切换为时间正序

pcwe2002 2014-05-10

打赏
举报

通过动态生成数据窗口的方式


string ls_sql,ls_syntax,ls_error 
　　ls_sql= 'select * from department' 
　　ls_syntax = sqlca.SyntaxFromSQL(ls_sql,'style(type=grid)',ls_error) 
　　if len(ls_error) >0 then 
　　　messagebox('Error','SyntaxFromSQL Error:~r'+ls_error) 
　　else 
　　　dw_new.create(ls_syntax,ls_error) 
　　　if len(ls_error) >0 then 
　　　　MessageBox("Error", "Create have these errors: ~r" + ls_error) 
　　　else 
　　　　dw_new.settransobject(sqlca) 
　　　　dw_new.retrieve() 
　　　end if 
　　end if

gzlx 2014-05-08

打赏
举报

一般通过组合sql生成步骤 1、定义多栏帐设置 2、根据设置动态生成 -------------------------- 多栏帐显示 Begin Declare @TableRecoId nvarchar(64) ,@BillNo nvarchar(64) ,@CName nvarchar(64),@enter varchar(1) Declare @SQlSelect varchar(4000) , @Sql nvarchar(2000) , @ColumnCount SmallInt Set @ColumnCount = 0 Set @enter = char(13) Create Table #tmpDetail ( Id [bigint] IDENTITY (1, 1) NOT NULL , Fdate [datetime] NOT NULL ) Set @SQlSelect = 'Select ' + @enter Set @SQlSelect = @SQlSelect + 'Fdate ' + @enter Begin ------'---- 科目编码 -----' DECLARE easyAccountMlt_cursor CURSOR LOCAL FORWARD_ONLY FAST_FORWARD READ_ONLY FOR select FinDebitCreditID = a.FinDebitCreditID , TableRecoId = a.TableRecoId , BillNo = a.BillNo , CName = a.CName from 多栏帐设置 a where a.RelaId = @多栏帐名称 order by a.RecoOrder OPEN easyAccountMlt_cursor FETCH NEXT FROM easyAccountMlt_cursor INTO @FinDebitCreditID , @TableRecoId , @BillNo , @CName WHILE @@FETCH_STATUS = 0 BEGIN set @ColumnCount = @ColumnCount + 1 -- 增加字段 set @Sql = 'Alter table #tmpDetail add Col' + convert(varchar,@ColumnCount) + ' decimal(28,10) null Default 0' Exec ( @sql ) -- 增加对应编码 set @Sql = 'Alter table #tmpDetail add BillNo' + convert(varchar,@ColumnCount) + ' nvarchar(64) null ' Exec ( @sql ) set @Sql = 'Update #tmpDetail set BillNo' + convert(varchar,@ColumnCount) + ' = ''' +@BillNo + '''' Exec ( @sql ) Set @SQlSelect = @SQlSelect + ', Col' + convert(varchar,@ColumnCount) +' ' + @enter -- 增加字段-------显示内容 ------- set @Sql = 'Alter table #tmpDetail add cName' + convert(varchar,@ColumnCount) + ' nvarchar(64) null ' Exec ( @sql ) set @Sql = 'Update #tmpDetail set cName' + convert(varchar,@ColumnCount) + ' = ''' +@BillNo + '''' Exec ( @sql ) Set @SQlSelect = @SQlSelect + ', cName' + convert(varchar,@ColumnCount) +' ' + @enter FETCH NEXT FROM easyAccountMlt_cursor INTO @FinDebitCreditID , @TableRecoId , @BillNo , @CName END CLOSE easyAccountMlt_cursor DEALLOCATE easyAccountMlt_cursor ------------- 处理对应金额 While @ColumnCount > 0 Begin set @Sql = 'Update #tmpDetail Set Col' + convert(varchar,@ColumnCount) + ' = ' Set @Sql = @Sql + '(Select SUM( Case When bb.FinDebitCreditID = '''+'D' +''' then aa.CashDebit - aa.CashCredit else - aa.CashDebit + aa.CashCredit End ) ' + @enter Set @Sql = @Sql + ' From 凭证明细表 aa inner join 科目 bb on aa.FinAccountId = bb.RecoId ' + @enter Set @Sql = @Sql + ' Where aa.RelaId = a.FinVoucherMasterId' + @enter Set @Sql = @Sql + ' and bb.BillNo = a.billno'+convert(varchar,@ColumnCount) + ') ' + @enter Set @Sql = @Sql + 'From #tmpDetail a ' + @enter Set @Sql = @Sql + 'Where a.FinVoucherMasterId is not null ' + @enter Exec ( @sql ) print @sql Set @ColumnCount = @ColumnCount - 1 End End -------------------------- 多栏帐显示 Set @SQlSelect = @SQlSelect + 'From #tmpDetail ' + @enter Set @SQlSelect = @SQlSelect + 'Order By Fdate , Fyear , Fperiod ' + @enter exec ( @SQlSelect ) Drop Table #tmpDetail

求助：多栏式明细账的生成方法

相关推荐