Scripts varios


Utilidad para cuando utilizamos un filtro muy a menudo en el formulario de cartera de cobros
Abre el formulario de Cartera de cobros prefiltrado para la empresa en la que se ha iniciado sesión.
"IdClienteDe" hace referencia al id del cliente del que queremos ver los efectos.
"IdEstado" hace referencia al estado de los efectos siendo:
0: generado
1: Recibido / Aceptado
2: Asignado remesa
3: Remesado
4: Cobrado
5: Impagado
6: Sustituido
7: Dudoso cobro
8. Deteriorado
9: Incobrable

 

Ver código ejemplo


Sub Main()
Set lFiltro = CreateObject("AhoraConta.Efecto_Filtro")
lFiltro.Propiedades("IdClienteDe") = "43000002"
lFiltro.Propiedades("IdEstado") = "0,1,2,3,5,7"
gCn.AhoraProceso "CarteraCobros_Filtro", False, lFiltro, gForm
frmAux.Descargar
End Sub


Ejemplo Con Iddocs'  


Ejemplo:
Sub Main()
lIdDocsEfectosOferta = "1684, 1686, 1690"
Set lFiltro = CreateObject("AhoraConta.Efecto_Filtro")
lFiltro.Propiedades("IdClienteDe") = gForm.Controls("IdCliente")
lFiltro.Propiedades("IdDoc") = lIdDocsEfectosOferta
gCn.AhoraProceso "CarteraCobros_Filtro", False, lFiltro, gForm
frmAux.Descargar
End Sub



Autor: Adolfo Gonzalvo Bosch