From ede50c100478e774d2d4f2d5ed06b3388d82a8d4 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 22 Mar 2025 13:25:34 -0700
Subject: [PATCH] --FIX Rep traspaso solicitud --FIX tipo docto en ventas

---
 .../Grales/Formatos/RepTraspasoAlmacen.rdlc   | 124 ++++++++++++++++--
 Ventas/Ventas.aspx.vb                         |  10 +-
 2 files changed, 120 insertions(+), 14 deletions(-)

diff --git a/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc b/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
index 37dd8f1c3..c1ffcb13c 100644
--- a/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
+++ b/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
@@ -21,6 +21,10 @@
           <DataField>Cantidad</DataField>
           <rd:TypeName>System.Double</rd:TypeName>
         </Field>
+        <Field Name="CantidadOriginal">
+          <DataField>CantidadOriginal</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
         <Field Name="UnidadMedida">
           <DataField>UnidadMedida</DataField>
           <rd:TypeName>System.String</rd:TypeName>
@@ -93,32 +97,35 @@
                 <TablixColumn>
                   <Width>1.69333cm</Width>
                 </TablixColumn>
+                <TablixColumn>
+                  <Width>1.29923cm</Width>
+                </TablixColumn>
                 <TablixColumn>
                   <Width>1.16467cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.51446cm</Width>
+                  <Width>1.17434cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>3.37414cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>5.82471cm</Width>
+                  <Width>6.19513cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>1.53921cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.57859cm</Width>
+                  <Width>1.86963cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.32298cm</Width>
+                  <Width>2.02533cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>2.21787cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.36613cm</Width>
+                  <Width>2.44551cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -237,6 +244,62 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox23">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>C.Orig.</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox23</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <BackgroundColor>Silver</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox3">
@@ -582,7 +645,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Alm. Origen</Value>
+                                  <Value>Alm.Origen</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                     <FontWeight>Bold</FontWeight>
@@ -638,7 +701,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Alm. Destino</Value>
+                                  <Value>Alm.Destino</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                     <FontWeight>Bold</FontWeight>
@@ -817,6 +880,43 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="CantidadOriginal">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!CantidadOriginal.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIf(Fields!PS.Value = "", "Bold", "Default")</FontWeight>
+                                    <Format>#,0.00</Format>
+                                    <Color>=IIf(Fields!PS.Value = "", "White", "Black")</Color>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>CantidadOriginal</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BackgroundColor>=IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Cantidad">
@@ -1004,6 +1104,7 @@
                                   <Style>
                                     <FontSize>7pt</FontSize>
                                     <FontWeight>=IIf(Fields!PS.Value = "", "Bold", "Default")</FontWeight>
+                                    <Format>#,0.00</Format>
                                     <Color>=IIf(Fields!PS.Value = "", "White", "Black")</Color>
                                   </Style>
                                 </TextRun>
@@ -1152,6 +1253,7 @@
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
+                <TablixMember />
               </TablixMembers>
             </TablixColumnHierarchy>
             <TablixRowHierarchy>
@@ -1171,7 +1273,7 @@
             <DataSetName>DataSet1</DataSetName>
             <Top>0.17639cm</Top>
             <Height>1.0148cm</Height>
-            <Width>24.56252cm</Width>
+            <Width>25.96481cm</Width>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -1182,7 +1284,7 @@
         <Height>0.67394in</Height>
         <Style />
       </Body>
-      <Width>9.67028in</Width>
+      <Width>10.22237in</Width>
       <Page>
         <PageHeader>
           <Height>3.48078cm</Height>
@@ -1318,7 +1420,7 @@
             <Line Name="Line1">
               <Top>3.30439cm</Top>
               <Height>0cm</Height>
-              <Width>24.56252cm</Width>
+              <Width>25.96481cm</Width>
               <ZIndex>4</ZIndex>
               <Style>
                 <Border>
@@ -1477,7 +1579,7 @@
             <Line Name="Line2">
               <Top>0.15875cm</Top>
               <Height>0cm</Height>
-              <Width>24.56252cm</Width>
+              <Width>25.96481cm</Width>
               <ZIndex>4</ZIndex>
               <Style>
                 <Border>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1ef94d20a..85590f491 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7962,10 +7962,14 @@ Partial Class Ventas
                                 EsCotizacion = True
                             End If
 
-                            If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
-                            If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
+                            'NO MODIFIQUE EL TipoComprobante
+                            If CveVenta <= 0 OrElse EsCreaApartirDe Then
+                                If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
+                                If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
+
+                                DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
+                            End If
 
-                            DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
                             If EsCotizacion Then
                                 DdlTipoComprobante.SelectedValueExistInsert("Cot", "Cotización")
                             End If