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

Bancos/PopIECompras.aspx

@@ -523,7 +523,7 @@
                                                         </span>
                                                     </div>
                                                     <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaDocumento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                    <ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendario" PopupPosition="Left" Enabled="True"></ajax:CalendarExtender>
+                                                    <ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendario" PopupPosition="TopLeft" Enabled="True"></ajax:CalendarExtender>
                                                     <asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>

Bancos/PopIECompras.aspx.vb

@@ -2562,7 +2562,7 @@ Partial Class Bancos_PopIECompras
 
                                             If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
                                                 If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
                                                 End If
                                             End If
 
@@ -2703,7 +2703,7 @@ Partial Class Bancos_PopIECompras
 
                                             If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
                                                 If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
                                                 End If
                                             End If
 

Compras/Compras.aspx.vb

@@ -4090,11 +4090,15 @@ Partial Class Compras_Compras
         'DF - 10/04/2017
         If UsuarioActual.TienePermisoProceso(187) Then
             If TxtSerie.Text <> SerieVieja Then
-                Dim SerieNueva As String = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString
+                Dim dtt As DataTable = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
-                If SerieNueva = "" Then
+                If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
-                    Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia)
+                    Dim SerieNueva As String = dtt.FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString
-                    Exit Sub
+                    If SerieNueva = "" Then
+                        Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
                 End If
+
             End If
         End If
 
@@ -4637,20 +4641,7 @@ Partial Class Compras_Compras
                             If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(1, 101) Then
                                 CveEstatusFactura = 6
                             End If
-                            'hay amortización directa como descuento. RMF Temporal
-                            If UsuarioActual.CveEmpresa = 119 Then
-                                'If LblAmortizacion.Text.ToDouble > 0 AndAlso TxtDescuento.Text.ToDouble = 0 Then
-                                '    TxtDescuento.Text = LblAmortizacion.Text
-                                '    LblAmortizacion.Text = "0.00"
-                                'End If
 
-                                'o si el descuento es igual a la amortizacion
-                                'If LblAmortizacion.Text.ToDouble = TxtDescuento.Text.ToDouble Then
-                                '    TxtDescuento.Text = LblAmortizacion.Text
-                                '    LblAmortizacion.Text = "0.00"
-                                'End If
-
-                            End If
 
                             'Compra
                             Dim CveFactura As Integer = -1
@@ -6702,7 +6693,7 @@ Partial Class Compras_Compras
                                                                                     CveMovimientoAlmacen = ObjOC.DtResultados.FiltroPrimeroValor("CveMovimientoAlmacen").ToEntero
                                                                                     Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal
                                                                                     'RMF. falta verificar el costo indirecto de la OC
-                                                                                    If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
+                                                                                    If DdlMoneda.SelectedValue.ToEntero <> 1 Then
                                                                                         TCO = TxtTC.Text.ToDecimal
                                                                                         ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal
                                                                                         CostoIndirectoAcum176 += ImporteCI176
@@ -6909,8 +6900,6 @@ Partial Class Compras_Compras
 
                                                                 End If
 
-
-                                                                ' adfasdasd
                                                                 'ChkNCInvNC
 
                                                                 If Not RegistroCuentaPuente AndAlso Not ChkNCInvNC.Checked Then
@@ -6972,9 +6961,11 @@ Partial Class Compras_Compras
                                                                         DTDistinct.Clear()
                                                                     End If
 
+                                                                    Dim tTipoMovimiento As Boolean = TipoMovimiento
                                                                     If DTDistinct.Rows.Count > 0 Then
                                                                         For Each Row2 As DataRow In DTDistinct.Rows
 
+                                                                            tTipoMovimiento = TipoMovimiento
                                                                             'DETERMINA IMPORTE
                                                                             If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
                                                                                 importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), String.Format("ISNULL(TipoAF,0) <> 2 And CveClasificacion = {0} And CveSubProyecto = {1} And ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
@@ -6999,8 +6990,6 @@ Partial Class Compras_Compras
                                                                             End If
 
 
-
-
                                                                             'SEGMENTO DE NEGOCIO
                                                                             Dim IdSegmentoNegocio As Integer = -1
                                                                             Dim drT As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero).FiltroPrimero(String.Format("CveSubProyecto = {0} ", Row2("CveSubProyecto").ToString.ToEntero))
