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

App_Code/Timbrado.vb

@@ -3313,6 +3313,18 @@ Public Class Timbrado
         comprobante.MetodoPagoSpecified = If(ObjCFDITimbre.Comprobante.MetodoPago <> "", True, False)
         comprobante.LugarExpedicion = ObjCFDITimbre.Comprobante.LugarExpedicion
 
+        If ObjCFDITimbre.CFDIRelacionados.TipoRelacion <> "" Then
+            Dim CfdiRelacionados As New Profact.TimbraCFDI33.ComprobanteCfdiRelacionados
+            CfdiRelacionados.CfdiRelacionado = New Profact.TimbraCFDI33.ComprobanteCfdiRelacionadosCfdiRelacionado(ObjCFDITimbre.CFDIRelacionados.UUID.Count - 1) {}
+            Dim i As Integer = 0
+            For Each uid As String In ObjCFDITimbre.CFDIRelacionados.UUID
+                CfdiRelacionados.CfdiRelacionado(i) = New Profact.TimbraCFDI33.ComprobanteCfdiRelacionadosCfdiRelacionado With {.UUID = uid}
+                i += 1
+            Next
+            CfdiRelacionados.TipoRelacion = ObjCFDITimbre.CFDIRelacionados.TipoRelacion
+            comprobante.CfdiRelacionados = CfdiRelacionados
+        End If
+
 #Region "Emisor"
         comprobante.Emisor = New Profact.TimbraCFDI33.ComprobanteEmisor()
         comprobante.Emisor.Rfc = EmisorRFC

Bancos/IE.aspx.vb

@@ -2860,7 +2860,9 @@ Partial Class Bancos_IE
 
                                                     'Agregamos el IVA
                                                     If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, 61, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then
+                                                        Dim CveConIVA As Integer = 61
+                                                        If UsuarioActual.CveEmpresa = 70 Then CveConIVA = 299
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then
                                                             MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                                                         End If
                                                     End If
@@ -4502,16 +4504,18 @@ Partial Class Bancos_IE
                     If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
                         ErrorCancelar = True
                         MensajeError = "Error al desbloquear prepoliza."
+                    Else
+                        'CANCELA IE MES ACTUAL
+                        CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero)
+                        If CvePrePolizaCancelacion <= 0 Then
+                            ErrorCancelar = True
+                            MensajeError = "Error al cancelar IE MES ACTUAL"
+                        End If
                     End If
-                    'CANCELA IE MES ACTUAL
+
-                    CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero)
-                    If CvePrePolizaCancelacion <= 0 Then
-                        ErrorCancelar = True
-                        MensajeError = "Error al cancelar IE MES ACTUAL"
-                    End If
                 End If
 
-                If UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
+                If Not ErrorCancelar AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
 
                     If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaCancelacion, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IDPoliza > 0, IDPoliza, -1), ObjConta:=ObjAC) Then
                         ErrorCancelar = True
@@ -4577,7 +4581,7 @@ Partial Class Bancos_IE
                 End If
 
 
-                If Not ErrorCancelarComplemento Then
+                If Not ErrorCancelarComplemento AndAlso Not ErrorCancelar Then
 
                     If ObjAC IsNot Nothing Then ObjAC.Commit()
                     Banc.Commit()
@@ -5698,24 +5702,30 @@ Partial Class Bancos_IE
 
         DVGenerarComplementoModal.Visible = False
 
-        If ObjBancos.GetVincularPago(CveProveedor, CveCompra, 2, MinFecha, MaxFecha, UsuarioActual.CveEmpresa, CveIE) Then
+        If Tipo = "Abono" Then
 
-            GvComplementoPagos.DataSource = ObjBancos.DtResultados
+            If ObjBancos.GetVincularPago(CveProveedor, CveCompra, 2, MinFecha, MaxFecha, UsuarioActual.CveEmpresa, CveIE) Then
 
-            If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 And ObjBancos.DtResultados.FiltraParametros(" CveIECancelacion > 0 ").Rows.Count = 0 Then
+                GvComplementoPagos.DataSource = ObjBancos.DtResultados
-                DVGenerarComplementoModal.Visible = True
+
+                If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 And ObjBancos.DtResultados.FiltraParametros(" CveIECancelacion > 0 ").Rows.Count = 0 Then
+                    DVGenerarComplementoModal.Visible = True
+                End If
+            Else
+                GvComplementoPagos.DataSource = Nothing
             End If
         Else
-            GvComplementoPagos.DataSource = Nothing
+            If CveIE > 0 Then
-        End If
+                If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
+                    GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"})
+                End If
+            End If
 
+        End If
         ObjBancos.Dispose()
         GvComplementoPagos.DataBind()
         UpComplementoPagos.Update()
 
-        'If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
-        '    GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"})
-        'End If
 
         'ObjBancos.Dispose()
         'GvComplementoPagos.DataBind()

Bancos/PopIEVentas.aspx.vb

@@ -596,14 +596,11 @@ Partial Class Bancos_PopIEVentas
             End If
 
             CargaTipoTransaccion(TipoTransaccion)
