";
if ($rest == 'S') {
$re = 'Com Restrição';
if ($p_naovenderestri) {
$re2 = '';
}
}
echo "
$l_razao
$re2
$re
";
}
function MostraCliHistVnd($l_razao, $l_codcli,$p_dtini,$p_dtfin){
echo "
$l_razao
";
}
function ListaTransp($transp, $codtra, $p_path){
echo "
$transp
";
}
function ListaStat($stat, $codstat, $p_path){
echo "
$stat
";
}
function ListaCid($stat, $codstat, $uf, $p_path){
echo "
$stat - $uf
";
}
//FIM DAS FUNCOES AUXILIARES
/*
INI - INSERE CLIENTES
*/
//fun��o que insere um cliente e mostra links para edi��o de cadastro e lan�amento de pedido ou mostra erro no insert
function InsereCliente($l_razao,$l_contato,$l_email,$l_rgie,$l_cpcn,
$l_endereco,$l_endent,$l_endcob,
$l_cep,$l_cepent,$l_cepcob,
$l_bairro,$l_bairroent,$l_bairrocob,
$l_cidade,$l_cidadeent,$l_cidadecob,
$l_uf,$l_ufent,$l_ufcob,
$l_telefone,$l_fax, $l_codtra, $l_codstat,
$l_numeronf,$l_enderecotipo,$l_enderecocompl,$l_codcidnfe){
include "conecta.inc.php";
include '../auxiliar/parametros.inc';
include_once '../auxiliar/strings.inc';
//tira caracteres diferente de numeros
// $l_cpcn = sonumeros($l_cpcn);
//determina se � fisico ou jur�dico
if (strlen($l_cpcn) < 15 ){
$l_fisjur = 1;
}else{
$l_fisjur = 2;
}
//Gera o codcli para inserir o cliente
$l_selectcodcli = 'select (GEN_ID(GNCLIENTES,1) + ( GEN_ID(GNCODLOJA,0) * 10000000)) as codcli from rdb$database';
$l_res = ibase_query( $con, $l_selectcodcli ); //cria o id q recebe o select
$l_lin = ibase_fetch_row($l_res); //pega a unica linha que o select retorna
$l_codcli = $l_lin[0]; //pega o campo pelo unico indice que o select retornou
// CRIA O INSERT
$l_inserecli = "INSERT INTO CLIENTES (codcli, razao, contato1,
email, rgie, cpcn, endereconf, end_ent, endcob,
cep,cep_ent,cepcob, bairro, bairro_ent, bairrocob,
cidade, cidade_ent, cidadecob, numeronf, enderecotipo, enderecocompl, codcidnfe,
uf, uf_ent, ufcob, fone1, fax,
numcli, REVCOM, CODCLISTATUS, CODLOJA, codtra, datacad,codvnd,
codusucria, datacria, fisjur, CodForma, CODPRODTABELA )
values($l_codcli, upper('$l_razao') , upper('$l_contato') , upper('$l_email') ,
upper('$l_rgie') , upper('$l_cpcn') ,
upper('$l_endereco') ,upper('$l_endent') ,upper('$l_endcob') ,
upper('$l_cep') , upper('$l_cepent') , upper('$l_cepcob') ,
upper('$l_bairro') , upper('$l_bairroent') , upper('$l_bairrocob') ,
upper('$l_cidade') , upper('$l_cidadeent') , upper('$l_cidadecob') ,
upper('$l_numeronf') ,upper('$l_enderecotipo') ,upper('$l_enderecocompl') ,$l_codcidnfe ,
upper('$l_uf') , upper('$l_ufent') , upper('$l_ufcob') ,
'$l_telefone' , '$l_fax',
((select Max(NumCli) From CLientes) + 1), 1,
$l_codstat, (select codloja from senhas where codusu = " . lecookie('codusu') . "),
$l_codtra, current_timestamp, (select codvnd from senhas where codusu = " . lecookie('codusu') . "),"
. lecookie('codusu') . " , current_timestamp ,$l_fisjur, null , $p_tabprecocli )";
//echo $l_inserecli; die;//mostra o insert que executou - so para testes
if (exec_sql_simples($con, $l_inserecli)){
MostraLinkCli($l_razao, $l_codcli,"N");
}else{
echo "ERRO AO INSERIR CLIENTE. CONTATE O SUPORTE
";
}
}
/*
FIM - INSERE CLIENTES
*/
/*
INI - UPDATE CLIENTES
*/
//fun��o que altera dados de um cadastro de cliente e mostra msg de sucesso com links para re-edi��o de cadastro e lan�amento de pedido ou mostra erro no insert
function UpdateCliente($l_codcli, $l_razao,$l_contato,$l_email,$l_rgie,$l_cpcn,$l_endereco,$l_endent,$l_endcob,
$l_cep,$l_cepent,$l_cepcob,$l_bairro,$l_bairroent,$l_bairrocob,$l_cidade,$l_cidadeent,$l_cidadecob,$l_uf,$l_ufent,$l_ufcob,
$l_telefone,$l_fax, $l_codtra, $l_codstat, $l_numeronf,$l_enderecotipo,$l_enderecocompl,$l_codcidnfe){
include "conecta.inc.php";
include_once '../auxiliar/strings.inc';
//tira caracteres diferente de numeros
// $l_cpcn = sonumeros($l_cpcn);
//determina se � fisico ou jur�dico
if (strlen($l_cpcn) < 14 ){
$l_fisjur = 1;
}else{
$l_fisjur = 2;
}
$l_updatecli = "update CLIENTES set razao = upper('$l_razao'), contato1 = upper('$l_contato') ,
email = upper('$l_email') , rgie = upper('$l_rgie') , cpcn = upper('$l_cpcn'),
endereconf = upper('$l_endereco'), end_ent = upper('$l_endent'), endcob = upper('$l_endcob'),
cep = '$l_cep', cep_ent = '$l_cepent', cepcob = '$l_cepcob',
bairro = upper('$l_bairro') , bairro_ent = upper('$l_bairroent') , bairrocob = upper('$l_bairrocob') ,
cidade = upper('$l_cidade'), cidade_ent = upper('$l_cidadeent'), cidadecob = upper('$l_cidadecob'),
numeronf = upper('$l_numeronf'), enderecotipo = upper('$l_enderecotipo') , enderecocompl = upper('$l_enderecocompl') , codcidnfe = $l_codcidnfe,
uf = upper('$l_uf'), uf_ent = upper('$l_ufent'),ufcob = upper('$l_ufcob'),
fone1 = '$l_telefone' , fax = '$l_fax', codtra = $l_codtra , fisjur = $l_fisjur, codclistatus = $l_codstat,
codusualt = " . lecookie('codusu') ." , dataalt = current_timestamp
where codcli = $l_codcli";
//echo $l_updatecli;die; //mostra o insert que executou - so para testes
if (exec_sql_simples($con, $l_updatecli)){
echo "Dados Salvos com Sucesso!!!
";
//MostraLinkCli($l_razao, $l_codcli,"N");
}else{
echo "ERRO AO ATUALIZAR DADOS DO CLIENTE. CONTATE O SUPORTE
";
}
}
/*
FIM - UPDATE CLIENTES
*/
/*
INI - DELETA CLIENTES
*/
//fun��o que altera dados de um cadastro de cliente e mostra msg de sucesso com links para re-edi��o de cadastro e lan�amento de pedido ou mostra erro no insert
function DeletaCliente($l_codcli){
include "conecta.inc.php";
$l_deletacli = "delete from CLIENTES where codcli = $l_codcli";
//echo $l_deletacli; //mostra o insert que executou - so para testes
if (exec_sql_simples($con, $l_deletacli)){
echo " Cliente deletado com sucesso!!!
";
}else{
echo " ERRO AO DELETAR CLIENTE. CONTATE O SUPORTE
";
}
}
/*
FIM - DELETA CLIENTES
*/
function ListaTipoSai($l_codcli, $l_razao){
include '../auxiliar/parametros.inc';
include 'conecta.inc.php';
//MONTA O SELECT PRA TRAZER OS CLIENTES
$l_selectcli = "SELECT CODTIPOSAI, TIPOSAIDA FROM TIPOSAIDAS WHERE (COALESCE(ISMOSTRAAFV,0) = 1)";
$a_reg = qry($con, $l_selectcli, $a_campos);
if (cria_matriz_campos($a_reg,$a_campos,$l_a_cli)) {
//se tiver resultado do select - quando encontra pelo menos um cliente
for ($i = 0 ; $i<=(sizeof($l_a_cli) -1) ; $i++) {
MostraLinktiposai($l_a_cli[$i][tiposaida], $l_a_cli[$i][codtiposai], $l_codcli , $l_razao);
}
} else {
return false;
}
echo "
";
return true;
}
function MostraLinktiposai($l_tsai,$l_cdtsai,$l_codcli,$l_razao){
echo "
$l_tsai
";
}
/*
INI - BUSCA CLIENTES
*/
//$l_inirows = rows inicial , sera somado a 9 para mostrar o proximos 10 resultados
function ListaClientes($l_codcli, $l_razao,$l_inirows){
include '../auxiliar/parametros.inc';
include 'conecta.inc.php';
$p_veallcli = lecookie("veallcli");
if (!$l_inirows){
$l_inirows = 1;
}
//MONTA O SELECT PRA TRAZER OS CLIENTES
$l_selectcli = "SELECT lower(RAZAO) as razao ,CODCLI, numcli, COMRESTRICAO FROM CLIENTES WHERE (COALESCE(CADINATIVO,0) = 0) ";
if ($l_codcli) {
$l_selectcli .= " and (codcli = $l_codcli) ";
}
if ($l_razao) {
$l_selectcli .= " and (upper(razao) like upper('%$l_razao%') ) ";
}
if (($p_soclivnd) && (!$p_veallcli)) {
$p_codusu = lecookie("codusu");
$l_selectcli .= " and (codvnd = (select codvnd from senhas where codusu = $p_codusu ) ) ";
}
$a_reg = qry($con, $l_selectcli, $a_campos);
$l_totcli = ibase_num_rows($a_reg); // PEGA O TOTAL DE CLIENTES ANTES DE APLICAR O ROWS
$l_selectcli .= " order by razao rows $l_inirows to " . ($l_inirows + 9) ; //MUDAR ISSO NO SQL - naum tem rows
//echo $l_selectcli; //mostra o select - so para testes
//MONTA MATRIZ QUE VAI TRAZER OS CLIENTES
//cria id do select
$a_reg = qry($con, $l_selectcli, $a_campos);
if (cria_matriz_campos($a_reg,$a_campos,$l_a_cli)) {
//se tiver resultado do select - quando encontra pelo menos um cliente
for ($i = 0 ; $i<=(sizeof($l_a_cli) -1) ; $i++) {
MostraLinkCli($l_a_cli[$i][razao], $l_a_cli[$i][codcli], $l_a_cli[$i][comrestricao]);
}
} else {
return false;
}
echo "
";
if (($l_inirows - 10) > 0){
$l_rows = ($l_inirows - 10);
} else{
$l_rows = 1;
}
if ($l_inirows > 1){
echo" 
";
echo" 
";
}
if ($l_inirows < ($l_totcli - 10)){
echo" 
";
echo" 
";
}
return true;
}
// busca dados do cadastro de clientes por variaveis passadas por referencia para mostrar na pag de cadastro de clientes
function BuscaCadCli ($l_codcli,&$p_razao,&$p_contato,&$p_email,&$p_rgie,&$p_cpcn,
&$p_endereco,&$p_endent,&$p_endcob,
&$p_cep,&$p_cepent,&$p_cepcob,
&$p_bairro,&$p_bairroent,&$p_bairrocob,
&$p_cidade,&$p_cidadeent,&$p_cidadecob,
&$p_uf,&$p_ufent,&$p_ufcob,
&$p_telefone,&$p_fax,&$p_codtra,&$p_transp,&$p_numeronf,&$p_enderecotipo,&$p_enderecocompl,&$p_codcidnfe,&$p_cidnfe,&$p_stat,&$p_codstat){
include 'conecta.inc.php';
//MONTA O SELECT PRA TRAZER OS CLIENTES
$l_selectcli = "SELECT lower(c.razao) as razao, lower(c.contato1) as contato1, lower(c.email) as email,
c.rgie, c.cpcn,
c.endereconf as endereco, c.end_ent as endent, c.endcob,
c.cep, c.cep_ent, c.cepcob,
c.bairro, c.bairro_ent, c.bairrocob,
c.cidade, c.cidade_ent, c.cidadecob,
c.uf, c.uf_ent, c.ufcob, c.codtra, t.transportadora,
c.numeronf,c.enderecotipo,c.enderecocompl,c.codcidnfe,pi.cidade as cidnfe,
c.fone1, c.fax , c.codprodtabela, c.codclistatus, s.descricao FROM CLIENTES c
left join transportadora t on t.codtra = c.codtra
left join clistatus s on c.codclistatus = s.codclistatus
left join cidadesnfe pi on c.codcidnfe = pi.codcid
WHERE c.codcli = $l_codcli ";
//echo $l_selectcli; die;//mostra o select - so para testes
//MONTA MATRIZ QUE VAI TRAZER OS CLIENTES
//cria id do select
$a_reg = qry($con, $l_selectcli, $a_campos);
if (cria_matriz_campos($a_reg,$a_campos,$l_a_cli)) {
//se tiver resultado do select
//passa o valor para as variaveis de referencia que ser� mostrado na pag de cadastro de clientes
$p_razao = $l_a_cli[0][razao];
$p_contato =$l_a_cli[0][contato1];
$p_email = $l_a_cli[0][email];
$p_rgie = $l_a_cli[0][rgie];
$p_cpcn = $l_a_cli[0][cpcn];
$p_endereco = $l_a_cli[0][endereco];
$p_endent = $l_a_cli[0][endent];
$p_endcob = $l_a_cli[0][endcob];
$p_cep = $l_a_cli[0][cep];
$p_cepent = $l_a_cli[0][cep_ent];
$p_cepcob = $l_a_cli[0][cepcob];
$p_bairro = $l_a_cli[0][bairro];
$p_bairroent = $l_a_cli[0][bairro_ent];
$p_bairrocob = $l_a_cli[0][bairrocob];
$p_cidade = $l_a_cli[0][cidade];
$p_cidadeent = $l_a_cli[0][cidade_ent];
$p_cidadecob = $l_a_cli[0][cidadecob];
$p_uf = $l_a_cli[0][uf];
$p_ufent = $l_a_cli[0][uf_ent];
$p_ufcob = $l_a_cli[0][ufcob];
$p_telefone = $l_a_cli[0][fone1];
$p_fax = $l_a_cli[0][fax];
$p_codtra = $l_a_cli[0][codtra];
$p_transp = $l_a_cli[0][transportadora];
$p_codstat = $l_a_cli[0][codclistatus];
$p_numeronf = $l_a_cli[0][numeronf];
$p_enderecotipo = $l_a_cli[0][enderecotipo];
$p_enderecocompl = $l_a_cli[0][enderecocompl];
$p_codcidnfe = $l_a_cli[0][codcidnfe];
$p_cidnfe = $l_a_cli[0][cidnfe];
$p_stat = $l_a_cli[0][descricao];
} else {
echo "Nenhum cliente encontrado.
";
}
}
//busca dados do cliente de acordo com a os aberta
function BuscaCliOs($l_codos, &$p_razao){
include 'conecta.inc.php';
//MONTA O SELECT PRA TRAZER OS CLIENTES
$l_selectcli = "SELECT lower(c.razao) as razao FROM OS O JOIN CLIENTES C ON O.CODCLI = C.CODCLI WHERE O.CODOS = $l_codos ";
//echo $l_selectcli; //mostra o select - so para testes
//MONTA MATRIZ QUE VAI TRAZER OS CLIENTES
//cria id do select
$a_reg = qry($con, $l_selectcli, $a_campos);
if (cria_matriz_campos($a_reg,$a_campos,$l_a_cli)) {
//se tiver resultado do select
//passa o valor para as variaveis de referencia que ser� mostrado na pag de cadastro de clientes
$p_razao = $l_a_cli[0][razao];
} else {
echo "Nenhum cliente encontrado.
";
}
}
function ListaCliHistVnd($p_razao,$p_dtini,$p_dtfin){
include '../auxiliar/parametros.inc';
include 'conecta.inc.php';
$p_veallcli = lecookie("veallcli");
//MONTA O SELECT PRA TRAZER OS CLIENTES
$l_selectcli = "SELECT lower(RAZAO) as razao ,CODCLI, numcli FROM CLIENTES WHERE (1=1)";
if ($p_razao) {
$l_selectcli .= " and (upper(razao) like upper('%$p_razao%') ) ";
}
if (($p_soclivnd) && (!$p_veallcli)) {
$p_codusu = lecookie("codusu");
$l_selectcli .= " and (codvnd = (select codvnd from senhas where codusu = $p_codusu ) ) ";
}
$a_reg = qry($con, $l_selectcli, $a_campos);
$l_totcli = ibase_num_rows($a_reg); // PEGA O TOTAL DE CLIENTES ANTES DE APLICAR O ROWS
//echo $l_selectcli; //mostra o select - so para testes
//MONTA MATRIZ QUE VAI TRAZER OS CLIENTES
//cria id do select
$a_reg = qry($con, $l_selectcli, $a_campos);
if (cria_matriz_campos($a_reg,$a_campos,$l_a_cli)) {
//se tiver resultado do select - quando encontra pelo menos um cliente
for ($i = 0 ; $i<=(sizeof($l_a_cli) -1) ; $i++) {
MostraCliHistVnd($l_a_cli[$i][razao], $l_a_cli[$i][codcli],$p_dtini,$p_dtfin);
}
}
exit;
}
function JaExisteCli($p_cpcn){
include 'conecta.inc.php';
$p_cpcn = ereg_replace('[^0-9]', '', $p_cpcn) ;
if (!$p_cpcn){
return false;
}
//MONTA O SELECT PRA TRAZER OS CLIENTES
$l_selectcli = "SELECT CODCLI FROM CLIENTES WHERE SONUMEROWIN(CPCN) = '" . $p_cpcn . "'";
//echo $l_selectcli; //mostra o select - so para testes
//MONTA MATRIZ QUE VAI TRAZER OS CLIENTES
//cria id do select
$a_reg = qry($con, $l_selectcli, $a_campos);
if (cria_matriz_campos($a_reg,$a_campos,$l_a_cli)) {
//se tiver resultado do select
return true;
} else {
return false;
}
}
function CliTemVenda($p_CodCli){
include 'conecta.inc.php';
if (!$p_CodCli){
return false;
}
//MONTA O SELECT PRA TRAZER OS CLIENTES
$l_selectcli = "SELECT CODCLI FROM OS WHERE CodCli = '" . $p_CodCli . "'";
//MONTA MATRIZ QUE VAI TRAZER OS CLIENTES
//cria id do select
$a_reg = qry($con, $l_selectcli, $a_campos);
if (cria_matriz_campos($a_reg,$a_campos,$l_a_cli)) {
//se tiver resultado do select
return true;
} else {
return false;
}
}
function ConsultaTransp($p_transp,$p_path){
include '../auxiliar/parametros.inc';
include 'conecta.inc.php';
//MONTA O SELECT PRA TRAZER OS CLIENTES
$l_selectcli = "SELECT lower(transportadora) as transportadora ,codtra FROM transportadora WHERE (1=1)";
if ($p_transp) {
$l_selectcli .= " and (upper(transportadora) like upper('%$p_transp%') ) ";
}
$a_reg = qry($con, $l_selectcli, $a_campos);
//echo $l_selectcli; //mostra o select - so para testes
//MONTA MATRIZ QUE VAI TRAZER OS CLIENTES
//cria id do select
$a_reg = qry($con, $l_selectcli, $a_campos);
if (cria_matriz_campos($a_reg,$a_campos,$l_a_cli)) {
//se tiver resultado do select - quando encontra pelo menos um cliente
for ($i = 0 ; $i<=(sizeof($l_a_cli) -1) ; $i++) {
ListaTransp($l_a_cli[$i][transportadora], $l_a_cli[$i][codtra],$p_path);
}
}
echo "
";
}
function ConsultaStat($p_stat,$p_path){
include '../auxiliar/parametros.inc';
include 'conecta.inc.php';
//MONTA O SELECT PRA TRAZER OS CLIENTES
$l_selectcli = "SELECT lower(descricao) as status ,codclistatus FROM clistatus WHERE (1=1)";
if ($p_stat) {
$l_selectcli .= " and (upper(descricao) like upper('%$p_stat%') ) ";
}
$a_reg = qry($con, $l_selectcli, $a_campos);
//echo $l_selectcli; //mostra o select - so para testes
//MONTA MATRIZ QUE VAI TRAZER OS CLIENTES
//cria id do select
$a_reg = qry($con, $l_selectcli, $a_campos);
if (cria_matriz_campos($a_reg,$a_campos,$l_a_cli)) {
//se tiver resultado do select - quando encontra pelo menos um cliente
for ($i = 0 ; $i<=(sizeof($l_a_cli) -1) ; $i++) {
ListaStat($l_a_cli[$i][status], $l_a_cli[$i][codclistatus],$p_path);
}
}
echo "
";
}
function ConsultaCid($p_stat,$p_path){
include '../auxiliar/parametros.inc';
include 'conecta.inc.php';
//MONTA O SELECT PRA TRAZER OS CLIENTES
$l_selectcli = "SELECT lower(cidade) as cid ,codcid, upper(uf) as uf FROM CIDADESNFE WHERE (1=1)";
if ($p_stat) {
$l_selectcli .= " and (upper(cidade) like upper('%$p_stat%') ) ";
}
$a_reg = qry($con, $l_selectcli, $a_campos);
//echo $l_selectcli; //mostra o select - so para testes
//MONTA MATRIZ QUE VAI TRAZER OS CLIENTES
//cria id do select
$a_reg = qry($con, $l_selectcli, $a_campos);
if (cria_matriz_campos($a_reg,$a_campos,$l_a_cli)) {
//se tiver resultado do select - quando encontra pelo menos um cliente
for ($i = 0 ; $i<=(sizeof($l_a_cli) -1) ; $i++) {
ListaCid($l_a_cli[$i][cid], $l_a_cli[$i][codcid], $l_a_cli[$i][uf],$p_path);
}
}
echo "
";
}
function BuscaComissao($p_CodCLI) {
// tenta pegar a comissao do cadastro do cliente
$Comissao = TrazValorCampo('Clientes', 'ComissaoVnd', 'CodCLI', $p_CodCLI);
// se n�o tinha pega do vendedor
if ($Comissao == '') {
$CodVnd = TrazValorCampo('Clientes', 'CodVnd', 'CodCli', $p_CodCLI);
$Comissao = TrazValorCampo('Vendedores', 'Comissao', 'CodVnd', $CodVnd);
}
if ($Comissao == ''){
$Comissao = 0;
}
return $Comissao;
}
?>