sal_enter_saleorderh.dfm

一个MRPII系统源代码版本

      'Use procedure for Prepare=1;Auto Translate=True;Packet Size=4096' +
      ';Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select Sa_SaleOrder.CustomerCode,'
      '       Sa_SaleOrder.referenceno,'
      '       Sa_SaleOrder.customerPmno,'
      '       Customer.CustomerName,'
      
        '       Sa_SaleOrder.CustomerCode+'#39' '#39'+Customer.CustomerName As Cu' +
        'stomerFalg,'
      '       CreateDate,'
      '       Sa_SaleOrder.SloNo,Sa_SaleOrder.SaleTypeCode,'
      '       Sa_SaleOrder.SaleDeptCode,Dept.DeptName,'
      
        '       Sa_SaleOrder.SaleDeptCode+'#39#39'+Dept.DeptName As SaleDeptFal' +
        'g,'
      '       Sa_SaleOrder.SaleEmployeeCode,Employee1.EmployeeName,'
      
        '       Sa_SaleOrder.SaleEmployeeCode+'#39#39'+Employee1.EmployeeName A' +
        's SaleEmployeeFalg,'
      '       Sa_SaleOrder.CurrencyCode,Currency.CurrencyName,'
      
        '       Sa_SaleOrder.CurrencyCode+'#39#39'+Currency.CurrencyName As Cur' +
        'rencyFalg,'
      
        '       TaxRate_Percent,Sa_SaleOrder.PayTermCode,PayTerm.PayTermN' +
        'ame,'
      
        '       Sa_SaleOrder.PayTermCode+'#39#39'+PayTerm.PayTermName AS SaleTe' +
        'rmFlag,'
      '       Sa_SaleOrder.CreateEmployeeCode,Employee.EmployeeName,'
      
        '       Sa_SaleOrder.CreateEmployeeCode+Employee.EmployeeName As ' +
        'CreateEmployeeFalg,'
      '       Sa_SaleOrder.ShipModeCode,ShipMode.ShipModeName,'
      
        '       Sa_SaleOrder.ShipModeCode+'#39#39'+ShipMode.ShipModeName As Shi' +
        'PmodeFalg,'
      
        '       Sa_SaleOrder.ShipAddresSCode,CustomerShipAddress.ShipAddr' +
        'essName,'
      
        '       Sa_SaleOrder.ShipAddresSCode+'#39#39'+CustomerShipAddress.ShipA' +
        'ddressName As ShipAddressFalg ,'
      
        '       sa_SaleOrder.RemArk,TotalNoTaxAmount,TotalTaxAmount,DeptN' +
        'ame,EditDate,EdItEmployeeCode ,RemArk1,SaleTypeName'
      
        'From  Sa_SaleOrder Join PayTerm  On Sa_SaleOrder.PayTermCode=Pay' +
        'Term.PayTermName'
      
        '                   Join Customer  On Sa_SaleOrder.CustomerCode=C' +
        'ustomer.CustomerCode'
      
        '                   Join Dept On Sa_SaleOrder.SaleDeptCode=Dept.D' +
        'eptCode'
      
        '                   Join Employee Employee1 On Sa_SaleOrder.SaleE' +
        'mployeeCode=Employee1.EmployeeCode'
      
        '                   Join Currency On Sa_SaleOrder.CurrencyCode=Cu' +
        'rrency.CurrencyCode'
      
        '                   Join Employee On  Sa_SaleOrder.CreateEmployee' +
        'Code=Employee.EmployeeCode'
      
        '                   Join ShipMode On Sa_SaleOrder.ShipModeCode=Sh' +
        'iPmode.ShipModeCode'
      
        '                   Join CustomerShipAddress On Sa_SaleOrder.Ship' +
        'AddresSCode=CustomerShipAddress.ShipAddresSCode'
      
        '                   Join SaleType On Sa_SaleOrder.SaleTypeCode=Sa' +
        'leType.SaleTypeCode'
      
        'where exists(select * from Sa_SaleOrderline where Sa_SaleOrder.S' +
        'loNo=Sa_SaleOrderLine.SloNo and SloLineStatus=1 )'
      'Order By Sa_SaleOrder.CustomerCode,CreateDate'
      ''
      ''
      ''
      ' '
      ' ')
    Left = 368
    Top = 177
    object AdoQry_HeadCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = 'Sa_SaleOrder'
      Size = 12
    end
    object AdoQry_HeadCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'Customer'
      Size = 60
    end
    object AdoQry_HeadCustomerFalg: TStringField
      FieldName = 'CustomerFalg'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_HeadCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Origin = 'Sa_SaleOrder'
    end
    object AdoQry_HeadSloNo: TStringField
      FieldName = 'SloNo'
      Origin = 'Sa_SaleOrder'
      Size = 16
    end
    object AdoQry_HeadSaleTypeCode: TStringField
      FieldName = 'SaleTypeCode'
      Origin = 'Sa_SaleOrder'
    end
    object AdoQry_HeadSaleDeptCode: TStringField
      FieldName = 'SaleDeptCode'
      Origin = 'Sa_SaleOrder'
      Size = 8
    end
    object AdoQry_HeadDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_HeadSaleDeptFalg: TStringField
      FieldName = 'SaleDeptFalg'
      ReadOnly = True
      Size = 48
    end
    object AdoQry_HeadSaleEmployeeCode: TStringField
      FieldName = 'SaleEmployeeCode'
      Origin = 'Sa_SaleOrder'
      Size = 30
    end
    object AdoQry_HeadEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Size = 60
    end
    object AdoQry_HeadSaleEmployeeFalg: TStringField
      FieldName = 'SaleEmployeeFalg'
      ReadOnly = True
      Size = 90
    end
    object AdoQry_HeadCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'Sa_SaleOrder'
      Size = 2
    end
    object AdoQry_HeadCurrencyName: TStringField
      FieldName = 'CurrencyName'
      Origin = 'Currency'
      Size = 30
    end
    object AdoQry_HeadCurrencyFalg: TStringField
      FieldName = 'CurrencyFalg'
      ReadOnly = True
      Size = 32
    end
    object AdoQry_HeadTaxRate_Percent: TFloatField
      FieldName = 'TaxRate_Percent'
      Origin = 'Sa_SaleOrder'
    end
    object AdoQry_HeadPayTermCode: TStringField
      FieldName = 'PayTermCode'
      Origin = 'Sa_SaleOrder'
      Size = 6
    end
    object AdoQry_HeadSaleTermFlag: TStringField
      FieldName = 'SaleTermFlag'
      ReadOnly = True
      Size = 126
    end
    object AdoQry_HeadCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'Sa_SaleOrder'
      Size = 30
    end
    object AdoQry_HeadEmployeeName_1: TStringField
      FieldName = 'EmployeeName_1'
      Size = 60
    end
    object AdoQry_HeadCreateEmployeeFalg: TStringField
      FieldName = 'CreateEmployeeFalg'
      ReadOnly = True
      Size = 90
    end
    object AdoQry_HeadShipModeCode: TStringField
      FieldName = 'ShipModeCode'
      Origin = 'Sa_SaleOrder'
      Size = 6
    end
    object AdoQry_HeadShipModeName: TStringField
      FieldName = 'ShipModeName'
      Origin = 'ShipMode'
      Size = 120
    end
    object AdoQry_HeadShipModeFalg: TStringField
      FieldName = 'ShipModeFalg'
      ReadOnly = True
      Size = 126
    end
    object AdoQry_HeadShipAddresSCode: TStringField
      FieldName = 'ShipAddresSCode'
      Origin = 'Sa_SaleOrder'
      Size = 6
    end
    object AdoQry_HeadShipAddressName: TStringField
      FieldName = 'ShipAddressName'
      Origin = 'CustomerShipAddress'
      Size = 60
    end
    object AdoQry_HeadShipAddressFalg: TStringField
      FieldName = 'ShipAddressFalg'
      ReadOnly = True
      Size = 66
    end
    object AdoQry_HeadRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Sa_SaleOrder'
      Size = 60
    end
    object AdoQry_HeadTotalNoTaxAmount: TFloatField
      FieldName = 'TotalNoTaxAmount'
    end
    object AdoQry_HeadTotalTaxAmount: TFloatField
      FieldName = 'TotalTaxAmount'
    end
    object AdoQry_HeadPayTermName: TStringField
      FieldName = 'PayTermName'
      Size = 30
    end
    object AdoQry_HeadEditDate: TDateTimeField
      FieldName = 'EditDate'
    end
    object AdoQry_HeadEdItEmployeeCode: TStringField
      FieldName = 'EdItEmployeeCode'
      Size = 30
    end
    object AdoQry_HeadRemArk1: TStringField
      FieldName = 'RemArk1'
      Size = 60
    end
    object AdoQry_HeadSaleTypeName: TStringField
      FieldName = 'SaleTypeName'
      Size = 30
    end
    object AdoQry_Headreferenceno: TStringField
      DisplayLabel = '参考号'
      FieldName = 'referenceno'
      Origin = 'Sa_SaleOrder'
      Size = 16
    end
    object AdoQry_HeadcustomerPmno: TStringField
      DisplayLabel = '采购订单号'
      FieldName = 'customerPmno'
      Origin = 'Sa_SaleOrder'
      Size = 16
    end
  end
  inherited DataSource: TDataSource
    Left = 496
    Top = 169
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 128
    Top = 177
  end
end