-            CargaCuentas()
+            CargaCuentas()
-
+
-            Dim ObjCompras As New ClsCompras
+
-            If ObjCompras.GetCompras(-1, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, ProveedorRFC:=RFCCliente) Then
+
-                RBLContado.Items(4).Enabled = True
+
-            End If
-            ObjCompras.Dispose()
-
             Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, Now.Day - 1, Now.Day)
             Fecha = (dia.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString).ToDate
 
@@ -726,7 +723,7 @@ Partial Class Bancos_PopIEVentas
                 CveMoneda = dr("CveMoneda").ToString.ToEntero
                 CveMonedaVenta = dr("CveMoneda").ToString.ToEntero
                 CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero
-                NombreCliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
+                NombreCliente = dr("ClienteNombre").ToString '' GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
                 SerieFolio = dr("SerieFolio").ToString
                 TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
                 CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
@@ -785,6 +782,14 @@ Partial Class Bancos_PopIEVentas
                 'Cortes de Caja
                 If UsuarioActual.TienePermisoProceso(160) Then
                     CargaCorteCaja()
+                End If
+
+                If RFCCliente.ToUpper <> "XAXX010101000" Then
+                    Dim ObjCompras As New ClsCompras
+                    If ObjCompras.GetCompras(-1, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, ProveedorRFC:=RFCCliente) Then
+                        RBLContado.Items(4).Enabled = True
+                    End If
+                    ObjCompras.Dispose()
                 End If
 
                 If Not Validada Then

Compras/RepProductosServicios.aspx

@@ -262,7 +262,7 @@
                         </div> 
                         <label id="lblCultivo" runat="server" class="col-md-1 truncate">Cultivo </label>
                         <div class="col-md-2" id="DivCultivo" runat="server">
-                            <asp:ListBox ID="DdlCultivo" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="Cuadro" DataValueField="CveCultivoCuadroDetalle" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
+                            <asp:ListBox ID="DdlCultivo" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="TemporadaCultivoVariedadCuadro" DataValueField="CveCultivoCuadroDetalle" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                         </div>
                     </div>
                 </div>

Contabilidad/RegPrePoliza.aspx.vb

@@ -1188,10 +1188,12 @@ Partial Class ContabilidadC_RegPrePoliza
                     Dim TipoMovtoOld As Boolean = (row.DataKey("TipoMovto").ToString = "True")
                     Dim ImporteMN As Decimal = If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal())
                     Dim CveTipoGastonew As Integer = If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), row.DataKey("CveTipoGasto").ToEntero())
+                    Dim ttSubProyecto As Integer = row.DataKey("CveSubProyecto").ToEntero()
+                    If ttSubProyecto = 0 Then ttSubProyecto = -1
 
                     If row.DataKey("CvePrePolizaDetalle").ToEntero() > 0 Then
                         Dim actualizar As Boolean
-                        actualizar = (Concepto <> row.DataKey("Concepto") OrElse CveSubProyecto <> row.DataKey("CveSubProyecto").ToEntero() OrElse CtaContable <> row.DataKey("IdCtaContable").ToEntero() OrElse
+                        actualizar = (Concepto <> row.DataKey("Concepto") OrElse CveSubProyecto <> ttSubProyecto OrElse CtaContable <> row.DataKey("IdCtaContable").ToEntero() OrElse
                             TipoMovto <> TipoMovtoOld OrElse ImporteMN <> row.DataKey("ImporteMN").ToDecimal() OrElse CveTipoGastonew <> row.DataKey("CveTipoGasto").ToEntero())
                         'diferencia = $"{diferencia}\r\n /*{actualizar}*/actualizar = '{Concepto}' <> '{row.DataKey("Concepto")}' || '{CveSubProyecto}' <> '{row.DataKey("CveSubProyecto").ToEntero()}' || '{CtaContable}' <> '{row.DataKey("IdCtaContable").ToEntero()}' ||"
                         'diferencia = $"{diferencia} '{TipoMovto}' <> '{TipoMovtoOld}' OrElse '{ImporteMN}' <> '{row.DataKey("ImporteMN").ToEntero()}' OrElse '{CveTipoGastonew}' <> '{row.DataKey("CveTipoGasto").ToEntero()}'"

Inventarios/EntradasSalidas.aspx.vb

@@ -5064,7 +5064,7 @@ Partial Class Inventarios_EntradasSalidas
 
                     If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then
 
-                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(tOrigen > 0, 2, 3), 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="ES/GV")
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(tOrigen > 0, 36, 37), 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="ES/GV")
                         FolioVirtual = ObjInventario.Folio
 
                         For Each RowUsado As DataRow In DtPSVirtual.Rows

Ventas/CatImpuestosLocales.aspx

@@ -155,6 +155,7 @@
                                         <asp:ListItem Value="5" Text="Impuesto Local Traslado"></asp:ListItem>
                                         <asp:ListItem Value="3" Text="Deducciones"></asp:ListItem>
                                         <asp:ListItem Value="4" Text="Fondo de Garantía"></asp:ListItem>
+                                        <asp:ListItem Value="5" Text="Devoluciones"></asp:ListItem>
                                     </asp:DropDownList>
                                     <label for="<%= DdlCuentasContables.ClientID.ToString()%>">Tipo Impuesto:</label>
                                 </div>