Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Compras/Compras.aspx.vb

@@ -2164,7 +2164,7 @@ Partial Class Compras_Compras
         If Msg <> "" Then
             Alert($"<b>El comprobante XML presenta las siguientes inconsistencias:</b> <br><br> {Msg}", TipoMensaje.MsgAdvertencia)
 
-            Tab.ActiveTabIndex = 0
+            TAB.ActiveTabIndex = 0
 
             ''''BLOQUEA ACCIONES''''
             BtnGuardar.Enabled = False
@@ -2839,7 +2839,7 @@ Partial Class Compras_Compras
                 'BLOQUEA OC
                 TxtOC.Enabled = False
                 ImgBtnBuscarOC.Visible = False
-                Tab.ActiveTabIndex = 0
+                TAB.ActiveTabIndex = 0
 
                 GvAnticiposSel.DataSource = dtnc
                 GvAnticiposSel.DataBind()
@@ -6634,24 +6634,24 @@ Partial Class Compras_Compras
                                                                 If CveTipoConcepto = 2 Then CveConceptoComplementario = 310
 
                                                                 If tipoCambioActual = 1 Then
-                                                                        IdCtaContable = CtaProveedor
+                                                                    IdCtaContable = CtaProveedor
-                                                                        CveCuenta = CveCuentaProveedor
+                                                                    CveCuenta = CveCuentaProveedor
-                                                                    Else
+                                                                Else
-                                                                        IdCtaContable = CtaProveedorComplementaria
+                                                                    IdCtaContable = CtaProveedorComplementaria
-                                                                        CveCuenta = CveCuentaProveedorComplementaria
+                                                                    CveCuenta = CveCuentaProveedorComplementaria
-                                                                        If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
+                                                                    If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
-                                                                            importeMN = importeMovimiento
+                                                                        importeMN = importeMovimiento
                                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, CveConceptoComplementario, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
                                                                         End If
                                                                     End If
-                                                                        IdCtaContable = CtaProveedorExtranjera
+                                                                    IdCtaContable = CtaProveedorExtranjera
-                                                                        CveCuenta = CveCuentaProveedorExtranjera
+                                                                    CveCuenta = CveCuentaProveedorExtranjera
-                                                                    End If
                                                                 End If
+                                                            End If
 
 
-                                                                Case 59 'Documentos
+                                                        Case 59 'Documentos
                                                             importeMovimiento = importeCreditos
                                                             importeMN = importeMovimiento * tipoCambioActual * Multiplicador
                                                             If ObjConta.GetRetCuenta(ConceptoContable, CveProveedor) Then
@@ -8839,13 +8839,19 @@ Partial Class Compras_Compras
                         If IVACompleto = False AndAlso UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
                             If sumaAmortizacionCompleto = CompraSaldo Then
                                 Dim PorcentajeImpuesto As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, True, TxtIVA.Text.ToDecimal, "", 14, "", Fecha, IdCtaIVAXAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+
-                                    ErrorMovtosCxP = 1
+
+                                If TxtIVA.Text.ToDecimal > 0 Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, True, TxtIVA.Text.ToDecimal, "", 14, "", Fecha, IdCtaIVAXAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                        ErrorMovtosCxP = 1
+                                    End If
+
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, False, TxtIVA.Text.ToDecimal, "", 19, "", Fecha, IdCtaIVAAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                        ErrorMovtosCxP = 1
+                                    End If
                                 End If
 
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, False, TxtIVA.Text.ToDecimal, "", 19, "", Fecha, IdCtaIVAAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+
-                                    ErrorMovtosCxP = 1
-                                End If
                             End If
                         End If
 
@@ -11634,7 +11640,7 @@ Partial Class Compras_Compras
 
 #Region "TAB - ACTIVOS FIJOS -AF"
     Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs)
-        Tab.ActiveTabIndex = 3
+        TAB.ActiveTabIndex = 3
 
         If GvAFInsumos.Rows.Count > 0 Then
             llenaDtsAF()
@@ -13706,7 +13712,7 @@ Partial Class Compras_Compras
         UpFacturar.Update()
 
         TabGenerales.Enabled = True
