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
