| |
| [tele/relatorio/pedido] Relatório do pedido: Pré-Página |
| Tipo: | Objeto |
| Descrição: | Seleciono os dados da empresa |
| Condição: | true |
| Objeto: | tmp.empresa |
| Banco de dados: | principal |
| Filtro SQL: | %*?' |
| Instrução SQL: | &sql Select nome,
endereco,
bairro,
SUBSTRING(CEP,1,5)||"-"||SUBSTRING(CEP,6,8) as CEP,
nomeCidade,
estado,
telefone,
telefax
from Cad.Empresa
where codigo = "|pvt.login.idEmpresa|" |
|
| Tipo: | Objeto |
| Descrição: | Seleciono os dados do orçamento |
| Condição: | true |
| Objeto: | tmp.ped |
| Banco de dados: | principal |
| Filtro SQL: | %*?' |
| Instrução SQL: | &sql
select obsConfirmaPedido,
nvl(Pessoas->email,Cliente->email) as emailCliente,
Pessoas->sequencial as pessoa,
Pessoas->nome as pessoadesc,
Pessoas->cargo as pessoacargo,
Pessoas->telefone as pessoafone,
Contatos->fax as fax,
Atendente->codRepresent as codAtendente,
Atendente->fantasia as nomeAtendente,
Atendente->email as emailAtendente,
Atendente->telefone as foneAtendente,
Contatos->codContato as codContato,
numOrcamento,
Contatos->telefone as telefone,tipoOrcamento
from tel.orcamentocapa
where Empresa->codigo="|pvt.login.idEmpresa|"
and numPedido="|tmp.numPedido|"
|
|
| Tipo: | Objeto |
| Descrição: | Seleciono os dados da capa do Pedido |
| Condição: | true |
| Objeto: | tmp.ped |
| Banco de dados: | principal |
| Filtro SQL: | %*?' |
| Instrução SQL: | &sql Select %external(dataEmissao) as dataEmissao,
Cliente->nome as nomeCliente,
Cliente->codCliente as codCliente,
Cliente->endereco as endCliente,
Cliente->bairro as bairroCliente,
SUBSTRING(Cliente->CEP,1,5)||"-"||SUBSTRING(Cliente->CEP,6,8) as CEPCliente,
Cliente->nomecidade as cidadeCliente,
Cliente->nomeEstado as estadoCliente,
%EXTERNAL(tipoDesconto) as tipoDesconto,
IFNULL(%EXTERNAL(desconto1),"") as desconto1,
IFNULL(%EXTERNAL(desconto2),"") as desconto2,
IFNULL(%EXTERNAL(desconto3),"") as desconto3,
IFNULL(%EXTERNAL(desconto4),"") as desconto4,
"" as desconto5,
"" as desconto6,
IFNULL(%EXTERNAL(acrescimo1),"") as percentualAcrescimo1,
IFNULL(%EXTERNAL(acrescimo2),"") as percentualAcrescimo2,
IFNULL(%EXTERNAL(acrescimo3),"") as percentualAcrescimo3,
IFNULL(%EXTERNAL(acrescimo4),"") as percentualAcrescimo4,
%External(dataPrevFat) as prazoFaturamento,
tipoFreteTransp as codTipoFrete,
codUnidMonet as codMoeda,
codUnidMonet->descricao as nomeMoeda,
codUnidMonet->simbologia as simbologia,
codPedidoCli as pedidocli,
observacaoPedido as observacao,
codRepresentante as codrepresentante,
Representante->fantasia as representante,
codTransportadora as codtransportadora,
codTransportadora->fantasia as transportadora,
codRedespacho as codconsignataria,
codRedespacho->fantasia as consignataria,
tipoFreteTransp as codTipoFrete,
TipoFrete->descricao as nomeTipoFrete,
codCondVenda,descricaoCondVenda as nomeCondicaoPagamento,
$$EdtVlr^CSWUTI(vlrPedido,2)as totalOrcamento,
(select cargo from Tel.AtendenteUsuario where Empresa->codigo='|pvt.login.idEmpresa|'and atendente->codRepresent='|tmp.ped.codAtendente|') as cargoAtend
from Ped.Pedido
where codEmpresa->codigo = "|pvt.login.idEmpresa|"
and codPedido = "|tmp.numPedido|" |
|
| Tipo: | Objeto |
| Descrição: | Busca o total de IPI e total liquido c/ IPI |
| Condição: | true |
| Objeto: | tmp.ped |
| Banco de dados: | principal |
| Filtro SQL: | %*?' |
| Instrução SQL: | Tel.OrcamentoCapa.getTotaisCapaPedido("|pvt.login.idEmpresa|","|tmp.numPedido|","|pvt.login.Conta|")
|
|
| Tipo: | Objeto |
| Descrição: | Verifica se tem Moeda |
| Condição: | true |
| Objeto: | tmp.temmoeda |
| Banco de dados: | principal |
| Filtro SQL: | %*?' |
| Instrução SQL: | &sql Select variasMoedas
from Fat.Configuracao
where codEmpresa->codigo="|pvt.login.idEmpresa|"
|
|
| Tipo: | Objeto |
| Descrição: | Seleciono da Configuracao o email de contato da empresa |
| Condição: | true |
| Objeto: | tmp.email |
| Banco de dados: | principal |
| Filtro SQL: | %*?' |
| Instrução SQL: | &sql Select emailContatoEmpresa
from Tel.Configuracao
where Empresa->codigo = "|pvt.login.idEmpresa|" |
|
| Tipo: | Gravar variáveis |
| Descrição: | Inicializa a variavel tmp.mostrar.moeda |
| Condição: | |tmp.temmoeda.variasMoedas|=0 |
| Objetos: | tmp.mostrar.moeda |
| Recursivo: | Não |
| Processa FALSO: | Não |
| Condição verdadeira: | none |
|
| Tipo: | Objeto |
| Descrição: | Verifica quais campos não devem aparecer ( Data Previsao/Obs item verificação na config. Faturamento) |
| Condição: | true |
| Objeto: | tmp.cpBloq |
| Banco de dados: | principal |
| Filtro SQL: | %*?' |
| Instrução SQL: | &sql
select
tel.bloqImpVlrLiq,
tel.visImpIPI,possuiAnexo,
tel.mostrarITDadosTrefilacao,
tel.mostrarITICMS,
tel.mostrarCPAssinaturaCli,
ISNULL(tel.mostrarCPAssinaturaAtend,1) as mostrarCPAssinaturaAtend,
tel.mostrarCPPedCli,
fat.dtPrevisaoItem as permitirDataPrevisaoItem,
fat.habilitarObsItem as permitirObsItem,
ISNULL(tel.posicaoDadosAtendOrc,0) as posicao,
ISNULL(tel.mostrarDadosCliente,1) as mostrarDadosCliente,
tel.mostrarCompOrcamento,
$$TrocaPalavra^CSWUTI(tel.complementoOrcamento,{fn CHAR(13)},"
") as complementoOrcamento,
tel.mostrarCompPedido,
$$TrocaPalavra^CSWUTI(tel.complementoPedido,{fn CHAR(13)},"
") as complementoPedido,
tel.mostrarDadosRepres as mostrarDadosRepres,
substring(%External(tel.mostrarTxtPrazo),1,3) as txtPrazo,
ISNULL(tel.mostrarDadosEmpresa,1) as mostrarDadosEmpresa,
ISNULL(tel.formatoEmail,0) as formatoEmail,
ISNULL(tel.mostrarDadosPrazo,0) as mostrarDadosPrazo,
tel.textoDadosPrazo as textoDadosPrazo
from Tel.Configuracao as tel,Fat.Configuracao as Fat
where
Tel.Empresa->codigo = |pvt.login.idEmpresa|
and Tel.Empresa->codigo=fat.codEmpresa->codigo |
|
| Tipo: | Gravar variáveis |
| Descrição: | Verifica o tipo de orçamento |
| Condição: | |tmp.cpBloq.mostrarITDadosTrefilacao|=1&&(|tmp.ped.tipoOrcamento|=2 || |tmp.ped.tipoOrcamento|=) |
| Objetos: | tmp.cpBloq.mostrarITDadosTrefilacao |
| Recursivo: | Não |
| Processa FALSO: | Sim |
| Condição verdadeira: | 1 |
|
| Tipo: | Gravar variáveis |
| Descrição: | Mostra somente o valor liquido // Aguardando regra do faturamento |
| Condição: | true |
| Objetos: | tmp.cpBloq.bloqImpVlrLiq |
| Recursivo: | Não |
| Processa FALSO: | Não |
| Condição verdadeira: | 1 |
|
| Tipo: | Referência a grid |
| Condição: | true |
| Tipo de grid: | SQLS |
| Nome do grid: | TelItensPedRel |
|
| Tipo: | Objeto |
| Descrição: | Verifica se existe imagem cadastrada |
| Condição: | true |
| Objeto: | tmp. |
| Banco de dados: | principal |
| Filtro SQL: | %*?' |
| Instrução SQL: | &sql select imagem,imagem2,
Upper(imagem->extensaoArquivo) extImg,
Upper(imagem2->extensaoArquivo) extImg2
from tel.configuracao
where Empresa->codigo="|pvt.login.idEmpresa|" |
|
| Tipo: | Gravar variáveis |
| Descrição: | Download imagem |
| Condição: | |tmp.imagem|!= |
| Objetos: | tmp.logo |
| Recursivo: | Não |
| Processa FALSO: | Sim |
| Condição verdadeira: | 
|
|
| Tipo: | Gravar variáveis |
| Descrição: | Download imagem secundaria |
| Condição: | |tmp.imagem2|!= |
| Objetos: | tmp.logo2 |
| Recursivo: | Não |
| Processa FALSO: | Sim |
| Condição verdadeira: |  |
|
| Tipo: | Gravar variáveis |
| Descrição: | Grava os totais - ( Mostrar Valor liquido e mostrar IPI) |
| Condição: | |tmp.cpBloq.bloqImpVlrLiq|=1&&|tmp.cpBloq.visImpIPI|=1 |
| Objetos: | tmp.gridTotais |
| Recursivo: | Não |
| Processa FALSO: | Não |
| Condição verdadeira: |
Totais |$if(|tmp.ped.codMoeda|=,,|tmp.ped.simbologia|)$| |
|
|tmp.ped.vlrTotal| |
|
|tmp.ped.vlrTotIPI| |
|tmp.ped.vlrTotcomIPI| |
|
|
| Tipo: | Gravar variáveis |
| Descrição: | Grava os totais - ( Mostrar Valor liquido e Não mostrar IPI) |
| Condição: | |tmp.cpBloq.bloqImpVlrLiq|=1&&|tmp.cpBloq.visImpIPI|=0 |
| Objetos: | tmp.gridTotais |
| Recursivo: | Não |
| Processa FALSO: | Não |
| Condição verdadeira: |
Totais |$if(|tmp.ped.codMoeda|=,,|tmp.ped.simbologia|)$| |
|
|tmp.ped.vlrTotal|
|
|$if(|tmp.cpBloq.mostrarITICMS|=1, | ,$|
|
|
| Tipo: | Gravar variáveis |
| Descrição: | Grava os totais - ( Não Mostrar Valor liquido e Mostrar IPI) |
| Condição: | |tmp.cpBloq.bloqImpVlrLiq|=0&&|tmp.cpBloq.visImpIPI|=1 |
| Objetos: | tmp.gridTotais |
| Recursivo: | Não |
| Processa FALSO: | Não |
| Condição verdadeira: |
Totais |$if(|tmp.ped.codMoeda|=,,|tmp.ped.simbologia|)$| |
|
|tmp.ped.vlrTotAntes| |
|tmp.ped.vlrTotDesc| |
|tmp.ped.vlrTotAcresc| |
|tmp.ped.vlrTotal| |
|
|tmp.ped.vlrTotIPI| |
|tmp.ped.vlrTotcomIPI| |
|
|
| Tipo: | Gravar variáveis |
| Descrição: | Grava os totais - ( Não Mostrar Valor liquido e Não mostrar IPI) |
| Condição: | |tmp.cpBloq.bloqImpVlrLiq|=0&&|tmp.cpBloq.visImpIPI|=0 |
| Objetos: | tmp.gridTotais |
| Recursivo: | Não |
| Processa FALSO: | Não |
| Condição verdadeira: |
Totais |$if(|tmp.ped.codMoeda|=,,|tmp.ped.simbologia|)$| |
|
|tmp.ped.vlrTotAntes| |
|tmp.ped.vlrTotDesc| |
|tmp.ped.vlrTotAcresc| |
|tmp.ped.vlrTotal| |
|$if(|tmp.cpBloq.mostrarITICMS|=1, | ,$|
|
|
| Tipo: | Gravar variáveis |
| Descrição: | Gravar complementos do orçamento |
| Condição: | |tmp.cpBloq.mostrarCompOrcamento|=0 |
| Objetos: | tmp.cpBloq.complementoOrcamento |
| Recursivo: | Não |
| Processa FALSO: | Não |
|
| Tipo: | Gravar variáveis |
| Descrição: | Gravar complementos do Pedido |
| Condição: | |tmp.cpBloq.mostrarCompPedido|=0 |
| Objetos: | tmp.cpBloq.complementoPedido |
| Recursivo: | Não |
| Processa FALSO: | Não |
|
| Tipo: | Objeto |
| Descrição: | Busca os dados do representante |
| Condição: | |tmp.cpBloq.mostrarDadosRepres|=1 |
| Objeto: | tmp.rep |
| Banco de dados: | principal |
| Filtro SQL: | %*?' |
| Instrução SQL: | &sql select
nome,telefone,teleFax,telexCelular,email from fat.representante
where codRepresent="|tmp.ped.codrepresentante|"
and codEmpresa->codigo="|pvt.login.idEmpresa|" |
|
| Tipo: | Gravar variáveis |
| Descrição: | Grava os dados do Representante |
| Condição: | |tmp.cpBloq.mostrarDadosRepres|=1 |
| Objetos: | tmp.dadosRep |
| Recursivo: | Não |
| Processa FALSO: | Não |
| Condição verdadeira: |
C/ Cópia: |
|
Representante: |
|tmp.rep.nome| |
Telefone : |
|tmp.rep.telefone| |
Fax : |
|tmp.rep.teleFax| |
Celular : |
|tmp.rep.telexCelular| |
E-mail : |
|tmp.rep.email| |
|
|
| Tipo: | Gravar variáveis |
| Descrição: | Grava os dados do Representante abaixo do atendente |
| Condição: | |tmp.cpBloq.mostrarDadosRepres|=1 |
| Objetos: | tmp.dadosRep2 |
| Recursivo: | Não |
| Processa FALSO: | Não |
| Condição verdadeira: |
Representante: |
|tmp.ped.representante| |
|
|
| Tipo: | Gravar variáveis |
| Descrição: | Grava o que deve ser mostrado na previsão de entrega ( Data ou texto) - |tmp.cpBloq.mostrarDadosPrazo|=0 |
| Condição: | true |
| Objetos: | tmp.ped.prazoFaturamento |
| Recursivo: | Não |
| Processa FALSO: | Não |
| Condição verdadeira: | |tmp.ped.prazoFaturamento| |
| Condição falsa: | |tmp.cpBloq.textoDadosPrazo|
|
|
| Tipo: | Incluir arquivo |
| Descrição: | Importar Modelo de e-mail |
| Condição: | |tmp.numOrcamento|!=&&|tmp.cpBloq.formatoEmail|=0 |
| Objeto: | tmp.arqteste |
| Processa variáveis: | Sim |
|
|
| Tipo: | Gravar variáveis |
| Descrição: | Monta o SQL para o Download da imagem via conector java - Imagem 1 |
| Condição: | |tmp.imagem|!= |
| Objetos: | tmp.select, tmp.caminhoarq |
| Recursivo: | Não |
| Processa FALSO: | Não |
| Condição verdadeira: | &sql select imagem from Tel.Informacao where codigo=|tmp.imagem|,
|wi.proj.path|/anexos/Orc|tmp.numOrcamento|/logo1.jpg |
|
| Tipo: | Conector Java |
| Descrição: | Conector Java - Download da imagem do logo1 |
| Condição: | |tmp.imagem|!= |
| Nome da classe: | br.com.consistem.CswDownloadImg |
|
| Tipo: | Gravar variáveis |
| Descrição: | Monta o SQL para o Download da imagem via conector java - Imagem 2 |
| Condição: | |tmp.imagem2|!= |
| Objetos: | tmp.select, tmp.caminhoarq |
| Recursivo: | Não |
| Processa FALSO: | Não |
| Condição verdadeira: | &sql select imagem from Tel.Informacao where codigo=|tmp.imagem2|,
|wi.proj.path|/anexos/Orc|tmp.numOrcamento|/logo2.jpg |
|
| Tipo: | Conector Java |
| Descrição: | Conector Java - Download da imagem do logo2 |
| Condição: | |tmp.imagem2|!= |
| Nome da classe: | br.com.consistem.CswDownloadImg |