-activación de remisión al crear contrato

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))