river arkadaşımada çok teşekkür ederim.Bir işin birçok yolu olduğunu öğrendim. Programınızı kendime uyarladım ve işimi yaptım.
------------------------------------------------------------------------------
clea
myhandle=FCreate("norm10.txt")
If myHandle < 0
WAIT WIND "Text dosyas yarat lamad ."
CANCEL
EndIF
CRLF= Chr (13)+Chr(10)
myDelimeter=" "
USE ISYERI
= FWrite (myHandle,IS_SICIL+myDelimeter)
= FWrite (myHandle,KONT_NO+myDelimeter)
= FWrite (myHandle,ARAC_NO+myDelimeter)
= FWrite (myHandle,UNVAN+myDelimeter)
= FWrite (myHandle,ADRES+myDelimeter)
= FWrite (myHandle,VERGI_NO+myDelimeter)
= FWrite (myHandle,DON_YIL+myDelimeter)
= FWrite (myHandle,DON_AY+myDelimeter)
= FWrite (myHandle,MAHIYET+myDelimeter)
= FWrite (myHandle,CRLF)
USE PERSONEL
Go Top
Do While !Eof()
= FWrite (myHandle,BELGE_TUR+myDelimeter)
= FWrite (myHandle,KANUN_NO+myDelimeter)
= FWrite (myHandle,STR(S_SICIL,13)+myDelimeter)
= FWrite (myHandle,STR(TCK_NO,11)+myDelimeter)
= FWrite (myHandle,AD+myDelimeter)
= FWrite (myHandle,SOYAD+myDelimeter)
= FWrite (myHandle,ILK_SOY+myDelimeter)
= FWrite (myHandle,STR(PEK,18,2)+myDelimeter)
= FWrite (myHandle,STR(GUN,2)+myDelimeter)
= FWrite (myHandle,G_GUN+myDelimeter)
= FWrite (myHandle,C_GUN+myDelimeter)
= FWrite (myHandle,STR(UIG,2)+myDelimeter)
= FWrite (myHandle,STR(UIPEK,11,2)+myDelimeter)
= FWrite (myHandle,EGN+myDelimeter)
= FWrite (myHandle,ICN+myDelimeter)
= FWrite (myHandle,CRLF)
SKIP
EndDo
= FClose(myHandle)
CloseAll
-----------------------------------------------------------------------------------
CLEA
SET TALK OFF
SET ECHO OFF
SELE 1
USE ISYERI
SELE 2
USE PERSONEL
SET TEXTMERGE TO NORM10.TXT NOSHOW
SELE 1
SET TEXTMERGE ON
\\<<IS_SICIL>>
\\<<" ">>
\\<<KONT_NO>>
\\<<" ">>
\\<<ARAC_NO>>
\\<<" ">>
\\<<UNVAN>>
\\<<" ">>
\\<<ADRES>>
\\<<" ">>
\\<<VERGI_NO>>
\\<<" ">>
\\<<DON_YIL>>
\\<<" ">>
\\<<DON_AY>>
\\<<" ">>
\\<<MAHIYET>>
\
SELE 2
SCAN
\\<<BELGE_TUR>>
\\<<" ">>
\\<<KANUN_NO>>
\\<<" ">>
\\<<STR(S_SICIL,13)>>
\\<<" ">>
\\<<STR(TCK_NO,11)>>
\\<<" ">>
\\<<AD>>
\\<<" ">>
\\<<SOYAD>>
\\<<" ">>
\\<<ILK_SOY>>
\\<<" ">>
\\<<STR(PEK,18,2)>>
\\<<" ">>
\\<<STR(GUN,2)>>
\\<<" ">>
\\<<G_GUN>>
\\<<" ">>
\\<<C_GUN>>
\\<<" ">>
\\<<STR(UIG,2)>>
\\<<" ">>
\\<<STR(UIPEK,11,2)>>
\\<<" ">>
\\<<EGN>>
\\<<" ">>
\\<<ICN>>
\
ENDSCAN
SET TEXTMERGE TO
SET TEXTMERGE OFF
CLOSE ALL
CLEA