AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2022-06-09 10:17:04 -07:00
parent 8bd82a0b46 b6f372a406
commit 1cd0731837
15 changed files with 243 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
App_Code/ClsCompProveedores.vb
View File

@@ -112,6 +112,7 @@ Public Class ClsCompProveedores
Public Property DIOTCvePais As Integer
Public Property Situacion As String = ""
Public Property DIOTNacionalidad As String
Public Property CveRegimenFiscal As Integer = -1
Public ReadOnly Property DtResultados() As DataTable
Get
@@ -399,6 +400,8 @@ Public Class ClsCompProveedores
Me.DIOTCvePais = Data.Rows(0)("DIOTCvePais").ToString.ToEntero
Me.Situacion = Data.Rows(0)("Situacion").ToString
Me.DIOTNacionalidad = Data.Rows(0)("DIOTNacionalidad").ToString
Me.CveRegimenFiscal = Data.Rows(0)("CveRegimenFiscal").ToString.ToEntero
End If
Retorno = True
@@ -421,7 +424,7 @@ Public Class ClsCompProveedores
IdCtaContRetIVAAcreditable As Integer, CtaContRetIVAACreditable As String, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveUsuario As Integer, CveEmpresa As Integer,
Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "",
Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
Optional CveConfianzaProveedor As Integer = -1) As Boolean
Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -524,6 +527,9 @@ Public Class ClsCompProveedores
.Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
End With
@@ -564,7 +570,7 @@ Public Class ClsCompProveedores
IdCtaContRetIVAAcreditable As Integer, CtaContRetIVAACreditable As String, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer,
Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1,
Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
Optional CveConfianzaProveedor As Integer = -1) As Boolean
Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ProveedorUpdate")
@@ -666,7 +672,9 @@ Public Class ClsCompProveedores
.Add("@FechaEvaluacion", SqlDbType.VarChar).Value = FechaEvaluacion
.Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador
.Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
End With

33
App_Code/ClsNominas.vb
View File

