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:
JORGE LUIS CAUDILLO ESPARZA
2023-06-28 02:28:47 -07:00
parent 2ec46c0900 20a9739fa1
commit 54e8d8cde7
22 changed files with 687 additions and 308 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
App_Code/ClsBancos.vb
View File

@@ -848,21 +848,41 @@ Public Class ClsBancos
Return Retorno
End Function
Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_PrePolizasDetalleGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@CveOC", SqlDbType.Int).Value = CveOC
End With
'Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Conta_PrePolizasDetalleGet")
' With SqlAdapter.SelectCommand.Parameters
' .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
' .Add("@CveIE", SqlDbType.Int).Value = CveIE
' .Add("@CveOC", SqlDbType.Int).Value = CveOC
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al obtener Movimientos Prepolizas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
'End Function
Public Function GetBancosIEFacturasPagadas(CveIE As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Banc_IEFacturasPagadasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener Movimientos Prepolizas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
OnError("Ocurrió un error al obtener los movimientos del documento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
@@ -944,6 +964,7 @@ Public Class ClsBancos
Return Retorno
End Function
Public Function GetFoliosCancelados(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Banc_FoliosCanceladosGet")

6
App_Code/ClsContabilidad.vb
View File

@@ -1195,14 +1195,14 @@ Public Class ClsContabilidad
Return Concepto
End Function
Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1) As Boolean
Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_PrePolizasDetalleGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
.Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@CveIE", SqlDbType.Int).Value = -1
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
'.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
End With
Try

32
App_Code/DtDatos.xsd
View File

@@ -12,7 +12,7 @@
<xs:element name="DtDatos" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:Generator_DataSetName="DtDatos" msprop:Generator_UserDSName="DtDatos">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="DataTable1" msprop:Generator_TableClassName="DataTable1DataTable" msprop:Generator_TableVarName="tableDataTable1" msprop:Generator_TablePropName="DataTable1" msprop:Generator_RowDeletingName="DataTable1RowDeleting" msprop:Generator_RowChangingName="DataTable1RowChanging" msprop:Generator_RowEvHandlerName="DataTable1RowChangeEventHandler" msprop:Generator_RowDeletedName="DataTable1RowDeleted" msprop:Generator_UserTableName="DataTable1" msprop:Generator_RowChangedName="DataTable1RowChanged" msprop:Generator_RowEvArgName="DataTable1RowChangeEvent" msprop:Generator_RowClassName="DataTable1Row">
<xs:element name="DataTable1" msprop:Generator_TableClassName="DataTable1DataTable" msprop:Generator_TableVarName="tableDataTable1" msprop:Generator_RowChangedName="DataTable1RowChanged" msprop:Generator_TablePropName="DataTable1" msprop:Generator_RowDeletingName="DataTable1RowDeleting" msprop:Generator_RowChangingName="DataTable1RowChanging" msprop:Generator_RowEvHandlerName="DataTable1RowChangeEventHandler" msprop:Generator_RowDeletedName="DataTable1RowDeleted" msprop:Generator_RowClassName="DataTable1Row" msprop:Generator_UserTableName="DataTable1" msprop:Generator_RowEvArgName="DataTable1RowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -28,7 +28,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VentaUtilidadDetalle" msprop:Generator_TableClassName="VentaUtilidadDetalleDataTable" msprop:Generator_TableVarName="tableVentaUtilidadDetalle" msprop:Generator_RowChangedName="VentaUtilidadDetalleRowChanged" msprop:Generator_TablePropName="VentaUtilidadDetalle" msprop:Generator_RowDeletingName="VentaUtilidadDetalleRowDeleting" msprop:Generator_RowChangingName="VentaUtilidadDetalleRowChanging" msprop:Generator_RowEvHandlerName="VentaUtilidadDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="VentaUtilidadDetalleRowDeleted" msprop:Generator_RowClassName="VentaUtilidadDetalleRow" msprop:Generator_UserTableName="VentaUtilidadDetalle" msprop:Generator_RowEvArgName="VentaUtilidadDetalleRowChangeEvent">
<xs:element name="VentaUtilidadDetalle" msprop:Generator_TableClassName="VentaUtilidadDetalleDataTable" msprop:Generator_TableVarName="tableVentaUtilidadDetalle" msprop:Generator_TablePropName="VentaUtilidadDetalle" msprop:Generator_RowDeletingName="VentaUtilidadDetalleRowDeleting" msprop:Generator_RowChangingName="VentaUtilidadDetalleRowChanging" msprop:Generator_RowEvHandlerName="VentaUtilidadDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="VentaUtilidadDetalleRowDeleted" msprop:Generator_UserTableName="VentaUtilidadDetalle" msprop:Generator_RowChangedName="VentaUtilidadDetalleRowChanged" msprop:Generator_RowEvArgName="VentaUtilidadDetalleRowChangeEvent" msprop:Generator_RowClassName="VentaUtilidadDetalleRow">
<xs:complexType>
<xs:sequence>
<xs:element name="CantVta" msprop:Generator_ColumnVarNameInTable="columnCantVta" msprop:Generator_ColumnPropNameInRow="CantVta" msprop:Generator_ColumnPropNameInTable="CantVtaColumn" msprop:Generator_UserColumnName="CantVta" type="xs:decimal" minOccurs="0" />
@@ -46,7 +46,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="RepClientesCxC" msprop:Generator_TableClassName="RepClientesCxCDataTable" msprop:Generator_TableVarName="tableRepClientesCxC" msprop:Generator_RowChangedName="RepClientesCxCRowChanged" msprop:Generator_TablePropName="RepClientesCxC" msprop:Generator_RowDeletingName="RepClientesCxCRowDeleting" msprop:Generator_RowChangingName="RepClientesCxCRowChanging" msprop:Generator_RowEvHandlerName="RepClientesCxCRowChangeEventHandler" msprop:Generator_RowDeletedName="RepClientesCxCRowDeleted" msprop:Generator_RowClassName="RepClientesCxCRow" msprop:Generator_UserTableName="RepClientesCxC" msprop:Generator_RowEvArgName="RepClientesCxCRowChangeEvent">
<xs:element name="RepClientesCxC" msprop:Generator_TableClassName="RepClientesCxCDataTable" msprop:Generator_TableVarName="tableRepClientesCxC" msprop:Generator_TablePropName="RepClientesCxC" msprop:Generator_RowDeletingName="RepClientesCxCRowDeleting" msprop:Generator_RowChangingName="RepClientesCxCRowChanging" msprop:Generator_RowEvHandlerName="RepClientesCxCRowChangeEventHandler" msprop:Generator_RowDeletedName="RepClientesCxCRowDeleted" msprop:Generator_UserTableName="RepClientesCxC" msprop:Generator_RowChangedName="RepClientesCxCRowChanged" msprop:Generator_RowEvArgName="RepClientesCxCRowChangeEvent" msprop:Generator_RowClassName="RepClientesCxCRow">
<xs:complexType>
<xs:sequence>
<xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -66,7 +66,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="LibroMayor" msprop:Generator_TableClassName="LibroMayorDataTable" msprop:Generator_TableVarName="tableLibroMayor" msprop:Generator_TablePropName="LibroMayor" msprop:Generator_RowDeletingName="LibroMayorRowDeleting" msprop:Generator_RowChangingName="LibroMayorRowChanging" msprop:Generator_RowEvHandlerName="LibroMayorRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroMayorRowDeleted" msprop:Generator_UserTableName="LibroMayor" msprop:Generator_RowChangedName="LibroMayorRowChanged" msprop:Generator_RowEvArgName="LibroMayorRowChangeEvent" msprop:Generator_RowClassName="LibroMayorRow">
<xs:element name="LibroMayor" msprop:Generator_TableClassName="LibroMayorDataTable" msprop:Generator_TableVarName="tableLibroMayor" msprop:Generator_RowChangedName="LibroMayorRowChanged" msprop:Generator_TablePropName="LibroMayor" msprop:Generator_RowDeletingName="LibroMayorRowDeleting" msprop:Generator_RowChangingName="LibroMayorRowChanging" msprop:Generator_RowEvHandlerName="LibroMayorRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroMayorRowDeleted" msprop:Generator_RowClassName="LibroMayorRow" msprop:Generator_UserTableName="LibroMayor" msprop:Generator_RowEvArgName="LibroMayorRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="Fecha" msprop:Generator_ColumnVarNameInTable="columnFecha" msprop:Generator_ColumnPropNameInRow="Fecha" msprop:Generator_ColumnPropNameInTable="FechaColumn" msprop:Generator_UserColumnName="Fecha" type="xs:dateTime" minOccurs="0" />
@@ -89,7 +89,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="LibroDiario" msprop:Generator_TableClassName="LibroDiarioDataTable" msprop:Generator_TableVarName="tableLibroDiario" msprop:Generator_TablePropName="LibroDiario" msprop:Generator_RowDeletingName="LibroDiarioRowDeleting" msprop:Generator_RowChangingName="LibroDiarioRowChanging" msprop:Generator_RowEvHandlerName="LibroDiarioRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroDiarioRowDeleted" msprop:Generator_UserTableName="LibroDiario" msprop:Generator_RowChangedName="LibroDiarioRowChanged" msprop:Generator_RowEvArgName="LibroDiarioRowChangeEvent" msprop:Generator_RowClassName="LibroDiarioRow">
<xs:element name="LibroDiario" msprop:Generator_TableClassName="LibroDiarioDataTable" msprop:Generator_TableVarName="tableLibroDiario" msprop:Generator_RowChangedName="LibroDiarioRowChanged" msprop:Generator_TablePropName="LibroDiario" msprop:Generator_RowDeletingName="LibroDiarioRowDeleting" msprop:Generator_RowChangingName="LibroDiarioRowChanging" msprop:Generator_RowEvHandlerName="LibroDiarioRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroDiarioRowDeleted" msprop:Generator_RowClassName="LibroDiarioRow" msprop:Generator_UserTableName="LibroDiario" msprop:Generator_RowEvArgName="LibroDiarioRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="Fecha" msprop:Generator_ColumnVarNameInTable="columnFecha" msprop:Generator_ColumnPropNameInRow="Fecha" msprop:Generator_ColumnPropNameInTable="FechaColumn" msprop:Generator_UserColumnName="Fecha" type="xs:dateTime" minOccurs="0" />
@@ -113,7 +113,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="RepBalanzaComprobacion" msprop:Generator_TableClassName="RepBalanzaComprobacionDataTable" msprop:Generator_TableVarName="tableRepBalanzaComprobacion" msprop:Generator_RowChangedName="RepBalanzaComprobacionRowChanged" msprop:Generator_TablePropName="RepBalanzaComprobacion" msprop:Generator_RowDeletingName="RepBalanzaComprobacionRowDeleting" msprop:Generator_RowChangingName="RepBalanzaComprobacionRowChanging" msprop:Generator_RowEvHandlerName="RepBalanzaComprobacionRowChangeEventHandler" msprop:Generator_RowDeletedName="RepBalanzaComprobacionRowDeleted" msprop:Generator_RowClassName="RepBalanzaComprobacionRow" msprop:Generator_UserTableName="RepBalanzaComprobacion" msprop:Generator_RowEvArgName="RepBalanzaComprobacionRowChangeEvent">
<xs:element name="RepBalanzaComprobacion" msprop:Generator_TableClassName="RepBalanzaComprobacionDataTable" msprop:Generator_TableVarName="tableRepBalanzaComprobacion" msprop:Generator_TablePropName="RepBalanzaComprobacion" msprop:Generator_RowDeletingName="RepBalanzaComprobacionRowDeleting" msprop:Generator_RowChangingName="RepBalanzaComprobacionRowChanging" msprop:Generator_RowEvHandlerName="RepBalanzaComprobacionRowChangeEventHandler" msprop:Generator_RowDeletedName="RepBalanzaComprobacionRowDeleted" msprop:Generator_UserTableName="RepBalanzaComprobacion" msprop:Generator_RowChangedName="RepBalanzaComprobacionRowChanged" msprop:Generator_RowEvArgName="RepBalanzaComprobacionRowChangeEvent" msprop:Generator_RowClassName="RepBalanzaComprobacionRow">
<xs:complexType>
<xs:sequence>
<xs:element name="Id" msprop:Generator_ColumnVarNameInTable="columnId" msprop:Generator_ColumnPropNameInRow="Id" msprop:Generator_ColumnPropNameInTable="IdColumn" msprop:Generator_UserColumnName="Id" type="xs:string" minOccurs="0" />
@@ -139,7 +139,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="CatPS" msprop:Generator_TableClassName="CatPSDataTable" msprop:Generator_TableVarName="tableCatPS" msprop:Generator_TablePropName="CatPS" msprop:Generator_RowDeletingName="CatPSRowDeleting" msprop:Generator_RowChangingName="CatPSRowChanging" msprop:Generator_RowEvHandlerName="CatPSRowChangeEventHandler" msprop:Generator_RowDeletedName="CatPSRowDeleted" msprop:Generator_UserTableName="CatPS" msprop:Generator_RowChangedName="CatPSRowChanged" msprop:Generator_RowEvArgName="CatPSRowChangeEvent" msprop:Generator_RowClassName="CatPSRow">
<xs:element name="CatPS" msprop:Generator_TableClassName="CatPSDataTable" msprop:Generator_TableVarName="tableCatPS" msprop:Generator_RowChangedName="CatPSRowChanged" msprop:Generator_TablePropName="CatPS" msprop:Generator_RowDeletingName="CatPSRowDeleting" msprop:Generator_RowChangingName="CatPSRowChanging" msprop:Generator_RowEvHandlerName="CatPSRowChangeEventHandler" msprop:Generator_RowDeletedName="CatPSRowDeleted" msprop:Generator_RowClassName="CatPSRow" msprop:Generator_UserTableName="CatPS" msprop:Generator_RowEvArgName="CatPSRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="Clasificacion" msprop:Generator_ColumnVarNameInTable="columnClasificacion" msprop:Generator_ColumnPropNameInRow="Clasificacion" msprop:Generator_ColumnPropNameInTable="ClasificacionColumn" msprop:Generator_UserColumnName="Clasificacion" type="xs:string" minOccurs="0" />
@@ -155,7 +155,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="RepProveedorCxP" msprop:Generator_TableClassName="RepProveedorCxPDataTable" msprop:Generator_TableVarName="tableRepProveedorCxP" msprop:Generator_RowChangedName="RepProveedorCxPRowChanged" msprop:Generator_TablePropName="RepProveedorCxP" msprop:Generator_RowDeletingName="RepProveedorCxPRowDeleting" msprop:Generator_RowChangingName="RepProveedorCxPRowChanging" msprop:Generator_RowEvHandlerName="RepProveedorCxPRowChangeEventHandler" msprop:Generator_RowDeletedName="RepProveedorCxPRowDeleted" msprop:Generator_RowClassName="RepProveedorCxPRow" msprop:Generator_UserTableName="RepProveedorCxP" msprop:Generator_RowEvArgName="RepProveedorCxPRowChangeEvent">
<xs:element name="RepProveedorCxP" msprop:Generator_TableClassName="RepProveedorCxPDataTable" msprop:Generator_TableVarName="tableRepProveedorCxP" msprop:Generator_TablePropName="RepProveedorCxP" msprop:Generator_RowDeletingName="RepProveedorCxPRowDeleting" msprop:Generator_RowChangingName="RepProveedorCxPRowChanging" msprop:Generator_RowEvHandlerName="RepProveedorCxPRowChangeEventHandler" msprop:Generator_RowDeletedName="RepProveedorCxPRowDeleted" msprop:Generator_UserTableName="RepProveedorCxP" msprop:Generator_RowChangedName="RepProveedorCxPRowChanged" msprop:Generator_RowEvArgName="RepProveedorCxPRowChangeEvent" msprop:Generator_RowClassName="RepProveedorCxPRow">
<xs:complexType>
<xs:sequence>
<xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -172,7 +172,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ResumenNC" msprop:Generator_TableClassName="ResumenNCDataTable" msprop:Generator_TableVarName="tableResumenNC" msprop:Generator_RowChangedName="ResumenNCRowChanged" msprop:Generator_TablePropName="ResumenNC" msprop:Generator_RowDeletingName="ResumenNCRowDeleting" msprop:Generator_RowChangingName="ResumenNCRowChanging" msprop:Generator_RowEvHandlerName="ResumenNCRowChangeEventHandler" msprop:Generator_RowDeletedName="ResumenNCRowDeleted" msprop:Generator_RowClassName="ResumenNCRow" msprop:Generator_UserTableName="ResumenNC" msprop:Generator_RowEvArgName="ResumenNCRowChangeEvent">
<xs:element name="ResumenNC" msprop:Generator_TableClassName="ResumenNCDataTable" msprop:Generator_TableVarName="tableResumenNC" msprop:Generator_TablePropName="ResumenNC" msprop:Generator_RowDeletingName="ResumenNCRowDeleting" msprop:Generator_RowChangingName="ResumenNCRowChanging" msprop:Generator_RowEvHandlerName="ResumenNCRowChangeEventHandler" msprop:Generator_RowDeletedName="ResumenNCRowDeleted" msprop:Generator_UserTableName="ResumenNC" msprop:Generator_RowChangedName="ResumenNCRowChanged" msprop:Generator_RowEvArgName="ResumenNCRowChangeEvent" msprop:Generator_RowClassName="ResumenNCRow">
<xs:complexType>
<xs:sequence>
<xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -181,7 +181,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ProgramarRecursos" msprop:Generator_TableClassName="ProgramarRecursosDataTable" msprop:Generator_TableVarName="tableProgramarRecursos" msprop:Generator_RowChangedName="ProgramarRecursosRowChanged" msprop:Generator_TablePropName="ProgramarRecursos" msprop:Generator_RowDeletingName="ProgramarRecursosRowDeleting" msprop:Generator_RowChangingName="ProgramarRecursosRowChanging" msprop:Generator_RowEvHandlerName="ProgramarRecursosRowChangeEventHandler" msprop:Generator_RowDeletedName="ProgramarRecursosRowDeleted" msprop:Generator_RowClassName="ProgramarRecursosRow" msprop:Generator_UserTableName="ProgramarRecursos" msprop:Generator_RowEvArgName="ProgramarRecursosRowChangeEvent">
<xs:element name="ProgramarRecursos" msprop:Generator_TableClassName="ProgramarRecursosDataTable" msprop:Generator_TableVarName="tableProgramarRecursos" msprop:Generator_TablePropName="ProgramarRecursos" msprop:Generator_RowDeletingName="ProgramarRecursosRowDeleting" msprop:Generator_RowChangingName="ProgramarRecursosRowChanging" msprop:Generator_RowEvHandlerName="ProgramarRecursosRowChangeEventHandler" msprop:Generator_RowDeletedName="ProgramarRecursosRowDeleted" msprop:Generator_UserTableName="ProgramarRecursos" msprop:Generator_RowChangedName="ProgramarRecursosRowChanged" msprop:Generator_RowEvArgName="ProgramarRecursosRowChangeEvent" msprop:Generator_RowClassName="ProgramarRecursosRow">
<xs:complexType>
<xs:sequence>
<xs:element name="CveCompra" msprop:Generator_ColumnVarNameInTable="columnCveCompra" msprop:Generator_ColumnPropNameInRow="CveCompra" msprop:Generator_ColumnPropNameInTable="CveCompraColumn" msprop:Generator_UserColumnName="CveCompra" type="xs:short" minOccurs="0" />
@@ -217,7 +217,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="RepIVA" msprop:Generator_TableClassName="RepIVADataTable" msprop:Generator_TableVarName="tableRepIVA" msprop:Generator_RowChangedName="RepIVARowChanged" msprop:Generator_TablePropName="RepIVA" msprop:Generator_RowDeletingName="RepIVARowDeleting" msprop:Generator_RowChangingName="RepIVARowChanging" msprop:Generator_RowEvHandlerName="RepIVARowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVARowDeleted" msprop:Generator_RowClassName="RepIVARow" msprop:Generator_UserTableName="RepIVA" msprop:Generator_RowEvArgName="RepIVARowChangeEvent">
<xs:element name="RepIVA" msprop:Generator_TableClassName="RepIVADataTable" msprop:Generator_TableVarName="tableRepIVA" msprop:Generator_TablePropName="RepIVA" msprop:Generator_RowDeletingName="RepIVARowDeleting" msprop:Generator_RowChangingName="RepIVARowChanging" msprop:Generator_RowEvHandlerName="RepIVARowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVARowDeleted" msprop:Generator_UserTableName="RepIVA" msprop:Generator_RowChangedName="RepIVARowChanged" msprop:Generator_RowEvArgName="RepIVARowChangeEvent" msprop:Generator_RowClassName="RepIVARow">
<xs:complexType>
<xs:sequence>
<xs:element name="TipoDocto" msprop:Generator_ColumnVarNameInTable="columnTipoDocto" msprop:Generator_ColumnPropNameInRow="TipoDocto" msprop:Generator_ColumnPropNameInTable="TipoDoctoColumn" msprop:Generator_UserColumnName="TipoDocto" type="xs:string" minOccurs="0" />
@@ -243,7 +243,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="DtVentaDetalle" msprop:Generator_TableClassName="DtVentaDetalleDataTable" msprop:Generator_TableVarName="tableDtVentaDetalle" msprop:Generator_TablePropName="DtVentaDetalle" msprop:Generator_RowDeletingName="DtVentaDetalleRowDeleting" msprop:Generator_RowChangingName="DtVentaDetalleRowChanging" msprop:Generator_RowEvHandlerName="DtVentaDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="DtVentaDetalleRowDeleted" msprop:Generator_UserTableName="DtVentaDetalle" msprop:Generator_RowChangedName="DtVentaDetalleRowChanged" msprop:Generator_RowEvArgName="DtVentaDetalleRowChangeEvent" msprop:Generator_RowClassName="DtVentaDetalleRow">
<xs:element name="DtVentaDetalle" msprop:Generator_TableClassName="DtVentaDetalleDataTable" msprop:Generator_TableVarName="tableDtVentaDetalle" msprop:Generator_RowChangedName="DtVentaDetalleRowChanged" msprop:Generator_TablePropName="DtVentaDetalle" msprop:Generator_RowDeletingName="DtVentaDetalleRowDeleting" msprop:Generator_RowChangingName="DtVentaDetalleRowChanging" msprop:Generator_RowEvHandlerName="DtVentaDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="DtVentaDetalleRowDeleted" msprop:Generator_RowClassName="DtVentaDetalleRow" msprop:Generator_UserTableName="DtVentaDetalle" msprop:Generator_RowEvArgName="DtVentaDetalleRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="Cantidad" msprop:Generator_ColumnVarNameInTable="columnCantidad" msprop:Generator_ColumnPropNameInRow="Cantidad" msprop:Generator_ColumnPropNameInTable="CantidadColumn" msprop:Generator_UserColumnName="Cantidad" type="xs:string" minOccurs="0" />
@@ -259,7 +259,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="RepIVAAcreditable" msprop:Generator_TableClassName="RepIVAAcreditableDataTable" msprop:Generator_TableVarName="tableRepIVAAcreditable" msprop:Generator_RowChangedName="RepIVAAcreditableRowChanged" msprop:Generator_TablePropName="RepIVAAcreditable" msprop:Generator_RowDeletingName="RepIVAAcreditableRowDeleting" msprop:Generator_RowChangingName="RepIVAAcreditableRowChanging" msprop:Generator_RowEvHandlerName="RepIVAAcreditableRowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVAAcreditableRowDeleted" msprop:Generator_RowClassName="RepIVAAcreditableRow" msprop:Generator_UserTableName="RepIVAAcreditable" msprop:Generator_RowEvArgName="RepIVAAcreditableRowChangeEvent">
<xs:element name="RepIVAAcreditable" msprop:Generator_TableClassName="RepIVAAcreditableDataTable" msprop:Generator_TableVarName="tableRepIVAAcreditable" msprop:Generator_TablePropName="RepIVAAcreditable" msprop:Generator_RowDeletingName="RepIVAAcreditableRowDeleting" msprop:Generator_RowChangingName="RepIVAAcreditableRowChanging" msprop:Generator_RowEvHandlerName="RepIVAAcreditableRowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVAAcreditableRowDeleted" msprop:Generator_UserTableName="RepIVAAcreditable" msprop:Generator_RowChangedName="RepIVAAcreditableRowChanged" msprop:Generator_RowEvArgName="RepIVAAcreditableRowChangeEvent" msprop:Generator_RowClassName="RepIVAAcreditableRow">
<xs:complexType>
<xs:sequence>
<xs:element name="TipoDocto" msprop:Generator_ColumnVarNameInTable="columnTipoDocto" msprop:Generator_ColumnPropNameInRow="TipoDocto" msprop:Generator_ColumnPropNameInTable="TipoDoctoColumn" msprop:Generator_UserColumnName="TipoDocto" type="xs:string" minOccurs="0" />
@@ -298,10 +298,12 @@
<xs:element name="TipoCambioPago" msprop:Generator_ColumnVarNameInTable="columnTipoCambioPago" msprop:Generator_ColumnPropNameInRow="TipoCambioPago" msprop:Generator_ColumnPropNameInTable="TipoCambioPagoColumn" msprop:Generator_UserColumnName="TipoCambioPago" type="xs:double" minOccurs="0" />
<xs:element name="TotalME" msprop:Generator_ColumnVarNameInTable="columnTotalME" msprop:Generator_ColumnPropNameInRow="TotalME" msprop:Generator_ColumnPropNameInTable="TotalMEColumn" msprop:Generator_UserColumnName="TotalME" type="xs:double" minOccurs="0" />
<xs:element name="RetISRResico" msprop:Generator_ColumnVarNameInTable="columnRetISRResico" msprop:Generator_ColumnPropNameInRow="RetISRResico" msprop:Generator_ColumnPropNameInTable="RetISRResicoColumn" msprop:Generator_UserColumnName="RetISRResico" type="xs:double" minOccurs="0" />
<xs:element name="ValorIvaNoDeducible08" msprop:Generator_ColumnVarNameInTable="columnValorIvaNoDeducible08" msprop:Generator_ColumnPropNameInRow="ValorIvaNoDeducible08" msprop:Generator_ColumnPropNameInTable="ValorIvaNoDeducible08Column" msprop:Generator_UserColumnName="ValorIvaNoDeducible08" type="xs:string" minOccurs="0" />
<xs:element name="ValorIvaNoDeducible16" msprop:Generator_ColumnVarNameInTable="columnValorIvaNoDeducible16" msprop:Generator_ColumnPropNameInRow="ValorIvaNoDeducible16" msprop:Generator_ColumnPropNameInTable="ValorIvaNoDeducible16Column" msprop:Generator_UserColumnName="ValorIvaNoDeducible16" type="xs:string" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="IEPSPorcentaje" msprop:Generator_TableClassName="IEPSPorcentajeDataTable" msprop:Generator_TableVarName="tableIEPSPorcentaje" msprop:Generator_RowChangedName="IEPSPorcentajeRowChanged" msprop:Generator_TablePropName="IEPSPorcentaje" msprop:Generator_RowDeletingName="IEPSPorcentajeRowDeleting" msprop:Generator_RowChangingName="IEPSPorcentajeRowChanging" msprop:Generator_RowEvHandlerName="IEPSPorcentajeRowChangeEventHandler" msprop:Generator_RowDeletedName="IEPSPorcentajeRowDeleted" msprop:Generator_RowClassName="IEPSPorcentajeRow" msprop:Generator_UserTableName="IEPSPorcentaje" msprop:Generator_RowEvArgName="IEPSPorcentajeRowChangeEvent">
<xs:element name="IEPSPorcentaje" msprop:Generator_TableClassName="IEPSPorcentajeDataTable" msprop:Generator_TableVarName="tableIEPSPorcentaje" msprop:Generator_TablePropName="IEPSPorcentaje" msprop:Generator_RowDeletingName="IEPSPorcentajeRowDeleting" msprop:Generator_RowChangingName="IEPSPorcentajeRowChanging" msprop:Generator_RowEvHandlerName="IEPSPorcentajeRowChangeEventHandler" msprop:Generator_RowDeletedName="IEPSPorcentajeRowDeleted" msprop:Generator_UserTableName="IEPSPorcentaje" msprop:Generator_RowChangedName="IEPSPorcentajeRowChanged" msprop:Generator_RowEvArgName="IEPSPorcentajeRowChangeEvent" msprop:Generator_RowClassName="IEPSPorcentajeRow">
<xs:complexType>
<xs:sequence>
<xs:element name="PorcentajeIEPS" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIEPS" msprop:Generator_ColumnPropNameInRow="PorcentajeIEPS" msprop:Generator_ColumnPropNameInTable="PorcentajeIEPSColumn" msprop:Generator_UserColumnName="PorcentajeIEPS" type="xs:string" minOccurs="0" />
@@ -311,7 +313,7 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="IVAPorcentaje" msprop:Generator_TableClassName="IVAPorcentajeDataTable" msprop:Generator_TableVarName="tableIVAPorcentaje" msprop:Generator_RowChangedName="IVAPorcentajeRowChanged" msprop:Generator_TablePropName="IVAPorcentaje" msprop:Generator_RowDeletingName="IVAPorcentajeRowDeleting" msprop:Generator_RowChangingName="IVAPorcentajeRowChanging" msprop:Generator_RowEvHandlerName="IVAPorcentajeRowChangeEventHandler" msprop:Generator_RowDeletedName="IVAPorcentajeRowDeleted" msprop:Generator_RowClassName="IVAPorcentajeRow" msprop:Generator_UserTableName="IVAPorcentaje" msprop:Generator_RowEvArgName="IVAPorcentajeRowChangeEvent">
<xs:element name="IVAPorcentaje" msprop:Generator_TableClassName="IVAPorcentajeDataTable" msprop:Generator_TableVarName="tableIVAPorcentaje" msprop:Generator_TablePropName="IVAPorcentaje" msprop:Generator_RowDeletingName="IVAPorcentajeRowDeleting" msprop:Generator_RowChangingName="IVAPorcentajeRowChanging" msprop:Generator_RowEvHandlerName="IVAPorcentajeRowChangeEventHandler" msprop:Generator_RowDeletedName="IVAPorcentajeRowDeleted" msprop:Generator_UserTableName="IVAPorcentaje" msprop:Generator_RowChangedName="IVAPorcentajeRowChanged" msprop:Generator_RowEvArgName="IVAPorcentajeRowChangeEvent" msprop:Generator_RowClassName="IVAPorcentajeRow">
<xs:complexType>
<xs:sequence>
<xs:element name="PorcentajeIVA" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIVA" msprop:Generator_ColumnPropNameInRow="PorcentajeIVA" msprop:Generator_ColumnPropNameInTable="PorcentajeIVAColumn" msprop:Generator_UserColumnName="PorcentajeIVA" type="xs:string" minOccurs="0" />

2
App_Code/Modelos.vb
View File

@@ -2442,7 +2442,7 @@ Namespace Modelos
Dim DtPrePolizasAFCancelar As DataTable = Nothing
If ValorMultiplicador = -1 AndAlso ObjFactura.DtDetalle IsNot Nothing AndAlso ObjFactura.DtDetalle.COUNT("CveActivoFijo", "CveActivoFijo > 0") > 0 Then
If ObjConta.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveVenta:=ObjFactura.CveVenta) Then
If ObjConta.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa) Then
DtPrePolizasAFCancelar = ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (271,49,4)")
End If
End If

