Merge branch 'master' of http://192.168.10.111:8383/SIG

Empresas/186/Formatos/Traslado.rdlc

@@ -21,6 +21,10 @@
           <DataField>Codigo</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+		<Field Name="NumeroParte">
+          <DataField>NumeroParte</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>		
         <Field Name="PS">
           <DataField>PS</DataField>
           <rd:TypeName>System.String</rd:TypeName>

Empresas/186/Formatos/TrasladoAngeles.rdlc

@@ -21,6 +21,10 @@
           <DataField>Codigo</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="NumeroParte">
+          <DataField>NumeroParte</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
         <Field Name="PS">
           <DataField>PS</DataField>
           <rd:TypeName>System.String</rd:TypeName>
@@ -754,7 +758,7 @@
                                   </Style>
                                 </TextRun>
                                 <TextRun>
-                                  <Value>=Fields!Codigo.Value</Value>
+                                  <Value>=Fields!NumeroParte.Value</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
                                   </Style>
@@ -776,6 +780,7 @@
                             <PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>

Inventarios/EntradasSalidas.aspx

@@ -62,6 +62,9 @@
             <li>
                 <asp:HyperLink ID="HplImprimirResumen" runat="server" Visible="false"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF Resumen</asp:HyperLink>
             </li>
+            <li>
+                <asp:HyperLink ID="HplImprimirConsola" runat="server" Visible="false"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF Consola</asp:HyperLink>
+            </li>
             <li>
                 <asp:HyperLink ID="HplDescargaXml" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Descargar XML SAT</asp:HyperLink>
             </li>
@@ -673,7 +676,7 @@
                             <asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
 
                             <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" EmptyDataText="Aún no hay registros." 
-                                DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,Serie,Lote,FechaCaducidad,CveSeccionAlmacen" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" >
+                                DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,Serie,Lote,FechaCaducidad,CveSeccionAlmacen,Codigo" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" >
                                 <Columns>
                                     <asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
                                         <EditItemTemplate>

Inventarios/EntradasSalidas.aspx.vb

@@ -507,10 +507,51 @@ Partial Class Inventarios_EntradasSalidas
                 'ImgFecha.Visible = True
             End If
 
+
+            If CveMovimiento > 0 And CveConcepto.Contiene(8) And UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                ValidaUsaConsola()
+            End If
+
         End If
 
     End Sub
 
+    Property Consola As String
+        Get
+            If ViewState("Consola") Is Nothing Then
+                ViewState("Consola") = ""
+            End If
+            Return ViewState("Consola").ToString
+        End Get
+        Set(value As String)
+            ViewState("Consola") = value
+        End Set
+    End Property
+
+    Private Function ValidaUsaConsola() As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        For Each gvRow As GridViewRow In GvM.Rows
+            If gvRow.DataKey("Codigo").Contiene("404Q2", "404Q3", "405Q2", "405Q3", "306Q1", "306Q2") Then
+                Consola = "ARS600"
+                Respuesta = True
+                HplImprimirConsola.Visible = True
+                Exit For
+            End If
+            If gvRow.DataKey("Codigo").Contiene("106Q1A", "106Q2A", "106Q3", "106Q3WT", "106Q4", "106Q4A", "106Q5A", "106Q6A", "106Q7A") Then
+                Consola = "ARS800"
+                Respuesta = True
+                HplImprimirConsola.Visible = True
+                Exit For
+            End If
+        Next
+
+        Return Respuesta
+
+
+    End Function
+
 #Region "  PERMISOS PAGINAS  "
     Private Function PermiteGuardar() As Boolean
         Return If(UsuarioActual.TienePermisoProceso(181) Or EsConsumoInterno, True, False)
@@ -909,9 +950,12 @@ Partial Class Inventarios_EntradasSalidas
             HplImprimirResumen.Visible = True
             HplImprimirResumen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Almr&CveMovimiento={0}", CveMovimiento)))
 
+
             CveCompra = Mov.CveCompra
             CveConcepto = Mov.CveConcepto
 
