Compilación

Compras/Compras.aspx.vb

@@ -13326,7 +13326,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
                     If ObjCompras.GetCancelarNC(CveCompra, UsuarioActual.CveEmpresa) Then
                         dt = ObjCompras.DtResultados
 
-                        'CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                        CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                         If CvePrePolizaNueva > 0 Then
                             For Each dr As DataRow In dt.Rows
                                 If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Importe").ToString.ToDecimal * -1, dr("CveConceptoContable").ToString.ToEntero, dr("Referencia").ToString,
@@ -13351,7 +13351,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
                         If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                             dt = ObjContabilidad.DtResultados.FiltraParametros("ISNULL(CveMovimientoAlmacen,0) <=0")
 
-                            'CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                            CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CvePrePolizaNueva > 0 Then
                                 For Each dr As DataRow In dt.Rows
                                     If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Importe").ToString.ToDecimal * -1, dr("CveConceptoContable").ToString.ToEntero, dr("Referencia").ToString,

Prospeccion/Prospectos.aspx.vb

@@ -162,11 +162,11 @@ Partial Class Prospectos_Prospectos
     End Sub
 
     Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
-        ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
     End Sub
 
     Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
-        ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
     End Sub
 
     Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer)
@@ -423,7 +423,7 @@ Partial Class Prospectos_Prospectos
 
 #Region "Formatos Imprimir"
 
-    Protected Sub LnbImprimir_Click(sender As LinkButton, e As EventArgs) Handles LnbImprimir.Click
+    Protected Sub LnbImprimir_Click(sender As LinkButton, e As EventArgs) 'Handles LnbImprimir.Click
         'Dim oWordApp As Microsoft.Office.Interop.Word.Application = Nothing
         'Dim oWordDoc As Microsoft.Office.Interop.Word.Document = Nothing
         'Dim objSelection As Microsoft.Office.Interop.Word.Selection = Nothing

Prospeccion/RepProspectosGIS.aspx.vb

@@ -75,7 +75,7 @@ Partial Class Prospeccion_RepProspectosGIS
             TmpDT.Columns.Add("Clave", GetType(String))
             TmpDT.Columns.Add("CvePS", GetType(Integer))
 
-            DdlFiscalEstado.DataSource = GlobalDTGralEstados(1) : DdlFiscalEstado.DataBind()
+            DdlFiscalEstado.DataSource = GlobalDTGralEstados("1") : DdlFiscalEstado.DataBind()
             CargaVendidos()
 
         End If

Prospectos/RedesIndicadores.aspx.vb

@@ -193,7 +193,7 @@ Partial Class Prospectos_RedesIndicadores
 
             ' ChtAvances.ChartAreas("ChartArea1").AxisX.IsMarginVisible = False
 
-            Dim Fechas = From s In Ind.DtResultados.AsEnumerable Where s!MesAnioIng <> "-1" Select Fecha = ("01/" & s!MesAnioIng).ToString.ToDate, Tot = s!Total.ToString.ToDouble Order By Fecha
+            Dim Fechas = From s In Ind.DtResultados.AsEnumerable Where s!MesAnioIng.ToString <> "-1" Select Fecha = ("01/" & s!MesAnioIng.ToString).ToString.ToDate, Tot = s!Total.ToString.ToDouble Order By Fecha
 
 
             'xValues.Add(" - ")

Prospectos/RepMetas2.aspx.vb

@@ -171,7 +171,7 @@ Partial Class Prospectos_RepMetas2
 
             e.Row.FCLiteral("LitPor").Text = (e.Row.DBCampo("Hijos").ToDouble / e.Row.DBCampo("MetaGlobal").ToDouble * 100).FormatoNumero(0)
 
-            If e.Row.DBCampo("UltimoIngreso") <> "" AndAlso e.Row.DBCampo("UltimoIngreso") < Now.AddDays(-10) Then
+            If e.Row.DBCampo("UltimoIngreso") <> "" AndAlso e.Row.DBCampo("UltimoIngreso").ToDate < Now.AddDays(-10) Then
                 e.Row.Cells(4).ForeColor = System.Drawing.Color.Red
                 e.Row.Cells(4).ToolTip = "Ultimo ingreso mayor a 10 dias"
             End If

