|
Registriert seit: 24. Feb 2005
Ort: Schweiz/Thurgau
138 Beiträge
Delphi 2010 Professional
|
Re: TadvStringGrid -- Verschieben der Spalten
31. Okt 2005, 13:26
hier der Save:
Delphi-Quellcode:
function Tfrm_edecEinfuhrDeklaration.SavePositionenPPList(
RowNr: Integer): WideString;
var
PPList: WideString;
PPDelim: string;
CheckBoxState: Boolean;
begin
PPList := '';
Cache.PLIST := '';
Cache.PDELIM := #22;
PPDelim := #22;
PPList := PPList + grid_Positionen.Cells[0, RowNr] + '»'; //Position 5
// hier Status code
// dann Status Text
PPList := PPList + grid_Positionen.Cells[1, RowNr] + '»'; //edt_DetailStatusCode.Text 6
PPList := PPList + grid_Positionen.Cells[2, RowNr] + '»'; //edt_DetailStatusCode.Text 7
PPList := PPList + grid_Positionen.Cells[3, RowNr] + '»'; //cb_HC.Text 8
PPList := PPList + grid_Positionen.Cells[4, RowNr] + '»'; //cb_UL.Text 9
PPList := PPList + grid_Positionen.Cells[5, RowNr] + '»'; //Tarifnummer Frame 10
PPList := PPList + grid_Positionen.Cells[6, RowNr] + '»'; //cb_Schluessel.Text 11
PPList := PPList + grid_Positionen.Cells[7, RowNr] + '»'; //cb_NZEPflichtCode.Text 12
PPList := PPList + grid_Positionen.Cells[8, RowNr] + '»'; //cb_NettoVerzollung.Text 13
PPList := PPList + grid_Positionen.Cells[9, RowNr] + '»'; //nedt_RohMasse.Text 14
PPList := PPList + grid_Positionen.Cells[10, RowNr] + '»'; //nedt_ZollNettoGewicht.Text 15
PPList := PPList + grid_Positionen.Cells[11, RowNr] + '»'; //cb_WhrgStatWert.Text 16
PPList := PPList + grid_Positionen.Cells[12, RowNr] + '»'; //nedt_StatWert.Text 17
PPList := PPList + grid_Positionen.Cells[13, RowNr] + '»'; //edt_StatWertCHF.Text 18
PPList := PPList + grid_Positionen.Cells[14, RowNr] + '»'; //nedt_ZollAnsatz.Tex 19
PPList := PPList + grid_Positionen.Cells[15, RowNr] + '»'; //Reserve war vorher -->nedt_ZollAnsatzTMF.Text 20
PPList := PPList + grid_Positionen.Cells[16, RowNr] + '»'; //cb_Ac.Text 21
PPList := PPList + grid_Positionen.Cells[17, RowNr] + '»'; //cb_Praeferenz.Text 22
PPList := PPList + grid_Positionen.Cells[18, RowNr] + '»'; //ExtArtikelNummer 23
PPList := PPList + grid_Positionen.Cells[19, RowNr] + '»'; //edt_Gebc.Text 24
PPList := PPList + grid_Positionen.Cells[20, RowNr] + '»'; //cb_LagerCode.Text 25
PPList := PPList + grid_Positionen.Cells[21, RowNr] + '»'; //cb_VeranlagendeBehoerde.Text 26
PPList := PPList + grid_Positionen.Cells[22, RowNr] + '»'; //nedt_EigenMasse.Text 27
PPList := PPList + grid_Positionen.Cells[23, RowNr] + '»'; //nedt_ZusatzMenge.Text 28
PPList := PPList + grid_Positionen.Cells[24, RowNr] + '»'; //cb_WhrgMwstWert.Text 29
PPList := PPList + grid_Positionen.Cells[25, RowNr] + '»'; //nedt_MwstWert.Text 30
PPList := PPList + grid_Positionen.Cells[26, RowNr] + '»'; //nedt_MWSTWertCHF.Text 31
PPList := PPList + grid_Positionen.Cells[27, RowNr] + '»'; //cb_ZBC.Tex 32
PPList := PPList + grid_Positionen.Cells[28, RowNr] + '»'; //nedt_TaraZuschlag.Text 33
PPList := PPList + grid_Positionen.Cells[29, RowNr] + '»'; //cb_MWSTCode.Text 34
PPList := PPList + grid_Positionen.Cells[30, RowNr] + '»'; //Anzahl Packstücke 35
PPList := PPList + grid_Positionen.Cells[31, RowNr] + '»'; //edt_WarenBez1.Text 36
PPList := PPList + grid_Positionen.Cells[32, RowNr] + '»'; //edt_WarenBez2.Text 37
PPList := PPList + grid_Positionen.Cells[33, RowNr] + '»'; //cb_VerkehrsRichtungCode.Text 38
PPList := PPList + grid_Positionen.Cells[34, RowNr] + '»'; //edt_VerkehrsRichtungText.Text 39
PPList := PPList + grid_Positionen.Cells[35, RowNr] + '»'; //cb_VeredelungsTypCode.Text 40
PPList := PPList + grid_Positionen.Cells[36, RowNr] + '»'; //edt_VeredelungsTypText.Text 41
PPList := PPList + grid_Positionen.Cells[37, RowNr] + '»'; //cb_VerfahrensTypCode.Text 42
PPList := PPList + grid_Positionen.Cells[38, RowNr] + '»'; //edt_VerfahrensTypText.Text 43
PPList := PPList + grid_Positionen.Cells[39, RowNr] + '»'; //cb_AbrechnungsTypCode.Text 44
PPList := PPList + grid_Positionen.Cells[40, RowNr] + '»'; //edt_AbrechnungsTypText.Text 45
PPList := PPList + grid_Positionen.Cells[41, RowNr] + '»'; //cb_FreiPassCode.Text 46
PPList := PPList + grid_Positionen.Cells[42, RowNr] + '»'; //edt_FreiPassText.Text 47
PPList := PPList + grid_Positionen.Cells[43, RowNr] + '»'; //cb_PositionsTypCode.Text 48
PPList := PPList + grid_Positionen.Cells[44, RowNr] + '»'; //edt_PositionsTypText.Text 49
// Achtung neue Felder eingefügt!! Hier kann nicht einfach von 44-56 hochgezählt werden!
// Die Neuen Felder werden am Schluss von PPList angehängt, damit Globalbeschrieb etc. noch stimmt!!!
PPList := PPList + grid_Positionen.Cells[47, RowNr] + '»'; //nedt_AusfuhrWert.Text 50
PPList := PPList + grid_Positionen.Cells[50, RowNr] + '»'; //nedt_LohnKosten.Text 51
PPList := PPList + grid_Positionen.Cells[53, RowNr] + '»'; //nedt_FrachtBisGrenze.Text 52
PPList := PPList + grid_Positionen.Cells[56, RowNr] + '»'; //nedt_WertNeuMaterial.Text 53
PPList := PPList + grid_Positionen.Cells[57, RowNr] + '»'; //cb_TabakSorte.Text 54
PPList := PPList + grid_Positionen.Cells[58, RowNr] + '»'; //cb_BewPfl 55
//Checkboxen RC Code
grid_Positionen.GetCheckBoxState(59, RowNr, CheckBoxState); //RC Stat.Wert 56
if CheckBoxState = True then
PPList := PPList + '1' + '»'
else
PPList := PPList + '0' + '»';
//
grid_Positionen.GetCheckBoxState(60, RowNr, CheckBoxState); //RC Warennummer 57
if CheckBoxState = True then
PPList := PPList + '1' + '»'
else
PPList := PPList + '0' + '»';
//
grid_Positionen.GetCheckBoxState(61, RowNr, CheckBoxState); //RC Eigenmasse 58
if CheckBoxState = True then
PPList := PPList + '1' + '»'
else
PPList := PPList + '0' + '»';
//
grid_Positionen.GetCheckBoxState(62, RowNr, CheckBoxState); //RC Rohmasse 59
if CheckBoxState = True then
PPList := PPList + '1' + '»'
else
PPList := PPList + '0' + '»';
//
grid_Positionen.GetCheckBoxState(63, RowNr, CheckBoxState); //RC Zusatzmenge 60
if CheckBoxState = True then
PPList := PPList + '1' + '»'
else
PPList := PPList + '0' + '»';
//
grid_Positionen.GetCheckBoxState(64, RowNr, CheckBoxState); //RC MWST Wert 61
if CheckBoxState = True then
PPList := PPList + '1' + '»'
else
PPList := PPList + '0' + '»';
//
grid_Positionen.GetCheckBoxState(65, RowNr, CheckBoxState); //RC Zollansatz 62
if CheckBoxState = True then
PPList := PPList + '1' + '»'
else
PPList := PPList + '0' + '»';
//
grid_Positionen.GetCheckBoxState(66, RowNr, CheckBoxState); //RC Tarazuschlag 63
if CheckBoxState = True then
PPList := PPList + '1' + '»'
else
PPList := PPList + '0' + '»';
//
grid_Positionen.GetCheckBoxState(67, RowNr, CheckBoxState); //RC MWST Code 64
if CheckBoxState = True then
PPList := PPList + '1' + '»'
else
PPList := PPList + '0' + '»';
//
PPList := PPList + grid_Positionen.Cells[45, RowNr] + '»'; //cb_WhgAusfuhrWert.Text 65
PPList := PPList + grid_Positionen.Cells[46, RowNr] + '»'; //nedt_AusfuhrWertFW.Text 66
PPList := PPList + grid_Positionen.Cells[48, RowNr] + '»'; //cb_WhgLohnkosten.Text 67
PPList := PPList + grid_Positionen.Cells[49, RowNr] + '»'; //nedt_LohnKostenFW.Text 68
PPList := PPList + grid_Positionen.Cells[51, RowNr] + '»'; //cb_WhgFrachtBisGrenze.Text 69
PPList := PPList + grid_Positionen.Cells[52, RowNr] + '»'; //nedt_FrachtBisGrenzeFW.Text 70
PPList := PPList + grid_Positionen.Cells[54, RowNr] + '»'; //cb_WhgWertNeuMaterial.Text 71
PPList := PPList + grid_Positionen.Cells[55, RowNr] + '»'; //nedt_WertNeuMaterialFW.Text 72
PPList := PPList + PPDelim;
Result := PPList;
end;
************************************************** *******************************************
und hier noch der Load:
Delphi-Quellcode:
procedure Tfrm_edecEinfuhrDeklaration.LoadPositionenValue(
RecordString: string; ZeilenNr, i, NewPosNr: Integer);
begin
if RecordString <> '' then
begin
if NewPosNr > 0 then
grid_Positionen.Cells[0, ZeilenNr] := IntToStr(NewPosNr) //Position
else
grid_Positionen.Cells[0, ZeilenNr] := Piece(RecordString, '»', 5);
grid_Positionen.Cells[1, ZeilenNr] := Piece(RecordString, '»', 6); //Status Code Header
grid_Positionen.Cells[2, ZeilenNr] := Piece(RecordString, '»', 7); //Status Code Text Header
grid_Positionen.Cells[3, ZeilenNr] := Piece(RecordString, '»', 8); //Hc
grid_Positionen.Cells[4, ZeilenNr] := Piece(RecordString, '»', 9); //UL
grid_Positionen.Cells[5, ZeilenNr] := Piece(RecordString, '»', 10); //Tarifnr
grid_Positionen.Cells[6, ZeilenNr] := Piece(RecordString, '»', 11); //Schlüssel
grid_Positionen.Cells[7, ZeilenNr] := Piece(RecordString, '»', 12); //NZE Pflichtcode
grid_Positionen.Cells[8, ZeilenNr] := Piece(RecordString, '»', 13); //Nettoverzollung
grid_Positionen.Cells[9, ZeilenNr] := Piece(RecordString, '»', 14); //Rohmasse
grid_Positionen.Cells[10, ZeilenNr] := Piece(RecordString, '»', 15); //Zollnettogewicht
grid_Positionen.Cells[11, ZeilenNr] := Piece(RecordString, '»', 16); //Währung Stat Wert
grid_Positionen.Cells[12, ZeilenNr] := Piece(RecordString, '»', 17); //Stat Wert
grid_Positionen.Cells[13, ZeilenNr] := Piece(RecordString, '»', 18); //Stat Wert in CHF
grid_Positionen.Cells[14, ZeilenNr] := Piece(RecordString, '»', 19); //Zollansatz
grid_Positionen.Cells[15, ZeilenNr] := Piece(RecordString, '»', 20); //Zollansatz TMF
grid_Positionen.Cells[16, ZeilenNr] := Piece(RecordString, '»', 21); //AC
grid_Positionen.Cells[17, ZeilenNr] := Piece(RecordString, '»', 22); //Präferenz
grid_Positionen.Cells[18, ZeilenNr] := Piece(RecordString, '»', 23); //ArtikelNummer
grid_Positionen.Cells[19, ZeilenNr] := Piece(RecordString, '»', 24); //GEBC
grid_Positionen.Cells[20, ZeilenNr] := Piece(RecordString, '»', 25); //Lagercode
grid_Positionen.Cells[21, ZeilenNr] := Piece(RecordString, '»', 26); //Veranlagende Behörde
grid_Positionen.Cells[22, ZeilenNr] := Piece(RecordString, '»', 27); //Eigenmasse
grid_Positionen.Cells[23, ZeilenNr] := Piece(RecordString, '»', 28); //Zusatzmenge
grid_Positionen.Cells[24, ZeilenNr] := Piece(RecordString, '»', 29); //Währung MWST Wert
grid_Positionen.Cells[25, ZeilenNr] := Piece(RecordString, '»', 30); //MWST Wert
grid_Positionen.Cells[26, ZeilenNr] := Piece(RecordString, '»', 31); //MWST Wert CHF
grid_Positionen.Cells[27, ZeilenNr] := Piece(RecordString, '»', 32); //ZBC
grid_Positionen.Cells[28, ZeilenNr] := Piece(RecordString, '»', 33); //Tarazuschlag
grid_Positionen.Cells[29, ZeilenNr] := Piece(RecordString, '»', 34); //MWST Code
grid_Positionen.Cells[30, ZeilenNr] := Piece(RecordString, '»', 35); //Anzahl Packstücke
grid_Positionen.Cells[31, ZeilenNr] := Piece(RecordString, '»', 36); //Warenbez.1
grid_Positionen.Cells[32, ZeilenNr] := Piece(RecordString, '»', 37); //Warenbez.2
grid_Positionen.Cells[33, ZeilenNr] := Piece(RecordString, '»', 38); //Verkehrsrichtung Code
grid_Positionen.Cells[34, ZeilenNr] := Piece(RecordString, '»', 39); //Verkehrsrichtung Text
grid_Positionen.Cells[35, ZeilenNr] := Piece(RecordString, '»', 40); //Veredelungstyp Code
grid_Positionen.Cells[36, ZeilenNr] := Piece(RecordString, '»', 41); //Veredelungstyp Text
grid_Positionen.Cells[37, ZeilenNr] := Piece(RecordString, '»', 42); //Verfahrenstyp Code
grid_Positionen.Cells[38, ZeilenNr] := Piece(RecordString, '»', 43); //Verfahrenstyp Text
grid_Positionen.Cells[39, ZeilenNr] := Piece(RecordString, '»', 44); //Abrechnungstyp Code
grid_Positionen.Cells[40, ZeilenNr] := Piece(RecordString, '»', 45); //Abrechnungstyp Text
grid_Positionen.Cells[41, ZeilenNr] := Piece(RecordString, '»', 46); //Freipass Code
grid_Positionen.Cells[42, ZeilenNr] := Piece(RecordString, '»', 47); //Freipass Text
grid_Positionen.Cells[43, ZeilenNr] := Piece(RecordString, '»', 48); //Positionstyp Code
grid_Positionen.Cells[44, ZeilenNr] := Piece(RecordString, '»', 49); //Positionstyp Text
grid_Positionen.Cells[45, ZeilenNr] := Piece(RecordString, '»', 65); //cb_WhgAusfuhrWert
grid_Positionen.Cells[46, ZeilenNr] := Piece(RecordString, '»', 66); //nedt_AusfuhrWertFW
grid_Positionen.Cells[47, ZeilenNr] := Piece(RecordString, '»', 50); //Ausfuhrwert
grid_Positionen.Cells[48, ZeilenNr] := Piece(RecordString, '»', 67); //cb_WhgLohnkosten
grid_Positionen.Cells[49, ZeilenNr] := Piece(RecordString, '»', 68); //nedt_LohnKostenFW
grid_Positionen.Cells[50, ZeilenNr] := Piece(RecordString, '»', 51); //Lohnkosten
grid_Positionen.Cells[51, ZeilenNr] := Piece(RecordString, '»', 69); //cb_WhgFrachtBisGrenze
grid_Positionen.Cells[52, ZeilenNr] := Piece(RecordString, '»', 70); //nedt_FrachtBisGrenzeFW
grid_Positionen.Cells[53, ZeilenNr] := Piece(RecordString, '»', 52); //Fracht bis Grenze
grid_Positionen.Cells[54, ZeilenNr] := Piece(RecordString, '»', 71); //cb_WhgWertNeuMaterial
grid_Positionen.Cells[55, ZeilenNr] := Piece(RecordString, '»', 72); //nedt_WertNeuMaterialFW
grid_Positionen.Cells[56, ZeilenNr] := Piece(RecordString, '»', 53); //Wert Neumaterial
grid_Positionen.Cells[57, ZeilenNr] := Piece(RecordString, '»', 54); //Tabaksorte
grid_Positionen.Cells[58, ZeilenNr] := Piece(RecordString, '»', 55); //BewilligungspflichtCode
// Checkboxen mit Richtigcodes 9 mal...
if Piece(RecordString, '»', 56) = '1' then
grid_Positionen.AddCheckBox(59, ZeilenNr, True, False)
else
grid_Positionen.AddCheckBox(59, ZeilenNr, False, False); //RcStatistischer Wert
//
if Piece(RecordString, '»', 57) = '1' then
grid_Positionen.AddCheckBox(60, ZeilenNr, True, False)
else
grid_Positionen.AddCheckBox(60, ZeilenNr, False, False); //RcWarennummer
//
if Piece(RecordString, '»', 58) = '1' then
grid_Positionen.AddCheckBox(61, ZeilenNr, True, False)
else
grid_Positionen.AddCheckBox(61, ZeilenNr, False, False); //RcEigenmasse
//
if Piece(RecordString, '»', 59) = '1' then
grid_Positionen.AddCheckBox(62, ZeilenNr, True, False)
else
grid_Positionen.AddCheckBox(62, ZeilenNr, False, False); //RcRohmasse
//
if Piece(RecordString, '»', 60) = '1' then
grid_Positionen.AddCheckBox(63, ZeilenNr, True, False)
else
grid_Positionen.AddCheckBox(63, ZeilenNr, False, False); //RcZusatzmenge
//
if Piece(RecordString, '»', 61) = '1' then
grid_Positionen.AddCheckBox(64, ZeilenNr, True, False)
else
grid_Positionen.AddCheckBox(64, ZeilenNr, False, False); //RcMWSTWert
//
if Piece(RecordString, '»', 62) = '1' then
grid_Positionen.AddCheckBox(65, ZeilenNr, True, False)
else
grid_Positionen.AddCheckBox(65, ZeilenNr, False, False); //RcZollansatz
//
if Piece(RecordString, '»', 63) = '1' then
grid_Positionen.AddCheckBox(66, ZeilenNr, True, False)
else
grid_Positionen.AddCheckBox(66, ZeilenNr, False, False); //RcTarazuschlag
//
if Piece(RecordString, '»', 64) = '1' then
grid_Positionen.AddCheckBox(67, ZeilenNr, True, False)
else
grid_Positionen.AddCheckBox(67, ZeilenNr, False, False); //RcMWSTCode
end;
end;
[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen, Danke.  Mfg, Daniel[/edit]
|