@@ -7010,12 +6999,6 @@ Partial Class Compras_Compras
 
                                                                             'AGREGA MOVIMIENTO
                                                                             If importeMovimiento.RoundSQL <> 0 Then
-                                                                                'Conta ContPAQ
-                                                                                ' If IdCtaContable = 0 Then
-                                                                                '   CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
-                                                                                '  idCuentaContabilizacion = 0
-                                                                                'End If
-
 
                                                                                 Dim tcvecon As Integer = 6
                                                                                 Dim tidctacon As Integer = 6
@@ -7031,17 +7014,23 @@ Partial Class Compras_Compras
                                                                                     tcvecon = 259
                                                                                     tidctacon = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
 
+                                                                                ElseIf UsuarioActual.CveEmpresa = 119 AndAlso Row2("CveClasificacion").ToString = "20473" Then
+                                                                                    'CODIGO FIJO, SI ES LA CLASIFICACION DE "SEGURO/SERVICIO COSTO", SE ABONARÁ
+                                                                                    tTipoMovimiento = True
+                                                                                    importeMovimiento = -importeMovimiento
+                                                                                    importeMN = -importeMN
                                                                                 End If
 
+
                                                                                 Dim usacomplementariaProveedor As Boolean = False
-                                                                                usacomplementariaProveedor = If(tipoCambioActual > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119, 158), True, False)
+                                                                                usacomplementariaProveedor = If(tipoCambioActual > 1, True, False)
 
                                                                                 If usacomplementariaProveedor AndAlso DdlTipoComprobante.SelectedValue = "Ant" Then
                                                                                     'importeMovimiento
 
                                                                                     Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
                                                                                     importeMN = tipoCambioActual * importeMovimiento - importeMovimiento
-                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 266, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=importeMovimiento, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovimiento, importeMovimiento, Referencia, 266, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=importeMovimiento, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                                         ErrorPrepoliza = True
                                                                                     End If
                                                                                     importeMN = importeMovimiento
@@ -7051,7 +7040,7 @@ Partial Class Compras_Compras
 
                                                                                 If Not Insertado205 Then
 
-                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, tcvecon, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, 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, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovimiento, importeMovimiento, Referencia, tcvecon, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, 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, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                                         ErrorPrepoliza = True
                                                                                     End If
 
@@ -7072,7 +7061,7 @@ Partial Class Compras_Compras
                                                             End If
                                                         Case 5 'Proveedores
                                                             If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
-                                                            Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158)
+                                                            Dim UsaComplementaria As Boolean = True
                                                             If tipoCambioActual <> 1 Then
                                                                 Select Case ConceptoContable
                                                                     Case 5
@@ -7378,7 +7367,7 @@ Partial Class Compras_Compras
                                                                         End If
 
                                                                         'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA
-                                                                        If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
+                                                                        If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 Then
                                                                             Dim importeMovimientoNC = Ant.Importe
                                                                             Dim importeMNNC = 0.0D
                                                                             Dim TipoCambioNC = Ant.TCCompra
@@ -7439,7 +7428,7 @@ Partial Class Compras_Compras
                                                                                 End If
                                                                             End If
 
-                                                                        ElseIf ConceptoContableAnticipo.Contiene(265) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
+                                                                        ElseIf ConceptoContableAnticipo.Contiene(265) And DdlMoneda.SelectedValue.ToEntero <> 1 Then
                                                                             Dim importeMovimientoNC = Ant.Importe
                                                                             Dim importeMNNC = 0.0D
                                                                             Dim TipoCambioNC = Ant.TCCompra
@@ -7534,7 +7523,7 @@ Partial Class Compras_Compras
 
 
                                                                             Dim usacomplementariaAnticipo As Boolean = False