+
+
             If drM("CveEstatusTimbrado").ToString.ToEntero > 0 Then
                 HplDescargaXml.Visible = True
                 HplDescargaXml.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "XML", drM("TimbreSerieFolio"), drM("TimbreTipoDocto"))))

Inventarios/EntregaAlmacen.aspx.vb

@@ -4,6 +4,7 @@ Option Explicit On
 Imports System.Data
 Imports System.Data.SqlClient
 Imports System.IO
+Imports System.Web.Management
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
@@ -4408,6 +4409,47 @@ Partial Class Inventarios_EntregaAlmacen
 
         Return Cancelar
 
+    End Function
+
+    Property Consola As String
+        Get
+            If ViewState("Consola") Is Nothing Then
+                ViewState("Consola") = ""
+            End If
+            Return ViewState("Consola").ToString
+        End Get
+        Set(value As String)
+            ViewState("Consola") = value
+        End Set
+    End Property
+
+    Private Function UsaConsola() As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        For Each gvRow As GridViewRow In GvDatos.Rows
+
+            If gvRow.FCCheckBox("cbInv").Checked AndAlso gvRow.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then
+
+                If gvRow.DataKey("Codigo").Contiene("404Q2", "404Q3", "405Q2", "405Q3", "306Q1", "306Q2") Then
+                    Consola = "ARS600"
+                    Respuesta = True
+                    Exit For
+                End If
+
+                If gvRow.DataKey("Codigo").Contiene("106Q1A", "106Q2A", "106Q3", "106Q3WT", "106Q4", "106Q4A", "106Q5A", "106Q6A", "106Q7A") Then
+                    Consola = "ARS800"
+                    Respuesta = True
+                    Exit For
+                End If
+
+            End If
+
+        Next
+
+        Return Respuesta
+
+
     End Function
 
 End Class

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -65,13 +65,16 @@ Partial Class RepNotasSinAlmacen
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not IsPostBack Then
+        If Not IsPostBack Then
-
+
             CargaCombos()
             'CargaDatos()
             CargaPermisos()
         End If
-    End Sub
+    End Sub
+
+
+
     Private Sub CargaPermisos()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
         Dim TienePermisoDesmarcar As Boolean = UsuarioActual.TienePermisoProceso(278)
@@ -88,6 +91,9 @@ Partial Class RepNotasSinAlmacen
             GvVentas.Columns(8).Visible = True
             TxtFechaF.Text = NowADS.AddDays(3).ToShortDateString
 
+            GvVentas.Columns(4).Visible = False
+            GvCompras.Columns(4).Visible = False
+
             GvVentas.Columns(0).ItemStyle.Width = Unit.Pixel(120)
             'CType(GvVentas.Columns(2), Literal).DataFormatString = "{0:dd/MM/yyyy HH:mm}"
             'CType(GvVentas.Columns(2), Literal).ItemStyle.Width = Unit.Pixel(120)

OS/Asignaciones.aspx

@@ -200,10 +200,15 @@
                                         </asp:TemplateField>
                                         <asp:HyperLinkField DataTextField="Folio" HeaderText="Folio" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OS/OrdenesServicios.aspx?CveOS={0}" DataNavigateUrlFields="CveOS" />
                                         <asp:BoundField DataField="Nombre" HeaderText="Cliente" ItemStyle-HorizontalAlign="Left" />
+                                        
                                         <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-HorizontalAlign="Left" />
                                         <asp:BoundField DataField="Concepto" HeaderText="Concepto" ItemStyle-HorizontalAlign="Left" />
                                         <asp:BoundField DataField="EstatusOrdenServicio" HeaderText="Estatus" ItemStyle-HorizontalAlign="Left" />
                                         <asp:BoundField DataField="FechaIng" HeaderText="Fecha Ingreso" DataFormatString="{0:d}" ItemStyle-Width="130px" />
+
+                                        <asp:BoundField DataField="Medico" HeaderText="Médico" ItemStyle-HorizontalAlign="Left" Visible="false" />
+                                        <asp:BoundField DataField="Procedimiento" HeaderText="Procedimiento" ItemStyle-HorizontalAlign="Left" Visible="false" />
+
                                         <asp:TemplateField ItemStyle-Width="120px" HeaderText="Fecha Servicio">                                            
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlFechaServicio" runat="server" Visible="false" Text='<%# Eval("FechaCita", "{0:d}")%>'> ></asp:Literal>