@@ -3182,44 +3182,47 @@ Public Class ClsNominas
Return retorno
End Function
#Region "CRUD_SolicitudesNominas"
Public Function SolicitudesNominasGet(idSolicitudNominas As Integer, CveEmpresa As Integer) As Boolean
Public Function SolicitudesGet(CveSolicitud As Integer, CveEmpresa As Integer, Optional CveTipoSolicitud As Integer = 1) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_Gral_SAT_SolicitudesNominasGet", CommandType.StoredProcedure)
addParameters("@idSolicitudNominas", SqlDbType.Int, idSolicitudNominas)
DataAdapter("PA_Gral_SAT_SolicitudesGet", CommandType.StoredProcedure)
addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud)
addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa)
addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud)
retorno = RunQuery("Ocurrió un error al obtener el SolicitudesNominas.")
Return retorno
End Function
Public Function SolicitudesNominasAdd(idSolicitudCFDI As Integer, idSolicitudMetadata As Integer, estatus As Integer, observaciones As String, fechaInicio As DateTime, fechaFin As DateTime, cveUsuarioIng As Int32, cveEmpresa As Int32) As Boolean
Public Function SolicitudesAdd(CveSolicitudCFDI As Integer, CveSolicitudMetadata As Integer, estatus As Integer, observaciones As String, fechaInicio As DateTime, fechaFin As DateTime, cveUsuarioIng As Int32, cveEmpresa As Int32, Optional CveTipoSolicitud As Integer = 1) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_Gral_SAT_SolicitudesNominasAdd", CommandType.StoredProcedure)
addParameters("@idSolicitudCFDI", SqlDbType.Int, idSolicitudCFDI)
addParameters("@idSolicitudMetadata", SqlDbType.Int, idSolicitudMetadata)
DataAdapter("PA_Gral_SAT_SolicitudesAdd", CommandType.StoredProcedure)
addParameters("@CveSolicitudCFDI", SqlDbType.Int, CveSolicitudCFDI)
addParameters("@CveSolicitudMetadata", SqlDbType.Int, CveSolicitudMetadata)
addParameters("@Estatus", SqlDbType.Int, estatus)
addParameters("@Observaciones", SqlDbType.VarChar, observaciones)
addParameters("@FechaInicio", SqlDbType.DateTime, fechaInicio)
addParameters("@FechaFin", SqlDbType.DateTime, fechaFin)
addParameters("@CveUsuarioIng", SqlDbType.Int, cveUsuarioIng)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud)
retorno = RunQuery("Ocurrió un error al agregar el SolicitudesNominas.")
Return retorno
End Function
Public Function SolicitudesNominasUp(idSolicitudNominas As Int32, idSolicitudCFDI As Int32, idSolicitudMetadata As Int32, estatus As Int32, observaciones As String, cveEmpresa As Int32) As Boolean
Public Function SolicitudesUp(CveSolicitud As Int32, CveSolicitudCFDI As Int32, CveSolicitudMetadata As Int32, estatus As Int32, observaciones As String, cveEmpresa As Int32) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_Gral_SAT_SolicitudesNominasUp", CommandType.StoredProcedure)
addParameters("@idSolicitudNominas", SqlDbType.Int, idSolicitudNominas)
addParameters("@idSolicitudCFDI", SqlDbType.Int, idSolicitudCFDI)
addParameters("@idSolicitudMetadata", SqlDbType.Int, idSolicitudMetadata)
DataAdapter("PA_Gral_SAT_SolicitudesUp", CommandType.StoredProcedure)
addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud)
addParameters("@CveSolicitudCFDI", SqlDbType.Int, CveSolicitudCFDI)
addParameters("@CveSolicitudMetadata", SqlDbType.Int, CveSolicitudMetadata)
addParameters("@Estatus", SqlDbType.Int, estatus)
addParameters("@Observaciones", SqlDbType.VarChar, observaciones)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
retorno = RunQuery("Ocurrió un error al actualizar el SolicitudesNominas.")
Return retorno
End Function
Public Function SolicitudesNominasRemove(idSolicitudNominas As Int32, CveEmpresa As Integer) As Boolean
Public Function SolicitudesRemove(CveSolicitud As Int32, CveEmpresa As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_Gral_SAT_SolicitudesNominasRemove", CommandType.StoredProcedure)
addParameters("@idSolicitudNominas", SqlDbType.Int, idSolicitudNominas)
DataAdapter("PA_Gral_SAT_SolicitudesRemove", CommandType.StoredProcedure)
addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud)
addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa)
retorno = RunQuery("Ocurrió un error al eliminar el SolicitudesNominas.")
Return retorno

11
Compras/Compras.aspx.vb
View File

@@ -2205,12 +2205,13 @@ Partial Class Compras_Compras
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
End If
If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
End If
ElseIf RFCProv.Length = 12 Then
If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
@@ -2220,12 +2221,14 @@ Partial Class Compras_Compras
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
End If
If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
End If
End If
End If
@@ -2251,12 +2254,14 @@ Partial Class Compras_Compras
DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
End If
If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
End If
End If
UpPS.Update()
End Sub

14
Compras/Proveedores.aspx
View File

@@ -350,6 +350,20 @@
</asp:DropDownList>
</td>
</tr>
<tr>
<td>Regimen Fiscal:</td>
<td>
<asp:DropDownList ID="DdlRegimenFiscal" DataTextField="CodigoRegimenFiscalTexto" Width="206px" DataValueField="CveRegimenFiscal" runat="server" CssClass="form-control select2me input-sm">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlRegimenFiscal" runat="server" ControlToValidate="DdlRegimenFiscal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen Fiscal''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco posicionvalidation" TargetControlID="RfvDdlRegimenFiscal" Width="350px"></ajax:ValidatorCalloutExtender>
</td>
</tr>
<tr style="display: none">
<td>Estatus SAT:</td>
<td>

