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

-- mejora en TC

Browse Source
This commit is contained in:
rrene
2022-05-23 14:18:16 -07:00
parent 16c064b0da
commit c88ce4f24d
1 changed files with 22 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -1257,12 +1257,6 @@ Partial Class ContabilidadC_RegPrePolizaS
DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e) 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("###,###,###.00")
DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
TxtModalConceptoDocumentoBeneficiario.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoBeneficiario")
TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones")
TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00")
TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero
@@ -1307,11 +1301,22 @@ Partial Class ContabilidadC_RegPrePolizaS
TxtAbonoE.Text = Abono TxtAbonoE.Text = Abono
End If End If
If Abono = 0 Then If CveConceptoContable = 30 Then
CargaModalConceptoTipoTransaccion("Ing") If Abono = 0 Then
Else CargaModalConceptoTipoTransaccion("Ing")
CargaModalConceptoTipoTransaccion("Egs") Else
CargaModalConceptoTipoTransaccion("Egs")
End If
DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
TxtModalConceptoDocumentoBeneficiario.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoBeneficiario")
TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones")
TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00")
End If End If
UpModalConcepto.Update() UpModalConcepto.Update()
End Sub End Sub
@@ -1644,12 +1649,18 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("Modificado") = True dr("Modificado") = True
dr("TC") = TxtTipoCambio.Text.ToDecimal dr("TC") = TxtTipoCambio.Text.ToDecimal
dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
dr("ContadoImporte") = dr("ImporteMN").ToString
If DrConceptoContable IsNot Nothing Then If DrConceptoContable IsNot Nothing Then
dr("EsComplementaria") = DrConceptoContable("EsComplementaria") dr("EsComplementaria") = DrConceptoContable("EsComplementaria")
dr("EsMonedaExtranjera") = DrConceptoContable("EsMonedaExtranjera") dr("EsMonedaExtranjera") = DrConceptoContable("EsMonedaExtranjera")
If dr("EsMonedaExtranjera") = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal If dr("EsMonedaExtranjera") = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal
End If End If
If DdlPorcentajeIVAE.Visible Then If DdlPorcentajeIVAE.Visible Then