Klasse TEDI_Transfer
Unit
Deklaration
type TEDI_Transfer = class(TForm)
Beschreibung
Hierarchie
- TForm
- TEDI_Transfer
Übersicht
Felder
 |
Animate1: TAnimate; |
|
FtpClient: TFtpClient; |
|
ProgressBar1: TJvGradientProgressBar; |
|
Label1: TJvLabel; |
 |
FEdiDateien: TList; |
Methoden
|
procedure FtpClientProgress(Sender: TObject; Count: Integer; var Abort: Boolean); |
|
procedure FtpClientError(Sender: TObject; var Msg: string); |
|
function MakeEANCOM(EdiDatei: TObject): string; |
|
function MakeIFTMIN(EdiDatei: TObject): string; |
|
function MaskEDIDelimiters(aText: string; aLength: Integer = 0): string; |
|
function get_LKZ_ISO(iLKZ: string): string; |
|
function get_Code7073(iKdBez, iEigentum: string): string; |
|
function get_GIN(von, bis, limit, werk: Integer; Kennzeichen, LP_KZ: string): string; |
|
function getNumberOfSubs(sTxt, sDeli: string): Integer; |
|
function ohneTrennzeichen(aText: string; aLength: integer = 0): string; |
|
function getCUS(ilkz: string; iwerk: Integer): string; |
|
function get_SNGEW_Format(istr: string): string; |
|
procedure DoEdi_Execute; |
|
procedure Fill_EdiDatei4913(aEdiDatei: PEdiDaten); |
|
procedure Fill_EdiDatei4987(aEdiDatei: TObject); |
|
procedure Fill_EdiDatei4987_BMW(aEdiDatei: TObject); |
|
procedure Fill_EdiDatei4920(EdiDatei: TObject); |
|
procedure FillMailSpeditionsauftrag(EdiDatei: TObject); |
|
procedure FillMailLieferschein(EdiDatei: TObject); |
|
procedure FillMailFrachtbrief(EdiDatei: TObject); |
|
procedure Fill_EdifaktDatei(EdiDatei: TObject); |
|
function DoInit_Queries(aDokumentnr: integer): Boolean; |
|
procedure AddToList(var aListText: string; aText: string); overload; |
|
procedure AddToList(var aListText: string; aValue: integer); overload; |
|
procedure DoSplit_PlzOrt(aPlzOrt: string; var aOrt: string; var aPlz: string); |
|
procedure DoFill4987_NAD_ST(aEdiDaten: PEdiDaten; var aMsg: string; var aSegCnt: integer); |
|
procedure DoFill4987_NAD_SF(aEdiDaten: PEdiDaten; var aMsg: string; var aSegCnt: integer); |
|
procedure DoFill4987_NAD_BY(aEdiDaten: PEdiDaten; var aMsg: string; var aSegCnt: integer); |
|
procedure DoFill4987_NAD_SE(aEdiDaten: PEdiDaten; var aMsg: string; var aSegCnt: integer); overload; |
|
procedure DoFill4987_NAD_SE(const aKdnr: integer; var aMsg: string; var aSegCnt: integer); overload; |
|
procedure DoFill4987_NAD_FW(aEdiDaten: PEdiDaten; var aMsg: string; var aSegCnt: integer); |
|
function MakeXml: string; |
|
constructor Create(aOwner: TComponent); override; |
|
destructor Destroy; override; |
|
procedure InitData; |
|
procedure Exec; |
Beschreibung
Felder
|
Animate1: TAnimate; |
|
FtpClient: TFtpClient; |
|
ProgressBar1: TJvGradientProgressBar; |
|
Label1: TJvLabel; |
|
FEdiDateien: TList; |
Methoden
|
procedure FtpClientProgress(Sender: TObject; Count: Integer; var Abort: Boolean); |
|
procedure FtpClientError(Sender: TObject; var Msg: string); |
|
function MakeEANCOM(EdiDatei: TObject): string; |
|
Mü 26.09.2017 | |
|
function MakeIFTMIN(EdiDatei: TObject): string; |
|
Müller 13.01.2016 | |
|
function MaskEDIDelimiters(aText: string; aLength: Integer = 0): string; |
|
Müller 22.03.2016 | |
|
function get_LKZ_ISO(iLKZ: string): string; |
|
Pohl 04.08.21 | |
|
function get_Code7073(iKdBez, iEigentum: string): string; |
|
Mü 22.08.2016 | |
|
function get_GIN(von, bis, limit, werk: Integer; Kennzeichen, LP_KZ: string): string; |
|
Mü 22.08.2016 | |
|
function getNumberOfSubs(sTxt, sDeli: string): Integer; |
|
Mü 22.08.2016 | |
|
function ohneTrennzeichen(aText: string; aLength: integer = 0): string; |
|
Mü 22.08.2016 | |
|
function getCUS(ilkz: string; iwerk: Integer): string; |
|
Mü 22.08.2016 | |
|
function get_SNGEW_Format(istr: string): string; |
|
Mü 22.08.2016 | |
|
procedure DoEdi_Execute; |
|
EdiDatei: PEdiDaten; | |
|
procedure Fill_EdiDatei4913(aEdiDatei: PEdiDaten); |
|
procedure Fill_EdiDatei4987(aEdiDatei: TObject); |
|
Mü 22.08.2016 | |
|
procedure Fill_EdiDatei4987_BMW(aEdiDatei: TObject); |
|
Mü 22.08.2016 | |
|
procedure Fill_EdiDatei4920(EdiDatei: TObject); |
|
Mü 22.08.2016 | |
|
procedure FillMailSpeditionsauftrag(EdiDatei: TObject); |
|
procedure FillMailLieferschein(EdiDatei: TObject); |
|
Mü 22.03.2016 | |
|
procedure FillMailFrachtbrief(EdiDatei: TObject); |
|
procedure Fill_EdifaktDatei(EdiDatei: TObject); |
|
function DoInit_Queries(aDokumentnr: integer): Boolean; |
|
procedure AddToList(var aListText: string; aText: string); overload; |
|
procedure AddToList(var aListText: string; aValue: integer); overload; |
|
procedure DoSplit_PlzOrt(aPlzOrt: string; var aOrt: string; var aPlz: string); |
|
procedure DoFill4987_NAD_ST(aEdiDaten: PEdiDaten; var aMsg: string; var aSegCnt: integer); |
|
procedure DoFill4987_NAD_SF(aEdiDaten: PEdiDaten; var aMsg: string; var aSegCnt: integer); |
|
procedure DoFill4987_NAD_BY(aEdiDaten: PEdiDaten; var aMsg: string; var aSegCnt: integer); |
|
procedure DoFill4987_NAD_SE(aEdiDaten: PEdiDaten; var aMsg: string; var aSegCnt: integer); overload; |
|
procedure DoFill4987_NAD_SE(const aKdnr: integer; var aMsg: string; var aSegCnt: integer); overload; |
|
R2052 | |
|
procedure DoFill4987_NAD_FW(aEdiDaten: PEdiDaten; var aMsg: string; var aSegCnt: integer); |
|
R2052 | |
|
function MakeXml: string; |
|
constructor Create(aOwner: TComponent); override; |
|
destructor Destroy; override; |
|
procedure InitData; |
|
procedure Exec; |
Erstellt mit PasDoc 0.16.0.