From 4b7b9fb189302bbb58ebae3b64c3ccd106d43214 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Oct 2024 16:06:38 -0700 Subject: [PATCH] =?UTF-8?q?-activaci=C3=B3n=20de=20remisi=C3=B3n=20al=20cr?= =?UTF-8?q?ear=20contrato?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/RepContratos.aspx.vb | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index 0c7c732ac..9ceaa570a 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -172,22 +172,22 @@ 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 @@ -334,6 +334,7 @@ Partial Class ListadoContratos ObjFactura.CveContrato = CveContrato ObjFactura.Observaciones = NumContrato + ObjFactura.CveFormaPago33 = 20 ' por definir Dim TmpDTMat As New DataTable TmpDTMat.Columns.Add("Consec", GetType(Integer))