-- mejoras comercio exterior
This commit is contained in:
@@ -5148,7 +5148,6 @@ Partial Class Ventas
|
|||||||
'ESTATUS FACTURA
|
'ESTATUS FACTURA
|
||||||
If Not (CveRemision > 0 Or CveCotizacion > 0) Then
|
If Not (CveRemision > 0 Or CveCotizacion > 0) Then
|
||||||
CveEstatus = DbRowVenta("CveEstatusFactura").ToString().ToEntero()
|
CveEstatus = DbRowVenta("CveEstatusFactura").ToString().ToEntero()
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
TxtTipoCambio.Text = DbRowVenta("TipoCambio").ToString()
|
TxtTipoCambio.Text = DbRowVenta("TipoCambio").ToString()
|
||||||
@@ -6369,6 +6368,8 @@ Partial Class Ventas
|
|||||||
TxtComExtCalle.Text = ObjCliente.Direccion
|
TxtComExtCalle.Text = ObjCliente.Direccion
|
||||||
TxtComExtNumero.Text = ObjCliente.NoExt
|
TxtComExtNumero.Text = ObjCliente.NoExt
|
||||||
TxtComExtCP.Text = ObjCliente.CP
|
TxtComExtCP.Text = ObjCliente.CP
|
||||||
|
'en comercio exterior como regla de timbrado se utiliza el TC del día anterior
|
||||||
|
TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString()
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user