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

-- cambios en prepolizasdetalle

Browse Source
This commit is contained in:
rrene
2023-08-14 18:11:11 -07:00
parent 292f882458
commit 4bce2fcc28
58 changed files with 726 additions and 2259 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Bancos/ProveedoresCreditos.aspx.vb
View File

@@ -1079,11 +1079,11 @@ Partial Class Bancos_ProveedoresCreditos
CreditoIvaCapital = CreditoIVACompra
End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, CreditoIvaCapital, Referencia, ConceptoContable, Concepto, FechaMovimiento, 0, -1, ImporteMX:=CreditoIvaCapital, CveProveedor:=CveProveedor, CveCredito:=CveCredito) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, CreditoIvaCapital, CreditoIvaCapital, ConceptoContable, Referencia, Concepto, CveProveedor:=CveProveedor, CveCredito:=CveCredito) Then
MsgError = "no se pudo insertar el detalle de la póliza(Crédito) "
End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, CreditoIvaIntereses, Referencia, ConceptoContable, Concepto, FechaMovimiento, 0, -1, ImporteMX:=CreditoIvaIntereses, CveProveedor:=CveProveedor, CveCredito:=CveCredito) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, CreditoIvaIntereses, CreditoIvaIntereses, ConceptoContable, Referencia, Concepto, CveProveedor:=CveProveedor, CveCredito:=CveCredito) Then
MsgError = "no se pudo insertar el detalle de la póliza(Crédito) "
End If
@@ -1098,11 +1098,11 @@ Partial Class Bancos_ProveedoresCreditos
CreditoIvaCapital = CreditoIVACompra
End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, CreditoIvaCapital, Referencia, ConceptoContable, Concepto, FechaMovimiento, 0, -1, ImporteMX:=CreditoIvaCapital, CveProveedor:=CveProveedor, CveCredito:=CveCredito) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, CreditoIvaCapital, CreditoIvaCapital, ConceptoContable, Referencia, Concepto, CveProveedor:=CveProveedor, CveCredito:=CveCredito) Then
MsgError = "no se pudo insertar el detalle de la póliza(Credito) "
End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, CreditoIvaIntereses, Referencia, ConceptoContable, Concepto, FechaMovimiento, 0, -1, ImporteMX:=CreditoIvaIntereses, CveProveedor:=CveProveedor, CveCredito:=CveCredito) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, CreditoIvaIntereses, CreditoIvaIntereses, ConceptoContable, Referencia, Concepto, CveProveedor:=CveProveedor, CveCredito:=CveCredito) Then
MsgError = "no se pudo insertar el detalle de la póliza(Credito) "
End If
@@ -1122,7 +1122,7 @@ Partial Class Bancos_ProveedoresCreditos
If TemoimporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TemoimporteMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, 0, -1, CveIE:=CveIE, ImporteMX:=importeMovimiento, CveProveedor:=CveProveedor, CveCredito:=CveCredito, CveCreditoDetalle:=CveCreditoDetalle, CveCompra:=CveCompraCredito) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TemoimporteMovimiento, importeMovimiento, ConceptoContable, Referencia, Concepto, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCredito:=CveCredito, CveCreditoDetalle:=CveCreditoDetalle, CveCompra:=CveCompraCredito) Then
MsgError = "no se pudo insertar el detalle de la póliza(Crédito) "
End If
End If
@@ -1131,7 +1131,7 @@ Partial Class Bancos_ProveedoresCreditos
If OpcionACompra = 1 Then
If ImporteOpcionACompra > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteOpcionACompra, TxtFolio.Text, 147, TxtFolio.Text, FechaMovimiento, -1, -1, CveIE:=CveIE, ImporteMX:=ImporteOpcionACompra, CveProveedor:=CveProveedor, CveCredito:=CveCredito, CveCreditoDetalle:=CveCreditoDetalle) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteOpcionACompra, ImporteOpcionACompra, 147, TxtFolio.Text, TxtFolio.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCredito:=CveCredito, CveCreditoDetalle:=CveCreditoDetalle) Then
MsgError = "no se pudo insertar el detalle de la póliza(Crédito) "
End If
End If
@@ -1142,7 +1142,7 @@ Partial Class Bancos_ProveedoresCreditos
Next
If MsgError = "" Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, TxtObservaciones.Text.Trim, 30, TxtObservaciones.Text.Trim, TxtFechaDocumento.Text.ToDate, 0, -1, CveIE:=CveIE, ImporteMX:=TxtImporte.Text.ToDecimal, CveProveedor:=CveProveedor, CveCredito:=CveCredito) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, 30, TxtObservaciones.Text.Trim, TxtObservaciones.Text.Trim, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCredito:=CveCredito) Then
MsgError = "no se pudo insertar moviento bancario de pago(Crédito) "
End If
End If