预览模式: 普通 | 列表

税务发票业务工作日志

本来我是把这些写在手机里的,但后来发现如果手机不能正常工作了,就又没有了。

所以写在这里吧。

 

公司代开发票

在国税局的网站上申请代开,然后可以获得一个叫申请文书序号的编码,再凭这个编码去税局的大厅里打印发票就行了。

注意事项:

查看更多...

Tags: 发票 税务

分类:闲话 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 819

宗教信仰,一个亘古不变的笑话

不知道是不是因为生活在中国大陆这样的政治环境下的原因,还是天生这样的观念(我一直很看重先天的东西),我在思想上对所谓的信仰、宗教等很反感,当然,实际生活中还好,保持中立,不反对,不提倡,就像以前大学对待学生谈恋爱的态度一样。信与不信,信什么,是国民的自由。在这,我只想说我自己的想法。

宗教,就是一个亘古不变的笑话。本来宗教就像人穿衣服的喜好一样,只是穿衣的喜好,与其他很多东西没有关系。但为什么我不把人们穿衣的喜好说是一个笑话,而只把宗教说成是一个笑话呢?因为现在的人们把宗教当成了很多非宗教本身的东西,而信教的人赋予了宗教本身没有的、不具备的实用功能或精神意识方面的功用,抱有很多不切实际的期望,并为之做了很多让人匪夷所思的事情,这有点类似皇帝的新装一样,所以就成了一个笑话。

产生这样的想法的导火线是因为近来看到多则关于宗教的新闻(而且媒体有时也喜欢把宗教类的新闻当八卦来报道),一是少林寺和尚释永信的事,二是麦加朝圣踩死人,三是香港女住持嫁两内地和尚。当然,其实还有更多让我有看笑话的感觉的关于宗教的故事、事故、传闻、报道——其实我不是一个喜欢看人笑话的人。这类信息让我觉得宗教很儿戏,像是一大群人在耍猴给人看,看的人也迷在其中不自醒。

仅是以上这些也没什么,也与我没有半点关系,但有人说没有信仰的人很悲哀(有中国人这样说中国那些没有信仰的人)、很迷茫、很可恶、不文明等,我就不苟同了,就不能淡定了。

据我了解,世界上大部分的国家和民族都是信教的,但你能说他们都是文明的、善良的?有多少种族冲突是因宗教而起?有多少战争是因宗教而起。欧洲人基本上都是信教的,但他们在中世纪是多么的黑暗、荒唐、无知,对外又是多么的野蛮、残忍。欧洲的历史就是一部暴政史、战争史、侵略史,这些就是由那些有宗教信仰的人干的。

从现在的情况来看,看那些信教的人吧,与不信教的人有什么两样?更文明?更有素质?集体荒唐的事往往是由那些教徒做出来的。

查看更多...

Tags: 宗教 信用 文明 笑话 蛊惑

分类:闲话 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 831

商务人士,你懂商务礼仪吗?

最近几年常会有一种电话是这样的,接通之后里面还会有一段音乐,然后才是人工说话的。这种呼叫方式叫什么?我暂且把它称为“系统呼叫”,估计是通过呼叫系统自动拔号的吧,然后如果被有人接听了,那边的人就会被自动分配来接听。这样的电话我是坚决挂掉的。因为我觉得这要的公司对被拔叫的潜在客户没有最起码的尊重,拔个电话都是机器来做。这我觉得就是没有商务礼仪。

我很高兴有些公司也很注重礼仪,比如一些房产中介的销售人员,接通电话后,态度诚恳,如果没有意向,也会说祝福语,不至于直接挂电话。遇到这样的业务员,我一般都会很客气的,虽然我知道5年内我都不可能再买房子,但我一点都不排斥这些房产的业务员。

还有一种很没有商务礼仪的是:区别对待的遇到的人。我见过一些店主,看到是推销的人进来,就拉下脸,看到是自己的顾客进来就笑开脸。这种严格意义上讲不是不懂礼,而是没素质。

还有一种,接到人家递过去的名片后,随手一扔,置之于桌面上、椅子上等,这是很令人讨厌的。要知道,在商务活动中,名片是一个人的代表,请尊重点。

关于电话。我遇到过好几个这样的人,我是他们的客户,他们是为我提供服务的,但我每次去电话,他们必问我是哪里?(其实关于“哪里”而不是“哪位”也是令我超级反感的,毕竟我是人而不一个地方。)也就是说他们要么没保存我的手机号码,要么就是故意一副公事公办的态度,无视来电的称呼提示,故意要我再报一下单位名称或自己的身份。这种人的心态是怎么样的我不是很清楚,但我恨这样的人能在公司做事而不被踢掉。或许他公司的领导或文化就已经不再注重礼呀素质呀什么的,业绩才是最主要利益才是追求的目标吧。

