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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2024-10-17 16:23:09 -07:00
parent ee5397d019 e5bc7957ba
commit fb503d9643
7 changed files with 96 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Transportes/RepContratos.aspx.vb
View File

@@ -174,9 +174,11 @@ Partial Class ListadoContratos
If ErrorProceso = False Then
Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{LbFolio.Text}"
Dim Respuesta As New RespuestaFacturacion()
Dim CvePS As Integer = 907784
Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL)
Respuesta = GeneraRemision(CveContrato, ObsRemisionPartida, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL)
If Respuesta.CveVenta > 0 Then
CveVentaRemision = Respuesta.CveVenta
@@ -310,7 +312,7 @@ Partial Class ListadoContratos
#Region "G E N E R A R E M I S O N"
Private Function GeneraRemision(CveContrato As Integer, NumContrato As String, Importe As Decimal, CvePS As Integer, ByRef TransaccionSQL As SqlClient.SqlTransaction) As RespuestaFacturacion
Private Function GeneraRemision(CveContrato As Integer, ObsPartida As String, Importe As Decimal, CvePS As Integer, ByRef TransaccionSQL As SqlClient.SqlTransaction) As RespuestaFacturacion
Dim Respuesta As New RespuestaFacturacion()
Dim CveRemisionGenerada As Integer = -1
@@ -324,7 +326,7 @@ Partial Class ListadoContratos
If ObjFactura IsNot Nothing AndAlso ProcesoOK Then
ObjFactura.CveContrato = CveContrato
ObjFactura.Observaciones = NumContrato
ObjFactura.Observaciones = ObsPartida
ObjFactura.CveFormaPago33 = 20 ' por definir
Dim TmpDTMat As New DataTable
@@ -342,7 +344,7 @@ Partial Class ListadoContratos
Dim SubTotal As Decimal = (Importe / (1D + PorcentajeIVA))
Dim PU As Decimal = SubTotal
Dim Descuento As Decimal = 0
Dim Obs As String = NumContrato
Dim Obs As String = ObsPartida
If CantidadRegistro > 0 Then
If ObjFactura.AgregarPS(CvePS, CantidadRegistro, PU, Descuento, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=PorcentajeIVA) Then