Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -3542,16 +3542,16 @@ Public Class ClsCompras
|
||||
|
||||
Public Function GetVinculacionRNC(UUID As String, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Comp_ComprasMedicosRemove")
|
||||
DataAdapter("PA_Comp_VinculacionRNCGet")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@UUID", SqlDbType.VarChar).Value = UUID
|
||||
.Add("@CveMedico", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al eliminar gasto de médico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
OnError("Ocurrió un error al obtener las remisiones de nota de crédito relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
@@ -231,11 +231,7 @@
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server">
|
||||
<ContentTemplate>
|
||||
<asp:LinkButton Visible="false" runat="server" ID="LnkRegistroRNC" class="btn btn-primary" OnClick="LnkRegistroRNC_Click"><i class="fa fa-search"></i> Prueba</asp:LinkButton>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<div class="row" style="margin-left: 0px; margin-right: 0px;">
|
||||
<div style="width: 100%;">
|
||||
|
||||
@@ -839,6 +839,10 @@ Partial Class Compras_eFacturas
|
||||
|
||||
InicializaDTProrrateoGasolina()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
|
||||
VinculacionAutomaticaRNC()
|
||||
End If
|
||||
|
||||
End If
|
||||
removeasincevent()
|
||||
End Sub
|
||||
@@ -6075,9 +6079,7 @@ Partial Class Compras_eFacturas
|
||||
|
||||
|
||||
|
||||
Protected Sub LnkRegistroRNC_Click(sender As Object, e As EventArgs)
|
||||
VinculacionAutomaticaRNC()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub VinculacionAutomaticaRNC()
|
||||
|
||||
@@ -6098,7 +6100,7 @@ Partial Class Compras_eFacturas
|
||||
|
||||
Dim CFDIXmlPath As String = $"{UsuarioActual.Empresa.Ruta}Compras\{GvRow.DataKey("RFCDe")}\{GvRow.DataKey("XML")}"
|
||||
If Not File.Exists(CFDIXmlPath) Then
|
||||
ErrorProceso = True
|
||||
'ErrorProceso = True
|
||||
Continue For
|
||||
End If
|
||||
|
||||
@@ -6146,7 +6148,7 @@ Partial Class Compras_eFacturas
|
||||
DTProrrateo:=New DataTable, DTPagosDeudores:=New DataTable, TipoComprobante:="E") Then
|
||||
|
||||
If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then
|
||||
Contador = Contador + 1
|
||||
'
|
||||
Else
|
||||
ErrorProceso = True
|
||||
ErrorProcesoStr = CompraActual.MensajeError
|
||||
@@ -6167,11 +6169,11 @@ Partial Class Compras_eFacturas
|
||||
Dim Concepto As String = GvRow.DataKey("SerieFolio")
|
||||
Dim TipoCambio As Decimal = GlobalTipoCambio(GvRow.DataKey("FechaFactura").ToDate).ToDecimal
|
||||
|
||||
For Each drRNC As GridViewRow In DT_RNC.Rows
|
||||
For Each drRNC As DataRow In DT_RNC.Rows
|
||||
|
||||
|
||||
Dim ImporteRNCSaldar As Decimal = drRNC.DataKey("Saldo").ToDecimal
|
||||
Dim CveCompraRNC As Integer = drRNC.DataKey("CveCompra").ToEntero
|
||||
Dim ImporteRNCSaldar As Decimal = drRNC("Saldo").ToString.ToDecimal
|
||||
Dim CveCompraRNC As Integer = drRNC("CveCompra").ToString.ToEntero
|
||||
If ImporteRNCSaldar > TotalSaldo Then ImporteRNCSaldar = TotalSaldo
|
||||
|
||||
If Not ErrorProceso Then
|
||||
@@ -6194,6 +6196,7 @@ Partial Class Compras_eFacturas
|
||||
|
||||
If Not ErrorProceso Then
|
||||
TotalSaldo = TotalSaldo - ImporteRNCSaldar
|
||||
Contador = Contador + 1
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -6204,52 +6207,6 @@ Partial Class Compras_eFacturas
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'If RBLContado.SelectedValue.ToEntero = 4 Then 'Deudores
|
||||
' Dim CompraActualPagar = New Compra
|
||||
' If Objcompras.GetCompras(CompraActual.CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
' If Objcompras.DtResultados IsNot Nothing AndAlso Objcompras.DtResultados.Rows.Count > 0 Then
|
||||
' Dim dr As DataRow = Objcompras.DtResultados.Rows(0)
|
||||
|
||||
|
||||
' CompraActualPagar.CveCompra = CompraActual.CveCompra
|
||||
' CompraActualPagar.CveTipoConceptoProveedor = dr("CveTipoConcepto").ToString.ToEntero
|
||||
' CompraActualPagar.CveProveedor = dr("CveProveedor").ToString.ToEntero
|
||||
' CompraActualPagar.CveMoneda = dr("CveMoneda").ToString.ToEntero
|
||||
' CompraActualPagar.Fecha = dr("Fecha").ToString.ToDate
|
||||
' CompraActualPagar.SerieFolio = dr("SerieFolio").ToString
|
||||
' 'CompraActualPagar.ProveedorNombre = TxtPagueseA.Text
|
||||
' CompraActualPagar.TC = dr("TipoCambio").ToString.ToDecimal
|
||||
' CompraActualPagar.Total = dr("Total").ToString.ToDecimal
|
||||
' CompraActualPagar.IVA = dr("IVA").ToString.ToDecimal
|
||||
' CompraActualPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal.RoundSQL
|
||||
' CompraActualPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal.RoundSQL
|
||||
' CompraActualPagar.IEPS = dr("IEPS").ToString.ToDecimal
|
||||
' CompraActualPagar.RetIVA = dr("RetIVA").ToString.ToDecimal
|
||||
' CompraActualPagar.RetISR = dr("RetISR").ToString.ToDecimal
|
||||
' CompraActualPagar.CveConceptoRetIVA = dr("CveRetIVAConcepto").ToString.ToEntero
|
||||
' CompraActualPagar.CveConceptoRetISR = dr("CveRetISRConcepto").ToString.ToEntero
|
||||
' CompraActualPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
|
||||
' CompraActualPagar.UsuarioActual = UsuarioActual
|
||||
' CompraActualPagar.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
|
||||
' CompraActualPagar.EsImportacion = CBool(dr("EsImportacion"))
|
||||
' CompraActualPagar.CompraNoDeducible = dr("NoDeducible").ToString.ToEntero
|
||||
|
||||
|
||||
|
||||
' Else
|
||||
' ErrorProceso = True
|
||||
' End If
|
||||
' Else
|
||||
' ErrorProceso = True
|
||||
' End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'End If
|
||||
|
||||
End If
|
||||
If ErrorProceso Then
|
||||
Exit For
|
||||
@@ -6258,14 +6215,14 @@ Partial Class Compras_eFacturas
|
||||
|
||||
If ErrorProceso Then
|
||||
Objcompras.RollBack()
|
||||
Alert($"Se registraron {Contador} Compras. error {ErrorProcesoStr}", TipoMensaje.MsgAdvertencia)
|
||||
Alert($"Se preento un error al reigistrar las notas de crédito", TipoMensaje.MsgAdvertencia)
|
||||
Else
|
||||
Objcompras.Commit()
|
||||
CargaDatos(NowADS())
|
||||
CambieDeudor()
|
||||
CargaDatos(NowADS())
|
||||
If Contador > 0 Then
|
||||
Alert($"Se registraron {Contador} Compras")
|
||||
GuardaLog($"Se registraron {Contador} notas de crédito")
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -8276,7 +8233,14 @@ Public Class ClsCompraManager
|
||||
If respuesta Then
|
||||
importeMovimiento = Me.Total
|
||||
importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
|
||||
Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, Me.CveMoneda, False, Me.CveTipoConceptoProveedor)
|
||||
|
||||
Dim TipoSaldo As Integer = 1
|
||||
|
||||
If TipoComprobante = "E" Then
|
||||
TipoSaldo = 15
|
||||
End If
|
||||
|
||||
Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(TipoSaldo, Me.CveMoneda, False, Me.CveTipoConceptoProveedor)
|
||||
Dim ImporteME As Decimal = importeMovimiento
|
||||
Dim UsaComplementaria As Boolean = True
|
||||
If Me.CveMoneda > 1 Then ImporteME = importeMovimiento
|
||||
|
||||
@@ -110,11 +110,11 @@ Partial Class Inventarios_PrestamosdeProveedor
|
||||
If e.Row.DataKey("AplicaCaducidad").ToString = "True" Then
|
||||
e.Row.FCLiteral("LtlFechaCaducidad").Visible = False
|
||||
e.Row.FCTextBox("TxtFechaCaducidad").Visible = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
e.Row.FCTextBox("TxtCantidad").Visible = True
|
||||
e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
|
||||
|
||||
|
||||
End If
|
||||
|
||||
''FUNCIONALIDAD PISTOLA DE CODIGOS
|
||||
@@ -303,18 +303,41 @@ Partial Class Inventarios_PrestamosdeProveedor
|
||||
Dim SbFiltros As New StringBuilder()
|
||||
'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
|
||||
Dim listFiltros As New List(Of String)
|
||||
|
||||
listFiltros.Add($"SubProyecto : {DdlSubProyecto.SelectedItem.Text}")
|
||||
|
||||
|
||||
If ddlProveedor.txtValue.Value.ToEntero > 0 Then
|
||||
listFiltros.Add($"Proveedor : { ddlProveedor.txtText.Value}")
|
||||
Else
|
||||
listFiltros.Add($"Proveedor : Todos")
|
||||
End If
|
||||
|
||||
If TxtFolioEntrega.Text.Trim.Length > 0 Then listFiltros.Add($"Folio : {TxtFolioEntrega.Text}")
|
||||
If TxtFolioEntrega.Text.Trim.Length > 0 Then
|
||||
listFiltros.Add($"Folio : {TxtFolioEntrega.Text}")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'SbFiltros.AppendFormat("SubProyecto : {0}|", DdlSubProyecto.SelectedItem.Text)
|
||||
|
||||
'If ddlProveedor.txtValue.Value.ToEntero > 0 Then
|
||||
' SbFiltros.AppendFormat("Proveedor : {0}|", ddlProveedor.txtText.Value)
|
||||
'Else
|
||||
' SbFiltros.AppendFormat("Proveedor : Todos|")
|
||||
'End If
|
||||
|
||||
|
||||
'SbFiltros.AppendFormat("Folio : {0}|", TxtFolioEntrega.Text)
|
||||
'If DdlDivisor.SelectedValue <> "1" Then SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
|
||||
'SbFiltros.AppendFormat("Ejercicio : {0} Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text)
|
||||
|
||||
GvD.Columns(1).Visible = False
|
||||
UppEntrega.Update()
|
||||
GvD.ExportToExcelGembox($"PrestamoProveedores_{NowADS().ToString("yyyy.MM.dd.HHmmss")}", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=String.Join(", ", listFiltros))
|
||||
GvD.ExportToExcelGembox($"PrestamosProveedores{NowADS().ToString("yyyyMMddHHmmss")}", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=String.Join(", ", listFiltros))
|
||||
GvD.Columns(1).Visible = True
|
||||
UppEntrega.Update()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user