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:
rrene
2020-03-23 17:51:50 -07:00
parent 427a0ee119 c88574d5d3
commit 49d85ee295
7 changed files with 1744 additions and 1005 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
App_Code/ClsVentas.vb
View File

@@ -529,6 +529,24 @@ Public Class ClsVentas
Return Retorno Return Retorno
End Function End Function
Public Function GetPagos(CveVenta As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasPagosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el Pago de la Venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function RemoveVta_VentaPago(CveVenta As Integer, CveMetodoPago As Integer) As Boolean Public Function RemoveVta_VentaPago(CveVenta As Integer, CveMetodoPago As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasPagoRemove") DataAdapter("PA_Vta_VentasPagoRemove")

4
App_Code/Modelos.vb
View File

@@ -4001,7 +4001,7 @@ Namespace Modelos
Dim TieneAlmacen As Boolean = False Dim TieneAlmacen As Boolean = False
'VALIDA QUE LA FACTURA NO TENGA PAGOS 'VALIDA QUE LA FACTURA NO TENGA PAGOS
If ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso ObjFactura.Pagado > 0 Then If Not EsRefacturacion AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso ObjFactura.Pagado > 0 Then
Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados." Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados."
Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
@@ -4033,7 +4033,7 @@ Namespace Modelos
End If End If
If ObjFactura.TipoDocto = "Ant" AndAlso ObjFactura.SaldoAmortizado > 0 Then If ObjFactura.TipoDocto = "Ant" AndAlso ObjFactura.SaldoAmortizado > 0 Then
Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados." Retorno.Mensaje = "La factura no se puede cancelar debido a que el anticipo ha sido amortizado."
Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
Return Retorno Return Retorno

39
Empresas/Grales/Formatos/RepProductosServicios.rdlc
View File

@@ -503,7 +503,7 @@
<Width>7.52397in</Width> <Width>7.52397in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>2.22362cm</Height> <Height>3.05745cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage> <PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage> <PrintOnLastPage>true</PrintOnLastPage>
<ReportItems> <ReportItems>
@@ -686,6 +686,37 @@
</Border> </Border>
</Style> </Style>
</Image> </Image>
<Textbox Name="Filtros">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!Filtros.Value</Value>
<MarkupType>HTML</MarkupType>
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Filtros</rd:DefaultName>
<Top>2.40001cm</Top>
<Left>0.06614cm</Left>
<Height>0.6cm</Height>
<Width>18.9786cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems> </ReportItems>
<Style> <Style>
<Border> <Border>
@@ -972,6 +1003,12 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="Filtros">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID> <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>

601
Empresas/Grales/Formatos/Telcel.rdlc
View File

@@ -523,10 +523,16 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>9.32552cm</Width> <Width>5.08917cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>9.32552cm</Width> <Width>4.82075cm</Width>
</TablixColumn>
<TablixColumn>
<Width>4.86395cm</Width>
</TablixColumn>
<TablixColumn>
<Width>3.88188cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -573,8 +579,10 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell />
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox43"> <Textbox Name="Textbox43">
@@ -610,8 +618,10 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell />
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow> <TablixRow>
@@ -659,8 +669,10 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell />
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="UM4"> <Textbox Name="UM4">
@@ -698,8 +710,10 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell />
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow> <TablixRow>
@@ -746,8 +760,10 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell />
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox60"> <Textbox Name="Textbox60">
@@ -785,6 +801,179 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan>
</CellContents>
</TablixCell>
<TablixCell />
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.6cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Textbox8">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>No. Ext:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox8</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
<Width>5pt</Width>
</Border>
<BottomBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<RightBorder>
<Style>Solid</Style>
<Width>1.25pt</Width>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox14">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!NoExt.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
<Width>5pt</Width>
</Border>
<BottomBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<RightBorder>
<Style>Solid</Style>
<Width>1.25pt</Width>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox9">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>No. Int:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
<Width>5pt</Width>
</Border>
<BottomBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<RightBorder>
<Style>Solid</Style>
<Width>1.25pt</Width>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox34">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!NoInt.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox34</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
<Width>5pt</Width>
</Border>
<BottomBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
</TablixCells> </TablixCells>
@@ -833,8 +1022,10 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell />
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox57"> <Textbox Name="Textbox57">
@@ -872,8 +1063,10 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell />
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow> <TablixRow>
@@ -920,8 +1113,10 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell />
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox54"> <Textbox Name="Textbox54">
@@ -959,6 +1154,362 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan>
</CellContents>
</TablixCell>
<TablixCell />
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.6cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Textbox39">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>MUNICIPIO Y/O DELEGACIÓN:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox39</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
<Width>5pt</Width>
</Border>
<BottomBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<RightBorder>
<Style>Solid</Style>
<Width>1.25pt</Width>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<ColSpan>2</ColSpan>
</CellContents>
</TablixCell>
<TablixCell />
<TablixCell>
<CellContents>
<Textbox Name="Textbox45">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!EnvioCiudad.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
<Width>5pt</Width>
</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>
<ColSpan>2</ColSpan>
</CellContents>
</TablixCell>
<TablixCell />
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.6cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Textbox47">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>ESTADO:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox47</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
<Width>5pt</Width>
</Border>
<BottomBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<RightBorder>
<Style>Solid</Style>
<Width>1.25pt</Width>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<ColSpan>2</ColSpan>
</CellContents>
</TablixCell>
<TablixCell />
<TablixCell>
<CellContents>
<Textbox Name="Textbox49">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!EnvioEstado.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox49</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
<Width>5pt</Width>
</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>
<ColSpan>2</ColSpan>
</CellContents>
</TablixCell>
<TablixCell />
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.6cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Textbox3">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>PAÍS:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
<Width>5pt</Width>
</Border>
<BottomBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<RightBorder>
<Style>Solid</Style>
<Width>1.25pt</Width>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox6">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!Pais.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox6</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
<Width>5pt</Width>
</Border>
<BottomBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<RightBorder>
<Style>Solid</Style>
<Width>1.25pt</Width>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox10">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>CP:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
<Width>5pt</Width>
</Border>
<BottomBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<RightBorder>
<Style>Solid</Style>
<Width>1.25pt</Width>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox12">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!CP.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
<Width>5pt</Width>
</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> </CellContents>
</TablixCell> </TablixCell>
</TablixCells> </TablixCells>
@@ -1004,8 +1555,10 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell />
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox50"> <Textbox Name="Textbox50">
@@ -1038,8 +1591,10 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell />
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
</TablixRows> </TablixRows>
@@ -1048,6 +1603,8 @@
<TablixMembers> <TablixMembers>
<TablixMember /> <TablixMember />
<TablixMember /> <TablixMember />
<TablixMember />
<TablixMember />
</TablixMembers> </TablixMembers>
</TablixColumnHierarchy> </TablixColumnHierarchy>
<TablixRowHierarchy> <TablixRowHierarchy>
@@ -1058,12 +1615,16 @@
<TablixMember /> <TablixMember />
<TablixMember /> <TablixMember />
<TablixMember /> <TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<Top>4.37416cm</Top> <Top>4.37416cm</Top>
<Left>0.3937cm</Left> <Left>0.3937cm</Left>
<Height>3.6cm</Height> <Height>6cm</Height>
<Width>18.65104cm</Width> <Width>18.65575cm</Width>
<ZIndex>4</ZIndex> <ZIndex>4</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -1076,7 +1637,7 @@
<Height>4.85103in</Height> <Height>4.85103in</Height>
<Style /> <Style />
</Body> </Body>
<Width>7.98823in</Width> <Width>7.49978in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>7.37017cm</Height> <Height>7.37017cm</Height>
@@ -1942,6 +2503,36 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="NoExt">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="NoInt">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EnvioEstado">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Pais">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="CP">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="logodetelcelpng4"> <EmbeddedImage Name="logodetelcelpng4">

4
Ventas/Clientes.aspx
View File

@@ -3807,7 +3807,9 @@
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px"> <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="ImgDownLoad" runat="server"></asp:Literal> <%--<asp:Literal ID="ImgDownLoad" runat="server"></asp:Literal>--%>
<asp:LinkButton ID="LnkDownLoadDoc" CssClass="btn btn-circle btn-sm blue" OnClick="DownLoad_ClickDocumentacion" runat="server"
Text="<i class='fa fa-download' style='color:white' title='Descargar formato'></i>" CausesValidation="False" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>

63
Ventas/Clientes.aspx.vb
View File

@@ -6884,6 +6884,42 @@ Partial Class Clientes
ObjEdoc.Dispose() ObjEdoc.Dispose()
End Sub End Sub
Public Sub DownLoad_ClickDocumentacion(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim Adjunto As String = GvRow.DataKey("Adjunto")
'Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto
Dim linkDescarga As String = "C:\inetpub\wwwSIGGIT\Empresas\140\DocElectronica\Clientes\271110\Pagaré.docx"
Dim memoryStreamDoc As New System.IO.MemoryStream
Dim objGemBoxDocument As New clsGemBoxDocument(linkDescarga)
Dim Tags As New List(Of TagsDocumentos)
Tags.Add(New TagsDocumentos("{Monto}", "xyz"))
Tags.Add(New TagsDocumentos("{Fecha}", Date.Today.ToString))
Tags.Add(New TagsDocumentos("{FechaConFormato}", "23 de marzo del 2020"))
Tags.Add(New TagsDocumentos("{CantidadLetra}", "69420"))
Tags.Add(New TagsDocumentos("{RazonSocial}", "mengano y perengano"))
Tags.Add(New TagsDocumentos("{Direccion}", "merida 1270"))
Tags.Add(New TagsDocumentos("{Ciudad}", "Hermosillo"))
Tags.Add(New TagsDocumentos("{Telefono}", "2209839"))
Tags.Add(New TagsDocumentos("{RazonSocialAval}", "blablabla"))
Tags.Add(New TagsDocumentos("{DireccionAval}", "asdfqwer"))
Tags.Add(New TagsDocumentos("{CiudadAval}", "Hermosillo"))
Tags.Add(New TagsDocumentos("{TelefonoAval}", "6621432648"))
'objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0)
objGemBoxDocument.SustituirTags(Tags)
objGemBoxDocument.GuardarStream()
Dim memoryStream As New System.IO.MemoryStream(objGemBoxDocument.GetBytesDocumento())
objGemBoxDocument.Dispose()
Response.Clear()
Response.ContentType = "application/text"
Response.AddHeader("content-disposition", "attachment;filename=pagare.docx")
Response.Buffer = True
MemoryStream.WriteTo(Response.OutputStream)
Response.End()
End Sub
Protected Sub GvDocumentosFirma_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentosCliente.RowDataBound Protected Sub GvDocumentosFirma_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentosCliente.RowDataBound
@@ -6891,7 +6927,8 @@ Partial Class Clientes
Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString
Dim ImgDownLoadFormato As LinkButton = e.Row.FCLinkButton("ImgDownLoadFormato") Dim ImgDownLoadFormato As LinkButton = e.Row.FCLinkButton("ImgDownLoadFormato")
Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad") 'Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
Dim LnkDownLoadDoc As LinkButton = e.Row.FCLinkButton("LnkDownLoadDoc")
Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired") Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired")
Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite") Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
Dim requerido As Boolean = If(e.Row.DBCampo("Requerido").ToUpper = "TRUE", True, False) Dim requerido As Boolean = If(e.Row.DBCampo("Requerido").ToUpper = "TRUE", True, False)
@@ -6941,10 +6978,11 @@ Partial Class Clientes
End If End If
If documentacionFormato = "" Then If documentacionFormato = "" Then
ImgDownLoadFormato.Visible = False 'ImgDownLoadFormato.Visible = False
LnkDownLoadDoc.Visible = False
Else Else
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & CveDocumentacion & "" & documentacionFormato Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & CveDocumentacion & "" & documentacionFormato
ImgDownLoadFormato.Visible = True LnkDownLoadDoc.Visible = True
End If End If
txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy") txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy")
@@ -6956,17 +6994,18 @@ Partial Class Clientes
If File.Exists(linkDescargaArchivo) Then If File.Exists(linkDescargaArchivo) Then
ImgDownLoad.Visible = True LnkDownLoadDoc.Visible = True
If extencion.Length > 0 Then ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDownLoadDoc)
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveCliente & Documentacion & "." & extencion) 'If extencion.Length > 0 Then
Else ' ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveCliente & Documentacion & "." & extencion)
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveCliente & Documentacion) 'Else
End If ' ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveCliente & Documentacion)
'End If
Else Else
ImgDownLoad.Visible = False LnkDownLoadDoc.Visible = False
End If End If
Else Else
ImgDownLoad.Visible = False LnkDownLoadDoc.Visible = False
End If End If
If requerido Then If requerido Then
@@ -6975,7 +7014,7 @@ Partial Class Clientes
' ImgRequired.Text = " <a class='btn btn-circle btn-sm grey-salt' href='#' data-toggle='tooltip' title='No obligatorio' ><i class='fa fa-asterisk '></i></a>" ' ImgRequired.Text = " <a class='btn btn-circle btn-sm grey-salt' href='#' data-toggle='tooltip' title='No obligatorio' ><i class='fa fa-asterisk '></i></a>"
End If End If
If UsuarioActual.TienePermisoProceso(248) And e.Row.DBCampo("Estatus").ToString.ToEntero = 1 And ImgDownLoad.Visible Then If UsuarioActual.TienePermisoProceso(248) And e.Row.DBCampo("Estatus").ToString.ToEntero = 1 And LnkDownLoadDoc.Visible Then
e.Row.FCLinkButton("LnkGvDocumentosEliminar").Visible = True e.Row.FCLinkButton("LnkGvDocumentosEliminar").Visible = True
End If End If

