Баланс для ИП

@Atashka1808 · Регистрация: 02.09.2021

Студворк — интернет-сервис помощи студентам

Ребята может еще и создадим базу данных для бухгалтерских проводок ИП

Вот начал создать таблички

@alvk · 13.09.2022, 02:44

Сообщение от Eugene-LS

Что то тут не так с Ю-Тьюбом .

Rutube - наше фсё!

@Atashka1808 · 13.09.2022, 07:19 **[ТС]**

Сообщение от Eugene-LS

Может ...
Но сложно будет.
Take look at картинку ниже.

. Здравствуйте! Утро доброе! А как же тогда образуется остаток если не учесть приход и остаток? А выражения в суммах нужен потому что, стоимость с каждым поступлением может меняться.

Добавлено через 3 минуты

Сообщение от Atashka1808

А как же тогда образуется остаток если не учесть приход и остаток?

Вернее приход и расход

@Eugene-LS · 13.09.2022, 07:24

Сообщение от Atashka1808

А выражения в суммах нужен потому что, стоимость с каждым поступлением может меняться.

Ну и что? - Если есть документы прихода - вычисляется.
Или я не понял вашего вопроса?

@Atashka1808 · 13.09.2022, 07:41 **[ТС]**

Сообщение от Eugene-LS

Если есть документы прихода - вычисляется.

И вносятся базу, иначе каждый раз надо будет поднять документ, смотреть что почем...

@Atashka1808 · 13.09.2022, 07:44 **[ТС]**

Eugene-LS, А если представить в этом варианте, может сработает? В форму СКЛАД внес поле ОСТАТОК НА НАЧАЛО и ОСТАТОК НА КОНЕЦ сортируется по дате

@Atashka1808 · 13.09.2022, 08:07 **[ТС]**

Сообщение от Atashka1808

ОСТАТОК НА НАЧАЛО и ОСТАТОК НА КОНЕЦ сортируется по дате

Вернее сортировать

Добавлено через 18 минут

Сообщение от Atashka1808

ОСТАТОК НА НАЧАЛО и ОСТАТОК НА КОНЕЦ

И по завершении ввода остаток на конец перекидывается на остаток на начало

Добавлено через 40 секунд

Сообщение от Atashka1808

перекидывается на

Вернее обновляет

Добавлено через 2 минуты
по каждому виду товара по Коду товара

@Eugene-LS · 13.09.2022, 08:31

Сообщение от Atashka1808

А если представить в этом варианте, может сработает?

Посмотрел.
Вполне возможно и сработает.

@Atashka1808 · 13.09.2022, 08:35 **[ТС]**

Сообщение от Eugene-LS

Вполне возможно и сработает.

Напишите код пожалуйста

@Eugene-LS · 13.09.2022, 09:06

Сообщение от Atashka1808

Напишите код пожалуйста

Вот:

Visual Basic
1
Остаток = Приход - Расход

Чёрт! Как лаконично получилось!

... сам себя не похвалишь ...

@Atashka1808 · 13.09.2022, 09:21 **[ТС]**

Сообщение от Eugene-LS

1
Остаток = Приход - Расход

А как же начальный остаток, и потом обновление ОСТАТКА НА НАЧАЛО ОСТАТКОМ НА КОНЕЦ

Добавлено через 2 минуты
А алгоритм должно быть таким: ОСТАТОК НА КОНЕЦ = ОСТАТОК НА НАЧАЛО+ПРИХОД-РАСХОД и в конце ввода данных ОСТАТОК НА НАЧАЛО должно обновляться значением ОСТАТКА НА КОНЕЦ

Добавлено через 1 минуту

Сообщение от Atashka1808

должно обновляться значением ОСТАТКА НА КОНЕЦ

Т.Е. ЗАМЕНЯТСЯ

@Eugene-LS · 13.09.2022, 10:01

Сообщение от Atashka1808

А как же начальный остаток

Забивается отдельным документом с соответствующим типом и названием (я уже вам про это писал)

@Atashka1808 · 14.09.2022, 09:36 **[ТС]**

Eugene-LS,Здравствуйте! День Добрый! Я кое что сделал, посмотрите пожалуйста! И еще не могу решать вопрос, помогите пожалуйста:
1. При нажатии кнопки СЛЕДУЮЩЕЕ окно ввода должна обновляться и перейти на новый запись и значения ОСТАТОК НА КОНЕЦ и СУММА ОСТАТОК НА КОНЕЦ должны перекинутся в поле ОСТАТОК НА НАЧАЛО и СУММА ОСТАТОК НА НАЧАЛО соответственно.
2. При вводе кода товара долно вывести в поле Наименование товара и стоимость если таковые есть в базе, если их нет предложить ввести новое

@Atashka1808 · 14.09.2022, 09:37 **[ТС]**