当然,说到底,这个社会,总有些不计较这些,总有些人是能成为某些人的贵人,会成就某些没有礼貌素质低下的人。而且,以现在这样的社会价值观来看,所谓的成功与否,与这些什么素质、礼仪都没有关系。有钱了就是成功人士,与本人是怎么样素质什么文明程度没有半毛钱关系。

查看更多...

Tags: 礼仪 教养 素质 文明 礼貌

分类:闲话 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 752

保险行业七宗罪

本人可以说是半个保险人了,为什么说半个?因为现在不在那个行业了,即使在那个行业,作为平安的普通业务员,也是被边缘化的,下面会讲到这个问题。作为曾经的局内人,想对保险行业内及行业外的人说说保险行业的事。因为本人曾经的公司是中国平安保险股份有限公司,所以大部分叙述都是以此为背景,综合了一些我了解的其他同业公司的情况,比如太平,比如新华,比如泰康,比如永达理等等。题为《保险行业七宗罪》,实际上可能改为“平安保险七宗罪”可能会让其他保险公司舒服些。

为什么会想到写这些无聊无用的东西?这是弱者所为。因为我做得不是很好,所以才会有这些个想法,有句话叫“没钱人什么都看不开”,因为这个世界没钱什么都不行呀;在销售公司,没业绩的人什么都看不开,因为没业绩就没收入,就没名声,没地位,没面子,没好生活,没饭吃,没一切,所以能看开才怪。看不开的人,就会有很多的想法,就会有抱怨,有怨言才有话要说嘛。

保险行业七宗罪

1、没有合法的劳动关系。

同样是工作,为什么保险行业的业务员就可以是所谓的代理制而非工作关系的雇佣制。如果是代理为什么有那么多的公司员工制度来约束,什么考勤,什么合规展业,还有考核。甚至连个名片都不让印上平安的LOGO!要知道,普通的业务员平安是不会给印名片的,只有主任、星级业务员或其他荣誉业务员等才有,这毕竟是少数一部分,大部分还是普通的。既为代理,为什么有这些限制?比如平安的考勤还很严,对外宣传说什么有几大自由来的,其中有时间、空间的自由,在考勤制度面前,这些都是浮云。迟到扣10元,旷工扣50元,这明显是对员工的制度嘛,不是说我们是代理吗?呵呵。

2、没有低薪的超级剥削。

查看更多...

Tags: 保险行业

分类:平安金融 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 984

Office文档处理的一些实用技巧

Office系列文档处理软件功能相当强大,有很多实用功能会偶尔用到,记下来备忘吧。

从Word文档里把某些字符串提取出来。

提取手机号的方法:在“查找”里输入“[0-9]{11}”,记得点开“高级“选上“使用通配符”,并选上“突出显示所有在该范围找到的项目”,再点“查找全部”。如下图所示:

把邮箱地址提取出来的,查找内容输入:”[A-z,0-9]{1,}\@[A-z,0-9,\.]{1,}“,未测试。

EXCEL文档的除重的方法:数据->筛选->高级筛选

查看更多...

Tags: 提取内容 除重 正则表达式

分类:资源 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 926

让人不可理解的逆天的事情

我是一个比较在意细节的人,但又没什么条件去讲究细节,或者说追求所谓的细节。我一直奉信这样的说法:精致生活,要追求细节;但生活中的太多细节不够精致。下面是我自己在意的又无法改变的东西,或者从理论上讲本是合理的东西而我无知,不管怎样我就拿出来说道说道,聊以泄怨吧。

固定电话的“请在您拔的号码前加拔0”

从我开始会用固定电话拔电话起就经常听到这句话,都20多年了,就一直很郁闷很烦躁,很是多次问候过中国电信(谁让中国电信的固定电话业务多些)的好几代祖宗。我一直不明白为什么现在是数字时代了还不解决这个问题?难道在被 拔的号码前自动加个零会很难吗?或者像手机一样不管是长途短途都直接拔号很难吗?因为手机号码在国内是唯一的,无论是长途还是短途。

固定电话号码升位的惯例

城市或区域发展一般都是这样的,人由少变多,电话用户也是由少变多,所以我经历过好几个城市的电话升位:由原来的7位数升到后来的8位数。我大学的专业是信息管理,学的专业里有统计学、信息检索学,还有数据库,所以从信息处理的角度来讲,编码的位数决定了编码的容量。我就不明白了,为什么任何一个城市的电话号码都是从7位数开始启用的?退一步来说,可能70多年前的城市规划者没有预料到城市人口的数量会增长这么快量会这么大,这个可以理解。但为什么不从第一个城市升位的那天起,所有的城市都启用8位数的电话号码或9位数的(当然9位数的可能确实用不到了),因为这个事情对于很多城市来说是必然的。迟规划不如早规划,不然很多电话用户都会因为号码升位而带来额外的成本。电信的技术不是特别懂,但会因为这么个位数的变化带来很大成本的上升吗?其实完全可以参照当年身份证号码升位还有千年虫这样的案例。

