-- mejora en póliza contable

Compras/RepNotasCredito.aspx

@@ -108,7 +108,7 @@
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Notas de Crédito" OnRowDataBound="GvDatos_RowDataBound"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None"
-                DataKeyNames="CveCompra,Saldo,CveIE,CveProveedor,CvePersonal,CveMoneda,CveTipoConcepto,IdCtaContProveedores,IdCtaContExtranjera,IdCtaContComplementaria,TipoCambio,CveSubProyecto">
+                DataKeyNames="CveCompra,Saldo,CveIE,CveProveedor,CvePersonal,CveMoneda,CveTipoConcepto,IdCtaContProveedores,IdCtaContExtranjera,IdCtaContComplementaria,TipoCambio,CveSubProyecto,SerieFolio">
                 <Columns>
                     <asp:TemplateField ItemStyle-Width="2%">
                         <ItemTemplate>

Compras/RepNotasCredito.aspx.vb

@@ -156,20 +156,19 @@ Partial Class Compras_RepNotasCredito
                 'Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False)
 
 
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -Importe, "", 18, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContable, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, ImporteMX:=-If(CveMoneda > 1 AndAlso UsaComplementaria, Importe, ImporteMN), ImporteME:=-If(CveMoneda > 1, Importe, 0), CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -Importe, gr.DataKey("SerieFolio"), 18, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContable, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, ImporteMX:=-If(CveMoneda > 1 AndAlso UsaComplementaria, Importe, ImporteMN), ImporteME:=-If(CveMoneda > 1, Importe, 0), CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
                     MsgError = "Ocurrio un Error al saldar el movimiento"
                 End If
 
                 If UsaComplementaria AndAlso CveMoneda > 1 Then
                     ImporteComplementaria = (Importe * TCCompra - Importe).RoundSQL
                     IdCtaContableComplementaria = gr.DataKey("IdCtaContComplementaria").ToEntero
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -ImporteComplementaria, "", 235, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContableComplementaria, -1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, ImporteMX:=-ImporteComplementaria, ImporteME:=-Importe, TipoCambioPago:=TC, TipoCambio:=TCCompra) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -ImporteComplementaria, "", 235, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContableComplementaria, -1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, ImporteMX:=-ImporteComplementaria, ImporteME:=-Importe, TipoCambioPago:=TC, TipoCambio:=TCCompra) Then
                         MsgError = "Ocurrio un Error al saldar el movimiento"
                     End If
                 End If
 
-                IdCtaContable = UsuarioActual.Empresa.Funcionalidad(266).ToString.ToEntero
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, "", 211, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContable, -1, gr.DataKey("CveIE").ToEntero, ImporteMX:=If(CveMoneda > 1, (Importe * TC), Importe).RoundSQL, CveCuenta:=-1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, gr.DataKey("SerieFolio"), 211, Concepto, TxtFechaSaldar.Text.ToDate, 0, -1, gr.DataKey("CveIE").ToEntero, ImporteMX:=If(CveMoneda > 1, (Importe * TC), Importe).RoundSQL, CveCuenta:=-1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero) Then
                     MsgError = "Ocurrio un Error al saldar el movimiento"
                 End If
 
@@ -192,6 +191,12 @@ Partial Class Compras_RepNotasCredito
                     End If
                 End If
                  
+                If MsgError <> "" Then Exit For
+
+            End If
+        Next
+
+        If MsgError = "" Then
             If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
                 If ObjConta.ValorPolizaDescuadre > 0 Then
                     MsgError = ObjConta.MensajePolizaDescuadre
@@ -208,12 +213,6 @@ Partial Class Compras_RepNotasCredito
                 End If
             End If
 
-                If MsgError <> "" Then Exit For
-
-            End If
-        Next
-
-
             If MsgError = "" Then
                 ObjConta.Commit()
                 If MensajeAlert.ToString <> "" Then
@@ -230,6 +229,7 @@ Partial Class Compras_RepNotasCredito
                 ObjConta.RollBack()
                 Alert(MsgError, TipoMensaje.MsgError)
             End If
+        End If
         ObjConta.Dispose()
     End Sub
     Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)