Public Class NominaGenerarTxt Dim DsNominaResumen As New System.Data.DataSet Dim DsTablaImpuesto As New System.Data.DataSet Dim CodigoNomina, CodigoInstitucion As String Dim CodigoBeneficiario, Secuencia, CodigoUbicacion, CodigoDepartamento As String Dim Valor, Salario, TotalDescuento, DescuentoMulta As Decimal 'Dim DescuentoIsR, DescuentoOtros, DescuentoSeguroMedico, DescuentoSfs As Decimal 'Dim DescuentoInavi, DescuentoPrestamo, DescuentoPerdidaAccesorio As Decimal 'Dim DescuentoCuentaPorCobrar As Decimal Dim CodigoRango, CodigoPosicion As String Dim NewFile0 As System.IO.StreamWriter Dim MyNumber, MyDecimal, MyValue As String Dim Tarjeta, Beneficiario, Posicion, Concepto, CedulaRnc, SueldoBase As String Dim Incentivos, OtrosIngresos, TotalIngresos, TotalDescuentos, Neto1Q As String Dim Neto2Q, Departamento, CodigoBanco, TipoNomina As String Dim CuentaBancaria, Patron, Riesgo, Sfs, Contrato, TipoDocumento As String Dim FechaNomina, Fecha As String Dim Opcion As String Dim ErrorFalseTrue As Boolean Dim AplicarSeguro As Boolean Dim BancoTrueFalse As Boolean Dim RegionValue, Provincia, Municipio, Funcion, Ccp, RetiroComplementario As String Dim CodigoIdentificacion, ObjetoCuentaSctaAux As String Dim Linnew As Integer = 0 Dim strRutaExcel As String = "" Dim Cmd As New System.Data.OleDb.OleDbCommand Private Sub Me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try ErrorFalseTrue = ClassEasyPay.VerificarAccesoUsuarioPrograma("UsarOpcion", Me.Name) If ErrorFalseTrue Then Me.Dispose() Exit Sub End If Call ControlDeClases.LlenarComboBox(Connection, ComboBoxTipoNomina, True, "SELECT TipoNomina, Descripcion FROM TipoNomina ORDER BY TipoNomina") ClassEasyPay.FechaNominaUltima(FechaNominaProceso.Text) Catch ex As Exception Me.Dispose() Exit Sub End Try Cmd.Connection = Connection End Sub Private Sub BotonSigef_Click(sender As System.Object, e As System.EventArgs) Handles BotonSigef.Click Call ProcesarDetalleTxt() Me.Enabled = True End Sub Private Sub BotonSalir_Click(sender As System.Object, e As System.EventArgs) Handles BotonSalir.Click Me.Dispose() End Sub Private Sub DefinirArchivo() FechaNomina = LoginFechaDesde.Year & Format(LoginFechaDesde.Month, "00") & Format(LoginFechaDesde.Day, "00") strRutaExcel = LoginstrRutaCarpeta Dim adic As String = "" If CheckBoxNominaAdicinal.Checked = True Then adic = "Ad" Select Case Opcion Case Is = 1 If ComboBoxTipoNomina.SelectedValue = "1" Then strRutaExcel += "\SueldoFijoMilitar" & adic & FechaNomina & ".txt" If ComboBoxTipoNomina.SelectedValue = "2" Then strRutaExcel += "\NominaPersonalFijo" & adic & FechaNomina & ".txt" If ComboBoxTipoNomina.SelectedValue = "3" Then strRutaExcel += "\ContraloriaNomina" & adic & FechaNomina & "Asp.txt" If ComboBoxTipoNomina.SelectedValue = "4" Then strRutaExcel += "\ContraloriaNomina" & adic & FechaNomina & "Juv.txt" If ComboBoxTipoNomina.SelectedValue = "5" Then strRutaExcel += "\ContraloriaNomina" & adic & FechaNomina & "Con.txt" If ComboBoxTipoNomina.SelectedValue = "6" Then strRutaExcel += "\ContraloriaNomina" & adic & FechaNomina & "Nom.txt" If ComboBoxTipoNomina.SelectedValue = "7" Then strRutaExcel += "\ContraloriaNomina" & adic & FechaNomina & "Pension.txt" If ComboBoxTipoNomina.SelectedValue = "8" Then strRutaExcel += "\SueldoFijoPolicial" & adic & FechaNomina & ".txt" Case Is = 2 If ComboBoxTipoNomina.SelectedValue = "1" Then strRutaExcel += "\BancoNomina" & FechaNomina & "Mil.txt" If ComboBoxTipoNomina.SelectedValue = "2" Then strRutaExcel += "\BancoNomina" & FechaNomina & "Civ.txt" If ComboBoxTipoNomina.SelectedValue = "3" Then strRutaExcel += "\BancoNomina" & FechaNomina & "Asp.txt" If ComboBoxTipoNomina.SelectedValue = "4" Then strRutaExcel += "\BancoNomina" & FechaNomina & "Juv.txt" If ComboBoxTipoNomina.SelectedValue = "5" Then strRutaExcel += "\BancoNomina" & FechaNomina & "Con.txt" If ComboBoxTipoNomina.SelectedValue = "6" Then strRutaExcel += "\BancoNomina" & FechaNomina & "Nom.txt" If ComboBoxTipoNomina.SelectedValue = "7" Then strRutaExcel += "\BancoNomina" & FechaNomina & "Pesion.txt" If ComboBoxTipoNomina.SelectedValue = "8" Then strRutaExcel += "\BancoNomina" & FechaNomina & "Pol.txt" Case Else strRutaExcel += "\TSSNomina" & FechaNomina & ".txt" End Select NewFile0 = New System.IO.StreamWriter(strRutaExcel, False, System.Text.Encoding.GetEncoding(437)) Call ValidarExportacion() Me.Proceso.Text = "Creado " & strRutaExcel End Sub Private Sub ProcesarDetalleTxt() Try Me.Enabled = False Me.Proceso.Text = LoginUsuario & ", Estoy Procesando Información" Me.Refresh() Opcion = 1 ClassEasyPay.VitacoraGrabar(Cmd, "Nomina_Regular", "Generar Sigef ", Me.Name) LoginFechaDesde = FechaNominaProceso.Text RegionValue = "98" Provincia = "99" Municipio = "9999" Funcion = "2.6.01" BancoTrueFalse = False TipoNomina = "2" Dim DaNominaProcesar As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM TablaImpuestoSobreRenta WHERE Ano='" & LoginFechaDesde.Year & "'", Connection) DsTablaImpuesto = New System.Data.DataSet DaNominaProcesar.Fill(DsTablaImpuesto, "Nomina") If DsTablaImpuesto.Tables(0).Rows.Count <= 0 Then Me.Proceso.Text = "ERROR: No Hay Ninguna Tabla De Impuestos Definida" MsgBox("ERROR: No Hay Ninguna Tabla De Impuestos Definida", MsgBoxStyle.Critical, "Tabla de impuesto") Exit Sub End If AplicarSeguro = False If ComboBoxTipoNomina.SelectedValue = 2 Then AplicarSeguro = True If ComboBoxTipoNomina.SelectedValue = 3 Then AplicarSeguro = True If ComboBoxTipoNomina.SelectedValue = 7 Then AplicarSeguro = True Call DefinirArchivo() Me.Proceso.Text = LoginUsuario & ", Estoy Procesando Información" Me.Refresh() ClassEasyPay.NominaDetalleResumen( _ DsNominaResumen, _ "", CheckBoxNominaAdicinal.CheckState, _ ComboBoxTipoNomina.SelectedValue, _ FechaNominaProceso.Text, _ FechaNominaProceso.Text) If DsNominaResumen.Tables(0).Rows.Count <= 0 Then Me.Proceso.Text = "ERROR: No Hay Datos Para Procesar" Exit Sub End If Proceso.Text = LoginUsuario & ", Creado Txt" Me.Refresh() Dim AfpPatronal As Decimal = 0 Dim RiesgoLaboral As Decimal = 0 Dim SfsPatronal As Decimal = 0 Dim SeguroSocial As Decimal = 0 Riesgo = "" Patron = "" Sfs = "" Dim Neto As Decimal = 0 Salario = 0 Dim Incentivo As Decimal = 0 Dim OtroIngreso As Decimal = 0 Dim TotalIngreso As Decimal = 0 Dim Descuento As Decimal = 0 For Actual As Integer = 0 To DsNominaResumen.Tables(0).Rows.Count - 1 Me.Proceso.Text = "Procesando " & DsNominaResumen.Tables(0).Rows(Actual).Item("Nombre") Me.Refresh() TipoNomina = DsNominaResumen.Tables(0).Rows(Actual).Item("TipoNomina") CodigoIdentificacion = "A" If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "1" And ComboBoxTipoNomina.SelectedValue = 8 Then Concepto = "Sueldo.FijoPolicial" If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "1" And ComboBoxTipoNomina.SelectedValue = 1 Then Concepto = "Sueldo.Fijo.Militar" If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "2" Then Concepto = "NominaPersonalFijo " If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "3" Then Concepto = "Nomina Aspirante " If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "5" Then Concepto = "Nomina Contratado " If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "6" Then Concepto = "Nomina General " If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "7" Then Concepto = "Nomina T. Pension" If DsNominaResumen.Tables(0).Rows(0).Item("Clasificacion") <> "0" Then If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "1" And ComboBoxTipoNomina.SelectedValue = 8 Then Concepto = "Comp Policial-Adicio " If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "1" And ComboBoxTipoNomina.SelectedValue = 1 Then Concepto = "Comp Militar-Adicio " If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "2" Then Concepto = "Nom. Civil-Adicional " If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "3" Then Concepto = "Nom. Aspir-Adicional " If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "5" Then Concepto = "Nom. Contr-Adicional " If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "6" Then Concepto = "Nom. Gener-Adicional " If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "7" Then Concepto = "Nom. T. Pension-adici" End If Concepto += Format(LoginFechaDesde, "dd.MMMyyyy").ToUpper() ObjetoCuentaSctaAux = "00000" ' Militares Ccp = "2.1.2.2.12" If ComboBoxTipoNomina.SelectedValue = "2" Then Ccp = "2.1.1.1.01" ' Civiles If ComboBoxTipoNomina.SelectedValue = "3" Then Ccp = "2.1.1.1.01" ' Aspirantes Pmt If ComboBoxTipoNomina.SelectedValue = "4" Then Ccp = "2.4.1.4.01" ' Amet Juveniles If ComboBoxTipoNomina.SelectedValue = "5" Then Ccp = "2.1.1.2.01" ' Contratado If ComboBoxTipoNomina.SelectedValue = "6" Then Ccp = "2.1.1.2.02" ' Pensionado If ComboBoxTipoNomina.SelectedValue = "7" Then Ccp = "2.1.1.3.01" ' tramite de Pensionado If ComboBoxTipoNomina.SelectedValue = "8" Then Ccp = "2.1.1.1.12" ' Policial If ComboBoxTipoNomina.SelectedValue = "1" Then Ccp = "2.1.1.1.12" ' Militar ' Salario Salario += DsNominaResumen.Tables(0).Rows(Actual).Item("SalarioBruto") SueldoBase = ControlDeClases.ConvertirNumeroSinDecimales(DsNominaResumen.Tables(0).Rows(Actual).Item("SalarioBruto"), 17) ' Incentivos Incentivo += DsNominaResumen.Tables(0).Rows(Actual).Item("Incentivos") Incentivos = ControlDeClases.ConvertirNumeroSinDecimales(DsNominaResumen.Tables(0).Rows(Actual).Item("Incentivos"), 17) ' Otros Ingresos OtroIngreso += DsNominaResumen.Tables(0).Rows(Actual).Item("OtrosIngresos") OtrosIngresos = ControlDeClases.ConvertirNumeroSinDecimales(DsNominaResumen.Tables(0).Rows(Actual).Item("OtrosIngresos"), 17) ' TotalIngresos TotalIngreso += DsNominaResumen.Tables(0).Rows(Actual).Item("TotalIngresos") TotalIngresos = ControlDeClases.ConvertirNumeroSinDecimales(DsNominaResumen.Tables(0).Rows(Actual).Item("TotalIngresos"), 17) ' Descuentos Descuento += DsNominaResumen.Tables(0).Rows(Actual).Item("TotalDescuento") TotalDescuentos = ControlDeClases.ConvertirNumeroSinDecimales(DsNominaResumen.Tables(0).Rows(Actual).Item("TotalDescuento"), 17) ' Neto Neto += DsNominaResumen.Tables(0).Rows(Actual).Item("SalarioNeto") MyValue = ControlDeClases.ConvertirNumeroSinDecimales(DsNominaResumen.Tables(0).Rows(Actual).Item("SalarioNeto"), 17) Neto1Q = "" Neto2Q = MyValue If DsNominaResumen.Tables(0).Rows(Actual).Item("TotalIngresos") >= 70000.0 Then Dim aa As String = "" End If If AplicarSeguro = True Then ' pagar seguro ' Sfs Patronal MyNumber = DsNominaResumen.Tables(0).Rows(Actual).Item("TotalIngresos") If DsNominaResumen.Tables(0).Rows(Actual).Item("TotalIngresos") > DsTablaImpuesto.Tables(0).Rows(0).Item("TopePatronalSfs") Then MyNumber = DsTablaImpuesto.Tables(0).Rows(0).Item("TopePatronalSfs") MyNumber = FormatNumber(((MyNumber * DsTablaImpuesto.Tables(0).Rows(0).Item("PorcentajeSfsPatronal")) / 100), 2) SfsPatronal += MyNumber Sfs = ControlDeClases.ConvertirNumeroSinDecimales(MyNumber, 17) ' Seguridad Patronal MyNumber = DsNominaResumen.Tables(0).Rows(Actual).Item("TotalIngresos") If DsNominaResumen.Tables(0).Rows(Actual).Item("TotalIngresos") > DsTablaImpuesto.Tables(0).Rows(0).Item("TopePatronalAfp") Then MyNumber = DsTablaImpuesto.Tables(0).Rows(0).Item("TopePatronalAfp") MyNumber = FormatNumber(((MyNumber * DsTablaImpuesto.Tables(0).Rows(0).Item("PorcentajeAfpPatronal")) / 100), 2) AfpPatronal += MyNumber Patron = ControlDeClases.ConvertirNumeroSinDecimales(MyNumber, 17) ' Riesgo Profesional MyNumber = DsNominaResumen.Tables(0).Rows(Actual).Item("TotalIngresos") If DsNominaResumen.Tables(0).Rows(Actual).Item("TotalIngresos") > DsTablaImpuesto.Tables(0).Rows(0).Item("TopeRiesgoPatronal") Then MyNumber = DsTablaImpuesto.Tables(0).Rows(0).Item("TopeRiesgoPatronal") MyNumber = FormatNumber(((MyNumber * DsTablaImpuesto.Tables(0).Rows(0).Item("PorcentajeRiesgoPatronal")) / 100), 2) RiesgoLaboral += MyNumber Riesgo = ControlDeClases.ConvertirNumeroSinDecimales(MyNumber, 17) Else AfpPatronal = 0 RiesgoLaboral = 0 SfsPatronal = 0 Riesgo = "" Patron = "" Sfs = "" End If CedulaRnc = Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Cedula"), 1, 3) & Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Cedula"), 5, 7) & Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Cedula"), 13, 1) Tarjeta = Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Tarjeta"), 1, 8) Beneficiario = Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Nombre"), 1, 36) Posicion = Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Posicion"), 1, 30) CodigoDepartamento = Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Departamento"), 1, 3) Departamento = Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Departamento"), 5, 40) CodigoBanco = "01" CuentaBancaria = "" If DsNominaResumen.Tables(0).Rows(Actual).Item("CuentaBancaria").ToString.Trim <> "" Then CuentaBancaria = "00" & DsNominaResumen.Tables(0).Rows(Actual).Item("CuentaBancaria").ToString.Trim.PadRight(15, "") Contrato = "" TipoDocumento = "1" GrabarTxt() Call NominaDetalle(DsNominaResumen.Tables(0).Rows(Actual).Item("CodigoEmpleado")) Next Call NominaBeneficiario() ' Totales Finales CodigoBanco = "" TipoDocumento = "3" Neto1Q = "" Neto2Q = "" Departamento = "" TotalDescuentos = "" TotalIngresos = "" Incentivos = "" OtrosIngresos = "" Patron = "" Riesgo = "" CuentaBancaria = "" Posicion = "" CedulaRnc = "" CodigoDepartamento = "" ' Totales de nomina Concepto = "Nomina Del " & Format(LoginFechaDesde, "dd-MM-yyyy") CodigoIdentificacion = "I" Beneficiario = "" Tarjeta = "" SueldoBase = ControlDeClases.ConvertirNumeroSinDecimales(Salario, 17) Incentivos = ControlDeClases.ConvertirNumeroSinDecimales(Incentivo, 17) OtrosIngresos = ControlDeClases.ConvertirNumeroSinDecimales(OtroIngreso, 17) TotalIngresos = ControlDeClases.ConvertirNumeroSinDecimales(TotalIngreso, 17) TotalDescuentos = ControlDeClases.ConvertirNumeroSinDecimales(Descuento, 17) Neto = TotalIngreso - Descuento Neto2Q = ControlDeClases.ConvertirNumeroSinDecimales(Neto, 17) If AplicarSeguro = True Then ' pagar seguro Patron = ControlDeClases.ConvertirNumeroSinDecimales(AfpPatronal, 17) ' Sfs Patronal Sfs = ControlDeClases.ConvertirNumeroSinDecimales(SfsPatronal, 17) ' Riesgo laboral Riesgo = ControlDeClases.ConvertirNumeroSinDecimales(RiesgoLaboral, 17) End If GrabarTxt() If AplicarSeguro = True Then ' pagar seguro Neto1Q = "" Neto2Q = "" Departamento = "" TotalDescuentos = "" TotalIngresos = "" Incentivos = "" OtrosIngresos = "" Patron = "" Riesgo = "" Sfs = "" CuentaBancaria = "" Posicion = "" ' Total Seguridad Patronal ' ObjetoCuentaSctaAux = DsTablaImpuesto.Tables(0).Rows(0).Item("CuentaSeguridadPatronal") '"19200" Ccp = "0.0.0.0.00" Ccp = DsTablaImpuesto.Tables(0).Rows(0).Item("CuentaPatronalAfp") '"19200" ObjetoCuentaSctaAux = "00000" ' Militares SueldoBase = ControlDeClases.ConvertirNumeroSinDecimales(AfpPatronal, 17) Neto2Q = SueldoBase TotalIngresos = SueldoBase Concepto = "Afp Patronal " GrabarTxt() ' Total Sfs Patronal If Int(SfsPatronal) > 0 Then ' ObjetoCuentaSctaAux = DsTablaImpuesto.Tables(0).Rows(0).Item("CuentaSfs") '"19100" Ccp = DsTablaImpuesto.Tables(0).Rows(0).Item("CuentaPatronalSfs") '"19100" ObjetoCuentaSctaAux = "00000" ' Militares SueldoBase = ControlDeClases.ConvertirNumeroSinDecimales(SfsPatronal, 17) Neto2Q = SueldoBase TotalIngresos = SueldoBase Concepto = "Sfs Patronal" GrabarTxt() End If ' Total Riesgo Laboral SueldoBase = ControlDeClases.ConvertirNumeroSinDecimales(RiesgoLaboral, 17) Neto2Q = SueldoBase TotalIngresos = SueldoBase Concepto = "Riesgo Laboral" ' ObjetoCuentaSctaAux = DsTablaImpuesto.Tables(0).Rows(0).Item("CuentaRiesgoLaboral") ' "19300" Ccp = DsTablaImpuesto.Tables(0).Rows(0).Item("CuentaRiesgoLaboral") '"19300" ObjetoCuentaSctaAux = "00000" ' Militares GrabarTxt() End If NewFile0.Close() ErrorFalseTrue = ControlDeClases.getTamFile(strRutaExcel) Me.Proceso.Text = "Su Archivo Ha Sigenerado " & strRutaExcel Me.Refresh() Dim Adic As String = "" If CheckBoxNominaAdicinal.Checked = True Then Adic = " Adicional" Try LoginFechaDesde = FechaNominaProceso.Text Dim Sql As String = "SELECT " Sql += "Codigo.CodigoNomina," Sql += "Codigo.Descripcion," Sql += "SUM(NominaDetalle.Valor) AS Valor," Sql += "Beneficiarios.Beneficiario " Sql += "FROM NominaDetalle " Sql += "INNER JOIN Codigo ON " Sql += "NominaDetalle.CodigoNomina = Codigo.CodigoNomina " Sql += "INNER JOIN Beneficiarios ON " Sql += "NominaDetalle.CodigoBeneficiario = Beneficiarios.CodigoBeneficiario " Sql += "WHERE NominaDetalle.CodigoNomina IN (201,202,203) AND NominaDetalle.FechaNomina='" & Format(LoginFechaDesde, "yyyy-MM-dd") & "' AND " If (ComboBoxTipoNomina.SelectedValue = 8) Then Sql += "NominaDetalle.TipoNomina = 1 " End If If (ComboBoxTipoNomina.SelectedValue = 1) Then Sql += "NominaDetalle.TipoNomina in (2,3,4) " End If If (ComboBoxTipoNomina.SelectedValue <> 1 And ComboBoxTipoNomina.SelectedValue <> 8) Then Sql += "NominaDetalle.TipoNomina = " & ComboBoxTipoNomina.SelectedValue End If Sql += " GROUP BY Codigo.CodigoNomina, Codigo.Descripcion, Beneficiarios.Beneficiario " Sql += " ORDER BY Beneficiarios.Beneficiario, Codigo.Descripcion " Dim Da As New System.Data.OleDb.OleDbDataAdapter(Sql, Connection) Dim DsTss As New System.Data.DataSet Da.Fill(DsTss, "a") Dim Rpt2 As New RptTss Rpt2.DataSource = DsTss Rpt2.DataMember = DsTss.Tables(0).TableName Rpt2.Bruto.Text = FormatNumber(Salario, 2) Rpt2.Descuento.Text = FormatNumber(Descuento, 2) Rpt2.Neto.Text = FormatNumber(Neto, 2) Rpt2.Empleado.Text = FormatNumber(DsNominaResumen.Tables(0).Rows.Count, 0) Rpt2.Arl.Text = FormatNumber(RiesgoLaboral, 2) Rpt2.Afp.Text = FormatNumber(AfpPatronal, 2) Rpt2.Sfs.Text = FormatNumber(SfsPatronal, 2) Rpt2.Tss.Text = FormatNumber(RiesgoLaboral + AfpPatronal + SfsPatronal, 2) If CheckBoxNominaAdicinal.Checked = True Then Rpt2.ReporteTitulo.Text += " Adicional" Rpt2.FechaNomina.Text = FechaNominaProceso.Text If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "8" And DsNominaResumen.Tables(0).Rows(0).Item("Institucion") = "1" Then Rpt2.ReporteTitulo.Text += "(Policial)" If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "1" And (DsNominaResumen.Tables(0).Rows(0).Item("Institucion") = "2" Or DsNominaResumen.Tables(0).Rows(0).Item("Institucion") = "3" Or DsNominaResumen.Tables(0).Rows(0).Item("Institucion") = "4") Then Rpt2.ReporteTitulo.Text += "(Militar)" If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "2" Then Rpt2.ReporteTitulo.Text += "(Civiles)" If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "3" Then Rpt2.ReporteTitulo.Text += "(Aspirante)" If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "4" Then Rpt2.ReporteTitulo.Text += "(Becas)" If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "5" Then Rpt2.ReporteTitulo.Text += "(Contratado)" If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "6" Then Rpt2.ReporteTitulo.Text += "(Nomina)" If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "7" Then Rpt2.ReporteTitulo.Text += "(T.Pension)" Rpt2.Run() If LoginExportarArchivos <> "" Then Dim ReporteTitulo As String = LoginstrRutaCarpeta & "\" & Rpt2.ReporteTitulo.Text.Trim & Format(Now, "yyyyMMddhhmmss") Select Case LoginExportarArchivos Case "PDF" ReporteViewer.PdfExport1.Export(Rpt2.Document, ReporteTitulo & ".pdf") Case "XLS" ReporteViewer.XlsExport1.Export(Rpt2.Document, ReporteTitulo & ".xls") Case "TXT" ReporteViewer.TextExport1.Export(Rpt2.Document, ReporteTitulo & ".txt") End Select Proceso.Text = "Su Archivo ha sido Creado " & ReporteTitulo Me.Refresh() MsgBox(ReporteTitulo, MsgBoxStyle.Information) Else ReporteViewer.Text = Rpt2.ReporteTitulo.Text ReporteViewer.Viewer1.Document = Rpt2.Document ReporteViewer.Viewer1.Refresh() ReporteViewer.ShowDialog() End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "ERROR: Generando txt de Sigef ") End Try Dim WrkDvHistorico As New DataView(DsNominaResumen.Tables(0)) WrkDvHistorico.Sort = "Nombre" Dim Rpt As New RptNominaElectronica Rpt.DataSource = WrkDvHistorico Rpt.FechaNomina.Text = FechaNominaProceso.Text Rpt.DataMember = DsNominaResumen.Tables(0).TableName If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "1" And ComboBoxTipoNomina.SelectedValue = 8 Then Rpt.ReporteTitulo.Text = "Relacion de Pago de Compensacion por Cargo Policial" & Adic If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "1" And ComboBoxTipoNomina.SelectedValue = 8 Then Rpt.ReporteTitulo.Text = "Relacion de Pago de Compensacion por Cargo Militar" & Adic 'If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "1" And DsNominaResumen.Tables(0).Rows(0).Item("Institucion") = "1" Then Rpt.ReporteTitulo.Text = "Relacion de Pago de Compensacion por Cargo Policial" & Adic If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "2" Then Rpt.ReporteTitulo.Text = "Relacion de Pago de General De Civiles" & Adic If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "3" Then Rpt.ReporteTitulo.Text = "Relacion de Pago de General De Aspirante" & Adic If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "4" Then Rpt.ReporteTitulo.Text = "Relacion de Pago de Relacion De Pago De Becas" & Adic If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "5" Then Rpt.ReporteTitulo.Text = "Relacion de Pago de De Contratado" & Adic If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "6" Then Rpt.ReporteTitulo.Text = "Relacion de Pago de General De Nomina" & Adic If DsNominaResumen.Tables(0).Rows(0).Item("TipoNomina") = "7" Then Rpt.ReporteTitulo.Text = "Relacion de Pago de Personal Tramite de Pension" & Adic Rpt.Run() If LoginExportarArchivos <> "" Then Dim ReporteTitulo As String = LoginstrRutaCarpeta & "\" & Rpt.ReporteTitulo.Text.Trim & Format(Now, "yyyyMMddhhmmss") Select Case LoginExportarArchivos Case "PDF" ReporteViewer.PdfExport1.Export(Rpt.Document, ReporteTitulo & ".pdf") Case "XLS" ReporteViewer.XlsExport1.Export(Rpt.Document, ReporteTitulo & ".xls") Case "TXT" ReporteViewer.TextExport1.Export(Rpt.Document, ReporteTitulo & ".txt") End Select Proceso.Text = "Su Archivo ha sido Creado " & ReporteTitulo Me.Refresh() MsgBox(ReporteTitulo, MsgBoxStyle.Information) Else ReporteViewer.Text = Rpt.ReporteTitulo.Text ReporteViewer.Viewer1.Document = Rpt.Document ReporteViewer.Viewer1.Refresh() ReporteViewer.ShowDialog() End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "ERROR: Generando txt de Sigef ") End Try Me.Proceso.Text = "" End Sub Private Sub GrabarTxt() ' a = "A 202 01 03 0005 12 00 00 0005 13500 0100 100" ' a = "A 0202 01 03 0005 12 00 00 0005 11100 0100 100" Dim Capitulo As String = "0202" ' antes tenia 3 digitos Dim SubCapitulo As String = "02" Dim Daf As String = "01" Dim Ue As String = "0005" Dim Programa As String = "12" Dim SubPrograma As String = "01" Dim Proyecto As String = "00" Dim ActividadObra As String = "0001" Dim Fondo As String = "0100" Dim OrganismoFinanciador As String = "100" Secuencia = "01" Dim CodigoIdentificadorBanco As String = "101010106" Dim TipoCuentaBancaria As String = "CA" Dim CodigoMoneda As String = "01" If CheckBoxCheques.Checked = True Then CodigoBanco = "" : CuentaBancaria = "" If Trim(Departamento) = "" Then Departamento = "0000000000000000000000000000000000000000" If Trim(CodigoDepartamento) = "" Then CodigoDepartamento = "000" If Trim(CuentaBancaria) = "" Then CuentaBancaria = "00000000000000000" If Trim(CodigoBanco) = "" Then CodigoBanco = "00" If Trim(Posicion) = "" Then Posicion = "000000000000000000000000000000" If Trim(CodigoPosicion) = "" Then CodigoPosicion = "0000" If Trim(Tarjeta) = "" Then Tarjeta = "00000000" If Trim(Beneficiario) = "" Then Beneficiario = "000000000000000000000000000000000000" If Trim(Posicion) = "" Then Posicion = "000000000000000000000000000000" If Trim(Concepto) = "" Then Concepto = "000000000000000000000000000000" If Trim(CedulaRnc) = "" Then CedulaRnc = "00000000000" If Trim(Contrato) = "" Then Contrato = "0000000000" If Trim(SueldoBase) = "" Then SueldoBase = "00000000000000000" If Trim(Incentivos) = "" Then Incentivos = "00000000000000000" If Trim(OtrosIngresos) = "" Then OtrosIngresos = "00000000000000000" If Trim(TotalIngresos) = "" Then TotalIngresos = "00000000000000000" If Trim(TotalDescuentos) = "" Then TotalDescuentos = "00000000000000000" If Trim(Neto1Q) = "" Then Neto1Q = "00000000000000000" If Trim(Neto2Q) = "" Then Neto2Q = "00000000000000000" If Trim(Patron) = "" Then Patron = "00000000000000000" If Trim(Riesgo) = "" Then Riesgo = "00000000000000000" If Trim(Sfs) = "" Then Sfs = "00000000000000000" If Trim(RetiroComplementario) = "" Then RetiroComplementario = "00000000000000000" If Trim(RegionValue) = "" Then RegionValue = "00" If Trim(Provincia) = "" Then Provincia = "00" If Trim(Municipio) = "" Then Municipio = "0000" If Trim(Funcion) = "" Then Funcion = "000000" If Trim(Ccp) = "" Then Ccp = "0000000000" If Tarjeta.ToString.Trim.Length < 8 Then Tarjeta = Tarjeta.ToString.Trim + Space(8 - Tarjeta.ToString.Trim.Length) If Beneficiario.ToString.Trim.Length < 36 Then Beneficiario = Beneficiario.ToString.Trim + Space(36 - Beneficiario.ToString.Trim.Length) If Posicion.ToString.Trim.Length < 30 Then Posicion = Posicion.ToString.Trim + Space(30 - Posicion.ToString.Trim.Length) If Concepto.ToString.Trim.Length < 30 Then Concepto = Concepto.ToString.Trim + Space(30 - Concepto.ToString.Trim.Length) If Concepto.ToString.Trim.Length > 30 Then Concepto = Mid(Concepto.ToString.Trim, 1, 30) If CedulaRnc.ToString.Trim.Length < 11 Then CedulaRnc = CedulaRnc.ToString.Trim + Space(11 - CedulaRnc.ToString.Trim.Length) If Departamento.ToString.Trim.Length < 40 Then Departamento = Departamento.ToString.Trim + Space(40 - Departamento.ToString.Trim.Length) Dim Linea As String = CodigoIdentificacion & Capitulo & SubCapitulo & Daf & Ue & Programa & SubPrograma & Proyecto & ActividadObra & ObjetoCuentaSctaAux & Fondo & OrganismoFinanciador Linea += Tarjeta Linea += Beneficiario Linea += Posicion Linea += Concepto Linea += CedulaRnc Linea += FechaNomina Linea += SueldoBase Linea += Incentivos Linea += OtrosIngresos Linea += TotalIngresos Linea += TotalDescuentos Linea += Neto1Q Linea += Neto2Q Linea += CodigoDepartamento Linea += Departamento Linea += CodigoPosicion Linea += CodigoIdentificadorBanco '4/10 Linea += TipoCuentaBancaria ' 4/10 Linea += CuentaBancaria Linea += CodigoMoneda Linea += Patron Linea += Riesgo Linea += Sfs Linea += RetiroComplementario ' nuevo para el 2014 Linea += Contrato Linea += TipoDocumento Linea += Secuencia ' nuevo 2014 Linea += RegionValue Linea += Provincia Linea += Municipio Linea += Funcion Linea += Ccp 'Linea += vbLf NewFile0.WriteLine(Linea) End Sub Private Sub NominaDetalle(ByVal CodigoEmpleado As String) Dim Cadena As String = "SELECT " Cadena += "NominaDetalle.CodigoEmpleado," Cadena += "NominaDetalle.FechaNomina," Cadena += "NominaDetalle.CodigoNomina," Cadena += "NominaDetalle.Valor," Cadena += "Codigo.Descripcion," Cadena += "Codigo.Grupo," Cadena += "NominaDetalle.CodigoBeneficiario," Cadena += "Beneficiarios.Beneficiario," Cadena += "Beneficiarios.CedulaRnc," Cadena += "NominaDetalle.TipoNomina " Cadena += "FROM (Beneficiarios " Cadena += "INNER JOIN NominaDetalle ON " Cadena += "Beneficiarios.CodigoBeneficiario = NominaDetalle.CodigoBeneficiarioAd) " Cadena += "INNER JOIN Codigo ON " Cadena += "NominaDetalle.CodigoNomina = Codigo.CodigoNomina " Cadena += "WHERE NominaDetalle.CodigoNomina > '199'" Cadena += " AND NominaDetalle.CodigoEmpleado = " & "'" & CodigoEmpleado & "'" Cadena += " AND YEAR(NominaDetalle.FechaNomina) = " & LoginFechaDesde.Year Cadena += " AND MONTH(NominaDetalle.FechaNomina) = " & LoginFechaDesde.Month Cadena += " AND DAY(NominaDetalle.FechaNomina) = " & LoginFechaDesde.Day If (ComboBoxTipoNomina.SelectedValue = 8) Then Cadena += "AND NominaDetalle.TipoNomina = 1 " End If If (ComboBoxTipoNomina.SelectedValue = 1) Then Cadena += "AND NominaDetalle.TipoNomina in (2,3,4) " End If If (ComboBoxTipoNomina.SelectedValue <> 1 And ComboBoxTipoNomina.SelectedValue <> 8) Then Cadena += "AND NominaDetalle.TipoNomina = " & ComboBoxTipoNomina.SelectedValue End If Cadena += " ORDER BY " Cadena += "NominaDetalle.CodigoEmpleado," Cadena += "NominaDetalle.CodigoNomina " Dim Da As New System.Data.OleDb.OleDbDataAdapter(Cadena, Connection) Dim DsEmpleadosNominaDescuentos As New System.Data.DataSet Da.Fill(DsEmpleadosNominaDescuentos, "Descuentos") If DsEmpleadosNominaDescuentos.Tables(0).Rows.Count = 0 Then Exit Sub Fecha = LoginFechaDesde.Year & Format(LoginFechaDesde.Month, "00") & Format(LoginFechaDesde.Day, "00") CodigoIdentificacion = "D" For Actual As Integer = 0 To DsEmpleadosNominaDescuentos.Tables(0).Rows.Count - 1 Me.Proceso.Text = "Procesando " & DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("Descripcion") Neto1Q = "" Neto2Q = "" Departamento = "" TotalDescuentos = "" TotalIngresos = "" Patron = "" Riesgo = "" Sfs = "" CuentaBancaria = "" Posicion = "" MyNumber = Str(DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("Valor").ToString.Trim) If DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("Valor") > 0 Then MyValue = ControlDeClases.ConvertirNumeroSinDecimales(MyNumber, 17) 'Convertion() SueldoBase = MyValue TotalIngresos = SueldoBase Beneficiario = Mid(DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("Beneficiario"), 1, 36) ' Concepto = Mid(RsEmpleadosNominaDescuentos!Descripcion, 1, 30) Concepto = Mid(DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("CedulaRnc"), 1, 11) & Mid(DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("Descripcion"), 1, 19) Tarjeta = DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("Grupo") GrabarTxt() End If Next End Sub Private Sub NominaBeneficiario() Dim Cadena As String = "SELECT " Cadena += "NominaDetalle.CodigoBeneficiarioAd," Cadena += "Beneficiarios.Beneficiario," Cadena += "Beneficiarios.CedulaRnc," Cadena += "Codigo.Grupo," Cadena += "Codigo.Descripcion," ' OJO ACTIVADO Cadena += "SUM(NominaDetalle.Valor) AS Valor " Cadena += "FROM (Beneficiarios " Cadena += "INNER JOIN NominaDetalle ON " Cadena += "Beneficiarios.CodigoBeneficiario = NominaDetalle.CodigoBeneficiarioAd) " Cadena += "INNER JOIN Codigo ON " Cadena += "NominaDetalle.CodigoNomina = Codigo.CodigoNomina " Cadena += "WHERE NominaDetalle.CodigoNomina > '199'" 'Cadena += "AND NominaDetalle.TipoNomina = " & "'" & TipoNomina.ToString.Trim & "'" Cadena += " AND YEAR(NominaDetalle.FechaNomina) = " & LoginFechaDesde.Year Cadena += " AND MONTH(NominaDetalle.FechaNomina) = " & LoginFechaDesde.Month Cadena += " AND DAY(NominaDetalle.FechaNomina) = " & LoginFechaDesde.Day If (ComboBoxTipoNomina.SelectedValue = 8) Then Cadena += "AND NominaDetalle.TipoNomina = 1 " End If If (ComboBoxTipoNomina.SelectedValue = 1) Then Cadena += "AND NominaDetalle.TipoNomina in (2,3,4) " End If If (ComboBoxTipoNomina.SelectedValue <> 1 And ComboBoxTipoNomina.SelectedValue <> 8) Then Cadena += "AND NominaDetalle.TipoNomina = " & ComboBoxTipoNomina.SelectedValue End If Cadena += " GROUP BY " Cadena += "NominaDetalle.CodigoBeneficiarioAd," Cadena += "Beneficiarios.Beneficiario," Cadena += "Beneficiarios.CedulaRnc," Cadena += "Codigo.Descripcion," ' OJO ACTIVADO Cadena += "Codigo.Grupo" Cadena += " ORDER BY " Cadena += "Codigo.Grupo " Try Dim Da As New System.Data.OleDb.OleDbDataAdapter(Cadena, Connection) Dim DsEmpleadosNominaDescuentos As New System.Data.DataSet Da.Fill(DsEmpleadosNominaDescuentos, "Descuentos") If DsEmpleadosNominaDescuentos.Tables(0).Rows.Count = 0 Then Exit Sub CodigoIdentificacion = "H" ' TotalSfs = 0 For Actual As Integer = 0 To DsEmpleadosNominaDescuentos.Tables(0).Rows.Count - 1 ' StatusBar1.Panels(1) = "Procesando " & RsEmpleadosNominaDescuentos!Descripcion Me.Proceso.Text = "Procesando " & DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("Beneficiario") Neto1Q = "" Neto2Q = "" TotalDescuentos = "" TotalIngresos = "" Incentivos = "" OtrosIngresos = "" Patron = "" Riesgo = "" Posicion = "" CodigoPosicion = "" CodigoDepartamento = "" Departamento = "" CuentaBancaria = "" CodigoBanco = "" CedulaRnc = "" MyNumber = Str(DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("Valor").ToString.Trim) MyValue = ControlDeClases.ConvertirNumeroSinDecimales(MyNumber, 17) 'Convertion() SueldoBase = MyValue Neto2Q = MyValue Beneficiario = Mid(DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("Beneficiario"), 1, 36) Concepto = Mid(DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("Beneficiario"), 1, 30) Concepto = Mid(DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("Descripcion"), 1, 30) ' ACTIVADO Tarjeta = DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("Grupo") CedulaRnc = Mid(DsEmpleadosNominaDescuentos.Tables(0).Rows(Actual).Item("CedulaRnc"), 1, 11) GrabarTxt() Next Da.Dispose() DsEmpleadosNominaDescuentos.Dispose() Me.Proceso.Text = "" Catch ex As Exception Proceso.Text = ex.Message End Try End Sub Private Sub GrabarDetalleTssTxt() Me.Enabled = False Me.Proceso.Text = "Procesando Información, Trabajando con Nomina" Me.Refresh() ClassEasyPay.VitacoraGrabar(Cmd, "Nomina_Regular", "Generar Tss ", Me.Name) Opcion = 3 LoginFechaDesde = FechaNominaProceso.Text ClassEasyPay.NominaDetalleResumen( _ DsNominaResumen, _ "", "", _ 8, _ FechaNominaProceso.Text, _ FechaNominaProceso.Text) Call DefinirArchivo() Dim TotalSalario As Decimal = 0 Dim Nombre As String = Space(153) Dim TotalRegistro As Integer = 2 Dim AporteVoluntario As String = "0000000000000.00" Dim Salario_ISr As String = AporteVoluntario Dim OtrasRemuneraciones_ISr As String = AporteVoluntario Dim RncCedulaAgente As String = Space(11) Dim Linea As String = "" If CheckBoxRtss.Checked = True Then NewFile0.WriteLine("EAR 401506742" & LoginFechaDesde.Month.ToString.PadLeft(2, "0") & LoginFechaDesde.Year) Else NewFile0.WriteLine("EAM 401506742" & LoginFechaDesde.Month.ToString.PadLeft(2, "0") & LoginFechaDesde.Year) End If For Actual As Integer = 0 To DsNominaResumen.Tables(0).Rows.Count - 1 Me.Proceso.Text = "Procesando " & DsNominaResumen.Tables(0).Rows(Actual).Item("Nombre") Me.Refresh() If DsNominaResumen.Tables(0).Rows(Actual).Item("DescuentoAfp") > 0 Then Dim MyValueRegalia As String = "0000000000000.00" Dim Cadena As String = "SELECT * FROM NominaRegaliaDetalle " Cadena += " WHERE CodigoEmpleado =" & "'" & DsNominaResumen.Tables(0).Rows(Actual).Item("CodigoEmpleado").ToString.Trim & "'" Cadena += " AND YEAR(FechaNomina) = " & LoginFechaDesde.Year Cadena += " AND MONTH(FechaNomina) = " & LoginFechaDesde.Month Cadena += " AND DAY(FechaNomina) = " & LoginFechaDesde.Day Dim Da As New System.Data.OleDb.OleDbDataAdapter(Cadena, Connection) DsTablaImpuesto = New System.Data.DataSet Da.Fill(DsTablaImpuesto, "Regalia") If DsTablaImpuesto.Tables(0).Rows.Count = 1 Then MyValueRegalia = Format(DsTablaImpuesto.Tables(0).Rows(0).Item("Regalia"), "0000000000000.00") TotalRegistro += 1 TotalSalario += DsNominaResumen.Tables(0).Rows(Actual).Item("SalarioBruto") MyValue = Format(DsNominaResumen.Tables(0).Rows(Actual).Item("SalarioBruto"), "0000000000000.00") CedulaRnc = Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Cedula"), 1, 3) & Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Cedula"), 5, 7) & Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Cedula"), 13, 1) Linea = "D001C" & CedulaRnc & Nombre Linea = Linea & MyValue & AporteVoluntario & Salario_ISr & OtrasRemuneraciones_ISr & RncCedulaAgente & OtrasRemuneraciones_ISr & MyValueRegalia & OtrasRemuneraciones_ISr NewFile0.WriteLine(Linea) End If Next ClassEasyPay.NominaRegaliaDetalleLeerTipo( _ DsNominaResumen, _ "2", _ "0", _ FechaNominaProceso.Text) If DsNominaResumen.Tables(0).Rows.Count > 0 Then MyValue = "0000000000000.01" For Actual As Integer = 0 To DsNominaResumen.Tables(0).Rows.Count - 1 Dim Cadena As String = "SELECT * FROM NominaDetalle " Cadena += " WHERE CodigoNomina='101' AND CodigoEmpleado =" & "'" & DsNominaResumen.Tables(0).Rows(Actual).Item("CodigoEmpleado").ToString.Trim & "'" Cadena += " AND YEAR(FechaNomina) = " & LoginFechaDesde.Year Cadena += " AND MONTH(FechaNomina) = " & LoginFechaDesde.Month Cadena += " AND DAY(FechaNomina) = " & LoginFechaDesde.Day DsTablaImpuesto = New System.Data.DataSet Dim Da As New System.Data.OleDb.OleDbDataAdapter(Cadena, Connection) Da.Fill(DsTablaImpuesto, "Regalia") If DsTablaImpuesto.Tables(0).Rows.Count = 0 Then TotalRegistro += 1 Dim MyValueRegalia As String = Format(DsNominaResumen.Tables(0).Rows(Actual).Item("Regalia"), "0000000000000.00") CedulaRnc = Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Cedula"), 1, 3) & Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Cedula"), 5, 7) & Mid(DsNominaResumen.Tables(0).Rows(Actual).Item("Cedula"), 13, 1) Linea = "D001C" & CedulaRnc & Nombre Linea = Linea & MyValue & AporteVoluntario & Salario_ISr & OtrasRemuneraciones_ISr & RncCedulaAgente & OtrasRemuneraciones_ISr & MyValueRegalia & OtrasRemuneraciones_ISr NewFile0.WriteLine(Linea) End If Next End If NewFile0.WriteLine("S" & Format(TotalRegistro, "000000")) Me.Proceso.Text = "" NewFile0.Close() MsgBox("Total De Salario Para Reportar Al TTS " & Format(TotalSalario, "##,###,###.00") & " Total Empleados " & Format(TotalRegistro - 2, "##,###,###")) End Sub ' transacciones de banco Private Sub GrabarDetalleBanco() 'ControlDeClases.NominaDetalleResumen( _ ' RsEmpleadosNomina, _ ' "", _ ' TextTipoNomina, _ ' TextFechaNomina, _ ' TextFechaNomina) 'If TextSelecionar = "1" Then ' LLenarGridSeleccionEmpleado() 'Else ' ProcesarGrabarDetalleBanco() 'End If End Sub Private Sub BotonTrf_Click(sender As System.Object, e As System.EventArgs) Handles BotonTrf.Click Call ProcesarGrabarDetalleBanco() Me.Enabled = True End Sub Private Sub BotonTss_Click(sender As System.Object, e As System.EventArgs) Handles BotonTss.Click Call GrabarDetalleTssTxt() Me.Enabled = True End Sub Private Sub ProcesarGrabarDetalleBanco() Me.Enabled = False Me.Proceso.Text = "Procesando Información" Me.Refresh() BancoTrueFalse = True ClassEasyPay.VitacoraGrabar(Cmd, "Nomina_Regular", "Generar transferencia bancaria ", Me.Name) LoginFechaDesde = FechaNominaProceso.Text ClassEasyPay.NominaDetalleResumen( _ DsNominaResumen, _ "", "", _ ComboBoxTipoNomina.SelectedValue, _ FechaNominaProceso.Text, _ FechaNominaProceso.Text) If DsNominaResumen.Tables(0).Rows.Count = 0 Then Me.Proceso.Text = "No Hay Informacion Para Procesar" Exit Sub End If ' ProcesarDuplicado() Opcion = 2 Dim TotalNeto As Decimal = 0 Dim TotalEmpleado As Integer = DsNominaResumen.Tables(0).Rows.Count Dim TotalNetoN As Decimal = 0 Dim TotalEmpleadoN As Integer = 0 If ErrorFalseTrue = True Then Exit Sub Call DefinirArchivo() NewFile0.WriteLine("Clave ,Cta a Acreditar,Valor,Referencia") Dim Linea As String = "" For Actual As Integer = 0 To DsNominaResumen.Tables(0).Rows.Count - 1 TotalNeto += DsNominaResumen.Tables(0).Rows(Actual).Item("SalarioNeto") MyValue = Format(DsNominaResumen.Tables(0).Rows(Actual).Item("SalarioNeto"), "########.00") Linea = "100010300101724," Linea = Linea & DsNominaResumen.Tables(0).Rows(Actual).Item("CuentaBancaria").ToString.Trim.PadRight(17, "0") & "," Linea = Linea & LTrim(MyValue) & "," Linea = Linea & DsNominaResumen.Tables(0).Rows(Actual).Item("Nombre").ToString.Trim NewFile0.WriteLine(Linea) Next Me.Proceso.Text = "" NewFile0.Close() If TotalEmpleadoN > 0 Then Dim aa As String = "Total De Empleados--------> " & Format(TotalEmpleado, "###,###,###") & vbLf aa = aa & "Total Empleados Omitidos : " & Format(TotalEmpleadoN, "###,###,###") & vbLf aa = aa & "_____________________________________" & vbLf aa = aa & "Total Neto a Pagar Es-----> " & Format(TotalNeto, "###,###,###.00") & vbLf aa = aa & "Menos Neto a No Pagar-----> " & Format(TotalNetoN, "###,###,###.00") & vbLf aa = aa & "Neto a Transferir---------> " & Format(TotalNeto - TotalNetoN, "###,###,###.00") & vbLf aa = aa & "______________________________________" & vbLf aa = aa & "Archivo " & strRutaExcel MsgBox(aa) 'NominaArchivo.Height = 2715 'NominaArchivo.Top = 2625 Else MsgBox("Total De Empleados " & Format(TotalEmpleado, "###,###") & " Total Neto a Pagar Es De " & Format(TotalNeto, "###,###.00")) End If End Sub Sub ValidarExportacion() LoginExportarArchivos = "" If ExportarPdf.Checked = True Then LoginExportarArchivos = "PDF" ElseIf ExportarTxt.Checked = True Then LoginExportarArchivos = "TXT" ElseIf ExportarXls.Checked = True Then LoginExportarArchivos = "XLS" End If End Sub End Class