AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Rene Molina
2019-09-30 10:57:41 -07:00
parent ec8b2ee287 f887fe8684
commit a04c34a609
18 changed files with 464 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files

160
AC/Reportes/RepSituacionFinanciera.rdlc
View File

@@ -215,7 +215,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName> <rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -323,7 +323,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior1</rd:DefaultName> <rd:DefaultName>ImporteAnterior1</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -375,10 +375,17 @@
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter> <Filter>
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression> <FilterExpression>=Fields!Orden.Value</FilterExpression>
<Operator>Equal</Operator> <Operator>Like</Operator>
<FilterValues> <FilterValues>
<FilterValue DataType="Integer">1</FilterValue> <FilterValue>=IIf(Parameters!CveEmpresa.Value = 48, "00011*", "011*")</FilterValue>
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue DataType="Integer">3</FilterValue>
</FilterValues> </FilterValues>
</Filter> </Filter>
</Filters> </Filters>
@@ -538,7 +545,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName> <rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -647,7 +654,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName> <rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -696,10 +703,17 @@
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter> <Filter>
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression> <FilterExpression>=Fields!Orden.Value</FilterExpression>
<Operator>Equal</Operator> <Operator>Like</Operator>
<FilterValues> <FilterValues>
<FilterValue DataType="Integer">2</FilterValue> <FilterValue>=IIf(Parameters!CveEmpresa.Value = 48, "00012*", "012*")</FilterValue>
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue DataType="Integer">3</FilterValue>
</FilterValues> </FilterValues>
</Filter> </Filter>
</Filters> </Filters>
@@ -720,13 +734,13 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>5.4cm</Width> <Width>5.10007cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.1825cm</Width> <Width>2.1825cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.8753cm</Width> <Width>2.17523cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -863,7 +877,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName> <rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -972,7 +986,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName> <rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1021,12 +1035,19 @@
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter> <Filter>
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression> <FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
<Operator>Equal</Operator> <Operator>NotEqual</Operator>
<FilterValues> <FilterValues>
<FilterValue DataType="Integer">3</FilterValue> <FilterValue DataType="Integer">3</FilterValue>
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter>
<FilterExpression>=Fields!Orden.Value</FilterExpression>
<Operator>Like</Operator>
<FilterValues>
<FilterValue>=IIf(Parameters!CveEmpresa.Value = 48, "00021*", "021*")</FilterValue>
</FilterValues>
</Filter>
</Filters> </Filters>
<Top>2.6512cm</Top> <Top>2.6512cm</Top>
<Left>10.88047cm</Left> <Left>10.88047cm</Left>
@@ -1045,13 +1066,13 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>5.4cm</Width> <Width>5.14411cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.1825cm</Width> <Width>2.1825cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.8753cm</Width> <Width>2.13119cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -1185,7 +1206,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName> <rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1291,7 +1312,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName> <rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1340,10 +1361,17 @@
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter> <Filter>
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression> <FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
<Operator>Equal</Operator> <Operator>NotEqual</Operator>
<FilterValues> <FilterValues>
<FilterValue DataType="Integer">4</FilterValue> <FilterValue DataType="Integer">3</FilterValue>
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!Orden.Value</FilterExpression>
<Operator>Like</Operator>
<FilterValues>
<FilterValue>=IIf(Parameters!CveEmpresa.Value = 48, "00022*", "022*")</FilterValue>
</FilterValues> </FilterValues>
</Filter> </Filter>
</Filters> </Filters>
@@ -1432,13 +1460,13 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>5.44404cm</Width> <Width>5.18815cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.13846cm</Width> <Width>2.13846cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.8753cm</Width> <Width>2.13119cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -1454,7 +1482,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>CAPITRAL CONTABLE</Value> <Value>CAPITAL CONTABLE</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
@@ -1574,7 +1602,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName> <rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1682,7 +1710,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName> <rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1731,13 +1759,10 @@
</FilterValues> </FilterValues>
</Filter> </Filter>
<Filter> <Filter>
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression> <FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
<Operator>In</Operator> <Operator>NotEqual</Operator>
<FilterValues> <FilterValues>
<FilterValue DataType="Integer">5</FilterValue> <FilterValue DataType="Integer">3</FilterValue>
<FilterValue DataType="Integer">6</FilterValue>
<FilterValue DataType="Integer">7</FilterValue>
<FilterValue DataType="Integer">8</FilterValue>
</FilterValues> </FilterValues>
</Filter> </Filter>
</Filters> </Filters>
@@ -1777,7 +1802,7 @@
<Top>7.52554cm</Top> <Top>7.52554cm</Top>
<Left>10.92451cm</Left> <Left>10.92451cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>9.14911cm</Width> <Width>9.41376cm</Width>
<ZIndex>7</ZIndex> <ZIndex>7</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -1852,7 +1877,7 @@
<Width>2.55292cm</Width> <Width>2.55292cm</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1945,7 +1970,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Variables!TotalPatrimonioHAnterior.Value</Value> <Value>=Variables!TotalPatrimonioHAnterior.Value + Variables!TotalPatrimonioCAnterior.Value</Value>
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -1961,12 +1986,12 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName> <rd:DefaultName>Textbox45</rd:DefaultName>
<Top>10.22837cm</Top> <Top>10.22837cm</Top>
<Left>20.1786cm</Left> <Left>17.77089cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>0.15967cm</Width> <Width>2.56738cm</Width>
<ZIndex>12</ZIndex> <ZIndex>12</ZIndex>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -1985,7 +2010,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Variables!TotalPatrimonioHActual.Value</Value> <Value>=Variables!TotalPatrimonioHActual.Value + Variables!TotalPatrimonioCActual.Value</Value>
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -2003,7 +2028,7 @@
<Top>10.22837cm</Top> <Top>10.22837cm</Top>
<Left>14.06207cm</Left> <Left>14.06207cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>5.94014cm</Width> <Width>3.63827cm</Width>
<ZIndex>13</ZIndex> <ZIndex>13</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -2038,9 +2063,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName> <rd:DefaultName>Textbox45</rd:DefaultName>
<Top>11.31317cm</Top> <Top>11.31317cm</Top>
<Left>10.88929cm</Left> <Left>10.77464cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>4.57974cm</Width> <Width>4.55974cm</Width>
<ZIndex>14</ZIndex> <ZIndex>14</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -2075,12 +2100,12 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName> <rd:DefaultName>Textbox45</rd:DefaultName>
<Top>11.31317cm</Top> <Top>11.31317cm</Top>
<Left>20.1786cm</Left> <Left>17.82243cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>0.15967cm</Width> <Width>2.51584cm</Width>
<ZIndex>15</ZIndex> <ZIndex>15</ZIndex>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -2115,9 +2140,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName> <rd:DefaultName>Textbox45</rd:DefaultName>
<Top>11.31317cm</Top> <Top>11.31317cm</Top>
<Left>15.46903cm</Left> <Left>15.33438cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>4.53318cm</Width> <Width>2.48805cm</Width>
<ZIndex>16</ZIndex> <ZIndex>16</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -2189,12 +2214,12 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName> <rd:DefaultName>Textbox45</rd:DefaultName>
<Top>6.57056cm</Top> <Top>6.57056cm</Top>
<Left>20.1786cm</Left> <Left>17.77089cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>0.19495cm</Width> <Width>2.60266cm</Width>
<ZIndex>18</ZIndex> <ZIndex>18</ZIndex>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -2231,7 +2256,7 @@
<Top>6.57056cm</Top> <Top>6.57056cm</Top>
<Left>14.06207cm</Left> <Left>14.06207cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>5.94014cm</Width> <Width>3.63827cm</Width>
<ZIndex>19</ZIndex> <ZIndex>19</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -2549,7 +2574,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName> <rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -2658,7 +2683,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName> <rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility> <Visibility>
<Hidden>true</Hidden> <Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility> </Visibility>
<Style> <Style>
<Border> <Border>
@@ -2700,10 +2725,10 @@
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Filters> <Filters>
<Filter> <Filter>
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression> <FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
<Operator>Equal</Operator> <Operator>NotEqual</Operator>
<FilterValues> <FilterValues>
<FilterValue DataType="Integer">9</FilterValue> <FilterValue DataType="Integer">3</FilterValue>
</FilterValues> </FilterValues>
</Filter> </Filter>
</Filters> </Filters>
@@ -2712,6 +2737,9 @@
<Height>1.65cm</Height> <Height>1.65cm</Height>
<Width>10.70896cm</Width> <Width>10.70896cm</Width>
<ZIndex>25</ZIndex> <ZIndex>25</ZIndex>
<Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,True,False)</Hidden>
</Visibility>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -3022,10 +3050,10 @@
</ReportParameters> </ReportParameters>
<Variables> <Variables>
<Variable Name="TotalActivoActual"> <Variable Name="TotalActivoActual">
<Value>=Sum(iif(Fields!Tipo.Value.ToString() = "A" OR Fields!Tipo.Value.ToString() = "B" OR Fields!Tipo.Value.ToString() = "C" OR Cint(Fields!TipoCuenta.Value) = 9 , Fields!ImporteActual.Value, 0) , "DataSet1")</Value> <Value>=Sum(iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE", Fields!ImporteActual.Value, 0) , "DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalActivoAnterior"> <Variable Name="TotalActivoAnterior">
<Value>=Sum( iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE" OR Cint(Fields!TipoCuenta.value) = 9 , Fields!ImporteAnterior.Value, 0), "DataSet1")</Value> <Value>=Sum(iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE", Fields!ImporteAnterior.Value, 0), "DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPasivoActual"> <Variable Name="TotalPasivoActual">
<Value>=Sum( iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" , Fields!ImporteActual.Value, 0), "DataSet1")</Value> <Value>=Sum( iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" , Fields!ImporteActual.Value, 0), "DataSet1")</Value>
@@ -3035,22 +3063,22 @@
<Writable>true</Writable> <Writable>true</Writable>
</Variable> </Variable>
<Variable Name="TotalPatrimonioCActual"> <Variable Name="TotalPatrimonioCActual">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" , Fields!ImporteActual.Value, 0),"DataSet1")</Value> <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PATRIMONIO CONTRIBUIDO" , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPatrimonioHActual"> <Variable Name="TotalPatrimonioHActual">
<Value>=Variables!TotalPatrimonioCActual.Value</Value> <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PATRIMONIO GENERADO" , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPatrimonioCAnterior"> <Variable Name="TotalPatrimonioCAnterior">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" , Fields!ImporteAnterior.Value, 0),"DataSet1")</Value> <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PATRIMONIO CONTRIBUIDO" , Fields!ImporteAnterior.Value, 0),"DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPatrimonioHAnterior"> <Variable Name="TotalPatrimonioHAnterior">
<Value>=Variables!TotalPatrimonioCAnterior.Value</Value> <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PATRIMONIO GENERADO" , Fields!ImporteAnterior.Value, 0),"DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalpasivoYHaciendaActual"> <Variable Name="TotalpasivoYHaciendaActual">
<Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value</Value> <Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value+Variables!TotalPatrimonioCActual.Value</Value>
</Variable> </Variable>
<Variable Name="TotalpasivoYHaciendaAnterior"> <Variable Name="TotalpasivoYHaciendaAnterior">
<Value>=Variables!TotalPatrimonioHAnterior.Value+ Variables!TotalPasivoAnterior.Value</Value> <Value>=Variables!TotalPasivoAnterior.Value+Variables!TotalPatrimonioHAnterior.Value+Variables!TotalPatrimonioCAnterior.Value</Value>
</Variable> </Variable>
</Variables> </Variables>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>