4
App_Code/modExtensiones.vb
View File

@@ -2025,8 +2025,8 @@ Namespace Extensiones
RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
'Dim UsuarioResponsable As String = ""
Dim PreP As New ClsContabilidad
If PreP.GetPrePolizasDetalle(-1, tCveEmpresa, CveIE:=pCveIE) Then
Dim PreP As New ClsBancos
If PreP.GetBancosIEMovimientos(pCveIE, tCveEmpresa) Then
If PreP.DtResultados.Rows.Count > 0 Then
CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero

46
Bancos/IE.aspx
View File

@@ -653,8 +653,8 @@
<ajax:TabPanel ID="TabM" runat="server" HeaderText="Movimientos">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<asp:GridView ID="GvM" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" Style="text-align: center;" GridLines="None"
<div class="col-md-6" >
<asp:GridView ID="GvM" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn ScrollAD" Style="text-align: center;" GridLines="None"
DataKeyNames="CveVenta" OnRowDataBound="GvM_RowDataBound">
<Columns>
<asp:BoundField DataField="ConceptoContable" HeaderText="ConceptoContable">
@@ -671,7 +671,7 @@
<asp:HyperLink ID="HplF" runat="server" CssClass="Texto" Text='<%# Eval("Referencia") %>' NavigateUrl='<%# If(Eval("CveCompra").ToString <> "", Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}"), Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")) %>'></asp:HyperLink>
</ItemTemplate>
<HeaderStyle HorizontalAlign="Center" />
<ItemStyle Width="100px" />
<ItemStyle Width="120px" />
</asp:TemplateField>
<asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:N2}">
<ItemStyle HorizontalAlign="Right" Width="100px" />
@@ -1604,6 +1604,46 @@
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div id="ModalAjustarMovimiento" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<!-- Modal content-->
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Ajustar Movimiento</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel ID="UpModalAjustarMovimiento" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-xs-2">Importe:</div>
<div class="col-xs-8" style="text-align: left">
<asp:TextBox ID="TxtAjustarMovimiento" runat="server" Width="120px" CssClass="form-control" ClientIDMode="Static" Style="text-align: right;" AutoComplete="off" onkeydown="return (event.keyCode!=13);"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtAjustarMovimiento" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAjustarMovimiento" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GpoAjustarMovimiento"></asp:RequiredFieldValidator>
<ajax:FilteredTextBoxExtender ID="FIETxtAjustarMovimiento" runat="server" TargetControlID="TxtAjustarMovimiento" FilterType="Custom, Numbers" ValidChars="+-.," />
<i></i>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Button ID="BtnAjustarMovimiento" Text="Ajustar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" ValidationGroup="GpoAjustarMovimiento" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
</asp:Content>