-                                                                            usacomplementariaAnticipo = If(Ant.TCCompra > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False)
+                                                                            usacomplementariaAnticipo = If(Ant.TCCompra > 1, True, False)
                                                                             Dim TipoCambioAnt As Decimal = Ant.TCCompra
 
 
@@ -7564,7 +7553,7 @@ Partial Class Compras_Compras
                                                                                 If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307
                                                                                 Dim IdCtaContablePago As Integer = CtaProveedor
                                                                                 Dim usacomplementariaProveedor As Boolean = False
-                                                                                usacomplementariaProveedor = If(tipoCambioActual > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False)
+                                                                                usacomplementariaProveedor = If(tipoCambioActual > 1, True, False)
                                                                                 If usacomplementariaProveedor Then
                                                                                     Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
                                                                                     importeMN = tipoCambioActual * importeMovimiento - importeMovimiento
@@ -8925,13 +8914,13 @@ Partial Class Compras_Compras
                                                         If DdlMoneda.SelectedValue.ToEntero <> 1 Then
                                                             IdCtaContable = CtaProveedorAnticiposExtranjera
                                                             If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, "", ConceptoContable, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then
-                                                                If UsuarioActual.CveEmpresa.Contiene(119) Then
+
-                                                                    IdCtaContable = CtaProveedorAnticiposComplementaria
+                                                                IdCtaContable = CtaProveedorAnticiposComplementaria
-                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeMN - ImporteMovimiento, "", 266, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN - ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeMN - ImporteMovimiento, "", 266, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN - ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then
-                                                                        ErrorMovtosCxP = 1
+                                                                    ErrorMovtosCxP = 1
-                                                                        Exit Select
+                                                                    Exit Select
-                                                                    End If
                                                                 End If
+
                                                             Else
                                                                 ErrorMovtosCxP = 1
                                                                 Exit Select
@@ -8962,7 +8951,7 @@ Partial Class Compras_Compras
                                                             ImporteMovimiento = ImporteMovimiento / gvr.DataKey("TCCompra").ToDecimal
                                                         End If
 
-                                                        If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
+                                                        If DdlMoneda.SelectedValue.ToEntero <> 1 Then
                                                             IdCtaContable = CtaProveedorExtranjera
                                                             If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, ConceptoPartida, ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then
                                                                 IdCtaContable = CtaProveedorComplementaria
@@ -9008,7 +8997,7 @@ Partial Class Compras_Compras
                                                             Dim TipoCambioAnt = gvr.DataKey("TCCompra").ToDecimal
 
                                                             Dim usacomplementariaAnticipo As Boolean = False
-                                                            usacomplementariaAnticipo = If(TipoCambioAnt > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False)
+                                                            usacomplementariaAnticipo = If(TipoCambioAnt > 1, True, False)
 
 
                                                             Dim ImporteAnt As Decimal = ImporteMovimiento
@@ -9107,7 +9096,7 @@ Partial Class Compras_Compras
                                                     ImporteMovimiento = sumaAmortizacion
                                                     importeMN = ImporteMovimiento * TipoCambio17
 
-                                                    If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
+                                                    If DdlMoneda.SelectedValue.ToEntero <> 1 Then
                                                         IdCtaContable = CtaProveedorExtranjera
                                                         If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=TipoCambio17) Then
 
@@ -11041,18 +11030,6 @@ Partial Class Compras_Compras
             If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
 
                 If e.Row.RowIndex = 0 Then
-                    'e.Row.Cells(0).Width = Unit.Pixel(15)
-                    'e.Row.Cells(1).Width = Unit.Pixel(45)
-                    'e.Row.Cells(2).Width = Unit.Pixel(70)
-                    'e.Row.Cells(3).Width = Unit.Pixel(230)
-                    'e.Row.Cells(4).Width = Unit.Pixel(202)
-                    'e.Row.Cells(5).Width = Unit.Pixel(155)
-                    'e.Row.Cells(6).Width = Unit.Pixel(155)
-                    'e.Row.Cells(7).Width = Unit.Pixel(50)
-                    'e.Row.Cells(8).Width = Unit.Pixel(80)
-                    'e.Row.Cells(9).Width = Unit.Pixel(80)
-                    'e.Row.Cells(10).Width = Unit.Pixel(43)
-                    'e.Row.Cells(11).Width = Unit.Pixel(43)
 
                     If UsuarioActual.Empresa.UsaAC Then 'AndAlso (CveFactura > 0 Or CveCompra > 0) 
                         e.Row.Cells(13).Width = Unit.Pixel(150)
