Options

Fill in large scale

RikarddoRikarddo Member Posts: 80
Imagine this scenario.

I have the contact table that contains a GUN field, flowfield, which looks for the UN in an X table,
and returns the responsible for this UN.
CACLFORMULA = Lookup ("Dimension Value". "Consolidation Code" WHERE (Dimension Code = CONST (UNEGOCIO), Code = FIELD (UN)))

However, I wanted the field to be filled without changing the current architecture of the table. So I created a GUN2 field that is populated every time a new contact is created. And I put this code in the UN - On Validate field

IF DimensionValue.GET ('UNEGOCIO', UN) THEN BEGIN
GUN2: = DimensionValue. "Consolidation Code";
MODIFY;
END;

My problem is that if I have 1000 contacts associated with that UN, I have to modify one by one, and I wanted to do the opposite. Change in the X table the responsible, forcing my new field in the contact table.



Any thoughts?

Best Answer

  • Options
    RikarddoRikarddo Member Posts: 80
    Answer ✓
    I added this code but somehow not working

    Consolidation Code - OnValidate()

    IF "Consolidation Code" <> xRec."Consolidation Code" THEN
    BEGIN
    Contact.RESET;
    Contact.SETRANGE(UN,Code);
    IF Contact.FINDSET THEN BEGIN REPEAT
    Contact.GUN2:="Consolidation Code";
    MODIFY;
    MESSAGE('Test');
    UNTIL Contact.NEXT=0;
    END;
    END;


    It shows the pop up message with Test, but the field in contact table is not being updated. What am i doing wrong?

    Help? Thanks

Answers

  • Options
    RikarddoRikarddo Member Posts: 80
    Answer ✓
    I added this code but somehow not working

    Consolidation Code - OnValidate()

    IF "Consolidation Code" <> xRec."Consolidation Code" THEN
    BEGIN
    Contact.RESET;
    Contact.SETRANGE(UN,Code);
    IF Contact.FINDSET THEN BEGIN REPEAT
    Contact.GUN2:="Consolidation Code";
    MODIFY;
    MESSAGE('Test');
    UNTIL Contact.NEXT=0;
    END;
    END;


    It shows the pop up message with Test, but the field in contact table is not being updated. What am i doing wrong?

    Help? Thanks
  • Options
    RikarddoRikarddo Member Posts: 80
    Nevermind,
    My bad

    Contact.Modify; //
  • Options
    RockWithNAVRockWithNAV Member Posts: 1,139
    @Rikarddo Make it

    IF Contact.FINDSET(TRUE) THEN REPEAT (Remove Begin and add TRUE on Findset Parameter)
Sign In or Register to comment.