OS/Asignaciones.aspx.vb

@@ -40,16 +40,13 @@ Partial Class OS_Asignaciones
 #End Region
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            GvNA_ConfiguraColumnas()
             CargaEstatusOS()
             'CargaUsuarios()
             CargaClientes()
             CargaSubProyecto()
 
-            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+
-                GvNA.Columns(2).HeaderText = "Hospital"
-                GvNA.Columns(7).HeaderText = "Fecha Cirugía"
-                GvNA.Columns(8).HeaderText = "Hora Cirugía"
-            End If
 
             If UsuarioActual.TienePermisoProceso(171) Then
                 CargaOrdenesServiciosAsignadasXPersona()
@@ -75,6 +72,9 @@ Partial Class OS_Asignaciones
             End If
             ObjEstatusPermisos.Dispose()
 
+
+
+
         End If
 
         RegistraScript("
@@ -90,6 +90,26 @@ Partial Class OS_Asignaciones
         ")
     End Sub
 
+    Private Sub GvNA_ConfiguraColumnas()
+
+        If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+            GvNA.Columns(3).Visible = False
+            GvNA.Columns(4).Visible = False
+            GvNA.Columns(5).Visible = False
+            GvNA.Columns(6).Visible = False
+
+            GvNA.Columns(7).Visible = True
+            GvNA.Columns(8).Visible = True
+
+
+            GvNA.Columns(2).HeaderText = "Hospital"
+            GvNA.Columns(9).HeaderText = "Fecha Cirugía"
+            GvNA.Columns(10).HeaderText = "Hora Cirugía"
+        End If
+
+
+    End Sub
+
 #Region "C A R G A S "
     Private Sub CargaSubProyecto()
         DdlSubProyecto.Items.Clear()
@@ -184,7 +204,7 @@ Partial Class OS_Asignaciones
         Dim TecnicosResultado As New DataTable
 
         If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then
-            TecnicosSubProyectos = ObjOS.DtResultados
+            TecnicosSubProyectos = ObjOS.DtResultados.FiltraParametros(" Estatus = 'True' ")
         End If
 
         If DtOSSubProyectos IsNot Nothing Then

OS/OrdenesServicios.aspx

@@ -1308,9 +1308,7 @@
 
                             <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright" runat="server" visible="false" id="DvTxtFolioRemisionModal">
-                                    <asp:TextBox ID="TxtFolioRemisionModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
+                                    <asp:TextBox ID="TxtFolioRemisionModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>                                    
-                                    <asp:RequiredFieldValidator ID="RfvTxtFolioRemisionModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFolioRemisionModal"
-                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMaterialUtilizado"></asp:RequiredFieldValidator>
                                     <label for="<%= TxtFolioRemisionModal.ClientID.ToString()%>">Folio:</label>
                                 </div>
                             </div>

asmx/WS_PuntoVenta.asmx

@@ -439,8 +439,30 @@ Public Class WS_PuntoVenta
 
         objProyecto.Dispose()
         Return Respuesta
-    End Function
+    End Function
-
+
+
+    <WebMethod()>
+    Public Function GetSucursales(CveEmpresa As Integer) As RespuestaWS
+        Dim objProyecto As New ClsSubProyectos
+        Dim Respuesta As New RespuestaWS
+
+        If objProyecto.GetSubProyectos(CveEmpresa) Then
+            Respuesta.Datos = objProyecto.DtResultados
+
+            Respuesta.Datos.Columns(2).ColumnName = "CveSucursal"
+            Respuesta.Datos.Columns(3).ColumnName = "Sucursal"
+            Respuesta.Datos.TableName = "Resultados"
+            Respuesta.HuboError = False
+        Else
+            Respuesta.Descripcion = "HUBO UN ERROR"
+        End If
+
+        objProyecto.Dispose()
+        Return Respuesta
+    End Function
+
+
     <WebMethod()>
     Public Function GetClientes(CveEmpresa As Integer) As RespuestaWS
         Dim objClientes As New ClsClientes
@@ -546,14 +568,15 @@ Public Class WS_PuntoVenta
 
 #Region "ProductosServicios"
     <WebMethod()>
-    Public Function GetProductosServicios(CvePS As Integer, CveClasificacion As Integer, Codigo As String, PS As String, CveEmpresa As Integer, CveSubProyecto As Integer) As RespuestaWS
+    Public Function GetProductosServicios(CvePS As Integer, CveClasificacion As Integer, Codigo As String, PS As String, CveEmpresa As Integer, CveSucursal As Integer) As RespuestaWS
         Dim objPS As New ClsProductosServicios
         Dim Respuesta As New RespuestaWS
 
-        If objPS.GetPS(CvePS, CveClasificacion, CveEmpresa, Codigo, PS, CveSubProyecto:=CveSubProyecto, pAplicaParaVenta:=1, pEstado:=1) Then
+        If objPS.GetPS(CvePS, CveClasificacion, CveEmpresa, Codigo, PS:=PS, CveSubProyecto:=CveSucursal, pAplicaParaVenta:=1, pEstado:=1) Then
             Respuesta.Datos = objPS.DtResultados
             Respuesta.Datos.TableName = "Resultados"
-            Respuesta.HuboError = False
+            Respuesta.HuboError = False
+            GuardaLog($"CvePS: {CvePS}, CveClasificacion: {CveClasificacion}, CveEmpresa: {CveEmpresa}, Codigo: {Codigo}, PS: {PS}, CveSubProyecto: {CveSucursal}, pAplicaParaVenta: {1}, pEstado: {1}")
         Else
             Respuesta.Descripcion = "HUBO UN ERROR"
         End If
@@ -847,17 +870,35 @@ Public Class WS_PuntoVenta
 
                         CvePrePoliza = ObjConta.AddPrePolizas("Vta", 4, objVenta.Total, objVenta.Total, objVenta.CveMoneda, objVenta.Fecha, "Punto de Venta addVenta", objVenta.CveUsuario, objVenta.CveEmpresa)
 
-                        If objVentas.DtResultados.Rows.Count = 0 Then
+                        If objVentas.DtResultados.Rows.Count = 0 Then
+
+                            If objVenta.CveEmpresa = 1 Then
+                                If objVenta.CveSubProyecto <= 0 Then
+                                    objVenta.CveSubProyecto = 10430
+                                End If
+
+                                If objVenta.FolioFact.ToString.Contiene("", "-1", "0") Then
+                                    objVenta.FolioFact = getFolio("Rem", objVenta.CveEmpresa, objVenta.CveSubProyecto).ToEntero
+                                End If
+                            End If
+
+
+
                             If objVentas.AddVenta(objVenta.TipoDocto, objVenta.FolioFact, objVenta.CveCliente, objVenta.CveClienteSucursal,
                                              objVenta.SubTotal, objVenta.Descuento, objVenta.Amortizacion, objVenta.IVA, objVenta.RetIVA, objVenta.RetISR,
                                             objVenta.Total, objVenta.CveMoneda, objVenta.TipoCambio, objVenta.CveMetodoPago, objVenta.CondicionesPago,
-                                              objVenta.FormaPago, ClsPaginas.NowADS(), objVenta.Fecha, objVenta.MotivoDescuento, objVenta.Observaciones, objVenta.FechaEjecucion,
+                                              objVenta.FormaPago, ClsPaginas.NowADS(), objVenta.Fecha, objVenta.MotivoDescuento, objVenta.Observaciones, If(objVenta.FechaEjecucion < MinFecha, Now, objVenta.FechaEjecucion),
                                             objVenta.CveVendedor, If(objVenta.Alfa1 IsNot Nothing, objVenta.Alfa1, ""), If(objVenta.Alfa2 IsNot Nothing, objVenta.Alfa2, ""), If(objVenta.Alfa3 IsNot Nothing, objVenta.Alfa3, ""), objVenta.Num1,
-                                            objVenta.Num2, objVenta.Num3, Fech1, Fech2, Fech3, objVenta.CveCorte, If(objVenta.NumeroPersonas > 255, 255, objVenta.NumeroPersonas), CvePrePoliza, objVenta.CveUsuario, objVenta.CveEmpresa, objVenta.Propina, objVenta.CveVentaTerminal, CveSubProyecto:=objVenta.CveSubProyecto, CveSubProyectoEjecucion:=objVenta.CveSubProyecto) Then
+                                            objVenta.Num2, objVenta.Num3, Fech1, Fech2, Fech3, objVenta.CveCorte, If(objVenta.NumeroPersonas > 255, 255, objVenta.NumeroPersonas), CvePrePoliza,
-                                objVenta.CveVenta = objVentas.CveVenta
+                                            objVenta.CveUsuario, objVenta.CveEmpresa, objVenta.Propina, objVenta.CveVentaTerminal, CveSubProyecto:=objVenta.CveSubProyecto, CveSubProyectoEjecucion:=objVenta.CveSubProyecto, Vigencia:=Now) Then
-                                'Ingresar los detalles
+                                objVenta.CveVenta = objVentas.CveVenta
+                                'Ingresar los detalles
+
+                                If objVenta.CveEmpresa = 1 Then
+                                    GuardaLog($"objVenta.Detalle {objVenta.Detalle.Count}")
+                                End If
                                 For Each Detalle As ClsVentaWS.ClsVentaDetalleWS In objVenta.Detalle
