Amigos ahora lo arme asi:
static function generacobro()
*------------------------------
local cSql,oprn
local mescobro:=AllTrim(Str(month(date()),2))
local anocobro:=str(year(date()),4)
cSql:="INSERT INTO cartola_cliente( id_abonado,periodo_mes,periodo_ano,cod_servicio,det_servicio,valor_plan ) SELECT id_abonado,"+(mescobro)+","+(anocobro)+",cod_servicio,det_servicio,totalpagar FROM serviciostomados where CONCAT(TRIM(mes),TRIM(ano))<>'"+(mescobro+anocobro)+"' and suspendido=1"
xServer:Execute( cSql )
cSql:="UPDATE serviciostomados SET mes='"+(mescobro)+"',ano='"+(anocobro)+"'"
xServer:Execute( cSql )
MSGINFO( " Generacion de Cobro Listo..","Atencion" )
return .t.
y funciona bien pero,,, siempre hay peros, necesito validar en la cartola_cliente que lo cargado no exista
saludos
↧