查看更多...

Tags: 设计 人性化

分类:闲话 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 849

同学会·沈阳游

9月10日下午5点多抵达沈阳的桃仙机场,略有凉意思,但绝对算不上冷,与我的心情人点像:略有忐忑,虽然不是第一次在毕业后生返校园,但毕竟这次会见到的同学有更多,且大部分是17年来一直没有见过的。

我对沈阳的感情一直都是比较特殊的,把她当成了第二故乡。因为大学是人生非常重要的一个阶段,而且一般高中以下都是在老家本地读书,只有大学才是外地,所以大学所在地一般被认为是第二故乡。当然,地域其次,感情的成份最为最重要。我在大学时经历了一些我人生中比较重要的事情,也遇到了一些真正帮助我且不求回报的人,当然还有一大群感情真挚或近或远的同学情。

这次的聚会应该说的很好,进行的非常顺利,结束得很成功圆满。事前是期待的,过程是愉快的,结束是不舍的,对以后的聚会又是更期待了。

共有14位同学参加。

聚会的主题是回忆美好过去,畅想幸福未来。叙旧是最主要的:当年的点滴,离别后的一些经历。大概的活动流程是:先去学校的南北院参观。南院的音乐厅,北院的新图书馆,再在旧主楼里开了个班会,有两位专业课老师、两位指导员(班主任)老师、一位校友会老师到场。后在校园里拍照留念。

不过我的工作没有做好,关于影像的采集与制作,本来是我来负责的,但由于一些原因,导致要其他同学临时赶赴,实在不该。

查看更多...

Tags: 母校 同学会 沈阳 师生情

分类:闲话 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 766

ASP不能正确获得JPG图片的尺寸

 一般情况下,用下面的函数是可以正确获得JPG(不能是JPEG)图片的像素大小的,比如1024*768PIX这样的。