4
App_Code/ClsContPAQi.vb
View File

@@ -3741,7 +3741,7 @@ Public Class ClsContPAQi
StrSQL.Append(" ") StrSQL.Append(" ")
StrSQL.Append(" SELECT * ") StrSQL.Append(" SELECT * ")
StrSQL.Append(" FROM ( ") StrSQL.Append(" FROM ( ")
StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, D.Level, C.CtaMayor as TipoCuenta, ") StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, D.Level, ")
StrSQL.Append(" CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalActual ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, @FechaF, @Tipo, @SegmentoNegocio), 0) END AS ImporteActual, ") StrSQL.Append(" CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalActual ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, @FechaF, @Tipo, @SegmentoNegocio), 0) END AS ImporteActual, ")
StrSQL.Append(" CASE ") StrSQL.Append(" CASE ")
StrSQL.Append(" WHEN @Tipo < 0 THEN CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalAnterior ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, DATEADD(yy,-1,@FechaF), @Tipo, @SegmentoNegocio), 0) END ") StrSQL.Append(" WHEN @Tipo < 0 THEN CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalAnterior ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, DATEADD(yy,-1,@FechaF), @Tipo, @SegmentoNegocio), 0) END ")
@@ -3806,7 +3806,7 @@ Public Class ClsContPAQi
StrSQL.Append(" ") StrSQL.Append(" ")
StrSQL.Append(" SELECT * ") StrSQL.Append(" SELECT * ")
StrSQL.Append(" FROM ( ") StrSQL.Append(" FROM ( ")
StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, Level, C.CtaMayor as TipoCuenta, ") StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, Level, ")
StrSQL.Append(" CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalActual ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, @FechaF, @Tipo, @SegmentoNegocio), 0) END AS ImporteActual, ") StrSQL.Append(" CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalActual ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, @FechaF, @Tipo, @SegmentoNegocio), 0) END AS ImporteActual, ")
StrSQL.Append(" CASE ") StrSQL.Append(" CASE ")
StrSQL.Append(" WHEN @Tipo < 0 AND @UsaAnterior > 0 THEN CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalAnterior ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, DATEADD(yyyy,-1,@FechaI), DATEADD(yyyy,-1,@FechaF), @Tipo, @SegmentoNegocio), 0) END ") StrSQL.Append(" WHEN @Tipo < 0 AND @UsaAnterior > 0 THEN CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalAnterior ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, DATEADD(yyyy,-1,@FechaI), DATEADD(yyyy,-1,@FechaF), @Tipo, @SegmentoNegocio), 0) END ")

