CPlus 5 Copiar codigo interno para codigo Adcional

CPlus 5 Copiar codigo interno para codigo Adcional

INSERT INTO PRODUTOCODIGO (ID,CODPROD,CODIGO,LAST_CHANGE,CODTIPOCODIGO)

SELECT LPAD(GEN_ID(SEQ_CODRMA,1),9,'0'), CODPROD, CODIGOINTERNO,CURRENT_DATE,'000000001' FROM PRODUTO WHERE CODIGOINTERNO <> ''