ASP/Visual Basic代码
  1. '获取图片的像素大小  
  2. Class imgInfo  
  3.     dim aso  
  4.     Private Sub Class_Initialize  
  5.         set aso=CreateObject("Adodb.Stream")  
  6.         aso.Mode=3  
  7.         aso.Type=1  
  8.         aso.Open  
  9.     End Sub  
  10.     Private Sub Class_Terminate  
  11.         err.clear  
  12.         set aso=nothing  
  13.     End Sub  
  14.   
  15.     Private Function Bin2Str(Bin)  
  16.         Dim I, Str  
  17.         For I=1 to LenB(Bin)  
  18.         clow=MidB(Bin,I,1)  
  19.         If ASCB(clow)<128 Then  
  20.         Str = Str & Chr(ASCB(clow))  
  21.         else  
  22.         I=I+1  
  23.         If I <= LenB(Bin) Then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))  
  24.         End If  
  25.         Next  
  26.         Bin2Str = Str  
  27.     End Function  
  28.   
  29.     Private Function Num2Str(num,base,lens)  
  30.     dim ret  
  31.     ret = ""  
  32.     while(num>=base)  
  33.     ret = (num mod base) & ret  
  34.     num = (num - num mod base)/base  
  35.     wend  
  36.     Num2Str = right(string(lens,"0") & num & ret,lens)  
  37.     End Function  
  38.   
  39.     Private Function Str2Num(str,base)  
  40.         dim ret  
  41.         ret = 0  
  42.         for i=1 to len(str)  
  43.         ret = ret *base + cint(mid(str,i,1))  
  44.         next  
  45.         Str2Num=ret  
  46.     End Function  
  47.   
  48.     Private Function BinVal(bin)  
  49.     dim ret  
  50.     ret = 0  
  51.     for i = lenb(bin) to 1 step -1  
  52.     ret = ret *256 + ascb(midb(bin,i,1))  
  53.     next  
  54.     BinVal=ret  
  55.     End Function  
  56.   
  57.     Private Function BinVal2(bin)  
  58.     dim ret  
  59.     ret = 0  
  60.     for i = 1 to lenb(bin)  
  61.     ret = ret *256 + ascb(midb(bin,i,1))  
  62.     next  
  63.     BinVal2=ret  
  64.     End Function  
  65.   
  66.     Private Function getImageSize(filespec,filefrom)  
  67.     dim ret(3)  
  68.     select case filefrom  
  69.         case 1  
  70.             '1为同域文件,否则为异域文件  
  71.             aso.LoadFromFile(filespec)  
  72.         case 2  
  73.             ASO.Write filespec  
  74.             ASO.Position = 0  
  75.     end select  
  76.     bFlag=ASO.Read(3)  
  77.     select case hex(binVal(bFlag))  
  78.     case "4E5089":  
  79.     aso.read(15)  
  80.     ret(0)="PNG"  
  81.     ret(1)=BinVal2(aso.read(2))  
  82.     aso.read(2)  
  83.     ret(2)=BinVal2(aso.read(2))  
  84.     case "464947":  
  85.     aso.read(3)  
  86.     ret(0)="GIF"  
  87.     ret(1)=BinVal(aso.read(2))  
  88.     ret(2)=BinVal(aso.read(2))  
  89.     case "535746":  
  90.     aso.read(5)  
  91.     binData=aso.Read(1)  
  92.     sConv=Num2Str(ascb(binData),2 ,8)  
  93.     nBits=Str2Num(left(sConv,5),2)  
  94.     sConv=mid(sConv,6)  
  95.     while(len(sConv)<nBits*4)  
  96.     binData=aso.Read(1)  
  97.     sConv=sConv&Num2Str(ascb(binData),2 ,8)  
  98.     wend  
  99.     ret(0)="SWF"  
  100.     ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20)  
  101.     ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20)  
  102.     case "FFD8FF":  
  103.     do  
  104.     do: p1=binVal(aso.Read(1)): loop while p1=255 and not aso.EOS  
  105.     If p1>191 and p1<196 Then exit do else aso.read(binval2(aso.Read(2))-2)  
  106.     do:p1=binVal(aso.Read(1)):loop while p1<255 and not aso.EOS  
  107.     loop while true  
  108.     aso.Read(3)  
  109.     ret(0)="JPG"  
  110.     ret(2)=binval2(aso.Read(2))  
  111.     ret(1)=binval2(aso.Read(2))  
  112.     case else:  
  113.     If left(Bin2Str(bFlag),2)="BM" Then  
  114.     aso.Read(15)  
  115.     ret(0)="BMP"  
  116.     ret(1)=binval(aso.Read(4))  
  117.     ret(2)=binval(aso.Read(4))  
  118.     else  
  119.     ret(0)=""  
  120.     End If  
  121.     end select  
  122.     ret(3)="width=""" & ret(1) &""" height=""" & ret(2) &""""  
  123.     getimagesize=ret  
  124.     End Function  
  125.   
  126.     Public Function imgW(pic_path,filefrom)  
  127.         '参数filefrom是判断文件是远程http开头的还是本地的  
  128.         '1为本地,2为远程  
  129.         select case filefrom  
  130.             case 1  
  131.                 Set fso1 = server.CreateObject("Scripting.FileSystemObject")  
  132.                 If (fso1.FileExists(pic_path)) Then  
  133.                     Set f1 = fso1.GetFile(pic_path)  
  134.                     ext=fso1.GetExtensionName(pic_path)  
  135.                     select case ext  
  136.                     case "gif","bmp","jpg","png":  
  137.                     arr=getImageSize(f1.path,1)  
  138.                     imgW = arr(1)  
  139.                     end select  
  140.                     Set f1=nothing  
  141.                 else  
  142.                     imgW = 0  
  143.                 End If  
  144.                 Set fso1=nothing  
  145.             case 2  
  146.                 Arr=GetImageSize(pic_path,2)  
  147.                 imgW = Arr(1)  
  148.         end select  
  149.     End Function  
  150.   
  151.     Public Function imgH(pic_path,filefrom)  
  152.         select  case filefrom  
  153.             case 1  
  154.                 Set fso1 = server.CreateObject("Scripting.FileSystemObject")  
  155.                 If (fso1.FileExists(pic_path)) Then  
  156.                 Set f1 = fso1.GetFile(pic_path)  
  157.                 ext=fso1.GetExtensionName(pic_path)  
  158.                 select case ext  
  159.                 case "gif","bmp","jpg","png":  
  160.                 arr=getImageSize(f1.path,1)  
  161.                 imgH = arr(2)  
  162.                 end select  
  163.                 Set f1=nothing  
  164.                 else  
  165.                 imgH = 0  
  166.                 End If  
  167.                 Set fso1=nothing  
  168.             case 2  
  169.                 Arr=getImageSize(pic_path,2)  
  170.                 imgH = Arr(2)  
  171.         end select  
  172.     End Function  
  173. End Class  

但下面这两个图片却不行,没办法获得。

图片是用iPhone 5S手机拍摄的,并在电脑上简单编辑过的。

解决的方法比较简单直接,把图片转换成PNG的,就可以了。

查看更多...

Tags: 图片尺寸 图片大小 ASP

分类:网络 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 674