BEGIN TRAN
INSERT INTO TFornecedor
(cod_emp,
cod_forn,
pessoa,
razao_social,
fantasia,
cnpj,
ie,
endereco,
numero,
complemento,
bairro,
cidade,
uf,
cep,
telefones,
fax,
VENDEDOR,
email,
site,
dt_cadastro,
dt_alteracao,
cpg,
OBS,
COD_CLI_AUX,
COD_INTCTB,
CONTA_RESULTADO_RED,
EMAIL_COTA,
CONTATO_COTA,
CONTRIBUINTE_ICMS,
ID_ESTRANGEIRO,
ATIVO,
USUARIO_INATIVACAO,
DATA_INATIVACAO,
PERIODICIDADE_COMPRAS,
PERIODICIDADE_PAR_IMPAR,
PERIODICIDADE_SEMANA,
QTD_DIAS_EST_MIN,
QTD_DIAS_EST_MAX,
RATEIO_CUSTO,
ID_TIPO_ETIQ_RECEB_CODEBAR)
SELECT 
1, --cod_emp,
M.FOR_COD, --COD_FORN,
'J', --PESSOA_FJ,
SUBSTRING(LTRIM(RTRIM(UPPER(ISNULL(M.FOR_RAZAO, '')))),1,50), --razao_social,
SUBSTRING(LTRIM(RTRIM(UPPER(ISNULL(M.FOR_FANTASIA, '')))),1,40), --fantasia,
LTRIM(RTRIM(substring(replace(replace(replace(ISNULL(M.FOR_CGC,0),'.',''),'/',''),'-',''),1,14))), --cnpj,
LTRIM(RTRIM(substring(replace(replace(replace(ISNULL(M.FOR_IE,0),'.',''),'/',''),'-',''),1,18))), --ie,
LTRIM(RTRIM(SUBSTRING(M.FOR_ENDERECO,1,100))), --endereco,
LTRIM(RTRIM(SUBSTRING(M.FOR_NUMERO,1,6))), --NUMERO,
LTRIM(RTRIM(SUBSTRING(M.FOR_COMPL,1,50))), --COMPLEMENTO
LTRIM(RTRIM(SUBSTRING(M.FOR_BAIRRO,1,40))),--BAIRRO,
M.CID_COD,--CIDADE,
(SELECT MAX(UF) FROM TCIDADES WHERE COD_CID = M.CID_COD), --UF,
LTRIM(RTRIM(substring(replace(replace(replace(M.FOR_CEP,'.',''),'/',''),'-',''),1,8))), --CEP,
LTRIM(RTRIM(substring(replace(replace(replace(M.FOR_FONE,'(',''),'-',''),')',''),1,30))),--TELEFONES,
LTRIM(RTRIM(substring(replace(replace(replace(M.FOR_FAX,'(',''),'-',''),')',''),1,20))),-- --FAX,
'', --VENDEDOR,
SUBSTRING(LTRIM(RTRIM(ISNULL(M.FOR_EMAIL, ''))),1,80), --EMAIL,
NULL, --site,
'2021-05-24', --DT_CADASTRO,
'2021-05-24', --DT_ALTERACAO,
'1', --cpg,
NULL, --substring(VFD_obsfor,1,1000),-- OBS,
NULL, --COD_CLI_AUX,
NULL, --COD_INTCTB,
NULL, --CONTA_RESULTADO_RED,
NULL, --EMAIL_COTA,
NULL, --CONTATO_COTA,
'S', --CONTRIBUINTE_ICMS,
NULL, --ID_ESTRANGEIRO,
'S', --ATIVO,
NULL, --USUARIO_INATIVACAO,
NULL, --DATA_INATIVACAO,
NULL, --PERIODICIDADE_COMPRAS,
NULL, --PERIODICIDADE_PAR_IMPAR,
NULL, --PERIODICIDADE_SEMANA,
NULL, --QTD_DIAS_EST_MIN,
NULL, --QTD_DIAS_EST_MAX
NULL, --RATEIO_CUSTO,
NULL --ID_TIPO_ETIQ_RECEB_CODEBAR
FROM FORNECEDORES M
WHERE M.FOR_COD NOT IN(SELECT COD_FORN FROM TFornecedor)
COMMIT

UPDATE TFornecedor
SET cpg = 2

SELECT * FROM FORNECEDORES

DELETE FROM TFornecedor