@@ -11243,10 +11220,6 @@ Partial Class Compras_Compras
         GvPS.DataSource = TmpDT
         GvPS.DataBind()
 
-        'GVAF.DataSource = TmpDT
-        'GVAF.DataBind()
-        ''UpnAF.Update()
-
         CalculaTotales(True)
         CargaGvInv()
         CargaGVsAF()
@@ -11278,17 +11251,7 @@ Partial Class Compras_Compras
     Private Sub GeneraGlobalDT(data As Object)
         GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
         GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
-        'Dim ObjPS As New ClsProductosServicios
 
-        'If (ObjPS.GetPSSimplificado(-1)) Then
-        '    Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable
-        'End If
-
-        'If ObjPS.GetPSEquivalencias(-1, -1) Then
-        '    GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
-        'End If
-
-        'ObjPS.Dispose()
     End Sub
     Private Function notienepresupuesto() As Boolean
         Dim notienerecursos = False
@@ -11361,21 +11324,7 @@ Partial Class Compras_Compras
         DTConceptos.Columns.Add("Total", GetType(Double))
         DTConceptos.Columns.Add("Amortizacion", GetType(Double))
     End Sub
-    'Private Sub AddPS(Cantidad As Double, UM As String, PS As String, PU As Double, IVA As Double, Descuento As Double, Optional Total As Double = 0)
-    '    Dim Row As DataRow = Nothing
-    '    Row = DTConceptos.NewRow()
-    '    Row("Consec") = DTConceptos.Rows.Count + 1
-    '    Row("Cantidad") = Cantidad
-    '    Row("UM") = UM
-    '    Row("CveClasificacion") = -1
-    '    Row("PS") = PS
-    '    Row("PU") = PU
-    '    Row("IVA") = IVA
-    '    Row("Total") = If(Total > 0, Total, Cantidad * PU)
-    '    Row("Descuento") = Descuento
 
-    '    DTConceptos.Rows.Add(Row)
-    'End Sub
     Private Sub CreaDTCompras()
 
         TmpDT = New DataTable
@@ -11603,26 +11552,6 @@ Partial Class Compras_Compras
 
 
     End Sub
-    'Private Sub AddDTEnvio(Cantidad As Double, UM As String, CveUM As Integer, CvePS As Integer, PS As String, PU As Double, CveAlmacen As Integer, CveEq As Integer)
-
-    '    Dim dr As DataRow = DtInv.NewRow
-
-    '    dr("Cantidad") = Cantidad
-    '    dr("UM") = UM
-    '    dr("CveUM") = CveUM
-    '    dr("CvePS") = CvePS
-    '    dr("PS") = PS
-    '    dr("PU") = PU
-    '    dr("CveAlmacen") = CveAlmacen
-    '    dr("CveEq") = CveEq
-
-    '    DtInv.Rows.InsertAt(dr, hdnIndexInv.Value.ToEntero + 1)
-
-    '    GvInv.DataSource = DtInv
-    '    GvInv.DataBind()
-
-
-    'End Sub
 
     Protected Sub RecargaMaximum_Click(sender As Object, e As System.EventArgs)
 
@@ -11723,62 +11652,6 @@ Partial Class Compras_Compras
 #End Region
 
 #Region "  ALGO DE AF QUE NUNCA SE USABA  "
