Compras, tipo de operacion no definida cargar todas las retenciones

Compras/Compras.aspx.vb

@@ -2205,12 +2205,13 @@ Partial Class Compras_Compras
                     DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
                 End If
 
-                If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
+                If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
                     DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
                 End If
 
+
             ElseIf RFCProv.Length = 12 Then
                 If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
@@ -2220,12 +2221,14 @@ Partial Class Compras_Compras
                     DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
                 End If
 
-                If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
+                If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
                     DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
                 End If
 
+
+
             End If
 
         End If
@@ -2251,12 +2254,14 @@ Partial Class Compras_Compras
                 DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
             End If
 
-            If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
+            If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
                 DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
                 DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
                 DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
             End If
 
+
+
         End If
         UpPS.Update()
     End Sub

Compras/Proveedores.aspx.vb

@@ -750,9 +750,11 @@ Partial Class Compras_Proveedores
                         TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
                         ChkEstado.Checked = True
 
-                        If Version = "4.0" Then
+                        Dim CodigoRegimenFiscal As String = ValorXml(node, "RegimenFiscal")
+
+                        If Version = "4.0" Or CodigoRegimenFiscal.Trim.Length > 0 Then
+
 
-                            Dim CodigoRegimenFiscal As String = ValorXml(node, "RegimenFiscal")
                             Dim CveRegimenFiscal As Integer = GlobalDTRegimenesFiscales(-1).FiltroPrimeroValor("CveRegimenFiscal", $" CodigoRegimenFiscal = '{ CodigoRegimenFiscal }'").ToEntero
                             DdlRegimenFiscal.SelectedValueExist(CveRegimenFiscal)
 

Empresas/13/Formatos/Factura.rdlc

@@ -89,7 +89,16 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Régimen Fiscal: 601 - General de Ley Personas Morales</Value>
+                <Value>Régimen Fiscal: </Value>
+                <Style>
+                  <FontStyle>Normal</FontStyle>
+                  <FontWeight>Bold</FontWeight>
+                  <TextDecoration>None</TextDecoration>
+                  <Color>#000000</Color>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=IIF(Parameters!RegimenFiscalCodigo.Value="ND-","601 - General de Ley Personas Morales",Parameters!RegimenFiscalCodigo.Value)</Value>
                 <Style>
                   <FontStyle>Normal</FontStyle>
                   <FontWeight>Bold</FontWeight>
@@ -232,7 +241,10 @@
               <Width>1.66402cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>8.32569cm</Width>
+              <Width>7.00103cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>1.45695cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.42482cm</Width>
@@ -492,6 +504,52 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox7">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Obj. Imp.</Value>
+                              <Style>
+                                <FontFamily>calibri</FontFamily>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                                <Color>SteelBlue</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox7</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>White</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                        </BottomBorder>
+                        <BackgroundColor>White</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox84">
@@ -834,6 +892,43 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="CodigoObjetoImpuesto">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!CodigoObjetoImpuesto.Value</Value>
+                              <Style>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>CodigoObjetoImpuesto</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <RightBorder>
+                          <Color>#4f81bd</Color>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="PU1">
@@ -960,6 +1055,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -976,7 +1072,7 @@
         <Top>6.28717cm</Top>
         <Left>0.08756cm</Left>
         <Height>1.2353cm</Height>
-        <Width>20.06999cm</Width>
+        <Width>20.20228cm</Width>
         <ZIndex>4</ZIndex>
         <Style>
           <Border>
@@ -2436,7 +2532,21 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Version 3.3</Value>
+                <Value>Version </Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!CFDIVersion.Value</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value xml:space="preserve"> </Value>
                 <Style>
                   <FontSize>9pt</FontSize>
                   <FontWeight>Bold</FontWeight>
@@ -3626,6 +3736,10 @@
           <DataField>SATClaveUM</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="CodigoObjetoImpuesto">
+          <DataField>CodigoObjetoImpuesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DsOC</rd:DataSetName>
@@ -4614,6 +4728,18 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo">