AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

E83

Browse Source
This commit is contained in:
rrene
2022-11-09 13:40:37 -07:00
parent eb05e9d552
commit b8274a1ea3
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Contabilidad/DiarioPagos.aspx.vb
View File

@@ -599,7 +599,7 @@ Partial Class Contabilidad_DiarioPagos
Select Case UsuarioActual.CveEmpresa
Case 13
Case 13, 83
Select Case gvr.DataKey("CveTipoTransaccion")
Case "1" 'cheque
Folio = gvr.DataKey("Folio")
@@ -791,7 +791,7 @@ Partial Class Contabilidad_DiarioPagos
End If
'registro los movimientos en proveedores, cuando es de contado que toque
If UsuarioActual.CveEmpresa = 13 AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then
If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then
CargoProveedor += CompraPagadoTotal
AbonoProveedor += CompraPagadoTotal
End If
@@ -835,7 +835,7 @@ Partial Class Contabilidad_DiarioPagos
End If
Dim ttTipoCambioPago As Double = TipoCambioPago
If UsuarioActual.CveEmpresa = 13 Then ttTipoCambioPago = TipoCambioCompra
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then ttTipoCambioPago = TipoCambioCompra
If IVAAcreditable > 0 Then 'iva Acreditable
@@ -927,8 +927,7 @@ Partial Class Contabilidad_DiarioPagos
If SimplificaRetIVA = False Then CompraRetIVA = CompraPagadoRetIVA
'no registra la retencion de iva al pagar
If UsuarioActual.CveEmpresa = 13 Then IdCuentaRetIVACirculacion = 0
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then IdCuentaRetIVACirculacion = 0
ConceptoTmp = If(CveMoneda = 2, String.Format("{0} TC {1}", ConceptoDetalle, TipoCambioFechaCompra), ConceptoDetalle)
If CompraRetIVA > 0 AndAlso IdCuentaRetIVACirculacion > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, IdCuentaRetIVACirculacion, False, CompraPagadoRetIVA * TipoCambioFechaCompra, gvrc.FCHiddenField("HdnSerieFolio").Value, ConceptoTmp, 0, Fecha, gvrc.FCHiddenField("HdnCveCompra").Value.ContaReferencia(TipoContaReferencia.Compra), If(MonExt, CompraRetIVA, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For