السلام عليكم ورحمة الله وبركاته
أرجو المساعدة لأنشاء ملف نصي وفقا لشروط معية بحيث
كل سطر يجب أن يحتوي علة 62 حرف CHAQUE LIGNE CONTIENT 62 CARACTERES
1-سطر العنوان وسطر الراتب
[*]LIGNE POUR L’ENTETE + UNE LIGNE POUR CHAQUE SALARIE
[*]على هذا الشكل السطر الأول
Exemple *0000000057123142510000001253448000000012052006--------------0
السطر الثاني
Exemple *000000005712314251000000125344800AHMED ALI------------------1
Format_montant
Sur 13 positions Numériques.
Sans séparateur décimal Avec des zéros à gauche
Valeur Fixe
Exemple: pour 12 534,48 précisez 0000001253448
لقد وجدت مثال في إحدى المنتديات لكنه بلغة دلفي
أرجو المساعدة لأنشاء ملف نصي وفقا لشروط معية بحيث
كل سطر يجب أن يحتوي علة 62 حرف CHAQUE LIGNE CONTIENT 62 CARACTERES
1-سطر العنوان وسطر الراتب
[*]LIGNE POUR L’ENTETE + UNE LIGNE POUR CHAQUE SALARIE
[*]على هذا الشكل السطر الأول
Exemple *0000000057123142510000001253448000000012052006--------------0
السطر الثاني
Exemple *000000005712314251000000125344800AHMED ALI------------------1
Format_montant
Sur 13 positions Numériques.
Sans séparateur décimal Avec des zéros à gauche
Valeur Fixe
Exemple: pour 12 534,48 précisez 0000001253448
لقد وجدت مثال في إحدى المنتديات لكنه بلغة دلفي
كود :
function LigneDeVirement(Nccp : String;Montant: Real;Nom:String) : String;
var s,St,sNccp : String;MEntier : integer;
begin
s:= FormatFloat('0.00',Montant );;
s := copy(s,pos(DecimalSeparator,s)+1,2);
MEntier := trunc(Montant);
St := '*00000000' + Repeatstr('0',12-Length( epurer(Trim(Nccp)))) + epurer(Trim(Nccp));
St := St + RepeatStr('0',11-length(inttostr(mentier))) + IntToStr(MEntier)+ s;
if Length(Trim(Nom)) >= 27 then St := St + LeftStr(Trim(Nom),27)+'1'
Else St := St + nom + RepeatStr(' ',27-length(trim(nom))) + '1';
Result := st;
end;
function epurer (CCp : String):string;
Var s,s1 : string; i:integer;
Begin
s := '';
for i :=1 to length(ccp) Do
IF (CCp[i] in ['0'..'9']) Then S := S + CCp[i] ;
epurer := S;
end;
(**********************************************************************)
FUNCTION RepeatStr(ch: char; n:integer): string;
var i : integer ;
s : string;
Begin
s := '';
for i := 1 to n do s := s + ch;
result := s;
end;