05-04-2025, Saat: 18:04
Arkadaşlar kendi işyerim için yazdığım gib portalından indirdiğim e arşiv xlm faturaları okuyup stoklarımı düzenleyip görselini gösteren bir program yazdım sizinle paylaşmak istedim
05-04-2025, Saat: 18:04
05-04-2025, Saat: 19:02
05-04-2025, Saat: 19:06
05-04-2025, Saat: 21:10
unit xlm_gosterUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, OleCtrls, SHDocVw, StdCtrls,
my_compenent, Buttons, DB, ADODB ;
type
TXlm_Fatura_gosterForm = class(TForm)
WebBrowser1: TWebBrowser;
doc: TXMLDocument;
OpenDialog1: TOpenDialog;
GroupBox1: TGroupBox;
Button11: TButton1;
SpeedButton11: TSpeedButton1;
Buttonnext: TButton1;
ListBox1: TListBox;
procedure fatura_goster(filename:string);
procedure Button11Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure WebBrowser1Enter(Sender: TObject);
private
{ Private declarations }
public
Txlm_filename:WideString;
{ Public declarations }
end;
{$ifndef unicode}
type
Tbytes=array of byte;
{$endif}
var
Xlm_Fatura_gosterForm: TXlm_Fatura_gosterForm;
// xslt_klasor:string;
procedure xlm_fatura_gorsel(filename:string;liste:TListBox);
implementation
{$R *.dfm}
uses IdCoderMIME,msxml,encddecd,tmodul_unit,Stok_Ekle_Unit,ClipBrd;
procedure xlm_fatura_gorsel(filename:string;liste:TListBox);// listebox olmasada olur ben buton dan sıradaki fatura görüntülemek icin yaptım
begin
filename:=TXlm_Files+filename;
if not FileExists(filename) then begin ShowMessage(filename+' Görsel Dosya Bulunamadı');Abort end;
if not Assigned(Xlm_Fatura_gosterForm) then
Application.CreateForm(TXlm_Fatura_gosterForm, Xlm_Fatura_gosterForm);
Xlm_Fatura_gosterForm.Txlm_filename:=filename;
if liste<> nil then
Xlm_Fatura_gosterForm.ListBox1.Items:=liste.Items;
Xlm_Fatura_gosterForm.ShowModal;
FreeAndNil(Xlm_Fatura_gosterForm);
end;
// wep browsere yuklemek
procedure LoadHTMLCode(AWebBrowser : TWebBrowser; const AHTMLCode: string);
var
Doc: Variant;
begin
if not Assigned(AWebBrowser.Document) then
AWebBrowser.Navigate('about:blank');
Doc := AWebBrowser.Document;
Doc.Clear;
Doc.Write(AHTMLCode);
Doc.Close;
end;
function Transform(const AXMLContent : string; const AXSLContent : string) : string;
var
XML : IXMLDOMDocument;
XSL : IXMLDOMDocument;
begin
XML := CoDOMDocument.Create;
XML.load(AXMLContent);
XSL := CoDOMDocument.Create;
XSL.load(AXSLContent);
Result := XML.TransformNode(XSL);
end;
procedure Save_BinaryTo_File(const BinaryStream: TMemoryStream; const FileName: string);
var
FileStream: TFileStream;
begin
FileStream := TFileStream.Create(FileName, fmCreate);
try
BinaryStream.Position := 0;
FileStream.CopyFrom(BinaryStream, BinaryStream.Size);
finally
FileStream.Free;
end;
end;
function Base64ToBinary(const Base64String: string; out BinaryStream: TMemoryStream): Boolean;
var
DecodedStream: TStringStream;
DecodedString: string;
begin
Result := False;
DecodedStream := TStringStream.Create('');
try
try
DecodedString := DecodeString(Base64String);
DecodedStream.WriteString(DecodedString);
DecodedStream.Position := 0;
BinaryStream.CopyFrom(DecodedStream, 0);
Result := True;
except
// Hata durumunda False döndürülür.
end;
finally
DecodedStream.Free;
end;
end;
procedure ConvertBase64To_xlts(const Base_txt: string; const FileName: string);// base64 formatındaki bilgiyi dosyaya cevirir
var
BinaryStream: TMemoryStream;
begin
BinaryStream := TMemoryStream.Create;
try
if Base64ToBinary(Base_txt, BinaryStream) then
Save_BinaryTo_File(BinaryStream,FileName)
else
ShowMessage('Base64 dönüşümü başarısız.');
finally
BinaryStream.Free;
end;
end;
procedure kaydet_txt(filename:string;str:String);// xlm den okudugu base64 fornatını txt dosyasına kaydediyor
var
LogFile: TextFile;
begin
AssignFile(LogFile,FileName);
{$IOChecks off}
ReWrite(LogFile);
WriteLn(LogFile, str);
CloseFile(LogFile);
{$IOChecks on}
end;
function txt_oku(filename:string):AnsiString; // yazdıgınız base64 txt dosyasını okuyoruz
var
LoadString: AnsiString;
FS: TFileStream;
begin
FS := TFileStream.Create(FileName, fmOpenRead );
try
SetLength(LoadString, FS.Size);
FS.ReadBuffer(Pointer(LoadString)^, FS.Size);
finally
FS.Free;
end;
Result:=(String(LoadString));
end;
procedure TXlm_Fatura_gosterForm.fatura_goster(filename:string); // xlm dosyasını adını girecegiz burada xlm de gömülü xlts dosyasını base64 formatında onu alıp txt dosyasına yazacak
var
myFile : TextFile;
LBytes: tBytes;
LBase64Text: string;
XMLContent : string;
xslt_klasor, XLSContent : string;
HTMLCode ,txt_adi: string;
node_doc,alt_node,b_node,h: IXMLNode;
begin
xslt_klasor:=filename;;
doc.FileName:=filename;
doc.Active:=true;
node_doc:=Doc.DocumentElement.ChildNodes.First;
repeat
if node_doc.NodeName = 'cbc:ID' then
txt_adi:= node_doc.NodeValue;
if node_doc.NodeName ='cac:AdditionalDocumentReference' then
begin
alt_node:=node_doc.ChildNodes.First;
begin
repeat
if alt_node.NodeName ='cac:Attachment'then
begin
b_node:=alt_node.ChildNodes.First;
repeat
if b_node.NodeName='cbc:EmbeddedDocumentBinaryObject' then
begin
if b_node.Attributes['mimeCode']='application/xml' then
begin
kaydet_txt(xslt_klasor+txt_adi+ '.txt',b_node.Text);// xlm nin içinde base64 formatındaki xlts dosayası yani görsel fatura
end;
end;
b_node:=b_node.NextSibling;
until b_node=nil;
end;
alt_node:=alt_node.NextSibling;
until alt_node=nil;
end;
end;
node_doc:=node_doc.NextSibling;
until node_doc=nil;
doc.DOMDocument.appendChild( doc.DOMDocument.createProcessingInstruction('xml-stylesheet', 'type="text/xsl" href="'+ txt_adi+'.xslt"'));
if not FileExists(xslt_klasor+txt_adi+'.xml') then
doc.SaveToFile(xslt_klasor+txt_adi+'.xml'); // görüntülenecek xml
if not FileExists(xslt_klasor+txt_adi+'.xslt') then
begin
LBase64Text:=txt_oku(xslt_klasor+txt_adi+ '.txt'); // txt dosyasındaki base64 formatındaki bilgileri alıyoruz
ConvertBase64To_xlts(LBase64Text, xslt_klasor+txt_adi+ '.xslt'); //txt dosyasını xlts formatına ceviriyoruz
end;
//// fatuara göster
XMLContent:= xslt_klasor+txt_adi+'.xml';
XLSContent := xslt_klasor+txt_adi+'.xslt';
//transforming
HTMLCode := Transform(XMLContent, XLSContent);
//wep browserde göterecek
WebBrowser1.Silent := True;
LoadHTMLCode(WebBrowser1, HTMLCode); // web yükle
end;
end;
end.
xlm gömülü xlts yi base64 den xlts formatına çıkarıp webbrowserde görseli görebilirsinizunit Fonksiyonlar_Unit;
interface
uses
System.SysUtils, System.Classes ,Winapi.Windows ;
type
TDataModule2 = class(TDataModule)
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
function Kurus_ayırac: string;
function para_ayirac: string;
function Tarih_ayirac: string;
function Ayirac_düzelt(deger:string):string;
function matrah_Ayirac_düzelt(deger:string):string;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}
function Kurus_ayırac: string;
var
L: Integer;
Buffer: array[0..255] of Char;
DefaultLCID: LCID;
begin
DefaultLCID := GetThreadLocale;
L := GetLocaleInfo(DefaultLCID, LOCALE_STHOUSAND, Buffer, SizeOf(Buffer));
if L > 0 then
SetString(Result, Buffer, L - 1)
else
Result := ',';
end;
function PARA_ayirac: string;
var
L: Integer;
Buffer: array[0..255] of Char;
DefaultLCID: LCID;
begin
DefaultLCID := GetThreadLocale;
L := GetLocaleInfo(DefaultLCID, LOCALE_SDECIMAL, Buffer, SizeOf(Buffer));
if L > 0 then
SetString(Result, Buffer, L - 1)
else
Result := '.';
end;
function Tarih_ayirac: string;
var
L: Integer;
Buffer: array[0..255] of Char;
DefaultLCID: LCID;
begin
DefaultLCID := GetThreadLocale;
L := GetLocaleInfo(DefaultLCID, LOCALE_SDATE, Buffer, SizeOf(Buffer));
if L > 0 then
SetString(Result, Buffer, L - 1)
else
Result := '/';
end;
function matrah_Ayirac_düzelt(deger:string):string;
var
I: Integer;
begin
i := pos('(',deger);
if i<>0 then
delete(deger,i,length(deger)-1);
end;
function Ayirac_düzelt(deger:string):string;
var
I: Integer;
begin
for I := 1 to Length(deger)-1 do
if not (deger[i] in ['0'..'9']) then
deger[i]:=PARA_ayirac[1];
Result:= deger;
end;
end.
LOCALE_SCURRENCY, //para birimi işareti
LOCALE_ICURRENCY, //para sıfır ekleme
LOCALE_INEGCURR,
LOCALE_SDECIMAL,
LOCALE_ICURRDIGITS,
LOCALE_STHOUSAND,
LOCALE_SDATE,
LOCALE_STIME
end.
unit E_fatura_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ZipForge, //FileCtrl,
xmldom,
XMLIntf, msxmldom, XMLDoc, Grids, DBGrids, DB, ADODB, Mask, DBCtrls,
Menus, ComCtrls, my_compenent, FileCtrl;
type
TEfatura_Form = class(TForm)
GroupBox1: TGroupBox;
SpeedButton11: TSpeedButton1;
OpenDialog1: TOpenDialog;
XMLDocument1: TXMLDocument;
GroupBox2: TGroupBox;
FileListBox1: TFileListBox;
GroupBox3: TGroupBox;
DBGrid_faturalar: TDBGrid;
DBGrid_satirlar: TDBGrid;
GroupBox4: TGroupBox;
GroupBox5: TGroupBox;
DBEdit11: TDBEdit1;
GroupBox6: TGroupBox;
DBEdit12: TDBEdit1;
GroupBox7: TGroupBox;
DBEdit13: TDBEdit1;
GroupBox8: TGroupBox;
GroupBox9: TGroupBox;
GroupBox10: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit14: TDBEdit1;
DBEdit15: TDBEdit1;
DBEdit16: TDBEdit1;
DBEdit17: TDBEdit1;
PopupMenu1: TPopupMenu;
xlmac1: TMenuItem;
GroupBox11: TGroupBox;
DBGrid1: TDBGrid;
GroupBox12: TGroupBox;
SpeedButton12: TSpeedButton1;
SpeedButton13: TSpeedButton1;
GroupBox13: TGroupBox;
GroupBox14: TGroupBox;
GroupBox15: TGroupBox;
ilk_tarih: TDateTimePicker1;
son_tarih: TDateTimePicker1;
GroupBox16: TGroupBox;
Label_say: TLabel;
GroupBox17: TGroupBox;
GroupBox18: TGroupBox;
Bul_edit: TEdit1;
GroupBox19: TGroupBox;
Edit11: TEdit1;
PopupMenu_kalemler: TPopupMenu;
StokAra1: TMenuItem;
BarkodAra1: TMenuItem;
GroupBox20: TGroupBox;
SpeedButton15: TSpeedButton1;
SpeedButton14: TSpeedButton1;
Button11: TButton1;
Combobox_gonderen: TCombobox1;
SeciliCariyeAaitFaturalarGster1: TMenuItem;
Seci1: TMenuItem;
mKaytlar1: TMenuItem;
ListBox1: TListBox;
function zip_dosya_ac:boolean;
procedure SpeedButton11Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure fatura_kalemler( ANode : IXMLNode; ATitle : string = '' );
function xml_fatura_yukle(klasor,filename:string) :boolean;
procedure DBGrid_faturalarDblClick(Sender: TObject);
procedure xlmac1Click(Sender: TObject);
procedure gonderen_al(gon_node: IXMLNode);
procedure alici_al(alc_node:IXMLNode);
procedure kdv_ayrinti_al(tnode:IXMLNode);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure DBEdit12DblClick(Sender: TObject);
procedure GroupBox16DblClick(Sender: TObject);
procedure test_dosyasini_sil;
procedure Bul_editChange(Sender: TObject);
procedure Edit11Change(Sender: TObject);
procedure StokAra1Click(Sender: TObject);
procedure BarkodAra1Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure SeciliCariyeAaitFaturalarGster1Click(Sender: TObject);
procedure Seci1Click(Sender: TObject);
procedure mKaytlar1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Efatura_Form: TEfatura_Form;
implementation
{$R *.dfm}
uses Comobj, Stok_Ekle_Unit, Tlhelp32,tmodul_unit,Fonksion_Unit, Math,ShellAPI, xlm_gosterUnit,
DateUtils, depar_iletiUnit;
const
SHCONTCH_NOPROGRESSBOX = 4;
SHCONTCH_AUTORENAME = 8;
SHCONTCH_RESPONDYESTOALL = 16;
SHCONTF_INCLUDEHIDDEN = 128;
SHCONTF_FOLDERS = 32;
SHCONTF_NONFOLDERS = 64;
function tarih_duzelt(ttarih:string):string;
begin
Result:=Copy(ttarih, 9, 2)+'.'+ Copy(ttarih, 6, 2)+'.'+ Copy(ttarih, 1, 4);
end;
{ function zip_ac(zipfile, targetfolder: string; filter: string = ''): boolean;
var
shellobj: variant;
srcfldr, destfldr: variant;
shellfldritems: variant;
begin
shellobj := CreateOleObject('Shell.Application');
srcfldr := shellobj.NameSpace(zipfile);
destfldr := shellobj.NameSpace(targetfolder);
shellfldritems := srcfldr.Items;
if (filter <> '') then
shellfldritems.Filter(SHCONTF_INCLUDEHIDDEN or SHCONTF_NONFOLDERS or SHCONTF_FOLDERS,filter);
destfldr.CopyHere(shellfldritems, SHCONTCH_NOPROGRESSBOX or SHCONTCH_RESPONDYESTOALL);
end; }
function TEfatura_Form.zip_dosya_ac:boolean;
var
zip_dosya:string;
archiver : TZipForge;
begin
if OpenDialog1.Execute then
begin
zip_dosya:=OpenDialog1.FileName;
archiver := TZipForge.Create(nil);
try
with archiver do
begin
FileName := zip_dosya;
OpenArchive(fmOpenRead);
BaseDir := ExtractFilePath(Application.ExeName)+'\'+Txstl_xlm_klasor;
ExtractFiles('*.*');
CloseArchive();
FileName := zip_dosya;
OpenArchive(fmOpenRead);
BaseDir := ExtractFilePath(Application.ExeName)+'\test';
ExtractFiles('*.*');
CloseArchive();
end;
except
on E: Exception do
begin
Writeln('Exception: ', E.Message);
end;
end;
result:=True;
end else Result:=False;
end;
//// fatura kalemleri al
procedure TEfatura_Form.fatura_kalemler( ANode : IXMLNode; ATitle : string = '' );
var
altnode,
anaNode,
tmpSubNode:IXMLNode;
begin
anaNode := ANode.ChildNodes.First;
with DataModule1 do
begin
F_Kalemler_ADOTable.Append;
repeat
if ( anaNode.NodeName = 'cbc:ID' ) then //
F_Kalemler_ADOTableSra_No.AsString:=anaNode.Text; // sırano
If anaNode.LocalName ='InvoicedQuantity' then // birim kodu ve adeti
begin
F_Kalemler_ADOTableMiktar.Value:= StrToCurr(Ayirac_duzelt(anaNode.NodeValue)); //miktar
if anaNode.HasAttribute('unitCode') then //birimide al
if urun_Birimler_ADOTable.Locate('birim_kodu',anaNode.AttributeNodes.FindNode('unitCode').Text,[loCaseInsensitive]) then
begin
F_Kalemler_ADOTablebirim_kodu.Value:= anaNode.AttributeNodes.FindNode('unitCode').Text;
F_Kalemler_ADOTableBirim.Value:= urun_Birimler_ADOTablebirim_acklama.Value;
F_Kalemler_ADOTablebirim_adet.Value:=urun_Birimler_ADOTableBirim_adet.Value;
end else
begin
F_Kalemler_ADOTableBirim.Value:= anaNode.AttributeNodes.FindNode('unitCode').Text;
F_Kalemler_ADOTablebirim_kodu.Value:= anaNode.AttributeNodes.FindNode('unitCode').Text;
F_Kalemler_ADOTablebirim_adet.Value:=False;
end;
end;
// satır tutarı kdv haric iskondo düsülmüş zorunlu
if anaNode.LocalName='LineExtensionAmount' then
F_Kalemler_ADOTableSatir_Tutar.Value:=StrToCurr(Ayirac_duzelt(anaNode.NodeValue));
if anaNode.LocalName='AllowanceCharge' then ///iskonto
begin
altnode:=anaNode.ChildNodes.First;
repeat
if altnode.LocalName='ChargeIndicator' then //kdv dahil true veya falsr
F_Kalemler_ADOTablekdv_dahil.Value:= altnode.Text;
if altnode.LocalName='BaseAmount' then // kdv dahil satırtutar
F_Kalemler_ADOTableSatir_Toplam.Value:=StrToCurr(Ayirac_duzelt(altnode.NodeValue));
if altnode.LocalName='MultiplierFactorNumeric' then //iskonto oranı
F_Kalemler_ADOTableIskonto_Orani.Value:=StrToCurr(Ayirac_duzelt(altnode.NodeValue));
if altnode.LocalName='Amount' then
F_Kalemler_ADOTableskonto_Tutari.Value:=StrToCurr(Ayirac_duzelt(altnode.NodeValue));
altnode:=altnode.NextSibling;
until altnode=nil;
end;
if anaNode.LocalName = 'TaxTotal' then //kalem vergi bilgileri
begin
tmpSubNode := anaNode.ChildNodes.First;
repeat
if tmpSubNode.LocalName='TaxSubtotal' then
begin
altnode:=tmpSubNode.ChildNodes.First;
repeat
if altnode.LocalName='TaxAmount' then //kdv tutarı
F_Kalemler_ADOTableKdv_Tutar.Value:=StrToCurr(Ayirac_duzelt(altnode.NodeValue));
if altnode.LocalName='Percent'then //kdv oranı
F_Kalemler_ADOTableKdv_Orani.Value:=StrToCurr(Ayirac_duzelt(altnode.NodeValue));
altnode:=altnode.NextSibling;
until altnode= nil;
end;
tmpSubNode := tmpSubNode.NextSibling;//bir sonraki node ye atla...
until tmpSubNode = Nil;
end;
if anaNode.LocalName='Item' then
begin
altnode:=anaNode.ChildNodes.First;
repeat
if altnode.LocalName='Name' then
F_Kalemler_ADOTableMal_Hizmet.Value:=altnode.Text;
if altnode.LocalName='Description' then
F_Kalemler_ADOTableMal_Hizmet_1.Value:=altnode.Text;
if altnode.LocalName= 'SellersItemIdentification'then //ürün kodu veya barkod
F_Kalemler_ADOTableBarkod.Value:=altnode.ChildNodes.first.Text;
altnode:=altnode.NextSibling;
until altnode=nil;
end;
if anaNode.LocalName='Price' then // b,r,m fiyatı
begin
altnode:=anaNode.ChildNodes.First;
repeat
if altnode.LocalName='PriceAmount' then
F_Kalemler_ADOTableBirim_Fiyat.Value:=StrToCurr(Ayirac_duzelt(altnode.NodeValue));
altnode:=altnode.NextSibling;
until altnode=nil;
end;
anaNode := anaNode.NextSibling;// next satır bilgileri
until anaNode = Nil;
F_Kalemler_ADOTable.Post;
end;
end;
procedure TEfatura_Form.alici_al(alc_node:IXMLNode);
var alt_node, av_node:IXMLNode;
begin
with DataModule1 do
repeat
if alc_node.NodeName = 'cac
arty' then
begin
alt_node:=alc_node.ChildNodes.First;
repeat
//alıscı tc kimlik no
if alt_node.LocalName= 'PartyIdentification' then
if alt_node.ChildNodes.First.HasAttribute('schemeID') then
if (alt_node.ChildNodes.First.Attributes['schemeID']='TCKN') or
( alt_node.ChildNodes.First.Attributes['schemeID']='VKN') then
E_fatura_ADOQueryAlc_VKN.Value:= alt_node.ChildNodes.First.Text;
// alıcı ünvanı
if alt_node.NodeName = 'cacartyName' then
E_fatura_ADOQueryAlc_Unvan.Value:=alt_node.ChildNodes.First.Text ;
if alt_node.LocalName='Person' then
begin
av_node:=alt_node.ChildNodes.First;
repeat
if av_node.LocalName='FirstName'then
if av_node.Text<> '' then
E_fatura_ADOQueryAlc_Unvan.Value:=av_node.Text;
if av_node.LocalName='FamilyName' then
if av_node.Text<> '' then
E_fatura_ADOQueryAlc_Unvan.Value:=E_fatura_ADOQueryAlc_Unvan.Value+av_node.Text;
av_node:=av_node.NextSibling;
until av_node=nil;
end;
alt_node:=alt_node.NextSibling;
until alt_node=nil;
end;
alc_node:=alc_node.NextSibling;
until alc_node=nil;
end;
procedure TEfatura_Form.gonderen_al(gon_node: IXMLNode);
var
person_node,alt_node: IXMLNode;
begin
with DataModule1 do
repeat
if gon_Node.LocalName='Party' then
begin
alt_node:=gon_Node.ChildNodes.First;
repeat
if alt_node.LocalName='PartyIdentification' then
begin
if alt_node.ChildNodes.first.LocalName='ID' then
if alt_node.ChildNodes.First.HasAttribute('schemeID') then
if (alt_node.ChildNodes.First.Attributes['schemeID']='VKN')or
( alt_node.ChildNodes.First.Attributes['schemeID']='TCKN') then
E_fatura_ADOQueryGon_VKN.Value:=alt_node.ChildNodes.first.Text;
end;
if alt_node.LocalName='PartyName' then
begin
if (alt_node.ChildNodes.First.LocalName='Name')and( alt_node.ChildNodes.First.Text<>'')then
E_fatura_ADOQueryGon_Unvan.Value:=alt_node.ChildNodes.First.Text;
end;
if alt_node.LocalName='Person' then
begin
person_node:=alt_node.ChildNodes.First;
repeat
if (person_node.LocalName='FirstName')and (person_node.Text<>'') then
E_fatura_ADOQueryGon_Unvan.Value:=person_node.Text;
if (person_node.LocalName='FamilyName')and (person_node.Text<>'') then
E_fatura_ADOQueryGon_Unvan.Value:=E_fatura_ADOQueryGon_Unvan.Value+person_node.Text;
person_node:=person_node.NextSibling;
until person_node=nil;
end;
alt_node:=alt_node.NextSibling;
until alt_node=nil;
end;
// if Assigned(saticiNode) then
gon_Node:= gon_Node.NextSibling ;
until gon_Node = Nil;
end;
/// kdv ayrintisı
procedure TEfatura_Form.kdv_ayrinti_al(tnode:IXMLNode);
var
sub_node,ca_alt_node, alt_node, catg_node:IXMLNode;
begin
if tnode.NodeName = 'cac:TaxTotal' then
begin
alt_node:=tnode.ChildNodes.First;
repeat
if alt_node.LocalName='TaxSubtotal' then
with DataModule1 do
begin
Kdv_ADOTable.Append;
sub_node:=alt_node.ChildNodes.First;
repeat
if sub_node.LocalName= 'TaxableAmount' then //kdv matrah
Kdv_ADOTableKdv_Matrah.Value:=StrToCurr(Ayirac_duzelt(sub_node.NodeValue));
if sub_node.LocalName= 'TaxAmount' then //hesaplanan kdv
Kdv_ADOTableKdv_Tutari.Value:=StrToCurr(Ayirac_duzelt(sub_node.NodeValue));
// if sub_node.LocalName= 'CalculationSequenceNumeric' then
// ShowMessage(sub_node.Text);
if sub_node.LocalName= 'Percent' then
Kdv_ADOTableVergi_Orani.Value:=sub_node.Text; //kdv oranı
if sub_node.LocalName= 'TaxCategory' then
Begin
catg_node:=sub_node.ChildNodes.First;
repeat
if catg_node.LocalName='TaxScheme' then
begin
ca_alt_node:=catg_node.ChildNodes.First;
repeat
if ca_alt_node.LocalName='Name' then //vergi acıklaması
Kdv_ADOTableVergi_Aciklama.Value := ca_alt_node.Text;
if ca_alt_node.LocalName='TaxTypeCode' then
Kdv_ADOTableVergi_Kodu.Value:=ca_alt_node.Text;
ca_alt_node:=ca_alt_node.NextSibling;
until ca_alt_node=nil;
end;
catg_node:=catg_node.NextSibling;
until catg_node=nil;
end;
sub_node:=sub_node.NextSibling;
until sub_node=nil;
Kdv_ADOTable.Post;
end;
alt_node:=alt_node.NextSibling;
until alt_node=nil;
end;
end;
function TEfatura_Form.xml_fatura_yukle(klasor,filename:string) :boolean;
var
D : IXMLDocument;
alt_node, toplam_node,fatura_node: IXMLNode;
TFatura_No:tcaption;
begin
D:= LoadXMLDocument(klasor+FileName);
D.Active := True ;
alt_node:=D.DocumentElement.ChildNodes.First;
repeat
if alt_node.LocalName='ID' then
begin
TFatura_No:=alt_node.text; end;
alt_node:=alt_node.NextSibling;
until alt_node=nil;
fatura_node:=D.DocumentElement.ChildNodes.First;
with DataModule1 do
begin
if TFatura_No='' then Abort;
if E_fatura_ADOQuery.Locate('fatura_No',TFatura_No,[loCaseInsensitive]) then
Abort;
E_fatura_ADOQuery.Append;
repeat
if fatura_node.NodeName = 'cbcrofileID' then //fatura tipi
E_fatura_ADOQueryFatura_tipi.Value:=fatura_node.Text;
if fatura_node.LocalName = 'ID' then //fatura no
E_fatura_ADOQueryFatura_No.Value:=fatura_node.Text;
if fatura_node.LocalName='UUID' then
E_fatura_ADOQueryFat_ETTN.Value:=fatura_node.Text;
if fatura_node.NodeName = 'cbc:IssueDate' then // tarih
E_fatura_ADOQueryFatura_Tarihi.Value:=fatura_node.Text;
if fatura_node.NodeName = 'cbc:IssueTime' then
E_fatura_ADOQuerysaat.Value:=fatura_node.Text;
if fatura_node.NodeName = 'cbc:InvoiceTypeCode' then // fatura tipi
E_fatura_ADOQueryBelge_tipi.Value:=fatura_node.Text;
//if fatura_node.NodeName = '<cbc:LineCountNumeric> ' then
// kalem sayısı
//alıcı bilgileri
if fatura_node.NodeName = 'cac:AccountingCustomerParty' then // alıcı
alici_al(fatura_node.ChildNodes.First);
// göndedren
if (fatura_node.LocalName = 'AccountingSupplierParty')then
//party
gonderen_al( fatura_node.ChildNodes.First );
if fatura_node.NodeName = 'cac:TaxTotal' then
begin
toplam_node:= fatura_node.ChildNodes.First;
repeat
if toplam_node.LocalName = 'TaxAmount' then // kdv fatura toplamı
E_fatura_ADOQueryKdv_Toplam.Value:=StrToCurr(Ayirac_duzelt(toplam_node.NodeValue));
toplam_node:=toplam_node.NextSibling; //next
until toplam_node=nil;
end;
//*****************************************fatura alt toplamları ********************//
if fatura_node.NodeName = 'cac:LegalMonetaryTotal' then //fatura alt toplamları
begin
alt_node:=fatura_node.ChildNodes.First;
repeat
if alt_node.NodeName ='cbc:LineExtensionAmount' then // fatura alt toplamı
E_fatura_ADOQueryMalHizmet_Toplam.Value:=
StrToCurr(Ayirac_duzelt(alt_node.NodeValue));
// if alt_node.NodeName ='cbc:TaxExclusiveAmount' then //kdv siz indirimli toplam
//F_Kalemler_ADOTableTutar
if alt_node.NodeName ='cbc:TaxInclusiveAmount' then // fatura toplamı kdv dahil
if alt_node.Text<>'' then
E_fatura_ADOQueryFatura_Toplam.Value:= StrToCurr(Ayirac_duzelt(alt_node.NodeValue));
if alt_node.NodeName ='cbc:AllowanceTotalAmount' then // indirim toplamı
E_fatura_ADOQueryskonto_Toplam.Value:= StrToCurr(Ayirac_duzelt(alt_node.NodeValue));
if alt_node.NodeName ='cbcayableAmount' then // ödenmesi gereken tutar
if alt_node.Text<>'' then
E_fatura_ADOQueryFatura_Toplam.Value:= StrToCurr(Ayirac_duzelt(alt_node.NodeValue));
alt_node:=alt_node.NextSibling;
until alt_node=nil ;
end;
if fatura_node.NodeName = 'cacaymentMeans' then // faura odeme bilgileri
begin
// exit;
alt_node:=fatura_node.ChildNodes.First;
repeat
if alt_node.NodeName = 'cbc:InstructionNote' then
E_fatura_ADOQueryOdeme_tipi.Value:=alt_node.Text;
alt_node:=alt_node.NextSibling;
until alt_node=nil;
end;
//if (fatura_node.IsTextElement = False) Then
begin
end;
fatura_node := fatura_node.NextSibling;//bir sonraki node ye atla...
until fatura_node=Nil;
// E_fatura_ADOQuery.value:=false;
E_fatura_ADOQueryxml_dosya.Value:=filename;
E_fatura_ADOQuerysorgu_tarih.AsString:=tarih_duzelt(E_fatura_ADOQueryFatura_Tarihi.Value);
E_fatura_ADOQuery.Post;
begin
fatura_node:=D.DocumentElement.ChildNodes.First;
repeat
if fatura_node.LocalName = 'InvoiceLine' then // fatura ayrıntıları
fatura_kalemler( fatura_node );
fatura_node := fatura_node.NextSibling;
until fatura_node=nil;
fatura_node:=D.DocumentElement.ChildNodes.First;
repeat
if fatura_node.NodeName = 'cac:TaxTotal' then
begin
kdv_ayrinti_al(fatura_node);
end;
fatura_node := fatura_node.NextSibling;
until fatura_node=nil;
end;
end;
end;
procedure TEfatura_Form.test_dosyasini_sil;
var
i:integer;
begin
FileListBox1.Directory:=ExtractFilePath(Application.ExeName)+'test\';
FileListBox1.Update;
for i := 0 to (FileListBox1.Items.Count - 1) do
begin
if FileExists(FileListBox1.Directory+'\'+FileListBox1.Items.Strings[i]) then
if deletefile(FileListBox1.Directory+'\'+FileListBox1.Items.Strings[i]) then
end;
end;
suan butun faturaları ve stokları ve kalemleri kendi veri tabanıma alıp muhasebeleştiriyorum fakat sıkıntı su fatura kesen entegresyon firmaları bazı alanları fatura görselinde olmadığı için yanlış dolduruyorlar urun barkodunun yazılması gereken yere isim vs yazıyorlar bende bunu hizmet adındaki alan mecburi olduğu için urun ismine göre aratıp stok girdi çıktısını yapıyorum normalde görsel ile xlm aynı olmalı fakat olmuyorgramlı ve adetli barkodlar olusturuyorom
turkiyede 29 28 27 barkodun ilk iki hanesi
toplam 13 hane
2 hane urunun gramajlı veya adetli satıldığı anlamında
sonraki 5 hane urunun barkodu
sonraki 6 hane gram cinsinden fakat ben
ek adında bir barkod üretiyorum sonraki alanlar urun miktarı
yani
ek1 1 adet ek demek
ek20 20 adet ek
bunud da tabloda belirtiyorun
function gramli_barkod(tbarkod:string; var tmiktar:Currency ): string;
var
ex:Extended;
gramli_barkod:string;
gramli_miktar:string;
begin
with DataModule1 do
begin
If barkod.Active= false Then barkod.Open;
if barkod.Locate('barkod',Copy(tbarkod, 1,2),[loPartialKey]) then
begin
gramli_barkod:= Copy(tbarkod ,1, barkodbarkod_uzunluk.Value); // barkod uzunluk
gramli_miktar:= Copy(tbarkod,barkodbarkod_uzunluk.Value+1, Length(tbarkod)); // miktar uzunluk
Result:=gramli_barkod;
if TryStrToFloat(gramli_miktar,ex) then
tmiktar:= StrToFloat( gramli_miktar)/DataModule1.barkodcarpan.Value else
begin
//ShowMessage('EDET TANIMLI BARKOD HATASI düzeltiniz');
Result:=tbarkod; end;
end else Result:=tbarkod;
If barkod.Active= true Then
barkod.close;
end;
end;06-04-2025, Saat: 09:54
06-04-2025, Saat: 19:30
zip olarak gelen dosyanın içindeki 10 adet e arsiv dosyayı excel direk aktarır satır ve sütunları kendiniz belirlersiniz alt toplamları
procedure TForm1.Button_excel_aktarClick(Sender: TObject);
dbgrideki bilgileri aynı hücre yapısına göre aktarır
if fatura_node.NodeName = ProfileID then "
burası farklı çıkıyor anlamış degilim
yukarıdaki base64 fonciyonu ile faturalarınıza loğorı base64 formatına çevirip görsele gömebilirsiniz
yukarıdaki programla bu program arasındaki fark yukarıda xlm dosyasını 2 defa yükleyip acar çünkü fatura kalemleri en alt satırdadır
node ler iç içe gectiğinde veri tabanı kayıt eklerken sıkıntı çıkıyor geçici yükler iseniz excell vs gibi zaman kaybı oluyor en sağlılı olanı veri tabanına alıp ondan sonra işlem yapmak açılacak dosya sayısı fazla olursa zaman kaybı
misal ben hızlı satış programında satış yapıyorum ana veri tabanıma yazmadan önce faklı veri tabanında işlem yapıyorum ne zaman kaydet dedim ana veri tabanıma işliyor yani elektirik kesilse veya program bir şekilde kapatılsa dahi veriler orda duruyor ve daha hızlı çünkü ana veri tabanında tablo sayısı farklı diger veri tabanı olusturaşağım kasa sayısı kadar 2 veya 3 adet ve diğer bir avantajı diğer veri tabanı bağlantısı yerel pc de ana bağlantı diğer
pc veya wepte olsun ne zaman kaydet dersem o zaman işlem yapıyor ve programı farklı pc lerde kullanabiliyorum sadece ana baglantı yolunu gostermem yeterli oluyor
doğrumu yapıyorum orasını bilmiyorum
fakat şu ana kadar sıkıntı çıkmadı
1999 da pascal da akaryakıt istasyonu programı yazmıştım degişken fiyat üstünden malum o zaman fiyatlar çok değişken olunca cari hesabı da değisiyordu
ben sadece hobi amaçlı uğraşıyorum
procedure TForm1.Button_excel_aktarClick(Sender: TObject);
dbgrideki bilgileri aynı hücre yapısına göre aktarır
unit ecxell_aktar_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, my_compenent, DB, ADODB, IdBaseComponent, IdComponent,
IdTCPServer, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls,
FileCtrl, xmldom, XMLIntf, msxmldom, XMLDoc,StrUtils; // for TDocVariant type support;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Stok_aktar_Button: TButton1;
ADOConnection1: TADOConnection;
hesapADOQuery: TADOQuery;
Cari_ADOTable: TADOTable;
Button11: TButton1;
hesapADOQueryhesapi: TBCDField;
OpenDialog1: TOpenDialog;
IdTCPServer1: TIdTCPServer;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
DBGrid1: TDBGrid;
DataSource_Stok: TDataSource;
GroupBox2: TGroupBox;
DBNavigator1: TDBNavigator;
Stok_ADOTable: TADOQuery;
Button_Veri_al: TButton1;
Button_excel_aktar: TButton1;
ListBox1: TListBox;
FileListBox1: TFileListBox;
XMLDocument1: TXMLDocument;
function _dosya_ac:boolean;
procedure Button_excel_aktarClick(Sender: TObject);
procedure Button_Veri_alClick(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
procedure FormShow(Sender: TObject);
function farura_baslik(D : IXMLDocument; var g_satir:integer;g_sutun:integer) :boolean;
procedure alici_al(D : IXMLDocument; var g_satir:integer;g_sutun:integer);
procedure gonderen_al(D : IXMLDocument; var g_satir:integer;g_sutun:integer);
procedure FileListBox1DblClick(Sender: TObject);
procedure kalemleri_al(D:IXMLDocument; var gsatir:integer;gsutun:integer);
procedure fatura_kalemler(ANode : IXMLNode; g_satir,g_sutun:integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses comobj, DateUtils,ZipForge;
var
sayfa,uygulama: Variant;
function birim(g_birim_kodu:string): string;
const
birim_kodlari : array [0..3] of String = ('TN','NIU','PK','EA');
begin
case AnsiIndexStr(g_birim_kodu,birim_kodlari ) of
1 : Result:='Teneke';
2 : Result:='ADET';
3 : Result:='PAKET';
4 : Result:='paket';
5 :Result:='KARTON';
else Result:='Adet';
end ;
end;
// birim kodlaı cözümlenecek gib portalta kodlara gelen karşilıkları mevcut
function TForm1._dosya_ac:boolean;
var
zip_dosya:string;
archiver : TZipForge;
begin
OpenDialog1.DefaultExt:='*.zip';
OpenDialog1.Filter:=' E arşiv Zip dosyalar|*.zip';
OpenDialog1.FilterIndex:=1;
if OpenDialog1.Execute then
begin
zip_dosya:=OpenDialog1.FileName;
archiver := TZipForge.Create(nil);
try
with archiver do
begin
FileName := zip_dosya;
OpenArchive(fmOpenRead);
BaseDir := ExtractFilePath(Application.ExeName)+'\'+'xlm'; // ana dizine xlm klasorune acılacak
ExtractFiles('*.*');
CloseArchive();
end;
except
on E: Exception do
begin
Writeln('Exception: ', E.Message);
Readln;
end;
end;
result:=True;
end else Result:=False;
end;
procedure TForm1.Button_Veri_alClick(Sender: TObject);
begin
if ADOConnection1.Connected then
ADOConnection1.Close;
OpenDialog1.Title:='Program Kayıt dosyaını Şeciniz';
OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
if OpenDialog1.Execute then
Caption:=OpenDialog1.FileName;
if FileExists(Caption) then
begin
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+
Caption+';Mode=Share Deny None;Jet OLEDB:'+
'System database="";Jet OLEDB:Registry Path="";Jet OLEDB
atabase Password="";'+
'Jet OLEDB:Engine Type=5; Jet OLEDBatabase Locking Mode=1; Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1; Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+
//Jet OLEDBon't Copy Locale on Compact=False;
'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;';
ADOConnection1.Open;
ADOConnection1.GetTableNames ( ListBox1.Items , False );
GroupBox1.Caption:='veri baglantısı yapıldı';
With Stok_ADOTable do
begin
SQL.Clear;
SQL.Add('select * from stoklar ');
SQL.Add('WHERE tarih>:gecerli_tarih ');
SQL.Add('and satisfiyat > 0 ');
SQL.Add('and (len(barkod) BETWEEN 5 and 13)');
//SQL.Add('and len(barkod)>=5 ');
SQL.Add('order by cinsi');
//'and sorgu_tarih<='+QuotedStr(FormatDate('dd.mm.yyy', son_tarih.Date)));
Parameters.ParamByName('gecerli_tarih').Value := DateToStr(Date-700);
//Parameters.ParamByName('Tar2').Value := DateToStr(son_tarih.Date);
Open;
Cari_ADOTable.Open;
end;
end
else begin ShowMessage(' dosya bulunamadı hatası');
Abort; end;
end;
// listeden cekilem tablo adını gride yukler excel aktarabilirsiniz yukler
procedure TForm1.Button_excel_aktarClick(Sender: TObject);
var
tsatir,tsutun:integer;
begin
Form1.Caption:=' Stoklar Exel aktarılıyor bekleyiniz';
uygulama := CreateOleObject('Excel.Application');
uygulama.Workbooks.Add;
// uygulama.Columns[1].ColumnWidth := 25;
//uygulama.Columns[2].ColumnWidth := 25;
tsatir:=2;
Stok_ADOTable.First;
while not Stok_ADOTable.Eof do
begin
begin
for tsutun :=1 to DBGrid1.Columns.Count-1 do
uygulama.activeSheet.Cells[tsatir,tsutun]:=DBGrid1.Columns[tsutun].Field.AsString;
tsatir:=tsatir+1;
end;
Stok_ADOTable.Next;
end;
uygulama.Visible := True;
Form1.Caption:=' grid Excel aktarıldı';
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
var i:integer;
begin
With Stok_ADOTable do
begin
SQL.Clear;
SQL.Add('select * from ');
SQL.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);
Open;
end;
for i:=0 to DBGrid1.Columns.Count-1 do
DBGrid1.Columns[i].Width:=150;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
FileListBox1.Directory:=ExtractFilePath(Application.ExeName)+'test\';
end;
procedure TForm1.alici_al(D : IXMLDocument; var g_satir:integer;g_sutun:integer);
var fatura_node,alc_node,alt_node, av_node:IXMLNode;
begin
fatura_node:=D.DocumentElement.ChildNodes.First;
repeat
if fatura_node.NodeName = 'cac:AccountingCustomerParty' then // alıcı
begin
alc_node:=fatura_node.ChildNodes.First;
repeat
if alc_node.NodeName = 'cacarty' then
begin
alt_node:=alc_node.ChildNodes.First;
repeat
//alıscı tc kimlik no
if alt_node.LocalName= 'PartyIdentification' then
if alt_node.ChildNodes.First.HasAttribute('schemeID') then
if (alt_node.ChildNodes.First.Attributes['schemeID']='TCKN') or
( alt_node.ChildNodes.First.Attributes['schemeID']='VKN') then
uygulama.activeSheet.Cells[g_satir,g_sutun+1]:= alt_node.ChildNodes.First.Text;
// alıcı ünvanı
if alt_node.NodeName = 'cacartyName' then
uygulama.activeSheet.Cells[g_satir,g_sutun+2]:=alt_node.ChildNodes.First.Text ;
if alt_node.LocalName='Person' then
begin
av_node:=alt_node.ChildNodes.First;
repeat
if av_node.LocalName='FirstName'then // isim sy isim giridi ise sahıslara
if av_node.Text<> '' then
uygulama.activeSheet.Cells[g_satir,g_sutun+2]:=av_node.Text;
// if av_node.LocalName='FamilyName' then
// if av_node.Text<> '' then
// uygulama.activeSheet.Cells[satir,g_sutun+2]:= uygulama.activeSheet.Cells[satir,g_sutun+2]+av_node.Text;
av_node:=av_node.NextSibling;
until av_node=nil;
end;
alt_node:=alt_node.NextSibling;
until alt_node=nil;
end;
alc_node:=alc_node.NextSibling;
until alc_node=nil;
end;
fatura_node:=fatura_node.NextSibling;
until fatura_node=nil;
g_satir:=g_satir+1;
end;
procedure TForm1.gonderen_al(D : IXMLDocument;var g_satir:integer; g_sutun:integer);
var
fatura_node,person_node,alt_node,gon_node: IXMLNode;
begin
fatura_node:=D.DocumentElement.ChildNodes.First;
repeat
if (fatura_node.LocalName = 'AccountingSupplierParty')then
begin
gon_node:=fatura_node.ChildNodes.First;
repeat
if gon_Node.LocalName='Party' then
begin
alt_node:=gon_Node.ChildNodes.First;
repeat
if alt_node.LocalName='PartyIdentification' then
begin
if alt_node.ChildNodes.first.LocalName='ID' then
if alt_node.ChildNodes.First.HasAttribute('schemeID') then
if (alt_node.ChildNodes.First.Attributes['schemeID']='VKN')or
( alt_node.ChildNodes.First.Attributes['schemeID']='TCKN') then
uygulama.activeSheet.Cells[g_satir,g_sutun+1]:=alt_node.ChildNodes.first.Text; //vkn
end;
if alt_node.LocalName='PartyName' then
begin
if (alt_node.ChildNodes.First.LocalName='Name')and( alt_node.ChildNodes.First.Text<>'')then
uygulama.activeSheet.Cells[g_satir,g_sutun+2]:=alt_node.ChildNodes.First.Text;
end;
if alt_node.LocalName='Person' then
begin
person_node:=alt_node.ChildNodes.First;
repeat
if (person_node.LocalName='FirstName')and (person_node.Text<>'') then
uygulama.activeSheet.Cells[g_satir,g_sutun+2]:=person_node.Text;
// if (person_node.LocalName='FamilyName')and (person_node.Text<>'') then
// uygulama.activeSheet.Cells[satir,g_sutun+2]:=uygulama.activeSheet.Cells[satir,g_sutun+1]+person_node.Text;
person_node:=person_node.NextSibling;
until person_node=nil;
end;
alt_node:=alt_node.NextSibling;
until alt_node=nil;
end;
gon_Node:= gon_Node.NextSibling ;
until gon_Node = Nil;
end;
fatura_node:=fatura_node.NextSibling;
until fatura_node=nil;
g_satir:=g_satir+1;
end;
function TForm1.farura_baslik(D : IXMLDocument;var g_satir:integer;g_sutun:integer) :boolean;
var
alt_node, toplam_node,fatura_node: IXMLNode;
TFatura_No:tcaption;
begin
fatura_node:=D.DocumentElement.ChildNodes.First;
repeat
if fatura_node.NodeName = 'cbcrofileID' then //fatura tipi
uygulama.activeSheet.Cells[g_satir,g_sutun+1]:=fatura_node.Text;
if fatura_node.LocalName = 'ID' then //fatura no
uygulama.activeSheet.Cells[g_satir,g_sutun+2]:=fatura_node.Text;
if fatura_node.LocalName='UUID' then //ettn
uygulama.activeSheet.Cells[g_satir,g_sutun+3]:=fatura_node.Text;
if fatura_node.NodeName = 'cbc:IssueDate' then // tarih
uygulama.activeSheet.Cells[g_satir,g_sutun+4]:=fatura_node.Text;
if fatura_node.NodeName = 'cbc:InvoiceTypeCode' then // fatura tipi
uygulama.activeSheet.Cells[g_satir,g_sutun+5]:=fatura_node.Text;
fatura_node := fatura_node.NextSibling;//bir sonraki node ye atla...
until fatura_node=Nil;
g_satir:=g_satir+1;
end;
//// fatura kalemleri al
procedure TForm1.fatura_kalemler( ANode : IXMLNode;g_satir,g_sutun:integer);
var
altnode,
anaNode,
tmpSubNode:IXMLNode;
begin
anaNode := ANode.ChildNodes.First;
repeat
if ( anaNode.NodeName = 'cbc:ID' ) then //
uygulama.activeSheet.Cells[g_satir,g_sutun+1]:=anaNode.Text; // sırano
If anaNode.LocalName ='InvoicedQuantity' then // birim kodu ve adeti
begin
uygulama.activeSheet.Cells[g_satir,g_sutun+2]:= anaNode.NodeValue; //miktar
// burası birim koflarına göre yapılacak
if anaNode.HasAttribute('unitCode') then //birimide al
uygulama.activeSheet.Cells[g_satir,g_sutun+3]:=
birim(anaNode.AttributeNodes.FindNode('unitCode').Text);
end;
// satır tutarı kdv haric iskondo düsülmüş zorunlu
if anaNode.LocalName='LineExtensionAmount' then
uygulama.activeSheet.Cells[g_satir,g_sutun+4]:=anaNode.NodeValue;
if anaNode.LocalName='AllowanceCharge' then ///iskonto
begin
altnode:=anaNode.ChildNodes.First;
repeat
if altnode.LocalName='ChargeIndicator' then //kdv dahil true veya falsr
uygulama.activeSheet.Cells[g_satir,g_sutun+5]:= altnode.Text;
if altnode.LocalName='BaseAmount' then // kdv dahil satırtutar
uygulama.activeSheet.Cells[g_satir,g_sutun+6]:=altnode.NodeValue;
if altnode.LocalName='MultiplierFactorNumeric' then //iskonto oranı
uygulama.activeSheet.Cells[g_satir,g_sutun+7]:=altnode.NodeValue;
if altnode.LocalName='Amount' then
uygulama.activeSheet.Cells[g_satir,g_sutun+8]:=altnode.NodeValue;
altnode:=altnode.NextSibling;
until altnode=nil;
end;
if anaNode.LocalName = 'TaxTotal' then //kalem vergi bilgileri
begin
tmpSubNode := anaNode.ChildNodes.First;
repeat
if tmpSubNode.LocalName='TaxSubtotal' then
begin
altnode:=tmpSubNode.ChildNodes.First;
repeat
if altnode.LocalName='TaxAmount' then //kdv tutarı
uygulama.activeSheet.Cells[g_satir,g_sutun+9]:=altnode.NodeValue;
if altnode.LocalName='Percent'then //kdv oranı
uygulama.activeSheet.Cells[g_satir,g_sutun+10]:=altnode.NodeValue;
altnode:=altnode.NextSibling;
until altnode= nil;
end;
tmpSubNode := tmpSubNode.NextSibling;//bir sonraki node ye atla...
until tmpSubNode = Nil;
end;
if anaNode.LocalName='Item' then
begin
altnode:=anaNode.ChildNodes.First;
repeat
if altnode.LocalName='Name' then
uygulama.activeSheet.Cells[g_satir,g_sutun+11]:=altnode.Text;
if altnode.LocalName='Description' then
uygulama.activeSheet.Cells[g_satir,g_sutun+12]:=altnode.Text;
if altnode.LocalName= 'SellersItemIdentification'then //ürün kodu veya barkod
uygulama.activeSheet.Cells[g_satir,g_sutun+13]:=altnode.ChildNodes.first.Text;
altnode:=altnode.NextSibling;
until altnode=nil;
end;
if anaNode.LocalName='Price' then // b,r,m fiyatı
begin
altnode:=anaNode.ChildNodes.First;
repeat
if altnode.LocalName='PriceAmount' then
uygulama.activeSheet.Cells[g_satir,g_sutun+14]:=altnode.NodeValue;
altnode:=altnode.NextSibling;
until altnode=nil;
end;
anaNode := anaNode.NextSibling;// next satır bilgileri
until anaNode = Nil;
end;
procedure TForm1.kalemleri_al( D : IXMLDocument ;var gsatir:integer;gsutun:integer);
var
fatura_node: IXMLNode;
begin
fatura_node:=D.DocumentElement.ChildNodes.First;
repeat
if fatura_node.LocalName = 'InvoiceLine' then // fatura ayrıntıları
begin
fatura_kalemler( fatura_node,gsatir,gsutun );
gsatir:=gsatir+1;
end ;
fatura_node := fatura_node.NextSibling;
until fatura_node=nil;
end;
procedure kdv_ayrinti( D : IXMLDocument);
var
fatura_node: IXMLNode;
begin
fatura_node:=D.DocumentElement.ChildNodes.First;
repeat
if fatura_node.NodeName = 'cac:TaxTotal' then
begin
// kdv_ayrinti_al(fatura_node);
end;
fatura_node := fatura_node.NextSibling;
until fatura_node=nil;
end;
procedure alt_toplamlar(D:IXMLDocument;g_satir,g_sutun:integer );
var
fatura_node,toplam_node,alt_node: IXMLNode;
begin
fatura_node:=D.DocumentElement.ChildNodes.First;
repeat
if fatura_node.NodeName = 'cac:TaxTotal' then
begin
toplam_node:= fatura_node.ChildNodes.First;
repeat
if toplam_node.LocalName = 'TaxAmount' then // kdv fatura toplamı
uygulama.activeSheet.Cells[g_satir,g_sutun+1]:=toplam_node.NodeValue;
toplam_node:=toplam_node.NextSibling; //next
until toplam_node=nil;
end;
if fatura_node.NodeName = 'cac:LegalMonetaryTotal' then //fatura alt toplamları
begin
alt_node:=fatura_node.ChildNodes.First;
repeat
if alt_node.NodeName ='cbc:LineExtensionAmount' then // fatura alt toplamı
uygulama.activeSheet.Cells[g_satir,g_sutun+2]:=alt_node.NodeValue;
// if alt_node.NodeName ='cbc:TaxExclusiveAmount' then //kdv siz indirimli toplam
if alt_node.NodeName ='cbc:TaxInclusiveAmount' then // fatura toplamı kdv dahil
if alt_node.Text<>'' then
uygulama.activeSheet.Cells[g_satir,g_sutun+3]:= alt_node.NodeValue;
if alt_node.NodeName ='cbc:AllowanceTotalAmount' then // indirim toplamı
uygulama.activeSheet.Cells[g_satir,g_sutun+4]:= alt_node.NodeValue;
if alt_node.NodeName ='cbcayableAmount' then // ödenmesi gereken tutar
if alt_node.Text<>'' then
uygulama.activeSheet.Cells[g_satir,g_sutun+5]:= alt_node.NodeValue;
alt_node:=alt_node.NextSibling;
until alt_node=nil ;
end;
if fatura_node.NodeName = 'cacaymentMeans' then // faura odeme bilgileri
begin
alt_node:=fatura_node.ChildNodes.First;
repeat
if alt_node.NodeName = 'cbc:InstructionNote' then
uygulama.activeSheet.Cells[g_satir,g_sutun+6]:=alt_node.Text;
alt_node:=alt_node.NextSibling;
until alt_node=nil;
end;
fatura_node:=fatura_node.NextSibling;
until fatura_node=nil;
g_satir:=g_satir+1;
end;
procedure TForm1.FileListBox1DblClick(Sender: TObject);
var i,satir:integer;
D : IXMLDocument;
FileName:string;
begin
Form1.Caption:=' Stoklar Exel aktarılıyor bekleyiniz';
uygulama := CreateOleObject('Excel.Application');
uygulama.Workbooks.Add;
FileListBox1.Update;
i:=5;
satir:=1;
for i := 0 to (FileListBox1.Items.Count - 1) do
begin
FileName:= FileListBox1.Directory+'\'+FileListBox1.Items.Strings[i];
D:= LoadXMLDocument(FileName);
D.Active := True ;
farura_baslik(d,satir,1);
gonderen_al(d,satir,1);
alici_al(d,satir,1);
kalemleri_al(d,satir,1);
alt_toplamlar(d,satir ,5);
satir:=satir+2;
end;
uygulama.Visible := True;
end;
end.
if fatura_node.NodeName = ProfileID then "
burası farklı çıkıyor anlamış degilim
yukarıdaki base64 fonciyonu ile faturalarınıza loğorı base64 formatına çevirip görsele gömebilirsiniz
yukarıdaki programla bu program arasındaki fark yukarıda xlm dosyasını 2 defa yükleyip acar çünkü fatura kalemleri en alt satırdadır
node ler iç içe gectiğinde veri tabanı kayıt eklerken sıkıntı çıkıyor geçici yükler iseniz excell vs gibi zaman kaybı oluyor en sağlılı olanı veri tabanına alıp ondan sonra işlem yapmak açılacak dosya sayısı fazla olursa zaman kaybı
misal ben hızlı satış programında satış yapıyorum ana veri tabanıma yazmadan önce faklı veri tabanında işlem yapıyorum ne zaman kaydet dedim ana veri tabanıma işliyor yani elektirik kesilse veya program bir şekilde kapatılsa dahi veriler orda duruyor ve daha hızlı çünkü ana veri tabanında tablo sayısı farklı diger veri tabanı olusturaşağım kasa sayısı kadar 2 veya 3 adet ve diğer bir avantajı diğer veri tabanı bağlantısı yerel pc de ana bağlantı diğer
pc veya wepte olsun ne zaman kaydet dersem o zaman işlem yapıyor ve programı farklı pc lerde kullanabiliyorum sadece ana baglantı yolunu gostermem yeterli oluyor
doğrumu yapıyorum orasını bilmiyorum
fakat şu ana kadar sıkıntı çıkmadı
1999 da pascal da akaryakıt istasyonu programı yazmıştım degişken fiyat üstünden malum o zaman fiyatlar çok değişken olunca cari hesabı da değisiyordu
ben sadece hobi amaçlı uğraşıyorum