Compras ajustar IVA

2021-03-09 15:39:02 -07:00
parent 039a624810
commit 2570f40614
4 changed files with 82 additions and 62 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3988,9 +3988,11 @@ Partial Class Compras_Compras
    Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click


-        AjustaCombustibles()
+        'If Not AjustaCombustibles() Then
+        '    Exit Sub
+        'End If

-        '------------------INICIA VALIDACIONES------------------
+        '------------------ INICIA VALIDACIONES ------------------
        Dim EstatusCredito As Integer = 0
        Dim CveSubProyecto As Integer = 0
        'Credito Multiple
@@ -4303,7 +4305,7 @@ Partial Class Compras_Compras
        Next
        If ErrorValidacion Then Exit Sub

-        '------------------TERMINA VALIDACIONES------------------
+

        'RECORRO LOS PRODUCTOS O SERVICIOS PARA REGISTRARLOS LOS QUE NO EXISTEN EN EL CATÁLOGO
        Dim tCve As Integer
@@ -4374,6 +4376,17 @@ Partial Class Compras_Compras
        UM.Dispose()
        PSS.Dispose()

+        'VALIDA IMPORTES
+        If Not ValidaTotalesGuardar() Then
+            Exit Sub
+        End If
+
+        If Not AjustaCombustibles() Then
+            Exit Sub
+        End If
+
+        '------------------TERMINA VALIDACIONES------------------
+
        'si hay necesidad de actualizar el globaldtps
        If RegeneraPS Then
            'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
@@ -4423,10 +4436,7 @@ Partial Class Compras_Compras
        TmpDT.AcceptChanges()
        If Correcto Then

-            'VALIDA IMPORTES
-            If Not ValidaTotalesGuardar() Then
-                Exit Sub
-            End If
+


            Dim ObjCompras As New ClsCompras()
@@ -4650,6 +4660,8 @@ Partial Class Compras_Compras
                                End If
                            Next

+
+
                            'Compra
                            If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDouble, TxtDescuento.Text.ToDouble,
                              LblAmortizacion.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtOtrosImpuestos.Text.ToDouble,
@@ -8486,6 +8498,8 @@ Partial Class Compras_Compras
                                    End If

                                    Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
+                                    BtnGuardar.Enabled = False
+                                    UpFacturar.Update()

                                End If

@@ -8530,7 +8544,12 @@ Partial Class Compras_Compras
    End Sub


-    Private Sub AjustaCombustibles()
+    Private Function AjustaCombustibles() As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        Dim IVADetalles As Decimal = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
+        Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles


        If Not TmpDT.Columns.Contains("AplicaIEPS") Then
@@ -8561,18 +8580,14 @@ Partial Class Compras_Compras
            Dim IndiceUltimo As Integer = 0

            For Each dRow As DataRow In TmpDT.Rows
-
                If Boolean.Parse(dRow("AplicaIEPS").ToString) And Boolean.Parse(dRow("IEPSGrabaIVA").ToString) = False And dRow("IVA").ToString.ToDecimal > 0 Then
                    IndiceUltimo = IndiceContador
                End If
-
                IndiceContador = IndiceContador + 1
-
            Next

-
-            Dim IVADetalles As Decimal = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
-            Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles
+            IVADetalles = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
+            DiferenciaIVas = TxtIVA.Text.ToDecimal - IVADetalles

            If Math.Abs(DiferenciaIVas) > 0.01D Then
                TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
@@ -8582,7 +8597,36 @@ Partial Class Compras_Compras
        End If


-    End Sub
+        'Revalidacion de ajuste
+        IVADetalles = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
+        DiferenciaIVas = TxtIVA.Text.ToDecimal - IVADetalles
+
+
+
+        If Math.Abs(DiferenciaIVas) > 0.01D Then
+
+            If IVADetalles > 0 Then
+
+                For Each dRow As DataRow In TmpDT.Rows
+                    If dRow("IVA").ToString.ToDecimal > 0 Then
+                        dRow("IVA") = dRow("IVA").ToString.ToDecimal + DiferenciaIVas
+                        TmpDT.AcceptChanges()
+                        Respuesta = True
+                        Exit For
+                    End If
+                Next
+
+            Else
+                Alert("Los productos especificados en el lisado no tienen asigando impuesto IVA, favor de realizar la correción en el producto que aplique el impúesto.", TipoMensaje.MsgAdvertencia)
+                Respuesta = False
+            End If
+        Else
+            Respuesta = True
+        End If
+
+        Return Respuesta
+
+    End Function

    Protected Sub TxtCodigo_TextChanged(sender As Object, e As System.EventArgs) Handles TxtCodigo.TextChanged
        Dim ObjProveedores As New ClsCompProveedores()
