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

-cambio cuenta personal-prestamos

Browse Source 
- usados, registra primero venta y luego movimieto almacen
This commit is contained in:
Rene Molina
2020-01-28 10:23:53 -07:00
parent 590d0c1493
commit 62600bad0e
2 changed files with 17 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Bancos/PopIEVentas.aspx.vb
View File

@@ -2305,8 +2305,8 @@ Partial Class Bancos_PopIEVentas
ImporteMX = Math.Round(ImporteMX, 2) ImporteMX = Math.Round(ImporteMX, 2)
TimpocambioGeneral = tipoCambioPago TimpocambioGeneral = tipoCambioPago
CveSubProyectoContabilizar = CveSubProyectoVenta CveSubProyectoContabilizar = CveSubProyectoVenta
Dim Id As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPersonal").ToEntero IdCtaContable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPrestamos").ToEntero
IdCtaContable =
Else Else
ImporteMovimiento = 0 ImporteMovimiento = 0
End If End If

26
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -1079,6 +1079,21 @@ Partial Class Inventarios_RecepcionUsados
If CveRemisionRecibida > 0 Then If CveRemisionRecibida > 0 Then
CveVenta = CveRemisionRecibida CveVenta = CveRemisionRecibida
Else
CveVenta = -1
End If
If Not ErrorMovInv AndAlso GenerarRNC AndAlso ObjRemisionNC IsNot Nothing Then
CargaDTDetalleRNC()
Dim Resp = ObjRemisionNC.EmitirFactura(False, ObjInventario.IniciaTransacSQL)
For Each mensaje2 As String In Resp.Mensajes
Msg.AppendFormat("<br>{0}", mensaje2)
Next
If Resp.TieneError Then ErrorMovInv = True
Alert(Msg.ToString, If(Resp.CveVenta > 0, TipoMensaje.MsgInformacion, TipoMensaje.MsgAdvertencia))
CveVenta = Resp.CveVenta
End If End If
CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta,
@@ -1092,18 +1107,7 @@ Partial Class Inventarios_RecepcionUsados
Else Else
Dim Mensaje As String = "" Dim Mensaje As String = ""
If Not ErrorMovInv AndAlso GenerarRNC AndAlso ObjRemisionNC IsNot Nothing Then
CargaDTDetalleRNC()
Dim Resp = ObjRemisionNC.EmitirFactura(False, ObjInventario.IniciaTransacSQL)
For Each mensaje2 As String In Resp.Mensajes
Msg.AppendFormat("<br>{0}", mensaje2)
Next
If Resp.TieneError Then ErrorMovInv = True
Alert(Msg.ToString, If(Resp.CveVenta > 0, TipoMensaje.MsgInformacion, TipoMensaje.MsgAdvertencia))
CveVenta = Resp.CveVenta
End If
For Each Dr As DataRow In DtMovimientos.Rows For Each Dr As DataRow In DtMovimientos.Rows