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

App_Code/ClsGenerales.vb

@@ -3984,7 +3984,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function AsignaEntregaAlmacenRuta(CveCamion As Integer, CveChofer As Integer, FechaEntrega As Date, CveEntregaAlmacen As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AsignaEntregaAlmacenRuta(CveCamion As Integer, CveChofer As Integer, FechaEntrega As Date, FechaLlegada As DateTime, CveEntregaAlmacen As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_EntregaAlmacenRutaAsignar")
 
@@ -3992,6 +3992,7 @@ Public Class ClsGenerales
             .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
             .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
             .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega
+            .Add("@FechaLlegada", SqlDbType.DateTime).Value = FechaLlegada
             .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 

App_Code/LogicNominas.vb

@@ -28,7 +28,7 @@ Public Class LogicNominas
                 ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero()
                 ObjFactura.Serie = cfdi.Comprobante.Serie
                 ObjFactura.Timbre = cfdi
-                If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, False) Then
+                If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC) Then
                     Retorno = ObjTimbrado.MensajeErrorCFDI
                 End If
             End If
@@ -175,7 +175,7 @@ Public Class LogicNominas
                 If continuar AndAlso objPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) AndAlso objPersonal.DtResultados.Rows.Count > 0 Then
                     RFC = objPersonal.RFC
                     cfdi.Emisor.RegistroPatronal = objPersonal.DtResultados.Rows(0)("RegistroPatronal").ToString()
-                    NombreCompleto = objPersonal.NombreCompleto
+                    NombreCompleto = String.Format("{0} {1} {2}", objPersonal.Nombres, objPersonal.APaterno, objPersonal.AMaterno)
                     CodigoPostal = objPersonal.CP
                     Sindicalizado = objPersonal.DtResultados.Rows(0)("Sindicalizado").ToString().ToUpper().Contiene("TRUE", "1")
                     CURP = objPersonal.CURP
@@ -318,7 +318,8 @@ Public Class LogicNominas
             cfdi.Emisor.CURP = UsuarioActual.Empresa.CURP
         End If
         cfdi.Nomina.CveNomina = CveNomina
-        cfdi.Receptor.UsoCFDI = "P01"
+
+        cfdi.Receptor.UsoCFDI = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "CN01", "P01")
         cfdi.Receptor.RFC = RFC
         cfdi.Receptor.Nombre = NombreCompleto
 
@@ -426,7 +427,7 @@ Public Class LogicNominas
         If ObjDeducciones IsNot Nothing AndAlso ObjDeducciones.Count > 0 Then cfdi.Nomina.Deducciones = ObjDeducciones
 
 
-        cfdi.Comprobante.Version = "3.3"
+        cfdi.Comprobante.Version = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "4.0", "3.3")
         cfdi.Comprobante.Serie = Serie
         cfdi.Comprobante.Folio = Folio
         cfdi.Comprobante.Fecha = Now
@@ -439,7 +440,7 @@ Public Class LogicNominas
         cfdi.Comprobante.TipoDocto = "Egs"
         cfdi.Comprobante.MetodoPago = "PUE"
         cfdi.Comprobante.CondicionesdePago = "" '"CONTADO"
-        cfdi.Comprobante.FormadePago = "99"
+        cfdi.Comprobante.FormadePago = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "", "99")
         cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL
         cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta
         '4.0
@@ -466,7 +467,7 @@ Public Class LogicNominas
         cfdi.Nomina.Receptor.Sindicalizado = If(Sindicalizado, "Si", "No")
         cfdi.Nomina.Receptor.CodigoEntidadFederativa = ClaveEstado
 
-        cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.Subtotal, .Importe = cfdi.Comprobante.Subtotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal()})
+        cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.SubTotal, .Importe = cfdi.Comprobante.SubTotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal(), .ObjetoImpuesto = "01"})
 
 
         If continuar Then

App_Code/Timbrado.vb

@@ -1192,7 +1192,7 @@ Public Class Timbrado
         Return Timbre
 
     End Function
-    Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1, Optional NomUsaPac4 As Boolean = True) As Boolean
+    Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         Dim tCvePAC As Integer = UsuarioActual.Empresa.CvePAC
@@ -1228,15 +1228,15 @@ Public Class Timbrado
                 Retorno = If(Ret = "", True, False)
 
             Case 3
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then 'AndAlso NomUsaPac4 
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
-                    Retorno = TimbrarFacturaProFactV40(UsuarioActual, Ventas)
+                    Retorno = TimbrarFacturaProFactv40(UsuarioActual, Ventas)
                 Else
                     Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas)
                 End If
 
                     'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
             Case 4
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then 'AndAlso NomUsaPac4 
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
                     Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial)
                     If Ret <> "" Then MensajeErrorCFDI = Ret
                     Retorno = If(Ret = "", True, False)
@@ -1248,7 +1248,7 @@ Public Class Timbrado
 
 
             Case 5
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then 'AndAlso NomUsaPac4 
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
                     Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial)
                     If Ret <> "" Then MensajeErrorCFDI = Ret
                     Retorno = If(Ret = "", True, False)