Сообщение от Atashka1808

При нажатии кнопки СЛЕДУЮЩЕЕ окно ввода должна обновляться и перейти на новый запись и значения ОСТАТОК НА КОНЕЦ и СУММА ОСТАТОК НА КОНЕЦ должны перекинутся в поле ОСТАТОК НА НАЧАЛО и СУММА ОСТАТОК НА НАЧАЛО соответственно.

и значение полей ОСТАТОК НА КОНЕЦ и СУММА ОСТАТОК НА КОНЕЦ должны обнулятся

@Eugene-LS · 14.09.2022, 09:47

Сообщение от Atashka1808

Eugene-LS,Здравствуйте! День Добрый!

И вам, не хворать.
А чего вы всё ко мне - да опять ко мне ???
Что люди подумают?

@Atashka1808 · 14.09.2022, 11:40 **[ТС]**

Извините, как то привык с Вами переписываться, в следующий ра сделаю как скажете...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Кнопка87_Click()
Dim sVal$
    If Me.KodTovar <= 0 Then
        MsgBox "Введите код товара!", vbExclamation
        Me.KodTovar.SetFocus
        Exit Sub
        ElseIf Me.naimTovar = "" Then
        MsgBox "Введите название товара", vbExclamation
        Me.naimTovar.SetFocus
        Exit Sub
        ElseIf Me.txtEdIzm = "" Then
        MsgBox "Не указан единица измерения", vbExclamation
        Me.txtEdIzm.SetFocus
        Exit Sub
        ElseIf Me.txtStoim <= 0 Then
        MsgBox "Не указан стоимость товара", vbExclamation
        Me.txtStoim.SetFocus
        Exit Sub
        ElseIf Me.txtPrihod <= 0 Then
        MsgBox "Не указан количество прихода", vbExclamation
        Me.txtPrihod.SetFocus
        Exit Sub
        ElseIf Me.txtRashod <= 0 Then
        MsgBox "Не указан количество расхода", vbExclamation
        Me.txtRashod.SetFocus
        Exit Sub
    End If
    If Me.txtOsatatokNaNachalo > 0 And Me.txtOsatatokNaKonec = 0 Then
    Me.Recordset.AddNew
    KodTovar.SetFocus
    Else
    Me.txtOsatatokNaNachalo = Me.txtOsatatokNaKonec
    Me.txtSummaOsatatokNaNachalo = Me.txtSummaOsatatokNaKonec
    Me.txtOsatatokNaKonec = 0
    Me.txtSummaOsatatokNaKonec = 0
    Me.Recordset.AddNew
    KodTovar.SetFocus
    End If
End Sub

Написал такой код. Но почему то не реагируется на условия по naimTovar и txtEdIzm. Может я чего неправильно делаю. Значения этих полей ТЕКСТОВЫЕ.

@Atashka1808 · 21.09.2022, 08:38 **[ТС]**

Eugene-LS, Если можете помогите пожалуйста написать код для обновления значение поля ОСТАТОК в таблице ТОВАР значением поля ОСТАТОК НА КОНЕЦ таблицы СКЛАД по коду товара. Спасибо заранее!

@Eugene-LS · 21.09.2022, 09:30

Сообщение от Atashka1808

код для обновления значение поля ОСТАТОК в таблице ТОВАР значением поля ОСТАТОК НА КОНЕЦ таблицы СКЛАД по коду товара

Не уверен что правильно понял вашу "хотелку", но пока так:

Visual Basic
1
2
3
4
5
6
Public Function OstatokPoKodu(lKod) As Long
Dim sVal$, vVal
    sVal = "Tovar_SID = " & lKod
    vVal = DSum("OsatatokNaKonec", "sklad", sVal)
    OstatokPoKodu = Nz(vVal, 0)
End Function

@SDKU · 21.09.2022, 09:41

Сообщение от Atashka1808

код для обновления значение поля ОСТАТОК в таблице ТОВАР

такого поля в ТАБЛИЦЕ вообще быть не должно по "религии" ACCESS

@Eugene-LS · 21.09.2022, 09:46

Сообщение от SDKU

такого поля в ТАБЛИЦЕ вообще быть не должно по "религии" ACCESS

Там вообще не рабочая схема данных, о чём Atashka1808 неоднократно предупреждался.
Спасибо что вам не всё равно.

@Atashka1808 · 21.09.2022, 09:57 **[ТС]**

Сообщение от Eugene-LS

Не уверен что правильно понял вашу "хотелку", но пока так

Может я неправильно поставил вопрос. Надо чтоб значение поля Остаток таблицы Товар обновлялся значением поля Остаток на конец формы Главное (Вкладка 1) только по данному виду товара которое в форме

Новые блоги и статьи Все статьи Все блоги /
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))
Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .