Hi,

(Df19.1 SQL Express)

I have this very basic view and related tables however one of the foreign fields is not being saved.

Tables:


PolicyType:
Fiield: ID (Integer) Main key
Field: Description

gbQuote:
Field: QuoteNo
Field: PolicyType (related to policytype.id)

When creating\saving a record the policyType field is not being saved.

I had this other more complex view involving the same tables (and more) that was working. I think I broke something in the DD structures.
Now I created a view with the wizard but still not working.

Any help as I spent the whole night trying to fix this?

Code:
// C:\DataFlex Projects\Test Insurance 19.1\AppSrc\OTESTQTE.wo
// OTESTQTE
//


Use cWebView.pkg
Use cWebPanel.pkg
Use cWebForm.pkg
Use cWebCombo.pkg
Use cWebTabContainer.pkg
Use cWebTabPage.pkg


Use cgbPolicyTypeDataDictionary.dd
Use cgbQuoteDataDictionary.dd


Object oOTESTQTE is a cWebView
    Set piColumnCount to 12
    Set psCaption to "OTESTQTE"
    Set piWidth to 700


    Object ogbpolicytype_DD is a cgbPolicyTypeDataDictionary
    End_Object 


    Object ogbQuote_DD is a cgbQuoteDataDictionary
        Set DDO_Server To ogbpolicytype_DD
    End_Object 


    Set Main_DD To ogbQuote_DD
    Set Server  To ogbQuote_DD




    Object oWebMainPanel is a cWebPanel
        Set piColumnCount to 12


        Object ogbQuoteQuoteNo is a cWebForm
            Entry_Item gbQuote.QuoteNo
            Set piColumnSpan to 6
            Set piColumnIndex to 0
            Set psLabel to "QuoteNo:"
            Set peLabelAlign to alignLeft
        End_Object 


        Object ogbQuoteQuoteMainNumber is a cWebForm
            Entry_Item gbQuote.QuoteMainNumber
            Set piColumnSpan to 5
            Set piColumnIndex to 0
            Set psLabel to "QuoteMainNumber:"
            Set peLabelAlign to alignLeft
        End_Object 


        Object ogbQuotePolicyNo is a cWebForm
            Entry_Item gbQuote.PolicyNo
            Set piColumnSpan to 6
            Set piColumnIndex to 0
            Set psLabel to "PolicyNo:"
            Set peLabelAlign to alignLeft
        End_Object 


        Object ogbpolicytypeId is a cWebForm
            Entry_Item gbpolicytype.Id
            Set piColumnSpan to 5
            Set piColumnIndex to 0
            Set psLabel to "PolicyType:"
            Set peLabelAlign to alignLeft
        End_Object 


        Object ogbQuotePolicyCategory is a cWebForm
            Entry_Item gbQuote.PolicyCategory
            Set piColumnSpan to 7
            Set piColumnIndex to 0
            Set psLabel to "PolicyCategory:"
            Set peLabelAlign to alignLeft
        End_Object 


        Object ogbQuoteSalesPerson is a cWebForm
            Entry_Item gbQuote.SalesPerson
            Set piColumnSpan to 7
            Set piColumnIndex to 0
            Set psLabel to "SalesPerson:"
            Set peLabelAlign to alignLeft
        End_Object 


        Object ogbQuoteCustomerNo is a cWebForm
            Entry_Item gbQuote.CustomerNo
            Set piColumnSpan to 7
            Set piColumnIndex to 0
            Set psLabel to "CustomerNo:"
            Set peLabelAlign to alignLeft
        End_Object 


        Object ogbQuoteCustomerName is a cWebForm
            Entry_Item gbQuote.CustomerName
            Set piColumnSpan to 12
            Set piColumnIndex to 0
            Set psLabel to "CustomerName:"
            Set peLabelAlign to alignLeft
        End_Object 


        Object ogbQuoteQuoteStatus is a cWebCombo
            Entry_Item gbQuote.QuoteStatus
            Set piColumnSpan to 5
            Set piColumnIndex to 0
            Set psLabel to "QuoteStatus:"
            Set peLabelAlign to alignLeft
        End_Object 


        Object oWebTabContainer is a cWebTabContainer
            Set pbFillHeight to True
            Set piColumnSpan to 12
            Set pbShowLabel to False


            Object oPage1 is a cWebTabPage
                Set piColumnCount to 12
                Set psCaption to "Tab Page Label"


                Object ogbQuoteEmail is a cWebForm
                    Entry_Item gbQuote.Email
                    Set piColumnSpan to 12
                    Set piColumnIndex to 0
                    Set psLabel to "Email:"
                    Set peLabelAlign to alignLeft
                End_Object 


                Object ogbQuoteAddress1 is a cWebForm
                    Entry_Item gbQuote.Address1
                    Set piColumnSpan to 12
                    Set piColumnIndex to 0
                    Set psLabel to "Address1:"
                    Set peLabelAlign to alignLeft
                End_Object 


                Object ogbQuoteMobilePhone is a cWebForm
                    Entry_Item gbQuote.MobilePhone
                    Set piColumnSpan to 6
                    Set piColumnIndex to 0
                    Set psLabel to "MobilePhone:"
                    Set peLabelAlign to alignLeft
                End_Object 




            End_Object 
        End_Object 
    End_Object 


End_Object


Thanks in advance
Jesmond
Click image for larger version. 

Name:	quote_DD.JPG 
Views:	36 
Size:	98.1 KB 
ID:	14985Click image for larger version. 

Name:	quote.JPG 
Views:	35 
Size:	100.5 KB 
ID:	14986Click image for larger version. 

Name:	policytpe.JPG 
Views:	35 
Size:	86.8 KB 
ID:	14987