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

2020-01-31 10:28:29 -07:00
parent 8bb64b71c9 470e95349b
commit b032c91ca7
4 changed files with 1377 additions and 1370 deletions
--- a/Compras/Compras.aspx.vb
+++ b/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
-                                                                        CveCuenta = CveCuentaProveedor
-                                                                    Else
-                                                                        IdCtaContable = CtaProveedorComplementaria
-                                                                        CveCuenta = CveCuentaProveedorComplementaria
-                                                                        If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
-                                                                            importeMN = importeMovimiento
+                                                                    IdCtaContable = CtaProveedor
+                                                                    CveCuenta = CveCuentaProveedor
+                                                                Else
+                                                                    IdCtaContable = CtaProveedorComplementaria
+                                                                    CveCuenta = CveCuentaProveedorComplementaria
+                                                                    If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
+                                                                        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
-                                                                        CveCuenta = CveCuentaProveedorExtranjera
-                                                                    End If
+                                                                    IdCtaContable = CtaProveedorExtranjera
+                                                                    CveCuenta = CveCuentaProveedorExtranjera
                                                                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
--- a/Contratos/CatContratosTipos.aspx.vb
+++ b/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()
--- a/Empresas/Grales/Formatos/EntradaSalida.rdlc
+++ b/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>
-          <Left>2.30482cm</Left>
+          <Top>2.34504cm</Top>
+          <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>
-          <Left>2.30482cm</Left>
+          <Top>3.08614cm</Top>
+          <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>
-          <Left>0.14172cm</Left>
+          <Top>3.097cm</Top>
+          <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>
-          <Left>0.12931cm</Left>
+          <Top>2.34504cm</Top>
+          <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>
-          <Left>12.17799cm</Left>
+          <Top>3.09701cm</Top>
+          <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>
-          <Left>13.98125cm</Left>
+          <Top>2.34505cm</Top>
+          <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>
-          <Left>13.98125cm</Left>
+          <Top>3.09701cm</Top>
+          <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>
-          <Left>12.17799cm</Left>
+          <Top>2.34505cm</Top>
+          <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>
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/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