-                                    If objVentas.AddVentaDetalle(objVentas.CveVenta, Detalle.CvePS, Detalle.Cantidad, Detalle.CveUnidadMedida, Detalle.PU, Detalle.IVA, Detalle.Total, Detalle.Observaciones, Detalle.Descuento, Detalle.TipoDescuento, Detalle.CveSubProyecto, -1) Then
+                                    If objVentas.AddVentaDetalle(objVentas.CveVenta, Detalle.CvePS, Detalle.Cantidad, Detalle.CveUnidadMedida, Detalle.PU, Detalle.IVA, Detalle.Total, Detalle.Observaciones, Detalle.Descuento, Detalle.TipoDescuento, Detalle.CveSubProyecto, -1, IEPS:=0) Then
                                         'Ingresar las caracteristicas del detalle de la venta
                                         For Each Caracteristica As ClsVentaWS.ClsVentaDetalleCaracteristicaWS In Detalle.Caracteristicas
                                             If objVentas.AddVentaDetalleCaracteristica(objVentas.CveVentaDetalle, Caracteristica.CvePS, Caracteristica.CveOpcion) = False Then
@@ -954,50 +995,57 @@ Public Class WS_PuntoVenta
                                         'Se agrega movimiento separado por la cuenta de ventas (ER)
                                         ' For Each Row As DataRow In DT.Rows
                                         ImporteMov = objVenta.SubTotal
