sanlu_new/program/SunRoxmServer/Form XML/FrmUnStrikeInvoiceDetail.xml

<?xml version="1.0" encoding="utf-8" ?>
<Forms>
  <Form Name="FrmUnStrikeInvoiceDetail">
    <Client>
      <Events>
        <Load>
          <![CDATA[
					@Title="未冲发票明细";
          GetSchema();	
					txtCoNo.CValue=GetCurrentCompanyNo();
					txtCoName.CValue=GetCurrentCompanyShortName();
          Empty();
					NewInstance();
          ComboCompany.Enabled = false;
          dtEnd.Enabled = false;
				]]>
        </Load>
        <Closing>
          ;
        </Closing>
        <Closed>
          ;
        </Closed>
      </Events>
      <Mode>
        <Search>
          <Lable name="Search"/>
        </Search>
      </Mode>
      <Controls>
        <IKTextButton     name="tbCustomerNo1"      DataSource="UI.StartNo_Customer">
          <Events>
            <Click>
              @temp = ShowSearchBox("CustomerSearch","INFOMATION",tbCustomerNo1.CValue);
              if( @temp == "" )
              return;
              tbCustomerNo1.CValue = @temp;
            </Click>
            <TextBoxButtonTextChanged>
              tbCustomerNo2.CValue = tbCustomerNo1.CValue;
            </TextBoxButtonTextChanged>
          </Events>
        </IKTextButton>
        <IKTextButton     name="tbCustomerNo2"      DataSource="UI.EndNo_Customer">
          <Events>
            <Click>
              @temp = ShowSearchBox("CustomerSearch","INFOMATION",tbCustomerNo2.CValue);
              if( @temp == "" )
              return;
              tbCustomerNo2.CValue = @temp;
            </Click>
          </Events>
        </IKTextButton>
        <IKCheckBox       name="ikCheckCompany"     DataSource="UI.Company_Flag">
          <Events>
            <CheckedChanged>
              ComboCompany.Enabled = !ComboCompany.Enabled;
            </CheckedChanged>
          </Events>
        </IKCheckBox>
        <IKComboBoxEx     name="ComboCompany"       DisplaySource="UI.Company_Name" DataSource="CompanyType" DisplayMember="Name_TypeDef" >
          <Events>
            <Reload>
              UpdateForm(false, "ComboCompany");
              Search("SearchCompany");
              UpdateForm(true, "ComboCompany");
            </Reload>
          </Events>
        </IKComboBoxEx>
        <IKCheckBox       name="ikCheckEndDate">
          <Events>
            <CheckedChanged>
              dtEnd.Enabled = !dtEnd.Enabled;
              dtEnd.Checked = true;
            </CheckedChanged>
          </Events>
        </IKCheckBox>
        <IKDateTimePicker name = "dtEnd">

        </IKDateTimePicker>
        <IKButton name="btnView">
          <Events>
            <Click>
              <!--UpdateForm(false,"");-->
				
				
				@StartNo_Customer = "";
				@EndNo_Customer = "";
				@Company_Name = "";

				if(tbCustomerNo1.CValue == "")
				{
				MessageBox("请输入客户编号");
				return;
				}

				if(tbCustomerNo1.CValue != "")
				@StartNo_Customer = tbCustomerNo1.CValue;
				if(tbCustomerNo2.CValue != "")
				@EndNo_Customer = tbCustomerNo2.CValue;

				if( ikCheckCompany.Checked )
				{
				if (ComboCompany.Text !="")
				{
				#UI.company_Name = ComboCompany.Text;
				@Company_Name = ComboCompany.Text;
				}
				else
				{
				MessageBox("请选泽所属公司！！");
				#UI.company_Name = "";
				@Company_Name = "";
				return;
				}
				}
				else
				{
				#UI.company_Name = "";
				@Company_Name = "";
				}

				Search("SearchUnStrikeInvoiceDetail",@StartNo_Customer,@EndNo_Customer,@Company_Name);


				if(RowCount("#FrmUnStrikeInvoiceDetail")==0)
				{
				MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
				}
				else
				{
				PrintReport("UIFrmUnStrikeInvoiceDetail","UI","FrmUnStrikeInvoiceDetail");
				}
			</Click>
          </Events>
        </IKButton>
        <IKButton name="btnExcel">
          <Events>
            <Click>
              <!--UpdateForm(false,"");-->
              @StartNo_Customer = "";
              @EndNo_Customer = "";
              @Company_Name = "";

              if(tbCustomerNo1.CValue != "")
              @StartNo_Customer = tbCustomerNo1.CValue;
              if(tbCustomerNo2.CValue != "")
              @EndNo_Customer = tbCustomerNo2.CValue;

              if( ikCheckCompany.Checked ){
              if (ComboCompany.Text !=""){
              #UI.company_Name = ComboCompany.Text;
              @Company_Name = ComboCompany.Text;
              }else{
              MessageBox("请选泽所属公司！！");
              #UI.company_Name = "";
              @Company_Name = "";
              return;
              }
              } else  {
              #UI.company_Name = "";
              @Company_Name = "";
              }

              Search("SearchUnStrikeInvoiceDetail",@StartNo_Customer,@EndNo_Customer,@Company_Name);
              if(RowCount("#FrmUnStrikeInvoiceDetail")==0)
              MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
              else
              ExportReport("Excel","UIFrmUnStrikeInvoiceDetail","UI","FrmUnStrikeInvoiceDetail");
            </Click>
          </Events>
        </IKButton>
        <IKButton name="btnWord">
          <Events>
            <Click>
              <!--UpdateForm(false,"");-->
              @StartNo_Customer = "";
              @EndNo_Customer = "";
              @Company_Name = "";

              if(tbCustomerNo1.CValue != "")
              @StartNo_Customer = tbCustomerNo1.CValue;
              if(tbCustomerNo2.CValue != "")
              @EndNo_Customer = tbCustomerNo2.CValue;

              if( ikCheckCompany.Checked ){
              if (ComboCompany.Text !=""){
              #UI.company_Name = ComboCompany.Text;
              @Company_Name = ComboCompany.Text;
              }else{
              MessageBox("请选泽所属公司！！");
              #UI.company_Name = "";
              @Company_Name = "";
              return;
              }
              } else  {
              #UI.company_Name = "";
              @Company_Name = "";
              }

              Search("SearchUnStrikeInvoiceDetail",@StartNo_Customer,@EndNo_Customer,@Company_Name);
              if(RowCount("#FrmUnStrikeInvoiceDetail")==0)
              MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
              else
              ExportReport("Word","UIFrmUnStrikeInvoiceDetail","UI","FrmUnStrikeInvoiceDetail");
            </Click>
          </Events>
        </IKButton>
        <IKButton name="btnPrint">
          <Events>
            <Click>
              <!--UpdateForm(false,"");-->
              @StartNo_Customer = "";
              @EndNo_Customer = "";
              @Company_Name = "";

              if(tbCustomerNo1.CValue != "")
              @StartNo_Customer = tbCustomerNo1.CValue;
              if(tbCustomerNo2.CValue != "")
              @EndNo_Customer = tbCustomerNo2.CValue;

              if( ikCheckCompany.Checked ){
              if (ComboCompany.Text !=""){
              #UI.company_Name = ComboCompany.Text;
              @Company_Name = ComboCompany.Text;
              }else{
              MessageBox("请选泽所属公司！！");
              #UI.company_Name = "";
              @Company_Name = "";
              return;
              }
              } else  {
              #UI.company_Name = "";
              @Company_Name = "";
              }

              Search("SearchUnStrikeInvoiceDetail",@StartNo_Customer,@EndNo_Customer,@Company_Name);
              if(RowCount("#FrmUnStrikeInvoiceDetail")==0)
              MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
              else
              ExportReport("PrintToPrinter","UIFrmUnStrikeInvoiceDetail","UI","FrmUnStrikeInvoiceDetail");
            </Click>
          </Events>
        </IKButton>
      </Controls>
      <ChildForms>
        <ChildForm name="CustomerSearch" DataSource="Customer" SearchFunction="SearchAllCustomer"   SearchFunctionCondition="SearchCustomerCondition" SearchFunctionByNo="" MappingName="客户">
          <DataColumn Index="0" MappingName="#Customer.No_Customer"				    HeaderText="客户编号" Width="90" ColumnType="IKDataGridTextBoxColumn"/>
          <DataColumn Index="1" MappingName="#Customer.ShortName_Customer"		HeaderText="客户简称" Width="90" ColumnType="IKDataGridTextBoxColumn"/>
          <DataColumn Index="2" MappingName="#Customer.Type_Customer"			    HeaderText="客户类型" Width="75" ColumnType="IKDataGridTextBoxColumn"/>
          <DataColumn Index="3" MappingName="#Customer.Level_Customer"			  HeaderText="客户等级" Width="75" ColumnType="IKDataGridTextBoxColumn"/>
        </ChildForm>
      </ChildForms>
      <FormatString>
        <Format name="SearchCustomerCondition">
          if(GetRight("客户基本资料","全权查看"))
          {
          FormatString("");
          }
          else
          {
          FormatString(" Customer.ID_Creator='{0}' ",GetLoginUserID());
          }
        </Format>
      </FormatString>
    </Client>
    <Server>
      <Tables>
        <Table name="UI" Type="Parent">
          <GetSchema CmdType="Text" CmdText=" Select TOP 0 convert(nvarchar(32),'') As StartNo_Customer
                                                          ,convert(nvarchar(32),'') As EndNo_Customer
                                                          ,convert(nvarchar(32),'') As Company_Name
                                                          ,convert(bit,'false') As Company_Flag
                                           "/>
        </Table>
      </Tables>

      <Search>
        <SearchAllCustomer CmdType="Text" CmdText=" SELECT Customer.No_Customer
                                                    ,Customer.ShortName_Customer
                                                    ,Customer.Type_Customer
                                                    ,Customer.Level_Customer
                                                    ,Customer.IsGeneric_Customer
                                                    ,Customer.Note_Customer 
                                                    FROM Customer 
                                                  ">
          <Tables>
            <Table name="AllCustomer" />
          </Tables>
        </SearchAllCustomer>
        <SearchCompany   CmdType="Text" CmdText="SELECT * FROM TypeDef WHERE Type_TypeDef = 30">
          <Tables>
            <Table name="CompanyType"/>
          </Tables>
        </SearchCompany>

        <SearchUnStrikeInvoiceDetail CmdType="Text" CmdText=" 
	
	
	