2
App_Code/ClsGenerales.vb
View File

@@ -117,7 +117,7 @@ Public Class ClsGenerales
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error registrar el cierre de conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
CveConexion = 0 CveConexion = 0
End If End If

24
App_Code/ClsInventarios.vb
View File

@@ -2443,6 +2443,30 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function End Function
Public Function GetInventarioFisicoContador(CveInventarioFisico As Integer, CveUsuario As Integer, CodigoBarras As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_InventarioFisicoContadorGET")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
.Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
Me.OnError("Ocurrió un error al Obtener los detalles del Inventario Físico(Contador).", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
Catch ex As Exception
OnError("Ocurrió un error al Obtener los detalles del Inventario Físico(Contador).", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region #End Region
#Region "I N V E N T A R I O - F I S I C O - R E S U L T A D O" #Region "I N V E N T A R I O - F I S I C O - R E S U L T A D O"

2
App_Code/ClsLeyendasFiscales.vb
View File

@@ -39,7 +39,7 @@ Public Class ClsLeyendasFiscales
Try Try
SqlConexion.Open() SqlConexion.Open()
Catch ex As Exception Catch ex As Exception
Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
End Try End Try
SqlAdapter = New SqlDataAdapter("PA_LeyendasFiscalesGet", SqlConexion) SqlAdapter = New SqlDataAdapter("PA_LeyendasFiscalesGet", SqlConexion)
ConexionAdd() ConexionAdd()

2
App_Code/ClsMetodosPagos.vb
View File

@@ -41,7 +41,7 @@ Public Class ClsMetodosPagos
Try Try
SqlConexion.Open() SqlConexion.Open()
Catch ex As Exception Catch ex As Exception
Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
End Try End Try
SqlAdapter = New SqlDataAdapter("", SqlConexion) SqlAdapter = New SqlDataAdapter("", SqlConexion)
ConexionAdd() ConexionAdd()

10
App_Code/ClsRH.vb
View File

@@ -2086,19 +2086,25 @@ Public Class ClsRH
Return Retorno Return Retorno
End Function End Function
Public Function AddConcepto(CvePersonal As Integer, CveConcepto As Integer, Importe As Double, TipoAplicacion As Integer, NoPagos As Integer, SaldoIni As Double, CveUsuario As Integer) As Boolean Public Function AddConcepto(CvePersonal As Integer, CveConcepto As Integer, Importe As Double, TipoAplicacion As Integer, NoPagos As Integer, SaldoIni As Double, CveUsuario As Integer, Optional CveSistema As Integer = -1, Optional Descripcion01 As String = "", Optional Descripcion02 As String = "", Optional strFInicioAplicacion As String = "", Optional strFFinAplicacion As String = "", Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
SqlDataAdapter("PA_RH_PersonalConceptosAddUpd") SqlDataAdapter("PA_RH_PersonalConceptosAddUpd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
.Add("@CveSistema", SqlDbType.Int).Value = CveSistema
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Importe", SqlDbType.Money).Value = Importe .Add("@Importe", SqlDbType.Money).Value = Importe
.Add("@TipoAplicacion", SqlDbType.Int).Value = TipoAplicacion .Add("@TipoAplicacion", SqlDbType.Int).Value = TipoAplicacion
.Add("@NoPagos", SqlDbType.Int).Value = NoPagos .Add("@NoPagos", SqlDbType.Int).Value = NoPagos
.Add("@SaldoIni", SqlDbType.Money).Value = SaldoIni .Add("@SaldoIni", SqlDbType.Money).Value = SaldoIni
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Descripcion01", SqlDbType.VarChar).Value = Descripcion01
.Add("@Descripcion02", SqlDbType.VarChar).Value = Descripcion02
.Add("@strFInicioAplicacion", SqlDbType.VarChar).Value = strFInicioAplicacion
.Add("@strFFinAplicacion", SqlDbType.VarChar).Value = strFFinAplicacion
.Add("@Estatus", SqlDbType.Int).Value = Estatus
End With End With
Try Try

4
Ashx/SIGWeb.ashx
View File

@@ -219,7 +219,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim CvePS = IfNull(context.Request("cveps"), "0").ToString.ToEntero Dim CvePS = IfNull(context.Request("cveps"), "0").ToString.ToEntero
Dim objInv As New ClsInventarios Dim objInv As New ClsInventarios
If objInv.GetExistenciasPS(CvePS, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then If objInv.GetExistenciasProducto(CvePS, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
' limpio los almacenes donde no tiene ningun producto existencia ' limpio los almacenes donde no tiene ningun producto existencia
For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1 For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1
@@ -300,7 +300,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
End If End If
If usuario.Empresa.Funcionalidad(558) = 1 Then If usuario.Empresa.Funcionalidad(558) = "1" Then
Try Try
Dim NobreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName Dim NobreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName
DtPSRetorno = DtPSRetorno.FiltraParametros($"{NobreFiltroColumna} > 0") DtPSRetorno = DtPSRetorno.FiltraParametros($"{NobreFiltroColumna} > 0")

39
Inventarios/InventarioFisicoDetalle.aspx
View File

@@ -244,6 +244,45 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpBuscar" runat="server" RenderMode="Inline" ViewStateMode="Inherit" UpdateMode="Conditional">
<ContentTemplate>
<div class="col-md-3">
<asp:Panel ID="Panel1" runat="server" DefaultButton="BtnBuscarCodVarras">
<div class="portlet smmallpadding light bordered" id="Div2" runat="server">
<div class="portlet-title">
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
<div class="caption uppercase" style="position: relative;">
<i class="fa fa-info-circle"></i>Consultar Producto
</div>
</div>
<div class="portlet-body">
<div class="row" style="margin-top: 5px;">
<label class="col-sm-4">Código.Barras</label>
<div class="col-sm-4">
<asp:TextBox runat="server" CssClass="form-control" ID="TxtConCodigoVarras"></asp:TextBox>
</div>
<div class="col-sm-4">
<asp:Button ID="BtnBuscarCodVarras" OnClick="BtnBuscarCodVarras_Click" runat="server" Text="Consultar" class="btn btn-primary" Enabled="true" />
</div>
</div>
<div class="row" style="margin-top: 5px;">
<%--<label class="col-sm-4 "> </label>--%>
<div class="col-sm-12" style="text-align: center">
<h4>
<asp:Label ID="LblContador" CssClass="bold" runat="server" Text=""></asp:Label>
</h4>
</div>
</div>
</div>
</div>
</asp:Panel>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div> </div>
<asp:UpdatePanel ID="UPPInventario" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPPInventario" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>

92
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -277,42 +277,44 @@ Partial Class Inventarios_InventarioFisicoDetalle
If SerieLote <> "" And (SerieLote.ToUpper = dr("Codigo").ToString.ToUpper Or SerieLote.ToUpper = dr("CodigoBarras").ToString.ToUpper) Then If SerieLote <> "" And (SerieLote.ToUpper = dr("Codigo").ToString.ToUpper Or SerieLote.ToUpper = dr("CodigoBarras").ToString.ToUpper) Then
Alert($"La serie indicada <b>{SerieLote}</b> coincide con el codigo o codigo de barras del producto. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Alert($"La serie indicada <b>{SerieLote}</b> coincide con el codigo o codigo de barras del producto. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
Dim Inventarios As New ClsInventarios
Dim Consulto As Boolean = False Dim Consulto As Boolean = False
If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario) Then Using Inventarios As New ClsInventarios
If GvIFDUltimoRegistrado.Rows.Count > 0 Then
GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario) Then
GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString If GvIFDUltimoRegistrado.Rows.Count > 0 Then
GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = TxtCodigoSerie.Text.Trim GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCantidadProducto.Text.Trim GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString
Else GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = TxtCodigoSerie.Text.Trim
Consulto = True GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCantidadProducto.Text.Trim
If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then Else
If Inventarios.DtResultados.Rows.Count > 0 Then Consulto = True
GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then
Else If Inventarios.DtResultados.Rows.Count > 0 Then
GvIFDUltimoRegistrado.DataSource = Nothing GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
End If Else
Else GvIFDUltimoRegistrado.DataSource = Nothing
Alert("Ocurrió un error al consultar el inventario fisico. Por favor vuelva a intentar.", TipoMensaje.MsgError) End If
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") Else
End If Alert("Ocurrió un error al consultar el inventario fisico. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
TxtCodigoBarras.Text = "" End If
TxtCodigoSerie.Text = "" End If
TxtCodigo.Text = "" TxtCodigoBarras.Text = ""
TxtCantidadProducto.Text = "1" TxtCodigoSerie.Text = ""
RegistraScript("playsonidito('beep-07.wav')") TxtCodigo.Text = ""
Else TxtCantidadProducto.Text = "1"
TxtCodigoSerie.Text = "" RegistraScript("playsonidito('beep-07.wav')")
End If Else
TxtCodigoBarras.Focus() TxtCodigoSerie.Text = ""
Inventarios.Dispose() End If
TxtCodigoBarras.Focus()
End Using
If Consulto Then GvIFDUltimoRegistrado.DataBind() If Consulto Then GvIFDUltimoRegistrado.DataBind()
Else Else
TxtCodigoBarras.Text = "" TxtCodigoBarras.Text = ""
@@ -469,4 +471,24 @@ Partial Class Inventarios_InventarioFisicoDetalle
#End Region #End Region
Protected Sub BtnBuscarCodVarras_Click(sender As Object, e As EventArgs)
Dim CodigoBarras As String = If(TxtConCodigoVarras.Text.Trim <> "", TxtConCodigoVarras.Text.Trim, "-1").Replace("'", "''")
LblContador.Text = "No se encontraron resultados"
Using Inventarios As New ClsInventarios
If Inventarios.GetInventarioFisicoContador(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero, CodigoBarras) Then
'Cantidad,@CodigoBarras CodigoBarras
If (Inventarios.DtResultados.Rows.Count > 0) Then
Dim drow As DataRow = Inventarios.DtResultados.Rows(0)
If (drow("Cantidad").ToString().ToDouble() > 0) Then
LblContador.Text = String.Format("Contador={0:##,###.##}", drow("Cantidad"))
Else
End If
End If
End If
End Using
UpBuscar.Update()
' UsuarioActual.CveUsuario
'
End Sub
End Class End Class

4
OS/Asignaciones.aspx
View File

@@ -155,8 +155,8 @@
<span class="caption-subject bold uppercase">Ordenes Sin Asignar</span> <span class="caption-subject bold uppercase">Ordenes Sin Asignar</span>
<div class="row" id="DivAsignar" runat="server" style="margin-left: 15px;"> <div class="row" id="DivAsignar" runat="server" style="margin-left: 15px;">
<asp:DropDownList ID="DdlTecnico" CssClass="form-control input-sm select2me" runat="server" DataTextField="Nombre" DataValueField="CveUsuario"></asp:DropDownList> <asp:DropDownList ID="DdlTecnico" CssClass="form-control input-sm select2me" runat="server" DataTextField="Nombre" Visible="true" DataValueField="CveUsuario"></asp:DropDownList>
<asp:Button ID="BtnAsignar" CssClass="btn btn-primary" runat="server" Text="Asignar" ValidationGroup="Asignar" /> <asp:Button ID="BtnAsignar" CssClass="btn btn-primary" runat="server" Text="Asignar" ValidationGroup="Asignar" Visible="true" />
</div> </div>
</div> </div>
<div class="actions"> <div class="actions">

1
OS/Asignaciones.aspx.vb
View File

@@ -48,6 +48,7 @@ Partial Class OS_Asignaciones
BtnAsignar.Visible = False BtnAsignar.Visible = False
End If End If
End If End If
ObjEstatusPermisos.Dispose()
End If End If
End Sub End Sub

2
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -191,7 +191,7 @@ Partial Class OS_CatEstatusOrdenServicio
Protected Sub CargaGridEstatusUsuarios() Protected Sub CargaGridEstatusUsuarios()
GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
GvEstatusUsuarios.DataBind() GvEstatusUsuarios.DataBind()
UPPEmp.Update() 'UPPEmp.Update()
End Sub End Sub
Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click

68
OS/OrdenesServicios.aspx.vb
View File

@@ -222,6 +222,14 @@ Partial Class OS_OrdenesServicios
ViewState("TmpDTCuentaEquipo") = value ViewState("TmpDTCuentaEquipo") = value
End Set End Set
End Property End Property
Private Property EstatusOSDelUsuario As DataTable
Get
Return CType(ViewState("EstatusOSDelUsuario"), DataTable)
End Get
Set(value As DataTable)
ViewState("EstatusOSDelUsuario") = value
End Set
End Property
Private Property MensajeAlert As StringBuilder Private Property MensajeAlert As StringBuilder
Get Get
Return CType(ViewState("MensajeAlert"), StringBuilder) Return CType(ViewState("MensajeAlert"), StringBuilder)
@@ -263,6 +271,16 @@ Partial Class OS_OrdenesServicios
CreaDtSolicitarMateriales() CreaDtSolicitarMateriales()
CveSub = -1 CveSub = -1
'Carga estatus 'Carga estatus
Dim ObjEstatusPermisos As New ClsOS
If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
EstatusOSDelUsuario = ObjEstatusPermisos.DtResultados
Dim PermisoEstatus As New DataTable
PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1")
If PermisoEstatus.Rows.Count = 0 Then
UpGuardar.Visible = False
End If
End If
ObjEstatusPermisos.Dispose()
CargaEstatusOS(2) CargaEstatusOS(2)
'Carga cliente 'Carga cliente
@@ -298,7 +316,7 @@ Partial Class OS_OrdenesServicios
'Carga OS 'Carga OS
If CveOS > 0 Then If CveOS > 0 Then
CargaDatos() CargaDatos()
PermisosSegunEstatus() 'PermisosSegunEstatus()
CargaDetalles() CargaDetalles()
CargaMateriales() CargaMateriales()
@@ -324,15 +342,6 @@ Partial Class OS_OrdenesServicios
hdnEsThickbox.Value = "S" hdnEsThickbox.Value = "S"
hdnClientIDLink.Value = "NoDefinido" hdnClientIDLink.Value = "NoDefinido"
Dim ObjEstatusPermisos As New ClsOS
If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Dim PermisoEstatus As New DataTable
PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1")
If PermisoEstatus.Rows.Count = 0 Then
UpGuardar.Visible = False
End If
End If
ObjEstatusPermisos.Dispose()
End If End If
End Sub End Sub
@@ -367,13 +376,13 @@ Partial Class OS_OrdenesServicios
TmpDT.AcceptChanges() TmpDT.AcceptChanges()
End Sub End Sub
Protected Sub DdlEstatusOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusOS.SelectedIndexChanged Protected Sub DdlEstatusOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusOS.SelectedIndexChanged
Dim TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "CveEstatusOrdenServicio ASC") Dim tipoDeEstatusSeleccionado As String = EstatusOSDelUsuario.FiltroPrimero(String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue)).Item("TipoEstatusTexto").ToString
Select Case TipoEstatus.ToEntero Select Case tipoDeEstatusSeleccionado
Case 2 Case "Inicial"
'Proceso 'Proceso
Case 3 Case "Terminado"
'Terminada 'Terminada
'Checar que todos los detalles esten terminados para poder cambiar a terminada 'Checar que todos los detalles esten terminados para poder cambiar a terminada
If TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero > 0 Then If TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero > 0 Then
@@ -382,18 +391,23 @@ Partial Class OS_OrdenesServicios
'Regresar a estatus Atendiendo 'Regresar a estatus Atendiendo
'DdlEstatusOS.SelectedValue = "2" 'DdlEstatusOS.SelectedValue = "2"
End If End If
Case 4 ' Case 4
'Cancelada ' 'Cancelada
Case 5 ' Case 5
'Entregada ' 'Entregada
Guardar(True) ' Guardar(True)
Case "Cancelada"
Dim CanceladoOrdenMinimo As String = EstatusOSDelUsuario.FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 5", "Orden ASC").ToString
DdlEstatusOS.SelectedValue = CanceladoOrdenMinimo
'DdlEstatusOS.SelectedIndex = CanceladoOrdenMinimo
End Select End Select
'CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero) ''CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero)
PermisosSegunEstatus() 'PermisosSegunEstatus()
GvPS.DataSource = TmpDT 'GvPS.DataSource = TmpDT
GvPS.DataBind() 'GvPS.DataBind()
End Sub End Sub
#End Region #End Region
@@ -647,9 +661,9 @@ Partial Class OS_OrdenesServicios
End Sub End Sub
Private Sub CargaEstatusOS(ValorSeleccionado As Integer) Private Sub CargaEstatusOS(ValorSeleccionado As Integer)
DdlEstatusOS.Items.Clear() DdlEstatusOS.Items.Clear()
DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) DdlEstatusOS.DataSource = EstatusOSDelUsuario
DdlEstatusOS.DataBind() DdlEstatusOS.DataBind()
DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "CveEstatusOrdenServicio ASC") DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC")
End Sub End Sub
Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList) Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList)
Objeto.Items.Clear() Objeto.Items.Clear()
@@ -1455,7 +1469,9 @@ Partial Class OS_OrdenesServicios
Dim DetallesPendientes As Integer = TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero Dim DetallesPendientes As Integer = TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero
If DetallesPendientes = 0 Then Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero
If DetallesPendientes = 0 AndAlso TipoEstatusSeleccionado = 2 Then
'Se estatus de OS a TERMINADO 'Se estatus de OS a TERMINADO
DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC")) DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC"))
DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs) DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs)

