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

Compras/Compras.aspx.vb

@@ -2237,6 +2237,11 @@ Partial Class Compras_Compras
 
         If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
 
+            'If UsuarioActual.CveRol = 1 Then
+            ' Alert("Ok funcionalidad 577")
+            'End If
+
+
             If RetencionIVA = 0 And IVAOriginal > 0 Then
                 For Each dRow As DataRow In TmpDT.Rows
                     If dRow("CveTipoPS").ToString.ToEntero = 1 Then
@@ -5828,9 +5833,15 @@ Partial Class Compras_Compras
                                                                                     CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
                                                                                 End If
                                                                             End If
-                                                                        End If
-
-                                                                        'Agregamos el Opuesto del 22 -> 15
+                                                                        End If
+
+
+                                                                        If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
+                                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
+                                                                        End If
+
+
+                                                                        'Agregamos el Opuesto del 22 -> 15
                                                                         If importeMovimiento <> 0 Then
                                                                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 15, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
                                                                                 ErrorPrepoliza = True
@@ -8467,7 +8478,9 @@ Partial Class Compras_Compras
                                                         If DdlRetIVAConcepto.Items.Count > 0 Then
                                                             If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then
                                                                 ImporteMovimiento = Math.Round(PorcentajePago * TxtRetIVA.Text.ToDecimal, 2)
-                                                                importeMN = ImporteMovimiento * tipoCambio
+                                                                importeMN = ImporteMovimiento * tipoCambio
+
+
                                                                 If CtaProveedorRetIVA > 0 Then
                                                                     IdCtaContable = CtaProveedorRetIVA
                                                                     CveCuenta = CveCuentaProveedorRetIVA
@@ -8481,10 +8494,19 @@ Partial Class Compras_Compras
                                                                         End If
                                                                     End If
                                                                 End If
-                                                            End If
+
+
+                                                                If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
+                                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
+                                                                End If
+
+
+                                                            End If
                                                         End If
+
                                                     End If
 
+
                                                 Case 183 'RetIVA x Acreditar Fletes P.F.
                                                     If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then
                                                         If DdlRetIVAConcepto.Items.Count > 0 Then
@@ -16988,6 +17010,26 @@ Partial Class Compras_Compras
             CompruebaAgregar()
             GuardaAC()
         End If
+
+        If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
+
+            'If UsuarioActual.CveRol = 1 Then
+            '    Alert($"Ok funcionalidad 577  RetencionIVA { RetencionIVA}   IVAOriginal {IVAOriginal}")
+            'End If
+
+            If RetencionIVA = 0 And IVAOriginal > 0 Then
+                For Each dRow As DataRow In TmpDT.Rows
+                    If dRow("CveTipoPS").ToString.ToEntero = 1 Then
+                        tdIVA6.Visible = True
+                        Exit For
+                    End If
+                Next
+            End If
+
+        End If
+
+
+
         UpPS.Update()
         CargaGvPersonal()
     End Sub