Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2019-09-09 16:21:01 -07:00
parent f9aa4b899f 9f0a73e494
commit f5ce585315
4 changed files with 2620 additions and 2613 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -15936,15 +15936,15 @@ Partial Class Compras_Compras
        End If

        For Each Dr As DataRow In TmpDT.Rows
-            Dr("PU") = Dr("PU").ToString.ToDouble * TipoCambioTemp
-            Dr("IVA") = Dr("IVA").ToString.ToDouble * TipoCambioTemp
-            Dr("RetIVA") = Dr("RetIVA").ToString.ToDouble * TipoCambioTemp
-            Dr("RetISR") = Dr("RetISR").ToString.ToDouble * TipoCambioTemp
-            Dr("IEPSPS") = Dr("IEPSPS").ToString.ToDouble * TipoCambioTemp
-            Dr("Descuento") = Dr("Descuento").ToString.ToDouble * TipoCambioTemp
-            Dr("OtrosGastos") = Dr("OtrosGastos").ToString.ToDouble * TipoCambioTemp
+            Dr("PU") = Dr("PU").ToString.ToDecimal * TipoCambioTemp
+            Dr("IVA") = Dr("IVA").ToString.ToDecimal * TipoCambioTemp
+            Dr("RetIVA") = Dr("RetIVA").ToString.ToDecimal * TipoCambioTemp
+            Dr("RetISR") = Dr("RetISR").ToString.ToDecimal * TipoCambioTemp
+            Dr("IEPSPS") = Dr("IEPSPS").ToString.ToDecimal * TipoCambioTemp
+            Dr("Descuento") = Dr("Descuento").ToString.ToDecimal * TipoCambioTemp
+            Dr("OtrosGastos") = Dr("OtrosGastos").ToString.ToDecimal * TipoCambioTemp

-            Dim Total = (Dr("Cantidad").ToString.ToDouble * Dr("PU").ToString.ToDouble) - Dr("Descuento").ToString.ToDouble + Dr("OtrosGastos").ToString.ToDouble
+            Dim Total = (Dr("Cantidad").ToString.ToDecimal * Dr("PU").ToString.ToDecimal) - Dr("Descuento").ToString.ToDecimal + Dr("OtrosGastos").ToString.ToDecimal
            Dr("Total") = Total
        Next

@@ -15953,22 +15953,23 @@ Partial Class Compras_Compras
        UpPS.Update()


