Insert Into CabecStk (TipoDoc, NumDoc, Data, MovContab, DocImp, TipoMov, Filial, Serie, Utilizador, DataUltimaActualizacao, AnoCBL, Moeda, Cambio, CambioMBase, CambioMAlt, id)

	select distinct l.TipoDoc, l.NumDoc, min(l.Data), '0' as MovContab, '1' as DocImp, 'P' as TipoMov, l.Filial, l.Serie, '' as Utilizador, getdate() as DataUltimaActualizacao, '0' as AnoCBL, 'EUR' as Moeda, '1' as Cambio, '1' as CambioMBase, '1' as CambioMAlt, l.IdCabecOrig

	from linhasstk as l left join cabecstk as c

	on l.tipodoc=c.tipodoc and l.numdoc=c.numdoc and l.serie=c.serie and l.filial=c.filial

	where c.tipodoc is null and l.Modulo='S'

	group by l.TipoDoc, l.NumDoc, l.Filial, l.Serie, l.IdCabecOrig