94
Bancos/IE.aspx.vb
View File

@@ -966,13 +966,14 @@ Partial Class Bancos_IE
End If
'Detectamos a quien se le hizo el cobro (Cliente, proveedor, Funcionario/Empleado, etc.)
If ObjIE2.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If ObjIE2.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
If ObjIE2.DtResultados.Rows.Count > 0 Then
Dim dtMovtos As DataTable = ObjIE2.DtResultados
Dim CveConceptoContable As Integer = ObjIE2.DtResultados.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero
CveCliente = ObjIE2.DtResultados.Rows(0)("CveCliente").ToString.ToEntero
CvePersonal = ObjIE2.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
CveProveedor = ObjIE2.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
Dim CveConceptoContable As Integer = dtMovtos.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero
CveCliente = dtMovtos.Rows(0)("CveCliente").ToString.ToEntero
CvePersonal = dtMovtos.Rows(0)("CvePersonal").ToString.ToEntero
CveProveedor = dtMovtos.Rows(0)("CveProveedor").ToString.ToEntero
Select Case CveConceptoContable
Case 66
@@ -986,10 +987,28 @@ Partial Class Bancos_IE
PnlRecibidoPor.Visible = True
End Select
'codigo reubicado, para no consultar 2 veces
GvM.DataSource = dtMovtos.FiltraParametros("CveConceptoContable <> 30")
If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then
GvM.Columns(8).Visible = True
End If
If dtMovtos.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then
GvM.Columns(7).Visible = True
End If
If dtMovtos.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then
GvM.Columns(5).Visible = True
GvM.Columns(6).Visible = True
End If
GvM.DataBind()
End If
End If
End If
If CveCliente > 0 Then
DdlCliente.SelectedText = ObjIE.PagueseA
DdlCliente.SelectedValue = CveCliente.ToString
@@ -1224,27 +1243,27 @@ Partial Class Bancos_IE
'End If
' codigo se reubicó a linea 969
''DETALLES - MOVIMIENTOS
'If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
' GvM.DataSource = ObjIE.DtResultados.FiltraParametros("CveConceptoContable <> 30")
'DETALLES - MOVIMIENTOS
If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
GvM.DataSource = ObjIE.DtResultados
' If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then
' GvM.Columns(8).Visible = True
' End If
If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then
GvM.Columns(8).Visible = True
End If
' If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then
' GvM.Columns(7).Visible = True
' End If
If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then
GvM.Columns(7).Visible = True
End If
' If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then
' GvM.Columns(5).Visible = True
' GvM.Columns(6).Visible = True
' End If
If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then
GvM.Columns(5).Visible = True
GvM.Columns(6).Visible = True
End If
' GvM.DataBind()
GvM.DataBind()
End If
'End If
'Movimientos Relacionados Padre
If ObjIE.GetBancosIEMovimientosPadre(CveIE, UsuarioActual.CveEmpresa) Then
@@ -6328,29 +6347,26 @@ Partial Class Bancos_IE
End Sub
'Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click
' RegistraScript("$('#ModalAjustarMovimiento').modal('show');")
'End Sub
Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click
RegistraScript("$('#ModalAjustarMovimiento').modal('show');")
End Sub
'Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
' Dim ObjBanco As New ClsBancos
' ObjBanco.IniciaTransacSQL()
' If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
' ObjBanco.Commit()
' RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
' Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
' Else
' ObjBanco.RollBack()
' End If
' ObjBanco.Dispose()
'End Sub
Dim ObjBanco As New ClsBancos
ObjBanco.IniciaTransacSQL()
If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ObjBanco.Commit()
RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
Else
ObjBanco.RollBack()
End If
ObjBanco.Dispose()
End Sub
Protected Sub LnkCancelaMovimiento_Click(sender As Object, e As EventArgs)

