2022 年 12月随笔档案 - redhat588

MSSQL 字符串+1带补位

摘要：print right( '0000'+ convert(nvarchar(3),convert(int,right(@GetMaxNo,@typecode))+1),4) 字段获取值：20221206001 ，类型为字符串型。YYYYMMDD+3位流水，需要得到 20221206002。阅读全文

posted @ 2022-12-06 08:58 redhat588 阅读(178) 评论(0) 推荐(0)

新增数据——单表带批量插入

摘要：procedure TAcptkController.CreateAdvancePayment; var Acptk: TAcptk; Acptks: TObjectList<TAcptk>; begin if Context.Request.QueryStringParam('Batch').To 阅读全文

posted @ 2022-12-05 12:32 redhat588 阅读(89) 评论(0) 推荐(0)

A实体带出B实体中某个字段

摘要：应用场景：预付款单中只有供应商编号，没有供应商全称。想序列化时带出供应商全称字段。 procedure TAcptk.OnAfterLoad; var ASupplier: TSupplier; //定义实体类 begin ASupplier := TMVCActiveRecord.GetOne 阅读全文

posted @ 2022-12-05 12:09 redhat588 阅读(93) 评论(0) 推荐(0)