68
Ventas/Ventas.aspx.vb
View File

@@ -22728,6 +22728,11 @@ Partial Class Ventas
Dim EnvioCiudad As String = "" Dim EnvioCiudad As String = ""
Dim EnvioTel As String = "" Dim EnvioTel As String = ""
Dim Guia As String = "" Dim Guia As String = ""
Dim EnvioNoExt As String = ""
Dim EnvioNoInt As String = ""
Dim EnvioEstado As String = ""
Dim Pais As String = ""
Dim CP As String = ""
If ObjInventario.GetPaqueteriaGuia(-1, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then If ObjInventario.GetPaqueteriaGuia(-1, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then If ObjInventario.DtResultados.Rows.Count > 0 Then
Guia = ObjInventario.DtResultados.Rows(0)("Guia").ToString Guia = ObjInventario.DtResultados.Rows(0)("Guia").ToString
@@ -22737,13 +22742,55 @@ Partial Class Ventas
If ObjVentas.DtResultados.Rows.Count > 0 Then If ObjVentas.DtResultados.Rows.Count > 0 Then
SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString
PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString
EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString}, NO. EXT: {ObjVentas.DtResultados.Rows(0)("EnvioNoExt").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString}" If ObjVentas.DtResultados.Rows(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
EnviarCalle = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString}"
EnviarColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString
EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString EnviarCalle = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString
EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString EnviarColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString
EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString
EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString
EnvioNoExt = ObjVentas.DtResultados.Rows(0)("EnvioNoExt").ToString
EnvioNoInt = ObjVentas.DtResultados.Rows(0)("EnvioNoInt").ToString
EnvioEstado = ObjVentas.DtResultados.Rows(0)("EnvioEstado").ToString
Pais = ObjVentas.DtResultados.Rows(0)("SucClientePais").ToString
CP = ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString
'CP = "Envio"
Else
If ObjVentas.DtResultados.Rows(0)("CveClienteSucursal").ToString.ToEntero > 0 Then
'EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("SucClienteDireccion").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("SucClienteColonia").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("SucClienteCP").ToString}"
'EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString
EnviarCalle = ObjVentas.DtResultados.Rows(0)("SucClienteDireccion").ToString
EnviarColonia = ObjVentas.DtResultados.Rows(0)("SucClienteColonia").ToString
EnvioCiudad = ObjVentas.DtResultados.Rows(0)("SucClienteCiudad").ToString
EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString
EnvioNoExt = ObjVentas.DtResultados.Rows(0)("SucClienteNoExt").ToString
EnvioNoInt = ObjVentas.DtResultados.Rows(0)("SucClienteNoInt").ToString
EnvioEstado = ObjVentas.DtResultados.Rows(0)("SucClienteEstado").ToString
Pais = ObjVentas.DtResultados.Rows(0)("SucClientePais").ToString
'CP = ObjVentas.DtResultados.Rows(0)("SucClienteCP").ToString
CP = "Sucursal"
Else
'EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("ClienteDireccion").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("ColoniaCliente").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("CPCliente").ToString}"
'EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString
EnviarCalle = ObjVentas.DtResultados.Rows(0)("ClienteDireccion").ToString
EnviarColonia = ObjVentas.DtResultados.Rows(0)("ColoniaCliente").ToString
EnvioCiudad = ObjVentas.DtResultados.Rows(0)("ClienteCiudad").ToString
EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString
EnvioNoExt = ObjVentas.DtResultados.Rows(0)("ClienteNoExt").ToString
EnvioNoInt = ObjVentas.DtResultados.Rows(0)("ClienteNoInt").ToString
EnvioEstado = ObjVentas.DtResultados.Rows(0)("ClienteEstado").ToString
Pais = ObjVentas.DtResultados.Rows(0)("ClientePais").ToString
'CP = ObjVentas.DtResultados.Rows(0)("CPCliente").ToString
CP = "Cliente"
End If
EnvioContacto = ""
EnviarOficina = ""
End If
End If End If
End If End If
Dim Dt As DataTable = Nothing Dim Dt As DataTable = Nothing
@@ -22767,7 +22814,12 @@ Partial Class Ventas
params.Add(New ReportParameter("EnviarColonia", EnviarColonia)) params.Add(New ReportParameter("EnviarColonia", EnviarColonia))
params.Add(New ReportParameter("EnvioCiudad", EnvioCiudad)) params.Add(New ReportParameter("EnvioCiudad", EnvioCiudad))
params.Add(New ReportParameter("EnvioTel", EnvioTel)) params.Add(New ReportParameter("EnvioTel", EnvioTel))
ImprimirPDF("Empresas/Grales/Formatos/Telcel.rdlc", Dt, params, String.Format("Formato RADIO MOVIL DIPSA S.A DE C.V. -{0}", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("NoExt", EnvioNoExt))
params.Add(New ReportParameter("NoInt", EnvioNoInt))
params.Add(New ReportParameter("EnvioEstado", EnvioEstado))
params.Add(New ReportParameter("Pais", Pais))
params.Add(New ReportParameter("CP", CP))
ImprimirPDF("Empresas/Grales/Formatos/Telcel.rdlc", Dt, params, String.Format("Formato RADIO MOVIL DIPSA S.A DE C.V. -{0}", Now.ToDateTime.ToShortDateString), "PDF")
End If End If
End Sub End Sub
#End Region #End Region