-- mejora en tipos de póliza
-- filtra las tipotransacción activas -- se actió ot gastos/ingresos funcionaldiad 590
This commit is contained in:
@@ -700,6 +700,13 @@ Partial Class Bancos_IE
|
||||
TxtImporte.Attributes.Add("onkeypress", "javascript: return false;")
|
||||
End If
|
||||
|
||||
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion") = "INGPC" Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
|
||||
DivOtrosIngresosEgresos.Visible = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
|
||||
LblPagueseA.Text = ""
|
||||
@@ -1844,18 +1851,18 @@ Partial Class Bancos_IE
|
||||
Private Sub CargaTipoTransaccion(Optional Tipo As String = "")
|
||||
Dim dt As DataTable
|
||||
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then
|
||||
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
|
||||
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1")
|
||||
LtlTitulo.Text = "Egreso Por Comprobar"
|
||||
|
||||
RBL.Items.Remove(RBL.Items.FindByValue("C"))
|
||||
ElseIf Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "DEV" Then
|
||||
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'")
|
||||
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 ")
|
||||
LtlTitulo.Text = If(Request("Opcion").ToString = "INGPC", "Ingreso por comprobar", "Devolución")
|
||||
LblPagueseA.Text = "Recibido de:"
|
||||
RBL.SelectedValue = "C"
|
||||
Anexo.Visible = True
|
||||
ElseIf Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "INGPC" Then
|
||||
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'")
|
||||
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1")
|
||||
LtlTitulo.Text = If(Request("Opcion").ToString = "INGPC", "Ingreso por comprobar", "Devolución")
|
||||
LblPagueseA.Text = "Recibido de:"
|
||||
RBL.SelectedValue = "C"
|
||||
@@ -1865,13 +1872,13 @@ Partial Class Bancos_IE
|
||||
RBL.Items.Remove(RBL.Items.FindByValue("FE"))
|
||||
|
||||
ElseIf Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "ANTC" Then
|
||||
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'")
|
||||
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 ")
|
||||
LtlTitulo.Text = "Anticipo de Cliente"
|
||||
LblPagueseA.Text = "Recibido de:"
|
||||
Anexo.Visible = True
|
||||
RBL.Items.Remove(RBL.Items.FindByValue("P")) : RBL.Items.Remove(RBL.Items.FindByValue("FE")) : RBL.Items.Remove(RBL.Items.FindByValue("DD")) : RBL.Items.Remove(RBL.Items.FindByValue("AC")) : RBL.Items.Remove(RBL.Items.FindByValue("DP"))
|
||||
ElseIf Opcion = "DevDinV" Then ' DEVOLUCION DINERO NC-VENTAS
|
||||
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
|
||||
dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1 ")
|
||||
LtlTitulo.Text = "Devolución dinero"
|
||||
RBL.SelectedValue = "C"
|
||||
RBL.Enabled = False
|
||||
@@ -1879,20 +1886,17 @@ Partial Class Bancos_IE
|
||||
dt = GlobalDTTipoTransacciones
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Opcion = "DevDinC" AndAlso Request("P") IsNot Nothing AndAlso Request("P").Length > 0 Or Opcion = "DevDinC" AndAlso Masivonotas Then
|
||||
DdlTipoTransaccion.DataSource = dt.FiltraParametros("Tipo = 'Ing' ")
|
||||
DdlTipoTransaccion.DataSource = dt.FiltraParametros("Tipo = 'Ing' AND Estatus = 1 ")
|
||||
Else
|
||||
DdlTipoTransaccion.DataSource = dt
|
||||
End If
|
||||
|
||||
If Tipo.Length > 0 Then
|
||||
DdlTipoTransaccion.Items.Clear()
|
||||
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND EstatusTexto = 'Activo' ")
|
||||
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND Estatus = 1 ")
|
||||
End If
|
||||
|
||||
|
||||
DdlTipoTransaccion.DataBind()
|
||||
DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
|
||||
RBL_SelectedIndexChanged(RBL, Nothing)
|
||||
@@ -2584,6 +2588,7 @@ Partial Class Bancos_IE
|
||||
Dim CveConceptoContable As Integer = 30
|
||||
Dim CveConceptoCompra As Integer = 10
|
||||
Dim CveCreditoDetalle As Integer = -1
|
||||
Dim tCveTipoPoliza As Integer = 2
|
||||
Dim CIF As Decimal = 0
|
||||
Dim CvePlantillaPoliza As Integer = 3
|
||||
Dim CvePrePoliza As Integer = 0
|
||||
@@ -2667,9 +2672,11 @@ Partial Class Bancos_IE
|
||||
CvePlantillaPoliza = 92
|
||||
|
||||
End If
|
||||
|
||||
Dim AgregaPolizaSaldoInicial As Boolean = False
|
||||
'Cuando es Egreso sin factura, se registra una compra tipo anticipo
|
||||
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "EGSSINFACT" Then
|
||||
tCveTipoPoliza = 2
|
||||
Select Case RBL.SelectedValue
|
||||
Case "P" 'Proveedores
|
||||
If CveProveedor > 0 Then
|
||||
@@ -2710,6 +2717,7 @@ Partial Class Bancos_IE
|
||||
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "INGPC" Then
|
||||
HdnProvPorIVA.Value = "0"
|
||||
CvePlantillaPoliza = 6
|
||||
tCveTipoPoliza = 1
|
||||
Select Case RBL.SelectedValue
|
||||
Case "DD" ' Deudores Diversos
|
||||
If CveProveedor > 0 Then
|
||||
@@ -2792,7 +2800,7 @@ Partial Class Bancos_IE
|
||||
End If
|
||||
|
||||
If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa <> 119 Then FolioFijo = ObjIE.Folio.ToEntero 'cheque
|
||||
CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
|
||||
CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=tCveTipoPoliza)
|
||||
|
||||
'valida prepoliza
|
||||
If CvePrePoliza > 0 Then
|
||||
@@ -2873,6 +2881,30 @@ Partial Class Bancos_IE
|
||||
|
||||
Dim importeMX As Decimal
|
||||
Dim Multiplicador As Integer
|
||||
Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveSubProyecto).FiltroPrimeroValor("CveSubProyecto").ToEntero
|
||||
|
||||
'OTROS INGRESOS/EGRESOS
|
||||
Dim TCC As Decimal = 1
|
||||
If TxtTipoCambio.Text.Trim.ToDecimal > 0 Then TCC = TxtTipoCambio.Text.Trim.ToDecimal
|
||||
|
||||
Dim ImporteOtros As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal * TCC
|
||||
If ImporteOtros <> 0 Then
|
||||
Dim TipoMovtoIE As Boolean = False
|
||||
Dim CveConcIE As Integer = 78
|
||||
If ImporteOtros > 0 Then
|
||||
TipoMovtoIE = True : ImporteOtros = Math.Abs(ImporteOtros)
|
||||
CveConcIE = 78
|
||||
Else
|
||||
TipoMovtoIE = False : ImporteOtros = Math.Abs(ImporteOtros)
|
||||
CveConcIE = 211
|
||||
End If
|
||||
|
||||
Dim OtConcepto As String = PagueseA & " $" & TxtOtrosIngresosEgresos.Text.ToDecimal.FormatoNumero
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, ImporteOtros, PagueseA, CveConcIE, OtConcepto, Now, -1, -1, CveIE, CveCliente:=CveCliente, ImporteMX:=ImporteOtros, CveSubProyecto:=tCveSubProyecto, ImporteME:=0) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
||||
Exit Select
|
||||
End If
|
||||
End If
|
||||
|
||||
If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
|
||||
|
||||
@@ -2929,7 +2961,7 @@ Partial Class Bancos_IE
|
||||
|
||||
Case 66
|
||||
If RBL.SelectedValue = "C" AndAlso CveCliente > 0 Then
|
||||
importeMovimiento = TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal
|
||||
importeMovimiento = TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal - TxtOtrosIngresosEgresos.Text.ToDecimal
|
||||
importeMX = importeMovimiento
|
||||
|
||||
'Agregamos el IVA
|
||||
|
||||
Reference in New Issue
Block a user