长投: 成本法下,同控 的入账成本主要是看合并日母 问
您好!非同控看支付对价的公允价值 答
某化妆品厂(一般纳税人)生产高档化妆品,增值税率13% 问
1.销售成套化妆品取得不含增值税价款300,000元,款项以银行存款收讫。会计分录:借:银行存款 342,900贷:主营业务收入 300,000贷:应交税金-应交增值税(销项税额) 42,900 2.为生产甲化妆品本月购入乙高档化妆品一批作为原料,取得的专用发票上注明价款为200,000元,增值税进项税额为26,000元,款项尚未支付。当月全部投入生产使用。会计分录:借:原材料 200,000借:应交税金-应交增值税(进项税额) 26,000贷:应付账款 226,000 3.将自产的丙化妆品一批以职工福利形式发放给职工,按同类产品不含税售价计算,价款为50,000元,成本为30,000元。会计分录:借:应付职工薪酬 58,500贷:主营业务收入 50,000贷:应交税金-应交增值税(销项税额) 8,500借:主营业务成本 30,000贷:库存商品 30,000 4.销售甲化妆品,取得不含增值税价款为500,000元,款项未收。会计分录:借:应收账款 585,000贷:主营业务收入 500,000贷:应交税金-应交增值税(销项税额) 85,000 接下来,我们需要计算消费税。 消费税的计算: 销售成套化妆品的消费税 = 300,000 × 15% = 45,000 自产丙化妆品作为职工福利的消费税 = 50,000 × 15% = 7,500 销售甲化妆品的消费税 = 500,000 × 15% = 75,000 总消费税 = 45,000 %2B 7,500 %2B 75,000 = 127,500 会计分录: 借:税金及附加 127,500 贷:应交税金-应交消费税 127,500 答
老师,请问个人代开房屋租赁合同发票的税点是多少? 问
出租住宅的:房产税4%减半,个人所得税10%,增值税1.5%(月租10万以上),城建税,教育费附加,地方教育附加。 应交增值税=租金收入/1.05*1.5%, 附加税费=应交增值税*0.06 房产税=租金收入/1.05*2% 个人所得税=(租金收入-增值税-附加税费-房产税)*(1-20%)*10% 出租商业用房的,房产税12%减半,印花税0.1%减半,个税20%,增值税5%(月租10万以上),城建税,教育费附加,城镇土地使用税(各地单位面积税额不一) 应交增值税=租金收入/1.05* 0.05, 附加税费=应交增值税*0.06 印花税=租金收入/1.05*0.1%*50% 房产税=租金收入/1.05* 12% 城镇土地使用税=占地面积*单位税额 个人所得税=(租金收入-增值税-附加税费-印花税-房产税-城镇土地使用税)*(1-20%)*20% 答
公司在建一个基地,目前只区分几号地块几号地块的, 问
你好,你们是分开核算吗?能分开的话最好还是分开。 答
办了定额之后 还需要税务申报吗? 登陆自然人电子 问
您好 就是系统自动申报 不需要自己申报的哈 答
业务员提成可以直接做提成表直接走账吗
答: 你好,如果是在职职工,签订劳动合同的,可以作为工资薪金直接发放。如果不是在职职工,不参加社会保险的,或者说是兼职的,那就要作为劳务报酬,需要开发票
老师,一个总表怎么按业务员分成几个分表
答: 点击【开发工具】-【Visual Basic】或者Alt+F11的快捷键进入VBE编辑界面。 插入一个新的模块 粘贴下列代码在模块中: Sub CFGZB() Dim myRange As Variant Dim myArray Dim titleRange As Range Dim title As String Dim columnNum As Integer myRange = Application.InputBox(prompt:=请选择标题行:, Type:=8) myArray = WorksheetFunction.Transpose(myRange) Set titleRange = Application.InputBox(prompt:=请选择拆分的表头,必须是第一行,且为一个单元格,如:“姓名”, Type:=8) title = titleRange.Value columnNum = titleRange.Column Application.ScreenUpdating = False Application.DisplayAlerts = False Dim i&, Myr&, Arr, num& Dim d, k For i = Sheets.Count To 1 Step -1 If Sheets(i).Name <> 数据源 Then Sheets(i).Delete End If Next i Set d = CreateObject(Scripting.Dictionary) Myr = Worksheets(数据源).UsedRange.Rows.Count Arr = Worksheets(数据源).Range(Cells(2, columnNum), Cells(Myr, columnNum)) For i = 1 To UBound(Arr) d(Arr(i, 1)) = Next k = d.keys For i = 0 To UBound(k) Set conn = CreateObject(adodb.connection) conn.Open provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= & ThisWorkbook.FullName Sql = select * from [数据源$] where & title & = & k(i) & Worksheets.Add after:=Sheets(Sheets.Count) With ActiveSheet .Name = k(i) For num = 1 To UBound(myArray) .Cells(1, num) = myArray(num, 1) Next num .Range(A2).CopyFromRecordset conn.Execute(Sql) End With Sheets(1).Select Sheets(1).Cells.Select Selection.Copy Worksheets(Sheets.Count).Activate ActiveSheet.Cells.Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Next i conn.Close Set conn = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub 插入一个控件按钮,并指定宏到刚才插入的模块代码。 点击插入的按钮控件,根据提示选择标题行和要拆分的列字段
一名会计如何让领导给你主动加薪?
答: 都说财务会计越老越吃香,实际上是这样吗?其实不管年龄工龄如何
公司业务员的提成应该怎么算?
答: 您好,一般编制工资表,与工资一起发比较好。