diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index c1729537e..a86e2c02a 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -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 diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 133156eb5..d1582c878 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -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) diff --git a/Empresas/189/Formatos/RepClientesCxC.rpt b/Empresas/189/Formatos/RepClientesCxC.rpt index 0bc0682ba..8dd432260 100644 Binary files a/Empresas/189/Formatos/RepClientesCxC.rpt and b/Empresas/189/Formatos/RepClientesCxC.rpt differ diff --git a/Empresas/Grales/Formatos/RepClientesCxC.rpt b/Empresas/Grales/Formatos/RepClientesCxC.rpt index 42d7719fd..d4966c048 100644 Binary files a/Empresas/Grales/Formatos/RepClientesCxC.rpt and b/Empresas/Grales/Formatos/RepClientesCxC.rpt differ diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index a216b96a8..9bc9f135d 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -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 diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 7bd5c4313..b870252cf 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -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($"
Imprimir Saldo Aplicado {dr("Folio").ToString}
") - Next - Else - For Each dr As DataRow In respFactura.Factura.DtAnticiposAplicados.Rows - msBuild.AppendLine($"
Imprimir Saldo Aplicado {dr("Folio").ToString}
") - 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($"
Imprimir Saldo Aplicado {dr("Folio").ToString}
") + 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($"
Imprimir Saldo Aplicado {dr("Folio").ToString}
") + Next + End If + End If If Not String.IsNullOrEmpty(MsgTimbrado) Then msBuild.AppendFormat("
{0}
", MsgTimbrado) End If - - - - - - - Else msBuild.Append($"Pago Registrado correctamente.

Imprimir ticket") End If @@ -960,7 +958,6 @@ Partial Class Ventas_PVCobranza If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then ImpresionDirectaPDF(CveVenta) End If - LimpiarDatos() CargaDatos() diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index a12931001..cdeeaa7fb 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -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