la eliminación de una poliza ahora se registra en la bitacora

This commit is contained in:
Antonio Gonzalez
2020-07-24 11:24:42 -07:00
parent 8ebd2c01fc
commit 77e925de75
2 changed files with 32 additions and 22 deletions

View File

@@ -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

View File

@@ -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>