reparación de layout de columnas en reporte, el kardex horizontal ahora usa multiselect, y el actualizar precios también replica en las franquicias
This commit is contained in:
@@ -1487,7 +1487,7 @@ Public Class ClsInventarios
|
|||||||
End Function
|
End Function
|
||||||
Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
|
Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
|
||||||
IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
|
IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
|
||||||
Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1) As Boolean
|
Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1") As Boolean
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
|
DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
|
||||||
@@ -1508,6 +1508,7 @@ Public Class ClsInventarios
|
|||||||
.Add("@Orden", SqlDbType.Int).Value = Orden
|
.Add("@Orden", SqlDbType.Int).Value = Orden
|
||||||
.Add("@Marcas", SqlDbType.VarChar).Value = Marcas
|
.Add("@Marcas", SqlDbType.VarChar).Value = Marcas
|
||||||
.Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = IncluyeProyectado
|
.Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = IncluyeProyectado
|
||||||
|
.Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
|
|||||||
@@ -1,6 +1,8 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
|
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
|
||||||
<Body>
|
<Body>
|
||||||
|
<ReportItems>
|
||||||
|
<Rectangle Name="Rectangle1">
|
||||||
<ReportItems>
|
<ReportItems>
|
||||||
<Textbox Name="Textbox1">
|
<Textbox Name="Textbox1">
|
||||||
<CanGrow>true</CanGrow>
|
<CanGrow>true</CanGrow>
|
||||||
@@ -22,10 +24,9 @@
|
|||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox1</rd:DefaultName>
|
<rd:DefaultName>Textbox1</rd:DefaultName>
|
||||||
<Top>0.17639cm</Top>
|
<Left>0cm</Left>
|
||||||
<Left>3.43894cm</Left>
|
<Height>0.98806cm</Height>
|
||||||
<Height>0.81167cm</Height>
|
<Width>20.2388cm</Width>
|
||||||
<Width>13.23271cm</Width>
|
|
||||||
<Style>
|
<Style>
|
||||||
<Border>
|
<Border>
|
||||||
<Style>None</Style>
|
<Style>None</Style>
|
||||||
@@ -39,10 +40,9 @@
|
|||||||
<Image Name="Image1">
|
<Image Name="Image1">
|
||||||
<Source>External</Source>
|
<Source>External</Source>
|
||||||
<Value>= Parameters!pImg.Value</Value>
|
<Value>= Parameters!pImg.Value</Value>
|
||||||
<Sizing>FitProportional</Sizing>
|
<Sizing>Fit</Sizing>
|
||||||
<Left>0.3175cm</Left>
|
<Height>1.98547cm</Height>
|
||||||
<Height>1.5cm</Height>
|
<Width>3.43894cm</Width>
|
||||||
<Width>1.5cm</Width>
|
|
||||||
<ZIndex>1</ZIndex>
|
<ZIndex>1</ZIndex>
|
||||||
<Style>
|
<Style>
|
||||||
<Border>
|
<Border>
|
||||||
@@ -91,10 +91,10 @@
|
|||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox5</rd:DefaultName>
|
<rd:DefaultName>Textbox5</rd:DefaultName>
|
||||||
<Top>1.04422cm</Top>
|
<Top>0.98806cm</Top>
|
||||||
<Left>3.43894cm</Left>
|
<Left>0cm</Left>
|
||||||
<Height>0.6cm</Height>
|
<Height>0.99741cm</Height>
|
||||||
<Width>13.23271cm</Width>
|
<Width>20.2388cm</Width>
|
||||||
<ZIndex>2</ZIndex>
|
<ZIndex>2</ZIndex>
|
||||||
<Style>
|
<Style>
|
||||||
<Border>
|
<Border>
|
||||||
@@ -116,10 +116,7 @@
|
|||||||
<Width>6.04544cm</Width>
|
<Width>6.04544cm</Width>
|
||||||
</TablixColumn>
|
</TablixColumn>
|
||||||
<TablixColumn>
|
<TablixColumn>
|
||||||
<Width>1.24292cm</Width>
|
<Width>2.87929cm</Width>
|
||||||
</TablixColumn>
|
|
||||||
<TablixColumn>
|
|
||||||
<Width>1.63637cm</Width>
|
|
||||||
</TablixColumn>
|
</TablixColumn>
|
||||||
<TablixColumn>
|
<TablixColumn>
|
||||||
<Width>2.5cm</Width>
|
<Width>2.5cm</Width>
|
||||||
@@ -128,10 +125,7 @@
|
|||||||
<Width>2.5cm</Width>
|
<Width>2.5cm</Width>
|
||||||
</TablixColumn>
|
</TablixColumn>
|
||||||
<TablixColumn>
|
<TablixColumn>
|
||||||
<Width>1.30999cm</Width>
|
<Width>2.87513cm</Width>
|
||||||
</TablixColumn>
|
|
||||||
<TablixColumn>
|
|
||||||
<Width>1.60042cm</Width>
|
|
||||||
</TablixColumn>
|
</TablixColumn>
|
||||||
</TablixColumns>
|
</TablixColumns>
|
||||||
<TablixRows>
|
<TablixRows>
|
||||||
@@ -253,10 +247,8 @@
|
|||||||
<PaddingBottom>2pt</PaddingBottom>
|
<PaddingBottom>2pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<ColSpan>2</ColSpan>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell />
|
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
<CellContents>
|
<CellContents>
|
||||||
<Textbox Name="Textbox9">
|
<Textbox Name="Textbox9">
|
||||||
@@ -372,10 +364,8 @@
|
|||||||
<PaddingBottom>2pt</PaddingBottom>
|
<PaddingBottom>2pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<ColSpan>2</ColSpan>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell />
|
|
||||||
</TablixCells>
|
</TablixCells>
|
||||||
</TablixRow>
|
</TablixRow>
|
||||||
<TablixRow>
|
<TablixRow>
|
||||||
@@ -468,7 +458,7 @@
|
|||||||
<Paragraph>
|
<Paragraph>
|
||||||
<TextRuns>
|
<TextRuns>
|
||||||
<TextRun>
|
<TextRun>
|
||||||
<Value>Deudor</Value>
|
<Value>Deudor Acreedor</Value>
|
||||||
<Style>
|
<Style>
|
||||||
<FontSize>8pt</FontSize>
|
<FontSize>8pt</FontSize>
|
||||||
<FontWeight>Bold</FontWeight>
|
<FontWeight>Bold</FontWeight>
|
||||||
@@ -498,45 +488,6 @@
|
|||||||
</Textbox>
|
</Textbox>
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell>
|
|
||||||
<CellContents>
|
|
||||||
<Textbox Name="Textbox19">
|
|
||||||
<CanGrow>true</CanGrow>
|
|
||||||
<KeepTogether>true</KeepTogether>
|
|
||||||
<Paragraphs>
|
|
||||||
<Paragraph>
|
|
||||||
<TextRuns>
|
|
||||||
<TextRun>
|
|
||||||
<Value>Acreedor</Value>
|
|
||||||
<Style>
|
|
||||||
<FontSize>8pt</FontSize>
|
|
||||||
<FontWeight>Bold</FontWeight>
|
|
||||||
</Style>
|
|
||||||
</TextRun>
|
|
||||||
</TextRuns>
|
|
||||||
<Style>
|
|
||||||
<TextAlign>Center</TextAlign>
|
|
||||||
</Style>
|
|
||||||
</Paragraph>
|
|
||||||
</Paragraphs>
|
|
||||||
<rd:DefaultName>Textbox19</rd:DefaultName>
|
|
||||||
<Style>
|
|
||||||
<Border>
|
|
||||||
<Style>None</Style>
|
|
||||||
</Border>
|
|
||||||
<BottomBorder>
|
|
||||||
<Color>Black</Color>
|
|
||||||
<Style>Solid</Style>
|
|
||||||
<Width>1pt</Width>
|
|
||||||
</BottomBorder>
|
|
||||||
<PaddingLeft>2pt</PaddingLeft>
|
|
||||||
<PaddingRight>2pt</PaddingRight>
|
|
||||||
<PaddingTop>2pt</PaddingTop>
|
|
||||||
<PaddingBottom>2pt</PaddingBottom>
|
|
||||||
</Style>
|
|
||||||
</Textbox>
|
|
||||||
</CellContents>
|
|
||||||
</TablixCell>
|
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
<CellContents>
|
<CellContents>
|
||||||
<Textbox Name="Textbox21">
|
<Textbox Name="Textbox21">
|
||||||
@@ -624,7 +575,7 @@
|
|||||||
<Paragraph>
|
<Paragraph>
|
||||||
<TextRuns>
|
<TextRuns>
|
||||||
<TextRun>
|
<TextRun>
|
||||||
<Value>Deudor</Value>
|
<Value>Deudor Acreedor</Value>
|
||||||
<Style>
|
<Style>
|
||||||
<FontSize>8pt</FontSize>
|
<FontSize>8pt</FontSize>
|
||||||
<FontWeight>Bold</FontWeight>
|
<FontWeight>Bold</FontWeight>
|
||||||
@@ -654,45 +605,6 @@
|
|||||||
</Textbox>
|
</Textbox>
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell>
|
|
||||||
<CellContents>
|
|
||||||
<Textbox Name="Textbox27">
|
|
||||||
<CanGrow>true</CanGrow>
|
|
||||||
<KeepTogether>true</KeepTogether>
|
|
||||||
<Paragraphs>
|
|
||||||
<Paragraph>
|
|
||||||
<TextRuns>
|
|
||||||
<TextRun>
|
|
||||||
<Value>Acreedor</Value>
|
|
||||||
<Style>
|
|
||||||
<FontSize>8pt</FontSize>
|
|
||||||
<FontWeight>Bold</FontWeight>
|
|
||||||
</Style>
|
|
||||||
</TextRun>
|
|
||||||
</TextRuns>
|
|
||||||
<Style>
|
|
||||||
<TextAlign>Center</TextAlign>
|
|
||||||
</Style>
|
|
||||||
</Paragraph>
|
|
||||||
</Paragraphs>
|
|
||||||
<rd:DefaultName>Textbox27</rd:DefaultName>
|
|
||||||
<Style>
|
|
||||||
<Border>
|
|
||||||
<Style>None</Style>
|
|
||||||
</Border>
|
|
||||||
<BottomBorder>
|
|
||||||
<Color>Black</Color>
|
|
||||||
<Style>Solid</Style>
|
|
||||||
<Width>1pt</Width>
|
|
||||||
</BottomBorder>
|
|
||||||
<PaddingLeft>2pt</PaddingLeft>
|
|
||||||
<PaddingRight>2pt</PaddingRight>
|
|
||||||
<PaddingTop>2pt</PaddingTop>
|
|
||||||
<PaddingBottom>2pt</PaddingBottom>
|
|
||||||
</Style>
|
|
||||||
</Textbox>
|
|
||||||
</CellContents>
|
|
||||||
</TablixCell>
|
|
||||||
</TablixCells>
|
</TablixCells>
|
||||||
</TablixRow>
|
</TablixRow>
|
||||||
<TablixRow>
|
<TablixRow>
|
||||||
@@ -796,10 +708,8 @@
|
|||||||
<PaddingBottom>2pt</PaddingBottom>
|
<PaddingBottom>2pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<ColSpan>2</ColSpan>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell />
|
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
<CellContents>
|
<CellContents>
|
||||||
<Textbox Name="Cargos1">
|
<Textbox Name="Cargos1">
|
||||||
@@ -909,10 +819,8 @@
|
|||||||
<PaddingBottom>2pt</PaddingBottom>
|
<PaddingBottom>2pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<ColSpan>2</ColSpan>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell />
|
|
||||||
</TablixCells>
|
</TablixCells>
|
||||||
</TablixRow>
|
</TablixRow>
|
||||||
<TablixRow>
|
<TablixRow>
|
||||||
@@ -1017,10 +925,8 @@
|
|||||||
<PaddingBottom>2pt</PaddingBottom>
|
<PaddingBottom>2pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<ColSpan>2</ColSpan>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell />
|
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
<CellContents>
|
<CellContents>
|
||||||
<Textbox Name="TotalAbonos">
|
<Textbox Name="TotalAbonos">
|
||||||
@@ -1130,10 +1036,8 @@
|
|||||||
<PaddingBottom>2pt</PaddingBottom>
|
<PaddingBottom>2pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<ColSpan>2</ColSpan>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell />
|
|
||||||
</TablixCells>
|
</TablixCells>
|
||||||
</TablixRow>
|
</TablixRow>
|
||||||
<TablixRow>
|
<TablixRow>
|
||||||
@@ -1248,10 +1152,8 @@
|
|||||||
<PaddingBottom>2pt</PaddingBottom>
|
<PaddingBottom>2pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<ColSpan>2</ColSpan>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell />
|
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
<CellContents>
|
<CellContents>
|
||||||
<Textbox Name="Textbox33">
|
<Textbox Name="Textbox33">
|
||||||
@@ -1374,10 +1276,8 @@
|
|||||||
<PaddingBottom>2pt</PaddingBottom>
|
<PaddingBottom>2pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<ColSpan>2</ColSpan>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell />
|
|
||||||
</TablixCells>
|
</TablixCells>
|
||||||
</TablixRow>
|
</TablixRow>
|
||||||
</TablixRows>
|
</TablixRows>
|
||||||
@@ -1390,8 +1290,6 @@
|
|||||||
<TablixMember />
|
<TablixMember />
|
||||||
<TablixMember />
|
<TablixMember />
|
||||||
<TablixMember />
|
<TablixMember />
|
||||||
<TablixMember />
|
|
||||||
<TablixMember />
|
|
||||||
</TablixMembers>
|
</TablixMembers>
|
||||||
</TablixColumnHierarchy>
|
</TablixColumnHierarchy>
|
||||||
<TablixRowHierarchy>
|
<TablixRowHierarchy>
|
||||||
@@ -1417,9 +1315,9 @@
|
|||||||
</TablixRowHierarchy>
|
</TablixRowHierarchy>
|
||||||
<RepeatRowHeaders>true</RepeatRowHeaders>
|
<RepeatRowHeaders>true</RepeatRowHeaders>
|
||||||
<DataSetName>DataSet1</DataSetName>
|
<DataSetName>DataSet1</DataSetName>
|
||||||
<Top>1.98547cm</Top>
|
<Top>2.04159cm</Top>
|
||||||
<Height>2.85cm</Height>
|
<Height>2.85cm</Height>
|
||||||
<Width>20.27408cm</Width>
|
<Width>20.2388cm</Width>
|
||||||
<ZIndex>3</ZIndex>
|
<ZIndex>3</ZIndex>
|
||||||
<Style>
|
<Style>
|
||||||
<Border>
|
<Border>
|
||||||
@@ -1427,43 +1325,18 @@
|
|||||||
</Border>
|
</Border>
|
||||||
</Style>
|
</Style>
|
||||||
</Tablix>
|
</Tablix>
|
||||||
<Textbox Name="Textbox8">
|
</ReportItems>
|
||||||
<CanGrow>true</CanGrow>
|
|
||||||
<KeepTogether>true</KeepTogether>
|
<KeepTogether>true</KeepTogether>
|
||||||
<Paragraphs>
|
<Height>5.50443cm</Height>
|
||||||
<Paragraph>
|
<Width>20.2388cm</Width>
|
||||||
<TextRuns>
|
|
||||||
<TextRun>
|
|
||||||
<Value>="Fecha Impresión:" & vbCrLf & DateTime.Now.ToString("dd-MM-yyyy")</Value>
|
|
||||||
<Style>
|
|
||||||
<FontStyle>Italic</FontStyle>
|
|
||||||
<FontSize>7pt</FontSize>
|
|
||||||
</Style>
|
|
||||||
</TextRun>
|
|
||||||
</TextRuns>
|
|
||||||
<Style>
|
|
||||||
<TextAlign>Right</TextAlign>
|
|
||||||
</Style>
|
|
||||||
</Paragraph>
|
|
||||||
</Paragraphs>
|
|
||||||
<rd:DefaultName>Textbox8</rd:DefaultName>
|
|
||||||
<Top>0.17639cm</Top>
|
|
||||||
<Left>16.78159cm</Left>
|
|
||||||
<Height>0.81167cm</Height>
|
|
||||||
<Width>3.49249cm</Width>
|
|
||||||
<ZIndex>4</ZIndex>
|
|
||||||
<Style>
|
<Style>
|
||||||
<Border>
|
<Border>
|
||||||
<Style>None</Style>
|
<Style>None</Style>
|
||||||
</Border>
|
</Border>
|
||||||
<PaddingLeft>2pt</PaddingLeft>
|
|
||||||
<PaddingRight>2pt</PaddingRight>
|
|
||||||
<PaddingTop>2pt</PaddingTop>
|
|
||||||
<PaddingBottom>2pt</PaddingBottom>
|
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Rectangle>
|
||||||
</ReportItems>
|
</ReportItems>
|
||||||
<Height>1.99404in</Height>
|
<Height>2.1671in</Height>
|
||||||
<Style />
|
<Style />
|
||||||
</Body>
|
</Body>
|
||||||
<Width>7.98192in</Width>
|
<Width>7.98192in</Width>
|
||||||
@@ -1514,9 +1387,9 @@
|
|||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox5</rd:DefaultName>
|
<rd:DefaultName>Textbox5</rd:DefaultName>
|
||||||
<Left>3.43894cm</Left>
|
<Left>0cm</Left>
|
||||||
<Height>0.6cm</Height>
|
<Height>0.6cm</Height>
|
||||||
<Width>13.20154cm</Width>
|
<Width>20.2388cm</Width>
|
||||||
<Visibility>
|
<Visibility>
|
||||||
<Hidden>= (Globals.PageNumber=1)</Hidden>
|
<Hidden>= (Globals.PageNumber=1)</Hidden>
|
||||||
</Visibility>
|
</Visibility>
|
||||||
@@ -1530,42 +1403,6 @@
|
|||||||
<PaddingBottom>2pt</PaddingBottom>
|
<PaddingBottom>2pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<Textbox Name="Textbox12">
|
|
||||||
<CanGrow>true</CanGrow>
|
|
||||||
<KeepTogether>true</KeepTogether>
|
|
||||||
<Paragraphs>
|
|
||||||
<Paragraph>
|
|
||||||
<TextRuns>
|
|
||||||
<TextRun>
|
|
||||||
<Value>="Fecha Impresión:" & vbCrLf & DateTime.Now.ToString("dd-MM-yyyy")</Value>
|
|
||||||
<Style>
|
|
||||||
<FontStyle>Italic</FontStyle>
|
|
||||||
<FontSize>7pt</FontSize>
|
|
||||||
</Style>
|
|
||||||
</TextRun>
|
|
||||||
</TextRuns>
|
|
||||||
<Style>
|
|
||||||
<TextAlign>Right</TextAlign>
|
|
||||||
</Style>
|
|
||||||
</Paragraph>
|
|
||||||
</Paragraphs>
|
|
||||||
<rd:DefaultName>Textbox8</rd:DefaultName>
|
|
||||||
<Top>0.02088cm</Top>
|
|
||||||
<Left>16.78159cm</Left>
|
|
||||||
<Height>0.57912cm</Height>
|
|
||||||
<Width>3.49249cm</Width>
|
|
||||||
<ZIndex>1</ZIndex>
|
|
||||||
<Visibility>
|
|
||||||
<Hidden>= (Globals.PageNumber=1)</Hidden>
|
|
||||||
</Visibility>
|
|
||||||
<Style>
|
|
||||||
<Border>
|
|
||||||
<Style>None</Style>
|
|
||||||
</Border>
|
|
||||||
<PaddingLeft>2pt</PaddingLeft>
|
|
||||||
<PaddingRight>2pt</PaddingRight>
|
|
||||||
</Style>
|
|
||||||
</Textbox>
|
|
||||||
</ReportItems>
|
</ReportItems>
|
||||||
<Style>
|
<Style>
|
||||||
<Border>
|
<Border>
|
||||||
@@ -1574,7 +1411,7 @@
|
|||||||
</Style>
|
</Style>
|
||||||
</PageHeader>
|
</PageHeader>
|
||||||
<PageFooter>
|
<PageFooter>
|
||||||
<Height>0.67056cm</Height>
|
<Height>0.6cm</Height>
|
||||||
<PrintOnFirstPage>true</PrintOnFirstPage>
|
<PrintOnFirstPage>true</PrintOnFirstPage>
|
||||||
<PrintOnLastPage>true</PrintOnLastPage>
|
<PrintOnLastPage>true</PrintOnLastPage>
|
||||||
<ReportItems>
|
<ReportItems>
|
||||||
@@ -1598,10 +1435,43 @@
|
|||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox3</rd:DefaultName>
|
<rd:DefaultName>Textbox3</rd:DefaultName>
|
||||||
<Top>0.03528cm</Top>
|
<Left>14.86367cm</Left>
|
||||||
<Left>14.41388cm</Left>
|
|
||||||
<Height>0.6cm</Height>
|
<Height>0.6cm</Height>
|
||||||
<Width>5.51625cm</Width>
|
<Width>5.37513cm</Width>
|
||||||
|
<Style>
|
||||||
|
<Border>
|
||||||
|
<Style>None</Style>
|
||||||
|
</Border>
|
||||||
|
<PaddingLeft>2pt</PaddingLeft>
|
||||||
|
<PaddingRight>2pt</PaddingRight>
|
||||||
|
<PaddingTop>2pt</PaddingTop>
|
||||||
|
<PaddingBottom>2pt</PaddingBottom>
|
||||||
|
</Style>
|
||||||
|
</Textbox>
|
||||||
|
<Textbox Name="Textbox8">
|
||||||
|
<CanGrow>true</CanGrow>
|
||||||
|
<KeepTogether>true</KeepTogether>
|
||||||
|
<Paragraphs>
|
||||||
|
<Paragraph>
|
||||||
|
<TextRuns>
|
||||||
|
<TextRun>
|
||||||
|
<Value>="Fecha Impresión:" & vbCrLf & DateTime.Now.ToString("dd-MM-yyyy")</Value>
|
||||||
|
<Style>
|
||||||
|
<FontStyle>Italic</FontStyle>
|
||||||
|
<FontSize>7pt</FontSize>
|
||||||
|
</Style>
|
||||||
|
</TextRun>
|
||||||
|
</TextRuns>
|
||||||
|
<Style>
|
||||||
|
<TextAlign>Right</TextAlign>
|
||||||
|
</Style>
|
||||||
|
</Paragraph>
|
||||||
|
</Paragraphs>
|
||||||
|
<rd:DefaultName>Textbox8</rd:DefaultName>
|
||||||
|
<Left>0cm</Left>
|
||||||
|
<Height>0.6cm</Height>
|
||||||
|
<Width>3.43894cm</Width>
|
||||||
|
<ZIndex>1</ZIndex>
|
||||||
<Style>
|
<Style>
|
||||||
<Border>
|
<Border>
|
||||||
<Style>None</Style>
|
<Style>None</Style>
|
||||||
|
|||||||
@@ -159,7 +159,9 @@
|
|||||||
</div>
|
</div>
|
||||||
<label class="col-md-1 truncate">Almacén:</label>
|
<label class="col-md-1 truncate">Almacén:</label>
|
||||||
<div class="col-md-2">
|
<div class="col-md-2">
|
||||||
<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
|
<asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"
|
||||||
|
DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>
|
||||||
|
<%--<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>--%>
|
||||||
</div>
|
</div>
|
||||||
<label class="col-md-1 truncate">Tipo Almacen:</label>
|
<label class="col-md-1 truncate">Tipo Almacen:</label>
|
||||||
<div class="col-md-1">
|
<div class="col-md-1">
|
||||||
|
|||||||
@@ -53,7 +53,7 @@ Partial Class Inventarios_KardexAlmacen
|
|||||||
|
|
||||||
DdlTipoAlmacen.SelectedValueExist(1)
|
DdlTipoAlmacen.SelectedValueExist(1)
|
||||||
|
|
||||||
If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValueExist(Request("CveAlmacen").ToString)
|
If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValue = Request("CveAlmacen").ToString
|
||||||
CargaClasificaciones()
|
CargaClasificaciones()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -136,11 +136,11 @@ Partial Class Inventarios_KardexAlmacen
|
|||||||
Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
|
Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
|
||||||
' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
|
' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
|
||||||
Dim FechaF As Date = TxtFechaF.Text.ToDate
|
Dim FechaF As Date = TxtFechaF.Text.ToDate
|
||||||
Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
|
Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
|
||||||
Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
|
Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
|
||||||
Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
|
Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
|
||||||
|
|
||||||
If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero) Then
|
If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes) Then
|
||||||
If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
|
If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
|
||||||
dt = ObjMovimientos.DtResultados
|
dt = ObjMovimientos.DtResultados
|
||||||
Dim ListaBorrar As New List(Of DataColumn)
|
Dim ListaBorrar As New List(Of DataColumn)
|
||||||
|
|||||||
@@ -200,17 +200,21 @@ Partial Class Ventas_ActualizarPrecios
|
|||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
Dim Correcto As Boolean = False
|
Dim Correcto As Boolean = False
|
||||||
|
Dim TieneError As Boolean = False
|
||||||
'Dim Importe As Decimal = If(TxtImporte.Text = "", -1, TxtImporte.Text.ToDecimal)
|
'Dim Importe As Decimal = If(TxtImporte.Text = "", -1, TxtImporte.Text.ToDecimal)
|
||||||
Dim Porcentaje As Decimal = If(TxtPorcentaje.Text = "", -1, TxtPorcentaje.Text.ToDecimal)
|
Dim Porcentaje As Decimal = If(TxtPorcentaje.Text = "", -1, TxtPorcentaje.Text.ToDecimal)
|
||||||
|
|
||||||
Dim ObjPS As New ClsProductosServicios
|
Dim ObjPS As New ClsProductosServicios
|
||||||
|
ObjPS.IniciaTransacSQL()
|
||||||
|
|
||||||
For Each row As GridViewRow In GVPrecios.Rows
|
For Each row As GridViewRow In GVPrecios.Rows
|
||||||
|
|
||||||
If row.FCCheckBox("chkPS").Checked Then
|
If row.FCCheckBox("chkPS").Checked Then
|
||||||
Correcto = ObjPS.UpdatePSPreciosLista(row.FCTextBox("TxtPrecio").Text.ToDecimal, DdlPrecioLista.SelectedValue.ToEntero, Porcentaje, row.DataKey("CvePS").ToEntero, UsuarioActual.CveUsuario, DateTime.Now, If(RblTipo.SelectedValue = "Imp", True, False), PrecioMinimo:=row.FCTextBox("TxtPrecioMinimo").Text.ToDecimal)
|
Correcto = ObjPS.UpdatePSPreciosLista(row.FCTextBox("TxtPrecio").Text.ToDecimal, DdlPrecioLista.SelectedValue.ToEntero, Porcentaje, row.DataKey("CvePS").ToEntero, UsuarioActual.CveUsuario, DateTime.Now, If(RblTipo.SelectedValue = "Imp", True, False), PrecioMinimo:=row.FCTextBox("TxtPrecioMinimo").Text.ToDecimal)
|
||||||
If Not Correcto Then
|
|
||||||
|
If Correcto Then
|
||||||
|
TieneError = ActualizarPreciosFranquicia(ObjPS, row)
|
||||||
|
Else
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -221,6 +225,11 @@ Partial Class Ventas_ActualizarPrecios
|
|||||||
Alert("Los Precios de lista de los Productos/Servicios se actualizaron correctamente")
|
Alert("Los Precios de lista de los Productos/Servicios se actualizaron correctamente")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If TieneError Then
|
||||||
|
ObjPS.RollBack()
|
||||||
|
Else
|
||||||
|
ObjPS.Commit()
|
||||||
|
End If
|
||||||
|
|
||||||
ObjPS.Dispose()
|
ObjPS.Dispose()
|
||||||
BtnConsultar_Click(Nothing, Nothing)
|
BtnConsultar_Click(Nothing, Nothing)
|
||||||
@@ -517,4 +526,29 @@ Partial Class Ventas_ActualizarPrecios
|
|||||||
e.Row.FCTextBox("TxtPrecioMinimo").Attributes.Add("onKeyUp", String.Format("FncSeleccionaChk({0});", e.Row.FCCheckBox("chkSucursal").ClientID))
|
e.Row.FCTextBox("TxtPrecioMinimo").Attributes.Add("onKeyUp", String.Format("FncSeleccionaChk({0});", e.Row.FCCheckBox("chkSucursal").ClientID))
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Function ActualizarPreciosFranquicia(ObjPS As ClsProductosServicios, row As GridViewRow) As Boolean
|
||||||
|
Dim FranquiciasStr As String = UsuarioActual.Empresa.Funcionalidad(137)
|
||||||
|
Dim Franquicias = FranquiciasStr.Split(","c)
|
||||||
|
Dim Porcentaje As Decimal = If(TxtPorcentaje.Text = "", -1, TxtPorcentaje.Text.ToDecimal)
|
||||||
|
Dim Codigo As String = row.DataKey("Codigo")
|
||||||
|
For Each Franquicia In Franquicias
|
||||||
|
Dim CveFranquicia As Integer = Franquicia.ToEntero
|
||||||
|
Dim CvePS As Integer = GlobalDTPS(CveFranquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo LIKE '%{0}%'", Codigo)).ToEntero
|
||||||
|
Dim CvePrecioLisa As Integer = GlobalDTPrecioListas(CveFranquicia).FiltroPrimeroValor("CvePrecioLista", String.Format("PrecioLista = '{0}'", DdlPrecioLista.SelectedItem.Text)).ToEntero
|
||||||
|
Dim EmpresaFranquicia As String = GlobalDTEmpresas(CveEmpresa:=CveFranquicia).FiltroPrimeroValor("Empresa")
|
||||||
|
If CvePS <= 0 Then
|
||||||
|
Alert(String.Format("El producto '{0}' no se encuentra en la Franquicia '{1}'", row.DataKey("PS"), EmpresaFranquicia), TipoMensaje.MsgAdvertencia)
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
If CvePrecioLisa <= 0 Then
|
||||||
|
Alert(String.Format("El precio lista '{0}' no existe en la Franquicia '{1}'", DdlPrecioLista.SelectedItem.Text, EmpresaFranquicia), TipoMensaje.MsgAdvertencia)
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
If Not ObjPS.UpdatePSPreciosLista(row.FCTextBox("TxtPrecio").Text.ToDecimal, CvePrecioLisa, Porcentaje, CvePS, UsuarioActual.CveUsuario, DateTime.Now, If(RblTipo.SelectedValue = "Imp", True, False), PrecioMinimo:=row.FCTextBox("TxtPrecioMinimo").Text.ToDecimal) Then
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Return False
|
||||||
|
End Function
|
||||||
End Class
|
End Class
|
||||||
@@ -2865,7 +2865,7 @@ Partial Class ProductosyServicios
|
|||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Function GuardarProductosEquivalenteEnFranquicia(ObjPS As ClsProductosServicios, Agregar As Boolean) As Boolean
|
Private Function GuardarProductosEquivalenteEnFranquicia(ObjPS As ClsProductosServicios, Agregar As Boolean) As Boolean
|
||||||
Dim EmpresasFranquicia = New Integer() {152}
|
Dim EmpresasFranquicia = ObtenerFranquiciasInt()
|
||||||
For Each Franquicia As Integer In EmpresasFranquicia
|
For Each Franquicia As Integer In EmpresasFranquicia
|
||||||
Dim CvePSPagina As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo = '{0}'", TxtCodigo.Text.Trim)).ToEntero
|
Dim CvePSPagina As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo = '{0}'", TxtCodigo.Text.Trim)).ToEntero
|
||||||
Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.SelectedItem.Text)).ToEntero
|
Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.SelectedItem.Text)).ToEntero
|
||||||
@@ -2893,4 +2893,16 @@ Partial Class ProductosyServicios
|
|||||||
Next
|
Next
|
||||||
Return False
|
Return False
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
Private Function ObtenerFranquiciasInt() As Integer()
|
||||||
|
Dim FranquiciasStr As String = UsuarioActual.Empresa.Funcionalidad(137)
|
||||||
|
Dim Franquicias = FranquiciasStr.Split(","c)
|
||||||
|
Dim ReturnFranquicias(Franquicias.Length) As Integer
|
||||||
|
Dim Contador As Integer = 0
|
||||||
|
For Each Franquicia In Franquicias
|
||||||
|
ReturnFranquicias(Contador) = Franquicia.ToEntero
|
||||||
|
Contador += 1
|
||||||
|
Next
|
||||||
|
Return ReturnFranquicias
|
||||||
|
End Function
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
Reference in New Issue
Block a user