<%args> $form=>'creditos' <%init> my %fields; my %required; my %messages = ( title => $m->comp("/_shared/procs/utils/localize.m", str=>'Encomenda de Créditos'), #script => 'script.js', help => '', send_copy => 1, email_thanks => $m->comp("/_shared/procs/utils/localize.m", str=>"Obrigado pela sua encomenda") . ". " . $m->comp("/_shared/procs/utils/localize.m", str=>"Em breve será contactado telefonicamente") . " " . $m->comp("/_shared/procs/utils/localize.m", str=>"para confirmação dos dados") . ". " . $m->comp("/_shared/procs/utils/localize.m", str=>"Encomenda a processar") . ": ", thanks => " " . $m->comp("/_shared/procs/utils/localize.m", str=>"Obrigado"). ".
" . $m->comp("/_shared/procs/utils/localize.m", str=>"A sua encomenda será processada pelos nossos serviços que o contactarão telefonicamente para confirmar todos os dados") . ". ", ); $messages{to} = 'claraniza@guianet.pt, cidalia@guianet.pt'; #---------------------------------------------------------------------------- if ($form eq 'creditos'){ #---------------------------------------------------------------------------- tie %fields, "Tie::IxHash", ( empresa => {label =>$m->comp("/_shared/procs/utils/localize.m", str=>'Nome da empresa'), type => 'text', size=>'40', maxlength=>'40'}, responsavel => {label =>$m->comp("/_shared/procs/utils/localize.m", str=>'Nome do Responsável'), type => 'text', size=>'40', maxlength=>'40'}, email => {label =>$m->comp("/_shared/procs/utils/localize.m", str=>'Email'), type => 'text', size=>'20', maxlength=>'40'}, telefone => {label =>$m->comp("/_shared/procs/utils/localize.m", str=>'Telefone'), type => 'text', size=>'20', maxlength=>'40'}, pacotes_1 => {label =>$m->comp("/_shared/procs/utils/localize.m", str=>'Pacotes de 25 créditos- 1 pacote: 260€ + IVA 19% = 309.40€'), type => 'radio', group=>'pacotes', value=>'1'}, pacotes_2 => {label =>$m->comp("/_shared/procs/utils/localize.m", str=>'Pacotes de 25 créditos- 2 pacotes: 520€ + IVA 19% = 618.8€'), type => 'radio', group=>'pacotes', value=>'2'}, # valor => {label =>'Valor s/ IVA', type => 'text', size=>'6', maxlength=>'40'}, # iva => {label =>'IVA (19%)', type => 'text', size=>'6', maxlength=>'40'}, # total => {label =>'Valor Total', type => 'text', size=>'6', maxlength=>'40'}, pagamento_1 => {label =>$m->comp("/_shared/procs/utils/localize.m", str=>'Modo de Pagamento- Cheque'), type => 'radio', group=>'pagamento', value=>'1', helptext=>'Ao seleccionar esta opção deverá enviar-nos um cheque, à ordem de Guião SA, após recepção da factura emitida pelos nossos serviços. '}, pagamento_2 => {label =>$m->comp("/_shared/procs/utils/localize.m", str=>'Modo de Pagamento- Transferência Bancária'),type => 'radio', group=>'pagamento', value=>'2', helptext=>'Para esta opção de pagamento deve efectuar a transferência bancária utilizando um dos seguintes NIB:
BCP 003300000000469033905
BES 000700210007726001890

Após a operação, envie-nos o respectivo comprovativo, por correio ou fax para:
Guião SA
A/C Dep. Financeiro
Estrada Cruz dos Cavalinhos, Edif. Guião, Tercena
2745-610 Barcarena
Fax. 210 415 505 '}, obs => {label =>$m->comp("/_shared/procs/utils/localize.m", str=>'Observações'), type => 'textarea'}, ); %required = qw(empresa 1 responsavel 1 email 1 telefone 1 pacotes 1 pagamento 1); } return (\%fields, \%required, \%messages);