95
RH/Personal.aspx
View File

@@ -1248,12 +1248,16 @@
</div> </div>
<div class="col-md-8"> <div class="col-md-8">
<div class="portlet light bordered xspadding"> <div class="portlet light bordered xspadding" id="porletconceptos">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-user-following font-green"></i> <i class="fa fa-bookmark font-green"></i>
<span class="caption-subject bold uppercase">Conceptos</span> <span class="caption-subject bold uppercase">Conceptos</span>
</div> </div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
</div>
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
<asp:Button ID="BtnGuardarConceptos" runat="server" Text="Guardar Conceptos" class="btn btn-primary" /> <asp:Button ID="BtnGuardarConceptos" runat="server" Text="Guardar Conceptos" class="btn btn-primary" />
@@ -1261,7 +1265,9 @@
</div> </div>
</div> </div>
<div class="portlet-body form"> <div class="portlet-body form">
<asp:GridView ID="GVConceptos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePersonal,CveConcepto,CvePersonalConcepto,Obligatorio" Width="550px" CssClass="table table-striped table-advance table-hover" Style="text-align: center;" GridLines="None"> <asp:GridView ID="GVConceptos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePersonal,CveConcepto,CvePersonalConcepto,Obligatorio"
data-height="300"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Aplica</HeaderTemplate> <HeaderTemplate>Aplica</HeaderTemplate>
@@ -1309,6 +1315,10 @@
<asp:ListItem Text="Saldo" Value="1"></asp:ListItem> <asp:ListItem Text="Saldo" Value="1"></asp:ListItem>
<asp:ListItem Text="No. Pagos" Value="2"></asp:ListItem> <asp:ListItem Text="No. Pagos" Value="2"></asp:ListItem>
<asp:ListItem Text="Permanente" Value="2600"></asp:ListItem> <asp:ListItem Text="Permanente" Value="2600"></asp:ListItem>
<asp:ListItem Text="Infonavit(Movto Permanente)" Value="5000"></asp:ListItem>
<asp:ListItem Text="Infonavit(Porcentaje)" Value="5001"></asp:ListItem>
<asp:ListItem Text="Infonavit(Factor Descuento)" Value="5002"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija)" Value="5003"></asp:ListItem>
</asp:DropDownList></td> </asp:DropDownList></td>
<td width="65px"> <td width="65px">
<asp:Literal ID="LtlNoPago" runat="server" Text='<%# If(IsNumeric(Eval("NoPago")), Eval("NoPago").ToString + "/", "")%>' Visible="false"></asp:Literal> <asp:Literal ID="LtlNoPago" runat="server" Text='<%# If(IsNumeric(Eval("NoPago")), Eval("NoPago").ToString + "/", "")%>' Visible="false"></asp:Literal>
@@ -1331,6 +1341,85 @@
</div> </div>
</div> </div>
<div class="portlet light bordered xspadding" id="porletInfonavit">
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-home font-green"></i>
<span class="caption-subject bold uppercase">Infonavit</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
</div>
<div class="actions">
<div class="btn-group">
<asp:Button ID="BtnGuardarInfornavit" OnClick="BtnGuardarInfornavit_Click" runat="server" Text="Guardar" class="btn btn-primary" />
</div>
</div>
</div>
<div class="portlet-body form">
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtInfoNumCredito" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtInfoNumCredito" runat="server" Text="Número de crédito"></asp:Label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtInfoDescripcion" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtInfoDescripcion" runat="server" Text="Descripción"></asp:Label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:Label AssociatedControlID="DdlInfoTipoAplicacion" runat="server" Text="Tipo Aplicación"></asp:Label>
<asp:DropDownList ID="DdlInfoTipoAplicacion" AutoPostBack="true" runat="server" Class="form-control select2me" width="100%">
<asp:ListItem Text="Infonavit(Movto Permanente)" Value="5000"></asp:ListItem>
<asp:ListItem Text="Infonavit(Porcentaje)" Value="5001"></asp:ListItem>
<asp:ListItem Text="Infonavit(Factor Descuento)" Value="5002"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija)" Value="5003"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtInfoValor" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtInfoValor" runat="server" Text="Valor"></asp:Label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright " style="width: 120px !important; display: inline-block;">
<asp:TextBox CssClass="form-control" ID="TxtInfoFechaInicio" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtInfoFechaInicio" runat="server" Text="Fecha Inicio"></asp:Label>
<asp:RequiredFieldValidator runat="server" ID="REQFechaF" ControlToValidate="TxtInfoFechaInicio" ErrorMessage="Debe ingresar una fecha" ValidationGroup="vgEstFin" />
<ajax:MaskedEditExtender ID="MaskedEditExtender4" runat="server" TargetControlID="TxtInfoFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEEFechaF" TargetControlID="TxtInfoFechaInicio" PopupButtonID="ImgFechaFEstFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<div style="display: inline-block; vertical-align: top; padding-top: 10px;">
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaFEstFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
</div>
<div class="col-md-3">
<div class="form-group form-md-line-input input-iconright">
<asp:Label AssociatedControlID="ChkInfo" runat="server" Text="Estado (Activo)"></asp:Label>
</div>
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkInfo" CssClass="chksino" runat="server" Text =" " />
</div>
</div>
</div>
</div>
<div class="portlet box blue-hoki" style="width: 100%;"> <div class="portlet box blue-hoki" style="width: 100%;">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption"> <div class="caption">