Contabilidad/RegPrePolizaS.aspx.vb

@@ -817,6 +817,8 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         GvMov.DataSource = DtMovimientos
         GvMov.DataBind()
+        GvPrePoliza.DataBind() ''limpio el grid
+        UpPrePoliza.Update()
         UPMovs.Update()
 
     End Sub
@@ -982,9 +984,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                     FolioPoliza = ObjMov.FolioPoliza
 
                     Dim Gv As GridView = GvMov
-                    If DdlPlantilla.SelectedValue = "53" Then
+                    If DdlPlantilla.SelectedValue = "53" OrElse GvPrePoliza.Visible = True Then
-                        Gv = GvPrePoliza
+                        If GvPrePoliza.Rows.Count > 0 Then
-                        TipoGrid = 1
+                            Gv = GvPrePoliza
+                            TipoGrid = 1
+                        End If
+
                     End If
 
                     'inserto las compras que voy a pagarDdlSaldos
@@ -1164,10 +1169,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 If row.FCCheckBox("chkModificado").Checked Then
                     contador = contador + 1
 
-
-
-
-
                     Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal)
 
                     If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
@@ -1182,9 +1183,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                         End If
                     End If
 
-
-
-
                     If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
                                                                        row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                                        row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
@@ -1242,7 +1240,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         If Not OcurrioError Then
             If IdPoliza > 0 AndAlso contador Then
-                ' BtnContabilizar_Click(Nothing, Nothing)
+                Contabilizar()
             End If
 
         End If
@@ -2304,7 +2302,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue
         dt = ReadExcelFile(Ruta + FileName, True)
 
-
         If Not ErrorArchivo Then
 
             If Not dt.Columns(0).ColumnName.ToUpper = "CONCEPTOADMINISTRATIVO" Then
@@ -2512,6 +2509,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                     ContadorRegistros = ContadorRegistros + 1
                 Next
 
+                GvMov.DataBind()
+                divMovtos.Visible = False
                 GvPrePoliza.DataSource = DtMovimientos
                 GvPrePoliza.DataBind()
                 UpPrePoliza.Update()
@@ -2599,8 +2598,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                 Dim FolioManual As Integer = If(TxtFolio.Text.ToEntero > 0, TxtFolio.Text.ToEntero, -1)
 
-
-
                 If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, UsuarioActual.CveEmpresa, Folio:=FolioManual) Then
 
                     Alert($"Contabilizado Correctamente Folio <b>{ ObjConta.ContaFolio.ToString()}.</b>", TipoMensaje.MsgInformacion)
@@ -2618,7 +2615,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         Else
 
-
             If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
                 ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
             End If
@@ -2637,10 +2633,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         End If
 
-
-
-
-
         ObjConta.Dispose()
     End Sub
 

Inventarios/EntradasSalidas.aspx

@@ -1717,9 +1717,6 @@
                             <asp:Literal ID="TdTotal" runat="server" Visible="false"></asp:Literal>
                         </div>
 
-
-                         
-
                       <div runat="server" id="DVCultivosCuadro"   class="form-group form-md-line-input input-iconright" visible="false">
                           <asp:DropDownList ID="DdlModalCultivosCuadro" CssClass=" form-control input-sm select2me" runat="server" DataTextField="TemporadaCuadro" Style="width: 100%; max-width: 600px;"
                               DataValueField="CveCultivoCuadroDetalle" ValidationGroup="GrpProduccion">
@@ -1731,10 +1728,6 @@
                           <i></i>
                       </div>
 
-                                  
-
-
-
                     </div>
                     <div class="modal-footer">
                         <asp:LinkButton ID="LkAgregarDetalle" runat="server" CssClass="btn btn-primary" Text="Agregar"></asp:LinkButton>

Ventas/Clientes.aspx

@@ -634,18 +634,21 @@
                                         </div>
                                              </div>
                                          <div class="row">
-                                            <div class="form-group form-md-line-input input-iconright col-md-6">
+                                              <div class=" col-md-6">
+                                            <div class="form-group form-md-line-input input-iconright">
                                                 <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control  select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlSubProyecto_SelectedIndexChanged" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="GrpGuardar"></asp:DropDownList>
                                                 <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                 <label for="<%= DdlSubProyecto.ClientID.ToString()%>">Sucursal del Cliente:  </label>
                                                 <i></i>
                                             </div>
-
+                                                  </div>
-                                            <div class="form-group form-md-line-input input-iconright col-md-6">
+                                              <div class=" col-md-6">
+                                            <div class="form-group form-md-line-input input-iconright">
                                                 <asp:DropDownList ID="DdlPrecioLista" runat="server" CssClass="form-control  select2me" DataTextField="PrecioLista" DataValueField="CvePrecioLista"></asp:DropDownList>
                                                 <label for="<%= DdlPrecioLista.ClientID.ToString()%>">Precio Lista:  </label>
                                                 <i></i>
                                             </div>
+                                             </div>
                                                </div>
                                          <div class="row">