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

-

Browse Source
This commit is contained in:
rmolina
2019-12-13 12:51:39 -07:00
parent 509ffa70de
commit fa5fec9bc4
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
View File

@@ -151,6 +151,7 @@
<td width="60px" align="center">Número</td> <td width="60px" align="center">Número</td>
<td width="300px" align="left">Concepto</td> <td width="300px" align="left">Concepto</td>
<td width="100px" align="center">Referencia</td> <td width="100px" align="center">Referencia</td>
<td width="100px" align="center">SubProyecto</td>
<td width="100px" align="center">Cargos</td> <td width="100px" align="center">Cargos</td>
<td width="100px" align="center">Abonos</td> <td width="100px" align="center">Abonos</td>
<td width="100px" align="center">Saldo</td> <td width="100px" align="center">Saldo</td>
@@ -194,6 +195,9 @@
<td width="100px"> <td width="100px">
<asp:Label ID="LbReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Label> <asp:Label ID="LbReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Label>
</td> </td>
<td width="100px">
<asp:Label ID="LblSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Label>
</td>
<td width="100px" align="right"> <td width="100px" align="right">
<asp:Label ID="LbCargos" runat="server"></asp:Label> <asp:Label ID="LbCargos" runat="server"></asp:Label>
</td> </td>

4
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -3691,12 +3691,12 @@ Partial Class Inventarios_EntradasSalidas
End If End If
End If End If
If ValorEntrada > ValorSalida Then If ValorEntrada >= ValorSalida Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ValorEntrada + ValorSalida) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ValorEntrada + ValorSalida) Then
ErrorMovInv = True ErrorMovInv = True
Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso" Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso"
End If End If
ElseIf ValorSalida > ValorEntrada Then ElseIf ValorSalida >= ValorEntrada Then
'inserta el gasto 'inserta el gasto
Dim dr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("") Dim dr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim tCveClasificacion As Integer = -1 Dim tCveClasificacion As Integer = -1