RH/CatCursosCapacitadores.aspx.vb

@@ -145,8 +145,8 @@ Partial Class RH_CatCursosCapacitadores
 
         Dim objRH As New ClsRH
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
-        Dim CveCapacitador As Integer = GvRow.DataKey("CveCapacitador")
+        Dim activo As Boolean = False
+        Dim CveCapacitador As Integer = GvRow.DataKey("CveCapacitador").ToEntero
 
         If objRH.CapacitadorRemove(CveCapacitador) Then
             CargadatosGvCapacitador()
@@ -162,18 +162,18 @@ Partial Class RH_CatCursosCapacitadores
     Public Sub Edit_ClickCapacitador(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
+        Dim activo As Boolean = False
 
         LtlTituloModalCapacitadores.Text = "Editar Capacitador"
         Actualizar = True
 
-        CveCapaciatador = GvRow.DataKey("CveCapacitador")
+        CveCapaciatador = GvRow.DataKey("CveCapacitador").ToEntero
         TxtCapacitador.Text = GvRow.DataKey("Capacitador")
         TxtEspecialidades.Text = GvRow.DataKey("Especialidades")
         TxtCedula.Text = GvRow.DataKey("Cedula")
 
-        ChkEstatus.Checked = GvRow.DataKey("Estatus")
-        chkExterno.Checked = GvRow.DataKey("Externo")
+        ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
+        chkExterno.Checked = Boolean.Parse(GvRow.DataKey("Externo"))
 
         BtnAgregarCapacitadorModal.Text = "Actualizar"
 

RH/CatCursosTemas.aspx.vb

@@ -95,8 +95,8 @@ Partial Class RH_CatCursosTemas
     Public Sub Remove_ClickTema(sender As Object, e As EventArgs)
         Dim objRH As New ClsRH
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
-        Dim CveTema As Integer = GvRow.DataKey("CveTema")
+        Dim activo As Boolean = False
+        Dim CveTema As Integer = GvRow.DataKey("CveTema").ToEntero
 
         If objRH.TemasRemove(CveTema) Then
             CargadatosGvTemas()
@@ -109,14 +109,14 @@ Partial Class RH_CatCursosTemas
 
     Public Sub Edit_ClickTema(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
+        Dim activo As Boolean = False
 
         LtlTituloModalTema.Text = "Editar Tema"
         HdModalTemaModalidad.Value = "U"
         HdCveTema.Value = GvRow.DataKey("CveTema")
         TxtTema.Text = GvRow.DataKey("Tema")
 
-        ChkEstatusTema.Checked = GvRow.DataKey("Estatus")
+        ChkEstatusTema.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
         BtnAgregarTemaModal.Text = "Actualizar"
         LoadComboTemas()
         UpModalTema.Update()
@@ -173,8 +173,8 @@ Partial Class RH_CatCursosTemas
     Public Sub Remove_ClickSubtema(sender As Object, e As EventArgs)
         Dim objRH As New ClsRH
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
-        Dim CveTema As Integer = GvRow.DataKey("CveSubtema")
+        Dim activo As Boolean = False
+        Dim CveTema As Integer = GvRow.DataKey("CveSubtema").ToEntero
 
         If objRH.SubtemaRemove(CveTema) Then
             CargadatosGvTemas()
@@ -244,7 +244,7 @@ Partial Class RH_CatCursosTemas
         HdCveSubtema.Value = GvRow.DataKey("CveSubtema")
         DDlTema.SelectedValueExist(GvRow.DataKey("CveTema"))
         TxtSubtema.Text = GvRow.DataKey("Subtema")
-        ChkEstatusSubtema.Checked = GvRow.DataKey("Estatus")
+        ChkEstatusSubtema.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
         LtlTituloModalSubtema.Text = "Editar Subtema"
         BtnAgregarSubtemaModal.Text = "Actualizar"
 

RH/CatEstadoCivil.aspx.vb

@@ -159,7 +159,7 @@ Partial Class RH_CatEstadoCivil
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
         EstadoCivilTxt.Text = GvRow.DataKey("EstadoCivil")
         ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
-        CveEstadoCivilAEditar = GvRow.DataKey("CveEstadoCivil") 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
+        CveEstadoCivilAEditar = GvRow.DataKey("CveEstadoCivil").ToEntero 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
 
         UpDatos.Update()
         If ViewState("Orden").ToString() <> String.Empty Then

RH/CatPersonalRequerido.aspx.vb

@@ -175,7 +175,7 @@ Partial Class RH_CatPersonalRequerido
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
-        Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento")
+        Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento").ToEntero
 
         Dim ObjRH As New ClsRH
 
@@ -196,12 +196,12 @@ Partial Class RH_CatPersonalRequerido
     Public Sub Edit_ClickPersonalReq(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
+        Dim activo As Boolean = False
 
         LtlTituloModalPersonalReq.Text = "Editar Personal Requerido"
         Actualizar = True
 
-        CveRequerimiento = GvRow.DataKey("CveRequerimiento")
+        CveRequerimiento = GvRow.DataKey("CveRequerimiento").ToEntero
 
         CargaProyectos()
         CargaTurno()
@@ -212,7 +212,7 @@ Partial Class RH_CatPersonalRequerido
         ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
 
         ReqTurnoDdl.SelectedValueExist(GvRow.DataKey("CveTurno").ToEntero)
-        TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero
+        TxtCantidad.Text = GvRow.DataKey("Cantidad")
 
         DdlDepartamento.SelectedValueExist(GvRow.DataKey("CveDepartamento").ToEntero)
 

RH/CatPuestosSueldos.aspx.vb

@@ -29,7 +29,7 @@ Partial Class RH_CatPuestosSueldos
         DDL.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (CvePuesto NOT IN({0}) OR CvePuesto={1})", FiltroPuestos, CvePuesto))
         DDL.DataBind()
         If CvePuesto > 0 Then
-            DDL.SelectedValue = CvePuesto
+            DDL.SelectedValueExist(CvePuesto)
         End If
     End Sub
 
@@ -75,7 +75,7 @@ Partial Class RH_CatPuestosSueldos
     Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
         Dim index As Integer = e.RowIndex
         Dim cvepuesto As Integer = GvDatos.Rows(index).FCHiddenField("CvePuesto").Value.ToString.ToEntero
-        Dim Importe As Integer = GvDatos.Rows(index).FCTextBox("TxtSueldo").Text.ToString.ToDouble
+        Dim Importe As Integer = GvDatos.Rows(index).FCTextBox("TxtSueldo").Text.ToString.ToEntero
         Dim objRH As New ClsRH
         If objRH.UpdatePuestosSueldos(cvepuesto, Importe) Then
             GvDatos.EditIndex = -1
@@ -92,7 +92,7 @@ Partial Class RH_CatPuestosSueldos
         Dim index As Integer = e.NewEditIndex
         GvDatos.EditIndex = index
         cargaGVDatos()
-        CargaPuestos(GvDatos.Rows(index).FCDropDownList("DdlPuesto"), GvDatos.Rows(index).FCHiddenField("CvePuesto").Value)
+        CargaPuestos(GvDatos.Rows(index).FCDropDownList("DdlPuesto"), GvDatos.Rows(index).FCHiddenField("CvePuesto").Value.ToEntero)
     End Sub
 #End Region
 

Ventas/RepVentaDetalle.aspx

@@ -553,6 +553,28 @@
                         </ItemTemplate>
                     </asp:TemplateField>
 
+
+
+                    <%-- 36--%>
+                    <asp:TemplateField HeaderText="Metodo de Pago" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlMetodoPago" runat="server" Text='<%# Eval("MetodoPago") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%-- 37--%>
+                    <asp:TemplateField HeaderText="Forma de Pago" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlFormaPago" runat="server" Text='<%# Eval("FormaPago") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%-- 38--%>
+                    <asp:TemplateField HeaderText="Uso CFDI" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlUsoCFDI" runat="server" Text='<%# Eval("UsoCFDI") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
@@ -680,19 +702,19 @@
                                     <tr>
                                         
                                         <td style="text-align: left;"><asp:CheckBox ID="ChkMoneda" runat="server" Text="&nbsp;*Moneda" Checked="true" /></td>
-                                        <td style="text-align: left;"></td>
+                                        <td style="text-align: left;"><asp:CheckBox ID="ChkMetodoPago" runat="server" Text="&nbsp;Metodo de Pago" Checked="false" /></td>
                                         <td style="text-align: left;"><asp:CheckBox ID="ChkAmortizacion" runat="server" Text="&nbsp;Amortización"  /></td>                                                        
                                     </tr>
                                      <tr>
                                         
                                          <td style="text-align: left;"><asp:CheckBox ID="ChkIEPS" runat="server" Text="&nbsp;*IEPS"  /></td>
-                                         <td style="text-align: left;"></td>
+                                         <td style="text-align: left;"><asp:CheckBox ID="ChkFormaPago" runat="server" Text="&nbsp;Forma de Pago" Checked="false" /></td>
                                          <td style="text-align: left;"><asp:CheckBox ID="ChkSeTimbro" runat="server" Text="&nbsp;Se Timbró" /></td>
                                     </tr>
                                     <tr>
                                         <td style="text-align: left;"></td>
-                                        <td style="text-align: left;"></td>                                   
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSeEnvioMail" runat="server" Text="&nbsp; Se envió Mail" />&nbst</td>                           
+                                        <td style="text-align: left;"><asp:CheckBox ID="ChkUsoCFDI" runat="server" Text="&nbsp;Uso CFDI" Checked="false" /></td>                                   
+                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSeEnvioMail" runat="server" Text="&nbsp; Se envió Mail" /></td>                           
                                     </tr>
  
                                 </tbody>

Ventas/RepVentaDetalle.aspx.vb

@@ -765,6 +765,19 @@ Partial Class RepVentaDetalle
             ListPersonalizada.Add("Saldo")
         End If
 
+
+        If ChkMetodoPago.Checked Then
+            ListPersonalizada.Add("MetodoPago")
+        End If
+
+        If ChkFormaPago.Checked Then
+            ListPersonalizada.Add("FormaPago")
+        End If
+
+        If ChkUsoCFDI.Checked Then
+            ListPersonalizada.Add("UsoCFDI")
+        End If
+
         If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then
             'Alert("Personalizacion guardada")
         End If
@@ -818,6 +831,10 @@ Partial Class RepVentaDetalle
             ChkFolioFacturacion.Checked = False
             ChkSaldo.Checked = False
 
+            ChkMetodoPago.Checked = False
+            ChkFormaPago.Checked = False
+            ChkUsoCFDI.Checked = False
+
             Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
 
             For Each personalizacion As String In Personalizaciones
@@ -930,6 +947,17 @@ Partial Class RepVentaDetalle
                     Case "Saldo"
                         ChkSaldo.Checked = True
                         Exit Select
+
+                    Case "MetodoPago"
+                        ChkMetodoPago.Checked = True
+                        Exit Select
+                    Case "FormaPago"
+                        ChkFormaPago.Checked = True
+                        Exit Select
+                    Case "UsoCFDI"
+                        ChkUsoCFDI.Checked = True
+                        Exit Select
+
                     Case Else
                         Exit Select
                 End Select
@@ -983,6 +1011,9 @@ Partial Class RepVentaDetalle
         GvDatos.Columns(33).Visible = ChkSaldo.Checked
         GvDatos.Columns(34).Visible = ChkOrdenCompra.Checked
         GvDatos.Columns(35).Visible = ChkPedidoContrato.Checked
+        GvDatos.Columns(36).Visible = ChkMetodoPago.Checked
+        GvDatos.Columns(37).Visible = ChkFormaPago.Checked
+        GvDatos.Columns(38).Visible = ChkUsoCFDI.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then