[editform]

Вообщем история такая , когда то данную прогу написал дедушка в борадатом году , для статистики , и раньше номера кодов усгул больных были без Букв , а теперь буквы появились , и добавив буквы в коды услуг ,прога их видит , но при забитие и нажатие применить отказывается сохранять выдывая ошибку . вот сама форма , очень прошу вас помогите готов отблагодарить . Надо чтобы он разрешал сохранять коды услуг с буквами и цифрами . а не только с цифрами. вот код , и сами ошибки ниже приложу кода .

ОШИБКИ в скрине.http://ibb.co/WWmLMB0

[Guaho]

Это не ошибки, а предупреждения о том, что переменные объявлены, но не используются в коде. На успешность компиляции это не повлияет. Двойной щелчок по строке предупреждения выделит строку кода, к которой относится предупреждение, и там уже руками можно убрать ненужную переменную в секции "var".

[editform]

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

Это не ошибки, а предупреждения о том, что переменные объявлены, но не используются в коде. На успешность компиляции это не повлияет. Двойной щелчок по строке предупреждения выделит строку кода, к которой относится предупреждение, и там уже руками можно убрать ненужную переменную в секции "var".

Смотрите просто если я в dbf файл usligi вношу услуги с кодом где есть буква , то он не дает в проге их сохранять уже в самой проге , но в проге он их видит с буквами . Но сохранить не дает , что мне нужно сделать я так и не понял ?

[lmikle]

я бы сначала смотрел бы на структуру БД. Возможно, там тип поля числовой. Тогда надо менять на текстовый.

[editform]

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

я бы сначала смотрел бы на структуру БД. Возможно, там тип поля числовой. Тогда надо менять на текстовый.

Это я сразу проверил и поменял. Говорю же программа стала видеть номер с буквами, но при сохранении заполненой формы, не дает сохранить просто вылазиет ошибка

[Guaho]

Какая именно вылазит ошибка? То, что Вы привели, это не то. Ошибка при сохранении должна быть другая.

[editform]

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

Какая именно вылазит ошибка? То, что Вы привели, это не то. Ошибка при сохранении должна быть другая.

Ошибка "Operator not applicable при нажатие на кнопку применить
То есть забиваешь данные в форму нажимаешь применить и вылазит
Ошибка "Operator not applicable,
а если убераешь из uslugi.dbf из строки код услуги буквы и оставляешь только цифры то все нормально!

Очень прошу помогите исправить . готов даже финансово отблагодарить . надо во вторник днем сдавать через эту программу отчет , если не сдать просто оставим людей без зп....

[lmikle]

Тады запускай в отладчике. Как только выдаст ошибку давай сюда строки кода, на которых остановился отладчик.

Как ты понимаешь, тут без отладчика, а соотв. без самого проекта, не обойтись. Есть подозрение, что где-то идет какая-то числовая операция с этим значением через поле, т.е. через тип Variant, что и приводит к такой ошибке...

[editform]

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

Тады запускай в отладчике. Как только выдаст ошибку давай сюда строки кода, на которых остановился отладчик.

Как ты понимаешь, тут без отладчика, а соотв. без самого проекта, не обойтись. Есть подозрение, что где-то идет какая-то числовая операция с этим значением через поле, т.е. через тип Variant, что и приводит к такой ошибке...

хорошо я начинающий в этом плане . как мне запустить в отладчике? я больше разбераюсь как сис админ . .. готов дать всю прогу за вознагрождение чтобы решили проблему завтра

[lmikle]

Открываешь проект в Delphi и из среды запускаешь (например, по кнопке F9). Дальше делаешь в программе ту операцию, которая приводит к ошибке. В момент возникновения ошибки среда остановит выполнение и покажет ту строку прогрммы в которой возникла ошибка.

[editform]

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

Открываешь проект в Delphi и из среды запускаешь (например, по кнопке F9). Дальше делаешь в программе ту операцию, которая приводит к ошибке. В момент возникновения ошибки среда остановит выполнение и покажет ту строку прогрммы в которой возникла ошибка.

вот такое получается вылазиет ...

http://ibb.co/J7MQr8D
http://ibb.co/XsWNdQL

UPD и еще вот такое http://ibb.co/jZsgpT8
вот методом тыка еще нарыл чего http://ibb.co/PmGN4mS

[Guaho]

Необходимо найти строку кода, вызывающую ошибку, и уж от этого плясать. Если отладчик не помогает (иногда такое бывает; у меня, например, он вообще отключен), тогда ставятся стопы в виде команды

Код:

Showmessage('Ура!');

Если сообщение "Ура!" появилось, значит, команды до него выполнились успешно. Если не появилось, но вылезло упомянутое сообщение об ошибке - тогда вот она, эта проблемная строка кода. Нужно знать, на какой операции это происходит. То ли на методе Locate, то ли где-то в OnCalcFields, или же где-то в Before/AfterPost. Ошибку выдаёт движок БД, поэтому вероятно, что именно в упомянутых местах что-то нехорошее происходит))) Найдёте строку, вызывающую ошибку, - тогда можно двигаться дальше.

[Страдалецъ]

У вас в коде есть вот такая строчка:

Код:

 lItogo.Caption:=floattostr(stoim_uslugi*strtoint(eKoll.Text));

где eKoll.Text то самое значение, которое вы пытаетесь ввести с буквами. Как вы понимаете умножать буквы на число не выйдет.