@@ -12650,6 +12694,7 @@ Partial Class Compras_Compras
            TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDouble + tPU
            TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDouble + ImporteAjuste
            TmpDT.Rows(Indice)("IEPSPS") = (TmpDT.Rows(Indice)("Total").ToString.ToDouble() * TmpDT.Rows(Indice)("IEPSPSPorcentaje").ToString.ToDouble()).RoundAD(2)
+            TmpDT.Rows(Indice)("IVA") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal * TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal * TmpDT.Rows(Indice)("IVAPorcentaje").ToString.ToDecimal
            'Row("IEPSPS") = Math.Round(IEPSPS, DecimalesPermitidos)
            'Row("IEPSPSPorcentaje") = PorcentajeIEPS
            TmpDT.AcceptChanges()
--- a/Empresas/72/Formatos/ResguardoAF.rdlc
+++ b/Empresas/72/Formatos/ResguardoAF.rdlc
@@ -1287,7 +1287,7 @@
          </Style>
        </PageHeader>
        <PageFooter>
-          <Height>8.4664cm</Height>
+          <Height>7.77848cm</Height>
          <PrintOnFirstPage>true</PrintOnFirstPage>
          <PrintOnLastPage>true</PrintOnLastPage>
          <ReportItems>
@@ -1573,51 +1573,6 @@
                <PaddingBottom>2pt</PaddingBottom>
              </Style>
            </Textbox>
-            <Textbox Name="Textbox116">
-              <CanGrow>true</CanGrow>
-              <KeepTogether>true</KeepTogether>
-              <Paragraphs>
-                <Paragraph>
-                  <TextRuns>
-                    <TextRun>
-                      <Value>Fecha Impresión:</Value>
-                      <Style>
-                        <FontSize>8pt</FontSize>
-                        <FontWeight>Bold</FontWeight>
-                      </Style>
-                    </TextRun>
-                    <TextRun>
-                      <Value xml:space="preserve"> </Value>
-                      <Style>
-                        <FontSize>8pt</FontSize>
-                      </Style>
-                    </TextRun>
-                    <TextRun>
-                      <Value>=Today</Value>
-                      <Style>
-                        <FontSize>8pt</FontSize>
-                      </Style>
-                    </TextRun>
-                  </TextRuns>
-                  <Style />
-                </Paragraph>
-              </Paragraphs>
-              <rd:DefaultName>Textbox8</rd:DefaultName>
-              <Top>7.65059cm</Top>
-              <Left>0.25442cm</Left>
-              <Height>0.46771cm</Height>
-              <Width>6.86562cm</Width>
-              <ZIndex>5</ZIndex>
-              <Style>
-                <Border>
-                  <Style>None</Style>
-                </Border>
-                <PaddingLeft>2pt</PaddingLeft>
-                <PaddingRight>2pt</PaddingRight>
-                <PaddingTop>2pt</PaddingTop>
-                <PaddingBottom>2pt</PaddingBottom>
-              </Style>
-            </Textbox>
          </ReportItems>
          <Style>
            <Border>
@@ -1769,8 +1724,28 @@
      <AllowBlank>true</AllowBlank>
      <Prompt>ReportParameter1</Prompt>
    </ReportParameter>
+    <ReportParameter Name="DepartamentoEntrego">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
  </ReportParameters>
  <EmbeddedImages>
