-- option strict on
This commit is contained in:
@@ -579,7 +579,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
'si es otra diferente al peso
|
||||
If gvr.DataKey("CveMoneda") <> "1" Then
|
||||
TipoCambio = TxtTC.Text.ToDouble
|
||||
If RBLOpcion.SelectedValue = "1" Then TipoCambioPago = TxtTC.Text.ToDouble Else TipoCambioPago = gvr.FCTextBox("TxtTC").Text.ToDouble
|
||||
If RBLOpcion.SelectedValue = "1" Then TipoCambioPago = TxtTC.Text.ToDecimal Else TipoCambioPago = gvr.FCTextBox("TxtTC").Text.ToDecimal
|
||||
MonExt = True
|
||||
Concepto = String.Format("{0} TC:{1} ${2}", ConceptoMov, TxtTC.Text, gvr.DataKey("Importe").ToDouble.FormatoNumero)
|
||||
Else
|
||||
@@ -666,7 +666,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
IdCuentaProveedor = gvrc.FCHiddenField("HdnIdCtaContProveedores").Value.ToEntero
|
||||
Case 20
|
||||
'contabilizo la prepoliza
|
||||
If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 20) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 20) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
Case 8, 9 'FyE
|
||||
IdCuentaFuncionario = gvr.DataKey("IdCtaContPersonal").ToEntero
|
||||
AbonoFuncionario = CompraPagadoTotal
|
||||
@@ -685,7 +685,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
AbonoAnticipo = CompraPagadoTotal
|
||||
CargoProveedor = CompraPagadoTotal
|
||||
AbonoProveedor = 0
|
||||
If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 10) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 10) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
Case 2
|
||||
CargoProveedor = CompraPagadoTotal
|
||||
AbonoProveedor = 0
|
||||
@@ -693,7 +693,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
CargoProveedor = CompraPagadoTotal
|
||||
AbonoProveedor = 0
|
||||
'contabilizo la prepoliza
|
||||
If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 20) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 20) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
Case 8
|
||||
AbonoFuncionario = 0
|
||||
TotalFuncionarios = 0
|
||||
@@ -704,7 +704,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
|
||||
|
||||
'ya viene el tipo de cambio entre la fecha de compra y la ultima fluctuacion
|
||||
If CveMoneda = 2 Then TipoCambioCompra = gvrc.FCHiddenField("HdnTC").Value.ToDouble Else TipoCambioCompra = 1
|
||||
If CveMoneda = 2 Then TipoCambioCompra = gvrc.FCHiddenField("HdnTC").Value.ToDecimal Else TipoCambioCompra = 1
|
||||
|
||||
''S I M P L I F I C A R
|
||||
SimplificaIVAxAcreditar = False
|
||||
@@ -725,7 +725,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
|
||||
Next
|
||||
'debe de actualizar
|
||||
If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza.ToEntero, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero) Then
|
||||
If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero) Then
|
||||
MsgError = "Error al actualizar compra" : Exit For
|
||||
End If
|
||||
|
||||
@@ -788,7 +788,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
IVAAcreditable * TipoCambioPago,
|
||||
CompraPagadoRetIVA * TipoCambioPago,
|
||||
CompraPagadoRetISR * TipoCambioPago,
|
||||
Fecha, NumPoliza, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
|
||||
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
|
||||
MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
|
||||
End If
|
||||
|
||||
@@ -905,7 +905,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
|
||||
If MsgError = "" Then
|
||||
Conta.AjustaPoliza(IDPoliza)
|
||||
PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero)
|
||||
'PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero)
|
||||
|
||||
Conta.Commit()
|
||||
PrePolizas.Commit()
|
||||
@@ -1048,7 +1048,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
'si es otra diferente al peso
|
||||
If gvr.DataKey("CveMonedaCompra") <> "1" Then
|
||||
TipoCambio = TxtTC.Text.ToDouble
|
||||
If RBLOpcion.SelectedValue = "1" Then TipoCambioPago = TxtTC.Text.ToDouble Else TipoCambioPago = gvr.FCTextBox("TxtTC").Text.ToDouble
|
||||
If RBLOpcion.SelectedValue = "1" Then TipoCambioPago = TxtTC.Text.ToDecimal Else TipoCambioPago = gvr.FCTextBox("TxtTC").Text.ToDecimal
|
||||
MonExt = True
|
||||
Concepto = String.Format("{0} TC:{1} ${2}", ConceptoMov, TxtTC.Text, gvr.DataKey("Total").ToDouble.FormatoNumero)
|
||||
Else
|
||||
@@ -1117,7 +1117,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
IdCuentaProveedor = gvrc.FCHiddenField("HdnIdCtaContProveedores").Value.ToEntero
|
||||
|
||||
'ya viene el tipo de cambio entre la fecha de compra y la ultima fluctuacion
|
||||
If CveMoneda = 2 Then TipoCambioCompra = gvrc.FCHiddenField("HdnTC").Value.ToDouble Else TipoCambioCompra = 1
|
||||
If CveMoneda = 2 Then TipoCambioCompra = gvrc.FCHiddenField("HdnTC").Value.ToDecimal Else TipoCambioCompra = 1
|
||||
|
||||
If gvrc.FCHiddenField("HdnTipoDocto").Value = "NC" Then
|
||||
IVAxAcreditar = IVAAcreditable
|
||||
@@ -1163,9 +1163,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
|
||||
'End Select
|
||||
|
||||
If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 8) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 8) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
|
||||
If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 9) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 9) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
|
||||
|
||||
|
||||
@@ -1246,7 +1246,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
IVAAcreditable * TipoCambioPago,
|
||||
CompraPagadoRetIVA * TipoCambioPago,
|
||||
CompraPagadoRetISR * TipoCambioPago,
|
||||
Fecha, NumPoliza, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
|
||||
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
|
||||
MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
|
||||
End If
|
||||
|
||||
@@ -1395,7 +1395,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
|
||||
If MsgError = "" Then
|
||||
Conta.AjustaPoliza(IDPoliza)
|
||||
PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero)
|
||||
' PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero)
|
||||
|
||||
Conta.Commit()
|
||||
PrePolizas.Commit()
|
||||
@@ -1529,7 +1529,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
'si es otra diferente al peso
|
||||
If gvr.DataKey("CveMonedaCompra") <> "1" Then
|
||||
TipoCambio = TxtTC.Text.ToDouble
|
||||
If RBLOpcion.SelectedValue = "1" Then TipoCambioPago = TxtTC.Text.ToDouble Else TipoCambioPago = gvr.FCTextBox("TxtTC").Text.ToDouble
|
||||
If RBLOpcion.SelectedValue = "1" Then TipoCambioPago = TxtTC.Text.ToDecimal Else TipoCambioPago = gvr.FCTextBox("TxtTC").Text.ToDecimal
|
||||
MonExt = True
|
||||
Concepto = String.Format("{0} TC:{1} ${2}", ConceptoMov, TxtTC.Text, gvr.DataKey("Total").ToDouble.FormatoNumero)
|
||||
Else
|
||||
@@ -1593,12 +1593,12 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
|
||||
|
||||
|
||||
If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 8) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza.ToString, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 8) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
|
||||
'If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, 9) Then MsgError = "Error al actualizar compra" : Exit For
|
||||
|
||||
'ya viene el tipo de cambio entre la fecha de compra y la ultima fluctuacion
|
||||
If CveMoneda = 2 Then TipoCambioCompra = gvrc.FCHiddenField("HdnTC").Value.ToDouble Else TipoCambioCompra = 1
|
||||
If CveMoneda = 2 Then TipoCambioCompra = gvrc.FCHiddenField("HdnTC").Value.ToDecimal Else TipoCambioCompra = 1
|
||||
|
||||
''S I M P L I F I C A R
|
||||
SimplificaIVAxAcreditar = False
|
||||
@@ -1671,7 +1671,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
IVAAcreditable * TipoCambioPago,
|
||||
CompraPagadoRetIVA * TipoCambioPago,
|
||||
CompraPagadoRetISR * TipoCambioPago,
|
||||
Fecha, NumPoliza, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
|
||||
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
|
||||
MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
|
||||
End If
|
||||
|
||||
@@ -1694,7 +1694,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
|
||||
If MsgError = "" Then
|
||||
Conta.AjustaPoliza(IDPoliza)
|
||||
PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero)
|
||||
'PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero)
|
||||
|
||||
Conta.Commit()
|
||||
PrePolizas.Commit()
|
||||
|
||||
Reference in New Issue
Block a user