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

36
Bancos/Reembolsos.aspx.vb
View File

@@ -463,24 +463,24 @@ Partial Class Bancos_Reembolsos
If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = SaldoAbonado / gvr.DataKey("Original").ToDecimal Else PorcentajePago = 1
If CveIERegistrado > 0 AndAlso SaldoCheque > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaVieja, True, SaldoAbonado, " ", 29, " ", gvr.FCLiteral("LtlFecha").Text.ToDate, 0, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=SaldoAbonado) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaVieja, True, SaldoAbonado, SaldoAbonado, 29, " ", " ", CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
Exit For
End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaVieja, False, SaldoAbonado, " ", 17, " ", gvr.FCLiteral("LtlFecha").Text.ToDate, 0, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=SaldoAbonado) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaVieja, False, SaldoAbonado, SaldoAbonado, 17, " ", " ", CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
Exit For
End If
If MsgError = "" AndAlso gvr.DataKey("IVA").ToDecimal > 0 Then
'Agrego el IVA
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaVieja, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 14, TxtObservaciones.Text, gvr.FCLiteral("LtlFecha").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.DataKey("IVA").ToDecimal * PorcentajePago) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaVieja, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, gvr.DataKey("IVA").ToDecimal * PorcentajePago, 14, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
Exit For
End If
'Agrego el IVA
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaVieja, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 19, TxtObservaciones.Text, gvr.FCLiteral("LtlFecha").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.DataKey("IVA").ToDecimal * PorcentajePago) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaVieja, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, gvr.DataKey("IVA").ToDecimal * PorcentajePago, 19, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
Exit For
End If
@@ -535,7 +535,7 @@ Partial Class Bancos_Reembolsos
If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = SaldoActual / gvr.DataKey("Original").ToDecimal Else PorcentajePago = 1
If SaldoActual > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, True, SaldoActual, TxtObservaciones.Text, 17, "", gvr.FCLiteral("LtlFecha").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=SaldoActual) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, True, SaldoActual, SaldoActual, 17, TxtObservaciones.Text, "", CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
Exit For
Else
@@ -548,13 +548,13 @@ Partial Class Bancos_Reembolsos
'*********IVA. siempre se registra aunque sea cero PREGUNTAR POR EL CONCEPTO DE IVA EN Conta_Conceptos
If MsgError = "" AndAlso gvr.DataKey("IVA").ToDecimal > 0 Then
'Agrego el IVA
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 14, TxtObservaciones.Text, gvr.FCLiteral("LtlFecha").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.DataKey("IVA").ToDecimal * PorcentajePago) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, gvr.DataKey("IVA").ToDecimal * PorcentajePago, 14, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
Exit For
End If
'Agrego el IVA
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 19, TxtObservaciones.Text, gvr.FCLiteral("LtlFecha").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.DataKey("IVA").ToDecimal * PorcentajePago) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, gvr.DataKey("IVA").ToDecimal * PorcentajePago, 19, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
Exit For
End If
@@ -562,7 +562,7 @@ Partial Class Bancos_Reembolsos
If MsgError = "" AndAlso gvr.DataKey("RetIVA").ToDecimal > 0 Then
'Agrego el RetIVA
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, True, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 15, TxtObservaciones.Text, gvr.FCLiteral("LtlFecha").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, True, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, 15, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
Exit For
End If
@@ -570,7 +570,7 @@ Partial Class Bancos_Reembolsos
If MsgError = "" AndAlso gvr.DataKey("RetISR").ToDecimal > 0 Then
'Agrego el RetISR
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, True, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, TxtObservaciones.Text, 16, TxtObservaciones.Text, gvr.FCLiteral("LtlFecha").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.DataKey("RetISR").ToDecimal * PorcentajePago) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, True, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, 16, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
Exit For
End If
@@ -629,7 +629,7 @@ Partial Class Bancos_Reembolsos
Next
If ImporteExcedido > 0 And MsgError.Trim = "" Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, False, ImporteExcedido, TxtObservaciones.Text, 30, TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, 0, -1, CveIE:=CveIE, ImporteMX:=ImporteExcedido) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaNueva, False, ImporteExcedido, ImporteExcedido, 30, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE) Then
MsgError = "no se pudo insertar el detalle de la poliza"
End If
End If
@@ -793,41 +793,39 @@ Partial Class Bancos_Reembolsos
'Saco el porcentaje de pago
If gvr.DataKey("Original").ToDouble > 0 Then PorcentajePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal / gvr.DataKey("Original").ToDecimal Else PorcentajePago = 1
If CveIERegistrado > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, gvr.FCTextBox("TxtAbonar").Text.ToDecimal, " ", 29, " ", gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.FCTextBox("TxtAbonar").Text.ToDecimal) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, gvr.FCTextBox("TxtAbonar").Text.ToDecimal, gvr.FCTextBox("TxtAbonar").Text.ToDecimal, 29, " ", " ", CveIE:=CveIE, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.FCTextBox("TxtAbonar").Text.ToDecimal, " ", 17, " ", gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.FCTextBox("TxtAbonar").Text.ToDecimal) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.FCTextBox("TxtAbonar").Text.ToDecimal, gvr.FCTextBox("TxtAbonar").Text.ToDecimal, 17, " ", " ", CveIE:=CveIE, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
End If
Else
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, gvr.FCTextBox("TxtAbonar").Text.ToDecimal, TxtObservaciones.Text, 17, "", gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.FCTextBox("TxtAbonar").Text.ToDecimal) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, gvr.FCTextBox("TxtAbonar").Text.ToDecimal, gvr.FCTextBox("TxtAbonar").Text.ToDecimal, 17, TxtObservaciones.Text, "", CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
Exit For
Else
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("SubTotal").ToDecimal * PorcentajePago, TxtObservaciones.Text, 6, TxtObservaciones.Text, gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.DataKey("SubTotal").ToDecimal * PorcentajePago) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("SubTotal").ToDecimal * PorcentajePago, gvr.DataKey("SubTotal").ToDecimal * PorcentajePago, 6, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "no se pudo insertar el detalle de la poliza"
End If
'*********IVA. siempre se registra aunque sea cero PREGUNTAR POR EL CONCEPTO DE IVA EN Conta_Conceptos
If MsgError = "" AndAlso gvr.DataKey("IVA").ToDouble > 0 Then
'Agrego el IVA
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 13, TxtObservaciones.Text, gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.DataKey("IVA").ToDecimal * PorcentajePago) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, gvr.DataKey("IVA").ToDecimal * PorcentajePago, 13, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
End If
End If
If MsgError = "" AndAlso gvr.DataKey("RetIVA").ToDouble > 0 Then
'Agrego el RetIVA
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 15, TxtObservaciones.Text, gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, 15, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
End If
End If
If MsgError = "" AndAlso gvr.DataKey("RetISR").ToDouble > 0 Then
'Agrego el RetISR
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, TxtObservaciones.Text, 16, TxtObservaciones.Text, gvr.FCLiteral("LtlFechaVenci").Text.ToDate, 0, -1, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteMX:=gvr.DataKey("RetISR").ToDecimal * PorcentajePago) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, 16, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero) Then
MsgError = "Detalle"
End If
End If