25
Compras/Proveedores.aspx.vb
View File

@@ -485,6 +485,7 @@ Partial Class Compras_Proveedores
SerieSucursal = ""
TrFolioDuplicado.Visible = False
CargaMonedas()
CargaRegimenFiscal()
'HlAgregarExcel.Visible = UsuarioActual.CveRol = 1
If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
@@ -648,6 +649,13 @@ Partial Class Compras_Proveedores
RegisterPostBackControl()
End Sub
Private Sub CargaRegimenFiscal()
DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales
DdlRegimenFiscal.DataBind()
DdlRegimenFiscal.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
End Sub
Private Sub SetValues()
ViewState("Orden") = ""
ViewState("OrdenUsuarios") = ""
@@ -741,6 +749,17 @@ Partial Class Compras_Proveedores
TxtRazonSocial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
ChkEstado.Checked = True
Dim CodigoRegimenFiscal As String = ValorXml(node, "RegimenFiscal")
If Version = "4.0" Or CodigoRegimenFiscal.Trim.Length > 0 Then
Dim CveRegimenFiscal As Integer = GlobalDTRegimenesFiscales(-1).FiltroPrimeroValor("CveRegimenFiscal", $" CodigoRegimenFiscal = '{ CodigoRegimenFiscal }'").ToEntero
DdlRegimenFiscal.SelectedValueExist(CveRegimenFiscal)
End If
Else
TxtRazonSocial.Text = HttpUtility.HtmlDecode(ValorXml(node, "nombre"))
TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "nombre"))
@@ -865,6 +884,8 @@ Partial Class Compras_Proveedores
DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad
DdlRegimenFiscal.SelectedValueExist(ObjProveedor.CveRegimenFiscal
)
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
CargaCuentasConceptos()
divCuentas.Visible = True
@@ -1716,7 +1737,7 @@ Partial Class Compras_Proveedores
DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text,
AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero()) Then
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
Dim NuevoCveProveedor = ObjProveedores.CveProveedor
@@ -1877,7 +1898,7 @@ Partial Class Compras_Proveedores
DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor,
DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario,
DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero()) Then
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
'CargaDatos()

134
Empresas/13/Formatos/Factura.rdlc
View File

@@ -89,7 +89,16 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Régimen Fiscal: 601 - General de Ley Personas Morales</Value>
<Value>Régimen Fiscal: </Value>
<Style>
<FontStyle>Normal</FontStyle>
<FontWeight>Bold</FontWeight>
<TextDecoration>None</TextDecoration>
<Color>#000000</Color>
</Style>
</TextRun>
<TextRun>
<Value>=IIF(Parameters!RegimenFiscalCodigo.Value="ND-","601 - General de Ley Personas Morales",Parameters!RegimenFiscalCodigo.Value)</Value>
<Style>
<FontStyle>Normal</FontStyle>
<FontWeight>Bold</FontWeight>
@@ -232,7 +241,10 @@
<Width>1.66402cm</Width>
</TablixColumn>
<TablixColumn>
<Width>8.32569cm</Width>
<Width>7.00103cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.45695cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.42482cm</Width>
@@ -492,6 +504,52 @@
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox7">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Obj. Imp.</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
<Color>SteelBlue</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox7</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Style>None</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
</TopBorder>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
</BottomBorder>
<BackgroundColor>White</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox84">
@@ -834,6 +892,43 @@
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="CodigoObjetoImpuesto">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!CodigoObjetoImpuesto.Value</Value>
<Style>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>CodigoObjetoImpuesto</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>None</Style>
</Border>
<RightBorder>
<Color>#4f81bd</Color>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="PU1">
@@ -960,6 +1055,7 @@
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
@@ -976,7 +1072,7 @@
<Top>6.28717cm</Top>
<Left>0.08756cm</Left>
<Height>1.2353cm</Height>
<Width>20.06999cm</Width>
<Width>20.20228cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
@@ -2436,7 +2532,21 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Version 3.3</Value>
<Value>Version </Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!CFDIVersion.Value</Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
@@ -3626,6 +3736,10 @@
<DataField>SATClaveUM</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CodigoObjetoImpuesto">
<DataField>CodigoObjetoImpuesto</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DsOC</rd:DataSetName>
@@ -4614,6 +4728,18 @@
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RegimenFiscalCodigo">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<EmbeddedImages>
<EmbeddedImage Name="Logo">

