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); } }