Objawy

Podczas dostosowywania konserwacji zamówienia zakupu, można zauważyć, że rozszerzone koszt w wierszu szczegółów zamówienia zakupu jest niepoprawna.

Rozwiązanie

Uwaga: Ta metoda obejścia problemu można używać tylko jeśli baza danych jest bazą danych jednej waluty.

Dodaj następujący kod niestandardowy do zdarzeń PORef_Chk i zdarzenie Spread1_LineGotFocus, aby ustawić wartość domyślną dla pola niestandardowe.  Daje to pewność, że wartość jest umieszczana w polu i pozwoli uniknąć sytuacji, w których użytkownik jest pytany, czy chce się porzucić zmiany do wiersza szczegółów.
Private Sub cpolineref_Chk (ChkStrg As String, retval As Integer)

Dim CtlVal jako ciąg
   
CtlVal = GetObjectValue("xuser1")
Jeśli (Trim$(CtlVal) = "") następnie
Wywołanie SetObjectValue ("xuser1", "Nowy na gorąco")
End If

End Sub


Private Sub Spread1_LineGotFocus(maintflg As Integer, retval As Integer)

Dim CtlVal jako ciąg
   
Jeśli (maintflg <> NEWROW) następnie
CtlVal = GetObjectValue("xuser1")
Jeśli (Trim$(CtlVal) = "") następnie
Wywołanie SetObjectValue ("xuser1", "Nowy na gorąco")
End If
End If


End Sub

Potrzebna dalsza pomoc?

Rozwijaj swoje umiejętności
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów firmy Microsoft

Czy te informacje były pomocne?

Jaka jest jakość języka?
Co wpłynęło na Twoje wrażenia?

Dziękujemy za opinię!

×