From 77e925de75c7d97de578ebb4607d0682c8ceb3d2 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Fri, 24 Jul 2020 11:24:42 -0700
Subject: [PATCH] =?UTF-8?q?la=20eliminaci=C3=B3n=20de=20una=20poliza=20aho?=
 =?UTF-8?q?ra=20se=20registra=20en=20la=20bitacora?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad/RegPoliza.aspx.vb                | 14 ++++++-
 .../Grales/Formatos/AuxiliarProveedor.rdlc    | 40 +++++++++----------
 2 files changed, 32 insertions(+), 22 deletions(-)

diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb
index 9b2e4f077..4aa040ece 100644
--- a/Contabilidad/RegPoliza.aspx.vb
+++ b/Contabilidad/RegPoliza.aspx.vb
@@ -1702,9 +1702,21 @@ Partial Class RegPoliza
 
         If ObjConta.RemovePoliza(IDPoliza) Then
             If ObjMov.DesvincularPrePolizaContabilizada(IDPoliza, UsuarioActual.CveEmpresa) Then
-                If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
 
+                    ErrorTrans = True
                 Else
+                End If
+
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                    ErrorTrans = True
+                End If
+
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", TxtFechaPoliza.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                    ErrorTrans = True
+                End If
+
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", DdlTipoPoliza.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
                     ErrorTrans = True
                 End If
             Else
diff --git a/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc b/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc
index 7306eef7f..76a2fcc64 100644
--- a/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc
+++ b/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc
@@ -50,34 +50,34 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.57873cm</Width>
+              <Width>2.19852cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.54731cm</Width>
+              <Width>2.26204cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>0.70704cm</Width>
+              <Width>0.69929cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.66702cm</Width>
+              <Width>1.65927cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.99686cm</Width>
+              <Width>1.98911cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.96369cm</Width>
+              <Width>1.95594cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.75246cm</Width>
+              <Width>1.74471cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>0.85958cm</Width>
+              <Width>0.85183cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.6398cm</Width>
+              <Width>1.63205cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.77947cm</Width>
+              <Width>1.50713cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -822,7 +822,7 @@
             <TablixMember>
               <Group Name="GPO" />
               <TablixHeader>
-                <Size>3.06196cm</Size>
+                <Size>3.05421cm</Size>
                 <CellContents>
                   <Textbox Name="RazonSocial">
                     <CanGrow>true</CanGrow>
@@ -863,7 +863,7 @@
         <Top>0.75875cm</Top>
         <Left>0.06614cm</Left>
         <Height>1.19472cm</Height>
-        <Width>19.55393cm</Width>
+        <Width>19.55408cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -891,8 +891,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>0.07056cm</Top>
-        <Left>0.06614cm</Left>
+        <Top>0.0635cm</Top>
+        <Left>0.01654cm</Left>
         <Height>0.58236cm</Height>
         <Width>19.58715cm</Width>
         <ZIndex>1</ZIndex>
@@ -910,10 +910,10 @@
     <Height>0.87325in</Height>
     <Style />
   </Body>
-  <Width>7.73752in</Width>
+  <Width>7.7245in</Width>
   <Page>
     <PageHeader>
-      <Height>2.22362cm</Height>
+      <Height>2.32973cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <ReportItems>
         <Textbox Name="Textbox1">
@@ -935,9 +935,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox1</rd:DefaultName>
-          <Left>2.43857cm</Left>
           <Height>0.6cm</Height>
-          <Width>14.68354cm</Width>
+          <Width>19.60369cm</Width>
           <Style>
             <Border>
               <Style>None</Style>
@@ -983,9 +982,8 @@
           </Paragraphs>
           <rd:DefaultName>Textbox2</rd:DefaultName>
           <Top>0.63528cm</Top>
-          <Left>2.40329cm</Left>
           <Height>0.52945cm</Height>
-          <Width>14.68354cm</Width>
+          <Width>19.62022cm</Width>
           <ZIndex>1</ZIndex>
           <Style>
             <Border>
@@ -1003,7 +1001,7 @@
           <Sizing>FitProportional</Sizing>
           <Left>0.06614cm</Left>
           <Height>2.22362cm</Height>
-          <Width>2.33715cm</Width>
+          <Width>4.64069cm</Width>
           <ZIndex>2</ZIndex>
           <Style>
             <Border>