Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -111,8 +111,8 @@ Public Class ClsClientes
|
||||
Public Property ExtOtros As String
|
||||
Public Property CveUsoCFDI As Integer
|
||||
Public Property CveRegimenFiscal As Integer
|
||||
Public Property CveFormaPago33 As Integer
|
||||
Public Property CveMetodoPago33 As Integer
|
||||
Public Property CveFormaPago As Integer
|
||||
Public Property CveMetodoPago As Integer
|
||||
Public Property CveClienteCorporativo As String
|
||||
Public Property DesglosaIEPS As Boolean
|
||||
Public Property NoDesglosaIVA As Boolean
|
||||
@@ -332,8 +332,6 @@ Public Class ClsClientes
|
||||
_TipoPago = Data.Rows(0)("TipoPago").ToString
|
||||
_FormaFacturacion = Data(0)("FormaFacturacion").ToString
|
||||
_LimiteCredito = Data(0)("LimiteCredito").ToString.ToDouble
|
||||
'_NumCtaPago = Data(0)("NumCtaPago").ToString
|
||||
'_CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero
|
||||
_AplicaFEMSA = CBool(Data(0)("AplicaFEMSA").ToString)
|
||||
_FEMSA_NumSociedad = Data(0)("FEMSA_NumSociedad").ToString
|
||||
_FEMSA_NumProveedor = Data(0)("FEMSA_NumProveedor").ToString
|
||||
@@ -375,8 +373,8 @@ Public Class ClsClientes
|
||||
|
||||
|
||||
_CveUsoCFDI = Data(0)("CveUsoCFDI").ToString.ToEntero
|
||||
_CveFormaPago33 = Data(0)("CveFormaPago").ToString.ToEntero
|
||||
_CveMetodoPago33 = Data(0)("CveMetodoPago").ToString.ToEntero
|
||||
_CveFormaPago = Data(0)("CveFormaPago").ToString.ToEntero
|
||||
_CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero
|
||||
|
||||
_CveRegimenFiscal = Data(0)("CveRegimenFiscal").ToString.ToEntero
|
||||
|
||||
|
||||
@@ -14914,6 +14914,7 @@ Partial Class Compras_Compras
|
||||
|
||||
Private Sub VinculaOC()
|
||||
CveIEAnticipo = -1
|
||||
Dim DiasCredito As Integer = 0
|
||||
If TxtOC.Text <> "" Then
|
||||
|
||||
'VARIABLES
|
||||
@@ -14935,6 +14936,8 @@ Partial Class Compras_Compras
|
||||
Dim FoliosOCAnticipo As String = "", FoliosOCAnticipoIE As String = ""
|
||||
Dim StrPromos As New StringBuilder
|
||||
|
||||
|
||||
|
||||
For Each CveOCItem As String In ArrayCveOC.Distinct
|
||||
If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
|
||||
If IsNothing(DTOCTemp) Then
|
||||
@@ -14943,6 +14946,14 @@ Partial Class Compras_Compras
|
||||
DTOCTemp.Merge(ObjOC.DtResultados)
|
||||
End If
|
||||
|
||||
|
||||
Dim DiasCreditoOCActual As Integer = DTOCTemp.FiltroPrimeroValor("DiasCreditoOC").ToEntero
|
||||
|
||||
If DiasCreditoOCActual > DiasCredito Then
|
||||
DiasCredito = DiasCreditoOCActual
|
||||
End If
|
||||
|
||||
|
||||
IvaAcumulado += ObjOC.DtResultados.Rows(0)("IVA").ToString.ToDouble
|
||||
TextoObservaciones += ObjOC.DtResultados.Rows(0)("Descripcion").ToString
|
||||
|
||||
@@ -15063,9 +15074,16 @@ Partial Class Compras_Compras
|
||||
DivOCPromocion.Visible = True
|
||||
End If
|
||||
|
||||
If DiasCredito > 0 Then
|
||||
TxtFechaPago.Text = Now.AddDays(DiasCredito).ToString("dd/MM/yyyy")
|
||||
UPCondicionesPago.Update()
|
||||
End If
|
||||
|
||||
'CARGA DATOS DE OC
|
||||
CargaVinculacionOC(True)
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub DdlOCVinculaInv_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
@@ -15136,6 +15154,10 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
Private Sub CargaGvsOC()
|
||||
|
||||
If Not TmpDT.Columns.Contains("NoIdentificacion") Then
|
||||
TmpDT.Columns.Add("NoIdentificacion")
|
||||
End If
|
||||
|
||||
'SI ES MAS DE UNA OC ORDENA POR PRODUCTO
|
||||
Dim ArrayCveOC As String() = HdnVCveOC.Value.Split(New Char() {","c})
|
||||
'DTOCGV = If(ArrayCveOC.Length > 1, DTOCGV.FiltraParametros("", "Producto"), DTOCGV)
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1618,9 +1618,9 @@ Partial Class Clientes
|
||||
ChkMuestraNombre.Checked = ObjClientes.ImprimeNombreSucursal
|
||||
|
||||
DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString())
|
||||
DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago33.ToString())
|
||||
DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago.ToString())
|
||||
'DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
|
||||
CargaFormaDePago(ObjClientes.CveFormaPago33)
|
||||
CargaFormaDePago(ObjClientes.CveFormaPago)
|
||||
If ObjClientes.CveRegimenFiscal > 0 Then DdlRegimenFiscal.SelectedValueExist(ObjClientes.CveRegimenFiscal)
|
||||
|
||||
ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS
|
||||
|
||||
@@ -472,7 +472,7 @@ Partial Class Ventas_PVCobranza
|
||||
End If
|
||||
End If
|
||||
|
||||
If e.Row.DBCampo("Fecha") <> Now.ToShortDateString Then
|
||||
If e.Row.DBCampo("Fecha").ToDate.ToShortDateString <> Now.ToShortDateString Then
|
||||
e.Row.FCLinkButton("BtnPagar").Enabled = False
|
||||
e.Row.FCLinkButton("BtnPagar").Text = "Cobrar"
|
||||
'e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs default"
|
||||
@@ -843,7 +843,7 @@ Partial Class Ventas_PVCobranza
|
||||
End Try
|
||||
|
||||
If MsgError = "" Then
|
||||
If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=5, CveVenta:=respFactura.CveVenta) Then
|
||||
If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=5, CveVenta:=CveVenta) Then
|
||||
If ObjConta.ValorPolizaDescuadre > 0 Then
|
||||
GuardaLogAD($"Ventas/Ventas-NCGeneradas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||
End If
|
||||
@@ -908,38 +908,36 @@ Partial Class Ventas_PVCobranza
|
||||
msBuild.AppendFormat("{0}", pdfNC)
|
||||
End If
|
||||
|
||||
If respNC IsNot Nothing Then
|
||||
For Each dr As DataRow In respNC.Factura.DtAnticiposAplicados.Rows
|
||||
msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}",
|
||||
dr("CveIE").ToString,
|
||||
dr("CveVenta").ToString,
|
||||
respNC.Factura.CveCliente,
|
||||
respNC.CveVenta,
|
||||
respNC.Factura.Total))}"">Imprimir Saldo Aplicado {dr("Folio").ToString}</a><br/>")
|
||||
Next
|
||||
Else
|
||||
For Each dr As DataRow In respFactura.Factura.DtAnticiposAplicados.Rows
|
||||
msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}",
|
||||
dr("CveIE").ToString,
|
||||
dr("CveVenta").ToString,
|
||||
respFactura.Factura.CveCliente,
|
||||
respFactura.CveVenta,
|
||||
respFactura.Factura.Total))}"">Imprimir Saldo Aplicado {dr("Folio").ToString}</a><br/>")
|
||||
Next
|
||||
End If
|
||||
|
||||
If respNC IsNot Nothing Then
|
||||
If respNC IsNot Nothing AndAlso respNC.Factura IsNot Nothing AndAlso respNC.Factura.DtAnticiposAplicados IsNot Nothing Then
|
||||
For Each dr As DataRow In respNC.Factura.DtAnticiposAplicados.Rows
|
||||
msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}",
|
||||
dr("CveIE").ToString,
|
||||
dr("CveVenta").ToString,
|
||||
respNC.Factura.CveCliente,
|
||||
respNC.CveVenta,
|
||||
respNC.Factura.Total))}"">Imprimir Saldo Aplicado {dr("Folio").ToString}</a><br/>")
|
||||
Next
|
||||
End If
|
||||
|
||||
Else
|
||||
If respFactura IsNot Nothing AndAlso respFactura.Factura IsNot Nothing AndAlso respFactura.Factura.DtAnticiposAplicados IsNot Nothing Then
|
||||
For Each dr As DataRow In respFactura.Factura.DtAnticiposAplicados.Rows
|
||||
msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}",
|
||||
dr("CveIE").ToString,
|
||||
dr("CveVenta").ToString,
|
||||
respFactura.Factura.CveCliente,
|
||||
respFactura.CveVenta,
|
||||
respFactura.Factura.Total))}"">Imprimir Saldo Aplicado {dr("Folio").ToString}</a><br/>")
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not String.IsNullOrEmpty(MsgTimbrado) Then
|
||||
msBuild.AppendFormat("<br/>{0}<br/>", MsgTimbrado)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Else
|
||||
msBuild.Append($"Pago Registrado correctamente.<br/><br/> <a href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&TICKET=1®ENERAR=1", CveVenta))}"" class='Texto'>Imprimir ticket</a>")
|
||||
End If
|
||||
@@ -960,7 +958,6 @@ Partial Class Ventas_PVCobranza
|
||||
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
|
||||
ImpresionDirectaPDF(CveVenta)
|
||||
End If
|
||||
|
||||
LimpiarDatos()
|
||||
|
||||
CargaDatos()
|
||||
|
||||
@@ -7034,8 +7034,8 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
|
||||
Me.CveMetodoPago33Cliente = ObjCliente.CveMetodoPago33
|
||||
Me.CveFormaPago33Cliente = ObjCliente.CveFormaPago33
|
||||
Me.CveMetodoPago33Cliente = ObjCliente.CveMetodoPago
|
||||
Me.CveFormaPago33Cliente = ObjCliente.CveFormaPago
|
||||
CveUsoCFDICliente = ObjCliente.CveUsoCFDI
|
||||
|
||||
PlazoCobranza = ObjCliente.PlazoCobranza
|
||||
@@ -8433,10 +8433,10 @@ Partial Class Ventas
|
||||
If CveVenta <= 0 AndAlso CveCotizacion <= 0 Then
|
||||
'CveMetodoPagoCliente = ObjCliente.CveMetodoPago
|
||||
|
||||
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33)
|
||||
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago)
|
||||
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
|
||||
|
||||
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33)
|
||||
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago)
|
||||
DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI)
|
||||
'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
|
||||
If LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
|
||||
|
||||
Reference in New Issue
Block a user