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

App_Code/ClsContabilidad.vb

@@ -4627,7 +4627,8 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
-    Public Function AddCuenta(CvePadre As Integer, Codigo As String, Nombre As String, Tipo As String, CtaMayor As Integer, CveMoneda As Integer, Optional DigAgrupador As Integer = -1, Optional CveAgrupadorSAT As Integer = -1, Optional NomIdioma As String = "") As Integer
+    Public Function AddCuenta(CvePadre As Integer, Codigo As String, Nombre As String, Tipo As String, CtaMayor As Integer, CveMoneda As Integer, Optional DigAgrupador As Integer = -1,
+                              Optional CveAgrupadorSAT As Integer = -1, Optional NomIdioma As String = "", Optional CveEmpresaParam As Integer = -1) As Integer
         Dim Retorno As Integer = 0
         DataAdapter("PA_Conta_AddCuentas")
 
@@ -4641,6 +4642,7 @@ Public Class ClsContabilidad
             .Add("@DigAgrupador", SqlDbType.Int).Value = DigAgrupador
             .Add("@NomIdioma", SqlDbType.VarChar).Value = NomIdioma
             .Add("@CveAgrupadorSAT", SqlDbType.Int).Value = CveAgrupadorSAT
+            .Add("@CveEmpresaParam", SqlDbType.Int).Value = CveEmpresaParam
             '.Add("@CveCuenta", SqlDbType.Int).Value = 0
             '.Add("@Error", SqlDbType.VarChar).Value = ""
             '.Add("@Error", SqlDbType.VarChar).Direction = ParameterDirection.Output

Ashx/TareasProgramadas.ashx

@@ -41,8 +41,8 @@ Public Class TareasProgramadas : Implements IHttpHandler
                     retorno = ""
                     context.Response.Write(retorno)
                 Case "EstadosCuenta"
-                    'CargaEstadosCuenta(context, 119, 227736)
+                    'CargaEstadosCuenta(context, 119, 227774)
-                    CargaEstadosCuenta(context, -1, -1)
+                    CargaEstadosCuenta(context, 119, -1)
             End Select
         Catch ex As Exception
             ex.GuardaLog(ex.ToString())
@@ -435,9 +435,6 @@ Public Class TareasProgramadas : Implements IHttpHandler
                     drr("CveMoneda") = drt("CveMoneda")
                     DtCxCFact.Rows.Add(drr)
                 Next
-            Else
-                Retorno = False
-                Return Retorno
             End If
 
             If DtCxCFact IsNot Nothing Then
@@ -470,6 +467,11 @@ Public Class TareasProgramadas : Implements IHttpHandler
             TotalIng = SaldoIngPesos + SaldoIngDolaresPesos
             TotalAnt = SaldoAntPesos + SaldoAntDolaresPesos
 
+            If TotalIng.RoundSQL(2) = 0 AndAlso TotalAnt.RoundSQL(2) = 0 Then
+                Retorno = False
+                Return Retorno
+            End If
+
             Dim DtCxCFact2 As DataTable = DtCxCFact.FiltraParametros($"TipoDocto IN ({TipoDocto2})")
 
             'INGRESOS

Bancos/DepositosCaja.aspx

@@ -110,14 +110,17 @@
 
             <br />
             <br />
-
+            <div runat="server" id="divLabelTotal" style="width:100%;text-align:right;font-size:1.5em" visible="false">
+                <asp:label runat="server">Importe seleccionado: $</asp:label><asp:label runat="server" ID="lblValorTotal">00.00</asp:label>
+            </div>
+            <br />
             <asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe" CssClass="table detallerow  table-hover" Style="text-align: center; float: right; width: 100%; font-size: medium;" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:CheckBox ID="ChkFactura" runat="server" Checked="false" Enabled="True" />
+                            <asp:CheckBox ID="ChkFactura" OnCheckedChanged="ChkFactura_Click" runat="server" Checked="false" Enabled="True" AutoPostBack="True"/>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Factura">

