edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Aviso_Trips; NewLayout HF

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-19 13:13:23 +01:00
parent 50857959fe
commit 77e83a464a
23 changed files with 1766 additions and 1157 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -2641,36 +2641,36 @@ Public Class frmSendungsdetailsNEU
End Function
Sub initOfferteDGV()
Try
SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG()
Dim MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview ' nur für Fehlerveremindung -> kein Control in Form
With MyDatagridview1
.Columns.Clear()
Dim tmpKdnr = -1
For Each a In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG
If a.sndabr_abrArt = "ABFKOST" Then
Select Case a.sndabr_beteiligter
Case "EMPF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr
Case "AVISIERER" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr'If(IsNumeric(AVISO.Auftraggeber_KdNr), IsNumeric(AVISO.Auftraggeber_KdNr), -1)
Case "ABS" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr
Case "AUFTR" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr
Case "FRACHTF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr 'If(IsNumeric(AVISO.Frächter_KdNr), IsNumeric(AVISO.Frächter_KdNr), -1)
End Select
End If
Next
If cboAbfertigungsart._value <> "" Then
If tmpKdnr > 0 Then
.DataSource = SQL.loadDgvBySql("select LeistungsNr,LeistungsBez,Preis FROM [Offertenpositionen] where KundenNr=" & tmpKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & cboAbfertigungsart._value & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
End If
End If
End With
'Sub initOfferteDGV()
' Try
' SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG()
' Dim MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview ' nur für Fehlerveremindung -> kein Control in Form
' With MyDatagridview1
' .Columns.Clear()
' Dim tmpKdnr = -1
' For Each a In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG
' If a.sndabr_abrArt = "ABFKOST" Then
' Select Case a.sndabr_beteiligter
' Case "EMPF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr
' Case "AVISIERER" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr'If(IsNumeric(AVISO.Auftraggeber_KdNr), IsNumeric(AVISO.Auftraggeber_KdNr), -1)
' Case "ABS" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr
' Case "AUFTR" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr
' Case "FRACHTF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr 'If(IsNumeric(AVISO.Frächter_KdNr), IsNumeric(AVISO.Frächter_KdNr), -1)
' End Select
' End If
' Next
' If cboAbfertigungsart._value <> "" Then
' If tmpKdnr > 0 Then
' .DataSource = SQL.loadDgvBySql("select LeistungsNr,LeistungsBez,Preis FROM [Offertenpositionen] where KundenNr=" & tmpKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & cboAbfertigungsart._value & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
' End If
' End If
' End With
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
End Sub
'End Sub
Sub initDGVBelege()