diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 445f02eb9..5f0713e77 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -144,10 +144,7 @@ - + + + +
+
+ +
+
+ +
+
+ + + +
+
+ + +
+
+ + +
+
+ + + + +
+
- - - - +
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index b245a4e7d..9e9a43dcb 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -46,19 +46,31 @@ Partial Class Bancos_DepositosCaja DdlSubProyectoDeposito.DataSource = DdlSubProyectos.DataSource DdlSubProyectoDeposito.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlSubProyectoDeposito.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectoDescuento.DataSource = DdlSubProyectos.DataSource DdlSubProyectoDescuento.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlSubProyectoDescuento.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2) DdlClasificacion.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacionDescuento.DataSource = DdlClasificacion.DataSource DdlClasificacionDescuento.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlClasificacionDescuento.Items.Insert(0, New ListItem("Seleccione", "-1")) + + 'intermediario + DdlProveedorIntermediario.datasource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", 73343)) + DdlProveedorIntermediario.databind + + DdlClasifIntermediario.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2) + DdlClasifIntermediario.DataBind() + + + DdlSubProyectoIntermediario.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) + DdlSubProyectoIntermediario.DataBind() + End Sub @@ -134,8 +146,11 @@ Partial Class Bancos_DepositosCaja Dim CveSubProyectoDescuento As Integer = -1 Dim CveClasificacion As Integer = -1 Dim CveClasificacionDescuento As Integer = -1 - Dim documentos As String = "Los Depósitos se realizaron exitósamente

" + Dim documentos As String = "Los Depósitos se realizaron exitosamente

" Dim imprimirFolios As String = "" + Dim CveSubProyectoIntermediario As Integer = -1 + Dim CveClasificacionIntermediario As Integer = -1 + If drOrigen IsNot Nothing Then CveMoneda = drOrigen("CveMoneda").ToString.ToEntero IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero @@ -172,13 +187,6 @@ Partial Class Bancos_DepositosCaja End If - If IVA <> 0 Then - IVA = CDec(0.16) - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, IVA, DdlClasificacion.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then - OcurrioError = True - End If - End If - End If If ChkDescuento.Checked Then @@ -189,6 +197,24 @@ Partial Class Bancos_DepositosCaja OcurrioError = True End If End If + + If 1 = 1 Then + + CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero + CveSubProyectoIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero + + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then + OcurrioError = True + End If + + If IVA <> 0 Then + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, DdlClasificacionIntermediario.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, ImporteMX:=IVA, CveCuenta:=CveCuentaBancariaOrigen, PorcentajeImpuesto:=0.16D) Then + OcurrioError = True + End If + End If + + End If + Else OcurrioError = True End If @@ -210,17 +236,20 @@ Partial Class Bancos_DepositosCaja FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2) If Not FolioIE > 0 Then OcurrioError = True + Exit For End If CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then OcurrioError = True + Exit For End If 'Asignamos la cuenta Deposito - If Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then + If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then OcurrioError = True + Exit For End If Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")