7
Compras/CatTipoGasto.aspx.cs
View File

@@ -43,12 +43,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
private void RecargarGlobal()
{
ClsCompras ObjCompras = new ClsCompras();
if (ObjCompras.GetTipoGasto(-1, -1))
{
set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa,1, ObjCompras.DtResultados);
}
ObjCompras.Dispose();
set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa, 1, null);
}
protected void BtnAgregarTipoGastoD_Click(object sender, EventArgs e)

33
Compras/PopUpVerFactura.aspx.vb
View File

@@ -3718,7 +3718,7 @@ Partial Class PopUpVerFactura
End If
Case 3, 16, 37, 40 ' S A L I D A S
Case 3, 16, 37, 40, 45 ' S A L I D A S
'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
@@ -3729,6 +3729,8 @@ Partial Class PopUpVerFactura
concepto = "SALIDA DE ALMACÉN"
ElseIf CveConcepto = 37 Then
concepto = "SALIDA VIRTUAL"
ElseIf CveConcepto = 45 Then
concepto = "SALIDA DE USADOS"
Else
concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN"
End If
@@ -5953,17 +5955,17 @@ Partial Class PopUpVerFactura
DtMovimientosPoliza.Rows.Add(Dr)
End If
ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
Dim PreP As New ClsContabilidad
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
DtMovimientosPoliza = New DataTable
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
If PreP.DtResultados.Rows.Count > 0 Then
If ObjIE.DtResultados.Rows.Count > 0 Then
For Each drt As DataRow In PreP.DtResultados.Rows
For Each drt As DataRow In ObjIE.DtResultados.Rows
Dim Dr = DtMovimientosPoliza.NewRow
Dr("CODIGO") = drt("CuentaCodigo")
Dr("Cuenta") = drt("CuentaNombre")
@@ -5974,7 +5976,7 @@ Partial Class PopUpVerFactura
Next
End If
End If
PreP.Dispose()
End If
@@ -6030,13 +6032,12 @@ Partial Class PopUpVerFactura
NotificarA = ObjIE.NotificarA
tIdPoliza = ObjIE.IDPoliza
Dim PreP As New ClsContabilidad
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If PreP.DtResultados.Rows.Count > 0 Then
CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
If ObjIE.DtResultados.Rows.Count > 0 Then
CveProveedor = ObjIE.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
CvePersonal = ObjIE.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
IVA = ObjIE.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
If CveProveedor > 0 Then
Dim Prov As New ClsCompProveedores
@@ -6067,7 +6068,6 @@ Partial Class PopUpVerFactura
End If
End If
End If
PreP.Dispose()
params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
@@ -6238,10 +6238,9 @@ Partial Class PopUpVerFactura
Dim reportDataSetsList As New List(Of ReportDataSource)
Dim dtMovs As New DataTable
Dim Mov As New ClsContabilidad
If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)")
dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
@@ -6254,7 +6253,7 @@ Partial Class PopUpVerFactura
End If
End If
Mov.Dispose()
Dim rds = New ReportDataSource("DataSet1", dtMovs)
reportDataSetsList.Add(rds)

5
Compras/eFacturas.aspx.vb
View File

@@ -2964,10 +2964,11 @@ Partial Class Compras_eFacturas
End Sub
Private Sub MostrarSolcitudesSAT()
LnkShowSolicitudes.Visible = False
If UsuarioActual.Empresa.ArchivoPfx.Trim.Length > 0 Then
Dim ArchivoCertificado As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.ArchivoPfx}"
If UsuarioActual.Empresa.FielPFX.Trim.Length > 0 Then
Dim ArchivoCertificado As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.FielPFX}"
If File.Exists(ArchivoCertificado) Then
LnkShowSolicitudes.Visible = True
End If

6
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -1054,7 +1054,7 @@ Partial Class ContabilidadC_RegPrePolizaS
TipoMovto = True
If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal
If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TxtTC").ToDecimal
If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal
End If
Else
@@ -1071,7 +1071,7 @@ Partial Class ContabilidadC_RegPrePolizaS
TipoMovto = False
If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal
If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TxtTC").ToDecimal
If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal
End If
End If
@@ -1338,7 +1338,7 @@ Partial Class ContabilidadC_RegPrePolizaS
DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.00")
TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.####")
TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero

63
Contabilidad/RepIVA.aspx
View File