declare @tempTable table
(	
	[No_Customer]			nvarchar(32)
	,[ShortName_Customer]	nvarchar(32)
	,[Company_Customer]		nvarchar(32)
	,[BillPregetMoney]		decimal (14,6)
	,[BillTogetMoney]		decimal (14,6)
	,[BillType]				nvarchar(32)
	,[BillNo]				nvarchar(32)
	,[BillDate]				datetime
	,[BillStrikeMoney]		decimal (14,6)
	,[BillUnStrikeMoney]	decimal (14,6)
)
declare @CustomerID uniqueidentifier
declare cur cursor for select ID_Customer from Customer where No_Customer = @StartNo_Customer

open cur
fetch next from cur into @CustomerID
while @@fetch_status = 0
begin

	insert into @tempTable
	select No_Customer , ShortName_Customer , '' as [Company_Customer] , 0 as [BillPregetMoney], 0 as [BillTogetMoney] , '期初应收款' as BillType , '' as BillNo ,
	CreateDate_Customer as BillDate , 
	abs(isnull([OpeningToGetBalance_Customer],0)) as BillStrikeMoney,
	abs(abs(isnull([OpeningToGetBalance_Customer],0)) - abs(isnull([OpenningBalance_Customer],0))) as BillUnStrikeMoney
	from Customer
	where abs(abs(isnull([OpeningToGetBalance_Customer],0)) - abs(isnull([OpenningBalance_Customer],0))) &lt;&gt; 0 
	and ID_Customer = @CustomerID
	union all
	select No_Customer , ShortName_Customer , Company_SaleInvoice as [Company_Customer], 0 as [BillPregetMoney], 0 as [BillTogetMoney] , '发票' as BillType , No_SaleInvoice as BillNo ,
	Date_SaleInvoice as BillDate ,
	isnull([Amount_SaleInvoice],0) as BillStrikeMoney,
	isnull([Amount_SaleInvoice],0)-isnull([StrikedAmount_SaleInvoice],0) as BillUnStrikeMoney
	from SaleInvoice , Customer
	where SaleInvoice.ID_Customer = Customer.ID_Customer
	and isnull([Amount_SaleInvoice],0)-isnull([StrikedAmount_SaleInvoice],0) &lt;&gt; 0
	and Disable_SaleInvoice = 0 
	and ID_Assessor is not null 
	and Customer.ID_Customer = @CustomerID
	and (@Company_Name = '' or @Company_Name is null or Company_SaleInvoice = @Company_Name)

	fetch next from cur into @CustomerID
