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

Soporte Anticipos del 2017 para atras en ventas y PopIEVnetas

Browse Source
This commit is contained in:
Raul Pimienta
2019-09-05 17:51:36 -07:00
parent 9a04b15004
commit 47b28acfc9
3 changed files with 59 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Bancos/PopIEVentas.aspx.vb
View File

@@ -2197,6 +2197,18 @@ Partial Class Bancos_PopIEVentas
End If
End If
If UsuarioActual.CveEmpresa.Contiene(119) Then
If rw.DataKey("FechaDocumento").ToDate.Year <= 2017 AndAlso Fecha.Year >= 2018 Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
If CveMoneda = 2 Then
IdCtaContable = ObjCliente.IdCtaContMonedaExtranjera
Else
IdCtaContable = ObjCliente.IdCtaContClientes
End If
End If
End If
End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, ReferenciaConcepto, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta, -1, CveSubProyectoContabilizar, If(ViewState("CveCliente") IsNot Nothing, ViewState("CveCliente").ToString.ToEntero, -1), ImporteMX:=ImporteMX, TipoCambio:=tipoCambioPago) Then
MsgError = "No se pudo insertar la póliza"
End If
@@ -2206,6 +2218,15 @@ Partial Class Bancos_PopIEVentas
If ObjCliente.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjCliente.IdCtaContCompAnticipos
End If
If UsuarioActual.CveEmpresa.Contiene(119) Then
If rw.DataKey("FechaDocumento").ToDate.Year <= 2017 AndAlso Fecha.Year >= 2018 Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjCliente.IdCtaContCompClientes
End If
End If
End If
If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, ReferenciaConcepto, 227, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta, -1, CveSubProyectoContabilizar, If(ViewState("CveCliente") IsNot Nothing, ViewState("CveCliente").ToString.ToEntero, -1), ImporteMX:=ImporteMovimiento * tipoCambioPago - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioPago) Then
MsgError = "No se pudo insertar la póliza"
@@ -2216,6 +2237,15 @@ Partial Class Bancos_PopIEVentas
If ObjCliente.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjCliente.IdCtaMonedaExtranjeraAnticipos
End If
If UsuarioActual.CveEmpresa.Contiene(119) Then
If rw.DataKey("FechaDocumento").ToDate.Year <= 2017 AndAlso Fecha.Year >= 2018 Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjCliente.IdCtaContMonedaExtranjera
End If
End If
End If
End If
End If