37
RH/Personal.aspx.vb
View File

@@ -2036,6 +2036,17 @@ Partial Class RH_Personal
Dim ObjPersonal As New ClsRH Dim ObjPersonal As New ClsRH
If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
GVConceptos.DataSource = ObjPersonal.DtResultados GVConceptos.DataSource = ObjPersonal.DtResultados
Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3")
If Not IsNothing(frow) Then
TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
DdlInfoTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString())
Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero
TxtInfoDescripcion.Text = String.Format("{0}", frow("Descripcion02"))
TxtInfoNumCredito.Text = String.Format("{0}", frow("Descripcion01"))
TxtInfoFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
ChkInfo.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
End If
Else Else
GVConceptos.DataSource = Nothing GVConceptos.DataSource = Nothing
End If End If
@@ -2093,6 +2104,32 @@ Partial Class RH_Personal
End If End If
End Sub End Sub
Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs)
Dim importe As Decimal = TxtInfoValor.Text.ToDecimal()
Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero
Dim NoPagos As Integer = 0
Dim SaldoIni As Decimal = 0
Dim descripcion02 As String = TxtInfoDescripcion.Text
Dim descripcion01 As String = TxtInfoNumCredito.Text
Dim fecha As String = TxtInfoFechaInicio.Text.Replace("_", "")
Dim estatus As Integer = If(ChkInfo.Checked, 1, 0)
If fecha.Length > 8 Then
fecha = fecha.ToDateTime().ToString("yyyy/MM/dd")
Else
fecha = ""
End If
Dim OcurrioError As Boolean = False
Using ObjPersonal As New ClsRH
If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 3, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then
OcurrioError = True
End If
End Using
If Not OcurrioError Then
Alert("Se actualizo el calculo de infonavit")
CarcaConceptosNomina()
End If
End Sub
Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click
If CvePersonal > 0 Then If CvePersonal > 0 Then
Dim ObjPersonal As New ClsRH Dim ObjPersonal As New ClsRH