-        Tab.ActiveTabIndex = 0
+        TAB.ActiveTabIndex = 0
         UpTabs.Update()
 
         ImgClasificacion.Visible = False
@@ -14435,7 +14441,7 @@ Partial Class Compras_Compras
             'SI NO ES UNA COMPRA REGISTRADA = ENABLE FALSE TAB GENERALES, ACTIVE TAB OC
             If Not CveCompra > 0 Then
                 TabGenerales.Enabled = False
-                Tab.ActiveTabIndex = 2
+                TAB.ActiveTabIndex = 2
                 UpTabs.Update()
             End If
 
@@ -14995,7 +15001,7 @@ Partial Class Compras_Compras
         UpFacturar.Update()
 
         TabGenerales.Enabled = True
-        Tab.ActiveTabIndex = 0
+        TAB.ActiveTabIndex = 0
         UpTabs.Update()
 
 
@@ -15098,7 +15104,7 @@ Partial Class Compras_Compras
         UpFacturar.Update()
 
         TabGenerales.Enabled = True
-        Tab.ActiveTabIndex = 0
+        TAB.ActiveTabIndex = 0
         UpTabs.Update()
 
         ImgClasificacion.Visible = False

Contratos/CatContratosTipos.aspx.vb

@@ -66,8 +66,9 @@ Partial Class Contratos_CatContratosTipos
         Dim TipoContrato = GvContratos.Rows(e.RowIndex).FCTextBox("TxtTipoContrato").Text.Trim
         Dim Descripcion = GvContratos.Rows(e.RowIndex).FCTextBox("TxtDescripcion").Text.Trim
         Dim Clave = GvContratos.Rows(e.RowIndex).DataKey("CveContratoTipo").ToEntero
-        If Update.UpdateContratosTipos(Clave, TipoContrato, Descripcion, True, UsuarioActual.CveEmpresa) Then
+        If Update.UpdateContratosTipos(Clave, TipoContrato, Descripcion, True, UsuarioActual.CveUsuario) Then
             Alert("El Tipo de Contrato se actualizó correctamente.", TipoMensaje.MsgInformacion)
+            GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Nothing
         End If
         GvContratos.EditIndex = -1
         CargaDatos()

Empresas/Grales/Formatos/EntradaSalida.rdlc

@@ -21,7 +21,7 @@
               <Width>1.89819cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.87391cm</Width>
+              <Width>1.57864cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -320,7 +320,7 @@
                             </TextRun>
                           </TextRuns>
                           <Style>
-                            <TextAlign>Left</TextAlign>
+                            <TextAlign>Right</TextAlign>
                           </Style>
                         </Paragraph>
                       </Paragraphs>
@@ -522,9 +522,9 @@
         </TablixRowHierarchy>
         <DataSetName>DsInventarios</DataSetName>
         <Top>0.17639cm</Top>
-        <Left>0.12931cm</Left>
+        <Left>0.22456cm</Left>
         <Height>1.11096cm</Height>
-        <Width>17.80045cm</Width>
+        <Width>17.50518cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -549,7 +549,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Top>1.39318cm</Top>
-        <Left>0.16459cm</Left>
+        <Left>0.25984cm</Left>
         <Height>0.6cm</Height>
         <Width>11.36782cm</Width>
         <ZIndex>1</ZIndex>
@@ -567,7 +567,7 @@
     <Height>0.82291in</Height>
     <Style />
   </Body>
-  <Width>7.05896in</Width>
+  <Width>7.06771in</Width>
   <Page>
     <PageHeader>
       <Height>4.11151cm</Height>
@@ -669,8 +669,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox15</rd:DefaultName>
-          <Top>2.40854cm</Top>
+          <Top>2.34504cm</Top>
-          <Left>2.30482cm</Left>
+          <Left>2.43182cm</Left>
           <Height>0.6cm</Height>
           <Width>9.54145cm</Width>
           <ZIndex>3</ZIndex>
