السلام أرجو المساعدة

مشكلة تكرار التاريخ بالفواتير بالفورم


كما موضح بالصور

فى الفاتورة الأولى رقم 25088303

فى فيلد قراءة سابقة " تاريخها " كما موضح هو 01-11-1428هـ

وفى فيلد قراءة حالية " تاريخها" كما موضح هو 28-08-1429هـ

المشكلة بالفاتورة الثانية رقم 25095597


فى فيلد قراءة سابقة " تاريخها " كما موضح هو 01-11-1428هـ

وفى فيلد قراءة حالية " تاريخها" كما موضح هو01-08-1430هـ

من المفترض ان يكون تاريخ القراءة السابقة هو 28-08-1429هـ ولا يتكرر كما هو موضح ويكون 01-11-1428هـ

تنويه
هذه الشاشة شاشة استعلام

وهى مرتبطة بشاشة أساسية اسمها قراءة العدادات

فالعميل بشاشة العدادات عندما يريد عمل فاتورة جديدة يدخل على شاشة العدادات ويدخل رقم العداد ويضغط Enter

فتظهر بشكل تلقائى بيانات العميل وأيضاً تاريخ القراءة السابقة تظهر بشكل تلقائى وبعد ذلك يدخل تاريخ القراءة الحالية ويكمل باقى خطوات الفاتورة

بالمرفقات صور كمثال على هذه الشاشة برقم الفاتورة 25095597


من المفترض ان يكون تاريخ القراءة السابقة هو 28-08-1429هـ ولا يتكرر كما هو موضح ويكون 01-11-1428هـ

تم تعديل 2 ديسمبر 201213 سنة بواسطة predator jaw

بالمرفقات

شاشة استعلام الفواتير


وشاشة قراءة العدادات

form.rar

أرجو المساعدة

فين الردود يا جماعة ؟

السلام عليكم ورحمة الله وبركاته

اخي الكريم

عند إدخال قراءة العداد الحاليه
هل يتم إدخال تاريخ القراءة السابقة من قبل المدخل أم يتم إسترجعها من قاعدة البيانات

وهل الخطأ في فاتورة واحدة أو لجميع الفواتير

WHEN-VALIDATE-ITEM
DATEH

DECLARE
V_G_Date_Format VARCHAR2(10);
V_Date_Format VARCHAR2(10);
VCheckDate VARCHAR(10);
V_G_Date1 VARCHAR2 (10);
DAY30 VARCHAR2 (2);

BEGIN
:GLOBAL.GVDateSeparator := SHR.Hijri_Date.Date_Separator (:DATEH);

V_G_Date_Format :=
'RRRR'
|| :GLOBAL.GVDateSeparator
|| 'MM'
|| :GLOBAL.GVDateSeparator
|| 'DD'
;

V_Date_Format :=
'YYYY'
|| :GLOBAL.GVDateSeparator
|| 'MM'
|| :GLOBAL.GVDateSeparator
|| 'DD'
;

VCheckDate := :DATEH;

IF VCheckDate IS NOT NULL THEN
-- :DATEH := Date_Format (VCheckDate);

-- :DATEG := TO_DATE(Hijri_Date.H2G_Date (VCheckDate, :GLOBAL.GVDateSeparator), V_G_Date_Format);
V_G_Date1 := Hijri_Date.H2G_Date (VCheckDate, :GLOBAL.GVDateSeparator);

IF V_G_Date1 IS NULL THEN
DAY30:= SUBSTR(VCheckDate, 1, 2);

IF DAY30 = '30' THEN
MSG_ALERT('?? ???? ??? ' || DAY30 || ' ?? ??? ?????', 'E', TRUE);
ELSE
MSG_ALERT('????? ????', 'E', TRUE);
END IF;
ELSE
:DATEG := TO_DATE(V_G_Date1, V_G_Date_Format);
END IF;
ELSE
:DATEH := NULL;
END IF;

IF :DATEG

تاريخ القراءة السابقة يظهر تلقائى فى الابلكيشن

ولم يقوم المستخدم بإدخاله

المستخدم يقوم فقط بادخال القراءة الحالية وتاريخها

هذه المشكلة تظهر ببعض الفواتير