8
Ventas/Ventas.aspx
View File

@@ -2952,14 +2952,14 @@
<asp:TextBox ID="TxtImporteCredito" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox> <asp:TextBox ID="TxtImporteCredito" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtImporteCredito" FilterType="Custom, Numbers" ValidChars=".," /> <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtImporteCredito" FilterType="Custom, Numbers" ValidChars=".," />
</div> </div>
<div class="col-md-6" runat="server" id="DivDdlCuentaTarjetaCredito" > <div class="col-md-6" runat="server" id="DivDdlCuentaTarjetaCredito" style="margin-right:-40px" >
<asp:DropDownList ID="DdlCuentaTarjetaCredito" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList> <asp:DropDownList ID="DdlCuentaTarjetaCredito" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlCuentaTarjetaCredito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlCuentaTarjetaCredito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
<div class="col-md-3" runat="server" id="DivMesesSinIntereses" visible="false"> <div class="col-md-3" runat="server" id="DivMesesSinIntereses" visible="false" style="text-align:right;">
<asp:DropDownList ID="DDlMesesSinIntereses" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"> <asp:DropDownList ID="DDlMesesSinIntereses" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="80%">
<asp:ListItem Value="-1">Meses</asp:ListItem> <asp:ListItem Value="-1">MSI</asp:ListItem>
<asp:ListItem Value="3">3M</asp:ListItem> <asp:ListItem Value="3">3M</asp:ListItem>
<asp:ListItem Value="6">6M</asp:ListItem> <asp:ListItem Value="6">6M</asp:ListItem>
<asp:ListItem Value="9">9M</asp:ListItem> <asp:ListItem Value="9">9M</asp:ListItem>

