ALTASINTEGRADO

ALTASINTEGRADO  ;
    ; enviamos las altas de socios durante el mes anterior por email
    K ALTAS
    S S="#",CL=""
    S FEC=^PZP(2,0) S NUM=-30 D ^%XPX4
    F  S CL=$O(^CLI(CL)) Q:CL=""  S R=^(CL) D
    . I $P(R,S,17)'="" Q  ; baja
    . I ($P(R,S,13)'=0)&($P(R,S,13)'=8) Q  ; solo socios y sociedades
    . S ALTA=$P(R,S,15)
    . I ALTA="" Q
    . I ALTA<FEC Q
    . S ALMORI=$P(^CLI(CL),S,18) S ALMORI=$S(ALMORI=1:"uno",ALMORI=2:"dos",1:"")
    . S ALTAS(CL)=$P(^CLI(CL),S)_S_ALTA_S_ALMORI
    I '$D(ALTAS) Q
    S FIC="E:\V\EXCEL\_altas_desde_"_FEC_"_hasta_"_^PZP(2,0)_".txt"
    O FIC:"WN":5
    U FIC W "CODSOCIO"_$C(9)_"SOCIO"_$C(9)_"FECHA_ALTA"_SEP_"ALMACEN",!
    S CL="" F  S CL=$O(ALTAS(CL)) Q:CL=""  U FIC W CL_$C(9)_$P(ALTAS(CL),S)_$C(9)_$P(ALTAS(CL),S,2)_$C(9)_$P(ALTAS(CL),S,3),!
    C FIC
    U $P
    S EMAILASUNTO="alta de socios para pedido integrado"
    S EMAILDESTINO="losemailsdecadacooperativa@cooperativas.com entre comas"
    S EMAILADJUNTO=FIC
    S EMAILTEXTO="Altas de socios en el último mes para el pedido integrado. Email automático."
    D EMAIL^ZVZEVENTOS
    Q