-    'Protected Sub GVAF_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowCreated
-    '    If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
-    '        e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF
-    '        e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind()
-
-    '        e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
-    '        e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
-    '        e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-
-    '        e.Row.FCDropDownList("DdlAF").DataSource = Nothing
-    '        e.Row.FCDropDownList("DdlAF").DataBind()
-    '        e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-    '    End If
-    'End Sub
-
-    'Protected Sub GVAF_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowDataBound
-    '    If e.Row.RowType = DataControlRowType.DataRow Then
-    '        If e.Row.RowIndex = 0 Then
-    '            e.Row.Cells(0).Width = Unit.Pixel(20)
-    '            e.Row.Cells(1).Width = Unit.Pixel(140)
-    '            e.Row.Cells(2).Width = Unit.Pixel(250)
-    '        End If
-
-    '        e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
-    '        e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
-    '        e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
-    '    End If
-    'End Sub
-
-    'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
-    '    Dim Array() As String = Nothing
-    '    Dim DdlGVSubTipoAF As DropDownList = Nothing
-
-    '    Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
-    '    If Array.Length > 0 Then
-    '        DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
-    '    End If
-
-    '    If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
-    'End Sub
-
-    'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
-    '    If e.Row.RowType = DataControlRowType.DataRow Then
-
-    '        e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
-
-    '    End If
-    'End Sub
-
-    'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
-    '    PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
-    '    PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
-    '    UPCondicionesPago.Update()
-    'End Sub
     Protected Sub BtnOCAceptar_Click(sender As Object, e As EventArgs) Handles BtnOCAceptar.Click
         'carga la OC
         Dim CveOC As Integer = -1
@@ -11808,13 +11681,6 @@ Partial Class Compras_Compras
             OC.Dispose()
         End If
 
-        'GvOCC.DataSource = TmpDT
-        'GvOCC.DataBind()
-        'GvOCC2.DataSource = dt
-        'GvOCC2.DataBind()
-
-        'UpnAF.Update()
-
     End Sub
 #End Region
 
@@ -12881,12 +12747,6 @@ Partial Class Compras_Compras
             Dim dr As DataRow
 
             dr = DtAcreedores.FiltroPrimero(String.Format("CveProveedor = {0}", DdlAcreedor.SelectedValue))
-            'If EmpresaPrueba Then
-            '    dr = DtAcreedores.FiltroPrimero(String.Format("CveProveedor = {0}", DdlAcreedor.SelectedValue))
-            'Else
-            '    dr = DtAcreedores.FiltroPrimero(String.Format("CveProveedor = {0}", DdlDeudor.SelectedValue))
-            'End If
-
 
             If dr IsNot Nothing Then
                 Dim tSaldo As Double = dr("Saldo").ToString.ToDouble
@@ -12976,12 +12836,6 @@ Partial Class Compras_Compras
         UpTabs.Update()
 
 
-
-
-
-
-
-        'DdlProveedor.Attributes.Add("onclick", "CargaProveedores();")
     End Sub
     Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
         Dim Folio As Long
@@ -13532,12 +13386,6 @@ Partial Class Compras_Compras
         For Each gvr As GridViewRow In GvPS.Rows
             dr = TmpDT.Rows(gvr.RowIndex)
 
-            'DtDetalle.Rows(gvr.RowIndex)("CveClasificacionOG") = gvr.FCDropDownList("DdlAC5").SelectedValue.ToEntero
-            'DtDetalle.Rows(gvr.RowIndex)("CveProgramaOperativo") = gvr.FCDropDownList("DdlAC1").SelectedValue.ToEntero
-            'DtDetalle.Rows(gvr.RowIndex)("CveUnidadAdministrativa") = gvr.FCDropDownList("DdlAC2").SelectedValue.ToEntero
-            'DtDetalle.Rows(gvr.RowIndex)("CveFuenteFinanciamiento") = gvr.FCDropDownList("DdlAC3").SelectedValue.ToEntero
-            'DtDetalle.Rows(gvr.RowIndex)("CveTipoGasto") = gvr.FCDropDownList("DdlAC4").SelectedValue.ToEntero
-
             dr("CveProgramaOperativo") = gvr.FCDropDownList("DdlAC1").SelectedValue.ToEntero
             dr("CveUnidadAdministrativa") = gvr.FCDropDownList("DdlAC2").SelectedValue.ToEntero
             dr("CveFuenteFinanciamiento") = gvr.FCDropDownList("DdlAC3").SelectedValue.ToEntero

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -149,17 +149,21 @@ Partial Class Compras_RepProductosServiciosDetalle
 
         'DdlCategoria.SelectedValueExist(Categoria)
         DdlClasificacion.SelectedValueExist(Clasificacion)