+    <EmbeddedImage Name="compuproveedores">
+      <MIMEType>image/jpeg</MIMEType>
+      <ImageData>/9j/4AAQSkZJRgABAQEAYABgAAD/4QCmRXhpZgAATU0AKgAAAAgABgE+AAUAAAACAAAAVgE/AAUAAAAGAAAAZgMBAAUAAAABAAAAllEQAAEAAAABAQAAAFERAAQAAAABAAAewlESAAQAAAABAAAewgAAAAAAAHolAAGGoAAAgIMAAYagAAD5/wABhqAAAIDpAAGGoAAAdTAAAYagAADqYAABhqAAADqYAAGGoAAAF28AAYagAAGGoAAAsY//2wBDAAIBAQIBAQICAgICAgICAwUDAwMDAwYEBAMFBwYHBwcGBwcICQsJCAgKCAcHCg0KCgsMDAwMBwkODw0MDgsMDAz/2wBDAQICAgMDAwYDAwYMCAcIDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCABzAGcDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK
+0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9/KCcUV8yf8FhPivr3wa/4J8ePNY8N6hcaTqzraWKXlu5jmt0nuoopCjDlWKMyhhyN2Rg4Nc+KxCoUZ15bRTf3K56WT5bPMMdRwFN2lVlGKb2Tk0rv0ue7+O/jD4T+F1v53ibxN4f8PRY3b9T1GG0XH/bRhXhvjv/AIK//s5fD2Qx3fxQ0a+kDBdulwXGog++6GNlx+Nfz06jqlxq97JcXU81zcTHc8srmR3PqWOSar7jivzutx3Xf8Gkl6tv8rH9NZf9HvLo/wC+4qc3/dUY/nzn9EHg/wD4K9/s5+N5UjtfidpNs8nT+0LW6sV/76miVf1r23wJ8avB/wAUYVk8NeKvDfiCNhkNpupQ3Wf++GNfzB2bEWsfJ6VPBcyWsyyRO0ckZyrIdrKfYjms6PH2Ii7VqUX6Nr87n2WM+itlFejGpgMbUptpP34xmtVfp7M/qb3cf40oOa/mt8Aftp/Fz4WlRoHxK8babCmMQR6xO0PH/TNmKfpXtvgH/guF+0R4MVEuPFem+IoY+iarpFu+fq8axuf++q9ahx5hJfxaco+ln+q/I+CzL6K/EFK7wWKpVF/e5oP7uWS/E/eWivyF8Bf8HH/jiwWP/hJPhx4Y1hVwHbTL24sCffD+cK9p8Cf8HGvwy1YoviLwX400Rn6taNbX8afU742/8dr2KPFmV1P+XlvVNfpb8T8+zLwF43wd28HzrvCcJfgpc34H6I0V4f8Aso/8FEvhT+2bql5pvgfxBJdaxp9v9ruNPu7OS1uEi3BS4DDDqGZQShOCwzjIr3Cvcw+IpV4e0oyUl3Tuj8wzTKcbluIeEzClKlUW8ZxcXrto7Oz6PqFFFFbHnBXyD/wXUOP+Ca3jb3u9L/8AS+Cvr6vkD/guqf8AjWx40/6/NL/9Loa8vOv+RfW/wy/Jn1nAn/JR4H/r7T/9KR+BVFFFfhZ/
+oIaFp/x6x/Su8+AnwRk+PHjqPRR4m8H+EoSN82o+JNXj0+0hXOOrfM7f7KAn6Dmj9mLwv4V8T/FTRF8dSa5b+DLeUS6vJpNk11dGIZIjULjaZCAm8/dBLYJGD+okf7Wn7A9xplvZ33gbw/p8dtEsKG68CyiQKowNzrGzMeOSSSTySTXqZXldPEN1K1WMEntJ2v8A8A7eLuNsblFClhcvwNfETlBNypU+dQ0SV1s5bu3TRvdX4X4Y/wDBEn4G+JfCUKXXx+s9c16QZabRb/TvsgyPurGzO7Y9S4z6CvUPhX/wRj8SfAffefDP40aHD5j7z/avgLTtUZvbznLsB/u4rEfxR/wTj8aL+8t/CtqzdhYavY4/75VQKbp/we/YBu5vM0XxvY+H5GOQ1r4t1C0Kn/to3FfaUcHgY2dONK66xrST/L9T+eMw4k4nrqcMXVxyjJ6xq5fSqQ9LOaSXpE9tsvhd+154FhVbHX/gD4uhj6pqWiXemySD/tgu0VDrHiP4/pEY/E37Mvwp8dJ/y0/srxJbQ7h3wl3Ec/QmuA0X4Lfs4ysq+G/2tPG3h+QfcSy+K8KBf+AyZ/Wux0X4PQQgf8Iz+2n4un/uG913SNXz/wB9LzXpR52rRcvlUhL/ANLR8TW+rqXNWp0r954XEUH/AOW8l+B137Kml6VcfGtby6/ZcuPhD4gjspv+J7BBpzWpU7Q0JltmBYt2Gw9O3WvqSvC/2b/h18Q/DnjNrvXvj1bfE7QVtnT+zj4bsLWZHJG2T7RbPnC8jBXBz2r3Svfy2DjR1TWvVRT/APJNP1PynjDERrY/mhOMkope667it9F9YSqK3bbs9wooorvPlQr4/wD+C6x/41s+M/8Ar90z/wBLoa+wK+Pv+C7H/KNrxl/1+6Z/6XQ15edf8i+t/hl+R9ZwH/yUeB/6+0//AEpH4GUUUV+Fn+gh+k//AARj+NPxD/Z9+CPiO+8HfAbX/iRB4g1VUuNYsdUjtFTyIlC2
+1o2J2mV2znH73pxX2Lcft7/ABgvP+Pz9kXxy+ev/E1t5f5w18Y/8EbdS+PnxD+EPiHwz8JfHngHw5p/h+/W9u7LW9NNxcs1ymBKhET5Q+QRjIwR7ivtCH4J/tnS/wCt+Mfwth9fL8Nbv5wiv0rJamI+pU1RdTl8o02t9bX137n88eIGEyr+3q88wjg/avlu6lXGRqW5I8vMoe4ny2+HS1rGbdftf+MNS/4//wBjXxxN65hs5v5xVm3Xx+h1I/8AEw/Yh8ZTZ658N6dNn80rqH+DH7Wdt/x9/tAfDe09ceE4Tj/voCqtz4D/AGiLAf6d+1Z8N7HHUnwlYcf99OK9GX1n7SqfONH/ADPlKSydfwpYVf4a2YfpBnG3/jvwDq3/AB//ALBvjJz3KeBdOY/pisu7l+Dt6P8ASP2E/ilH6/Z/A1sv/oMwrtLw/FfTT/p37b3wxscdc+FtHXH/AH1OKzLr4g+ItNO2+/4KBfDeNu6xeH9Az/6PNYSX88X840P/AJI9ajJf8uKq/wC3amZ/pQZ2f7D+i/Cu0+NEs/hH9m34kfCfW/7OlU6xrnh02No0RZN0Ik85xuYgEDbztPIr6+r5W/Y++JX/AAkPxdaxm/at0P4yStZSuug2ek6XatwVzNvt8udnoDj5uelfVNfQ5Ty+w91JavZRX/pDa/G5+Q8fe1eafvpOT5VrJ1pO2vWvCFS3yt2e4UUUV6Z8SFfHv/Bdg/8AGtvxj/1/aZ/6WxV9hV8e/wDBdr/lG54w/wCv7TP/AEtiry87/wCRfW/wy/I+s4D/AOSjwP8A19p/+lI/A2iiivws/wBBDvPgb8QYfh1410u9vm1t9FaVF1S20rUnsLi7t92XRZV6N3GQRkDIr9IF1L9gI6Nb3WpeOPG2pSXESytb3Woa3LNFkA7HEahQw6EAkZzyetflnaf8esf0rt/gZ+0D4t/Zv8cw+IvB+rSaVqUa7GJiSeKZM5KSRyBkdTjoR9MHmvQy7NFh
+m4ThGUX/ADR5reiuvuuexxPwTLOcNSxGGxNajUjBWVKr7JT0VlOXJUtbo1FvXW+lv0V07U/2B5pM6T8OPHfiyTsYLPWbov8ATfMtdPo9z+zhI6r4d/Yz+L+vZ+67eDZWjP8AwKWc15h4P/4OOvGmkeEYbPVvhz4Z1HVohtN5a381nA+O5h2vg+uHA9hWx4O/4Lu/ET4qXLQ/2n8FPh1FuwH1uy1q9kI9QYFdPzxX11PMstdlGcLvtRS/GTa/E/B8ZwdxnDmlUw+IcY9Z5hOomu6jShGVv+3U/I9j0rSfDt0o/sH9gCaf+7/a9hpNkfx84Niup0TRPiIXX+yf2J/hP4bU/ce+8Q6SrL9Vgtif1rzHTf22fEXjaNXv/wBs74S+Flf7y6P4K85lH+ybrB/MVYv/AI8fDC4h3eK/26PiDqHd/wDhH4YtN3fQQWshH4GvShiKFrxnb50Ir9WfG4jKMzvyVaCk+3LmlSX/ALZB/efV37Nuj/FWw8ZySeLvh98I/Bvh/wCyOEPh2+mn1DzsrtUjyEj8vG7PzZyBwa90r4k/YR+N3wE8Y/tBDSfAPxI+LXxD8WNp1xJ9o8R6tqd1arCu3zDsn2RbuVwdnHbFfbdfTZXWjUoXjJS13TUvxSSPxPjrA1sJmXs69GVJuKdpU503bXXlnOcrO27av2QUUUV6R8aFfMP/AAWK+FGt/GL/AIJ7+OtL8PWU+papbi01FbWBC8s8dvcxyyhVHLMI1dsDk7cDmvefi58Y/C3wF8B33ijxlr2l+G/D+nKDcX1/OIYkzwFyfvMx4CjLMeACa+QdS/4OJf2WbHWJLVPGWtXUMbbTdQ+Hbwwn3GUDY/4DXQsjxeZYedKhSlKLTTcU3a6/M0wPElDJswoY2c4qVOUZpSaV+Vp+tnax+GU9vJbStHIrI6HDKwwwPuOtRkEV/SL4J1z4Fft8fBiLx5a6X4P8ceEb0TD+0NW0VAE8olZd32iNXTYQck4HGc45r8/P
+j98U/wDgmbp/jWbT7iLzry3kKz3HhRNTNkpzg4eJhC494wR6Gvzj/iF+a1akqWETnKO65ZJr1STt8z+nsN9JXIIU41MxpSpqWzUoST9G3C/yR+Ztmpa1j47dqlC5r9s/2Lf2J/2Kf2jPCL+IfhlpOieOrW1dUuDd6leXE1kxGVWa2mdTGTg43xjODjNdh4n/AGtP2Qf2Lvjl/wAK2vG8D+CPGdrLbQvaW3hWSMxtcKjxbriO3KcrIh3F8AHkjBrDD+GOaVK0qM/iWrSjJtLzVlY+3xn0tuHMLhoSweHnNWSTnKEIt26NOe9ux+KPgP8AZs+IXxRaMeG/A/i7XhIflaw0e4uF/wC+lQj9a9s8A/8ABGz9orx6VeP4fXGk27YJl1W/trPb9UaTzP8Ax2v33vb230uxmubiWOC3t0aSSR22pGqjJJ7AAAmvFv2Wf+CjXwZ/bQ8Uapovwz8ZReJdS0W2F5eRJp13a+VEXCBt00SA5YgYBJr0cL4bwlCVWUpyjHdxVkvV2dvvPiM2+lpmrmqWDwtGk5bKcpTb9LOF/uPzd8A/8G6XxT1lUk8Q+MvBehRt1S2a4v5k+o2Rr+TV7Z4D/wCDb7wbYCM+J/iR4o1YjBddNsYLBT7ZkMxr3nx3/wAFuP2Y/hr441nw3rXxMistZ8P30+m39udE1F/IuIZGjkTcsBVtrqRlSQccE16p+zL+3R8Jf2xrPUJvhr440nxQ2kqr3kEIkhubZWzhnhlVJApIIDbcEjGc1768PaGGp+2q4afL3kpW/RH5vjvpJcV5hU9jRx8IP+Wmqaf32ctPUwP2Q/8AgnF8Lf2J9QvtQ8GaVeNrWoQfZZ9U1G6NzdNDkMY1OAqKWVSQqjJUZzgY94ryP9lb9ur4Wftrx6+3wz8UL4mXwxJDFqRWxubX7M0vmeWP30abs+U/3c4289RVz4i/tmfDf4T/ALQHhb4XeIPEi6f468aRCbRtMNncSG8Qs6A+YiGNctG4+Zh9
+33Fe1Ryiph28LSouLiruKi00rXbatfbW/wAz8uzTiStmtX+0cwxLqynZc8pc1+iSbfySXoj1CiuC+Hn7T/gH4r+L7rQfDvifTtU1S1EjGKLeFnWNgsjQuVCTKpKgmMsBuXJ5FFFSjOm+WaafmrHHTqQmrwaa8j8rv+C3us6l+11/wVT+Cf7PdxqF1Z+D2l06S8jifbunvbhxNNjoXS2QKhOdpd8feNfq34B/Z48C/DHwBa+F/D/hHw7pfh6zhEEVhBp8Qh2AY+YEHeT3ZsliSSSTX5of8F7/ANmXx18Kv2lvhx+1R8P9Kn1geBjaJrUEMTSfY3tLhp4J5FUFjC6u8TsOE2rn72R9AfC//g4a/Zj8b/Du31jWPGN94S1TyQ9zo1/pF3NcW8mPmRXhieOQA8BlbkYyB0H3GY4XE4vK8G8vi5QjFqSim7Tvq2l36N/qfHYHEYfDZjivr0lGcmnFysk4W0Sb7dV/keR/8HFfjyH9lb9hPQvh78P9N0/wjpPxC8QSpqUGk2yWcMlvGhuJ49kYUDzZWiL4+8AwOQxr6q/4Jq/sSeCf2Y/2MvBug2Xh/SJtR1bRra+169ltI5JtTu54lklMjMCWQFyiqeFRVFfMf/BSvwpa/wDBa3/gm5B46+Den65qF54L1+e80y1u7T7Pc63BEhhuVhjySSwZXQHDMYduAzAVc/4J/wD/AAXd+Dmkfss+H/D3xa8R3HgXx94H06LRtVsr7S7p2vGtk8pZozHG3zOqKWRtrK5YYxgmq2FxdXJIYfDRk6kKkvaxV3K7+FtLW1tPUVHEYWnm86+IklCUI+zk7KNvtJN6Xvr6Hz78QPDtv/wTF/4OFvBlj4DVdF8I/FZ7BbzRrUeXaJDqMr2ssQQcBEuYhOijhDgDAGK8n/4LJ/AG9+PH/BUH9oqXTTI194F8Eaf4rEa/8tobe30yOcf8Bhnkk/7Z17N+zboevf8ABYj/AILJWfx4sdC1TTfg/wDDSe3Om6hf
+QGP7X9i3NbQqejSyXLNM6rny04Y7tu71zwB4W0/xx/wck/HDRdUhjvNN1T4ZpZXkDdJopLTSkdCPQqxH419FTx0sJiY1Z61qWH9/q7qUXZ+dtH6nhVMHHFYeVOGlKpX9ztZxlqvK+qLXxr/4KMXnxK/4IQeHvEWk3DXfxB+KFlb/AA8hijf9/NqsjG0uyB1DNFHNIuOnmp6ivH/+Dez4Sf8ACgv+Cjn7Qfgb7S143g+xbRnnP/LV4NQWNm+hZTj2xXMf8EwP+CevxV8L/wDBQ2w+HvjTRPEsPwn+CPibVfFunXd9pskOn6pfAQ21tLDMyhJC/l28wVScCOQ8ZNeuf8EfyD/wWl/a++ZW/wCJnqPfrjWDmufEU8PhsHjMJhZKUZR9pdf3ppRj/wBuxX4m2HqV8Ri8JisSmpKShZ/3Yvmfzk/wPEP2Avi98Ifg7/wVW/amvvjFqHhDT9Dm1XWY7Q6/bJcRyzDWHJWNGRyz7A3CjJFdH/wRo8Maf8X/APgr38WPiT8JtCutC+DllZ6lDE6W5t7XbcNF5NuqdE3ujTrF/AqAEDAFSf8ABK79nrwL+0P/AMFdP2prHx14T8N+MLHT9W1a5tbfV7GO8jglOsspdVcEBsEjPoa/YvwX8O9B+GnheLRfDei6T4f0e3BEVlptpHaW8Weu2OMBR+Arl4kzinhJ1KEFJzq04Rd37qXKtUt2/N7HTw/ldTFQp1puKhTqSasvebu9G+3puflH/wAGqR/4l/x+/wCwjo/8r+uw/wCCj9ut9/wX/wD2XbdvuzaMiOAcHa1xfg4PUcZ5FeI/8En/ANojw/8A8Edv2sPjR8LfjpJe+DU1+5t5tO1WeymltZxbSXIRwY1ZjHNHMro4BX5SCQeK9A0v4v6f/wAFRv8AgvJ8N/Gfwth1DWPh/wDCHRxHqmvtZyQWzMn2uQEbwpG+W4jjRWAZtrsBtGa68ZQqLOMTmDi/YypNqf2XemkrPZtvS25zYWtTeVYf
+A3/exqJOP2labbut7Ja32Pub9nv9ha8+D/xPsdbvvElnqVjoYVrGO309re4upEs3soZJ2MjIvl2sjoUgVEkciQgFQtFfRyjCiivy7FYqriJ89V3drf1Y/RMPhqdCPJTVlueW/tK/tN2/7PVz4P09fCviLxhrHjrVn0bS9O0drVJZJktZrpizXM0UaqIoJDkt1wMc1832P7TXwW8e+N9PtNB/ZtvvEnj67n1iLUtKXwzocGraNcaXJbJdJO886Rs3+lwMhikkDq4INenft6/CDxF8Xvip8AodBuvFGjx6b40ubq/1rQoI5LjRoTo1/GJS0sUsSKzusW50IzIAMMQa8h+Lv/BOrUtP+Pfgvw98O/EXxE8GxzeEPF13feNrO5M13LrV7c6a6y31y0Z8xpmQsUUxsVgxGUCDH0OW08GqUOeVpSjJvWXTn+Kz20VktWeJjqmKdSfJG8YuKWi68u11vq7t6Htem/8ABQfwbrHws+HOoeBPD3iPxZqnxKguG8O+GdPtIbS9SO0JS7a4850htY7eQeW7O4G8qqbyQDxXjT9pL4P+ItXvJ/id8G003xhoOs6RpOuWviDQ9NvbjSIdTm+z2epfaQzxzWLTYjMsTsyNkMikEV578FLPWvgL8QvhR8RL34TeJvDHh/wf4P1L4W+J9C0fSbm/Phu5S8trmPUbaNQ895YztA58+ISNiVGckhyOuvPgH/w8D+PXxV8VahoXiDw78Pde+GyfDjTJ9Z0yXT7zVp3upruTUIraYLNHHAzwiJpUUs4dlG0AnX6rhaM3LVQ1fNza357cujs/d101fxX5dDL61iasFHRz0XLbT4b82quve07L4bc2p7B+0v8AtleDf2KtKjs7zRdTuodP8Oal4kks9FggC2Gn2BgSRirOirvluYY0A+8zHoFJGB4x/bG/4VVoq+K/EnwR8daFqmsavpnhvS43fRZb7W7m+l8mGJJIrxgqqypuMzoAGXGcHHzPrnwd+LXx8/YS
+P8A4w+IHg/XF+KGr+DLfwDpWkCzeS7uotOjzcXMCKMst5fy3Eq4B3Rxw9QAa2/2jdD0/wAc/APRNJ8KaX+0vrEOlfEHwzresSa3pniKTVLOyhvF8+WxkuE80PGgLEW+WUgMBnBqqOV4ZctOXvPm5ZNNtfZe6aSWrjre7WlhVMxxD5px91ct4ppJ/aWzTb2v0tfW59FeLv26dS8C3/g/SdS+DvxGg8V+OtRvbDR9CF1o73Nwtpai6lnMgvfIWPZvABkDkxt8uCpNPQP27/hr4W0b4h614j8O658N/EXgSCC78Q6RrGkxR6rNHcvstpITbtIl2s837pDFI+ZflO1jivIfFniW28P/ABj/AGf/ABToXhn48eIPCvgXW/EA1i613wzrmo6vbG60l44m2XERuXiMjqgYAqpyMjBrD/aR+Bnjv9sH4leK/jB4b8E+ItLt/CGleHrLw7omuwf2XqHjB9O11dXu8wS4eGMogihEwUvIWOFXBM08vwr5FVXJGS1d2rP2jXLZtrWNn3V+ZuyKnjsSuZ03zNPRWTuuRPm0S+1ddnayV2fQngD9qmx0P4p6Dpfi74S+JvhTd/ES4e10PVNTj06SHVLrY0/2SeS0mkaC5dEd1jmwHKOAxYbao/Bn/gpXoPxc13wbHL4H8eeG9B+IWpXmj+HPEGoxWT6dqV5bG43wHybiSWF2+yzlPNjUN5Z56Vyfxo+IM37cXjb4R+HPB/hPx5YQ+GvG2meMfEWpeIPDN5otvoUGnl5vs5a5RPNuZZTHEEh8wBWkYsFAJ8a/ZA/Zs8cfs9xfA/x94i0Pxx4o0e31bWtLv/DF5BI8vgCe91G6W31i0tVVT5RiYxzFw7pFdeYhC7wSOX4SWGdSsuWpso3fadrXe7cVo7+XxRFLHYmNdU6T5qe/NZd4XvZdE3tbz+FnuN7+1/4J/aE+Guo+MvFnwR13Ufhf4cXV57nxNr1lo99Y20enNcR3Ei25uJLk5ktXRQsOWJU4
+AOR6h+yV42k1/QJLW2+DeqfCjQmt4tQ05ZP7LW2vElGQPLspn8qULtLK6jAYYY4OPlf9iG00b4JfCzUNM8ceEf2hr7XJr3xLHqXhxvDuu3/hy5trjUr2VRHbeWbJ/Nt3Rht+80jdWYg+jfsC6bfeDv2hNf0H4ej4if8ADPsHh2OeytPF2mXtmPD+rm42ix0030cdy1r9nDM6MHSJwgRvmKicwwdKMKtOkmoxejfNytJ9HzNcz9LSW1mtbwOKqSnSnUabktUrXTt10TsvW6e91t9iUUUV8mfShRRRQAYoAxRRQAUYoooAMUYoooAMUUUUAGKMYoooAKKKKAP/2Q==</ImageData>
+    </EmbeddedImage>
    <EmbeddedImage Name="Logo1">
      <MIMEType>image/png</MIMEType>
      <ImageData>iVBORw0KGgoAAAANSUhEUgAACIsAAAhVCAYAAADwAbiCAAAACXBIWXMAAC4jAAAuIwF4pT92AAAAIGNIUk0AAHolAACAgwAA+f8AAIDpAAB1MAAA6mAAADqYAAAXb5JfxUYAA5a0SURBVHja7P3ZchvLsi5qOtj3ndox1z513q1uzjPVTb1MPUVdldnZe6+15pxjqJcoiQ3qIsJHBFJUD5AA8vvM0kBSJEWCANIz40/3yXQ6DQAAAAAAAAAAxmHDXQAAAAAAAAAAMB7CIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAA
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -814,6 +814,7 @@
                                                        Cultivo:
                                                        <asp:DropDownList ID="DdlCultivosCuadro" CssClass=" form-control input-sm select2me" runat="server"   DataTextField="Cuadro" Style="width: 100%; max-width: 600px;" 
                                                        DataValueField="CveCultivoCuadroDetalle" ValidationGroup="GrpDetalleGuardar">                                                        
+                                                            <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
                                                    </asp:DropDownList>
                                                    </div>
                                                    
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2160,7 +2160,6 @@ Partial Class OC
            DdlClasificacion.SelectedIndex = 0
            DdlP2.SelectedValue = "-1"
            DdlP2.SelectedText = "Seleccione un producto o servicio"
-
            txtPrecioUnitario.Text = ""
            TxtObsPS.Text = ""
            HdnCveActivoFijo.Value = ""