-                                        Dim CveClasificacion_04 As Integer = -1
+
-                                        If ImporteMov <> 0 Then
+
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, ImporteMov, CveConceptoVenta, " ", " ", CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, CveSubProyecto:=objVenta.CveSubProyecto, CveClasificacion:=CveClasificacion_04) Then
+
-                                                ErrorMovtosVentas = True
+
-                                            End If
+
-                                        End If
+                                        ' FIXME OIC
-                                        ' Next
+                                        'Dim CveClasificacion_04 As Integer = -1
-
+                                        'If ImporteMov <> 0 Then
-                                        'Se agregan los DSV DESCUENTOS
+                                        '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, ImporteMov, CveConceptoVenta, " ", " ", CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, CveSubProyecto:=objVenta.CveSubProyecto, CveClasificacion:=CveClasificacion_04) Then
-                                        ImporteMov = objVenta.Descuento
+                                        '        ErrorMovtosVentas = True
-                                        If ImporteMov <> 0 Then
+                                        '    End If
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, ImporteMov, CveConceptoDSV, " ", " ", CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
+                                        'End If
-                                                ErrorMovtosDSV = True
+                                        '' Next
-                                            End If
+
-                                        End If
+                                        ''Se agregan los DSV DESCUENTOS
-                                        'End If
+                                        'ImporteMov = objVenta.Descuento
-
+                                        'If ImporteMov <> 0 Then
-                                        'Se agregan las CxC
+                                        '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, ImporteMov, CveConceptoDSV, " ", " ", CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
-                                        ImporteMov = objVenta.Total - TotalPagado
+                                        '        ErrorMovtosDSV = True
-                                        If ImporteMov <> 0 Then
+                                        '    End If
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, ImporteMov, CveConceptoAfectacion, " ", " ", CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
+                                        'End If
-                                                ErrorMovtosCxC = True
+                                        ''End If
-                                            End If
+
-                                        End If
+                                        ''Se agregan las CxC
-
+                                        'ImporteMov = objVenta.Total - TotalPagado
-                                        'Si hubo un pago agregarlo
+                                        'If ImporteMov <> 0 Then
-                                        ImporteMov = TotalPagado
+                                        '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, ImporteMov, CveConceptoAfectacion, " ", " ", CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
-                                        If ImporteMov <> 0 Then
+                                        '        ErrorMovtosCxC = True
-
+                                        '    End If
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, ImporteMov, 2, " ", " ", CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
+                                        'End If
-                                                ErrorMovtosCxC = True
+
-                                            End If
+                                        ''Si hubo un pago agregarlo
-                                        End If
+                                        'ImporteMov = TotalPagado
-                                        'Se agregan el Traslado de IVA
+                                        'If ImporteMov <> 0 Then
-                                        ImporteMov = objVenta.IVA
+
-                                        If ImporteMov <> 0 Then
+                                        '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, ImporteMov, 2, " ", " ", CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
-                                            Dim PorcentajeImpuesto As Decimal = 0
+                                        '        ErrorMovtosCxC = True
-                                            If objVenta.SubTotal > 0 Then
+                                        '    End If
-                                                PorcentajeImpuesto = (objVenta.IVA / objVenta.SubTotal)
+                                        'End If
-                                            End If
+                                        ''Se agregan el Traslado de IVA
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, ImporteMov, CveConceptoIVA, " ", " ", CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                        'ImporteMov = objVenta.IVA
-                                                ErrorMovtosTrasladoIVA = True
+                                        'If ImporteMov <> 0 Then
-                                            End If
+                                        '    Dim PorcentajeImpuesto As Decimal = 0
-                                        End If
+                                        '    If objVenta.SubTotal > 0 Then
+                                        '        PorcentajeImpuesto = (objVenta.IVA / objVenta.SubTotal)
+                                        '    End If
+                                        '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, ImporteMov, CveConceptoIVA, " ", " ", CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                        '        ErrorMovtosTrasladoIVA = True
+                                        '    End If
+                                        'End If
+
                                     End If
                                 End If
                             Else
@@ -1051,6 +1099,37 @@ Public Class WS_PuntoVenta
         Return CveVentas
     End Function
 
+
+
+    Private Function getFolio(TipoDoctoConsulta As String, CveEmpresa As Integer, CvesubProyecto As Integer) As String
+        Dim Respuesta As String = "-1"
+        Dim ObjFolios As New ClsGralFolios()
+
+
+
+
+
+        If ObjFolios.GetFolios(TipoDoctoConsulta, CveEmpresa) Then
+            GuardaLog($" GetFolios  ok  {ObjFolios.DtResultados.Rows.Count} . CvesubProyecto = {CvesubProyecto} .")
+            Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format("  CveSubProyecto = {0}  And Estado = 'Activo'", CvesubProyecto))
+            If DT.Rows.Count > 0 Then
+
+                Respuesta = DT.Rows(0)("FActual").ToString()
+
+
+
+            End If
+            DT.Dispose()
+
+        End If
+
+        ObjFolios.Dispose()
+
+        GuardaLog($" Folio Rem {Respuesta} .")
+        Return Respuesta
+
+    End Function
+
 #End Region