[SP-pm] a minha duvida passo a passo
Danilo de souza lima
dannilocomp at gmail.com
Mon Nov 3 07:46:15 PST 2008
Esse é um baita select onde para cada consulta feita armazeno numa variavel perl
my $qry = $Db->prepare(qq(
select date_format(curdate(), '%d/%m/%Y'),upper(left(dayname(curdate()),3))
,FE.id,FE.FINAN_SERVICO_id,upper(FS.codigo),upper(FS.descr)
,upper(FS.CENTRO_DE_CUSTOS_codigo),(select upper(CC.descr) from
CENTRO_DE_CUSTOS as CC where CC.codigo=FS.CENTRO_DE_CUSTOS_codigo
limit 1)
,FE.EVENTO_PROC_SELETIVOS_INSCR_id
,(select upper(I.nome) from EVENTO_PROC_SELETIVOS_INSCR as I where
I.id=FE.EVENTO_PROC_SELETIVOS_INSCR_id limit 1)
,RMC.nome
,FE.CURSOS_id,(select upper(CC.sigla) from CURSOS as CC where
CC.id=FE.CURSOS_id limit 1)
,FE.ano,FE.semestre,FE.mes,upper(FE.descr)
,FE.total_parcelas,FE.parcela_atual,FE.valor_total,FE.valor_com_deconto,FE.valor_pago,FE.dias_tolerancia
,FE.juros_mora_percent,FE.juros_pro_rata_percent,FE.juros_mora_pago_valor,FE.juros_pro_rata_pago_valor
,date_format(FE.pgto_data_previsto,
'%d/%m/%Y'),upper(left(dayname(FE.pgto_data_previsto),3))
,date_format(FE.pgto_data_efetivado,
'%d/%m/%Y'),upper(left(dayname(FE.pgto_data_efetivado),3))
,datediff(curdate(),FE.pgto_data_previsto),datediff(FE.pgto_data_efetivado,FE.pgto_data_previsto)
,FE.pgto_dinh_valor,FE.pgto_boleto_valor,FE.pgto_cheque_valor,FE.total_de_cheques,FE.pgto_deposito_valor
,FE.total_de_depositos,FE.pgto_negociacao_valor,FE.total_de_negociacao,FE.negociacao_justif
,FE.promissoria,upper(FE.obs),date_format(FE.data_reg,
'%d/%m/%Y'),left(dayname(FE.data_reg),3),upper(FE.resp_nome)
,FE.cancelado_data,left(dayname(FE.cancelado_data),3),FE.cancelado_justif
from FINAN_SERVICO as FS , FINAN_ENTRADA as FE ,REQ_MATR_CTRL as
RMC where RMC.id = FE.REQ_MATR_CTRL_id and FE.id='$IN_ALVO'
))or die ("Incapaz de executar sql em 'FINAN_ENTRADA as FE,
FINAN_SERVICO as FS'". $Db->errstr);
# execute our query
if (! $qry->execute()) { my $err = $DBI::errstr; $qry->finish(); $ret
= 0; } else {
##Separa dados das colunas ##
$qry->bind_columns(
\$DATA_ATUAL,\$DATA_ATUAL_NOME
,\$ARQ_ID,\$ARQ_SERV_ID,\$ARQ_SERV_CODIGO,\$ARQ_SERV_DESCR,\$ARQ_CENTRO_CUSTOS_CODIGO,\$ARQ_CENTRO_CUSTOS_DESCR
,\$ARQ_EVENTO_INSCR_ID
,\$ARQ_EVENTO_INSCR_NOME,\$ARQ_MATR_NOME
,\$ARQ_CURSO_ID,\$ARQ_CURSO_SIGLA
,\$ARQ_ANO,\$ARQ_SEMESTRE,\$ARQ_MES,\$ARQ_DESCR
,\$ARQ_TOTAL_PARCELAS,\$ARQ_PARCELA_ATUAL,\$ARQ_VALOR_TOTAL,\$ARQ_VALOR_COM_DESC,\$ARQ_VALOR_PAGO,\$ARQ_DIAS_TOLERANCIA
,\$ARQ_VALOR_JUROS_MORA_PERC,\$ARQ_VALOR_JUROS_RATA_PERC
,\$ARQ_VALOR_JUROS_MORA_PAGO_VALOR,\$ARQ_VALOR_JUROS_RATA_PAGO_VALOR
,\$ARQ_PGTO_DATA_PREV,\$ARQ_PGTO_DATA_PREV_NOME
,\$ARQ_PGTO_DATA_EFET,\$ARQ_PGTO_DATA_EFET_NOME,\$ARQ_PGTO_DIAS_EM_ATRASO_PREV,\$ARQ_PGTO_DIAS_EM_ATRASO_EFET
,\$ARQ_PGTO_DINH_VALOR,\$ARQ_PGTO_BOL_VALOR,\$ARQ_PGTO_CHQ_VALOR,\$ARQ_PGTO_CHQ_TOTAL,\$ARQ_PGTO_DEP_VALOR,\$ARQ_PGTO_DEP_TOTAL
,\$ARQ_PGTO_NEG_VALOR,\$ARQ_PGTO_NEG_TOTAL,\$ARQ_PGTO_NEG_JUST
,\$ARQ_PROM,\$ARQ_OBS,\$ARQ_DATA_REG,\$ARQ_DATA_REG_NOME,\$ARQ_RESP_NOME
,\$ARQ_CANC_DATA,\$ARQ_CANC_DATA_NOME,\$ARQ_CANC_JUST
);
$qry->fetchrow();
}#endif
$qry->finish();
$ARQ_PGTO_DINH_VALOR
$ARQ_PGTO_BOL_VALOR
$ARQ_VALOR_TOTAL
tenho q efetuar a seguinte operacao ARQ_VALOR_DEVIDO =
($ARQ_PGTO_DINH_VALOR+$ARQ_PGTO_BOL_VALOR) - $ARQ_VALOR_TOTAL
preciso fazer com q esse valor calculado va para o html por meio de
javascript,ou sera qnao precisa de javascritp
--
Assim como o amor, só odiamos aquilo que nos for muito importante.
More information about the SaoPaulo-pm
mailing list