PROCEDURE matos_consulta_cliente()
gsSQL = [
select
cliente.id_cliente as cli_id_cliente,
cadastro_geral.id_razao_social_nome as cad_razao_social,
cliente.id_cliente,
cliente.nome_fantasia as cli_nome_fantasia,
cliente.id_representante as cli_id_representante,
representante.nome_fantasia as rep_nome_fantasia
from
cliente
INNER JOIN cadastro_geral on (cliente.id_cadastro_geral=cadastro_geral.id_cadastro_geral)
INNER JOIN representante on (representante.id_representante=cliente.id_representante)
where
cliente.id_empresa=%1
]
gsSQL = StringBuild(gsSQL,gnEmpresaCodigo)
//info(gsSQL)
TableDeleteAll(TABLE_CONSULTA_CLIENTE)
IF HExecuteSQLQuery(gdsQry,hQueryDefault,gsSQL) THEN
HReadFirst(gdsQry)
WHILE NOT HOut()
TableAddLine(TABLE_CONSULTA_CLIENTE,gdsQry.cli_id_cliente,gdsQry.cad_razao_social,gdsQry.cli_id_representante,gdsQry.rep_nome_fantasia)
HReadNext(gdsQry)
END
HFreeQuery(gdsQry)
END
TableDisplay(TABLE_CONSULTA_CLIENTE)
//
//sCnpj is string
//
//TableDeleteAll(TABLE_cliente)
//QRY_tab_cliente.Param_id_empresa=gnEmpresaCodigo
//HExecuteQuery(QRY_tab_cliente)
//FOR EACH QRY_tab_cliente
// IF QRY_tab_cliente.juridica_fisica=1 THEN
// sCnpj = Left(QRY_tab_cliente.id_inscricao_cnpj_cpf,2) + "." + Middle(QRY_tab_cliente.id_inscricao_cnpj_cpf,3,3) + "." + Middle(QRY_tab_cliente.id_inscricao_cnpj_cpf,6,3) + "." + Middle(QRY_tab_cliente.id_inscricao_cnpj_cpf,9,4) + "-" + Middle(QRY_tab_cliente.id_inscricao_cnpj_cpf,13,2)
// ELSE
// sCnpj = QRY_tab_cliente.id_inscricao_cnpj_cpf
// END
