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

fecha

Browse Source
This commit is contained in:
rrene
2024-11-26 19:59:03 -07:00
parent 964358dd26
commit 8195c92714
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Contabilidad/DiarioPagos.aspx.vb
View File

@@ -711,7 +711,7 @@ Partial Class Contabilidad_DiarioPagos
'cuando el anticipo no paga toda la factura y no esta contabilizada 'cuando el anticipo no paga toda la factura y no esta contabilizada
If AbonoAnticipo < CompraTotal AndAlso Not EsContabilizada Then AbonoProveedor = CompraTotal - AbonoAnticipo If AbonoAnticipo < CompraTotal AndAlso Not EsContabilizada Then AbonoProveedor = CompraTotal - AbonoAnticipo
'ejecuta la instruccion para contabilizar la prepoliza de amortizacion cuando es unica, es decir se hace al final del cheque, luego otra prepoliza con la compra y tercera la amortizacion 'ejecuta la instruccion para contabilizar la prepoliza de amortizacion cuando es unica, es decir se hace al final del cheque, luego otra prepoliza con la compra y tercera la amortizacion
If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, CvePlantillaPoliza) Then MsgError = "Error al actualizar compra" : Exit For Else PolizaActualizada = True If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, CvePlantillaPoliza) Then MsgError = "Error al actualizar compra" : Exit For Else PolizaActualizada = True
Case 2, 1 Case 2, 1
TotalProveedores = TotalBancos TotalProveedores = TotalBancos
@@ -721,7 +721,7 @@ Partial Class Contabilidad_DiarioPagos
IdCuentaProveedor = gvrc.FCHiddenField("HdnIdCtaContProveedores").Value.ToEntero IdCuentaProveedor = gvrc.FCHiddenField("HdnIdCtaContProveedores").Value.ToEntero
Case 20 Case 20
'contabilizo la prepoliza 'contabilizo la prepoliza
If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, CvePlantillaPoliza) Then MsgError = "Error al actualizar compra" : Exit For Else PolizaActualizada = True If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, CvePlantillaPoliza) Then MsgError = "Error al actualizar compra" : Exit For Else PolizaActualizada = True
Case 8 'FyE Case 8 'FyE
AbonoFuncionario = CompraPagadoTotal AbonoFuncionario = CompraPagadoTotal
@@ -803,7 +803,7 @@ Partial Class Contabilidad_DiarioPagos
Next Next
'debe de actualizar 'debe de actualizar
If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero) Then If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero) Then
'ya esta corriendo un proceso que actualiza la 'ya esta corriendo un proceso que actualiza la
'If Not PolizaActualizada Then MsgError = "Error al actualizar compra" : Exit For 'If Not PolizaActualizada Then MsgError = "Error al actualizar compra" : Exit For
End If End If