From efe9488ede829e49adc045de4e31a198f5ae2711 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 23 Mar 2020 13:15:31 -0700
Subject: [PATCH 1/3] cambios en el formato

---
 Empresas/Grales/Formatos/Telcel.rdlc | 601 ++++++++++++++++++++++++++-
 Ventas/Ventas.aspx.vb                |  65 ++-
 2 files changed, 653 insertions(+), 13 deletions(-)

diff --git a/Empresas/Grales/Formatos/Telcel.rdlc b/Empresas/Grales/Formatos/Telcel.rdlc
index 5fbe6e963..9e2cdd6b6 100644
--- a/Empresas/Grales/Formatos/Telcel.rdlc
+++ b/Empresas/Grales/Formatos/Telcel.rdlc
@@ -523,10 +523,16 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>9.32552cm</Width>
+              <Width>5.08917cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>9.32552cm</Width>
+              <Width>4.82075cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>4.86395cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.88188cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -573,8 +579,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox43">
@@ -610,8 +618,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -659,8 +669,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="UM4">
@@ -698,8 +710,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -746,8 +760,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox60">
@@ -785,6 +801,179 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </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>
                 </TablixCell>
               </TablixCells>
@@ -833,8 +1022,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox57">
@@ -872,8 +1063,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -920,8 +1113,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox54">
@@ -959,6 +1154,362 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </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>
                 </TablixCell>
               </TablixCells>
@@ -1004,8 +1555,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox50">
@@ -1038,8 +1591,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
               </TablixCells>
             </TablixRow>
           </TablixRows>
@@ -1048,6 +1603,8 @@
           <TablixMembers>
             <TablixMember />
             <TablixMember />
+            <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -1058,12 +1615,16 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixRowHierarchy>
         <Top>4.37416cm</Top>
         <Left>0.3937cm</Left>
-        <Height>3.6cm</Height>
-        <Width>18.65104cm</Width>
+        <Height>6cm</Height>
+        <Width>18.65575cm</Width>
         <ZIndex>4</ZIndex>
         <Style>
           <Border>
@@ -1076,7 +1637,7 @@
     <Height>4.85103in</Height>
     <Style />
   </Body>
-  <Width>7.98823in</Width>
+  <Width>7.49978in</Width>
   <Page>
     <PageHeader>
       <Height>7.37017cm</Height>
@@ -1942,6 +2503,36 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </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>
   <EmbeddedImages>
     <EmbeddedImage Name="logodetelcelpng4">
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 62b4161d8..037e3f9c5 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -22681,6 +22681,11 @@ Partial Class Ventas
         Dim EnvioCiudad As String = ""
         Dim EnvioTel 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.DtResultados.Rows.Count > 0 Then
                 Guia = ObjInventario.DtResultados.Rows(0)("Guia").ToString
@@ -22690,13 +22695,52 @@ Partial Class Ventas
             If ObjVentas.DtResultados.Rows.Count > 0 Then
                 SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").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}"
-                EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString
-                EnviarCalle = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString
-                EnviarColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString
-                EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString
-                EnvioTel = ObjVentas.DtResultados.Rows(0)("EnvioTel").ToString
+
+                If ObjVentas.DtResultados.Rows(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
+                    EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
+                    EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString}"
+                    EnviarOficina = ObjVentas.DtResultados.Rows(0)("EnvioDepartamento").ToString
+                    EnviarCalle = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").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)("SucClienteCP").ToString
+                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
+                    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
+                    End If
+                    EnvioContacto = ""
+                    EnviarOficina = ""
+                End If
+
             End If
         End If
         Dim Dt As DataTable = Nothing
@@ -22720,7 +22764,12 @@ Partial Class Ventas
             params.Add(New ReportParameter("EnviarColonia", EnviarColonia))
             params.Add(New ReportParameter("EnvioCiudad", EnvioCiudad))
             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 Sub
 #End Region

From 46623b633f92f02897a582295fd23eae428c9c97 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 23 Mar 2020 14:52:30 -0700
Subject: [PATCH 2/3] .

---
 Ventas/Ventas.aspx.vb | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 037e3f9c5..e0ee095db 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -22708,7 +22708,8 @@ Partial Class Ventas
                     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)("SucClienteCP").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
@@ -22722,7 +22723,8 @@ Partial Class Ventas
                         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 = 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}"
@@ -22735,7 +22737,8 @@ Partial Class Ventas
                         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 = ObjVentas.DtResultados.Rows(0)("CPCliente").ToString
+                        CP = "Cliente"
                     End If
                     EnvioContacto = ""
                     EnviarOficina = ""

From d0bb637083a49c3747468f48cfad52638a63065c Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 23 Mar 2020 17:30:01 -0700
Subject: [PATCH 3/3] gembox implementado para descargar doc

---
 Ventas/Clientes.aspx    |  4 ++-
 Ventas/Clientes.aspx.vb | 63 +++++++++++++++++++++++++++++++++--------
 2 files changed, 54 insertions(+), 13 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index a5dc43c1e..b45f97221 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -3807,7 +3807,9 @@
 
                                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
                                                                     <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>
                                                                 </asp:TemplateField>
 
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 2c9b38da2..40ae54762 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -6884,6 +6884,42 @@ Partial Class Clientes
         ObjEdoc.Dispose()
 
     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
 
 
@@ -6891,7 +6927,8 @@ Partial Class Clientes
 
             Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString
             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 txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
             Dim requerido As Boolean = If(e.Row.DBCampo("Requerido").ToUpper = "TRUE", True, False)
@@ -6941,10 +6978,11 @@ Partial Class Clientes
             End If
 
             If documentacionFormato = "" Then
-                ImgDownLoadFormato.Visible = False
+                'ImgDownLoadFormato.Visible = False
+                LnkDownLoadDoc.Visible = False
             Else
                 Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & CveDocumentacion & "" & documentacionFormato
-                ImgDownLoadFormato.Visible = True
+                LnkDownLoadDoc.Visible = True
             End If
 
             txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy")
@@ -6956,17 +6994,18 @@ Partial Class Clientes
 
                 If File.Exists(linkDescargaArchivo) Then
 
-                    ImgDownLoad.Visible = True
-                    If extencion.Length > 0 Then
-                        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)
-                    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)
-                    End If
+                    LnkDownLoadDoc.Visible = True
+                    ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDownLoadDoc)
+                    'If extencion.Length > 0 Then
+                    '    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)
+                    '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)
+                    'End If
                 Else
-                    ImgDownLoad.Visible = False
+                    LnkDownLoadDoc.Visible = False
                 End If
             Else
-                ImgDownLoad.Visible = False
+                LnkDownLoadDoc.Visible = False
             End If
 
             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>"
             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
             End If