Bancos/DepositosCaja.aspx.vb

@@ -48,6 +48,7 @@ Partial Class Bancos_DepositosCaja
 
         UpGvFacturas.Update()
         GvFacturas.DataBind()
+        divLabelTotal.Visible = True
     End Sub
 
     Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click
@@ -157,4 +158,20 @@ Partial Class Bancos_DepositosCaja
         ObjContabilidad.Dispose()
     End Sub
 
+    Private Sub ObtenerTotalImporta()
+
+        Dim Total As Double = 0
+        For Each Gvr As GridViewRow In GvFacturas.Rows
+            If Gvr.FCCheckBox("ChkFactura").Checked Then
+                Total += Gvr.DataKey("Importe").ToDouble
+            End If
+        Next
+        lblValorTotal.Text = Total.ToString
+        UpGvFacturas.Update()
+    End Sub
+
+    Public Sub ChkFactura_Click(sender As Object, e As EventArgs)
+        ObtenerTotalImporta()
+    End Sub
+
 End Class

Empresas/Grales/Formatos/RepProductosServiciosDetalle.rdlc

@@ -15,11 +15,14 @@
               <Width>1.67447cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>6.57043cm</Width>
+              <Width>2.82586cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.94532cm</Width>
             </TablixColumn>
+            <TablixColumn>
+              <Width>2.89687cm</Width>
+            </TablixColumn>
             <TablixColumn>
               <Width>5.49064cm</Width>
             </TablixColumn>
@@ -225,7 +228,7 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="Textbox22">
+                    <Textbox Name="Textbox15">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
@@ -244,6 +247,42 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
+                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox22">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Código Producto/Servicio</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
                       <rd:DefaultName>Textbox22</rd:DefaultName>
                       <Style>
                         <Border>
@@ -578,7 +617,6 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>
@@ -616,6 +654,40 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="PS">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!PS.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight>
+                                <Color>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","White","#67809F"), "Black")</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>PS</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="CodigoPS">
@@ -851,6 +923,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -866,7 +939,7 @@
         <DataSetName>DataSet1</DataSetName>
         <Left>0.06614cm</Left>
         <Height>0.90467cm</Height>
-        <Width>28.36649cm</Width>
+        <Width>27.51879cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -877,7 +950,7 @@
     <Height>0.59228in</Height>
     <Style />
   </Body>
-  <Width>11.21478in</Width>
+  <Width>10.86021in</Width>
   <Page>
     <PageHeader>
       <Height>2.91154cm</Height>

General/SaldosIniciales.aspx.vb

