Clipper/FiveWin - Append From sin duplicar

Select 2

Use Destino

Select 1

Use Origen

aRow := Array(FCount(),2)

For i:=1 To FCount()

    aRow[i.1] := Field(i)

Next i

Do While !Eof()

    Select 1

    For :=i To Len(aRow)

        aRow[i,2] := &(Field(i))

    Next i

    nFactura        = Factura

    nDocumento = Documento

    Select 2

    Locate For Factura = nFactura .And. Documento = nDocumento

    If !Found()

        Append Blank

        For i:=1 to Len(aRow)

            Replace &(aRow[i,1]) With aRow[i,2]

        Next i

    EndIf

    Select 1

    Skip

EndDo

USE Destino

INDEX ON (LTRIM( STR( Destino->Factura )) + LTRIM( STR( Destino->Documento)) ) TO NyIndex

Destino->(dbSetIndex("MyIndex"))

USE Origen

Origen->(dbGoTop())

nFieldCount = Origen->(FCOUNT())

DO WHILE !(Origen->(EOF()))

  nFactura = Origen->Factura

  nDocumento = Origen->Documento

  cIndex = LTRIM( STR( nFactura )) + LTRIM( STR( nDocumento ))

  // Busca Si existe en Destino

  IF (Destino->(dbSeek( cIndex ))) == .F.

     // Lo Inserta 

     Destino->(dbAppend())

     FOR n:=1 to nFieldCount

        Destino->(FieldPut( n, Origen->(FieldGet( n ))))

     NEXT

     Destino->(dbCommit())

  END IF

  Origen->(dbSkip(1))

END DO

CLOSE ALL