@@ -698,8 +698,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox18</rd:DefaultName>
-          <Top>3.14964cm</Top>
+          <Top>3.08614cm</Top>
-          <Left>2.30482cm</Left>
+          <Left>2.43182cm</Left>
           <Height>0.6cm</Height>
           <Width>9.54145cm</Width>
           <ZIndex>4</ZIndex>
@@ -730,8 +730,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox16</rd:DefaultName>
-          <Top>3.1605cm</Top>
+          <Top>3.097cm</Top>
-          <Left>0.14172cm</Left>
+          <Left>0.26872cm</Left>
           <Height>0.6cm</Height>
           <Width>2.11724cm</Width>
           <ZIndex>5</ZIndex>
@@ -765,8 +765,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>2.40854cm</Top>
+          <Top>2.34504cm</Top>
-          <Left>0.12931cm</Left>
+          <Left>0.25631cm</Left>
           <Height>0.6cm</Height>
           <Width>2.12965cm</Width>
           <ZIndex>6</ZIndex>
@@ -871,8 +871,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox4</rd:DefaultName>
-          <Top>3.16051cm</Top>
+          <Top>3.09701cm</Top>
-          <Left>12.17799cm</Left>
+          <Left>12.33674cm</Left>
           <Height>0.59999cm</Height>
           <Width>1.80326cm</Width>
           <ZIndex>9</ZIndex>
@@ -902,8 +902,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox6</rd:DefaultName>
-          <Top>2.40855cm</Top>
+          <Top>2.34505cm</Top>
-          <Left>13.98125cm</Left>
+          <Left>14.14cm</Left>
           <Height>0.6cm</Height>
           <Width>3.65324cm</Width>
           <ZIndex>10</ZIndex>
@@ -936,8 +936,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox32</rd:DefaultName>
-          <Top>3.16051cm</Top>
+          <Top>3.09701cm</Top>
-          <Left>13.98125cm</Left>
+          <Left>14.14cm</Left>
           <Height>0.59999cm</Height>
           <Width>3.65324cm</Width>
           <ZIndex>11</ZIndex>
@@ -968,8 +968,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
-          <Top>2.40855cm</Top>
+          <Top>2.34505cm</Top>
-          <Left>12.17799cm</Left>
+          <Left>12.33674cm</Left>
           <Height>0.59999cm</Height>
           <Width>1.80326cm</Width>
           <ZIndex>12</ZIndex>
@@ -1040,7 +1040,7 @@
         </Textbox>
         <Line Name="Line7">
           <Top>0.28886cm</Top>
-          <Left>12.07381cm</Left>
+          <Left>12.20081cm</Left>
           <Height>0cm</Height>
           <Width>4.95004cm</Width>
           <ZIndex>2</ZIndex>
@@ -1068,7 +1068,7 @@
           </Paragraphs>
           <rd:DefaultName>Textbox31</rd:DefaultName>
           <Top>0.42997cm</Top>
-          <Left>11.67694cm</Left>
+          <Left>11.80394cm</Left>
           <Height>0.6cm</Height>
           <Width>5.95755cm</Width>
           <ZIndex>3</ZIndex>
@@ -1104,7 +1104,7 @@
           </Paragraphs>
           <rd:DefaultName>Textbox5</rd:DefaultName>
           <Top>1.49022cm</Top>
-          <Left>11.83688cm</Left>
+          <Left>11.96388cm</Left>
           <Height>0.6cm</Height>
           <Width>2.90426cm</Width>
           <ZIndex>4</ZIndex>
@@ -1140,7 +1140,7 @@
           </Paragraphs>
           <rd:DefaultName>Textbox33</rd:DefaultName>
           <Top>1.49022cm</Top>
-          <Left>14.74114cm</Left>
+          <Left>14.86814cm</Left>
           <Height>0.6cm</Height>
           <Width>2.89335cm</Width>
           <ZIndex>5</ZIndex>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -821,7 +821,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenOrigen.SelectedValue}").ToEntero()
 
-            Dim CveAlmacenVirtual As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
+            Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
             CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
             FolioVirtualSalida = ObjInventario.Folio