24
GPS/PalletEtiquetaCaja.rdlc
View File

@@ -1311,7 +1311,7 @@ KM12 HERMOSILLO, SONORA</Value>
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.07938cm</Height>
<Height>0.065cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
@@ -1695,7 +1695,7 @@ KM12 HERMOSILLO, SONORA</Value>
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.38834cm</Height>
<Height>0.3cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
@@ -1737,7 +1737,7 @@ KM12 HERMOSILLO, SONORA</Value>
<TextRun>
<Value>=Parameters!Envase.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
@@ -1757,7 +1757,6 @@ KM12 HERMOSILLO, SONORA</Value>
</Style>
</Textbox>
<ColSpan>4</ColSpan>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell />
@@ -1834,7 +1833,7 @@ KM12 HERMOSILLO, SONORA</Value>
<TextRun>
<Value>=Parameters!Envase.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
@@ -2132,7 +2131,7 @@ KM12 HERMOSILLO, SONORA</Value>
<TextRun>
<Value>=Parameters!Envase.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
@@ -2230,7 +2229,7 @@ KM12 HERMOSILLO, SONORA</Value>
<TextRun>
<Value>=Parameters!Envase.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
@@ -2269,7 +2268,7 @@ KM12 HERMOSILLO, SONORA</Value>
<Paragraph>
<TextRuns>
<TextRun>
<Value EvaluationMode="Constant">9999C6A22001418</Value>
<Value>=IIf(Trim(Parameters!Cultivo.Value.ToString())="Tomate","A-201-820-N17","9999C6A22001418")</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
@@ -2304,7 +2303,7 @@ KM12 HERMOSILLO, SONORA</Value>
<TextRun>
<Value>=Parameters!Tamano.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
@@ -2365,7 +2364,7 @@ KM12 HERMOSILLO, SONORA</Value>
<Paragraph>
<TextRuns>
<TextRun>
<Value EvaluationMode="Constant">9999C6A22001418</Value>
<Value>=IIf(Trim(Parameters!Cultivo.Value.ToString())="Tomate","A-201-820-N17","9999C6A22001418")</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
@@ -2385,6 +2384,7 @@ KM12 HERMOSILLO, SONORA</Value>
</Style>
</Textbox>
<ColSpan>3</ColSpan>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell />
@@ -2400,7 +2400,7 @@ KM12 HERMOSILLO, SONORA</Value>
<TextRun>
<Value>=Parameters!Tamano.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
@@ -3387,7 +3387,7 @@ Produce of MX.</Value>
<DataSetName>DataSet1</DataSetName>
<Top>0.00969cm</Top>
<Left>0.05333cm</Left>
<Height>7.23476cm</Height>
<Height>7.13204cm</Height>
<Width>9.75cm</Width>
<Style>
<Border>

8
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -414,6 +414,11 @@ Partial Class Inventarios_EntradasSalidas
LnkCambioVigencia.Visible = True
End If
If EsConsumoInterno AndAlso UsuarioActual.TienePermisoProceso(340) Then
TxtFecha.Enabled = True
ImgFecha.Visible = True
End If
End If
End Sub
@@ -1056,6 +1061,9 @@ Partial Class Inventarios_EntradasSalidas
End If
UpModalInventarioFisico.Update()
BloqueaEdicionEncabezado()
Mov.Dispose()

2
Nomina/Finiquito.aspx.cs
View File

