Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/Compras.aspx.vb

@@ -3367,6 +3367,47 @@ Partial Class Compras_Compras
                     DdlRetIVAConcepto.SelectedValueExist("2") ' flete pf
                     DdlRetIVAConcepto.SelectedValueExist("3") ' fletes pm
                     DdlRetISRConcepto.SelectedValueExist("1") ' honorarios
+                ElseIf ObjProveedor.DIOTCveTipoOperacion = 0 Then
+
+
+                    If CveFactura > 0 Then
+
+                        If RetIVAOriginal > 0 Then
+                            Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
+
+                            If (CalRetIVAPor).RoundAD(6) = 0.106667 Then
+                                DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profecionales
+                            End If
+
+                            If (CalRetIVAPor).RoundAD(2) = 0.04 Then '4 Fletes
+
+                                If RFCProv.Length = 13 Then
+                                    DdlRetIVAConcepto.SelectedValueExist("2")
+                                Else
+                                    DdlRetIVAConcepto.SelectedValueExist("3")
+                                End If
+
+
+                            End If
+
+                        End If
+
+                        If RetISROriginal > 0 Then
+
+                            Dim CalRetISRPor As Decimal = (RetISROriginal * 1 / SubTotal2Original).RoundAD(5).ToDecimal
+
+                            If (CalRetISRPor).RoundAD(1) = 0.1 Then '10 Sercviios profecionales
+                                DdlRetISRConcepto.SelectedValueExist("1")
+                            End If
+
+                            If (CalRetISRPor).RoundAD(4) = 0.0125 Then '1.25 Recico regimen simplificado confianza
+                                DdlRetISRConcepto.SelectedValueExist("3")
+                            End If
+
+                        End If
+
+                    End If
+
                 End If
 
                 LbAgregar.Enabled = True
@@ -10762,7 +10803,7 @@ Partial Class Compras_Compras
                                 'End If
 
                                 'AGREGA MOVIMIENTO
-                                If importeMovimiento <> 0 Then
+                                If importeMovimiento <> 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
                                     Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
                                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
                                         ErrorPrepoliza = True