public void GravarDados()
{
string sSQL = "";
ArrayList Nm_param = new ArrayList();
ArrayList Vr_param = new ArrayList();
if (IdPessoa > 0)
{
sSQL = "UPDATE Pessoas SET Id_Pessoa=@Id,RazaoSocial=@RazaoSocial,Fantasia=@Fantasia,Cnpj=@Cnpj,Insc_Uf=@InscUF,Endereco=@Endereco," +
"Numero=@Numero,Complemento=@Complemento,Cep=@Cep,Bairro=@Bairro,Cidade=@Cidade,Id_UF=@UF,Fone=@Fone,Fax=@Fax,Email=@Email,Contato=@Contato,Celular=@Celular," +
"Id_Custo=@IdCusto,Id_Departamento=@IdDepartamento,Id_Atividade=@IdAtividade,Id_Transportadora=@IdTransportadora,Id_Cfop=@IdCfop,Ativo=@Ativo,Tipo=@Tipo," +
"Id_FormaPgto=@IdFormaPgto,Observacao=@Observacao,Id_Rota=@IdRota,CepCobranca=@CepCobranca,EndCobranca=@EndCobranca,NumCobranca=@NumCobranca,ComplCobranca=@ComplCobranca," +
"BairroCobranca=@BairroCobranca,CidadeCobranca=@CidadeCobranca,Id_UFCobranca=@IdUFCobranca,LimiteCredito=@LimiteCredito,DataCadastro=Convert(DateTime,@DataCadastro,103),Clie_Forn=@ClieForn," +
"Id_Filial=@IdFilial,Frete=@Frete,ComissaoFixa=@ComissaoFixa,Id_Vendedor=@IdVendedor,BloqFormaPgto=@BloqFormaPgto,Obs_Serasa=@ObsSerasa,Senha=@Psw,IdServidor=@IdServidor,MargemNegocio=@MargemNegocio," +
"Pais=@Pais,EmailNFE=@EmailNFE,Id_Vinculo=@IdVinculo,NotificaAltPrc=@NotificaAltPrc,Obs_Entrega=@ObsEntrega,PrazoPgto=@PrazoPgto,PDescNFGrpTalimpo=@PDescNFGrpTalimpo,PDescNFGrpOutros=@PDescNFGrpOutros," +
"ForaMediaCom=@ForaMediaCom,NaoVerifQtdeCx=@NaoVerifQtdeCx,Comodato=@Comodato,KitNfe=@KitNfe,NaoVerPrazoPg=@NaoVerPrazoPg,CodMun=@CodMun,LiberaPrc=@LiberaPrc,Serasa=@Serasa Where Id_Pessoa=@Chave";
Nm_param.Add("@Chave"); Vr_param.Add(IdPessoa);
}
else
{
IdPessoa = Controle.ProximoID("Pessoas");
sSQL = "INSERT INTO Pessoas (Id_Pessoa,RazaoSocial,Fantasia,Cnpj,Insc_Uf,Endereco,Numero,Complemento,Cep,Bairro,Cidade,Id_UF,Fone,Fax,Email,Contato,Celular,Id_Custo,Id_Departamento,Id_Atividade," +
"Id_Transportadora,Id_Cfop,Ativo,Tipo,Id_FormaPgto,Observacao,Id_Rota,EndCobranca,NumCobranca,ComplCobranca,CepCobranca,BairroCobranca,CidadeCobranca,Id_UFCobranca,LimiteCredito,DataCadastro,Clie_Forn,Id_Filial,Frete,ComissaoFixa,Id_Vendedor,Credito,BloqFormaPgto,Obs_Serasa,Senha,IdServidor,MargemNegocio,Pais,EmailNFE," +
"Id_Vinculo,NotificaAltPrc,Obs_Entrega,PrazoPgto,PDescNFGrpTalimpo,PDescNFGrpOutros,ForaMediaCom,NaoVerifQtdeCx,Comodato,KitNfe,NaoVerPrazoPg,CodMun,LiberaPrc,Serasa)" +
" Values (@Id,@RazaoSocial,@Fantasia,@Cnpj,@InscUF,@Endereco,@Numero,@Complemento,@Cep,@Bairro,@Cidade,@UF,@Fone,@Fax,@Email,@Contato,@Celular,@IdCusto,@IdDepartamento,@IdAtividade,@IdTransportadora,@IdCfop,@Ativo,@Tipo,@IdFormaPgto,@Observacao,@IdRota,@EndCobranca,@NumCobranca,@ComplCobranca,@CepCobranca," +
"@BairroCobranca,@CidadeCobranca,@IdUFCobranca,@LimiteCredito,convert(DateTime,@DataCadastro,103),@ClieForn,@IdFilial,@Frete,@ComissaoFixa,@IdVendedor,0,@BloqFormaPgto,@ObsSerasa,@Psw,@IdServidor,@MargemNegocio,@Pais,@EmailNFE,@IdVinculo,@NotificaAltPrc,@ObsEntrega,@PrazoPgto,@PDescNFGrpTalimpo,@PDescNFGrpOutros,@ForaMediaCom,@NaoVerifQtdeCx,@Comodato,@KitNfe,@NaoVerPrazoPg,@CodMun,@LiberaPrc,@Serasa)";
}
if (sSQL != "")
{
Nm_param.Add("@Id"); Vr_param.Add(IdPessoa);
Nm_param.Add("@RazaoSocial"); Vr_param.Add(RazaoSocial);
Nm_param.Add("@Fantasia"); Vr_param.Add(Fantasia);
Nm_param.Add("@Cnpj"); Vr_param.Add(Cnpj);
Nm_param.Add("@InscUF"); Vr_param.Add(InscUF);
Nm_param.Add("@Cep"); Vr_param.Add(Cep);
Nm_param.Add("@Endereco"); Vr_param.Add(Endereco);
Nm_param.Add("@Numero"); Vr_param.Add(Numero);
Nm_param.Add("@Complemento"); Vr_param.Add(Complemento);
Nm_param.Add("@Bairro"); Vr_param.Add(Bairro);
Nm_param.Add("@Cidade"); Vr_param.Add(Cidade);
Nm_param.Add("@UF"); Vr_param.Add(IdUF);
Nm_param.Add("@Fone"); Vr_param.Add(Fone);
Nm_param.Add("@Fax"); Vr_param.Add(Fax);
Nm_param.Add("@Email"); Vr_param.Add(Email);
Nm_param.Add("@Contato"); Vr_param.Add(Contato);
Nm_param.Add("@Celular"); Vr_param.Add(Celular);
Nm_param.Add("@IdCusto"); Vr_param.Add(IdCusto);
Nm_param.Add("@IdDepartamento"); Vr_param.Add(IdDepartamento);
Nm_param.Add("@IdAtividade"); Vr_param.Add(IdAtividade);
Nm_param.Add("@IdTransportadora"); Vr_param.Add(IdTransportadora);
Nm_param.Add("@IdCfop"); Vr_param.Add(IdCfop);
Nm_param.Add("@Ativo"); Vr_param.Add(Ativo);
Nm_param.Add("@Tipo"); Vr_param.Add(Tipo);
Nm_param.Add("@IdFormaPgto"); Vr_param.Add(IdFormaPgto);
Nm_param.Add("@Observacao"); Vr_param.Add(Observacao);
Nm_param.Add("@CepCobranca"); Vr_param.Add(CepCobranca);
Nm_param.Add("@IdRota"); Vr_param.Add(IdRota);
Nm_param.Add("@EndCobranca"); Vr_param.Add(EndCobranca);
Nm_param.Add("@NumCobranca"); Vr_param.Add(NumCobranca);
Nm_param.Add("@ComplCobranca"); Vr_param.Add(ComplCobranca);
Nm_param.Add("@BairroCobranca"); Vr_param.Add(BairroCobranca);
Nm_param.Add("@CidadeCobranca"); Vr_param.Add(CidadeCobranca);
Nm_param.Add("@IdUFCobranca"); Vr_param.Add(IdUfCobranca);
Nm_param.Add("@LimiteCredito"); Vr_param.Add(Controle.FloatToStr(LimiteCredito, 2));
Nm_param.Add("@DataCadastro"); Vr_param.Add(DataCadastro.ToShortDateString());
Nm_param.Add("@ClieForn"); Vr_param.Add(Clie_Forn);
Nm_param.Add("@IdFilial"); Vr_param.Add(IdFilial);
Nm_param.Add("@Frete"); Vr_param.Add(Frete);
Nm_param.Add("@ComissaoFixa"); Vr_param.Add(ComissaoFixa);
Nm_param.Add("@IdVendedor"); Vr_param.Add(IdVendedor);
Nm_param.Add("@BloqFormaPgto"); Vr_param.Add(BloqFormaPgto);
Nm_param.Add("@ObsSerasa"); Vr_param.Add(ObsSerasa);
Nm_param.Add("@Psw"); Vr_param.Add(Senha);
Nm_param.Add("@IdServidor"); Vr_param.Add(IdServidor);
Nm_param.Add("@MargemNegocio"); Vr_param.Add(MargemNegocio);
Nm_param.Add("@Pais"); Vr_param.Add(Pais);
Nm_param.Add("@EmailNFE"); Vr_param.Add(EmailNFE);
Nm_param.Add("@IdVinculo"); Vr_param.Add(IdVinculo);
Nm_param.Add("@NotificaAltPrc"); Vr_param.Add(NotificaAltPrc);
Nm_param.Add("@ObsEntrega"); Vr_param.Add(ObsEntrega);
Nm_param.Add("@PrazoPgto"); Vr_param.Add(PrazoPgto);
Nm_param.Add("@PDescNFGrpTalimpo"); Vr_param.Add(PDescNFGrpTalimpo);
Nm_param.Add("@PDescNFGrpOutros"); Vr_param.Add(PDescNFGrpOutros);
Nm_param.Add("@ForaMediaCom"); Vr_param.Add(ForaMediaCom);
Nm_param.Add("@NaoVerifQtdeCx"); Vr_param.Add(NaoVerifQtdeCx);
Nm_param.Add("@Comodato"); Vr_param.Add(Comodato);
Nm_param.Add("@KitNfe"); Vr_param.Add(KitNfe);
Nm_param.Add("@NaoVerPrazoPg"); Vr_param.Add(NaoVerPrazoPg);
Nm_param.Add("@CodMun"); Vr_param.Add(CodMun);
Nm_param.Add("@LiberaPrc"); Vr_param.Add(LiberaPrc);
Nm_param.Add("@Serasa"); Vr_param.Add(Serasa);
Controle.ExecutaSQL(sSQL, Nm_param, Vr_param);
}
}