-        If PS <> "-1" Then
+        If PS.ToEntero > 1 Then
             DdlPS.SelectedValue = PS
-            DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero)(0)("PSCodigo").ToString
+            DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero).FiltroPrimeroValor("PSCodigo")
         End If
 
         'DdlSubProyecto.SelectedValueExist(SubProyecto)
         DdlFamilia.SelectedValueExist(Familia)
         DdlSubFamilia.SelectedValueExist(SubFamilia)
-        DdlProveedor.SelectedValue = Proveedor
+
         If Proveedor.ToEntero > 0 Then
-            DdlProveedor.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString
+            Dim Dr As DataRow = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, Proveedor.ToEntero).FiltroPrimero("")
+            If Dr IsNot Nothing Then
+                DdlProveedor.SelectedText = Dr("RazonSocial").ToString
+                DdlProveedor.SelectedValue = Proveedor
+            End If
         Else
             DdlProveedor.SelectedText = "Todos"
         End If
@@ -200,8 +204,10 @@ Partial Class Compras_RepProductosServiciosDetalle
         DdlClasificacion.DataBind()
 
         'CargaProveedor
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.setEsWebService(True)
-        DdlProveedor.DataBind()
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedor.SelectedText = "Todos"
+        DdlProveedor.SelectedValue = "-1"
 
         'CargaUsuarios
         DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)

Contabilidad/RegPrePoliza.aspx.vb

@@ -371,6 +371,7 @@ Partial Class ContabilidadC_RegPrePoliza
             .Add("ContadoImporte", Type.GetType("System.Double"))
             .Add("ContadoBeneficiario", Type.GetType("System.String"))
             .Add("ContadoObservaciones", Type.GetType("System.String"))
+            .Add("FolioPoliza", Type.GetType("System.Int32"))
         End With
     End Sub
 

Contratos/ContratoObra.aspx.vb

@@ -4387,7 +4387,7 @@ Partial Class Contratos_ContratoObra
             DTCargaPresupuesto = CargaPresupuestoExcel("Presupuesto")
 
             If DTCargaPresupuesto.Rows.Count > 0 Then
-                ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, Nothing, Nothing, Nothing)
+                ProcesaDatosCargaPresupuesto(EnumTipoCargaPresupuesto.Ventas, DTCargaPresupuesto, Nothing, Nothing, Nothing)
             Else
                 Alert("No se encintraron partidas en el documento", TipoMensaje.MsgAdvertencia)
             End If
@@ -4399,7 +4399,7 @@ Partial Class Contratos_ContratoObra
             DTCargaPresupuestoFlotillas = CargaPresupuestoExcel("Maquinaria")
             DTCargaPresupuestoIndirectos = CargaPresupuestoExcel("Indirectos")
 
-            ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas, DTCargaPresupuestoIndirectos)
+            ProcesaDatosCargaPresupuesto(EnumTipoCargaPresupuesto.Control, DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas, DTCargaPresupuestoIndirectos)
 
         End If
 
@@ -4551,15 +4551,20 @@ Partial Class Contratos_ContratoObra
                 'si el presupuesto es de ventas. solo valida con el codigo del producto
                 'si es presupuesto es de control, valida por ambos
 
-                If CvePS = -1 AndAlso TipoPresupuesto = EnumTipoCargaPresupuesto.Control Then
+                If CvePS = -1 Then
 