-        TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
-        TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
-        TxtIVA.Text = (TxtIVA.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
+        TxtSubTotal.Text = (TmpDT.SUMD("Total") + TmpDT.SUMD("Descuento")).FormatoNumero
+        TxtSubTotal2.Text = TmpDT.SUMD("Total").FormatoNumero()
+        TxtIVA.Text = TmpDT.SUMD("IVA").FormatoNumero()

        'IPP CAMBIADO - 5 DICIEMBRE 2016
        'TxtTotal.Text = (TxtSubTotal2.Text.ToDouble + TxtIVA.Text.ToDouble).ToString.FormatoNumero.Replace(","c, "")
-        TxtTotal.Text = (TxtTotal.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
+        TxtTotal.Text = (TmpDT.SUMD("Total") + TmpDT.SUMD("IVA") + TmpDT.SUMD("IEPSPS") - TmpDT.SUMD("RetIVA") - TmpDT.SUMD("RetISR")).FormatoNumero
+

        SubTotalOriginal = TxtSubTotal.Text.ToDouble
        SubTotal2Original = TxtSubTotal2.Text.ToDouble

-        If TrDescuento.Visible Then TxtDescuento.Text = (TxtDescuento.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
-        If TrRetIVA.Visible Then TxtRetIVA.Text = (TxtRetIVA.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
-        If TrRetISR.Visible Then TxtRetISR.Text = (TxtRetISR.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
-        If TrIEPS.Visible Then TxtIEPS.Text = (TxtIEPS.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
-        If TrOtrosImpuestos.Visible Then TxtOtrosImpuestos.Text = (TxtOtrosImpuestos.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")
+        If TrDescuento.Visible Then TxtDescuento.Text = (TmpDT.SUMD("Descuento")).ToString.FormatoNumero
+        If TrRetIVA.Visible Then TxtRetIVA.Text = (TmpDT.SUMD("RetIVA")).ToString.FormatoNumero
+        If TrRetISR.Visible Then TxtRetISR.Text = (TmpDT.SUMD("RetISR")).ToString.FormatoNumero
+        If TrIEPS.Visible Then TxtIEPS.Text = (TmpDT.SUMD("IEPSPS")).ToString.FormatoNumero
+        If TrOtrosImpuestos.Visible Then TxtOtrosImpuestos.Text = (TmpDT.SUMD("OtrosGastos")).ToString.FormatoNumero
        If TrRedondeo.Visible Then TxtRedondeo.Text = (TxtRedondeo.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "")


--- a/Empresas/132/Formatos/Cotizacion.rdlc
+++ b/Empresas/132/Formatos/Cotizacion.rdlc
@@ -479,7 +479,7 @@
          </TablixMembers>
        </TablixRowHierarchy>
        <DataSetName>DsOC</DataSetName>
-        <Top>3.50398in</Top>
+        <Top>2.87898in</Top>
        <Left>0.13746in</Left>
        <Height>0.5in</Height>
        <Width>7.1093in</Width>
@@ -558,9 +558,9 @@
          </Paragraph>
        </Paragraphs>
        <rd:DefaultName>Textbox4</rd:DefaultName>
-        <Top>5.55633cm</Top>
-        <Left>3.76464in</Left>
-        <Height>2.00758cm</Height>
+        <Top>4.00467cm</Top>
+        <Left>3.76084in</Left>
+        <Height>1.50487cm</Height>
        <Width>8.84471cm</Width>
        <ZIndex>1</ZIndex>
        <Style>
@@ -642,7 +642,7 @@
        <rd:DefaultName>Textbox4</rd:DefaultName>
        <Top>2.15054cm</Top>
        <Left>12.26628cm</Left>
-        <Height>1.47842cm</Height>
+        <Height>1.16092cm</Height>
        <Width>6.14066cm</Width>
        <ZIndex>2</ZIndex>
        <Style>
@@ -677,8 +677,8 @@
          </Paragraph>
        </Paragraphs>
        <rd:DefaultName>Textbox2</rd:DefaultName>
-        <Top>5.03951cm</Top>
-        <Left>9.56206cm</Left>
+        <Top>3.48785cm</Top>
+        <Left>9.55241cm</Left>
        <Height>0.51682cm</Height>
        <Width>8.84471cm</Width>
        <ZIndex>3</ZIndex>
@@ -786,8 +786,8 @@
        </Paragraphs>
        <rd:DefaultName>Textbox1</rd:DefaultName>
        <Top>2.19667in</Top>
-        <Left>0.13746in</Left>
-        <Height>0.89583in</Height>
+        <Left>0.13371in</Left>
+        <Height>0.58333in</Height>
        <Width>2.99896in</Width>
        <ZIndex>5</ZIndex>
        <Style>
@@ -1267,7 +1267,7 @@
          </Line>
        </ReportItems>
        <KeepTogether>true</KeepTogether>
-        <Top>10.31122cm</Top>
+        <Top>8.72373cm</Top>
        <Left>0.09346cm</Left>
        <Height>2.95451cm</Height>
        <Width>19.05149cm</Width>
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -2172,6 +2172,7 @@ Partial Class OS_OrdenesServicios
            'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
            If ErrorExistencia Then
                Alert("Ocurrió un error en la existencia", TipoMensaje.MsgError)
+                TieneError = True
            End If

            If Not TieneError Then
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7285,6 +7285,8 @@ Partial Class Ventas
        ObjFactura.Moneda = DdlMoneda.SelectedItem.Text
        ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}")
        ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString.ToEntero > 0, "Ing", DdlTipoComprobante.SelectedValue)
+
+
        'ObjFactura.RefDocto = TxtDocto.Text.Trim
        ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero, -1)
        'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1)
@@ -8971,7 +8973,7 @@ Partial Class Ventas
                End If
            End If

-            If ErrorList.Count = 0 Then
+            If ErrorList.Count = 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
                'Agregamos las remisiones a la tabla
                If DtRemisionesPS IsNot Nothing AndAlso DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
                    Dim CveVentaDetalle As Integer = 0
@@ -10196,7 +10198,7 @@ Partial Class Ventas
            End If

            'Si es Facturacion de una remision cancelamos, traspasamos saldos y agregamos evento a la bitacora
-            If RemisionesLista.Count > 0 Then
+            If RemisionesLista.Count > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then

                'se verifica que el documento que se está generando sea "Ing", "Ant"
                If Not ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
@@ -21590,6 +21592,7 @@ Partial Class Ventas
                DdlTipoComprobante.Items.Insert(1, New ListItem("Anticipos", "Ant"))
                DdlTipoComprobante.SelectedIndex = 0
                DdlTipoComprobante.SelectedValueExist(CveTipoDocto)
+
                CambiaTipoComprobante()

                Dim MensajeRemisiones As New StringBuilder
@@ -21639,6 +21642,8 @@ Partial Class Ventas
        UPEstimaciones.Update()
        UPCondicionesPago.Update()
        HuboCambioRemi = Not HuboCambioRemi
+
+
        RegistraScript("$('#DivRemisiones').modal('hide');", "DivRemisionesHide")
    End Sub
    Private Sub VerificaRemisiones(ByRef dt As DataTable)