Amiguinho See this REGIDA := nSerialHD() REGIDB := nSerialHD() REGIDC := "" REGIDC := REGIDC+SUBS(REGIDA,1,1)+SUBS(REGIDB,8,1) REGIDC := REGIDC+SUBS(REGIDA,2,1)+SUBS(REGIDB,7,1) REGIDC := REGIDC+"-" REGIDC := REGIDC+SUBS(REGIDA,3,1)+SUBS(REGIDB,6,1) ...