-                    StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c)
+                    'si es presup ventas, busca por producto, 
-                    If StrArray.Length > 0 Then
+                    If TipoPresupuesto = EnumTipoCargaPresupuesto.Control Then
-                        If CBool(StrArray(0)) = True Then
+
-                            CvePS = StrArray(1).ToEntero
+                        StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c)
+                        If StrArray.Length > 0 Then
+                            If CBool(StrArray(0)) = True Then
+                                CvePS = StrArray(1).ToEntero
+                            End If
                         End If
                     End If
 
+
                     If CvePS = -1 Then
 
                         Dim ObjPS As New ClsProductosServicios
@@ -4586,8 +4591,7 @@ Partial Class Contratos_ContratoObra
                         End If
 
                         ObjPS.Dispose()
-                    Else
+
-                        RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>"
                     End If
 
                 End If

Empresas/146/Formatos/Cotizacion.rdlc

@@ -1246,24 +1246,6 @@
           </Border>
         </Style>
       </Line>      
-      <Image Name="Image9">
-        <Source>Embedded</Source>
-        <Value>VISTAPREVIA22</Value>
-        <Sizing>FitProportional</Sizing>
-        <Top>0.01389in</Top>
-        <Left>7.40306in</Left>
-        <Height>6.34944in</Height>
-        <Width>0.09753in</Width>
-        <ZIndex>20</ZIndex>
-        <Visibility>
-          <Hidden>=IIf(Parameters!CveVenta.Value &gt; 0, True,False)</Hidden>
-        </Visibility>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-        </Style>
-      </Image>
     </ReportItems>
     <Height>6.36333in</Height>
     <Style />

