Revert "Bloqueo de envio de correo en cotizaciones E140, aplicar anticipo en pesos cuando es factura en dolares,validacion por tipo docto de RNC al facturar, solicitar devolucion de almacen en Pedidos"

This reverts commit e6fd38856b.

Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc

@@ -1826,6 +1826,14 @@
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
+              <TextRun>
+                <Value xml:space="preserve"> </Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
             </TextRuns>
             <Style>
               <TextAlign>Left</TextAlign>
@@ -2354,7 +2362,7 @@
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet1</DataSetName>
         <Top>11.01962cm</Top>
-        <Left>0.43408cm</Left>
+        <Left>0.33883cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.09433cm</Width>
         <ZIndex>13</ZIndex>

Ventas/Ventas.aspx.vb

@@ -2630,8 +2630,6 @@ Partial Class Ventas
 
                         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                             LnkAgregarCliente.Visible = True
-                            ChkEnviarFactura.Checked = False
-                            ChkEnviarFactura.Enabled = False
                         End If
 
                     End If
@@ -2788,12 +2786,6 @@ Partial Class Ventas
 
             'CUANDO SEA COTIZACION Y SEA COMPUPROVEEDORES (EMPRESA 72) NO DEBE ENVIAR CORREO AL CLIENTE
             EnviarCorreoCliente = True
-
-            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
-                EnviarCorreoCliente = False
-                ChkEnviarFactura.Enabled = False
-            End If
-
             If UsuarioActual.CveEmpresa = 72 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
                 ChkEnviarFactura.Checked = False
                 ChkEnviarFactura.Visible = False
@@ -12057,30 +12049,6 @@ Partial Class Ventas
                                                                     CveSubProyectoContabilizar = CveSubProyectoVenta
 
                                                                     If importeMovimiento <> 0 Then
-
-                                                                        'SI LA NC ES EN DOLARES Y PERO VIENE DE UN ANTICIPO EN PESOS
-                                                                        If (Not UsuarioActual.CveEmpresa.Contiene(72, 80, 146)) AndAlso ObjFactura.CveMoneda = 2 AndAlso row2.DataKey("CveMoneda").ToString().ToEntero() = 1 Then
-
-                                                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo * tipoCambio, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambio) Then
-                                                                                ErrorPrepoliza = True
-                                                                                Exit For
-                                                                            End If
-
-                                                                            'Dim IdCtaContableComplementariaAntic = IdCtaContableClienteComplementaria
-                                                                            Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 292, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
-
-                                                                            'Dim ImporteComplementaria = ((importeMovimiento * tipoCambio) - importeMovimiento).RoundSQL
-                                                                            'If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, importeMovimiento, Concepto, 227, Concepto, FechaMovimiento, IdCtaContableComplementariaAntic, -1, CveVenta:=row2.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=ObjFactura.CveVenta, ImporteMX:=ImporteComplementaria, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar) Then
-                                                                            '    ErrorPrepoliza = True
-                                                                            '    Exit For
-                                                                            'End If
-
-                                                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 292, Concepto, FechaMovimiento, ObjFactura.Cliente.IdCtaContMonedaExtranjera, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then
-                                                                                ErrorPrepoliza = True
-                                                                                Exit For
-                                                                            End If
-
-                                                                        Else
                                                                         If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
                                                                             Exit For
@@ -12138,9 +12106,10 @@ Partial Class Ventas
                                                                                     End If
                                                                                 End If
                                                                             End If
-                                                                            End If
-                                                                        End If
 
+
+
+                                                                        End If
                                                                     End If
 
                                                                 End If
@@ -12518,7 +12487,7 @@ Partial Class Ventas
 
                                 Next
 
-                                If UsuarioActual.Empresa.Funcionalidad(344) = "1" AndAlso ObjFactura.TipoDocto = "Egs" Then
+                                If UsuarioActual.Empresa.Funcionalidad(344) = "1" Then
                                     Dim ListaNC As List(Of Modelos.Factura) = Nothing
 
                                     If NCDescuento Then
@@ -14113,13 +14082,7 @@ Partial Class Ventas
 
             Dim ObjMovtos As New ClsMovimientos()
             If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente) Then
-
+                GVAnticipos.DataSource = ObjMovtos.DtResultados.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo = 'Ant'{If(DdlTipoComprobante.SelectedValue = "Ing", $" AND CveMoneda ={DdlMoneda.SelectedValue.ToEntero()}", "")} ", "")}  {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}")
-                Dim DtMovtos = ObjMovtos.DtResultados.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo = 'Ant' ", "")}  {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}")
-                If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
-                    DtMovtos = DtMovtos.FiltraParametros($"{If(CveVenta < 0, $"Tipo = 'Ant'{If(DdlTipoComprobante.SelectedValue = "Ing", $" AND CveMoneda ={DdlMoneda.SelectedValue.ToEntero()}", "")} ", "")}")
-                End If
-                GVAnticipos.DataSource = DtMovtos
-
                 If ObjMovtos.DtResultados.SUM("Saldo", "Saldo > 0 AND SaldoSubtotal > 0 AND Tipo = 'Ant'") > 0 Then
                     HdnTieneAnticipos.Value = "1"
                 End If
@@ -16056,7 +16019,7 @@ Partial Class Ventas
             UpnTools.Update()
             tdTelefonoGen.Visible = False
             tdTxtTelefonoGen.Visible = False
-            If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 140, 145) Then
+            If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
                 ChkEnviarFactura.Checked = False
             End If
 
@@ -21413,7 +21376,7 @@ Partial Class Ventas
         End If
 
 
-        If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse DdlTipoComprobante.SelectedValue = "Dev" OrElse (DdlTipoComprobante.SelectedValue = "Ped" AndAlso TmpDT IsNot Nothing AndAlso TmpDT.COUNT("CveContratoDetalle", "CveContratoDetalle > 0") > 0)) Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = Now.Month And TxtFecha.Text.ToDate.Year = Now.Year)) Then
+        If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse DdlTipoComprobante.SelectedValue = "Dev") Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = Now.Month And TxtFecha.Text.ToDate.Year = Now.Year)) Then
 
             If Not DevolucionAlmacen = 2 Then
                 'If UsuarioActual.Empresa.Funcionalidad(555) = "1" Then