Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -215,7 +215,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>ImporteAnterior</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -323,7 +323,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>ImporteAnterior1</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -375,10 +375,17 @@
|
||||
</FilterValues>
|
||||
</Filter>
|
||||
<Filter>
|
||||
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression>
|
||||
<Operator>Equal</Operator>
|
||||
<FilterExpression>=Fields!Orden.Value</FilterExpression>
|
||||
<Operator>Like</Operator>
|
||||
<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>
|
||||
</Filter>
|
||||
</Filters>
|
||||
@@ -538,7 +545,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>ImporteAnterior</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -647,7 +654,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox12</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -696,10 +703,17 @@
|
||||
</FilterValues>
|
||||
</Filter>
|
||||
<Filter>
|
||||
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression>
|
||||
<Operator>Equal</Operator>
|
||||
<FilterExpression>=Fields!Orden.Value</FilterExpression>
|
||||
<Operator>Like</Operator>
|
||||
<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>
|
||||
</Filter>
|
||||
</Filters>
|
||||
@@ -720,13 +734,13 @@
|
||||
<TablixBody>
|
||||
<TablixColumns>
|
||||
<TablixColumn>
|
||||
<Width>5.4cm</Width>
|
||||
<Width>5.10007cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>2.1825cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>1.8753cm</Width>
|
||||
<Width>2.17523cm</Width>
|
||||
</TablixColumn>
|
||||
</TablixColumns>
|
||||
<TablixRows>
|
||||
@@ -863,7 +877,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>ImporteAnterior</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -972,7 +986,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox12</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -1021,12 +1035,19 @@
|
||||
</FilterValues>
|
||||
</Filter>
|
||||
<Filter>
|
||||
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression>
|
||||
<Operator>Equal</Operator>
|
||||
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
|
||||
<Operator>NotEqual</Operator>
|
||||
<FilterValues>
|
||||
<FilterValue DataType="Integer">3</FilterValue>
|
||||
</FilterValues>
|
||||
</Filter>
|
||||
<Filter>
|
||||
<FilterExpression>=Fields!Orden.Value</FilterExpression>
|
||||
<Operator>Like</Operator>
|
||||
<FilterValues>
|
||||
<FilterValue>=IIf(Parameters!CveEmpresa.Value = 48, "00021*", "021*")</FilterValue>
|
||||
</FilterValues>
|
||||
</Filter>
|
||||
</Filters>
|
||||
<Top>2.6512cm</Top>
|
||||
<Left>10.88047cm</Left>
|
||||
@@ -1045,13 +1066,13 @@
|
||||
<TablixBody>
|
||||
<TablixColumns>
|
||||
<TablixColumn>
|
||||
<Width>5.4cm</Width>
|
||||
<Width>5.14411cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>2.1825cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>1.8753cm</Width>
|
||||
<Width>2.13119cm</Width>
|
||||
</TablixColumn>
|
||||
</TablixColumns>
|
||||
<TablixRows>
|
||||
@@ -1185,7 +1206,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>ImporteAnterior</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -1291,7 +1312,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox12</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -1340,10 +1361,17 @@
|
||||
</FilterValues>
|
||||
</Filter>
|
||||
<Filter>
|
||||
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression>
|
||||
<Operator>Equal</Operator>
|
||||
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
|
||||
<Operator>NotEqual</Operator>
|
||||
<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>
|
||||
</Filter>
|
||||
</Filters>
|
||||
@@ -1432,13 +1460,13 @@
|
||||
<TablixBody>
|
||||
<TablixColumns>
|
||||
<TablixColumn>
|
||||
<Width>5.44404cm</Width>
|
||||
<Width>5.18815cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>2.13846cm</Width>
|
||||
</TablixColumn>
|
||||
<TablixColumn>
|
||||
<Width>1.8753cm</Width>
|
||||
<Width>2.13119cm</Width>
|
||||
</TablixColumn>
|
||||
</TablixColumns>
|
||||
<TablixRows>
|
||||
@@ -1454,7 +1482,7 @@
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value>CAPITRAL CONTABLE</Value>
|
||||
<Value>CAPITAL CONTABLE</Value>
|
||||
<Style>
|
||||
<FontSize>8pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
@@ -1574,7 +1602,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>ImporteAnterior</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -1682,7 +1710,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox12</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -1731,13 +1759,10 @@
|
||||
</FilterValues>
|
||||
</Filter>
|
||||
<Filter>
|
||||
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression>
|
||||
<Operator>In</Operator>
|
||||
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
|
||||
<Operator>NotEqual</Operator>
|
||||
<FilterValues>
|
||||
<FilterValue DataType="Integer">5</FilterValue>
|
||||
<FilterValue DataType="Integer">6</FilterValue>
|
||||
<FilterValue DataType="Integer">7</FilterValue>
|
||||
<FilterValue DataType="Integer">8</FilterValue>
|
||||
<FilterValue DataType="Integer">3</FilterValue>
|
||||
</FilterValues>
|
||||
</Filter>
|
||||
</Filters>
|
||||
@@ -1777,7 +1802,7 @@
|
||||
<Top>7.52554cm</Top>
|
||||
<Left>10.92451cm</Left>
|
||||
<Height>0.6cm</Height>
|
||||
<Width>9.14911cm</Width>
|
||||
<Width>9.41376cm</Width>
|
||||
<ZIndex>7</ZIndex>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -1852,7 +1877,7 @@
|
||||
<Width>2.55292cm</Width>
|
||||
<ZIndex>9</ZIndex>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -1945,7 +1970,7 @@
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value>=Variables!TotalPatrimonioHAnterior.Value</Value>
|
||||
<Value>=Variables!TotalPatrimonioHAnterior.Value + Variables!TotalPatrimonioCAnterior.Value</Value>
|
||||
<Style>
|
||||
<FontFamily>Verdana</FontFamily>
|
||||
<FontSize>8pt</FontSize>
|
||||
@@ -1961,12 +1986,12 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox45</rd:DefaultName>
|
||||
<Top>10.22837cm</Top>
|
||||
<Left>20.1786cm</Left>
|
||||
<Left>17.77089cm</Left>
|
||||
<Height>0.6cm</Height>
|
||||
<Width>0.15967cm</Width>
|
||||
<Width>2.56738cm</Width>
|
||||
<ZIndex>12</ZIndex>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -1985,7 +2010,7 @@
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value>=Variables!TotalPatrimonioHActual.Value</Value>
|
||||
<Value>=Variables!TotalPatrimonioHActual.Value + Variables!TotalPatrimonioCActual.Value</Value>
|
||||
<Style>
|
||||
<FontFamily>Verdana</FontFamily>
|
||||
<FontSize>8pt</FontSize>
|
||||
@@ -2003,7 +2028,7 @@
|
||||
<Top>10.22837cm</Top>
|
||||
<Left>14.06207cm</Left>
|
||||
<Height>0.6cm</Height>
|
||||
<Width>5.94014cm</Width>
|
||||
<Width>3.63827cm</Width>
|
||||
<ZIndex>13</ZIndex>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -2038,9 +2063,9 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox45</rd:DefaultName>
|
||||
<Top>11.31317cm</Top>
|
||||
<Left>10.88929cm</Left>
|
||||
<Left>10.77464cm</Left>
|
||||
<Height>0.6cm</Height>
|
||||
<Width>4.57974cm</Width>
|
||||
<Width>4.55974cm</Width>
|
||||
<ZIndex>14</ZIndex>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -2075,12 +2100,12 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox45</rd:DefaultName>
|
||||
<Top>11.31317cm</Top>
|
||||
<Left>20.1786cm</Left>
|
||||
<Left>17.82243cm</Left>
|
||||
<Height>0.6cm</Height>
|
||||
<Width>0.15967cm</Width>
|
||||
<Width>2.51584cm</Width>
|
||||
<ZIndex>15</ZIndex>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -2115,9 +2140,9 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox45</rd:DefaultName>
|
||||
<Top>11.31317cm</Top>
|
||||
<Left>15.46903cm</Left>
|
||||
<Left>15.33438cm</Left>
|
||||
<Height>0.6cm</Height>
|
||||
<Width>4.53318cm</Width>
|
||||
<Width>2.48805cm</Width>
|
||||
<ZIndex>16</ZIndex>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -2189,12 +2214,12 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox45</rd:DefaultName>
|
||||
<Top>6.57056cm</Top>
|
||||
<Left>20.1786cm</Left>
|
||||
<Left>17.77089cm</Left>
|
||||
<Height>0.6cm</Height>
|
||||
<Width>0.19495cm</Width>
|
||||
<Width>2.60266cm</Width>
|
||||
<ZIndex>18</ZIndex>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -2231,7 +2256,7 @@
|
||||
<Top>6.57056cm</Top>
|
||||
<Left>14.06207cm</Left>
|
||||
<Height>0.6cm</Height>
|
||||
<Width>5.94014cm</Width>
|
||||
<Width>3.63827cm</Width>
|
||||
<ZIndex>19</ZIndex>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -2549,7 +2574,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>ImporteAnterior</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -2658,7 +2683,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox12</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -2700,10 +2725,10 @@
|
||||
<DataSetName>DataSet1</DataSetName>
|
||||
<Filters>
|
||||
<Filter>
|
||||
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression>
|
||||
<Operator>Equal</Operator>
|
||||
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
|
||||
<Operator>NotEqual</Operator>
|
||||
<FilterValues>
|
||||
<FilterValue DataType="Integer">9</FilterValue>
|
||||
<FilterValue DataType="Integer">3</FilterValue>
|
||||
</FilterValues>
|
||||
</Filter>
|
||||
</Filters>
|
||||
@@ -2712,6 +2737,9 @@
|
||||
<Height>1.65cm</Height>
|
||||
<Width>10.70896cm</Width>
|
||||
<ZIndex>25</ZIndex>
|
||||
<Visibility>
|
||||
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,True,False)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
@@ -3022,10 +3050,10 @@
|
||||
</ReportParameters>
|
||||
<Variables>
|
||||
<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 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 Name="TotalPasivoActual">
|
||||
<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>
|
||||
</Variable>
|
||||
<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 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 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 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 Name="TotalpasivoYHaciendaActual">
|
||||
<Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value</Value>
|
||||
<Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value+Variables!TotalPatrimonioCActual.Value</Value>
|
||||
</Variable>
|
||||
<Variable Name="TotalpasivoYHaciendaAnterior">
|
||||
<Value>=Variables!TotalPatrimonioHAnterior.Value+ Variables!TotalPasivoAnterior.Value</Value>
|
||||
<Value>=Variables!TotalPasivoAnterior.Value+Variables!TotalPatrimonioHAnterior.Value+Variables!TotalPatrimonioCAnterior.Value</Value>
|
||||
</Variable>
|
||||
</Variables>
|
||||
<rd:ReportUnitType>Cm</rd:ReportUnitType>
|
||||
|
||||
@@ -3741,7 +3741,7 @@ Public Class ClsContPAQi
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" SELECT * ")
|
||||
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 ")
|
||||
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(" SELECT * ")
|
||||
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 ")
|
||||
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 ")
|
||||
|
||||
@@ -2443,6 +2443,30 @@ Public Class ClsInventarios
|
||||
Return Retorno
|
||||
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
|
||||
|
||||
#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"
|
||||
|
||||
@@ -39,7 +39,7 @@ Public Class ClsLeyendasFiscales
|
||||
Try
|
||||
SqlConexion.Open()
|
||||
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
|
||||
SqlAdapter = New SqlDataAdapter("PA_LeyendasFiscalesGet", SqlConexion)
|
||||
ConexionAdd()
|
||||
|
||||
@@ -41,7 +41,7 @@ Public Class ClsMetodosPagos
|
||||
Try
|
||||
SqlConexion.Open()
|
||||
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
|
||||
SqlAdapter = New SqlDataAdapter("", SqlConexion)
|
||||
ConexionAdd()
|
||||
|
||||
@@ -2086,19 +2086,25 @@ Public Class ClsRH
|
||||
Return Retorno
|
||||
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
|
||||
|
||||
SqlDataAdapter("PA_RH_PersonalConceptosAddUpd")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
|
||||
.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("@TipoAplicacion", SqlDbType.Int).Value = TipoAplicacion
|
||||
.Add("@NoPagos", SqlDbType.Int).Value = NoPagos
|
||||
.Add("@SaldoIni", SqlDbType.Money).Value = SaldoIni
|
||||
.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
|
||||
|
||||
Try
|
||||
|
||||
@@ -6201,7 +6201,7 @@ Partial Class Compras_Compras
|
||||
If ObjConta.GetRetCuenta(ConceptoContabilizacionMEComp, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContableMEComp = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||
End If
|
||||
|
||||
Dim CveMovimientoAlmacen As Integer = -1
|
||||
|
||||
'If importeMovimiento <> 0 Then
|
||||
Select Case ConceptoContabilizacion
|
||||
@@ -6209,11 +6209,12 @@ Partial Class Compras_Compras
|
||||
Dim SumatoriaOCINV = 0.0D, Importe176 = 0.0D, ImporteME176 = 0.0D, ImporteMN176 = 0.0D, Importe228 = 0.0D, ImporteME228 = 0.0D, ImporteMN228 = 0.0D, Importe229 = 0.0D, ImporteME229 = 0.0D, ImporteMN229 = 0.0D, ImporteCI176 = 0.0D
|
||||
For Each Dr As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND ISNULL(CveTipoPS,0) = 2").Rows
|
||||
If ObjOC.OrdenesCompraDetalleCostoPP(Dr("CveOrdenCompraDetalle").ToString.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count = 1 Then
|
||||
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text} OC: {ObjOC.DtResultados.FiltroPrimeroValor("Folio").ToString}"
|
||||
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text} OC: {ObjOC.DtResultados.FiltroPrimeroValor("Folio").ToString} Inv:{ObjOC.DtResultados.FiltroPrimeroValor("FolioAlmacen").ToString}"
|
||||
Importe176 = ObjOC.DtResultados.FiltroPrimeroValor("Importe176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN176").ToDecimal * Dr("Cantidad").ToString.ToDecimal
|
||||
Importe228 = ObjOC.DtResultados.FiltroPrimeroValor("Importe228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN228").ToDecimal * Dr("Cantidad").ToString.ToDecimal
|
||||
Importe229 = ObjOC.DtResultados.FiltroPrimeroValor("Importe229").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME229 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME229").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN229 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN229").ToDecimal * Dr("Cantidad").ToString.ToDecimal
|
||||
ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI176").ToDecimal
|
||||
CveMovimientoAlmacen = ObjOC.DtResultados.FiltroPrimeroValor("CveMovimientoAlmacen").ToEntero
|
||||
Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal
|
||||
'RMF. falta verificar el costo indirecto de la OC
|
||||
If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||
@@ -6221,8 +6222,8 @@ Partial Class Compras_Compras
|
||||
CostoIndirectoAcum176 += ImporteCI176
|
||||
'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
|
||||
SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN228 + ImporteMN229 - ImporteCI176)
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe228, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN228, ImporteME:=ImporteME228, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, Contabilizable:=SeContabiliza) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe229, Referencia, ConceptoContabilizacionMEComp, Concepto, FechaMovimiento, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN229, ImporteME:=ImporteME229, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, Contabilizable:=SeContabiliza) Then
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe228, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN228, ImporteME:=ImporteME228, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=Dr("CveMovimientoAlmacen").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe229, Referencia, ConceptoContabilizacionMEComp, Concepto, FechaMovimiento, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN229, ImporteME:=ImporteME229, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=Dr("CveMovimientoAlmacen").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
Exit For
|
||||
End If
|
||||
@@ -6234,7 +6235,7 @@ Partial Class Compras_Compras
|
||||
CostoIndirectoAcum176 += ImporteCI176
|
||||
'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
|
||||
SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN176 - ImporteCI176)
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=Dr("CveMovimientoAlmacen").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
Exit For
|
||||
End If
|
||||
@@ -14295,6 +14296,7 @@ Partial Class Compras_Compras
|
||||
DTOCTemp.Columns.Add("IEPSPSIVATC", GetType(Double))
|
||||
DTOCTemp.Columns.Add("RetIVATC", GetType(Double))
|
||||
DTOCTemp.Columns.Add("RetISRTC", GetType(Double))
|
||||
DTOCTemp.Columns.Add("FolioAlmacen", GetType(String))
|
||||
For Each Dr As DataRow In DTOCTemp.Rows
|
||||
Dr("PUTC") = Dr("Importe")
|
||||
Dr("DescuentoTC") = Dr("Descuento")
|
||||
@@ -18591,6 +18593,7 @@ Partial Class Compras_Compras
|
||||
'DtInvOCDiferencias.Columns.Add("ImporteMovtoDLLS", GetType(Double))
|
||||
DtInvOCDiferencias.Columns.Add("CveAlmacen", GetType(Integer))
|
||||
DtInvOCDiferencias.Columns.Add("CveMovimiento", GetType(Integer))
|
||||
DtInvOCDiferencias.Columns.Add("FolioAlmacen", GetType(String))
|
||||
DtInvOCDiferencias.Columns.Add("TipoCambioAjuste", GetType(Double))
|
||||
DtInvOCDiferencias.Columns.Add("ConceptoSalida", GetType(Integer))
|
||||
DtInvOCDiferencias.Columns.Add("PS", GetType(String))
|
||||
@@ -18614,6 +18617,7 @@ Partial Class Compras_Compras
|
||||
DrInvOCDiferencias("FolioOC") = dr2("FolioOC").ToString
|
||||
DrInvOCDiferencias("CveProveedor") = dr2("CveProveedorOC").ToString.ToEntero
|
||||
DrInvOCDiferencias("PS") = dr2("PS").ToString
|
||||
DrInvOCDiferencias("FolioAlmacen") = dr2("FolioAlmacen").ToString
|
||||
|
||||
If DdlOCVinculaInv.SelectedValue.ToEntero.Contiene(205) Then
|
||||
DrInvOCDiferencias("TipoCambioAjuste") = 0
|
||||
@@ -18724,7 +18728,7 @@ Partial Class Compras_Compras
|
||||
SerieFolio = $"OC: {DrDiferencias("FolioOC").ToString}"
|
||||
CveProveedor = DrDiferencias("CveProveedor").ToString.ToEntero
|
||||
ProveedorNombre = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {CveProveedor}").ToString
|
||||
Dim ConceptoPartida As String = String.Format("{0} OC# {1}", ProveedorNombre, DrDiferencias("FolioOC"))
|
||||
Dim ConceptoPartida As String = String.Format("{0} OC: {1} Inv: {2}", ProveedorNombre, DrDiferencias("FolioOC"), DrDiferencias("FolioAlmacen"))
|
||||
|
||||
ConceptoSalida = DrDiferencias("ConceptoSalida").ToString.ToEntero
|
||||
CveAlmacen = DrDiferencias("CveAlmacen").ToString.ToEntero
|
||||
|
||||
@@ -85,8 +85,10 @@ Partial Class Contabilidad_OCDetalleAlmacen
|
||||
Dim Folio As String = GvDrow.DataKey("Folio").ToString
|
||||
|
||||
|
||||
Dim CveCuenta176 As Integer = 55169
|
||||
Dim CveCuenta176 As Integer = 0
|
||||
Dim IdCtaCuenta176 As Integer = 1245
|
||||
Dim IdCtaCuenta228 As Integer = 1247
|
||||
Dim IdCtaCuenta229 As Integer = 1249
|
||||
|
||||
Dim CveCuenta177 As Integer = 55294
|
||||
Dim IdCtaCuenta177 As Integer = 1148
|
||||
@@ -95,7 +97,7 @@ Partial Class Contabilidad_OCDetalleAlmacen
|
||||
|
||||
|
||||
If Chk IsNot Nothing AndAlso Chk.Checked Then
|
||||
CvePrePoliza = ObjConta.AddPrePolizas(modulo, 3, Diferencia, Diferencia, CveMoneda, Fecha, Referencia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
|
||||
CvePrePoliza = ObjConta.AddPrePolizas(modulo, 74, Diferencia, Diferencia, CveMoneda, Fecha, Referencia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
|
||||
|
||||
GvDrow.Cells(1).Text = CvePrePoliza.ToString
|
||||
mensaje = mensaje & $"CvePrePoliza {CvePrePoliza } OC: {Folio} Importe :{Diferencia} <br>"
|
||||
@@ -104,7 +106,7 @@ Partial Class Contabilidad_OCDetalleAlmacen
|
||||
If CvePrePoliza > 0 Then
|
||||
|
||||
If Cargo > Abono Then
|
||||
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 176, Referencia, Fecha, IdCtaCuenta176, -1, ImporteME:=0, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
|
||||
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 228, Referencia, Fecha, IdCtaCuenta228, -1, ImporteME:=Diferencia, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
|
||||
|
||||
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, Referencia, 177, Referencia, Fecha, IdCtaCuenta177, -1, ImporteME:=-0, ImporteMX:=-Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
|
||||
ContadorProcesados = ContadorProcesados + 1
|
||||
|
||||
@@ -244,6 +244,45 @@
|
||||
</ContentTemplate>
|
||||
</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>
|
||||
<asp:UpdatePanel ID="UPPInventario" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
@@ -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
|
||||
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
|
||||
End If
|
||||
|
||||
|
||||
Dim Inventarios As New ClsInventarios
|
||||
End If
|
||||
|
||||
|
||||
Dim Consulto As Boolean = False
|
||||
If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario) Then
|
||||
If GvIFDUltimoRegistrado.Rows.Count > 0 Then
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = TxtCodigoSerie.Text.Trim
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCantidadProducto.Text.Trim
|
||||
Else
|
||||
Consulto = True
|
||||
If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then
|
||||
If Inventarios.DtResultados.Rows.Count > 0 Then
|
||||
GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
|
||||
Else
|
||||
GvIFDUltimoRegistrado.DataSource = Nothing
|
||||
End If
|
||||
Else
|
||||
Alert("Ocurrió un error al consultar el inventario fisico. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
||||
End If
|
||||
End If
|
||||
TxtCodigoBarras.Text = ""
|
||||
TxtCodigoSerie.Text = ""
|
||||
TxtCodigo.Text = ""
|
||||
TxtCantidadProducto.Text = "1"
|
||||
RegistraScript("playsonidito('beep-07.wav')")
|
||||
Else
|
||||
TxtCodigoSerie.Text = ""
|
||||
End If
|
||||
TxtCodigoBarras.Focus()
|
||||
Inventarios.Dispose()
|
||||
Using Inventarios As New ClsInventarios
|
||||
|
||||
If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario) Then
|
||||
If GvIFDUltimoRegistrado.Rows.Count > 0 Then
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = TxtCodigoSerie.Text.Trim
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCantidadProducto.Text.Trim
|
||||
Else
|
||||
Consulto = True
|
||||
If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then
|
||||
If Inventarios.DtResultados.Rows.Count > 0 Then
|
||||
GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
|
||||
Else
|
||||
GvIFDUltimoRegistrado.DataSource = Nothing
|
||||
End If
|
||||
Else
|
||||
Alert("Ocurrió un error al consultar el inventario fisico. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
||||
End If
|
||||
End If
|
||||
TxtCodigoBarras.Text = ""
|
||||
TxtCodigoSerie.Text = ""
|
||||
TxtCodigo.Text = ""
|
||||
TxtCantidadProducto.Text = "1"
|
||||
RegistraScript("playsonidito('beep-07.wav')")
|
||||
Else
|
||||
TxtCodigoSerie.Text = ""
|
||||
End If
|
||||
TxtCodigoBarras.Focus()
|
||||
End Using
|
||||
|
||||
If Consulto Then GvIFDUltimoRegistrado.DataBind()
|
||||
Else
|
||||
TxtCodigoBarras.Text = ""
|
||||
@@ -469,4 +471,24 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
|
||||
#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
|
||||
|
||||
@@ -1248,12 +1248,16 @@
|
||||
</div>
|
||||
|
||||
<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="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>
|
||||
</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="BtnGuardarConceptos" runat="server" Text="Guardar Conceptos" class="btn btn-primary" />
|
||||
@@ -1261,7 +1265,9 @@
|
||||
</div>
|
||||
</div>
|
||||
<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>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Aplica</HeaderTemplate>
|
||||
@@ -1309,6 +1315,10 @@
|
||||
<asp:ListItem Text="Saldo" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="No. Pagos" Value="2"></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>
|
||||
<td width="65px">
|
||||
<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 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-title">
|
||||
<div class="caption">
|
||||
|
||||
@@ -2036,6 +2036,17 @@ Partial Class RH_Personal
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
|
||||
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
|
||||
GVConceptos.DataSource = Nothing
|
||||
End If
|
||||
@@ -2093,6 +2104,32 @@ Partial Class RH_Personal
|
||||
End If
|
||||
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
|
||||
If CvePersonal > 0 Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
|
||||
@@ -4426,10 +4426,14 @@ Partial Class Ventas
|
||||
If CveVenta > 0 Then
|
||||
DivAlmacen.Visible = False
|
||||
Else
|
||||
Dim DTAlmacen As DataTable
|
||||
ddlAlmacen.Items.Clear()
|
||||
ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}")
|
||||
ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
|
||||
ddlAlmacen.SelectedValue = "-1"
|
||||
DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}")
|
||||
ddlAlmacen.DataSource = DTAlmacen
|
||||
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()
|
||||
If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}").Rows.Count > 0 Then
|
||||
ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
|
||||
@@ -5705,6 +5709,10 @@ Partial Class Ventas
|
||||
Private Sub GvInv_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
|
||||
e.Row.FCCheckBox("cbInv").Checked = True
|
||||
End If
|
||||
|
||||
'SERIE ALMACEN
|
||||
If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 Then
|
||||
If CveVenta > 0 Then
|
||||
@@ -6189,7 +6197,7 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
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
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user