AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Clientes Abonar Anticipo Dolares Dolares, CP Nom 043

Browse Source
This commit is contained in:
rakcsle
2025-02-24 08:42:52 -07:00
parent 2650be8e2f
commit 7f237bec64
5 changed files with 45 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
App_Code/ClsCompras.vb
View File

@@ -3540,6 +3540,22 @@ Public Class ClsCompras
Return Retorno
End Function
Public Function GetVinculacionRNC(UUID As String, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ComprasMedicosRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@UUID", SqlDbType.VarChar).Value = UUID
.Add("@CveMedico", 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)
End Try
Return Retorno
End Function
#End Region
End Class

11
Compras/eFacturas.aspx
View File

@@ -106,7 +106,7 @@
<div class="portlet-title portlet-filterT smalltitle" >
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" Width="95px" />
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" Width="95px" />
<a href="javascript:;" class="expand"></a>
</div>
@@ -231,6 +231,12 @@
</asp:UpdatePanel>
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:LinkButton runat="server" ID="LnkRegistroRNC" class="btn btn-primary" OnClick="LnkRegistroRNC_Click"><i class="fa fa-search"></i>&nbsp; Prueba</asp:LinkButton>
</ContentTemplate>
</asp:UpdatePanel>
<div class="row" style="margin-left: 0px; margin-right: 0px;">
<div style="width: 100%;">
<asp:UpdatePanel ID="UpRegistroFacturas" runat="server" UpdateMode="Conditional">
@@ -1362,10 +1368,9 @@
<div class="col-md-4" style="text-align: center!important; vertical-align: middle!important">
<br />
<asp:LinkButton runat="server" ID="BtnBuscarBitacora" class="btn btn-default"><i class="fa fa-search"></i>&nbsp; Consultar</asp:LinkButton>
<asp:LinkButton runat="server" ID="LnkRegistroRNC" class="btn btn-default" OnClick="LnkRegistroRNC_Click"><i class="fa fa-search"></i>&nbsp; Prueba</asp:LinkButton>
</div>

3
Compras/eFacturas.aspx.vb
View File

@@ -6113,8 +6113,11 @@ Partial Class Compras_eFacturas
CompraActual.Descripcion = TxtDescripcionCompra.Text.Trim
CompraActual.NombreProveedor = GvRow.DataKey("NombreProveedor")
Dim listaRNC As New List(Of Integer)
For Each DR As String In CompraActual.DocumentosRelacionadosUUIDSList
If Objcompras.GetVinculacionRNC(UUID:=DR, CveEmpresa:=UsuarioActual.CveEmpresa) Then
End If
Next

16
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
View File

@@ -4916,19 +4916,19 @@
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>4.56775cm</Width>
<Width>1.94544cm</Width>
</TablixColumn>
<TablixColumn>
<Width>4.37718cm</Width>
<Width>9.84993cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.87158cm</Width>
<Width>2.13881cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.93598cm</Width>
<Width>1.84139cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.78062cm</Width>
<Width>2.05903cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -4957,7 +4957,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>trasporte </Value>
<Value>transporte </Value>
<Style>
<FontSize>7.5pt</FontSize>
</Style>
@@ -5298,7 +5298,7 @@
<DataSetName>DataSet3</DataSetName>
<Top>0.06703cm</Top>
<Height>1cm</Height>
<Width>17.53311cm</Width>
<Width>17.83459cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -5310,7 +5310,7 @@
<Top>11.49939cm</Top>
<Left>1.33863cm</Left>
<Height>1.06703cm</Height>
<Width>17.82891cm</Width>
<Width>17.83459cm</Width>
<ZIndex>21</ZIndex>
<Style>
<Border>

13
Ventas/ClientesAbonar.aspx.vb
View File

@@ -345,10 +345,9 @@ Partial Class Ventas_ClientesAbonar
End If
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then 'GDIaz
divAnticipo.Visible = True
TxtAnticipo.Attributes.Add("onKeyUp", "FnRecalcula(0,1);")
ConfiguraMonedaAntipo()
DivAntSubProyecto.Visible = True
DivAntSubProyectoTexto.visible = True
DivAntSubProyectoTexto.Visible = True
CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, Nothing, AplicaTodos:="")
End If
CargaDatos(tCveMoneda)
@@ -360,6 +359,12 @@ Partial Class Ventas_ClientesAbonar
Return Retorno
End Function
Private Sub ConfiguraMonedaAntipo()
divAnticipo.Visible = True
TxtAnticipo.Attributes.Add("onKeyUp", $"FnRecalcula(0,{If(CveMonedaPago = Nothing, 1, CveMonedaPago)});")
UpDatos.Update()
End Sub
Private Sub CargaDatos(pCveMoneda As Integer)
Dim Mov As New ClsMovimientos
Dim FechaI As String = IfNull(Request("FechaI"), "-1").ToString
@@ -465,6 +470,8 @@ Partial Class Ventas_ClientesAbonar
TxtFolio.Text = ""
End If
ConfiguraMonedaAntipo()
End Sub
Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged