获取当前使用某个TCODE的用户的程序样例
REPORT Z_ABAP_SELECT_USER_BY_TCODE . TABLES: TSTC, ...
Rave Report报表打印时任意选择打印机
unit unitSetRavePrinter;interfaceuses RpDevice, Printers; procedure SetPrinter(PrinterName: String; Force: boolean = False); overload; procedure SetPrinter(PrinterIndex: Integer; Force: boolean = False); overload;implementationprocedure SetPrinter(Printer...
Performance: Customer developments in SD(摘自SAP Note 185530)
SymptomCustomer-specific programs and program enhancements ("User Exits") have a bad performance. The bad performance is noticed during accesses to the following SAP SD tables: VBAK, VBAP, VMVA, LIKP...
如何编辑或移去ALV中的状态栏
DATA: BEGIN OF ex_tab OCCURS 0,fcode LIKE sy-ucomm,END OF ex_tab.ex_tab-fcode = 'DISP'. APPEND ex_tab.ex_tab-fcode = 'DELE'. APPEND ex_tab.ex_tab-fcode = 'SAVE'. APPEND ex_tab.SET PF-STATUS 'MENU100' ...
校验身份证、组织机构代码证、纳税人识别号、营业执照号 的方法
function ValidatePID(const APID: string): string;{内部函数,取身份证号校验位,最后一位,对18位有效} function GetVerifyBit(sIdentityNum: string): Char; var nNum: Integer; begin Result := #0; nNum := StrToInt(sIdentityNum[1]) * 7 + StrToInt(...
SAP LOGON ERROR: DBIF_RSQL_INVALID_REQUEST
此问题看的很复杂,系统登录不报此错,多数还是服务器端网络环境发生了变化,或许包括IP变动。 解决办法:SAPMMC停止SAP服务,确保网络环境正常,重启SAP服务。 也有人说在hosts表中写入服务器ipconfig结果的IP地址,但个人觉得还是重启最简单...
SD 技术问题
SD 技术问题:1. 订单中定价过程是如何确定的?定价过程本身是怎样配置的?2. 有两个折扣条件类型记录是10%,20%,如何在订单中取得最优的条件记录?3. 账户确定过程是怎样工作的?4. Credit management 包括几种类...
DELPHI 调用MySQL的存储过程
DELPHI中调用MYSQL的存储过程最好用QUERY来,简单方便:Dm_Tax.Run_Query.sql.add( 'call SaveInv( ' + sqlstring + ')' ); //showmessage(Dm_Tax.Run_Query.sql.text);//Dm_Tax.Ru...
Delphi中票据凭证的精确打印
Delphi中票据凭证的精确打印一、概述 在银行,税务,邮政等行业的实际工作中,经常涉及到在印刷好具有固定格式的汇款单,储蓄凭证,税票等单据上的确定位置打印输出相关的信息。在此类需求中,精确地定位单据并打印相关信息,是解决问题]的关键。一般情况下,开发者都是通过在打印机上通过...
how to define the valuation level
1.define the valuation level is plant or company 2.the valuation grouping code is set to active.3.assign the grouping code to each plant.tips:1.OX142.OMWM3.OMWD
销售单据 4. 销售单据类型 - 抬头层次
1. VOV8一些设定说明SD document categ.: C Check division 对产品组和订单抬头产品组做一致性检查Item Division 复制产品的产品组Read Info Record 读取客户物料信息记录(VD51)Incompl.proced.: 11 不完整...
数字输出为英文描述(delphi)
TNumberStr = String[130; const Numbers: array[1..19] of TNumberStr = ('ONE', 'TWO', 'THREE', 'FOUR', 'FIVE', 'SIX', 'SEVEN', 'EIGHT', 'NINE', 'TEN', 'ELEVEN', 'TWELVE'...
PO Release Strategy价格改高改低都需要release
源自STCAO最简单的方法是(Modification)修改Function:ME_REL_STRATEGIE_EKKO将 IF cekko-gnetw GT f1. PERFORM. reset ...
不能收货或不能建BOM
不能收货或不能建BOM时提示Material type ROH cannot be used with item category L原因是OMS2中物料类型的Quantity/Value updating下对应的PLANT没有选中这两项
delphi 获取所有应用程序窗口标题 类似任务管理器中的应用程序框内容
procedure TForm1.Button1Click(Sender: TObject);var hCurWindow:HWnd; WinText:array[0..255] of char;begin memo1.Lines.Clear; hCurWindow:=GetWindow(Handl...
中文字符串的随意截取
function Getcaption_Fixed(LabelLen:integer;var InputStr:string):string;var i:integer;begin if ByteType(InputStr,LabelLen) = mbLeadByte then begin &nbs...
文件读入文件流,逐一取出文件中的每一字节(不含中文)
procedure TForm1.Button1Click(Sender: TObject);const BufSize=128;var FileStream: TFileStream; i, BodyLen, ReadCount, ModRead: integer; BodyBuf: array [0..70000] of Byte; BodyBufchar: array [0..70000] of Char;begin try FileStream := ni...
循环访问控件的简单例子
for i:= 1 to 10 dobegin TEdit(self.FindComponent('edit' + IntToStr(i))).Text := IntToStr(i);end;比如有10个Edit控件,自动给10个控件赋值
ALV小计汇总的应用
SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L1S31 {font-style. italic;color: #808080;}.L1S32 {color: #3399FF;}.L1S33 {color: #4DA619;}...
User Exit for Evaluation PP-MRP Material Requirements Planning
EXIT_SAPLM61R_001*----------------------------------------------------------------------** INCLUDE ZXM61U03 **----------------------------------------------------------------------*TABLES: VBAK.TAB...