AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejora en cartaporte 3.0

Browse Source
This commit is contained in:
rrene
2024-02-12 05:46:03 -07:00
parent b74d9a5334
commit 20d9750e38
1 changed files with 18 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Ventas/Ventas.aspx.vb
View File

@@ -35079,7 +35079,7 @@ Partial Class Ventas
If CveEntregaAlmacen > 0 Then
For Each RowPS As DataRow In ObjFactura.DtMercancias.Rows
If Not ObjGral.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, RowPS("CvePS").ToString().ToEntero, RowPS("Cantidad").ToString().ToDecimal, RowPS("CveUnidadMedida").ToString().ToEntero, UsuarioActual.CveUsuario) Then
If Not ObjGral.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, RowPS("CvePS").ToString().ToEntero, RowPS("Cantidad").ToString().ToDecimal, RowPS("CveUnidadMedida").ToString().ToEntero, UsuarioActual.CveUsuario, RowPS("PesoKg").ToString().ToDecimal) Then
ErrorProceso = True
Exit For
End If
@@ -35343,6 +35343,7 @@ Partial Class Ventas
DtMercancias.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
DtMercancias.Columns.Add(New DataColumn("CveUnidadMedida", GetType(Integer)))
DtMercancias.Columns.Add(New DataColumn("CodigoPS", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("PesoKg", GetType(Decimal)))
End Sub
Protected Sub LnkAddPSMercancia_Click(sender As Object, e As EventArgs)
If DtMercancias Is Nothing Then
@@ -35494,6 +35495,22 @@ Partial Class Ventas
CargarCamiones()
HabilitarControlesCartaPorte(ChkEmitirCartaPorte.Checked)
If DtMercancias Is Nothing Then CreaDTMercancias()
DtMercancias.Clear()
'carga los productos inventariables como mercancía
For Each drPS As DataRow In TmpDT.FiltraParametros("CveTipoPS= 2").Rows
Dim NewRow As DataRow = DtMercancias.NewRow
NewRow("Consec") = DtMercancias.MAX("Consec").ToEntero() + 1
NewRow("Cantidad") = drPS("Cantidad")
NewRow("CvePS") = drPS("CvePS")
NewRow("CveUnidadMedida") = drPS("CveUM")
NewRow("CodigoPS") = drPS("PSCodigo")
DtMercancias.Rows.Add(NewRow)
Next
GvMercanciasCP.DataSource = DtMercancias
GvMercanciasCP.DataBind()
End Sub
'Protected Sub ChkAgregarFlete_CheckedChanged(sender As Object, e As EventArgs)