Для копирования полей из одной таблицы в другую,
я использую REPLACE, но конечные значения округляются.
При том формат полей у обоих таблиц совпадает.
Подскажите пожалуйста, как это можно исправить.
Заранее благодарен.

BurnДля начала смотреть какой SET DECIMAL
А ваще информации явно не хватает - какой формат полей?

Не формат а тип, ...запарился :-)
Все поля в таблицах Numeric ( 12, 2 )

// === пример кода ====

PROCEDURE face_user

LOCAL NameStreet
LOCAL NumHouse
LOCAL NumApartament

NameStreet = ALLTRIM( улица )
NumHouse = дом
NumApartament = квартира

LOCAL ARRAY lsl[12] as Integer && массив содержит входящие сальдо на нач.
&& следующего месяца

CLOSE TABLES && закрыть все таблицы

IF !FILE( ALLTRIM( STR ( BaseName - 1 ) ) + "\декабрь.dbf" )
lsl[1] = 0.0
ELSE
USE DataDir + ALLTRIM( STR( BaseName - 1 ) ) + "\декабрь.dbf"
AbonentSeek( NameStreet, NumHouse, NumApartament )
lsl[1] = ЛастСальдо
CLOSE TABLES
ENDIF

FOR i = 1 TO MONTH( DATE() )
USE DataDir + ALLTRIM( STR( BaseName ) )+ "\" + m( i ) + ".dbf"
AbonentSeek( NameStreet, NumHouse, NumApartament )
lsl[i + 1] = ЛастСальдо
ENDFOR

CLOSE TABLES

CREATE TABLE "data\faseuser.dbf" ;
( in_saldo N ( 12, 2 ), ;
nach N ( 12, 2 ), ;
k_oplate N ( 12, 2 ), ;
korr N ( 12, 2 ), ;
schet_441 N ( 12, 2 ), ;
schet_451 N ( 12, 2 ), ;
schet_334 N ( 12, 2 ), ;
schet_681 N ( 12, 2 ), ;
saldo N ( 12, 2 ))


* ----- отладка массива -----
*FOR i = 1 TO 12
* MESSAGEBOX( lsl )
*ENDFOR

*MESSAGEBOX( ALIAS() )

FOR i = 1 TO MONTH( DATE() )
USE DataDir + ALLTRIM( STR( BaseName ) ) + "\" + m( i ) + ".dbf" ALIAS alias_t IN 2
SELECT FASEUSER
APPEND BLANK
REPLACE in_saldo WITH lsl( i )
REPLACE nach WITH alias_t.начислено
REPLACE k_oplate WITH alias_t.к_оплате
REPLACE korr WITH alias_t.коррекция
ENDFOR

CLOSE TABLES