@@ -586,6 +586,34 @@ Partial Class General_SaldosIniciales
                 Alert("El nombre de la diescisieteava columna debe ser 'Clave Unidad'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
+
+        ElseIf RblFormato.SelectedValue = "9" Then
+
+            If Not dt.Columns(0).ColumnName = "Cuenta" Then
+                Alert("El nombre de la primera columna debe ser 'Cuenta'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(1).ColumnName = "NombreCuenta" Then
+                Alert("El nombre de la segunda columna debe ser 'NombreCuenta'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(2).ColumnName = "TipoCuenta" Then
+                Alert("El nombre de la tercera columna debe ser 'TipoCuenta'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(3).ColumnName = "CuentaPadre" Then
+                Alert("El nombre de la cuarta columna debe ser 'CuentaPadre'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(5).ColumnName = "AgrupadorSAT" Then
+                Alert("El nombre de la quinta columna debe ser 'AgrupadorSAT'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
         ElseIf RblFormato.SelectedValue = "12" Then
             If Not dt.Columns(0).ColumnName = "CodigoPS" Then
                 Alert("El nombre de la primera columna debe ser 'CodigoPS'. Favor de corregirlo", TipoMensaje.MsgError)
@@ -1777,7 +1805,7 @@ Partial Class General_SaldosIniciales
                         Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString
                         Dim CveCuentaPadre As Integer = -1
 
-                        If Not CuentaPadre = "NULL" Then
+                        If Not CuentaPadre = "" Then
                             If ObjConta.GetCuentas(-1, CuentaPadre.Replace("-", ""), -1, UsuarioActual.CveEmpresa) Then
                                 If ObjConta.DtResultados.Rows.Count > 0 Then
                                     CveCuentaPadre = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero
@@ -1793,7 +1821,7 @@ Partial Class General_SaldosIniciales
                             CveCuentaPadre = -2
                         End If
 
-                        Dim IdNew = ObjConta.AddCuenta(CveCuentaPadre, Cuenta.Replace("-", ""), NombreCuenta, TipoCuenta, 1, 1)
+                        Dim IdNew = ObjConta.AddCuenta(CveCuentaPadre, Cuenta.Replace("-", ""), NombreCuenta, TipoCuenta, 1, 1, CveEmpresaParam:=UsuarioActual.CveEmpresa)
                         If IdNew > 0 Then
                             ContadorUpdate = ContadorUpdate + 1
                         Else

Ventas/Clientes.aspx.vb

@@ -3910,7 +3910,7 @@ Partial Class Clientes
                                                         Gracias por la atención brindada al presente.<br /> Reciba un cordial saludo.<br />
                                                         <br />
                                                         <b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
-                        Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo2(File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo))
+                        Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
                         Hilo.Start()
                         Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion)
                     Catch ex As Exception
@@ -3977,7 +3977,7 @@ Partial Class Clientes
             End If
         End If
     End Sub
-    Private Sub MandaCorreo2(File As Byte(), Para As String, Asunto As String, Body As String)
+    Private Sub MandaCorreoEstadoCuenta(File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)
 
         Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
         'a.GuardaLog()
@@ -3986,7 +3986,13 @@ Partial Class Clientes
         Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
         LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoDeCuenta.pdf"})
 
-        Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=LSRutasMail)
+        Dim Envio As Boolean = Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=LSRutasMail)
+
+        If Envio AndAlso GuardarBitacora Then
+            Using ObjBitacora As New ClsOIEventos
+                ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente)
+            End Using
+        End If
 
     End Sub
 #End Region
@@ -5731,7 +5737,8 @@ Partial Class Clientes
         Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
         a.GuardaLog()
         Dim Mail As New ClsSisMail()
-        Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
+        Dim Envio As Boolean = Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
+
     End Sub
     Protected Sub BtnCobranzaSMS_Click(sender As Object, e As EventArgs)
         Dim Telefono = CobranzaTelefono

Ventas/Ventas.aspx.vb

@@ -6739,11 +6739,11 @@ Partial Class Ventas
                     End If
                 End If
                 'ENVIAR POLIZA VIRTUAL
-                'If ErrorList.Count = 0 Then
+                If ErrorList.Count = 0 Then
-                '    If UsuarioActual.Empresa.Funcionalidad(576) = "1" Then
+                    If UsuarioActual.Empresa.Funcionalidad(576) = "1" Then
-                '        GeneraPolizaVentaWS(ObjFactura)
+                        GeneraPolizaVentaWS(ObjFactura)
-                '    End If
+                    End If
-                'End If
+                End If
 
                 If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 Then
 
@@ -23752,7 +23752,7 @@ Partial Class Ventas
             DtUsados = ObjAcum.DtResultados.Copy()
         End If
         ObjAcum.Dispose()
-
+        Try
             For Each Row As DataRow In DtUsados.Rows
                 Dim obj As New Modelos.MPolizaVentaWS
                 'DATOS DEL CLIENTE
@@ -23794,6 +23794,10 @@ Partial Class Ventas
 
                 EnviarPolizaVentaWS(obj)
             Next
+        Catch ex As Exception
+            OnError("Ocurrió un error al generar la poliza virtual", ex)
+        End Try
+
 
     End Sub