Now 043 formato, ajustes eFacturas

App_Code/ClsPaginas.vb

@@ -6107,13 +6107,13 @@ Public Class ClsPaginas
             End If
         End If
     End Sub
-    Protected Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer)
-        Dim resp As Modelos.MSubReportData = PreParaImpresionCartaPorte(CveTimbre)
+    Protected Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer, Optional imprmirNom043 As Boolean = False)
+        Dim resp As Modelos.MSubReportData = PreParaImpresionCartaPorte(CveTimbre, imprmirNom043:=imprmirNom043)
         If resp.DataSources.Count > 0 AndAlso resp.Parametros.Count > 0 Then
             ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", resp.DataSources, resp.Parametros, resp.SerieFolio)
         End If
     End Sub
-    Private Function PreParaImpresionCartaPorte(CveTimbre As Integer, Optional AplicaSubReporte As Boolean = False) As Modelos.MSubReportData
+    Private Function PreParaImpresionCartaPorte(CveTimbre As Integer, Optional AplicaSubReporte As Boolean = False, Optional imprmirNom043 As Boolean = False) As Modelos.MSubReportData
         Dim retorno As New Modelos.MSubReportData
         retorno.Nombre = "CartaPorte"
         Try
@@ -6627,6 +6627,8 @@ Public Class ClsPaginas
                     params.Add(New ReportParameter("RemolquePlaca2", RemolquePlaca2))
                     params.Add(New ReportParameter("RemolqueSubtimo2", RemolqueSubtimo2))
 
+                    params.Add(New ReportParameter("imprmirNom043", If(imprmirNom043, "1", "0")))
+
                     If UsuarioActual.CveEmpresa = 13 Then
                         params.Add(New ReportParameter("PermisoSCTRemolque1", PermisoSCTR1))
                         params.Add(New ReportParameter("PermisoSCTRemolque2", PermisoSCTR2))
@@ -8020,10 +8022,14 @@ Public Class ClsPaginas
                     params.Add(New ReportParameter("ProveedorContacto", ObjOC.ProveedorContacto))
                     params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado))
                 End If
-				
-				 If UsuarioActual.CveEmpresa.Contiene(189) Then
-					 params.Add(New ReportParameter("DiasCreditoOC", dtOC(0)("DiasCreditoOC").ToString))
-				 End If
+
+                If UsuarioActual.CveEmpresa.Contiene(189) Then
+                    If dtOC(0)("DiasCreditoOC").ToString.ToEntero > 0 Then
+                        params.Add(New ReportParameter("DiasCreditoOC", dtOC(0)("DiasCreditoOC").ToString))
+                    Else
+                        params.Add(New ReportParameter("DiasCreditoOC", dtOC(0)("PlazoPago").ToString))
+                    End If
+                End If
 
 
                 If UsuarioActual.CveEmpresa.Contiene(13, 83) Then

Compras/PopUpVerFactura.aspx.vb

@@ -1395,7 +1395,9 @@ Partial Class PopUpVerFactura
 
         If UrlParametros("OP").ToString = "CARPOTIMBRE" Then
             If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then
-                ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero)
+                Dim imprmirNom043 As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119), True, False)
+                ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero, imprmirNom043:=imprmirNom043)
+                'ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero)
             End If
         End If
 

Compras/eFacturas.aspx

@@ -272,7 +272,7 @@
                                                           <asp:RadioButtonList ID="RBLContado" runat="server" RepeatDirection="Horizontal" Style="margin: auto" AutoPostBack="True" RepeatColumns="3">                                                            
                                                             <asp:ListItem Value="6" Selected="True" >Caja Chica</asp:ListItem>
                                                             <asp:ListItem Value="2">Viáticos</asp:ListItem>
-                                                            <asp:ListItem Value="4">Deudores</asp:ListItem>
+                                                            <%--<asp:ListItem Value="4">Deudores</asp:ListItem>--%>
                                                         </asp:RadioButtonList>
                                                     </div>
 

Compras/eFacturas.aspx.vb

@@ -6207,13 +6207,8 @@ Partial Class Compras_eFacturas
 
         Objcompras.Dispose()
 
-
-
-
     End Sub
 
-
-
     Protected Sub LnkDecargaPlatilla_Click(sender As Object, e As EventArgs)
 
         Dim rutaArchivoPlantilla As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\CargaProrrateoPorcentaje.xlsx"

OC/OC.aspx.vb

@@ -6064,7 +6064,7 @@ Partial Class OC_OC
     End Function
 
     Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.selectedindexchange
-
+        TxtDiasCreditoOC.Text = ""
         DdlProveedorSucursal.Items.Clear()
         DdlProveedorSucursal.SelectedValue = Nothing
 
@@ -6128,6 +6128,9 @@ Partial Class OC_OC
                 DdlMoneda.SelectedValueExist(CveMonedaPreferente)
                 MonedaTexto = DdlMoneda.SelectedItem.Text
             End If
+
+            TxtDiasCreditoOC.Text = dtt.Rows(0)("PlazoPago").ToString
+
         End If
         VerificaSiRequiereCotizacion()
         If UsuarioActual.Empresa.Funcionalidad(565) = "1" And CveOrdenCompra > 0 And TipoOC.ToUpper() = "REQ" Then
@@ -6142,6 +6145,7 @@ Partial Class OC_OC
         UPPDetalle.Update()
         uppEstatus.Update()
 
+
     End Sub
 
     Protected Sub CboE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboE.SelectedIndexChanged