Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -4122,12 +4122,8 @@ Namespace Modelos
|
||||
Pago.AplicaTraslado = False
|
||||
Pago.Referencia = DrPago("Folio").ToString()
|
||||
Pago.CveVentaAmortizacion = -1
|
||||
|
||||
If DrPago("TipoPago").ToString() = "NC" Then
|
||||
Pago.TipoPago = "NC"
|
||||
Else
|
||||
Pago.TipoPago = "B"
|
||||
End If
|
||||
Pago.TipoPago = DrPago("TipoPago").ToString()
|
||||
Pago.CveClientePago = ObjFactura.CveCliente
|
||||
|
||||
ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False)
|
||||
Else
|
||||
@@ -4178,12 +4174,8 @@ Namespace Modelos
|
||||
Pago.AplicaTraslado = False
|
||||
Pago.Referencia = DrPago("Folio").ToString()
|
||||
Pago.CveVentaAmortizacion = DrPago("CveVenta").ToString().ToEntero()
|
||||
|
||||
If DrPago("TipoPago").ToString() = "NC" Then
|
||||
Pago.TipoPago = "NC"
|
||||
Else
|
||||
Pago.TipoPago = "B"
|
||||
End If
|
||||
Pago.TipoPago = DrPago("TipoPago").ToString()
|
||||
Pago.CveClientePago = ObjFactura.CveCliente
|
||||
|
||||
ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaActual, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False)
|
||||
|
||||
|
||||
@@ -1596,6 +1596,8 @@ Partial Class Compras_Compras
|
||||
DdlTipoComprobante.SelectedValueExist("DEV")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
'SE OCUPAN AFUERA DEL POSTBACK ??
|
||||
@@ -3381,7 +3383,13 @@ Partial Class Compras_Compras
|
||||
|
||||
ViewState("CveProveedor") = ObjProveedor.CveProveedor
|
||||
ViewState("CveTipoProveedor") = ObjProveedor.CveTipoProveedor
|
||||
If ObjProveedor.CveTipoProveedor = 1 Then LblProveedor.Text = "Proveedor:" Else LblProveedor.Text = "Acreedor:"
|
||||
|
||||
If ObjProveedor.CveTipoProveedor = 2 Then
|
||||
LblProveedor.Text = "Acreedor:"
|
||||
Else
|
||||
LblProveedor.Text = "Proveedor:"
|
||||
End If
|
||||
|
||||
CveTipoConcepto = ObjProveedor.CveTipoProveedor
|
||||
|
||||
ViewState("NombreProveedor") = ObjProveedor.RazonSocial
|
||||
@@ -19623,12 +19631,12 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
|
||||
Public Sub LblProveedor_OnClick(sender As Object, e As EventArgs) Handles LblProveedor.Click
|
||||
If CveTipoConcepto = 1 Then
|
||||
LblProveedor.Text = "Acreedor:"
|
||||
CveTipoConcepto = 2
|
||||
Else
|
||||
If CveTipoConcepto = 2 Then
|
||||
LblProveedor.Text = "Proveedor:"
|
||||
CveTipoConcepto = 1
|
||||
Else
|
||||
LblProveedor.Text = "Acreedor:"
|
||||
CveTipoConcepto = 2
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -20659,6 +20667,9 @@ Partial Class Compras_Compras
|
||||
CompraRNC.NombreProveedor = DdlProveedor.SelectedItem.Text
|
||||
CompraRNC.Fecha = TxtFecha.Text.ToDate
|
||||
CompraRNC.CveMoneda = DdlMoneda.SelectedValue.ToEntero
|
||||
CompraRNC.Serie = TxtSerie.Text
|
||||
CompraRNC.Folio = TxtFolio.Text
|
||||
|
||||
|
||||
|
||||
Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
|
||||
@@ -20690,6 +20701,8 @@ Partial Class Compras_Compras
|
||||
CompraRNCProntoPAgo.NombreProveedor = DdlProveedor.SelectedItem.Text
|
||||
CompraRNCProntoPAgo.Fecha = TxtFecha.Text.ToDate
|
||||
CompraRNCProntoPAgo.CveMoneda = DdlMoneda.SelectedValue.ToEntero
|
||||
CompraRNCProntoPAgo.Serie = $"{TxtSerie.Text}_P"
|
||||
CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}_P"
|
||||
|
||||
CompraRNCProntoPAgo.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, ImporteRNCProntoPago)
|
||||
If Not CompraRNCProntoPAgo.AddCompraRNC(trasaccion) Then
|
||||
@@ -22621,7 +22634,7 @@ Public Class ClsCompraManagerCompras
|
||||
If Not AjustesValidacion() Then Return False
|
||||
|
||||
Dim respuesta As Boolean = True
|
||||
Dim ObjCompras As New ClsCompras
|
||||
Dim ObjCompras As New ClsCompras(transacccion)
|
||||
Dim ObjConta As New ClsContabilidad(transacccion)
|
||||
|
||||
If Not AddPrepolizaCabecera(ObjConta) Then
|
||||
@@ -22722,14 +22735,14 @@ Public Class ClsCompraManagerCompras
|
||||
If ES_RNC Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Me.Total, Me.Total, 370, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
|
||||
CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=False) Then
|
||||
CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=True) Then
|
||||
respuesta = False
|
||||
|
||||
End If
|
||||
|
||||
If respuesta Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Me.Total, Me.Total, 371, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
|
||||
CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=False) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Me.Total, Me.Total, 372, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
|
||||
CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=True) Then
|
||||
respuesta = False
|
||||
|
||||
End If
|
||||
|
||||
@@ -1641,6 +1641,12 @@ Partial Class PopUpVerFactura
|
||||
Case "VentasCredito"
|
||||
rowData("Columna") = "Ventas Crédito"
|
||||
Orden = 4
|
||||
Case "VentaTotalIngreso"
|
||||
rowData("Columna") = "Ventas Ingreso"
|
||||
Orden = 4
|
||||
Case "VentaTotalRemision"
|
||||
rowData("Columna") = "Ventas Remisiones"
|
||||
Orden = 4
|
||||
'Case "TotalEfectivo"
|
||||
' rowData("Columna") = "Total Efectivo"
|
||||
'Case "TotalCheque"
|
||||
@@ -1660,9 +1666,12 @@ Partial Class PopUpVerFactura
|
||||
Case "Devoluciones"
|
||||
rowData("Columna") = "Devoluciones"
|
||||
Orden = 7
|
||||
Case "SaldoAnteriorAplicado"
|
||||
rowData("Columna") = "Saldo Aplicado"
|
||||
Orden = 8
|
||||
Case "TotalCaja"
|
||||
rowData("Columna") = "Total Caja"
|
||||
Orden = 8
|
||||
Orden = 9
|
||||
'Case "TotalCorte"
|
||||
' rowData("Columna") = "Total Corte"
|
||||
Case Else
|
||||
|
||||
@@ -338,7 +338,7 @@ Partial Class Ventas_RepVentasUtilidad
|
||||
params.Add(New ReportParameter("UtilidadPerdida", LblNombreNeto.Text))
|
||||
|
||||
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepVentasUtilidad.rdlc", dt, params, "RepVentasUtilidad", Formato)
|
||||
ImprimirPDF("Grales/Formatos/RepVentasUtilidad.rdlc", dt, params, "RepVentasUtilidad", Formato)
|
||||
Else
|
||||
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
@@ -3404,7 +3404,7 @@ Partial Class Ventas
|
||||
If TipoEstatus <> 5 Then
|
||||
'ESTATUS DE CANCELACION PENDIENTE
|
||||
If Not Me.ObjFacturaNC.CveEstatusFactura = 23 Then
|
||||
Alert($"El documento de tipo '{Me.ObjFacturaNC.TipodeComprobante}' a refacturar no ha sido cancelado. Favor de verificar el documento", TipoMensaje.MsgAdvertencia)
|
||||
Alert($"El documento de tipo '{Me.ObjFacturaNC.TipodeComprobante}' a refacturar no ha sido marcado como 'Cancelación pendiente'. Favor de verificar el documento", TipoMensaje.MsgAdvertencia)
|
||||
BtnEmitirImprimir.Visible = False
|
||||
UpFacturar.Update()
|
||||
End If
|
||||
@@ -14398,6 +14398,15 @@ Partial Class Ventas
|
||||
AutoConta = False
|
||||
End If
|
||||
|
||||
'VERIFICA SI EL OBJETO FACTURA TIENE EL OBJETO USUARIO, REQUERIDO PARA FUNCIONES DE PAGOS
|
||||
If ObjFactura.UsuarioActual Is Nothing Then
|
||||
ObjFactura.UsuarioActual = UsuarioActual
|
||||
Else
|
||||
If ObjFactura.UsuarioActual.Empresa Is Nothing Then
|
||||
ObjFactura.UsuarioActual.Empresa = UsuarioActual.Empresa
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim UsaComplementariaClientes As Boolean = True
|
||||
|
||||
If ObjConta.GetPlantillaConceptos(ObjFactura.CveEmpresa, CvePlantilaPoliza) Then
|
||||
@@ -15509,6 +15518,48 @@ Partial Class Ventas
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'APLICA PAGO SI SELECCIONA IxC
|
||||
If DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
|
||||
If Not ErrorPrepoliza Then
|
||||
|
||||
Dim VentaActual As New ClsPaginas.Venta(ObjFactura, UsuarioActual)
|
||||
|
||||
For Each row2 As GridViewRow In GVAnticipos.Rows
|
||||
|
||||
If row2.DataKey("CveConceptoContable").ToString().ToEntero() = 66 Then
|
||||
|
||||
If row2.FCCheckBox("Chk" & row2.RowIndex).Checked Then
|
||||
importeMovimiento = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal
|
||||
|
||||
If importeMovimiento <> 0 Then
|
||||
|
||||
Dim Pago As New ClsPaginas.VentaPago
|
||||
Pago.Fecha = Now
|
||||
Pago.FechaDocumentoRelacionado = row2.DataKey("Fecha").ToString().ToDateTime()
|
||||
Pago.ImportePagoVenta = importeMovimiento
|
||||
Pago.ImportePago = importeMovimiento
|
||||
Pago.CveIE = row2.DataKey("CveIE").ToEntero()
|
||||
Pago.CveMonedaPago = row2.DataKey("CveMoneda").ToEntero()
|
||||
Pago.TCPago = row2.DataKey("TipoCambioPago").ToDecimal()
|
||||
Pago.AplicaTraslado = False
|
||||
Pago.Referencia = row2.DataKey("Folio")
|
||||
Pago.CveVentaAmortizacion = -1
|
||||
Pago.TipoPago = "I"
|
||||
Pago.CveClientePago = ObjFactura.CveCliente
|
||||
|
||||
ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaActual, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=True)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'Si es Facturacion de una remision cancelamos, traspasamos saldos y agregamos evento a la bitacora
|
||||
If RemisionesLista.Count > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
|
||||
|
||||
@@ -15542,12 +15593,8 @@ Partial Class Ventas
|
||||
Pago.AplicaTraslado = False
|
||||
Pago.Referencia = DrPago("Folio").ToString()
|
||||
Pago.CveVentaAmortizacion = -1
|
||||
|
||||
If DrPago("TipoPago").ToString() = "NC" Then
|
||||
Pago.TipoPago = "NC"
|
||||
Else
|
||||
Pago.TipoPago = "B"
|
||||
End If
|
||||
Pago.TipoPago = DrPago("TipoPago").ToString()
|
||||
Pago.CveClientePago = ObjFactura.CveCliente
|
||||
|
||||
ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False)
|
||||
Else
|
||||
@@ -15588,13 +15635,7 @@ Partial Class Ventas
|
||||
|
||||
'TRASPASO DE PAGOS DE REMISIONES A FACTURA GLOBAL
|
||||
If ObjFactura.DtPagosFacturaGlobal IsNot Nothing Then
|
||||
If ObjFactura.UsuarioActual Is Nothing Then
|
||||
ObjFactura.UsuarioActual = UsuarioActual
|
||||
Else
|
||||
If ObjFactura.UsuarioActual.Empresa Is Nothing Then
|
||||
ObjFactura.UsuarioActual.Empresa = UsuarioActual.Empresa
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim VentaActual As New ClsPaginas.Venta(ObjFactura, UsuarioActual)
|
||||
|
||||
For Each DrPago As DataRow In ObjFactura.DtPagosFacturaGlobal.Rows
|
||||
@@ -15611,12 +15652,8 @@ Partial Class Ventas
|
||||
Pago.AplicaTraslado = False
|
||||
Pago.Referencia = DrPago("Folio").ToString()
|
||||
Pago.CveVentaAmortizacion = DrPago("CveVenta").ToString().ToEntero()
|
||||
|
||||
If DrPago("TipoPago").ToString() = "NC" Then
|
||||
Pago.TipoPago = "NC"
|
||||
Else
|
||||
Pago.TipoPago = "B"
|
||||
End If
|
||||
Pago.TipoPago = DrPago("TipoPago").ToString()
|
||||
Pago.CveClientePago = ObjFactura.CveCliente
|
||||
|
||||
ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaActual, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False)
|
||||
|
||||
@@ -16996,7 +17033,7 @@ Partial Class Ventas
|
||||
If DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
|
||||
|
||||
For Each gvr As GridViewRow In GVAnticipos.Rows
|
||||
If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(12, 277) Then
|
||||
If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(12, 66, 277) Then
|
||||
Amortizacion += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal ' - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
|
||||
End If
|
||||
Next
|
||||
|
||||
Reference in New Issue
Block a user