@@ -817,7 +817,7 @@ public partial class Nomina_Finiquito : ClsPaginas
{
int SRCvePersonal = this.CvePersonal;
DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema NOT IN(10,11,32) ");
DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema <> 47");
DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema NOT IN( 47,101)");
double percepcionesindem = 0;
double deduccionesindem = 0;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema IN(10,11,32) ").Rows)

4
Nomina/Nomina.aspx.cs
View File

@@ -3442,7 +3442,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreRecibo.rdlc");
}
ImprimirPDF(urlfile, lrds, parametros, "SobreRecibo", "PDF", null);
ImprimirPDF(urlfile, lrds, parametros, "SobreRecibo", "PDF", null,Content_Disposition: "Inline");
}
protected void BtnGuardarInfornavit_Click(object sender, EventArgs e)
{
@@ -6573,7 +6573,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreRecibo.rdlc");
}
ImprimirPDF(urlfile, lrds, parametros, "SobreRecibo", "PDF", null);
ImprimirPDF(urlfile, lrds, parametros, "SobreRecibo", "PDF", null, Content_Disposition: "Inline");
}
protected void DdlTipoPeriodoSim_SelectedIndexChanged(object sender, EventArgs e)
{

8
SAT/SolicitudesNominaSat.aspx
View File

@@ -486,11 +486,11 @@
<asp:GridView ID="GVSolicitudesPendientes" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
DataKeyNames="idSolicitudNominas,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa">
DataKeyNames="CveSolicitud,CveSolicitudCFDI,CveSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa">
<columns>
<asp:TemplateField HeaderText="Folio">
<itemtemplate>
<asp:Label runat="server" Text='<%# Eval("idSolicitudNominas")%>'></asp:Label>
<asp:Label runat="server" Text='<%# Eval("CveSolicitud")%>'></asp:Label>
</itemtemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Inicio">
@@ -541,11 +541,11 @@
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
<asp:GridView ID="GVSolicitudesNominas" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
DataKeyNames="idSolicitudNominas,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa">
DataKeyNames="CveSolicitud,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa">
<columns>
<asp:TemplateField HeaderText="Folio">
<itemtemplate>
<asp:Label runat="server" Text='<%# Eval("idSolicitudNominas")%>'></asp:Label>
<asp:Label runat="server" Text='<%# Eval("CveSolicitud")%>'></asp:Label>
</itemtemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Inicio">

4
SAT/SolicitudesNominaSat.aspx.cs
View File

@@ -169,7 +169,7 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas
using (ClsNominas nom = new ClsNominas())
{
if (nom.SolicitudesNominasGet(-1, UsuarioActual.CveEmpresa))
if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa))
{
GVSolicitudesPendientes.DataSource = nom.DtResultados.FiltraParametros("Estatus =0");
@@ -200,7 +200,7 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas
bool Continuar = false;
using (ClsNominas nom = new ClsNominas())
{
Continuar = nom.SolicitudesNominasAdd(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa);
Continuar = nom.SolicitudesAdd(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa);
var api = new GeneralesAPI();
api.GeneraSolicitud();
api.VerificaSolicitudesNominas();

10
Ventas/RepRemisiones.aspx.vb
View File

@@ -209,9 +209,8 @@ Partial Class RepRemisiones
If DdlVendedor.GetSelectedText <> "" Then StrFiltro.AppendFormat("&emsp;<b>Vendedor</b>: {0}", DdlVendedor.GetSelectedText)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim FechaI, FechaF As String
FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
@@ -222,9 +221,10 @@ Partial Class RepRemisiones
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If

9
Ventas/RepRemisionesDetalle.aspx.vb
View File

@@ -239,9 +239,8 @@ Partial Class RepRemisionesDetalle
If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
If TxtFechaVencimiento.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Vencimiento al</b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim FechaI = "", FechaF = ""
@@ -252,8 +251,8 @@ Partial Class RepRemisionesDetalle
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If

2
vwd.webinfo
View File

@@ -500,6 +500,8 @@