Putting an integer in a code variable

sarmig · 2011-07-13

Hi.

I'm having a big problem with a probably small thing...

How do I put an integer (like 1) in a field of type code?

mohana_cse06 · 2011-07-13

Did you try
Code := FORMAT(Integer)?

sarmig · 2011-07-13

It's not working. My objective is that when I open a form (the Routing Line form), the operation number appears. The operation number, since there's only one entry per item, is always 1. This is what I have from the processing report from yesterday (in the item data item):

RecRoutingLine.RESET;
RecRoutingLine.SETRANGE("Routing No.","No.");

IF RecRoutingLine.FINDSET THEN BEGIN
  IF "Tempo Fabrico Machos" > 0 THEN BEGIN
  RecRoutingLine."Run Time" := "Tempo Fabrico Machos";
  RecRoutingLine.MODIFY;
  MESSAGE('%1', RecRoutingLine."Run Time");
  END
END

ELSE BEGIN
    RecRoutingHeader.RESET; 
    RecRoutingHeader.SETRANGE("No.","No.");

    RecRoutingHeader."No." := "No."; //Nº da tabela item
    RecRoutingHeader.Description := Description;
    RecRoutingHeader.INSERT;
    RecRoutingHeader.Status := RecRoutingHeader.Status::Certified;
    RecRoutingHeader.MODIFY;

    RecRoutingLine.RESET; 
    RecRoutingLine.SETRANGE("Routing No.","No.");

    RecRoutingLine."Routing No." := "No.";  //Nº da tabela item
    RecRoutingLine."Work Center No." := "Work Center No.";
    RecRoutingLine."Work Center Group Code" := "Work Center Group Code";
    RecRoutingLine."Operation No." := FORMAT(1);
    RecRoutingLine."Run Time" := "Tempo Fabrico Machos";
    RecRoutingLine.INSERT;

    IF "Tempo Fabrico Machos" > 0 THEN BEGIN
      RecRoutingLine."Run Time" := "Tempo Fabrico Machos";
      RecRoutingLine.MODIFY;
    END
 END

raveendran.s · 2011-07-13

Removed by myself as it is not good solution

mohana_cse06 · 2011-07-13

sarmig wrote:

It's not working.

What are you expecting from Not Working?
your question is to insert integer in Code..
FORMAT works perfectly for that..
if it is not working in your scenario means you have identify the mistake in your code..

mohana_cse06 · 2011-07-13

This code worked for me..

RecRoutingLine.RESET;
RecRoutingLine.SETRANGE("Routing No.","No.");

IF RecRoutingLine.FINDSET THEN BEGIN
  IF "Tempo Fabrico Machos" > 0 THEN BEGIN
  RecRoutingLine."Run Time" := "Tempo Fabrico Machos";
  RecRoutingLine.MODIFY;
  MESSAGE('%1', RecRoutingLine."Run Time");
  END
END
ELSE BEGIN
    RecRoutingHeader.RESET;
    //RecRoutingHeader.SETRANGE("No.","No.");

    RecRoutingHeader."No." := "No."; //Nº da tabela item
    RecRoutingHeader.Description := Description;
    RecRoutingHeader.INSERT;
    RecRoutingHeader.Status := RecRoutingHeader.Status::Certified;
    RecRoutingHeader.MODIFY;

    RecRoutingLine.RESET; 
    //RecRoutingLine.SETRANGE("Routing No.","No.");

    RecRoutingLine."Routing No." := "No.";  //Nº da tabela item
    RecRoutingLine."Work Center No." := "Work Center No.";
    RecRoutingLine."Work Center Group Code" := "Work Center Group Code";
    RecRoutingLine."Operation No." := FORMAT(1);
    RecRoutingLine."Run Time" := "Tempo Fabrico Machos";
    RecRoutingLine.INSERT;

    IF "Tempo Fabrico Machos" > 0 THEN BEGIN
      RecRoutingLine."Run Time" := "Tempo Fabrico Machos";
      RecRoutingLine.MODIFY;
    END;
END;

sarmig · 2011-07-13

The problem is that the field Operation No. in the Routing Line form has nothing, and I want '1' to appear there.

mohana_cse06 · 2011-07-13

sarmig wrote:

The problem is that the field Operation No. in the Routing Line form has nothing, and I want '1' to appear there.

With the above code, if I didnt get routing lines with item then it will create header and lines with operation No 1..
and it is working..

you have to identify why these solutions are not working for you..

sarmig · 2011-07-13

I'm having no idea...

mohana_cse06 · 2011-07-13

Did you try with the code which i have given? (I have modified some code of yours)

sarmig · 2011-07-13

I did. I noticed you eliminated some setranges...

mohana_cse06 · 2011-07-13

are you sure you dont have Routing Header and Lines for the Item which you are runnig?

create a new item and try..

sarmig · 2011-07-13

You were right. The item I was testing with already had a Routing Line and Header, although I really don't know how it was created (my supervisor told me these were not created automatically). I got it. Sorry for bothering. Thank you for helping me!

mohana_cse06 · 2011-07-13

Welcome

sarmig · 2011-07-13

By the way, where should I add another

RecRoutingLine."Operation No." := FORMAT(1);

so that I can insert an operating number to the items that already have a Routing Line and Header. I tried to do it here:

IF RecRoutingLine.FINDSET THEN BEGIN
  IF "Tempo Fabrico Machos" > 0 THEN BEGIN
  RecRoutingLine."Run Time" := "Tempo Fabrico Machos";
  RecRoutingLine."Operation No." := FORMAT(1);
  RecRoutingLine.MODIFY;

but it's not working.

mohana_cse06 · 2011-07-13

Operation No. is part of primary key..so we cannot do it like this..
we have to delete the line and insert again

Putting an integer in a code variable

Comments

Categories