99
Ventas/Ventas.aspx.vb
View File

@@ -2436,7 +2436,7 @@ Partial Class Ventas
If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then
DivMesesSinIntereses.Visible = True DivMesesSinIntereses.Visible = True
DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-3") DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4")
DivContadoOtros.Visible = True DivContadoOtros.Visible = True
End If End If
@@ -4426,10 +4426,14 @@ Partial Class Ventas
If CveVenta > 0 Then If CveVenta > 0 Then
DivAlmacen.Visible = False DivAlmacen.Visible = False
Else Else
Dim DTAlmacen As DataTable
ddlAlmacen.Items.Clear() ddlAlmacen.Items.Clear()
ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}") DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}")
ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1")) ddlAlmacen.DataSource = DTAlmacen
ddlAlmacen.SelectedValue = "-1" If DTAlmacen Is Nothing Or DTAlmacen.Rows.Count = 0 Then
ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
ddlAlmacen.SelectedValue = "-1"
End If
ddlAlmacen.DataBind() ddlAlmacen.DataBind()
If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}").Rows.Count > 0 Then If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}").Rows.Count > 0 Then
ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
@@ -5705,6 +5709,10 @@ Partial Class Ventas
Private Sub GvInv_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound Private Sub GvInv_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
e.Row.FCCheckBox("cbInv").Checked = True
End If
'SERIE ALMACEN 'SERIE ALMACEN
If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 Then If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 Then
If CveVenta > 0 Then If CveVenta > 0 Then
@@ -6189,7 +6197,7 @@ Partial Class Ventas
End If End If
If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then
Alert("Tiene que seleccionar un almacen", TipoMensaje.MsgAdvertencia) Alert("Tiene que seleccionar un almacén para la salida de almacén", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
@@ -16143,7 +16151,7 @@ Partial Class Ventas
Case 1 'CREDITO Case 1 'CREDITO
TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
Case 2 'CONTADO Case 2 'CONTADO
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Then If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then
DivContado.Visible = True DivContado.Visible = True
TxtImporteContado.Text = TxtTotal.Text TxtImporteContado.Text = TxtTotal.Text
End If End If
@@ -22595,50 +22603,55 @@ Partial Class Ventas
#Region " EMITIR DOCUMENTO NUEVO " #Region " EMITIR DOCUMENTO NUEVO "
Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String) Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)
Dim FolioFijo As Integer = 0 If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 And RBLPago.SelectedValue.ToEntero = 2 Then
'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
If EraCotizacion = 1 Then Else
If Not PreparaFacturarCotizacion() Then Dim FolioFijo As Integer = 0
EraCotizacion = 0
DdlTipoComprobante.SelectedValue = "Cot" 'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION
Exit Sub If EraCotizacion = 1 Then
If Not PreparaFacturarCotizacion() Then
EraCotizacion = 0
DdlTipoComprobante.SelectedValue = "Cot"
Exit Sub
End If
End If End If
End If
'CARGA LO PENDIENTE POR FACTURAR DE REMISION 'CARGA LO PENDIENTE POR FACTURAR DE REMISION
If DdlTipoComprobante.SelectedValue = "Rem" Then If DdlTipoComprobante.SelectedValue = "Rem" Then
If Not PreparaFacturarRemision() Then If Not PreparaFacturarRemision() Then
DdlTipoComprobante.SelectedValue = "Rem" DdlTipoComprobante.SelectedValue = "Rem"
Exit Sub Exit Sub
End If
End If End If
End If
'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2 'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2
If DdlTipoComprobante.SelectedValue = "Pd2" Then If DdlTipoComprobante.SelectedValue = "Pd2" Then
If Not PreparaFacturarPedido() Then If Not PreparaFacturarPedido() Then
DdlTipoComprobante.SelectedValue = "Pd2" DdlTipoComprobante.SelectedValue = "Pd2"
Exit Sub Exit Sub
End If
End If End If
'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO AUTORIZACION
If DdlTipoComprobante.SelectedValue = "PA" Then ' que tome el folio fijo de la autorización
FolioFijo = TxtFolio.Text.ToEntero
ViewState("FolioActual") = FolioFijo
ViewState("EstablecioFolio") = True
TxtFolio.Text = FolioFijo.ToString
End If
Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue
DdlTipoComprobante.SelectedValue = TipoDoctoNuevo
TxtFecha.Text = Now.ToString
TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
TxtFechaEjecucion.Text = Now.ToString
If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO
EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO
End If End If
'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO AUTORIZACION
If DdlTipoComprobante.SelectedValue = "PA" Then ' que tome el folio fijo de la autorización
FolioFijo = TxtFolio.Text.ToEntero
ViewState("FolioActual") = FolioFijo
ViewState("EstablecioFolio") = True
TxtFolio.Text = FolioFijo.ToString
End If
Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue
DdlTipoComprobante.SelectedValue = TipoDoctoNuevo
TxtFecha.Text = Now.ToString
TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
TxtFechaEjecucion.Text = Now.ToString
If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO
EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO
End Sub End Sub
#End Region #End Region