Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- if cbProdutos.Checked then
- begin
- lbstate.Caption:= 'Sincronizando a tabela: PRODUTOS...';
- DSRemoto.Close;
- DSRemoto.CommandText:= 'select * from `produtos`';
- DSRemoto.Open;
- DSLocal.Close;
- DSLocal.CommandText:= 'DELETE FROM PRODUTOS';
- DSLocal.ExecSQL;
- DSLocal.Close;
- DSLocal.CommandText:=
- 'UPDATE OR INSERT INTO PRODUTOS (CD_PRODUTO, NM_PRODUTO, COD_BARRAS, CD_GRUPO, UNIDADE, ' +
- 'CX_COD_BARRA_CAIXA, CX_UNDCONVERSAO, PESOLIQUIDO, PESOBRUTO, DESCONTOMAXIMO, COMISSAO, ' +
- 'BAL_COD_BALANCA, BAL_GERARCODBALANCA, LOCALIZACAO, CLASSFISCAL, IPI, PRECOCUSTO, MARGEM, ' +
- 'PRECOVENDA, DT_ULTIMOREAJUSTE, PRECOVENDAANTERIOR, PRECOCUSTOANTERIOR, PDV_PRECOVENDA, ESTOQUEMINIMO, ' +
- 'INATIVO, CD_SIMILAR, DT_CADASTRO, ULTIMAALTERACAO, FABRICANTE, TRESCASAS, DIMENSOES, ' +
- 'CX_VALORCAIXAPDV, QUANTTROCA, EXPORTAR, PRECOPROPESO, DESCRICAO_ABREV, CODIGO02, CODIGO03, CODIGO04, '+
- 'APLICACAO, CUSTOMEDIO, TIPOCUSTO, ULTIMOCUSTO, UND_FRACIONADA, UNDCONVERSAOENTRADA, MARGEM2, MARGEM3, ' +
- 'MARGEM4, MARGEM5, DT_EXP_PALM, PRECO2, PRECO3, PRECO4, PRECO5, CONTROLANUMSERIE, USAR_CD_VENDA_UNICO, '+
- 'REF_PROMOCAO, DT_SINC_WEB, ALIQUOTA, FRETECHEGADA, FRETESAIDA, DT_SINC_SELLER, ' +
- 'PRODUCAOPROPRIA, TIPO_ITEM, CD_EMPRESA, CD_EMPRESAWEB, TEM_GRADE) values ' +
- '(:CD_PRODUTO, :NM_PRODUTO, :COD_BARRAS, :CD_GRUPO, :UNIDADE, ' +
- ':CX_COD_BARRA_CAIXA, :CX_UNDCONVERSAO, :PESOLIQUIDO, :PESOBRUTO, :DESCONTOMAXIMO, :COMISSAO, ' +
- ':BAL_COD_BALANCA, :BAL_GERARCODBALANCA, :LOCALIZACAO, :CLASSFISCAL, :IPI, :PRECOCUSTO, :MARGEM, ' +
- ':PRECOVENDA, :DT_ULTIMOREAJUSTE, :PRECOVENDAANTERIOR, :PRECOCUSTOANTERIOR, :PDV_PRECOVENDA, :ESTOQUEMINIMO, ' +
- ':INATIVO, :CD_SIMILAR, :DT_CADASTRO, :ULTIMAALTERACAO, :FABRICANTE, :TRESCASAS, :DIMENSOES, ' +
- ':CX_VALORCAIXAPDV, :QUANTTROCA, :EXPORTAR, :PRECOPROPESO, :DESCRICAO_ABREV, :CODIGO02, :CODIGO03, :CODIGO04, '+
- ':APLICACAO, :CUSTOMEDIO, :TIPOCUSTO, :ULTIMOCUSTO, :UND_FRACIONADA, :UNDCONVERSAOENTRADA, :MARGEM2, :MARGEM3, ' +
- ':MARGEM4, :MARGEM5, :DT_EXP_PALM, :PRECO2, :PRECO3, :PRECO4, :PRECO5, :CONTROLANUMSERIE, :USAR_CD_VENDA_UNICO, '+
- ':REF_PROMOCAO, :DT_SINC_WEB, :ALIQUOTA, :FRETECHEGADA, :FRETESAIDA, :DT_SINC_SELLER, ' +
- ':PRODUCAOPROPRIA, :TIPO_ITEM, :CD_EMPRESA, :CD_EMPRESAWEB, :TEM_GRADE)';
- Barra.Max:= DSRemoto.RecordCount;
- DSRemoto.First;
- while not DSRemoto.Eof do
- begin
- Barra.StepIt;
- try DSLocal.ParamByName('CD_PRODUTO').AsInteger := DSRemoto.FieldByName('CD_PRODUTO').AsInteger; except end;
- try DSLocal.ParamByName('NM_PRODUTO').AsString := DSRemoto.FieldByName('NM_PRODUTO').AsString; except end;
- try DSLocal.ParamByName('COD_BARRAS').AsString := DSRemoto.FieldByName('COD_BARRAS').AsString; except end;
- try DSLocal.ParamByName('CD_GRUPO').AsInteger := DSRemoto.FieldByName('CD_GRUPO').AsInteger; except end;
- try DSLocal.ParamByName('UNIDADE').AsString := DSRemoto.FieldByName('UNIDADE').AsString; except end;
- try DSLocal.ParamByName('CX_COD_BARRA_CAIXA').AsString := DSRemoto.FieldByName('CX_COD_BARRA_CAIXA').AsString; except end;
- try DSLocal.ParamByName('CX_UNDCONVERSAO').AsFloat := DSRemoto.FieldByName('CX_UNDCONVERSAO').AsFloat; except end;
- try DSLocal.ParamByName('PESOLIQUIDO').AsFloat := DSRemoto.FieldByName('PESOLIQUIDO').AsFloat; except end;
- try DSLocal.ParamByName('PESOBRUTO').AsFloat := DSRemoto.FieldByName('PESOBRUTO').AsFloat; except end;
- try DSLocal.ParamByName('DESCONTOMAXIMO').AsFloat := DSRemoto.FieldByName('DESCONTOMAXIMO').AsFloat; except end;
- try DSLocal.ParamByName('COMISSAO').AsFloat := DSRemoto.FieldByName('COMISSAO').AsFloat; except end;
- try DSLocal.ParamByName('BAL_COD_BALANCA').AsSmallInt := DSRemoto.FieldByName('BAL_COD_BALANCA').AsInteger; except end;
- try DSLocal.ParamByName('BAL_GERARCODBALANCA').AsString := DSRemoto.FieldByName('BAL_GERARCODBALANCA').AsString; except end;
- try DSLocal.ParamByName('LOCALIZACAO').AsString := DSRemoto.FieldByName('LOCALIZACAO').AsString; except end;
- try DSLocal.ParamByName('CLASSFISCAL').AsString := DSRemoto.FieldByName('CLASSFISCAL').AsString; except end;
- try DSLocal.ParamByName('IPI').AsFloat := DSRemoto.FieldByName('IPI').AsFloat; except end;
- try DSLocal.ParamByName('PRECOCUSTO').AsFloat := DSRemoto.FieldByName('PRECOCUSTO').AsFloat; except end;
- try DSLocal.ParamByName('MARGEM').AsFloat := DSRemoto.FieldByName('MARGEM').AsFloat; except end;
- try DSLocal.ParamByName('PRECOVENDA').AsFloat := DSRemoto.FieldByName('PRECOVENDA').AsFloat; except end;
- try DSLocal.ParamByName('DT_ULTIMOREAJUSTE').AsDateTime := DSRemoto.FieldByName('DT_ULTIMOREAJUSTE').AsDateTime; except end;
- try DSLocal.ParamByName('PRECOVENDAANTERIOR').AsFloat := DSRemoto.FieldByName('PRECOVENDAANTERIOR').AsFloat; except end;
- try DSLocal.ParamByName('PRECOCUSTOANTERIOR').AsFloat := DSRemoto.FieldByName('PRECOCUSTOANTERIOR').AsFloat; except end;
- try DSLocal.ParamByName('PDV_PRECOVENDA').AsFloat := DSRemoto.FieldByName('PDV_PRECOVENDA').AsFloat; except end;
- try DSLocal.ParamByName('ESTOQUEMINIMO').AsFloat := DSRemoto.FieldByName('ESTOQUEMINIMO').AsFloat; except end;
- try DSLocal.ParamByName('INATIVO').AsString := DSRemoto.FieldByName('INATIVO').AsString; except end;
- //try DSLocal.ParamByName('OBS').AsBlob := DSRemoto.FieldByName('OBS').asBlob; except end;
- //try DSLocal.ParamByName('FOTO').AsBlob := DSRemoto.FieldByName('FOTO').asBlob; except end;
- try DSLocal.ParamByName('CD_SIMILAR').AsInteger := DSRemoto.FieldByName('CD_SIMILAR').AsInteger; except end;
- try DSLocal.ParamByName('DT_CADASTRO').AsDateTime := DSRemoto.FieldByName('DT_CADASTRO').AsDateTime; except end;
- try DSLocal.ParamByName('ULTIMAALTERACAO').AsDateTime := DSRemoto.FieldByName('ULTIMAALTERACAO').AsDateTime; except end;
- try DSLocal.ParamByName('FABRICANTE').AsString := DSRemoto.FieldByName('FABRICANTE').AsString; except end;
- try DSLocal.ParamByName('TRESCASAS').AsString := DSRemoto.FieldByName('TRESCASAS').AsString; except end;
- try DSLocal.ParamByName('DIMENSOES').AsString := DSRemoto.FieldByName('DIMENSOES').AsString; except end;
- try DSLocal.ParamByName('CX_VALORCAIXAPDV').AsFloat := DSRemoto.FieldByName('CX_VALORCAIXAPDV').AsFloat; except end;
- try DSLocal.ParamByName('QUANTTROCA').AsFloat := DSRemoto.FieldByName('QUANTTROCA').AsFloat; except end;
- try DSLocal.ParamByName('EXPORTAR').AsString := DSRemoto.FieldByName('EXPORTAR').AsString; except end;
- try DSLocal.ParamByName('PRECOPROPESO').AsString := DSRemoto.FieldByName('PRECOPROPESO').AsString; except end;
- try DSLocal.ParamByName('DESCRICAO_ABREV').AsString := DSRemoto.FieldByName('DESCRICAO_ABREV').AsString; except end;
- try DSLocal.ParamByName('CODIGO02').AsString := DSRemoto.FieldByName('CODIGO02').AsString; except end;
- try DSLocal.ParamByName('CODIGO03').AsString := DSRemoto.FieldByName('CODIGO03').AsString; except end;
- try DSLocal.ParamByName('CODIGO04').AsString := DSRemoto.FieldByName('CODIGO04').AsString; except end;
- try DSLocal.ParamByName('APLICACAO').AsString := DSRemoto.FieldByName('APLICACAO').AsString; except end;
- try DSLocal.ParamByName('CUSTOMEDIO').AsFloat := DSRemoto.FieldByName('CUSTOMEDIO').AsFloat; except end;
- try DSLocal.ParamByName('TIPOCUSTO').AsString := DSRemoto.FieldByName('TIPOCUSTO').AsString; except end;
- try DSLocal.ParamByName('ULTIMOCUSTO').AsFloat := DSRemoto.FieldByName('ULTIMOCUSTO').AsFloat; except end;
- try DSLocal.ParamByName('UND_FRACIONADA').AsString := DSRemoto.FieldByName('UND_FRACIONADA').AsString; except end;
- try DSLocal.ParamByName('UNDCONVERSAOENTRADA').AsFloat := DSRemoto.FieldByName('UNDCONVERSAOENTRADA').AsFloat; except end;
- try DSLocal.ParamByName('MARGEM2').AsFloat := DSRemoto.FieldByName('MARGEM2').AsFloat; except end;
- try DSLocal.ParamByName('MARGEM3').AsFloat := DSRemoto.FieldByName('MARGEM3').AsFloat; except end;
- try DSLocal.ParamByName('MARGEM4').AsFloat := DSRemoto.FieldByName('MARGEM4').AsFloat; except end;
- try DSLocal.ParamByName('MARGEM5').AsFloat := DSRemoto.FieldByName('MARGEM5').AsFloat; except end;
- try DSLocal.ParamByName('DT_EXP_PALM').AsDateTime := DSRemoto.FieldByName('DT_EXP_PALM').AsDateTime; except end;
- try DSLocal.ParamByName('PRECO2').AsFloat := DSRemoto.FieldByName('PRECO2').AsFloat; except end;
- try DSLocal.ParamByName('PRECO3').AsFloat := DSRemoto.FieldByName('PRECO3').AsFloat; except end;
- try DSLocal.ParamByName('PRECO4').AsFloat := DSRemoto.FieldByName('PRECO4').AsFloat; except end;
- try DSLocal.ParamByName('PRECO5').AsFloat := DSRemoto.FieldByName('PRECO5').AsFloat; except end;
- try DSLocal.ParamByName('CONTROLANUMSERIE').AsString := DSRemoto.FieldByName('CONTROLANUMSERIE').AsString; except end;
- try DSLocal.ParamByName('USAR_CD_VENDA_UNICO').AsString := DSRemoto.FieldByName('USAR_CD_VENDA_UNICO').AsString; except end;
- //try DSLocal.ParamByName('CD_VENDA_UNICO').AsString := DSRemoto.FieldByName('CD_VENDA_UNICO').AsString; except end;
- try DSLocal.ParamByName('REF_PROMOCAO').AsSmallInt := DSRemoto.FieldByName('REF_PROMOCAO').AsInteger; except end;
- try DSLocal.ParamByName('DT_SINC_WEB').AsDateTime := DSRemoto.FieldByName('DT_SINC_WEB').AsDateTime; except end;
- try DSLocal.ParamByName('ALIQUOTA').AsFloat := DSRemoto.FieldByName('ALIQUOTA').AsFloat; except end;
- try DSLocal.ParamByName('FRETECHEGADA').AsFloat := DSRemoto.FieldByName('FRETECHEGADA').AsFloat; except end;
- try DSLocal.ParamByName('FRETESAIDA').AsFloat := DSRemoto.FieldByName('FRETESAIDA').AsFloat; except end;
- try DSLocal.ParamByName('DT_SINC_SELLER').AsDateTime := DSRemoto.FieldByName('DT_SINC_SELLER').AsDateTime; except end;
- try DSLocal.ParamByName('PRODUCAOPROPRIA').AsString := DSRemoto.FieldByName('PRODUCAOPROPRIA').AsString; except end;
- try DSLocal.ParamByName('TIPO_ITEM').AsSmallInt := DSRemoto.FieldByName('TIPO_ITEM').AsInteger; except end;
- try DSLocal.ParamByName('CD_EMPRESA').AsInteger := DSRemoto.FieldByName('CD_EMPRESA').AsInteger; except end;
- try DSLocal.ParamByName('CD_EMPRESAWEB').AsInteger := DSRemoto.FieldByName('CD_EMPRESAWEB').AsInteger; except end;
- try DSLocal.ParamByName('TEM_GRADE').AsString := DSRemoto.FieldByName('TEM_GRADE').AsString; except end;
- DSLocal.ExecSQL();
- DSRemoto.Next;
- end;
- end;
Add Comment
Please, Sign In to add comment