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

-- cambios GlobalDTSubPr

Browse Source
This commit is contained in:
rrene
2024-08-01 15:50:25 -07:00
parent 30e0decf3e
commit 934d00e235
14 changed files with 44 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Transportes/RepContratos.aspx.vb
View File

@@ -166,22 +166,23 @@ Partial Class ListadoContratos
End If
Anexo.Text = ""
If ErrorProceso = False Then
'If ErrorProceso = False Then
Dim Respuesta As New RespuestaFacturacion()
Dim CvePS As Integer = 907783
Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL)
' Dim Respuesta As New RespuestaFacturacion()
' Dim CvePS As Integer = 907783
' Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL)
If Respuesta.CveVenta > 0 Then
CveVentaRemision = Respuesta.CveVenta
SerieFolioRemision = Respuesta.SerieFolio
ErrorProceso = False
Else
ErrorProceso = True
Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia)
End If
' If Respuesta.CveVenta > 0 Then
' CveVentaRemision = Respuesta.CveVenta
' SerieFolioRemision = Respuesta.SerieFolio
' ErrorProceso = False
' Else
' ErrorProceso = True
' Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia)
' End If
'End If
End If
Else
ErrorProceso = True