Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -7259,27 +7259,6 @@ Partial Class Ventas
|
||||
ObjFacturaDevolucion.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim
|
||||
ObjFacturaDevolucion.MonedaAbreviatura = ""
|
||||
|
||||
'DETALLES
|
||||
If NCDescuento Then
|
||||
PreparaNCDescuento(ObjFacturaDevolucion)
|
||||
Else
|
||||
ObjFacturaDevolucion.DtDetalle = TmpDT
|
||||
|
||||
ObjFacturaDevolucion.SubTotal = TxtSubTotal.Text.ToDecimal
|
||||
ObjFacturaDevolucion.Descuento = LblDescuentos.Text.Trim.ToDecimal
|
||||
ObjFacturaDevolucion.Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
|
||||
ObjFacturaDevolucion.IVA = TxtIVA.Text.ToDecimal
|
||||
ObjFacturaDevolucion.RetIVA = TxtRetIVA.Text.ToDecimal
|
||||
ObjFacturaDevolucion.RetISR = TxtRetISR.Text.ToDecimal
|
||||
ObjFacturaDevolucion.IEPS = TxtIEPS.Text.ToDecimal
|
||||
ObjFacturaDevolucion.Total = TxtTotal.Text.ToDecimal
|
||||
End If
|
||||
'Totales, Y se llena TmpDTImpuestos
|
||||
|
||||
'ObjFactura.BZDescripcion = TxtBZDescripcion.Text.Trim
|
||||
'ObjFactura.BZNombreCorto = TxtBZNombreCorto.Text.Trim
|
||||
'ObjFactura.BZTotalLetra = TxtBZTotalLetra.Text.Trim
|
||||
|
||||
If TmpDTImpuestos Is Nothing Then
|
||||
CreaDTImpuestos()
|
||||
Else
|
||||
@@ -7326,6 +7305,30 @@ Partial Class Ventas
|
||||
|
||||
ObjFacturaDevolucion.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
|
||||
|
||||
'DETALLES
|
||||
If NCDescuento Then
|
||||
PreparaNCDescuento(ObjFacturaDevolucion)
|
||||
Else
|
||||
ObjFacturaDevolucion.DtDetalle = TmpDT
|
||||
|
||||
ObjFacturaDevolucion.SubTotal = TxtSubTotal.Text.ToDecimal
|
||||
ObjFacturaDevolucion.Descuento = LblDescuentos.Text.Trim.ToDecimal
|
||||
ObjFacturaDevolucion.Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
|
||||
ObjFacturaDevolucion.IVA = TxtIVA.Text.ToDecimal
|
||||
ObjFacturaDevolucion.RetIVA = TxtRetIVA.Text.ToDecimal
|
||||
ObjFacturaDevolucion.RetISR = TxtRetISR.Text.ToDecimal
|
||||
ObjFacturaDevolucion.IEPS = TxtIEPS.Text.ToDecimal
|
||||
ObjFacturaDevolucion.TotalImpuestoLocal = ObjFacturaDevolucion.DtDeduccion.SUMD("Importe", "TipoImpuesto = 1")
|
||||
ObjFacturaDevolucion.Total = TxtTotal.Text.ToDecimal
|
||||
End If
|
||||
'Totales, Y se llena TmpDTImpuestos
|
||||
|
||||
'ObjFactura.BZDescripcion = TxtBZDescripcion.Text.Trim
|
||||
'ObjFactura.BZNombreCorto = TxtBZNombreCorto.Text.Trim
|
||||
'ObjFactura.BZTotalLetra = TxtBZTotalLetra.Text.Trim
|
||||
|
||||
|
||||
|
||||
'otros
|
||||
ObjFacturaDevolucion.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim
|
||||
ObjFacturaDevolucion.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim
|
||||
@@ -7497,7 +7500,7 @@ Partial Class Ventas
|
||||
Dim TotalRetIVA As Decimal = tmpcon.SUM("ImporteRetIVA").ToDecimal
|
||||
Dim TotalRetISR As Decimal = tmpcon.SUM("ImporteRetISR").ToDecimal
|
||||
Dim Total As Decimal = 0
|
||||
Dim TotalImpuestosLocales As Decimal = 0
|
||||
Dim TotalImpuestosLocales As Decimal = factura.TotalImpuestoLocal.ToString.ToDecimal
|
||||
Total = (TotalSubTotal - TotalDescuentos + TotalIVA + TotalIEPS - TotalRetIVA - TotalRetISR - TotalImpuestosLocales)
|
||||
|
||||
factura.SubTotal = TotalSubTotal
|
||||
@@ -8050,7 +8053,7 @@ Partial Class Ventas
|
||||
ObjFactura.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
|
||||
End If
|
||||
ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero
|
||||
ObjFactura.Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
|
||||
If HdnFolioFiscalNC.Value <> "0" And HdnFolioFiscalNC.Value <> "" Then ObjFactura.Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
|
||||
End If
|
||||
' cuando es refacturacoin es cfdirelacionado, con relacion 04
|
||||
If ObjFactura.Timbre.Comprobante.TipoComprobante = "I" AndAlso NuevaFactura = 1 Then
|
||||
@@ -9170,7 +9173,8 @@ Partial Class Ventas
|
||||
'Contratos
|
||||
If factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") Then
|
||||
GuardarContratoAvanceEstimaciones(ObjContr, factura, ErrorList, 1)
|
||||
ElseIf factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") Then
|
||||
'CUANDO ES NOTA DE CRÉDITO, NO DEBE DE CONSIDERAR AVANCE, CUANDO ES NOTA DE CRÉDITO POR AMORTIZACIÓN
|
||||
ElseIf factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion Then
|
||||
GuardarContratoAvanceEstimaciones(ObjContr, factura, ErrorList, -1)
|
||||
End If
|
||||
|
||||
@@ -20879,16 +20883,18 @@ Partial Class Ventas
|
||||
End Sub
|
||||
Private Sub CargaRNC()
|
||||
Dim ObjMovtos As New ClsMovimientos()
|
||||
If ObjMovtos.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1, TipoDocto:="RNC") Then
|
||||
GvRemisionesNC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act' AND CveVenta > 0", "Moneda, OrdenVencimiento, FechaVencimiento")
|
||||
|
||||
If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
|
||||
GvRemisionesNC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND CveVenta > 0 and Saldo > 0", "Moneda,Fecha,Folio")
|
||||
End If
|
||||
ObjMovtos.Dispose()
|
||||
GvRemisionesNC.DataBind()
|
||||
End Sub
|
||||
Private Sub CargaDescRNC()
|
||||
|
||||
Dim ObjMovtos As New ClsMovimientos()
|
||||
If ObjMovtos.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1, TipoDocto:="RNC") Then
|
||||
GvDescNC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act' AND CveVenta > 0", "Moneda, OrdenVencimiento, FechaVencimiento")
|
||||
If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
|
||||
GvDescNC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND CveVenta > 0 and Saldo > 0", "Moneda,Fecha,Folio")
|
||||
End If
|
||||
ObjMovtos.Dispose()
|
||||
GvDescNC.DataBind()
|
||||
@@ -20930,6 +20936,7 @@ Partial Class Ventas
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
DdlTipoComprobante.SelectedValue = "Egs"
|
||||
|
||||
AplicarNC(DdlNCPS.SelectedValue.ToEntero)
|
||||
|
||||
@@ -23464,19 +23471,19 @@ Partial Class Ventas
|
||||
Private Sub CalculaUsados()
|
||||
|
||||
|
||||
If ClienteEsDistribuidor Then
|
||||
'' If ClienteEsDistribuidor Then
|
||||
|
||||
Dim DTTamanios As New DataTable
|
||||
Dim ObjAcum As New ClsAcumuladores
|
||||
Dim DTTamanios As DataTable = Nothing
|
||||
' Dim ObjAcum As New ClsAcumuladores
|
||||
|
||||
If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
|
||||
'If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
DTTamanios = ObjAcum.DtResultados
|
||||
DTTamanios = GlobalDTAcumTamaños() 'ObjAcum.DtResultados
|
||||
|
||||
Dim DTCvePSCostos As New DataTable
|
||||
DTCvePSCostos = ObjAcum.DtResultados.FiltraParametros("", "", {"CvePSCargo"})
|
||||
Dim DTCvePSCostos As DataTable
|
||||
DTCvePSCostos = DTTamanios.FiltraParametros("", "", {"CvePSCargo"})
|
||||
|
||||
If Not TmpDT.Columns.Contains("Eliminar") Then
|
||||
If Not TmpDT.Columns.Contains("Eliminar") Then
|
||||
TmpDT.Columns.Add("Eliminar", GetType(Integer))
|
||||
End If
|
||||
|
||||
@@ -23601,10 +23608,10 @@ Partial Class Ventas
|
||||
Next
|
||||
|
||||
ObjProductosServicios.Dispose()
|
||||
End If
|
||||
'End If
|
||||
|
||||
ObjAcum.Dispose()
|
||||
End If
|
||||
' ObjAcum.Dispose()
|
||||
'End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user