Empresas/158/Formatos/Factura.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2016/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DsOC">
@@ -4892,434 +4892,7 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  <ReportParametersLayout>
+  
-    <GridLayoutDefinition>
-      <NumberOfColumns>2</NumberOfColumns>
-      <NumberOfRows>42</NumberOfRows>
-      <CellDefinitions>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>0</RowIndex>
-          <ParameterName>ClienteCodigo</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>0</RowIndex>
-          <ParameterName>ClienteNombre</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>1</RowIndex>
-          <ParameterName>ClienteDireccion</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>1</RowIndex>
-          <ParameterName>ClienteLugar</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>2</RowIndex>
-          <ParameterName>ClienteTelefono</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>2</RowIndex>
-          <ParameterName>ClienteContacto</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>3</RowIndex>
-          <ParameterName>ClienteContactoMail</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>3</RowIndex>
-          <ParameterName>ClienteCalle</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>4</RowIndex>
-          <ParameterName>ClienteColonia</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>4</RowIndex>
-          <ParameterName>ClienteCiudad</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>5</RowIndex>
-          <ParameterName>ClienteMunicipio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>5</RowIndex>
-          <ParameterName>ClienteEstado</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>6</RowIndex>
-          <ParameterName>ClienteCP</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>6</RowIndex>
-          <ParameterName>ClientePais</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>7</RowIndex>
-          <ParameterName>ClienteNoInt</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>7</RowIndex>
-          <ParameterName>ClienteNoExt</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>8</RowIndex>
-          <ParameterName>ClienteRFC</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>8</RowIndex>
-          <ParameterName>ImporteLetra</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>9</RowIndex>
-          <ParameterName>Observaciones</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>9</RowIndex>
-          <ParameterName>CveVendedor</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>10</RowIndex>
-          <ParameterName>Status</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>10</RowIndex>
-          <ParameterName>FechaSolicitud</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>11</RowIndex>
-          <ParameterName>Folio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>11</RowIndex>
-          <ParameterName>Descuento</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>12</RowIndex>
-          <ParameterName>SubTotal</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>12</RowIndex>
-          <ParameterName>IVA</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>13</RowIndex>
-          <ParameterName>Total</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>13</RowIndex>
-          <ParameterName>Fecha</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>14</RowIndex>
-          <ParameterName>DomicilioSucursal</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>14</RowIndex>
-          <ParameterName>MetodoPago</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>15</RowIndex>
-          <ParameterName>Vencimiento</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>15</RowIndex>
-          <ParameterName>FolioFiscal</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>16</RowIndex>
-          <ParameterName>FechaCertificacion</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>16</RowIndex>
-          <ParameterName>SelloCFDI</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>17</RowIndex>
-          <ParameterName>CadenaSAT</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>17</RowIndex>
-          <ParameterName>SelloSAT</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>18</RowIndex>
-          <ParameterName>CiudadSucursal</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>18</RowIndex>
-          <ParameterName>Serie</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>19</RowIndex>
-          <ParameterName>QR</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>19</RowIndex>
-          <ParameterName>FormaPago</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>20</RowIndex>
-          <ParameterName>LogoPath</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>20</RowIndex>
-          <ParameterName>VendedorNombre</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>21</RowIndex>
-          <ParameterName>VendedorCelular</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>21</RowIndex>
-          <ParameterName>VendedorMail</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>22</RowIndex>
-          <ParameterName>VendedorTelefono</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>22</RowIndex>
-          <ParameterName>Moneda</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>23</RowIndex>
-          <ParameterName>TipoCambio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>23</RowIndex>
-          <ParameterName>CondicionPago</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>24</RowIndex>
-          <ParameterName>CadenaOriginal</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>24</RowIndex>
-          <ParameterName>SerieCertificadoSAT</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>25</RowIndex>
-          <ParameterName>Tipo</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>25</RowIndex>
-          <ParameterName>NumCta</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>26</RowIndex>
-          <ParameterName>CertificadoContribuyente</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>26</RowIndex>
-          <ParameterName>Amortizacion</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>27</RowIndex>
-          <ParameterName>SubTotal2</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>27</RowIndex>
-          <ParameterName>RetIVA</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>28</RowIndex>
-          <ParameterName>RetISR</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>28</RowIndex>
-          <ParameterName>TipoDocumento</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>29</RowIndex>
-          <ParameterName>AplicaPagare</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>29</RowIndex>
-          <ParameterName>Ref</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>30</RowIndex>
-          <ParameterName>Sucursal</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>30</RowIndex>
-          <ParameterName>ClienteDiasCredito</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>31</RowIndex>
-          <ParameterName>OC</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>31</RowIndex>
-          <ParameterName>MonedaAbreviatura</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>32</RowIndex>
-          <ParameterName>UsuarioImprimio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>32</RowIndex>
-          <ParameterName>FechaImpresion</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>33</RowIndex>
-          <ParameterName>EnvioDireccion</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>33</RowIndex>
-          <ParameterName>EnvioColonia</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>34</RowIndex>
-          <ParameterName>EnvioCiudad</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>34</RowIndex>
-          <ParameterName>EnvioEstado</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>35</RowIndex>
-          <ParameterName>EnvioCP</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>35</RowIndex>
-          <ParameterName>EnvioNoExt</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>36</RowIndex>
-          <ParameterName>EnvioNoInt</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>36</RowIndex>
-          <ParameterName>EnvioContacto</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>37</RowIndex>
-          <ParameterName>EnvioDepartamento</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>37</RowIndex>
-          <ParameterName>EstatusFactura</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>38</RowIndex>
-          <ParameterName>EstatusEntrega</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>38</RowIndex>
-          <ParameterName>PedidoContrato</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>39</RowIndex>
-          <ParameterName>DescripcionContrato</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>39</RowIndex>
-          <ParameterName>OrdenCompra</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>40</RowIndex>
-          <ParameterName>UsoCFDI</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>40</RowIndex>
-          <ParameterName>TipoRelacionTexto</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>41</RowIndex>
-          <ParameterName>FolioFiscalRelacionado</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>41</RowIndex>
-          <ParameterName>Contrato</ParameterName>
-        </CellDefinition>
-      </CellDefinitions>
-    </GridLayoutDefinition>
-  </ReportParametersLayout>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo119">
       <MIMEType>image/png</MIMEType>

vwd.webinfo

@@ -280,6 +280,14 @@
     
   
     
+  
+    
+  
+    
+  
+    
+  
+