@@ -137,7 +137,7 @@
<asp:Label ID="LblFechaDocumento" runat="server" Text='<%# Eval("Fecha", "{0:d}")%>'></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Center" />
</asp:TemplateField>
</asp:TemplateField>
<asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Folio" ControlStyle-Width="85px" />
<asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
@@ -146,9 +146,9 @@
<asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="RetIVA" DataField="RetIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="RetIVA Serv" DataField="RetIVAServicios" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="RetISR" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="RetISR" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:TemplateField HeaderText="Fecha Pago">
<ItemTemplate>
<asp:Label ID="LblFecha" runat="server" Text='<%# Eval("FechaDocumento", "{0:d}")%>'></asp:Label>
@@ -208,14 +208,57 @@
<asp:BoundField HeaderText="Docto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="RFC" DataField="RFC" ItemStyle-HorizontalAlign="Center" />
<asp:HyperLinkField HeaderText="Proveedor" DataNavigateUrlFields="CveProveedor" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataTextField="RazonSocial" ControlStyle-CssClass="truncate2" />
<asp:BoundField HeaderText="F.Compra" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="F.Compra" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Right" />
<asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveCompra" Target="_blank" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" HeaderText="Folio" />
<asp:BoundField HeaderText="SubTotal 16%" DataField="valorActos1516" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="SubTotal 8%" DataField="valorActosImp8" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="SubTotal 0%" DataField="valorActosImp0" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<%-- <asp:BoundField HeaderText="SubTotal 16%" DataField="valorActos1516" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
<asp:Label data-toggle="tooltip" data-placement="top" ToolTip="SubTotal al 16%." runat="server">SubTotal <br/>16%</asp:Label>
</HeaderTemplate>
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("valorActos1516", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%-- <asp:BoundField HeaderText="SubTotal 8%" DataField="valorActosImp8" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
<asp:Label data-toggle="tooltip" data-placement="top" ToolTip="SubTotal al 8%." runat="server">SubTotal <br/>8%</asp:Label>
</HeaderTemplate>
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("valorActosImp8", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%-- <asp:BoundField HeaderText="SubTotal 0%" DataField="valorActosImp0" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
<asp:Label data-toggle="tooltip" data-placement="top" ToolTip="SubTotal al 8%." runat="server">SubTotal <br/>0%</asp:Label>
</HeaderTemplate>
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("valorActosImp0", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="%IVA" DataField="PorcentajeIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="IVA ND" DataField="IVANoDeducible" DataFormatString="{0:#,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<%--<asp:BoundField HeaderText="IVA ND" DataField="IVANoDeducible" DataFormatString="{0:#,###,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
<%--<asp:BoundField HeaderText="IVA ND <br/>8%" DataField="ValorIvaNoDeducible08" DataFormatString="{0:#,###,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
<asp:Label data-toggle="tooltip" data-placement="top" ToolTip="IVA No deducible al 16%." runat="server">IVA ND <br/>16%</asp:Label>
</HeaderTemplate>
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("ValorIvaNoDeducible16", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
<asp:Label data-toggle="tooltip" data-placement="top" ToolTip="IVA No deducible al 8%." runat="server">IVA ND <br/>8%</asp:Label>
</HeaderTemplate>
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("ValorIvaNoDeducible08", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%-- <asp:BoundField HeaderText="IVA ND 16%" DataField="ValorIvaNoDeducible16" DataFormatString="{0:#,###,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
<asp:BoundField HeaderText="IVA <br/>Importación " HtmlEncode="False" DataField="IVAImportacion" Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
@@ -232,7 +275,7 @@
<asp:BoundField HeaderText="RetIVA <br/> Serv." HtmlEncode="False" DataField="RetIVAServicios" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="RetISR <br/> Honorario" HtmlEncode="False" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="RetISR <br/> Arrendamiento" HtmlEncode="False" DataField="RetISRArrend" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="RetISR <br/> Arrendamiento" HtmlEncode="False" DataField="RetISRArrend" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="RetISR <br/> Resico" HtmlEncode="False" DataField="RetISRResico" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="T.C.P." DataField="TipoCambioPago" DataFormatString="{0:##.####}" ItemStyle-HorizontalAlign="Right" />
@@ -253,7 +296,7 @@
</asp:GridView>
</div>
<div class="row">
<div class="col-md-6">
<div class="col-md-6">
<h4><b>IVA por Porcentaje</b></h4>
<asp:GridView ID="GvIVA2" runat="server" EmptyDataText="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="400px" GridLines="None" AutoGenerateColumns="false">
<Columns>

2
Contabilidad/RepIVA.aspx.cs
View File

@@ -111,7 +111,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
LblMsgAcreditable.Text = "La información presenta importes en negativo, estos no se incluirán en el archivo generado para DIOT";
}
GvA.Columns[11].Visible = DtIVAAcreditable.SUM("valorActosImp1516") > 0; // sino tiene valor la columna de importación de oculta
GvA.Columns[12].Visible = DtIVAAcreditable.SUM("valorActosImp1516") > 0; // sino tiene valor la columna de importación de oculta
if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, DdlCuenta.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{

54
Contabilidad2/RepEstadoActividades.aspx
View File

@@ -68,8 +68,8 @@
<label class="col-md-1" runat="server" >Ver con Sub Totales: </label>
<div class="col-md-1" >
<label class="col-md-1" runat="server" id="DVSubtotales1" visible="false" >Ver con Sub Totales: </label>
<div class="col-md-1" runat="server" id="DVSubtotales2" visible="false" >
<asp:DropDownList ID="DdlVerConSubTotales" runat="server" CssClass="select2me" >
<asp:ListItem Text="Si" Value="1" ></asp:ListItem>
<asp:ListItem Text="No" Value="0" Selected="True"></asp:ListItem>
@@ -132,24 +132,32 @@
</asp:TemplateField>
<asp:TemplateField HeaderText="Período Actual">
<ItemTemplate>
<asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
<%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
<asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
<asp:TemplateField HeaderText="%" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblPorcentajeActual" runat="server" Text='<%# Eval("PorcentajeActual", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Período Acumulado">
<ItemTemplate>
<asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
<%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
<asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="%" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblPorcentajeAcumulado" runat="server" Text='<%# Eval("PorcentajeAcumulado", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
</Columns>
<%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />--%>
</Columns>
</asp:GridView>
<br />
<br />
@@ -168,24 +176,28 @@
</asp:TemplateField>
<asp:TemplateField HeaderText="Período Actual">
<ItemTemplate>
<asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
<%--<asp:Label ID="LbActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>'></asp:Label>--%>
<asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
<asp:TemplateField HeaderText="%" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblPorcentajeActual" runat="server" Text='<%# Eval("PorcentajeActual", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Período Acumulado">
<ItemTemplate>
<asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
<%--<asp:Label ID="LbAnterior" runat="server" Text='<%# Eval("ImporteAnterior", "{0:N2}")%>'></asp:Label>--%>
<asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
<asp:TemplateField HeaderText="%" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblPorcentajeAcumulado" runat="server" Text='<%# Eval("PorcentajeAcumulado", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<%--<HeaderStyle CssClass="TitulosChico"></HeaderStyle>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />--%>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>

69
Contabilidad2/RepEstadoActividades.aspx.vb
View File

@@ -105,6 +105,12 @@ Partial Class AC_RepEstadoActividades
DVConsolidado2.Visible = True
End If
If UsuarioActual.CveRol = 1 Then
DVSubtotales1.Visible = True
DVSubtotales2.Visible = True
End If
End If
End Sub
@@ -246,20 +252,46 @@ Partial Class AC_RepEstadoActividades
DtGastos.AcceptChanges()
'DtIngresos
Dim UtilidadBrutaActual, UtilidadBrutaAcumulada As Decimal
Dim UtilidadOperacionActual, UtilidadOperacionAcumulada As Decimal
Dim UtilidadAntesImpuestosActual, UtilidadAntesImpuestosAcumulada As Decimal
Dim UtilidadBrutaActual, UtilidadBrutaAcumulada, UtilidadBrutPorcentajeActual, UtilidadBrutPorcentajeAcumulado As Decimal
UtilidadBrutaActual = DtIngresos.SUMD("ImporteActual", " CtaMayor = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor = 1 ")
UtilidadBrutaAcumulada = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor = 1")
Dim UtilidadOperacionActual, UtilidadOperacionAcumulada, UtilidadOperacionPorcentajeActual, UtilidadOperacionPorcentajeAcumulado As Decimal
UtilidadOperacionActual = DtIngresos.SUMD("ImporteActual", " CtaMayor = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '6%' AND CtaMayor = 1 ")
UtilidadOperacionAcumulada = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '6%' AND CtaMayor = 1 ")
Dim UtilidadAntesImpuestosActual, UtilidadAntesImpuestosAcumulada, UtilidadAntesImpuestosPorcentajeActual, UtilidadAntesImpuestosPorcentajeAcumulado As Decimal
Dim IngresoActual As Decimal = DtIngresos.SUMD("ImporteActual", " CtaMayor = 1 ")
Dim IngresoAcumulado As Decimal = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor = 1 ")
Dim CostoActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor = 1 ")
Dim CostoAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor = 1")
Dim GastoActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '6%' AND CtaMayor = 1 ")
Dim GastoAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '6%' AND CtaMayor = 1 ")
Dim ResultadoIntegralActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '7%' AND CtaMayor = 1 ")
Dim ResultadoIntegralAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '7%' AND CtaMayor = 1 ")
UtilidadBrutaActual = IngresoActual - CostoActual
UtilidadBrutaAcumulada = IngresoAcumulado - CostoAcumulado
UtilidadOperacionActual = IngresoActual - CostoActual - GastoActual
UtilidadOperacionAcumulada = IngresoAcumulado - CostoAcumulado - GastoAcumulado
UtilidadAntesImpuestosActual = IngresoActual - CostoActual - GastoActual - ResultadoIntegralActual
UtilidadAntesImpuestosAcumulada = IngresoAcumulado - CostoAcumulado - GastoAcumulado - ResultadoIntegralAcumulado
UtilidadBrutPorcentajeActual = If(IngresoActual <> 0 And UtilidadBrutaActual <> 0, (UtilidadBrutaActual / IngresoActual * 100), 0)
UtilidadBrutPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadBrutaAcumulada <> 0, (UtilidadBrutaAcumulada / IngresoAcumulado * 100), 0)
UtilidadOperacionPorcentajeActual = If(IngresoActual <> 0 And UtilidadOperacionActual <> 0, (UtilidadOperacionActual / IngresoActual * 100), 0)
UtilidadOperacionPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadOperacionAcumulada <> 0, (UtilidadOperacionAcumulada / IngresoAcumulado * 100), 0)
UtilidadAntesImpuestosPorcentajeActual = If(IngresoActual <> 0 And UtilidadAntesImpuestosActual <> 0, (UtilidadAntesImpuestosActual / IngresoActual * 100), 0)
UtilidadAntesImpuestosPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadAntesImpuestosAcumulada <> 0, (UtilidadAntesImpuestosAcumulada / IngresoAcumulado * 100), 0)
UtilidadAntesImpuestosActual = DtIngresos.SUMD("ImporteActual", " CtaMayor = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '6%' AND CtaMayor = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '7%' AND CtaMayor = 1 ")
UtilidadAntesImpuestosAcumulada = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '6%' AND CtaMayor = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '7%' AND CtaMayor = 1 ")
Dim dRowUtilidadBruta As DataRow = DtGastos.NewRow
Dim dRowUtilidadBrutaVacio As DataRow = DtGastos.NewRow
@@ -277,6 +309,8 @@ Partial Class AC_RepEstadoActividades
dRowUtilidadBruta("ImporteAcumulado") = UtilidadBrutaAcumulada
dRowUtilidadBruta("CtaMayor") = -1
dRowUtilidadBruta("Orden") = "600"
dRowUtilidadBruta("PorcentajeActual") = UtilidadBrutPorcentajeActual
dRowUtilidadBruta("PorcentajeAcumulado") = UtilidadBrutPorcentajeAcumulado
dRowUtilidadBrutaVacio("CtaMayor") = -1
dRowUtilidadBrutaVacio("Orden") = "600"
@@ -285,6 +319,8 @@ Partial Class AC_RepEstadoActividades
dRowUtilidadOperacion("ImporteAcumulado") = UtilidadOperacionAcumulada
dRowUtilidadOperacion("CtaMayor") = -1
dRowUtilidadOperacion("Orden") = "700"
dRowUtilidadOperacion("PorcentajeActual") = UtilidadOperacionPorcentajeActual
dRowUtilidadOperacion("PorcentajeAcumulado") = UtilidadOperacionPorcentajeAcumulado
dRowUtilidadOperacionVacio("CtaMayor") = -1
dRowUtilidadOperacionVacio("Orden") = "700"
@@ -293,9 +329,14 @@ Partial Class AC_RepEstadoActividades
dRowUtilidadAntesImpuestos("ImporteAcumulado") = UtilidadAntesImpuestosAcumulada
dRowUtilidadAntesImpuestos("CtaMayor") = -1
dRowUtilidadAntesImpuestos("Orden") = "790"
dRowUtilidadAntesImpuestos("PorcentajeActual") = UtilidadAntesImpuestosPorcentajeActual
dRowUtilidadAntesImpuestos("PorcentajeAcumulado") = UtilidadAntesImpuestosPorcentajeAcumulado
dRowUtilidadAntesImpuestosVacio("CtaMayor") = -1
dRowUtilidadAntesImpuestosVacio("Orden") = "790"
'PorcentajeActual
'PorcentajeAcumulado
DtGastos.Rows.InsertAt(dRowUtilidadBruta, idxUtilidadBruta)
DtGastos.Rows.InsertAt(dRowUtilidadBrutaVacio, idxUtilidadBruta + 1)
@@ -352,7 +393,7 @@ Partial Class AC_RepEstadoActividades
Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 And Not e.Row.DBCampo("Orden").ToString().Contiene("600", "700", "790") Then
TotalActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnterior += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
@@ -372,9 +413,11 @@ Partial Class AC_RepEstadoActividades
If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
e.Row.FCLabel("LblPorcentajeActual").ForeColor = Drawing.Color.Red
End If
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
e.Row.FCLabel("LblPorcentajeAcumulado").ForeColor = Drawing.Color.Red
End If
If e.Row.DBCampo("CtaMayor").ToEntero = -1 And e.Row.DBCampo("Nombre").ToString.Length > 0 Then
@@ -386,7 +429,7 @@ Partial Class AC_RepEstadoActividades
Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 And Not e.Row.DBCampo("Orden").ToString().Contiene("600", "700", "790") Then
TotalActual -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnterior -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
@@ -404,9 +447,11 @@ Partial Class AC_RepEstadoActividades
If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
e.Row.FCLabel("LblPorcentajeActual").ForeColor = Drawing.Color.Red
End If
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
e.Row.FCLabel("LblPorcentajeAcumulado").ForeColor = Drawing.Color.Red
End If

BIN
Empresas/119/Formatos/RepIVAAcreditable.rpt
View File

Binary file not shown.

16
Nomina/RepPersonalDIM.aspx
View File

@@ -28,7 +28,11 @@
th{
text-align:left!important;
border-top-style:none!important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
@@ -90,14 +94,22 @@
</ContentTemplate>
</asp:UpdatePanel>
<div class="row">
<div class="Widthall" style="text-align: right!important; margin-top: 20px!important; margin-bottom: 2px!important">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
<div class="row">
<div class="col-md-12">
<asp:UpdatePanel runat="server" ID="UpGvCargaDatos" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="false" DataKeyNames="" ShowHeaderWhenEmpty="true" OnDataBound="GvDatos_DataBound"
CssClass="table table-striped table-advance table-hover ScrollAD mysmallbtn"
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="false" DataKeyNames="" ShowHeaderWhenEmpty="true" OnDataBound="GvDatos_DataBound" data-freezerows="2"
CssClass="table table-hover ScrollAD mysmallbtn"
Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>

102
Nomina/RepPersonalDIM.aspx.vb
View File

@@ -8,10 +8,43 @@ Imports CrystalDecisions.CrystalReports.Engine
Imports Extensiones
Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms
Imports Stimulsoft.Report.Export
Partial Class Nomina_RepPersonalDIM
Inherits ClsPaginas
ReadOnly Property color_green_dark As Drawing.Color
Get
Return System.Drawing.Color.FromArgb(77, 179, 162)
End Get
End Property
ReadOnly Property color_purple_intense As Drawing.Color
Get
Return System.Drawing.Color.FromArgb(135, 117, 167)
End Get
End Property
ReadOnly Property color_blue As Drawing.Color
Get
Return System.Drawing.Color.FromArgb(53, 152, 220)
End Get
End Property
ReadOnly Property color_blue_madison As Drawing.Color
Get
Return System.Drawing.Color.FromArgb(87, 142, 190)
End Get
End Property
ReadOnly Property color_yellow As Drawing.Color
Get
Return System.Drawing.Color.FromArgb(196, 159, 71)
End Get
End Property
Public Property Dt_Datos As DataTable
Get
If ViewState("Dt_Datos") Is Nothing Then
@@ -54,6 +87,8 @@ Partial Class Nomina_RepPersonalDIM
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
CargaDatos()
End Sub
@@ -99,20 +134,57 @@ Partial Class Nomina_RepPersonalDIM
Imprimir("Excel")
End Sub
Private Sub Imprimir(Optional reporte As String = "PDF")
Private Sub ColoresCabeceraGrid()
Dim countColumnas As Integer = 0
For Each gvColumn As DataControlField In GvDatos.Columns
If countColumnas <= 27 Then
GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_green_dark
End If
If countColumnas > 27 And countColumnas <= 45 Then
GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_purple_intense
End If
If countColumnas > 45 And countColumnas <= 47 Then
GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_blue
End If
If countColumnas > 47 And countColumnas <= 105 Then
GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_blue_madison
End If
If countColumnas > 105 And countColumnas <= 124 Then
GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_yellow
End If
countColumnas = countColumnas + 1
Next
End Sub
Private Sub Imprimir(Optional reporte As String = "PDF")
ColoresCabeceraGrid()
Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal)
Dim cell As New TableHeaderCell()
cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->"
cell.ColumnSpan = 28
cell.HorizontalAlign = HorizontalAlign.Left
'cell.BackColor = Drawing.Color.FromArgb(77, 179, 162)
cell.BackColor = color_green_dark
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 18
cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->"
cell.HorizontalAlign = HorizontalAlign.Left
cell.BackColor = color_purple_intense
row.Controls.Add(cell)
@@ -120,6 +192,7 @@ Partial Class Nomina_RepPersonalDIM
cell.ColumnSpan = 2
cell.Text = " ANEXO 1 ASIM SAL-> "
cell.HorizontalAlign = HorizontalAlign.Left
cell.BackColor = color_blue
row.Controls.Add(cell)
@@ -127,17 +200,21 @@ Partial Class Nomina_RepPersonalDIM
cell.ColumnSpan = 58
cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->"
cell.HorizontalAlign = HorizontalAlign.Left
cell.BackColor = color_blue_madison
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 19
cell.Text = "ANEXO 1 IMPUESTO SOBRE LA RENTA (RESUMEN) ->"
cell.HorizontalAlign = HorizontalAlign.Left
cell.BackColor = color_yellow
row.Controls.Add(cell)
'row.BackColor = ColorTranslator.FromHtml("#3AC0F2")
GvDatos.HeaderRow.Parent.Controls.AddAt(0, row)
ExportToExcelGembox(GvDatos, "RepPersonalDIM", UsuarioActual, "Reporte Personal DIM", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}")
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
@@ -187,11 +264,16 @@ Partial Class Nomina_RepPersonalDIM
Protected Sub GvDatos_DataBound(sender As Object, e As EventArgs)
ColoresCabeceraGrid()
Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal)
Dim cell As New TableHeaderCell()
cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->"
cell.ColumnSpan = 28
cell.HorizontalAlign = HorizontalAlign.Left
'cell.BackColor = Drawing.Color.FromArgb(77, 179, 162)
cell.BackColor = color_green_dark
row.Controls.Add(cell)
@@ -200,6 +282,7 @@ Partial Class Nomina_RepPersonalDIM
cell.ColumnSpan = 18
cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->"
cell.HorizontalAlign = HorizontalAlign.Left
cell.BackColor = color_purple_intense
row.Controls.Add(cell)
@@ -207,6 +290,7 @@ Partial Class Nomina_RepPersonalDIM
cell.ColumnSpan = 2
cell.Text = " ANEXO 1 ASIM SAL-> "
cell.HorizontalAlign = HorizontalAlign.Left
cell.BackColor = color_blue
row.Controls.Add(cell)
@@ -214,17 +298,19 @@ Partial Class Nomina_RepPersonalDIM
cell.ColumnSpan = 58
cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->"
cell.HorizontalAlign = HorizontalAlign.Left
cell.BackColor = color_blue_madison
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 19
cell.Text = "ANEXO 1 IMPUESTO SOBRE LA RENTA (RESUMEN) ->"
cell.HorizontalAlign = HorizontalAlign.Left
cell.BackColor = color_yellow
row.Controls.Add(cell)
'row.BackColor = ColorTranslator.FromHtml("#3AC0F2")
GvDatos.HeaderRow.Parent.Controls.AddAt(0, row)
End Sub
@@ -330,15 +416,15 @@ Partial Class Nomina_RepPersonalDIM
'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("DC8:DS9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(218, 247, 166), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(77, 179, 162), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(135, 117, 167), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(59, 131, 189), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(53, 152, 220), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(87, 142, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("DC8:DU9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("DC8:DU9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(196, 159, 71), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells("DC8").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
@@ -498,3 +584,5 @@ Partial Class Nomina_RepPersonalDIM
End Sub
End Class
Friend Class GridViewColumn
End Class

63
SAT/SolicitudesIngresoSat.aspx
View File

@@ -319,7 +319,7 @@
</div>
<div class="row" runat="server" id="DVResumen2" visible="false">
<div class="col-md-7">
<div class="col-md-12">
<asp:GridView ID="GvResumen" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False" OnRowDataBound="GvResumen_RowDataBound"
ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
DataKeyNames="Fecha">
@@ -329,12 +329,52 @@
<asp:Label ID="LblMes" runat="server" Text='<%# Eval("Mes")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SIG" ItemStyle-HorizontalAlign="Right">
<asp:TemplateField HeaderText="IVA" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("VIVA", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("VIEPS", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ret IVA" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("VRetIVA", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ret ISR" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("VRetISR", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="TOTAL SIG" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblVTotal" runat="server" Text='<%# Eval("VTotal","{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SAT" ItemStyle-HorizontalAlign="Right">
<asp:TemplateField HeaderText="IVA" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("CBTIVA", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("CBTIEPS", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ret IVA" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("CBTRetIVA", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ret ISR" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("CBTRetISR", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="TOTAL SAT" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblCBTTotal" runat="server" Text='<%# Eval("CBTTotal","{0:N2}")%>'></asp:Label>
</ItemTemplate>
@@ -368,11 +408,7 @@
DataKeyNames="UUID,CountRegistros,VTotal,CBTTotal,CountRegistrosSIG,CountRegistrosSAT,DifImporte,Abreviatura,CBTMoneda,CFDIData,CveSolicitudDetalle,CveVenta,VSerieFolio,Sistema">
<Columns>
<asp:TemplateField HeaderText="Folio">
<ItemTemplate>
<asp:Label runat="server" ID="LblUUID" Text='<%# Eval("UUID")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Cliente" DataField="NombreCliente" ItemStyle-Width="150px" ></asp:BoundField>
<asp:HyperLinkField HeaderText="Sistema" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="Sistema" ControlStyle-CssClass='Texto' Target='_blank'></asp:HyperLinkField>
@@ -495,6 +531,17 @@
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Folio">
<ItemTemplate>
<asp:Label runat="server" ID="LblUUID" Text='<%# Eval("UUID")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="RFC">
<ItemTemplate>
<asp:Label runat="server" ID="LblRFC" Text='<%# Eval("RFC")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>

284
SAT/SolicitudesIngresoSat.aspx.cs
View File

@@ -56,7 +56,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
#endregion
protected void Page_Load(object sender, EventArgs e)
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
@@ -75,7 +75,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
protected void LnkDownloadExcel_Click(object sender, EventArgs e)
{
if(TipoDescarga == 1) {
if (TipoDescarga == 1)
{
GvResumen.ExportToExcel2($"Resumen{DateTime.Now.ToString("yyyyMMddhhmmss")}");
}
@@ -100,7 +101,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
DVResumen1.Visible = true;
DVResumen2.Visible = true;
DvDatos1.Visible = false;
DvDatos2.Visible = false;
DvDatos2.Visible = false;
}
else
{
@@ -108,25 +109,25 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
DVResumen2.Visible = false;
DvDatos1.Visible = true;
DvDatos2.Visible = true;
}
}
using (ClsNominas ObjNom = new ClsNominas())
{
if (ObjNom.SATSolicitudTimbreIngresosRep(UsuarioActual.CveEmpresa, TxtRpdFechaInicio.Text.ToDate(), TxtRpdFechaFin.Text.ToDate(), DdlReporte.SelectedValue.ToEntero(),DdlVista.SelectedValue.ToEntero()))
if (ObjNom.SATSolicitudTimbreIngresosRep(UsuarioActual.CveEmpresa, TxtRpdFechaInicio.Text.ToDate(), TxtRpdFechaFin.Text.ToDate(), DdlReporte.SelectedValue.ToEntero(), DdlVista.SelectedValue.ToEntero()))
{
if (DdlReporte.SelectedValue.ToEntero() == 1 || DdlReporte.SelectedValue.ToEntero() == 3)
{
GvResumen.DataSource = ObjNom.DtResultados;
TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 1:0;
TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 1 : 0;
LnkDownloadExcel.Visible = true;
}
else if (DdlReporte.SelectedValue.ToEntero() == 2)
{
else if (DdlReporte.SelectedValue.ToEntero() == 2)
{
GvDatos.DataSource = ObjNom.DtResultados;
TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 2 : 0;
LnkDownloadExcel.Visible = true;
}
}
}
}
}
GvResumen.DataBind();
@@ -141,19 +142,19 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
using (ClsNominas nom = new ClsNominas())
{
if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus: 0,Top:50))
if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus: 0, Top: 50))
{
GVSolicitudesPendientes.DataSource = nom.DtResultados;
if (nom.DtResultados.Rows.Count > 0)
{
LnkverificarSolicitudes.Visible = true;
}
GVSolicitudesPendientes.DataBind();
GVSolicitudesPendientes.DataBind();
}
if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus:1,Top:50))
if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus: 1, Top: 50))
{
GVSolicitudesNominas.DataSource = nom.DtResultados;
GVSolicitudesNominas.DataSource = nom.DtResultados.FiltraParametros("EfectoComprobante = 'I'");
GVSolicitudesNominas.DataBind();
}
}
@@ -162,8 +163,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
protected void LnkShowSolicitudes_Click(object sender, EventArgs e)
{
TabPanel.ActiveTabIndex = 0;
cargasolicitudes();
cargasolicitudes();
RegistraScript("$('#ModalViewSolicitudes').modal();");
}
@@ -184,10 +185,10 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
using (ClsNominas nom = new ClsNominas())
{
int CveTipoSolicitud = ChkMetaDatos.Checked ? 203 :3;
CveSolicitudAgregada = nom.SolicitudesAdd2(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa, CveTipoSolicitud: CveTipoSolicitud);
if(CveSolicitudAgregada > 0)
int CveTipoSolicitud = ChkMetaDatos.Checked ? 203 : 3;
CveSolicitudAgregada = nom.SolicitudesAdd2(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa, CveTipoSolicitud: CveTipoSolicitud);
if (CveSolicitudAgregada > 0)
{
Folio = nom.FolioSolicitud;
}
@@ -198,8 +199,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
var api = new GeneralesAPII();
JToken ObjApiSolicitud = (JToken)api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3, CveSolicitudAgregada);
List<string> resultSolicitud = new List<string>();
List<string> resultVerificacion = new List<string>();
List<string> resultVerificacion = new List<string>();
var TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion;
var ResultadoSolicitudOK = false;
@@ -218,10 +219,11 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
{
sbResultado.Append($"Solicitud registrada. {resultSolicitud[1]}<br> Folio: {Folio}");
}
else{
else
{
if(ObjApiSolicitud != null && resultSolicitud.Count == 4)
if (ObjApiSolicitud != null && resultSolicitud.Count == 4)
{
sbResultado.Append($"Solicitud registrada, pendiente de verificar en SAT <br> Folio: {Folio} <br>({resultSolicitud[1]})<br>");
}
@@ -249,22 +251,22 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
txtFechaFAdd.Text = "";
ChkMetaDatos.Checked = false;
RegistraScript("$('#ModalAgregarSolicitud').modal('hide');");
cargasolicitudes();
cargasolicitudes();
}
}
protected void LnkverificarSolicitudes_Click(object sender, EventArgs e)
{
{
try
{
{
StringBuilder sbResultado = new StringBuilder();
foreach(GridViewRow GvRow in GVSolicitudesPendientes.Rows)
foreach (GridViewRow GvRow in GVSolicitudesPendientes.Rows)
{
int CveSolicitudActual = GvRow.DataKey("CveSolicitud").ToEntero();
@@ -278,12 +280,12 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
var ResultadoVerificaionOK = false;
var SeVerifico = false;
var TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion;
var ResultadoSolicitudOK = false;
var api = new GeneralesAPII();
var ResultadoSolicitudOK = false;
var api = new GeneralesAPII();
if (idSolicitud.Length == 0)
{
JToken ObjApiSolicitud = (JToken)api.GeneraSolicitud(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual);
@@ -307,13 +309,13 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
resultSolicitud.Add("");
ResultadoSolicitudOK = true;
}
}
if (ResultadoSolicitudOK)
{
{
JToken ObjApiVerificacion = (JToken)api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual);
@@ -330,21 +332,21 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
}
else
{
if(resultSolicitud.Count == 4)
{
if (resultSolicitud.Count == 4)
{
sbResultado.Append($"({resultSolicitud[1]})<br> Folio:{Folio} <br> ");
}
else
{
sbResultado.Append($"Solicitud pendiente de verificar en SAT <br> Folio:{Folio} <br>");
}
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia;
}
}
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia;
}
if (SeVerifico && resultVerificacion.Count == 4)
{
if (ResultadoVerificaionOK)
@@ -358,28 +360,28 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
}
}
else
{
{
sbResultado.Append($"Se presento un error al verificar la solicitud <br> Folio: {Folio}.");
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia;
}
Alert(sbResultado.ToString(), TipoMensaje);
}
}
cargasolicitudes();
}
catch(Exception ex)
catch (Exception ex)
{
Alert(ex.StackTrace);
}
}
}
protected void LnkAgregarSolictud_Click(object sender, EventArgs e)
@@ -394,33 +396,79 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
protected void GvResumen_RowDataBound(object sender, GridViewRowEventArgs e)
{
if(e.Row.RowType == DataControlRowType.DataRow)
{
if(e.Row.DataKey("Fecha") == "")
{
// e.Row.Cells[0].Text = "Total";
e.Row.Attributes.Add("class", "Totales");
}
if (e.Row.RowType == DataControlRowType.DataRow)
{
if (e.Row.DataKey("Fecha") == "")
e.Row.Attributes.Add("class", "Totales");
if (UsuarioActual.Empresa.Funcionalidad(713) != "1")
{
e.Row.Cells[2].Visible = false;
}
if (UsuarioActual.Empresa.Funcionalidad(713) != "1")
{
e.Row.Cells[7].Visible = false;
}
}
if (e.Row.RowType == DataControlRowType.Header)
{
e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc");
e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#3598dc");
e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc");
if (UsuarioActual.Empresa.Funcionalidad(713) != "1")
{
e.Row.Cells[2].Visible = false;
}
e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc");
e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc");
e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#C46B06");
e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#C46B06");
e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#C46B06");
if (UsuarioActual.Empresa.Funcionalidad(713) != "1")
{
e.Row.Cells[7].Visible = false;
}
e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#C46B06");
e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#C46B06");
e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white");
}
}
protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e)
{
if(e.Row.RowType == DataControlRowType.DataRow)
{
if (e.Row.DataKey("UUID") == "Totales")
{
e.Row.Font.Bold = true;
if (e.Row.RowType == DataControlRowType.DataRow)
{
if (e.Row.DataKey("UUID") == "Totales")
{
e.Row.Font.Bold = true;
e.Row.Cells[1].Text = e.Row.DataKey("CountRegistrosSIG");
e.Row.Cells[2].Text = e.Row.DataKey("CountRegistrosSAT");
e.Row.Cells[2].Text = e.Row.DataKey("CountRegistrosSAT");
e.Row.Attributes.Add("class", "Totales");
}
if(e.Row.DataKey("UUID").ToUpper() != "TOTALES")
if (e.Row.DataKey("UUID").ToUpper() != "TOTALES")
{
StringBuilder SBMsgToolTip = new StringBuilder();
@@ -446,26 +494,27 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
SBMsgToolTip.AppendLine("Comprobante no se encuentra en descargas de SAT.<br>");
}
}
else {
else
{
if (e.Row.DataKey("DifImporte").ToDecimal() != 0)
{
SBMsgToolTip.AppendLine($" Diferencia importes {e.Row.DataKey("DifImporte").ToDecimal().ToString("###,###,###.00")}");
SBMsgToolTip.AppendLine($" Diferencia importes {e.Row.DataKey("DifImporte").ToDecimal().ToString("###,###,###.00")}");
}
if (e.Row.DataKey("Abreviatura").ToUpper() != e.Row.DataKey("CBTMoneda").ToUpper())
{
{
SBMsgToolTip.AppendLine($"Diferencia en monedas.");
}
}
}
if (SBMsgToolTip.ToString().Length > 0)
{
e.Row.Attributes.Add("title", SBMsgToolTip.ToString());
}
LinkButton LnkCFDIData = e.Row.FCLinkButton("LnkCFDIData");
if((e.Row.DataKey("CFDIData").ToUpper() == "SI"))
{
if ((e.Row.DataKey("CFDIData").ToUpper() == "SI"))
{
ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkCFDIData);
LnkCFDIData.CssClass = "Texto";
}
@@ -483,8 +532,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
}
if (e.Row.RowType == DataControlRowType.Header)
{
{
e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
@@ -513,9 +562,9 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white");
@@ -531,7 +580,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white");
@@ -541,9 +590,9 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
protected void LnkDescargaXML_Click(object sender, EventArgs e)
{
GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
var UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}";
GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
var UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}";
var Archivo = new System.IO.FileInfo(UrlDescarga);
@@ -556,8 +605,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
Response.Flush();
Response.TransmitFile(Archivo.FullName);
Response.End();
}
}
}
protected void GVSolicitudesNominas_RowDataBound(object sender, GridViewRowEventArgs e)
@@ -567,9 +616,10 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
{
if (e.Row.DataKey("ArchivoXML").Length > 0)
{
var UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}";
if (System.IO.File.Exists(UrlDescarga)){
var UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}";
if (System.IO.File.Exists(UrlDescarga))
{
LinkButton LnkDescargaXML = e.Row.FCLinkButton("LnkDescargaXML");
ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkDescargaXML);
LnkDescargaXML.Visible = true;
@@ -601,9 +651,9 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
IEnumerable<System.IO.FileInfo> files = DirInfo.EnumerateFiles();
foreach (var f in files)
{
if(f.Extension.ToUpper() == ".XML")
{
if (f.Extension.ToUpper() == ".XML")
{
string UUID = "";
System.Xml.XmlDocument XMLDoc = new System.Xml.XmlDocument();
@@ -654,18 +704,20 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
node = XMLDoc.SelectSingleNode(string.Format("//{0}:Emisor", Prefijo), namespaces);
System.Xml.XmlNode nodeComp = XMLDoc.SelectSingleNode(string.Format("//{0}:Complemento", Prefijo), namespaces);
if (node != null )
if (node != null)
{
System.Xml.XmlNode nodeTFD = nodeComp.SelectSingleNode(string.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces);
UUID = ValorXML(nodeTFD, "UUID", "");
}
}
if (UUID.Length > 0)
{
try {
try
{
System.IO.File.Move(f.FullName, $@"{f.DirectoryName}\{UUID.ToUpper()}.XML");
Contador++;
} catch (Exception ex3)
}
catch (Exception ex3)
{
ModExtensiones.GuardaLog(ex3.StackTrace);
}
@@ -698,14 +750,14 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
var CveSolicitudDetalle = GvRow.DataKey("CveSolicitudDetalle").ToEntero();
var UrlDirectorio = $"{UsuarioActual.Empresa.Ruta}DescargasSATXML\\Ingresos\\{CveSolicitudDetalle}";
CargaComprobanteXML(UrlDirectorio, CveSolicitudDetalle);
CargaComprobanteXML(UrlDirectorio, CveSolicitudDetalle);
}
protected void LnkCFDIData_Click(object sender, EventArgs e)
{
GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
var CveSolicitudDetalle = GvRow.DataKey("CveSolicitudDetalle");
var UrlDescargaXML = $"{UsuarioActual.Empresa.Ruta}DescargasSATXML\\Ingresos\\{CveSolicitudDetalle}\\{GvRow.DataKey("UUID")}.XML";

61
SAT/SolicitudesRecibidasSAT.aspx
View File

@@ -382,13 +382,10 @@
ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
DataKeyNames="UUID,CountRegistros,VTotal,CBTTotal,CountRegistrosSIG,CountRegistrosSAT,DifImporte,Abreviatura,CBTMoneda,CFDIData,CveSolicitudDetalle,CveCompra,VSerieFolio,Sistema">
<Columns>
<asp:TemplateField HeaderText="Folio">
<ItemTemplate>
<asp:Label runat="server" ID="LblUUID" Text='<%# Eval("UUID")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:HyperLinkField HeaderText="Sistema" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="Sistema" ControlStyle-CssClass='Texto' Target='_blank'></asp:HyperLinkField>
<asp:BoundField HeaderText="Proveedor" DataField="Proveedor" ItemStyle-Width="150px" ></asp:BoundField>
<asp:HyperLinkField HeaderText="Sistema" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="Sistema" ControlStyle-CssClass='Texto' Target='_blank'></asp:HyperLinkField>
<%-- <asp:TemplateField HeaderText="SIG">
<ItemTemplate>
@@ -396,14 +393,13 @@
</ItemTemplate>
</asp:TemplateField>--%>
<asp:TemplateField HeaderText="SAT" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:LinkButton runat="server" ID="LnkCFDIData" Text='<%# Eval("CFDIData")%>'></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:HyperLinkField HeaderText="Serie Folio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="VSerieFolio" ControlStyle-CssClass='Texto' Target='_blank'></asp:HyperLinkField>
<asp:HyperLinkField HeaderText="Serie Folio" ItemStyle-Width="125px" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="VSerieFolio" ControlStyle-CssClass='Texto' Target='_blank'></asp:HyperLinkField>
<%-- <asp:TemplateField HeaderText="Serie Folio" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
@@ -413,43 +409,41 @@
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblVTotal" Text='<%# Eval("VTotal","{0:N2}")%>'></asp:Label>
<asp:Label runat="server" ID="LblVTotal" Text='<%# Eval("VTotal", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sub Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblVSubTotal" Text='<%# Eval("VSubTotal","{0:N2}")%>'></asp:Label>
<asp:Label runat="server" ID="LblVSubTotal" Text='<%# Eval("VSubTotal", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="IVA" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblVIVA" Text='<%# Eval("VIVA","{0:N2}")%>'></asp:Label>
<asp:Label runat="server" ID="LblVIVA" Text='<%# Eval("VIVA", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblVIEPS" Text='<%# Eval("VIEPS","{0:N2}")%>'></asp:Label>
<asp:Label runat="server" ID="LblVIEPS" Text='<%# Eval("VIEPS", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ret. IVA" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblVRetIVA" Text='<%# Eval("VRetIVA","{0:N2}")%>'></asp:Label>
<asp:Label runat="server" ID="LblVRetIVA" Text='<%# Eval("VRetIVA", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ret. ISR" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblVRetISR" Text='<%# Eval("VRetISR","{0:N2}")%>'></asp:Label>
<asp:Label runat="server" ID="LblVRetISR" Text='<%# Eval("VRetISR", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Moneda" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label runat="server" ID="LblAbreviatura" Text='<%# Eval("Abreviatura")%>'></asp:Label>
@@ -459,42 +453,39 @@
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblCBTTotal" Text='<%# Eval("CBTTotal","{0:N2}")%>'></asp:Label>
<asp:Label runat="server" ID="LblCBTTotal" Text='<%# Eval("CBTTotal", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sub Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblCBTSubTotal" Text='<%# Eval("CBTSubTotal","{0:N2}")%>'></asp:Label>
<asp:Label runat="server" ID="LblCBTSubTotal" Text='<%# Eval("CBTSubTotal", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="IVA" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblImpIVA" Text='<%# Eval("ImpIVA","{0:N2}")%>'></asp:Label>
<asp:Label runat="server" ID="LblImpIVA" Text='<%# Eval("ImpIVA", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblImpIEPS" Text='<%# Eval("ImpIEPS","{0:N2}")%>'></asp:Label>
<asp:Label runat="server" ID="LblImpIEPS" Text='<%# Eval("ImpIEPS", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ret. ISR" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblImpRetISR" Text='<%# Eval("ImpRetISR","{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ret. IVA" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblImpRetIVA" Text='<%# Eval("ImpRetIVA","{0:N2}")%>'></asp:Label>
<asp:Label runat="server" ID="LblImpRetIVA" Text='<%# Eval("ImpRetIVA", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ret. ISR" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label runat="server" ID="LblImpRetISR" Text='<%# Eval("ImpRetISR", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Moneda" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
@@ -502,7 +493,17 @@
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Folio">
<ItemTemplate>
<asp:Label runat="server" ID="LblUUID" Text='<%# Eval("UUID")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="RFC">
<ItemTemplate>
<asp:Label runat="server" ID="LblRFC" Text='<%# Eval("RFC")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>

5
SAT/SolicitudesRecibidasSAT.aspx.vb
View File

@@ -212,6 +212,9 @@ Partial Class SAT_SolicitudesRecibidasSAT
e.Row.Cells(15).BackColor = System.Drawing.Color.FromName("#C46B06")
e.Row.Cells(16).BackColor = System.Drawing.Color.FromName("#C46B06")
e.Row.Cells(17).BackColor = System.Drawing.Color.FromName("#C46B06")
e.Row.Cells(18).BackColor = System.Drawing.Color.FromName("#C46B06")
e.Row.Cells(19).BackColor = System.Drawing.Color.FromName("#C46B06")
e.Row.Cells(1).ForeColor = System.Drawing.Color.FromName("white")
e.Row.Cells(2).ForeColor = System.Drawing.Color.FromName("white")
e.Row.Cells(3).ForeColor = System.Drawing.Color.FromName("white")
@@ -229,6 +232,8 @@ Partial Class SAT_SolicitudesRecibidasSAT
e.Row.Cells(15).ForeColor = System.Drawing.Color.FromName("white")
e.Row.Cells(16).ForeColor = System.Drawing.Color.FromName("white")
e.Row.Cells(17).ForeColor = System.Drawing.Color.FromName("white")
e.Row.Cells(18).ForeColor = System.Drawing.Color.FromName("white")
e.Row.Cells(19).ForeColor = System.Drawing.Color.FromName("white")
End If
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)