-pago con conta=1
This commit is contained in:
@@ -24,7 +24,7 @@
|
||||
<div class="row">
|
||||
<label class="col-md-2">Tipo Mov:</label>
|
||||
<div class="col-md-10">
|
||||
<asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" Width="156px" ValidationGroup="GrpGuardar">
|
||||
<asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" Width="250px" ValidationGroup="GrpGuardar">
|
||||
</asp:DropDownList>
|
||||
<asp:HiddenField ID="HdnTipoTransaccion" runat="server" Value="" />
|
||||
</div>
|
||||
@@ -213,7 +213,7 @@
|
||||
</table>--%>
|
||||
<br />
|
||||
<div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
|
||||
<asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CveSubProyecto,CvePersonal" ShowHeaderWhenEmpty="true" Width="100%" CssClass="table table-striped table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CveSubProyecto,CvePersonal,CveCuenta" ShowHeaderWhenEmpty="true" Width="100%" CssClass="table table-striped table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Código</HeaderTemplate>
|
||||
|
||||
@@ -155,6 +155,7 @@ Partial Class Bancos_PolizaCheque
|
||||
Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True
|
||||
With DtMovimientos.Columns
|
||||
.Add("IdCuenta", Type.GetType("System.Int32"))
|
||||
.Add("CveCuenta", Type.GetType("System.Int32"))
|
||||
.Add("CodigoCuenta", Type.GetType("System.String"))
|
||||
.Add("Cuenta", Type.GetType("System.String"))
|
||||
.Add("Referencia", Type.GetType("System.String"))
|
||||
@@ -401,6 +402,7 @@ Partial Class Bancos_PolizaCheque
|
||||
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden")
|
||||
Dim Cuenta As String = ""
|
||||
Dim IdCuenta As Integer = 0
|
||||
Dim CveCuenta As Integer = 0
|
||||
Dim CodigoCuenta As String = ""
|
||||
Dim NombreCuenta As String = ""
|
||||
Dim EsComodin As Integer = 0
|
||||
@@ -412,6 +414,7 @@ Partial Class Bancos_PolizaCheque
|
||||
|
||||
Cuenta = drt("ConceptoContable").ToString
|
||||
IdCuenta = 0
|
||||
CveCuenta = 0
|
||||
CodigoCuenta = ""
|
||||
NombreCuenta = ""
|
||||
|
||||
@@ -420,7 +423,7 @@ Partial Class Bancos_PolizaCheque
|
||||
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString))
|
||||
|
||||
If drr IsNot Nothing Then
|
||||
IdCuenta = drt("IdCtaContable").ToString.ToEntero
|
||||
CveCuenta = drt("CveCuenta").ToString.ToEntero
|
||||
CodigoCuenta = drr("CuentaFormato").ToString()
|
||||
NombreCuenta = drr("Nombre").ToString()
|
||||
'Cuenta = drr("Nombre").ToString()
|
||||
@@ -469,7 +472,8 @@ Partial Class Bancos_PolizaCheque
|
||||
|
||||
|
||||
Dim dr As DataRow = DtMovimientos.NewRow
|
||||
dr("IdCuenta") = IdCuenta
|
||||
dr("IdCuenta") = IdCuenta
|
||||
dr("CveCuenta") = CveCuenta
|
||||
dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
|
||||
dr("Cuenta") = Cuenta 'TxtCuentaContable.Text
|
||||
dr("RazonSocial") = drt("RazonSocial")
|
||||
@@ -566,24 +570,8 @@ Partial Class Bancos_PolizaCheque
|
||||
dr("CvePersonal") = drt("CvePersonal")
|
||||
|
||||
DtMovimientos.Rows.Add(dr)
|
||||
Next
|
||||
'Dim drtt As DataRow = DtMovimientos.NewRow
|
||||
'drtt("IdCuenta") = 0
|
||||
'drtt("CodigoCuenta") = ""
|
||||
'drtt("Cuenta") = Cuenta
|
||||
'drtt("RazonSocial") = ""
|
||||
'drtt("Concepto") = ""
|
||||
'drtt("TipoMovto") = 0
|
||||
'drtt("EsComodin") = EsComodin
|
||||
'drtt("CveConcepto") = 44
|
||||
'drtt("CveProveedor") = "-1"
|
||||
'drtt("SubProyecto") = ""
|
||||
'drtt("Proyecto") = ""
|
||||
'drtt("Personal") = ""
|
||||
'drtt("CveSubProyecto") = -1
|
||||
'drtt("CvePersonal") = -1
|
||||
'DtMovimientos.Rows.Add(drtt)
|
||||
|
||||
Next
|
||||
|
||||
ObjNomina.Dispose()
|
||||
ObjConta.Dispose()
|
||||
|
||||
@@ -809,20 +797,8 @@ Partial Class Bancos_PolizaCheque
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
e.Row.FCLiteral("LtlSP").Visible = False
|
||||
e.Row.FCDropDownList("DdlSubProyecto").Visible = True
|
||||
End If
|
||||
'cuando se modifica el importe de la cuenta bancaria que se actualice el importe del documento
|
||||
'If e.Row.DBCampo("EsComodin") = "1" Then
|
||||
' If e.Row.DBCampo("TipoMovto") = "1" Then
|
||||
' e.Row.FCTextBox("TxtAbono").Attributes.Add("onkeyup", "FncImporte('TxtImporte',this.id,2)")
|
||||
' e.Row.FCTextBox("TxtAbono").Text = TxtImporte.Text
|
||||
' Else
|
||||
' e.Row.FCTextBox("TxtCargo").Attributes.Add("onkeyup", "FncImporte('TxtImporte',this.id,2)")
|
||||
' e.Row.FCTextBox("TxtCargo").Text = TxtImporte.Text
|
||||
' End If
|
||||
' TxtImporte.Attributes.Add("onkeyup", String.Format("FncImporte(this.id,'{0}',1)", e.Row.FCTextBox(If(e.Row.DBCampo("TipoMovto") = "1", "TxtAbono", "TxtCargo")).ClientID))
|
||||
|
||||
' UPPImporte.Update()
|
||||
'End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -966,7 +942,7 @@ Partial Class Bancos_PolizaCheque
|
||||
Importe = Importe * TC
|
||||
End If
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, TipoCambio:=TC) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, TipoCambio:=TC, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then
|
||||
MsgError = "no se pudo insertar el detalle de la póliza2"
|
||||
End If
|
||||
|
||||
@@ -1009,12 +985,6 @@ Partial Class Bancos_PolizaCheque
|
||||
MsgError = "No se insertó el encabezado"
|
||||
End If
|
||||
|
||||
'If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then
|
||||
' If Not ObjIE.UpdateIEPrePoliza(TxtFechaDocumento.Text.ToDate, NumPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0) Then
|
||||
' MsgError = "Error al actualizar la poliza"
|
||||
' End If
|
||||
'End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgError = "Error"
|
||||
End Try
|
||||
@@ -1030,20 +1000,17 @@ Partial Class Bancos_PolizaCheque
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'El movimiento 2 es el de Pago
|
||||
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
|
||||
If idCuentaContabilizacion > 0 Then
|
||||
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||
'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
|
||||
IDPoliza = ObjMov.ContaIdPoliza
|
||||
Else
|
||||
MsgError = "Error al contabilizar"
|
||||
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||
'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
|
||||
IDPoliza = ObjMov.ContaIdPoliza
|
||||
Else
|
||||
Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas", TipoMensaje.MsgError)
|
||||
MsgError = "Error al contabilizar"
|
||||
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -1090,8 +1057,6 @@ Partial Class Bancos_PolizaCheque
|
||||
Alert("La suma de los movimientos no son iguales", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
'' -------------------------------------- codigo para generar la poliza del cheque
|
||||
|
||||
|
||||
Reference in New Issue
Block a user