end

select * from @tempTable

close cur
deallocate cur

			
			">



          <Params>
            <Param name="@StartNo_Customer"			type="Customer.No_Customer"				Index="0" />
            <Param name="@EndNo_Customer"			  type="Customer.No_Customer"				Index="1" />
            <Param name="@Company_Name"			    type="Customer.No_Customer"				Index="2" />
          </Params>
          <Tables>
            <Table name="FrmUnStrikeInvoiceDetail"/>
          </Tables>
        </SearchUnStrikeInvoiceDetail>
       

        <SearchSaleInvoice CmdType="Text" CmdText=" Declare @ID_Customer uniqueidentifier
                                                    Select @ID_Customer =ID_customer From Customer 
                                                    Where No_Customer=@No_Customer

                                                    Declare @Customer Table(ID_Customer Uniqueidentifier)
                                                    Insert Into @Customer Values(@ID_Customer)
                                                    Insert Into @Customer
                                                    Select ID_Customer
                                                    From Customer
                                                    Where CustomerID_Customer = @ID_Customer 
                                                  
                                                    Select No_SaleInvoice
                                                    From SaleInvoice
                                                    Where ID_Customer in (Select ID_Customer From @Customer)
                                                    And ID_Assessor is not null 
                                                    And Amount_saleinvoice &gt; StrikedAmount_SaleInvoice + DisCountAmount_SaleInvoice
                                                    And PayDate_SaleInvoice &lt; @AssessDate_SaleBill
                                                    And Disable_SaleInvoice = 0
                                                    ">
          <Params>
            <Param name="@No_Customer"          type="Customer.No_Customer"         Index="0" />
            <Param name="@AssessDate_SaleBill"  type="SaleBill.AssessDate_SaleBill" Index="1" />
          </Params>
          <Tables>
            <Table name="SearchSaleInvoice" />
          </Tables>
        </SearchSaleInvoice>

      
		  <SearchIsMainCustomer CmdType="Text" CmdText="
						declare @ID uniqueidentifier
						declare @Count int
						select @Count = 0
						select @Count = Count(1) from Customer where No_Customer = @No
						select @ID = CustomerID_Customer from Customer where No_Customer = @No
						if @Count &lt;&gt; 0 and (@ID is null or @ID = '00000000-0000-0000-0000-000000000000')
							select 1
						else
							select * from Customer where 1 = 2
							
							">
							<Params>
				  <Param name="@No"			type="Customer.No_Customer"				Index="0" />
			  </Params>
			  <Tables>
				  <Table name="SearchIsMainCustomerTemp"/>
			  </Tables>
		  </SearchIsMainCustomer>
		  
      </Search>
    </Server>
  </Form>
</Forms>