Merge branch 'master' of http://192.168.10.111:8383/SIG

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 CveFormaPago As Integer
-    Public Property CveMetodoPago33 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
+                _CveFormaPago = Data(0)("CveFormaPago").ToString.ToEntero
-                _CveMetodoPago33 = Data(0)("CveMetodoPago").ToString.ToEntero
+                _CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero
 
                 _CveRegimenFiscal = Data(0)("CveRegimenFiscal").ToString.ToEntero
 

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)

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

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,7 +908,9 @@ Partial Class Ventas_PVCobranza
                         msBuild.AppendFormat("{0}", pdfNC)
                     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,
@@ -917,7 +919,10 @@ Partial Class Ventas_PVCobranza
                                                     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,
@@ -927,19 +932,12 @@ Partial Class Ventas_PVCobranza
                                                 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&REGENERAR=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()

Ventas/Ventas.aspx.vb

@@ -7034,8 +7034,8 @@ Partial Class Ventas
                 End If
 
 
-                Me.CveMetodoPago33Cliente = ObjCliente.CveMetodoPago33
+                Me.CveMetodoPago33Cliente = ObjCliente.CveMetodoPago
-                Me.CveFormaPago33Cliente = ObjCliente.CveFormaPago33
+                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