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

App_Code/ClsVentas.vb

@@ -3973,6 +3973,92 @@ Public Class ClsVentas
         Return retorno
     End Function
 #End Region
+
+#Region " U S A D O S "
+
+    Public Function AddVentaUsado(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_VentasUsadosAdd", CommandType.StoredProcedure)
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
+            .Add("@PU", SqlDbType.Money).Value = PU
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al relacionar las ventas con los usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetVentasUsados(CveVenta As Integer, CveSubProyecto As Integer, Fecha As DateTime, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_VentasUsadosGet", CommandType.StoredProcedure)
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las ventas con usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetVentasUsadosDetalle(CveVenta As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_VentasUsadosDetalleGet", CommandType.StoredProcedure)
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las ventas con usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateVentaUsadoRecibido(CveVenta As Integer, CvePS As Integer, Recibido As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_VentasUsadosRecibidoUpdate", CommandType.StoredProcedure)
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@Recibido", SqlDbType.Bit).Value = Recibido
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el recibo de los usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+#End Region
 #Region "IDisposable Support"
 
 

App_Code/Modelos.vb

@@ -1230,7 +1230,7 @@ Namespace Modelos
 
             End If
 
-            If Not GuardarUsados(ObjVentas.IniciaTransacSQL, ObjVentas.CveVenta) Then
+            If Not GuardarUsados(ObjVentas.IniciaTransacSQL, ObjVentas.CveVenta, ObjVentas) Then
                 ErrorList.Add("Error al guardar usados")
             End If
 
@@ -1408,7 +1408,7 @@ Namespace Modelos
                     End If
                 End If
 
-                If ErrorList.Count = 0 Then
+                If ErrorList.Count = 0 AndAlso factura.TipoDocto.Contiene("Ing", "Ant") Then
                     'Agregamos las remisiones a la tabla
                     If factura.DtRemisionesPS IsNot Nothing AndAlso factura.DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
                         Dim CveVentaDetalle As Integer = 0
@@ -1480,7 +1480,7 @@ Namespace Modelos
                         'inventarios
                         GuardarVentaInventarios(factura, ObjInventario, ObjConta)
 
-                        GuardaRecepcionUsados(factura, ObjInventario, ObjConta)
+                        'GuardaRecepcionUsados(factura, ObjInventario, ObjConta)
 
                         If ErrorList.Count = 0 Then
                             'estimaciones
@@ -1755,36 +1755,50 @@ Namespace Modelos
                 DtVentasNC.Rows.Add(Dr)
             End If
         End Sub
-        Private Function GuardarUsados(SqlTransaccion As SqlClient.SqlTransaction, CveVenta As Integer) As Boolean
+        Private Function GuardarUsados(SqlTransaccion As SqlClient.SqlTransaction, CveVenta As Integer, ByRef ObjVentas As ClsVentas) As Boolean
-            Dim Resultado As Boolean = True
+            Dim Resultado As Boolean = True
-
+
-            If ClienteEsDistribuidor Then
+            'If ClienteEsDistribuidor Then
-                If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 Then
+            If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 Then
-                    Dim CvePSPSA As Integer = UsuarioActual.Empresa.Funcionalidad(533).ToEntero
+                Dim CvePSPSA As Integer = UsuarioActual.Empresa.Funcionalidad(533).ToEntero
-
+
-                    Dim ObjAcum As New ClsAcumuladores(SqlTransaccion)
+                Dim ObjAcum As New ClsAcumuladores(SqlTransaccion)
-
+
-
+                For Each drow As DataRow In DtDetalle.Rows
-                    For Each drow As DataRow In DtDetalle.Rows
+                    If drow("CveTamaño").ToString.ToEntero > 0 And (CvePSPSA <> drow("CvePS").ToString.ToEntero) Then
-                        If drow("CveTamaño").ToString.ToEntero > 0 And (CvePSPSA <> drow("CvePS").ToString.ToEntero) Then
+                        If ObjAcum.DistribuidorMovtosAdd(CveCliente, drow("Cantidad").ToString.ToEntero, drow("CveTamaño").ToString.ToEntero, 2, CveVenta, UsuarioActual.CveUsuario,
-                            If ObjAcum.DistribuidorMovtosAdd(CveCliente, drow("Cantidad").ToString.ToEntero, drow("CveTamaño").ToString.ToEntero, 2, CveVenta, UsuarioActual.CveUsuario,
+                                                     UsuarioActual.CveEmpresa, 0D, "") Then
-                                                         UsuarioActual.CveEmpresa, 0D, "") Then
+                        Else
-                            Else
+                            Resultado = False
-                                Resultado = False
+                            Exit For
-                                Exit For
+                        End If
-                            End If
+                    Else
-                        Else
+                        Resultado = True
-                            Resultado = True
+                    End If
-                        End If
+                Next
-                    Next
+
-                Else
+                If TipoDocto.Contiene("Rem") Then
-                    ErrorList.Add("El cliente es Distribuidor y no se tiene un producto o servicio asigando como PS Acumulador")
+                    If DtRecepcionUsados IsNot Nothing Then
-                    Resultado = False
+                        For Each drow As DataRow In DtRecepcionUsados.Rows
-                End If
+                            If Not ObjVentas.AddVentaUsado(CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal) Then
-            Else
+                                Resultado = False
-                Resultado = True
+                                Exit For
-            End If
+                            End If
-
+                        Next
+                    Else
+                        Resultado = False
+                    End If
+                End If
+
+
+            Else
+                ErrorList.Add("El cliente es Distribuidor y no se tiene un producto o servicio asigando como PS Acumulador")
+                Resultado = False
+            End If
+            'Else
+            '    Resultado = True
+            'End If
+
             Return Resultado
 
         End Function

Compras/Compras.aspx.vb

@@ -6235,7 +6235,7 @@ Partial Class Compras_Compras
                                                                                         CostoIndirectoAcum176 += ImporteCI176
                                                                                         'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
                                                                                         SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN176 - ImporteCI176)
-                                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=Dr("CveMovimientoAlmacen").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
+                                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then
                                                                                             ErrorPrepoliza = True
                                                                                             Exit For
                                                                                         End If
@@ -6278,7 +6278,7 @@ Partial Class Compras_Compras
 
                                                                 End If
 
-
+                                                                'falta el registro de la NC cuando es
                                                                 Dim RegistroCuentaPuente As Boolean = False
                                                                 'NC CON PRODUCTOS - CUENTA PUENTE
                                                                 If UsuarioActual.CveEmpresa.Contiene(119) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
@@ -6593,8 +6593,8 @@ Partial Class Compras_Compras
                                                                         If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
                                                                             Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
                                                                             Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
-                                                                            Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
                                                                             Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal
+                                                                            Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
 
                                                                             IdCtaContable = CtaProveedorExtranjera
                                                                             CveCuenta = CveCuentaProveedorExtranjera
@@ -6611,7 +6611,7 @@ Partial Class Compras_Compras
                                                                             End If
 
 
-                                                                            importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
+                                                                            importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
                                                                             IdCtaContable = CtaProveedorExtranjera
                                                                             CveCuenta = CveCuentaProveedorExtranjera
                                                                             If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
@@ -9514,6 +9514,15 @@ Partial Class Compras_Compras
                 Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
 
                 Select Case ConceptoContable
+                    Case 5
+                        IdCtaContable = 1244
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
+                            ErrorPrepoliza = True
+                        End If
+                        IdCtaContable = 1243
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
+                            ErrorPrepoliza = True
+                        End If
                     Case 6
                         Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0
                         Dim ConceptoPersonal As String = "", Concepto As String = ""

Contabilidad/OCDetalleAlmacen.aspx.vb

@@ -106,7 +106,7 @@ Partial Class Contabilidad_OCDetalleAlmacen
                 If CvePrePoliza > 0 Then
 
                     If Cargo > Abono Then
-                        If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 228, Referencia, Fecha, IdCtaCuenta228, -1, ImporteME:=Diferencia, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
+                        If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 176, Referencia, Fecha, IdCtaCuenta228, -1, ImporteME:=Diferencia, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
 
                             If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, Referencia, 177, Referencia, Fecha, IdCtaCuenta177, -1, ImporteME:=-0, ImporteMX:=-Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
                                 ContadorProcesados = ContadorProcesados + 1

LogMail.txt

@@ -4,4 +4,23 @@
   28/08/2019:05:48 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 80 
 
   02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx'  -  Para:'x@x.com'  - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-22' -  CCP: '' - Adjuntos: 1 
-
+
+  02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx'  -  Para:'japmx95@gmail.com'  - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-23' -  CCP: '' - Adjuntos: 1 
+
+  05/09/2019:11:02 a. m. From:'signotificaciones@adssistemas.mx'  -  Para:';'  - Asunto:'Envío de complemento de pago' -  CCP: '' - Adjuntos: 2 
+ - Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario.
+   en System.Net.Mail.SmtpClient.Send(MailMessage message)
+   en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 
+
+  05/09/2019:12:31 p. m. From:'signotificaciones@adssistemas.mx'  -  Para:';'  - Asunto:'Envío de complemento de pago' -  CCP: '' - Adjuntos: 2 
+ - Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario.
+   en System.Net.Mail.SmtpClient.Send(MailMessage message)
+   en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 
+
+  10/09/2019:12:16 p. m. From:'signotificaciones@adssistemas.mx'  -  Para:'DSDDS@hotmail.com'  - Asunto:'SIG - La Orden Compra #26598 cambió de estatus.' -  CCP: '' - Adjuntos: 0 
+
+  10/09/2019:02:58 p. m. No se especifico a remitente - SIG - La Orden Compra #28107 cambió de estatus. 
+
+  11/09/2019:11:56 a. m. From:'signotificaciones@adssistemas.mx'  -  Para:'antonio.gonzalez@adssistemas.mx'  - Asunto:'Solicitud Vacaciones ' -  CCP: '' - Adjuntos: 0 
+
+  11/09/2019:12:35 p. m. From:'signotificaciones@adssistemas.mx'  -  Para:'antonio.gonzalez@adssistemas.mx'  - Asunto:'(Vacaciones:Permisos) Asistencia Técnica AD Sistemas' -  CCP: '' - Adjuntos: 0 

LogTimbrado.txt

@@ -12,3 +12,7 @@
  .. PAC: 3 - Verificado : (36) 36 Armado: (32) 68 Genera: (0) 68 Timbrado: (10604) 10672 Actualizado: (16) 10688  ..05/09/2019:12:31 p. m.
 
  .. PAC: 4 - Verificado : (12) 12 Certificado : (209) 221 Armado: (35) 256 Genera: (306) 562 Timbrado: (918) 1480  ..20/09/2019:05:37 p. m.
+
+ .. PAC: 4 - Verificado : (6) 6 Certificado : (384) 390 Armado: (27) 417 Genera: (390) 807 Timbrado: (2271) 3078 Guardado: (219) 3297 Actualizado: (902) 4199  ..01/10/2019:12:27 a. m.
+
+ .. PAC: 4 - Verificado : (0) 0 Certificado : (204) 204 Armado: (1) 205 Genera: (249) 454 Timbrado: (431) 885  ..01/10/2019:12:27 a. m.

Ventas/Ventas.aspx.vb

@@ -2239,6 +2239,7 @@ Partial Class Ventas
                 ImgFecha.Visible = False
             End If
 
+
             CargarCodigo()
             InicializaImprimirNew()
 
@@ -2469,6 +2470,8 @@ Partial Class Ventas
             TxtFecha.Enabled = True
             ImgFecha.Visible = True
         End If
+        TxtFecha.Enabled = True
+
     End Sub
 
     Private Sub ConfiguraEmpresa()
@@ -9007,7 +9010,7 @@ Partial Class Ventas
                 End If
             End If
 
-            If ErrorList.Count = 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
+            If ErrorList.Count = 0 AndAlso factura.TipoDocto.Contiene("Ing", "Ant") Then
                 'Agregamos las remisiones a la tabla
                 If DtRemisionesPS IsNot Nothing AndAlso DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
                     Dim CveVentaDetalle As Integer = 0