--mejora pago prepolizaventa

App_Code/ClsPaginas.vb

@@ -9888,6 +9888,8 @@ Public Class ClsPaginas
 
         Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 17, Pago.CveConceptoPago)  'si viene en parametro lo toma com primera opcion, sino el 17
         If CompraActual.CveTipoConceptoProveedor = 2 Then Pago.CveConceptoPago = 308 'cuando es acreedor
+        '
+        If Pago.CveConceptoPago = 272 And CompraActual.CveMoneda = 2 Then Pago.CveConceptoPago = 304 'pago nota de crédito ME
         If CompraActual.CveMoneda <> 1 Then
             Select Case Pago.CveConceptoPago
                 Case 17 : Pago.CveConceptoPago = 312
@@ -10558,14 +10560,13 @@ Public Class ClsPaginas
         'si tiene otros gastos/ingresos
         ImporteMovimiento = Pago.OtroGastoIngreso
         If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then
-            Dim tOtCveCon As Integer = 211
-            Dim tOtTipoMovto As Boolean = False
+            Dim tOtCveCon As Integer = 78
+            Dim tOtTipoMovto As Boolean = True
             If ImporteMovimiento < 0 Then
-                tOtTipoMovto = True : tOtCveCon = 78
+                tOtTipoMovto = False : tOtCveCon = 211
                 ImporteMovimiento = Math.Abs(ImporteMovimiento)
             End If
             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveSubProyecto:=VentaActual.CveSubProyecto, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
-
         End If
 
         If Not ErrorMovtos AndAlso TCValuacionVenta <> TCValuacionPago Then