Clientes Abonar Anticipo Dolares Dolares, CP Nom 043

App_Code/ClsCompras.vb

@@ -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
 

Compras/eFacturas.aspx

@@ -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>

Compras/eFacturas.aspx.vb

@@ -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
 
 

Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc

@@ -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>

Ventas/ClientesAbonar.aspx.vb

@@ -345,10 +345,9 @@ Partial Class Ventas_ClientesAbonar
                 End If
 
                 If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then 'GDIaz
-                    divAnticipo.Visible = True
+                    ConfiguraMonedaAntipo()
-                    TxtAnticipo.Attributes.Add("onKeyUp", "FnRecalcula(0,1);")
                     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