Isto foi escrito 20 anos há em FoxPro para o DOS. Eu estou no processo de melhoramento a Fox9. Pode você por favor ajudar-me com conseguir VFP mudar as cores em um menu? Woulf I como os artigos da seleção de menu para ter uma cor diferente dependendo o que é selecionado pelas setas up/down. Um outro problema que eu estou tendo é quando eu descanso o cursor em todo o artigo de menu, o menu inteiro parte. Eu sei que I incluiu muito código aqui, mas o código real no uso é muito pequeno e fácil a isolate.
Thank você para estar lá e me ajudar com meu começo de problem.
* de Menu
* Environment
* adicionado para VFP
CLARAMENTE ALL
* comentou para VFP9
* PARAMETER
* adicionado para VFP9
parm1_=. T.
parm2_=. DEFEITO AJUSTADO de T.
ao akl_test
de OFF
do ECO de OFF
da CONVERSA do
de c:\crit\CODE SE TIPO (“parm1_”) = do “Br/> L'< o mais akl_test = else
* do
* “do teste "
o mais akl_test = “Y "
ELSE
o mais akl_test = “N do " akl_system PÚBLICO do akl_system
ENDIF
ENDIF
= “Y "
* se tipo (“parm2_”) = “akl_system do Br/>* do L'< = “N " “de Y "
ELSE
SE parm1_ = se parm2_ = akl_system do
* do “akl " = else
* do
* de “Y " akl_system = EXPOSIÇÃO AJUSTADA do Br/> Y'< de “N " DESENVOLVIMENTO FLAGS
do endif
* do endif
* do
* SE $ o mais akl_test do “A PULSO DE DISPARO AJUSTADO AJUSTADO AJUSTADO AJUSTADO de Off
* da OPINIÃO de ON
* do STATUS de ON
do ESCAPE de VGA50
A PULSO DE DISPARO AJUSTADO de 48,69
ELSE
* ao pulso de disparo de 24.69 voltas fora para o modi_memo de VFP
ENDIF
* ENVIRONMENT
=. T.
NA ETIQUETA CHAVE f12 FAZEM o _popcal
NA ETIQUETA CHAVE ctrl+f12 FAZEM rundos COM
de “COMMAND.COM " SE (SOBRE (“chave”, “ctrl+o ")) o
FAZ PROCEDIMENTO AJUSTADO do fs_setup
ENDIF
ao genlbr
= OPÇÃO DESOBSTRUÍDA do
WINDOWS
do envrnmnt () =” do “goodpass
=. F.
FAZEM COLORS
* toda a FUNÇÃO que o código chave será removido. O s_zoom_no de SETTINGS
da CHAVE de FUNÇÃO = o s_lastkey de 0
= 0 && excepto o último s_prgname chave do entered
= '' && excepto o nome de programa using um s_FkeyRec do function
= 0 && excepto o s_FkeyPag de Number
do registro da chave de função = 0 && excepto o s_FkyMRec de Number
da página da chave de função = 0 && conservam o número recorde MESTRE de FKey. 1/10/97 de && do
do am do 12:28 (akl) ---- Primeiro necessário em PAGÁVEL quando F1 do listmenu de Detail.
=. F. o && fêz nós vem do menu da lista? utilmenu do
=. F. o && fêz nós vem do menu do Util?
do
KeyF1 =. Bandeira do && do F. - de qualquer coisa a Animals
KeyF2 =. Bandeira do && do F. - de qualquer coisa a Bids
KeyF3 =. Bandeira do && do F. - de qualquer coisa a Calendar
KeyF4 =. Bandeira do && do F. - de qualquer coisa a Contracts
KeyF5 =. Bandeira do && do F. - de qualquer coisa a Critters
KeyF6 =. Bandeira do && do F. - de qualquer coisa a Invoices
KeyF8 =. Bandeira do && do F. - de qualquer coisa a Payables
KeyF9 =. Bandeira do && do F. - de qualquer coisa a Prices
KeyF10 =. Bandeira do && do F. - de qualquer coisa à produção Companies
KeyF11 =. Bandeira do && do F. - de qualquer coisa a Receivables
* comentou para a escolha de VFP
* VARIABLES
= o 0
prompt1 =” 1. os animais “
prompt2 =” 2. ofertas “
prompt3 =” 3. o calendário “
prompt4 =” 4. contratos “
prompt5 =” 5. Critters “
prompt6 =” 6. faturas “
prompt7 =” 7. etiquetas “
prompt8 =” 8. lista “
prompt9 =” 9. preços “
* prompt10 = do” cópia “
P. prompt10 = do” Stats “
S. prompt11 = do” utilidades “
U. prompt12 =” ajuda o “
prompt13 =” parou o “
* comentou para VFP
* WINDOWS
* comentou para VFP
* define o crit da janela de 2.2 a 22.75; título dos” menu principal do
Critters”; esquema de cor 2 da sombra do flutuador do dobro do
; a PIA BATISMAL “Arial do
bold(realce)”, 25
*Added para VFP.
DEFINE o crit da JANELA de 2.2 a 90.170; TÍTULO dos” menu principal do
Critters “; Esquema de COR 2 da SOMBRA do FLUTUADOR do DOBRO do
; O Br bold(realce)/> @ 0.34 Yy'< Arial”, 25
* SCREEN
CLEAR
= explodem (2.2.22.75.50.1) o
ACTIVATE SCREEN
SE $ o mais akl_test do “da PIA BATISMAL de “do
DIZ “o teste da” no else
* @ 0.70 COR w+/N
* diz que o
ENDIF
*L
* do espaço (9) que PROCESSA LOOP
FIZER QUANDO. T.
ATIVAM o crit
da JANELA FAZEM o s_choice do disscr
= a escolha do mchoice
= o *
* que do
* do ********** do do ********** do do ********** do do ********** do do ********** do do ************************** do mchoice
este é um programa tempoary para procurar duplicatas em um *
de .DBF SE .NOT o Br/>* Yy'< de $ o mais akl_test do “faz dup1chk
* fazem o
do ********** do do ********** do do ********** do do ********** do do ********** do do ************************** do *
de dup2chk
ENDIF
* NA ETIQUETA CHAVE f7 FAZEM o genhlp COM O USUÁRIO do && do PROGRAMA () HELP
FAZ a escolha do CASO de CASE
= 0 LIBERAÇÕES do
do && Crit
da JANELA SE a escolha a mais akl_test do CASO do
RETURN
ELSE
QUIT
ENDIF
de $ “JJ " = 1 .AND. (LIMA (“ANIMALS.PRG ").OR.FILE (“ANIMALS.FXP ")) o
FAZ animais COM escolha do CASO do
do PROGRAMA () = 2 .AND. (LIMA (“BIDS.PRG ").OR.FILE (wbr/> do 'BIDS.FXP'<))O
FAZ ofertas COM escolha do CASO do
do PROGRAMA () = 3 .AND. (LIMA (“CALENDAR.PRG ").OR.FILE (“CALENDAR.FXP ")) o
calendar COM escolha do CASO do
do PROGRAMA () = 4 .AND. (LIMA (“CONTRACT.PRG ").OR.FILE (“CONTRACT.FXP ")) o
contrata COM escolha do CASO do
do PROGRAMA () = 5 .AND. (LIMA (“CRITTERS.PRG ").OR.FILE (“CRITTERS.FXP ")) o
FAZ critters COM escolha do CASO do
do PROGRAMA () = 6 .AND. (LIMA (“INVOICE.PRG ").OR.FILE (“INVOICE.FXP ")) o
fatura COM escolha do CASO do
do PROGRAMA () = 7 .AND. (LIMA (“P_LABELS.PRG ").OR.FILE (“P_LABELS.FXP ")) o
FAZ p_labels COM escolha do CASO do
do PROGRAMA () = 8 .AND. (LIMA (“LISTS.PRG ").OR.FILE (“LISTS.FXP ")) o
FAZ a escolha do CASO do lists
= 9 .AND. (LIMA (“PRICES.PRG ").OR.FILE (“PRICES.FXP ")) o
FAZ preços COM escolha do CASO do
* do PROGRAMA () = 10 .and. (lima (“PRINT.PRG ").or.file (“PRINT.FXP ")) o
* FAZ a escolha do CASO do print
= 10 .AND. (LIMA (“STATS.PRG ").OR.FILE (“STATS.FXP ")) o
FAZ a escolha do CASO do stats
= 11 .AND. (LIMA (“UTILS.PRG ").OR.FILE (“UTILS.FXP ")) o
FAZ a escolha do CASO do utils
= 12 .AND. (LIMA (“CRITHELP.PRG ").OR.FILE (“CRITHELP.FXP ")) o
FAZ a escolha do CASO do crithelp
= o 13
SE o akl o mais akl_test do ********** do
SUSPEND
ELSE
QUIT
ENDIF
de $ “JJ ": Choice=14 adicionado para o F8 das ofertas à 2/25/96 de escolha pagável do CASO do am
do 2:08 = 14 .AND. (LIMA (“PAYABLE.PRG ").OR.FILE (“PAYABLE.FXP ")) o
FAZ pagável COM akl do ********** do
do ********** do
do PROGRAMA (): Choice=15 adicionado para o F11 das ofertas aos Receivables 2/28/96 de escolha do CASO do am
do 10:53 = 15 .AND. (LIMA (“RECEIVE.PRG ").OR.FILE (“RECEIVE.FXP "))
FAZEM para receber COM PROGRAMA ()
**********
ENDCASE
ENDDO
RETURN
*L
PROCEDURE disscr
PÚBLICO mchoice, mget, cchoice, cchoices
LOJA 0 A mchoice, "" da LOJA do mget
ao cchoice, o nCOL do cchoices
* = (WCOLS () /2.0) - 19
@ 1.34 DIZ que “2010 '
* deixados o ncol de Column
= o nrow de 20
= 3
COMEÇ COM nrow, ncol,” [\ <1] - o nrow
dos animais do " = 4
COMEÇ COM nrow, ncol, “[\ <2] - as ofertas " nrow do
= 5
COMEÇ COM nrow, ncol,” [\ <3] - o calendário " nrow do
= 6
COMEÇ COM nrow, ncol, “[\ <4] - os contratos " nrow do
= 7
COMEÇ COM nrow, ncol,” [\ <5] - os Critters " nrow do
= 8
COMEÇ COM nrow, ncol, “[\ <6] - ncol direito do column
do
* das faturas " = nrow de 40
= 3
COMEÇ COM nrow, ncol,” [\ <7] - O nrow
das etiquetas do " = 4
COMEÇ COM nrow, ncol, “[\ <8] - nrow
das lista do " = 5
COMEÇ COM nrow, ncol,” [\ <9] - o nrow
dos preços do " = 6
COMEÇ COM nrow, ncol, “[\ do Stats do " = 7
COMEÇ COM nrow, ncol,” [\ das utilidades do " = 8
COMEÇ COM nrow, ncol, “[\
* = o nrow de 30
= o 10
COMEÇ COM nrow, ncol,” [\ = cchoices + “12Q " cchoice do
= mchoice do mchoice
dos PARÂMETROS do fncurobj
do
RETURN
FUNCTION do fnchoice (cchoices, “Q”) = RETORNO do _CUROBJ
. Nrow dos PARÂMETROS de T.
ENDFUNC
PROCEDURE GET
, ncol, cfunc, bskip
nsize2 = LEN (STRTRAN (cfunc,” \ <")) + nrow de 2
@, ncol COMEÇ A FUNÇÃO “* “+IIF do mget (bskip,” \ \ “, "") +cfunc; fnCUROBJ VÁLIDO do
(@mCHOICE); os cchoices dos PARÂMETROS do fnchoice
do esquema de cor 1
/> RETURN
ENDPROC
FUNCTION, cdef
LERAM o
ENDFUNC
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* COLORS
do OBJETO do CICLO = do
IIF de IIF (LASTKEY () =27, EM (cdef, cchoices), mchoice) (mchoice > 0, SUBSTR (cchoices, mchoice, 1), "")/>origschem1 = “W+/B, W+/BG, GR+/B, GR+/B, R+/B, W+/GR, GR+/RB, N+/N, GR+/B, R+/B, + "
origschem2 = “BG/W, N/W, N/W, B/W, W/N, N/BG, W+/W, N+/N, B/W, W/N,
* 1 de + " 2 3 4 5 6 7 8 9 10 COR de 11
SET DO ESQUEMA 1 A; o
“W+/B, W+/r, w/B, W+/B, W+/B, r/w, GR+/RB, N+/N, GR+/B, R+/B, + " letras do
* do usuário DeskTop do fundo (1)
* do DeskTop (1)
* COMEÇ letras do campo o usuário de (2)
* que COMEÇ do título inativo ativo ativo do usuário do
* das letras do título do usuário do
* do fundo do título do usuário do
* das letras do título do usuário do
* do fundo da beira do usuário do
* do caráter da beira do usuário do fundo (2)
* do campo (3) (3) campos inativo do
* do fundo (4) (4) (5) (5) seletos (campo das letras (6)
* do ^A) seleto (o ^A) rotula o fundo (6)
* 1 2 3 4 5 6 7 8 9 10 COR de 11
SET Do ESQUEMA 2 A; menu do
* do
“w/b, w/b, w/b, w+/b, W/N, w+/r, W+/W, N+/N, B/W, W/N, + " rotula o menu inativo inativo do fundo (2)
* da seleção de menu das letras (2)
* da seleção de menu do fundo (1)
* das letras do menu de (1)
* para limitar PROCEDIMENTOS ativos inativos da BIBLIOTECA GERAL do
* do fundo (6)
*
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* GENLBR.Prg da seleção de menu das letras (6)
* do Ative de Slection do menu do
* do fundo de título do menu do
* das letras do título do menu do
* do fundo da beira do menu do
* dos caráteres (3) (3) (4) (4) (biblioteca geral): O _add
de GENLBR.PRG
function se o zoom_no = 1
vão o endif
do bottom
faz o str_empty
faz o default
= () _begin
*L
function do
return do '' se o top_mark = 0
vão o else
do top
vão o endif
return do skip
do top_mark
'' o _beginr
do
*L
function vai to
que
*L
function do top
return do ''/> = ndx_exp do _canscop
*L
function do
return do fltrsta () '' to
do
*L
function/> = ()/>return do '' =
do sistema (14.1) vai last_rec do bottom
=
do recno () last_val = o &ndx_exp
vai first_rec do top
=
do recno () first_val = &ndx_exp
= _delete
do
*L
function do
return do _disstat () do '' _copy
*L
function/> = ()/>return '' se zoom_no < no_zooms
* há algum registro das crianças? o child_num do
= o estreptococo (zoom_no + 1, 1)
selecionam o &child_num
lnk_var = o &lnk_var
da busca do lnk_var&child_num
se &at_eof
= o endif
se confirmar (“")
da supressão se direito (sistema (16.3), 9) do &zoom_num
do endif
do retorno do '' do &zoom_num
do
do dismsg (o chr (7) + do “registros subordinado existe”) = de “rec_del do Br/> ADOPT.FXP'< =. Endif
de T.
se direito (sistema (16.3), 12) = de “o Br/> CONTRACT.FXP'< seleciona o endif
do delete
1
do delete
2
de 3
se direito (sistema (16.3), 7) = && “de DHR.FXP o” nenhum dhr_delete de Flag
da mostra = dhr_delete do repl de .t.
com && da faixa clara do endif
do delete
do else
do reindex
do m->dhr_delete
reposiciona ao record
se && do &at_eof () se o último registro suprimido, vai ao começo do database
= endif
do
do _begin () se o &at_eof .and .not esvazia (o filtro ())
* nenhuns registros saiu no filtro, remove o to
/> = endif
do
do _begin () se o &at_eof
* último registro suprimido, () exp_N do _disstat
*L
function de/>
/>
= _quit/>return do '' = máximo (len (first_val), len (filter ()))o
define o stat_wndw da janela de 0.1 a 4,17+exp_N; o esquema de cor 7
/> ativa o stat_wndw
da janela se .not esvaziam (o filtro ())o
@ 0.0 diz que o” filtro é: ” + o else
@ 0.0 do
do filtro () diz que” o filtro é: o endif
@ 1.0 do Br/> do Off'< diz” do registro: ” + o first_val
@ 2.0 diz” gravar: '+ retorno do ")
do campo de memorando da espera do last_val
do '' memo_field do memo_field
do is_edit
dos parâmetros do _editmemo
do
*L
function do stat_wndw
return da janela da liberação
'' = memo_fld&zoom_num
se
= dismsg (“não manda endif
do
de nenhum '' definir o memo_wndw da janela de 12.30 a 18.73; título “MEMORANDO do
(ESC à saída ou ao CTRL-W a conservar)”; o flutuador do sistema do
cresce o esquema de cor próximo 11
se o is_edit
modifica o else
do memo_wndw
da janela do &memo_field do memorando modifica memorando o _end
*
*L
function do memo_wndw
endif
memo_wndw
return do '' vai ao
do registro do último (último registro da criança se zumbido) se o >= 0
do bot_mark vai o else
da faixa clara -1
do bot_mark
se o bot_mark = -1
vão o else
do bottom
* encontrar primeiro o registro fora do range
para localizar quando .t. para o &at_eof
se o
do eof () * ele são último registro no bot_mark do database
= no bot_mark do else
de -1
= endif
do
do recno () faixa clara o _endr
*L
function do endif
endif
-1
return do '' vai parâmetros do _list
*L
function do
return '' ndx_exp do _fromrcd
do
*L
function =
do sistema (14.1) se o first_rec do last_val
do <= do &ndx_exp = o
do recno () first_val = else
/> = endif
do dismsg (o “primeiro registro deve preceder o último registro”)/> = ()/>return do '' && do dbf_desc
que este comando é o because
no && chave da etiqueta F7 fazem o && do _nohelp ajudas ajustadas do problema found.
do sistema (das 18) fora da observação do && do
do && (o _nohelp está nesta página) -->> nenhum funcional pode ser chamado! o && do
nem pode um .PRG
se direito (sistema (16.2), 12) = o && de “CRITTERS.FXP” nenhum “CRESCE”!! (11 horas!)o
define o brws_wndw da janela de 9.4 a 19.54; dbf_desc do título do
; o else
do esquema de cor 10
/> define o brws_wndw da janela de 9.4 a 19.65; dbf_desc do título do
; o flutuador do zumbido do sistema do
cresce o endif
do esquema de cor 10
faz o record_no do list&zoom_num
= ajuda ajustada do brws_wndw
da janela da liberação do
do recno () no <<< do &&--- RECORDAR! Remover este statements.
na etiqueta chave F7 fazem o genhlp com (18) aborto do _modify
*L
function de/>
return do '' = akl do ********** de .f.
: Ofertas - multi editar o am
do 2:07 da janela 10/16/95 na etiqueta chave PGUP fazem PageUp
na etiqueta chave PGDN fazem o
do ********** de PageDn
se getcond do modify_key
=” fld_usg " getcond “de G” $ do else
do
=” o fld_usg .and .not “de G” $. Endif
*
do fld_usg de “K” $ do "--------- akl: Removido - não gostou da maneira que trabalhou 3/13/96 de akl do ********** do pm
do 9:17: Adicionado para o pm
* do 8:42 da computação 2/11/96 do contrapeso automático se ((prog_name = .and “PAGÁVEL” aliás () = “PAYDETL”) .or. ;
* (o prog_name = “RECEBE” .and aliás () = “RECDETL”)) .and. ;
* (a opção = “cópia” opção de .or = “modifica o p_amount do ")
* = o
* do ********** do endif
de 0
*---------getcond do
=” '
do fld_usg de G'$ " se direito (sistema (16.3), 8) = “USDA.FXP” .and. ; o
endireita (sistema (16.8), 10) o
do <> “G_USDA.FXP " faz o getfldA com read
do getcond
se m->u_code_2 = “D” .or m->u_code_2 = o
de “C " fazem o getfldB com else
do endif
do read
do getcond
fazem o getfld com akl do ********** do getcond
: Permite o cursor ao pm
do 4:17 do campo 11/16/95 do UpArrow até agora se direito (sistema (16.3), 9) = o
de “CALLS.FXP " leu o s_lastkey do endif
do
do ********** do endif
do read
do else
do cycle
= o
do lastkey () * akl do ********** de CLEANUP
: Ofertas - multi editar o am
do 2:07 da janela 10/16/95 na etiqueta chave PgUp
no akl chave do ********** do
do ********** de PgDn
da etiqueta: CRITTERS.PRG - A multi janela persegue o pm
do 10:06 da tela 7/28/98 dos truques se a opção = “modifica” .and. ; prog_name do
= “CRITTERS” .and. ; o s_lastkey do
do
(aliás () = “CRITDOGS” .or aliás () = “CRITCATS”) = o && s_lastky2 apenas no caso o CTRL-W pressionado usuário do primeiro screen
fazem o to
da mensagem do
do ********** do endif
de DogUpDn
se .not. ((direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireitam (dbf (), 12) = “CRITDOGS.DBF ") .or. ; o
(direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireita (dbf (), 12) = o
de “CRITCATS.DBF ")) * (akl) 4/10/99 de pm
do 11:43 * adicionado se indicação para a seguinte circunstância: 2/M/F5/N/Z
* A tela dos dados é apagada e uma tela do usuário é activated.
* problema ocorre SOMENTE ao Quente-Fechar das ofertas a Zoom.
do cão dos Critters * nenhum usuário que a tela é ativada porque a quantidade de dados não caberá no a
* tela do usuário. O desktop é usado assim. (ativar a tela).
se .not. (sistema (16.5) = “…” em .and. ; o
endireita (sistema (16.6), 8) = “BIDS.FXP” .and. ; o
endireita (dbf (), 12) = o Br/> do Yy'< de “CRITDOGS.DBF”) stat ajustado do
fora do && que este teve que ser põr dentro porque o STAT do && do endif
do endif
de SET
FORA sozinho não apagou o message
se $ o mais akl_test 'se .not. ((direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireitam (dbf (), 12) = “CRITDOGS.DBF ") .or. ; o
(direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireita (dbf (), 12) = o
de “CRITCATS.DBF ")) se .not. (sistema (16.5) = “…” em .and. ; o
endireita (sistema (16.6), 8) = “BIDS.FXP” .and. ; o
endireita (dbf (), 12) = de “CRITDOGS.DBF”) o endif
do endif
do endif
do on
do stat do
se s_lastkey = 27 o aborto de Esc
do && = .t.
do retorno do ''
/>
se o modify_key
se do chk_dupl () o endif
'' o endif
do endif
do
faz o lookup
faz o calcul com .t.
se direito (sistema (16.3), 8) = “USDA.FXP” .and. ; o
endireita (sistema (16.8), 10) o <> “G_USDA.FXP " o
faz o getfldA com o” .t. “o
faz o getfldB com o” .t. “o else
do
faz o getfld com o” .t. “o gets
do endif
que do
se o page_no < o page_no seguinte do page
da tela da exposição do && do last_page = o page_no + 1
fazem o disscr
fazem quando getcond do last_page
do <= do page_no =” 'akl do ********** do
do fld_usg de G'$ ": Ofertas - multi editar o s_lastkey do am
* do 2:07 da janela 10/16/95 = '' && comentou para F11 o pm
PgUpKey do 0:08 da chave 2/28/96 =. F.
PgDnKey =. F.
BTabKey =. F.
na etiqueta chave PGUP fazem PageUp
na etiqueta chave PGDN fazem PageDn
na etiqueta chave BACKTAB fazem o
do ********** de TabBack
se direito (sistema (16.3), 8) = o
de “USDA.FXP " faz o getfldA com getcond
faz o getfldB com else
do getcond
faz o getfld com read
do endif
do getcond
se .not. (PgUpKey .or. PgDnKey .or. S_lastkey do
de BTabKey) = endif
do
do lastkey () * akl do ********** de CLEANUP
: Ofertas - multi editar o am
do 2:07 da janela 10/16/95 na etiqueta chave PGUP
na etiqueta chave PGDN
no stat ajustado ajustado chave do to
da mensagem do
do ********** de BACKTAB
da etiqueta fora do && que isto teve que ser põr dentro porque o STAT do && de SET
FORA sozinho não apagou o && do message
deve trabalhar. Encontrar por que?
se o endif
do on
do esca do on
do stat do Br/> do Yy'< de $ 'se s_lastkey = 27 aborto de Esc
do && = endif
do exit
de .t.
se s_lastkey = página de 18 && acima de Key
se o page_no > o page_no de 1
= o page_no - 1
fazer o endif
do endif
do loop
do disscr
se s_lastkey = página para baixo Key
de 3 && se o page_no do last_page
do page_no < = o page_no + 1
fazem o endif
do endif
do loop
do disscr
se s_lastkey = 15 o && Tab
se page_no > page_no de 1
= page_no - 1
fazem o disscr
se page_no = 1
para i = 1 ao endif
do endif
do endif
do loop
do next
do
do chr do teclado de 18
(9) se o tipo (“LArrow ") = “L” && considera contratos (akl) 10/05/99 de am
do 10:43 se o page_no = o page_no de 2
= 1
fazem o endif
do endif
do loop
do disscr
se page_no = first_page
* verific para ver se há (chave incorporada somente na primeira página) o *
* de
* do *** do do ********** do do ********** do do ********** do do ********** do do ********** do do ************************** do &ndx_var
da busca do
isto SE a indicação foi mudada e duplicada porque quando você ZUMBIR a uma base de dados vazia do *
*, o sistema indica sempre da “a mensagem Record do *
* do erro duplicata” quando o primeiro registro for incorporado. Separar SE as indicações parecem o *
* para reparar este problema. A diferença é SE indicação imediatamente antes do *
* “= o dismsg…” indicação. São diferentes para cada condição de ZOOM_NO. o
do *** do do ********** do do ********** do do ********** do do ********** do do ********** do do ************************** do *
do *
* (akl) * usar isto SE indicação se zoom_no = 1
se zoom_no = 1
se o prog_name = && da saída do
do “CONTRATO " adicionou porque sempre começ o && do when
da mensagem de erro no contrato e o ^W usado à saída. Eu fi-lo maneira do && do this
porque eu sei que eu witing uma versão das janelas do && de WINDOWS
do programa. Não é luta do && do worth
neste else
do
do pm do 2:09 do tempo 3/08/2000 (akl) se allow_dup&zoom_num
= dismsg (chr (7) + da “aborto do ")
do registro duplicata = o endif
do endif
do endif
do exit
de .t.
* usar isto SE indicação se zoom_no > 1
se zoom_no > 1
se .not. (o
= dismsg (o chr (7) + da “registro duplicata não permitido - 2 aborto do ")
(do akl) = endif
do endif
do endif
do exit
de .t.
* indicar os campos da consulta e o variables
fazem o lookup
fazem o calcul com .t.
se direito (sistema (16.3), 8) =
“de USDA.FXP o " faz o getfldA com
” de .t. “faz o getfldB com else
” de .t. do “faz o getfld com gets
do endif
” de .t. do “se page_no < last_page
* indicar o page_no seguinte do page
da tela = o page_no + 1
fizerem o enddo do endif
do exit
do else
do disscr
quando o endif
do last_page
do <= do page_no se .not. ((aliás () = “PAYDETL” .or aliás () = “RECDETL ") a opção de .and = “modifica o ")
faz o calcul com endif
de .t.
* restaurar o number
da página se o page_no > o page_no do all
do vento do deact do first_page
= o first_page
fazem o disscr
se direito (sistema (16.3), 8) = o
de “USDA.FXP " faz o getfldA com
de” .f. “faz o getfldB com else
do
de” .f. “faz o getfld com redisp_fld do endif
do
de” .f. “= endif
do gets
de .t.
se akl do ********** do abort
de .not: Verific a soletração do 3/19/96 de am
do 1:55 se o prog_name = “OFERECE” o prog_name de .or = o “CONTRATO” .or. ; prog_name do
= prog_name de .or da “FATURA” = “SUBRENT” .or. ; o prog_name do
= “TRAÇA” o prog_name de .or = “HELTHCRT "
faz SpellChk com “Rec” registro do && (Rec) ou o
do campo (Fld) se direito (sistema (16.3), 8) = “USDA.FXP "
fazem o getfldA com o” .f. “
faz o getfldB com o” .f. “else
do
faz o getfld com o” .f. “
do ********** do endif
do endif
do
se confirmar (“excepto o save_rec Record do ")
=. T.
se aliás () = “CRITDOGS” .or aliás () = o
LastTKUpd de “CRITCATS " = o
da data () se aliás () = o critters
do
de “CRITDOGS " substitui LastTKupd com o critdogs
@ 0.67 do m->LastTKupd
dizem que o critters
do else
do
do dtoc (m.lasttkupd) substitui LastTKupd com o critcats
@ 2.60 do m->LastTKupd
dizem o memo
do recolhimento do endif
do endif
do
do dtoc (lasttkupd) se direito (sistema (16.3), 12) = endif
do memvar
do recolhimento do sele 3
do memvar
do recolhimento do sele 2
do
de “CONTRACT.FXP " />
*L
PROCEDURE RunDOS
* do endif
endif
return o '' executa uma lima do programa ou de grupo do DOS, ou invoca o command_
dos PARÂMETROS do
do intérprete do command
* do DOS (COMMAND.COM deve estar no TRAJETO) SE o _DOS
ATIVA SCREEN
EXCEPTO A TELA a DOSscreen
@ 0.0 &command_ AJUSTADO/> de /0 do FUNCIONAMENTO de ON
* do CURSOR de CLEAR
NewCommand_ do 3:08 = o && de GETENV (“COMSPEC ") adicionaram este código para ler o && “COMMAND.COM” do &NewCommand_ de /0 do FUNCIONAMENTO do true
. Não pode sempre ser o && COMMAND.COM do sure
será CURSOR AJUSTADO/> de running.
* FORA DA TELA comentada da RESTAURAÇÃO do
do s_lastkey de DOSscreen
ENDIF
RETURN
*L
function PageDn
da TELA da LIBERAÇÃO de DOSscreen
= do
do lastkey () se s_lastkey = 3
PgDnKey =.
do chr do teclado de T.
(23) se a opção = “modifica” .and. ; prog_name do
= “CRITTERS” .and. ; o
do
(aliás () = “CRITDOGS” .or aliás () = “CRITCATS”) && de s_lastky2 = de s_lastkey apenas no caso o usuário pressionou CTRL-W do primeiro
do s_lastkey = do lastkey do endif
return
*L
function PageUp
do endif
do screen
() se s_lastkey = 18
* se .not. (prog_name = “CRITTERS” .and. ; a opção do
* = “modifica” .and. ;
* (aliás () = “CRITDOGS” .or aliás () = “CRITCATS”))
PgUpKey =. Skip
do _next
do endif
return
*L
function do endif
do
* do chr do teclado de T.
(23) se &at_eof
=
= dismsg (chr (7) + “último ")
do _nextr
do
*L
function do endif
/>return record '' se
=
= dismsg (chr (7) + “último ")
do
*L
function do endif
/>return record '' = val (substr (o page_seq&zoom_num, len (page_seq&zoom_num), 1))o
se o page_no < o page_no do last_page
= o page_no + 1
fazem o else
/> = dismsg (“nenhum outro endif
return '' _nohelp
do ")
da página do
*L
function define o help_not da janela de 0.30 ao esquema de cor 7
ativa o mess_err do help_not
da janela = 'pesaroso, nenhuma AJUDA está disponível neste tempo. '
do _prev
*L
function do help_not
/>
/>return do '' se &at_bof
=
= dismsg (chr (7) + “primeiro registro faixa clara -1
do _prevr
*L
function do endif
")
return do '' se
=
= dismsg (chr (7) + “primeiro registro first_page do _prepage
*L
function do endif
")
return do '' = val (substr (page_seq&zoom_num, 1.1))
se page_no > page_no do first_page
= page_no - 1
fazem o redisp_fld do disscr
= o else
/> = dismsg (“nenhum outro cópia do ********** do _print
do
*L
function do endif
")
return '' selecionou entradas 9/07/98 de
do pm do 9:27 (akl) se direito (sistema (16.2), 12) = “CRITTERS.FXP” .or. ; o
endireita (sistema (16.2), 12) = de “o Br/> P_LABELS.FXP'< faz o
que do ********** do endif
do prn_sele
o on
do escape define o prnt_wndw da janela de 0.43 a 2.78; o esquema de cor 7
/> ativa o s_readkey do prnt_wndw
da janela = o 0
@ 0.0 diz a” impressão - o ESC para parar '
=
do init_rpt () se o s_readkey = um s_readkey de 268 .or = um escape de 12 && era && do endif
do return
do prnt_wndw
da janela da liberação do pressed
adicionou a corrente ou todo o USDA grava (o
de 02/05/02 de akl) se direito (sistema (16.6), 10) = g_all .and = “A “P_USDA.FXP de” o "
se o sistema de .not (13) = “FORA DE LINHA de” laser de” Br do <> “do outp_dev .or do dot'< do <> do outp_dev .or ' o s_recno de/>
= o
do recno () vão brk_no do top
= 1
fazem o pgehdr
fazem quando o r_count do
de .not eof () = 0
fizerem quando o <> 9
do r_count fizer o skip
do brkhdr
se r_count do endif
do exit
do
do eof () = r_count + enddo
de 1
se o else
do endif
do s_recno
do enddo
do endif
do exit
do
do eof () se o sistema de .not (13) = “FORA DE LINHA” laser” Br/> do <> “do outp_dev de .or do dot'< do <> do outp_dev de .or ' fazer o rpthdr
fazem o pgehdr
fazem o rptbdy
fazem o line_no do rptftr
= o lns_per_pg
fazem o endif
do endif
do pgeftr
se direito (sistema (16.2), 12) = cópia ajustada do Br/> do Y'< de $ do akl_system de “P_LABELS.FXP” grupo de .and = 1
se 'a cópia ajustada do else
de LPT1
a else
da impressora do off
da cópia do eject
do on
da cópia do endif
de LPT1
/> = prnt_wndw
da janela da liberação do endif
do
do end_rpt () se o outp_dev = 'Br do screen' = o off
do escape do endif
do
do edit_txt () vai
return '' o s_curobj do _popcal
de/>*L
function = o _curobj
* ativam o screen
no teclado chave do esc da etiqueta” {CTRL+W} “+” {ENTRAR} “o
* @ 24.0 dizem que o
do padc (da “ESC imprensa a retornar à tela de introdução de dados”, 80) ativa válido lido/> do calculator
* @ 24,0
no _curobj chave do esc
da etiqueta = no _quit
do on
return
*L
function do esca do s_curobj
se (sistema (16.2), 9) <> direito “PRINT.FXP” .and. ; o
endireita (sistema (16.3), 8) couro cru ajustado do endif
* do to
do filtro do Br/> de JOBS.FXP'< do <> 'a janela quando o usuário para ao window
faz a direita do caso do case
(sistema (16.2), 12) = 'o Br/> de CRITTERS.FXP'< faz o zoom_no do caso do case
= o wind_hide de 1
= 'zoom_no da caixa do Br/> de usr_wndw1'< = wind_hide do clear
de 2
= 'zoom_no da caixa do Br/> de usr_wndw5'< = wind_hide do clear
de 3
= de “zoom_no da caixa do Br/> usr_wndw4'< = wind_hide de 4
= “zoom_no da caixa do Br/> de usr_wndw6'< = wind_hide de 5
= de “s_zoom_no do endcase
do Br/> usr_wndw3'< = zoom_no
se zoom_no = 1 .or. Zoom_no de KeyF2
= zoom_no do else
de 0
= wind_hide do otherwise
do endif
de 1
= de “alltrim usr_wndw'+ (estreptococo (zoom_no))zoom_no do
= zoom_no - 1
* adicionado se indicação para a seguinte circunstância: 2/M/F5/N/Z
* A tela dos dados é apagada e uma tela do usuário é activated.
* problema ocorre SOMENTE ao Quente-Fechar das ofertas a Zoom.
do cão dos Critters * nenhum usuário que a tela é ativada porque a quantidade de dados não caberá no a
* tela do usuário. O desktop é usado assim. (ativar a tela).
se (sistema (16.5) = “…” em .and. ; o
endireita (sistema (16.6), 8) = “BIDS.FXP” .and. ; o
endireita (dbf (), 12) = o endcase
do endif
do clear
do
de “CRITDOGS.DBF”) se wexist (do “o endif
do &wind_hide
da janela do couro cru do ")
se o zoom_no > 0
=
do x_zoom () vão o record_no
fazem _retrieve
* do
*L
function do redisp_fld do disscr
= .t.
/>return '' para aceitar a chave e procurar o registro; se não encontrado reposicionar ao d_function do record_no
= () ao
se do '' do scatter (ndx_var) do
da guarnição <> o memo
faz o clrfld
faz o read
do getkey
* o stat ajustado ajustado do to
da mensagem de CLEANUP
fora do && isto teve que ser põr dentro porque o STAT do && de SET
FORA sozinho não apagou o message
se o endif
do on
do stat do Br/> do Yy'< de $ “se && Esc
do <> 27 do lastkey () se o programa (3) = os “TRABALHOS” .and aliás () = busca do else
do
da guarnição da busca do
dos “TRABALHOS " (&ndx_var1a) aparar o endif
do
se &at_eof
= dismsg (“o ")
vai record_no
*L
do endif
endif
/>
/>return '': Os parâmetros seletos novos do _select
do am
function do 2:25 do comando 10/23/95 o && do dbf_desc
que este comando é o because
no && chave da etiqueta F7 fazem o && do _nohelp ajudas ajustadas do problema found.
do sistema (das 18) fora da observação do && do
do && (o _nohelp está nesta página) -->> nenhum funcional pode ser chamado! o && do
nem pode um .PRG
se direito (sistema (16.2), 12) = o && de “CRITTERS.FXP” nenhum “CRESCE”!! (11 horas!)o
define o brws_wndw da janela de 9.4 a 19.54; dbf_desc do título do
; o else
do esquema de cor 10
/> define o brws_wndw da janela de 9.4 a 19.65; dbf_desc do título do
; o flutuador do zumbido do sistema do
cresce o endif
do esquema de cor 10
faz o record_no do sel&zoom_num
= ajuda ajustada do brws_wndw
da janela da liberação do
do recno () no <<< do &&--- RECORDAR! Remover este statements.
na etiqueta chave F1 fazem o genhlp com (18) o _skip
do
*L
function do **********
de/>
return do '' * mover para a frente/para trás diversos rec_count do records
= 0
definem o skip_wndw da janela de 11.29 a 13.52; o esquema de cor 7
/> ativa o skip_wndw
@ 00.00 da janela diz da” registros faixa clara: ” começ o _skipr
*L
function do skip_wndw
endif
")
return do @Z 999999 ' do retrato do rec_count “o rec_count
da faixa clara do read
do
se &at_eof
=
= dismsg (chr (7) + “último endif
do ")
se &at_bof
=
= dismsg (chr (7) + “primeiro do '' * mover para a frente/para trás diversos rec_count do records
= 0
definem o skip_wndw da janela de 11.29 a 13.52; o esquema de cor 7
/> ativa o skip_wndw
@ 00.00 da janela diz da” registros faixa clara: ” começ s_lastkey
*L
function TabBack
do skip_wndw
endif
")
return do @Z 999999 ' do retrato do rec_count “o rec_count
da faixa clara do read
do
se
=
= dismsg (chr (7) + “último endif
do ")
se
=
= dismsg (chr (7) + “primeiro do '' =
do lastkey () se s_lastkey = 15
BTabKey =. O _tally
do endif
return
*L
function do
do chr do teclado de T.
(23) define o count_wndw da janela de 0.35 a 2.78; o esquema de cor 7
/> ativa o count_wndw
@ 0.0 da janela diz a” contagem… “do rec_count do
= do 0
= contagem do
do _begin () quando o &at_eof de .not ao mess_str do rec_count
= ao estreptococo (rec_count, 6) + do” o Br/>
record'< se o rec_count > o mess_str de 1
= o mess_str + “o mess_str
da espera do endif
do Br/> do s'< vão o count_wndw
return do '' _tallyr
da janela da liberação do record_no
*L
function definir o count_wndw da janela de 0.35 a 2.78; o esquema de cor 7
/> ativa o count_wndw
@ 0.0 da janela diz que” contando… “o rec_count do
= o 0
= a contagem do
do _beginr () quando .not eof () ao mess_str do rec_count
= ao estreptococo (rec_count, 6) + do” o mess_str
da espera do Br/> records'< forem record_no
do
*L
function do count_wndw
/>return '' rep_file = o espaço (8) o
definem o file_wndw da janela de 7.20 a 16.59; o título do
” incorpora o nome de arquivo do fax”; o esquema de cor 7
/>
ativa a janela usr_wndw1
ativa o file_wndw
@ 3 da janela, 1 diz que o “máximo de 8 caráteres está permitido. o “
@ 4, 1 diz “o nome de arquivo, você entra, o Br/> @ 5 do have'<, 1 diz” “.TXT” adicionado ao fim do nome. 'o
@ 6, 1 diz que “não usar nenhuma caráteres especial. o “
@ 1.15 começ o read
do rep_file
rep_file = “c:\crit\fax\ " +alltrim (rep_file) +”
de .txt o " desativa o file_wndw
da janela da liberação do file_wndw
da janela define o file_wndw da janela de 7.18 a 19, 60; o título do
” seu fax está pronto”; o esquema de cor 7
/> ativa o file_wndw
@ 1 da janela, 1 diz “depois que o fax foi imprimido, vai " ao
@ 2, 1 diz “o Systray, no desktop, e começa " o
@ 3, 1 diz “WinFax, Right-Clicking no fax "
@ 4, 1 diz o “ícone. Em seguida, esquerdo-estalar emitem sobre um fax… “
@ 6, 1 diz “a posição da lima: “+rep_file
@ 8, 1 dizem “quando o fax foi emitido, retorno aqui "
@ 9, 1 diz “continuar a trabalhar como antes. do “file_wndw
da janela da liberação do read
se .not esvaziam o outp_dev (rep_file) do
= 'file'< do _torcd
do
*L
function do endif
Br/>return '' =
do sistema (14.1) se last_rec do first_val
do >= do &ndx_exp = record_no
last_val = else
/> = endif
dos dismsg ndx_exp (o “último registro deve seguir o primeiro registro”)/> =
return do '' susp
do _disstat () do _zoom
*
*L
function se no_zooms = zoom_no
= dismsg (“nenhum else
do ")
da lima do zumbido se direito (sistema (16.2), 12) = 'Br de CRITTERS.FXP'< /> fazem o anml_type do caso do case
= 'zoom_no do Br/> do C'< = anml_type do caso de 3
= do “zoom_no do Br/> D'< = anml_type do caso de 2
= “zoom_no do Br/> do E'< = anml_type do caso de 4
= do “zoom_no do Br/> F'< = otherwise
/>* = dismsg (“o tipo animal campo não é C, D, E, ou o ")
A_Type do F. =
do espaço (1) definem o file_wndw da janela de 8.20 a 16.57; título do
” que falta: Tipo animal”; o esquema de cor 7
/>
ativa a janela usr_wndw1
ativa o file_wndw
@ 1 da janela, 1 diz “cada animal deve ter um TIPO que " o
@ 2, 1 diga que “descreve uma categoria geral. O “
@ 3, 1 diz que “as entradas permitidas são:
@ 4 de D, de C, de F, ou de E ", 1 diz” (cão, gato, exploração agrícola, ou exótico.) o “
GoodType =. F.
fizerem quando .not. GoodType
@ 4.34 começ o read
A_Type de A_Type
= o
(de A_Type) se o
GoodType de A_Type $ “DCFE " =. O else
@ 6 de T.
, 1 diz que” entrar por favor: D, C, F, ou E do “enddo
EndIf
desativam o anml_type do file_wndw
da janela da liberação do file_wndw
da janela = o A_Type
substituem o anml_type com o m->anml_type
@ 2, 65 dizem o zoom_no do else
do endcase
do m->anml_type
= o zoom_no + o endif
/> =
=
do _begin () * se uma página nova, indica o screen
se page_no do page_no
do <> do first_page = endif
do first_page
se off
/> = dismsg (“on
da base de dados/> = endif
return do endif
do
do _add () do '' o add_rec
*
*L
function adiciona um aborto do record
= no_rcds de .f.
= &at_eof
* a restauração ao primeiro d_function do page
= () o
na etiqueta chave PGUP fazem PageUp
na etiqueta chave PGDN fazem PageDn
fazem quando akl do ********** do last_page
do <= do page_no: Ofertas - multi editar o akl do am
*+++++++++ do 2:07 da janela 10/16/95: Ofertas - permitir o em multi editam Window
se direito (sistema (16.3), 8) = o
de “BIDS.FXP " na etiqueta chave PGUP faz o newPageUp
na etiqueta chave PGDN faz o
* do ********** do endif
do newPageDn
--------- akl: Removido - não gostou da maneira que trabalhou 3/13/96 de akl do ********** do pm
do 9:17: Adicionado para o pm
do 8:42 da computação 2/11/96 do contrapeso automático se ((prog_name = .and “PAGÁVEL” aliás () = “PAYDETL”) .or. ;
(o prog_name = “RECEBE” .and aliás () = “RECDETL”)) .and. ; p_amount do
do
(a opção = “cópia” opção de .or = “modifica ")) =
* do ********** do endif
de 0
---------o getcond do
=” “de G'$ do fld_usg o "
se direito (sistema (16.3), 8) = “de USDA.FXP o "
faz o clrfld
@ 14, 1 diz o
@ 15 do espaço (57), 1 diz o
do espaço (57) @ que 16, 1 diz o
@ 17 do espaço (57), 1 dizer que o
do espaço (57) faz o getfldA com read
do getcond
se m->u_code_2 = “D” .or m->u_code_2 =
“de C o " fazem o getfldB com else
do endif
do read
do getcond
fazem o getfld com akl do ********** do getcond
: Permite o cursor ao campo do UpArrow até agora. 12/15/95 de pm
do 6:59 se direito (sistema (16.3), 9) = o
de “CALLS.FXP " leu o akl do ********** do endif
do
do ********** do endif
do read
do else
do cycle
: Ofertas - multi editar o akl do am
*+++++++++ do 2:07 da janela 10/16/95: Ofertas - permitir o em multi editam Window
se direito (sistema (16.3), 8) = o
de “BIDS.FXP " na etiqueta chave PGUP
no stat ajustado ajustado chave do to
da mensagem do
do ********** do endif
de PGDN
da etiqueta fora do && isto teve que ser põr dentro porque a MENSAGEM do && de SET
não parece trabalhar!!
se $ do “= o
do lastkey () se s_lastkey = 27 aborto de Esc
do && = endif
do exit
de .t.
se s_lastkey = página de 18 && acima de Key
se page_no > page_no de 1
= page_no - 1
fazem o endif
do endif
do loop
do disscr
se s_lastkey = página para baixo Key
de 3 && se o page_no < o page_no do last_page
= o page_no + 1
fazem o endif
do endif
do loop
do disscr
se verificação do page_no = do first_page
* para (chave incorporada somente o s_lastkey do endif
do on
do stat do Br/> Yy'< de primeiro na página) o
se .notallow_dup&zoom_num
se (sistema (16.3), 8) &ndx_var
da busca do
do <> “USDA.FXP " se .not.
= dismsg (chr (7) + da “aborto do ")
do registro duplicata = akl não permitidos do ********** do endif
do exit
de .t.
: A verificação individual adicionada de cada campo chave no else
do pm
do 0:26 do USDA 5/31/96 se o s_recno do endif
do exit
de m.usda = de 0
= o
do recno () vão o top
localiza para m.name = name
se ()
= dismsg (chr (7) + do “nome animal já no uso. Escolher um outro aborto do
do nome”) = endif
do exit
de .t.
vão o top
localizam para m.usda = usda
se ()
= dismsg (chr (7) + “número do USDA já no uso. Escolher um outro número do desobstruído”) = endif
do exit
de .t.
se o endif
do endif
do
do ********** do endif
do endif
do s_recno
do
de .not eof () * indicar campos da consulta e o variables
faz o lookup
faz o calcul com .t.
se direito (sistema (16.3), 8) = “USDA.FXP "
fazem o getfldA com” o .t. “
fazem o getfldB com” o .t. do “else
fazem o getfld com” o .t. do “gets
do endif
aborto do
se page_no < last_page
* indicar o page_no seguinte do page
da tela = o page_no + o 1
fazem o enddo do endif
do exit
do else
do disscr
quando o last_page
do <= do page_no * restaurar o number
da página se o page_no > o page_no do all
do vento do deact do first_page
= o first_page
fazem o disscr
se direito (sistema (16.3), 8) = o
de “USDA.FXP " faz o getfldA com
de” .t. “faz o getfldB com else
do
de” .t. “faz o getfld com redisp_fld do endif
do
de” .t. “= aborto do endif
de .t.
= iif (aborto, .t., o save_rec de .not ())
se abort
de .not se no_rcds
= () else
do endif
do
se o no_rcds
= else
do
do _quit () vai record_no
*
*L
function do abort
endif
/>return do '' um relatório/um line_no line
da tela = um line_no + um 1
se o line_no = o lns_per_pg
fazem o pgeftr
do
de/> = de adv_page () = o relatório do adv_page
* do line_no
*L
function de .f.
return/o page_no page
da tela = o page_no + 1
se direito (sistema (16.2), 12) =
se page_no = sel_yes + endif
se o outp_dev = outp_dev de .or do “laser” = do “o else
@ line_no+1,0 do eject
do Br/> dot'< diz o line_no do endif
do
do replicate (chr (219), 76) do endif
do return
de 1
= o top_margin
faz duplicata do jogo do chk_dupl
* do
*L
function do pgehdr
return '' a .f. se a chave é uma duplicata, ou ao dupl_rec
do otherwise
de .t. se ((&at_bof) = (o &at_eof)) .or. '' = dupl_rec do allow_dup&zoom_num
da guarnição .or (ndx_var) = &ndx_var
da busca do else
de .f.
se opção = “dupl_rec do Br/> do M'< = dupl_rec do else
do &at_eof
do recno do <> do record_no () .and .not = endif
do &at_eof
de .not se dupl_rec
= dismsg (o chr (7) + da “o else
do ")
do registro duplicata vai nível da ruptura do incremento do up
* do chng_brk
Parameters do dupl_rec
*L
function do endif
return do endif
do record_no
se “acima de” = .t., otherwise
do decréscimo se o up
* brk_field do condition
da terminação do relatório = new_cond novos ajustados do brk_field&brk_num
= “o &brk_field<>m->&brk_field” +” .or. do “o cond_size&brk_num
= len o done_cond = o new_cond + o done_cond
do
(do new_cond) * campo da ruptura da loja ao &brk_field do variable
da memória = ao &brk_field
* zumbido acima se é break
“do zumbido um” se o zoom_no do brk_zoom&brk_num
= o zoom_no + o zoom_num de 1
= o estreptococo (zoom_no, 1) frst_child do
= lnk_var&zoom_num
selecionam o endif
do &frst_child
da busca do &zoom_num
* brk_no do number
da ruptura do incremento = brk_no + brk_num de 1
= estreptococo (brk_no, 1)
feito = brk_no do else
do &done_cond
= brk_no - brk_num de 1
= estreptococo (brk_no, 1)
* reduzir o relatório o done_cond do condition
da terminação = o
do substr (done_cond, 1+cond_size&brk_num) * zumbido para baixo se é um header
dos parâmetros do confirm
*L
function do endif
endif
&zoom_num
= estreptococo do “zumbido” o break
se zoom_no do brk_zoom&brk_num
= zoom_no - (zoom_no, 1)/>return seleto do '' definem o con_wndw da janela de 1.50 a 20.100; esquema de cor dobro 12 do
; PIA BATISMAL “Arial do
bold(realce)”, 20 && 1.2.5? , 6? , 8? , 10? , 11? , “13 '
ativam o
do con_wndw
da janela se (13-len (encabeçamento) /2) < 0
= dismsg (“erro: Encabeçamento demasiado por muito tempo. 13 o endif
@ 1.00 do ")
dos carvões animais diz que o espaço (13-len (encabeçamento) /2) + o header
@ 3.00 diz” < > < > “o
@ 3.05 menu do Br/> do No'< do alerta 3.18 do Br/> Yes'< do alerta do “@ “aos retornos do ANO do con_year
* CONTRACY do
*L
function do iif do con_wndw
return da janela da liberação do con_opt
(con_opt=1, .t., .f.) o ano do contrato como especific por Rob
* para seu num_yr AJUSTADO de ON
do SÉCULO de business.
= val (direito (dtoc (a data ()), 4))SÉCULO AJUSTADO OFF
do -1981
se val (saido (dtoc (data ()), 4)) > o num_yr de 5
= o num_yr + o message
dos parâmetros do dismsg
do num_yr
*L
function do endif
return de 1
definem o mess_wndw da janela de 10,78-6-len (mensagem) a 24.100; TÍTULO dos “mensagem do
Critters”; O FLUTUADOR PRÓXIMO DO
CRESCE O ZUMBIDO; esquema de cor 7 da sombra do
; Da espera vazia do
Arial da PIA BATISMAL do
, 20 o
ativa o mess_wndw
da janela se imprensa de “bold(realce)” (mensagem) a” toda a chave para continuar… “o message
dos parâmetros do dismsgt
*L
function do mess_wndw
endif
“
return do '' da espera do else
do
”” + mensagem +”… define o mess_wndw da janela de 0,78-6-len (mensagem) a 2.78; o esquema de cor 7
/> ativa o mess_wndw
da janela se espera vazia” imprensa do
(da mensagem) alguma chave a continuar…” ; espera do else
do intervalo de parada 2
do
”” + mensagem +”…” ;
*L
function DmsgQwQr
* do mess_wndw
endif
2
/>return do '', espera? (sim ou No.) liberação? (sim ou No.) a mensagem dos parâmetros do
, WaitReply, CloseWin
define o mess_wndw da janela de 0,78-6-len (mensagem) a 2.78; o esquema de cor 7
/> ativa o mess_wndw
da janela se WaitReply
se o
@ 0.1 (da mensagem) diz 'imprensa toda a chave continuar… do “o else
@ 0.1 do read
diz que a mensagem +”… do “o else
do endif
do read
se o
@ 0.1 (da mensagem) diz '' o else
@ 0.1 do
diz a mensagem +”… 'o endif
do endif
do
se CloseWin
*L
function dispage1
do endif
mess_wndw
/>return '' se o redisp_fld do first_page
do <> do page_no = o page_no de .t.
= o first_page
fazem o disscr
se direito (o sistema (16.3), 8) = “USDA.FXP " o
faz o getfldA com o” .t. “o
faz o getfldB com o” .t. “o else
do
faz o getfld com edit_txt
*L
function do endif
gets
return de” .t. “o endif
que do
desobstruído do '' definir o txt_wndw da janela de 1.0 a 24.79; título “CÓPIA do
A SELECIONAR (ESC a retirar)”; o flutuador do zumbido do sistema do
cresce o esquema de cor próximo 11
se o Br/> do Yy'< de $ o mais akl_test 'modifica o && do txt_wndw da janela da lima gentemp.gtx .gtx = else
de GeneralTeXt
modifica o && do txt_wndw da janela do noedit da lima gentemp.gtx .gtx = de endif
de GeneralTeXt
o txt_wndw
return do '' end_rpt
da janela da liberação
*L
function se outp_dev = “laser de” outp_dev .or = 'o Br/> do dot'< se (sistema (16.3), 11) o <> direito “P_CONTR.FXP” .and. ; o
endireita (sistema (16.3), 10) o <> “P_INVO.FXP” .and. ; o
endireita (sistema (16.5), 12) o <> “P_SUBRNT.FXP” .and. ; o
endireita (sistema (16.5), 10) o Br/> de P_BIDS.FXP'< do <> 'se .not. ((direito (sistema (16.3), 12) = “P_LABELS.FXP” .or. ; o
endireita (sistema (16.3), 12) = “P_LABLS1.FXP” .or. ; o
endireita (sistema (16.3), 12) = “P_LABLS2.FXP ") .and. ;
(m.group = 2 .or m.group = 3 .or m.group = 4 .or m.group = 5))endif
se o outp_dev = 'dispositivo ajustado ajustado do endif
do to
da impressora do Br/> do file'< screen
* de/>
a/>return ajustado o '' endireita (sistema (16.4), 10) do endif
do endif
do eject
do
&& do <> “P_BIDS.FXP o” (akl) 6/02/99 de pm
* .and do 0:33. ; o
* do && 2/20/94 (akl) endireita (sistema (16.3), 12) o <> 'o envrnmnt
do Br/>
*L
function de P_LABELS.FXP'< no erro faz o errfix com erro (), mensagem (), mensagem (1), program (), decimais ajustados ajustados ajustados do on
do console do off
do sino do
que do lineno () ao dispositivo ajustado exclusivo ajustado exato ajustado suprimido jogo do off
do off
do on
de 10
aos multilocks ajustados do screen
o jogo do off
refresca ao jogo de 0
reprocess 1
*L
function do databases
off
off
a/>return próximo ajustado ajustado do '',o errormsg, errormsg1, prgname, err_wndw
da janela da liberação do lineno
* faz o errnum do caso do case
= lima de 108 && no uso pelo another
se confirmar (“lima no uso, nova tentativa? else
do retry
do ")
se wexist (do “endif
da janela da liberação do ")
chkf_wndw/> = retorno do
do restenv () ao errnum do caso do endif
do &callmenu
= 109 fechados record do && pelo another
se confirmar (“registro no uso, nova tentativa? retorno do else
do retry
do ")
ao endif
do mainproc
* retornar ao errnum do caso do &
= lima de 110 && no uso pelo another
= dismsg (a “lima tem que ser retorno exclusivamente opended do ")
ao on
do esca do otherwise
*set do &callmenu
define o err_wndw da janela de 15.3 a 50.170; PIA BATISMAL “Arial do
bold(realce)”, 16; o
do esquema de cor 2
/> ativa o err_wndw
@ 0.0 da janela diz de “o número erro: ” + ltrim (estreptococo (errnum))o
@ 1.0 diz de “a mensagem erro: ” + o errormsg
@ 2.0 diz “a linha de texto: ” + errormsg1
@ 3.0 dizem “o nome de programa: ” + o prgname
@ 4.0 diz “a linha número: ” + ltrim (estreptococo (lineno))o
@ 5.0 diz o “objeto: ” + 2018)
= dismsg (“explode
parameters m_row1
*L
function do endcase
off
*set err_wndw
")
return do '', m_col1, m_row2, m_col2, m_cnt, m_type
* m_row1 = canto de mão esquerda superior de box.
* m_col1 = canto righthand superior de box.
* m_row2 = um mais baixo canto da mão esquerda de box.
* m_col2 = um mais baixo direito teve o canto do m_cnt de box.
* = do número de etapas para a explosão determina a velocidade que encaixotam o m_type de explodes.
* = o tipo de explosion.
* 1 = todos os lados explodem imediatamente. o
* 2 = somente os lados explode.
* 3 = somente a parte superior e a parte inferior explode.
* 4 = explode. do
* 5 = explode da parte inferior a top.
* 6 = explode da esquerda para a direita. o
* 7 = explode da direita para a esquerda. a tela do explode
save do
public ao explode
r_pos1 = m_row1
r_pos2 = m_row2
c_pos1 = m_col1
de/>c_pos2 = de m_col2
do = 1 && toda a loja de sides.
((m_row2-m_row1) /2) +m_row1 a r_pos1, loja do center
da fileira do && r_pos2 ((m_col2-m_col1) /2) +m_col1 a c_pos1, r_cnt do center
da coluna do && c_pos2 = (r_pos1-m_row1) c_cnt do increment
da fileira do && de /m_cnt = (c_pos1-m_col1) m_type do caso do increment
da coluna do && de /m_cnt = 2 a loja dos lados only.
do && ((m_col2-m_col1) /2) +m_col1 a c_pos1, c_cnt do center
da coluna do && c_pos2 = (c_pos1-m_col1) m_type do caso do increment
da coluna do && de /m_cnt = a parte superior de 3 && e o bottom
armazena ((m_row2-m_row1) /2) +m_row1 a r_pos1, r_cnt do center
da fileira do && r_pos2 = (r_pos1-m_row1) m_type do caso do increment
da fileira do && de /m_cnt = o
de 4 && r_cnt de r_pos2 = de m_row1
= (m_row2-m_row1) m_type do caso do increment
da fileira do && de /m_cnt = parte inferior de 5 && ao top
r_cnt de r_pos1 = de m_row2
= (m_row2-m_row1) m_type do caso do increment
da fileira do && de /m_cnt = o && 6 deixado ao right
c_cnt de c_pos2 = de m_col1
= (m_col2-m_col1) m_type do caso do increment
da fileira do && de /m_cnt = direita de 7 && ao left
c_cnt de c_pos1 = de m_col2
= (m_col2-m_col1) increment
endcase
do da fileira do && de /m_cnt quando r_pos1 <= m_row2 .and do >= m_row1 .and r_pos2. ; <= m_col2
@ r_pos1 do >= m_col1 .and c_pos2 do
c_pos1, c_pos1, r_pos2, caixa “im do c_pos2;: faz o m_type do caso do case
= o 1
r_pos1 = r_pos1 - r_cnt
r_pos2 = r_pos2 + r_cnt
c_pos1 = c_pos1 - o c_cnt
c_pos2 = c_pos2 + m_type do caso do c_cnt
= 2
c_pos1 = c_pos1 - c_cnt
c_pos2 = c_pos2 + m_type do caso do c_cnt
= 3
r_pos1 = r_pos1 - o r_cnt
r_pos2 = r_pos2 + m_type do caso do r_cnt
= 4
r_pos2 = r_pos2 + m_type do caso do r_cnt
= 5
r_pos1 = r_pos1 - m_type do caso do r_cnt
= 6
c_pos2 = c_pos2 + m_type do caso do c_cnt
= 7
c_pos1 = c_pos1 - o endcase
enddo
clear
*@ m_row1 do c_cnt
,m_col1, m_row2, caixa “im do m_col2;:
* do
*L
function de/>
return '' (akl) 5/11/99 de pm
* do 3:27 o seguinte SE a indicação foi removida para permitir que a mensagem do filtro seja displayed.
* se .not. ((direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireitam (dbf (), 12) = “CRITDOGS.DBF ") .or. ; o
(direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireita (dbf (), 12) = o
de “CRITCATS.DBF ")) ativa o endif
do screen
* se .not esvaziam (o filtro ())o
@ 0.70 diz o “filtro” no else
* da cor w+/n
(akl) 5/11/99 de pm
* do 3:27 o seguinte SE a indicação foi mudada para indicar o canto da Direito-Parte superior da caixa. o
faz a direita do caso do case
(sistema (16.2), 12) = “CRITTERS.FXP” .and para a direita (dbf (), 12) = de “o Br/> CRITDOGS.DBF'< se PrimDisp
@ 0.70 diz “ÍÍÍÍÍÍÍÍÍ do " else
@ 0.70
dizem “ÍÍÍÍÍÍÍÍÍ” “direita do caso do endif
do
(sistema (16.2), 12) = “CRITTERS.FXP” .and para a direita (dbf (), 12) = de “o Br/> CRITCATS.DBF'< se PrimDisp
@ 0.70 diz que o else
@ 0.70 do
do espaço (09) diz “ÍÍ” “otherwise
do endif
do
de +space (06) @ 0.70 dizem o endif
do endcase
do
do espaço (09) se aliás () = do “o Br/> BIDS'< se o tipo (“s_recon_date ") = do “o Br/> se o
@ 0 (do s_recon_date), 1 diz o else
@ 0 do
do espaço (25), 1 D'< diz “a data Recon: de “endif
do endif
do endif
da cor w+/n
+dtoc (s_recon_date) se .not. ((direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireitam (dbf (), 12) = “CRITDOGS.DBF ") .or. ; o
(direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireita (dbf (), 12) = o
de “CRITCATS.DBF ")) * (akl) 4/10/99 de pm
do 11:43 * adicionado se indicação para a seguinte circunstância: 2/M/F5/N/Z
* A tela dos dados é apagada e uma tela do usuário é activated.
* problema ocorre SOMENTE ao Quente-Fechar das ofertas a Zoom.
do cão dos Critters * nenhum usuário que a tela é ativada porque a quantidade de dados não caberá no a
* tela do usuário. O desktop é usado assim. (ativar a tela).
se .not. (sistema (16.5) = “…” em .and. ; o
endireita (sistema (16.6), 8) = “BIDS.FXP” .and. ; o
endireita (dbf (), 12) = o fltrstar
*L
function do endif
/>
usr_wndw&page_num
return de “CRITDOGS.DBF”) o
ativa do '' ativa o screen
se .not esvaziam (o filtro ())o
@ 0.70 diz o “filtro” no else
@ 0.70 da cor w+/n
diz que o endif
do
do espaço (09) ativa o endif
EditFld do
do retorno do
do dbf do usr_wndw
return do '' org_alias confidenciais dos parâmetros prm1
do genhlp
*L
function, org_alias do hlp_topic
= aliás () o
se “GENHLP.DBF” $ da janela () '' =. O roubo do && do F. quer TODO edita campos (do memorando) para apontar o
do am do 1:53 da mensagem 1/10/97 da ajuda do && do same
(akl) se o
hlp_topic = o else
do prog_name
se vazio (sistema (18))
hlp_topic = else
de prm1
hlp_topic =
do sistema (18) se tipo (“&hlp_topic ") = “Br/> EditFld do M'< =. O endif
do endif
do endif
de T.
se lima de .not (de “")
genhlp.DBF se lima de .not (“")
= dismsg (de “retorno não encontrado '' else
0
do ")
do
criam o genhlp do on
do genhlp
do uso do endif
0
do endif
do use
de genhlp.str
se EditFld
localiza para a guarnição (tópico) = do “o else
do Br/> BID'< localiza para a guarnição (tópico) = o off
do endif
do hlp_topic
se o
do eof () se o modi_memo
adiciona o blank
=
* do rlock () substitui o tópico com && prm1 é este um erro?? o
substitui o tópico com o && hlp_topic se sim, isto pode ser o reparo!! o && do
a tela onde um campo tem não o && do yet
escolhido (A ou M), substituem um blank.
substitui a testa com os 7, bcol com 10; o erow com 16, ecol do
com && do else
do unlock
de 70
nenhuma ajuda disponível - ignorar ou alertar msg??? endif
do endif
do retorno do
do '' se o modi_memo
define o help_wndw da janela da testa, bcol ao erow, ecol; título “AJUDA do
(ESC à saída ou ao F10 a conservar)”; o flutuador do zumbido do sistema do
cresce o else
do esquema de cor 11
define o help_wndw da janela da testa, bcol ao erow, ecol; título “AJUDA do
(ESC à saída)”; o endif
do esquema de cor 11
/> se o modi_memo
se o
do rlock () na etiqueta chave F10 faz o sav_wind com “AJUDA (ESC a retirar ou F10 a conservar) “
modifica o unlock
do help_wndw
da janela dos detalhes do memorando no else
/> = dismsg (da “o registro ajuda no uso, else
do endif
do ")
da nova tentativa modifica o use
do endif
do help_wndw
da janela do noedit dos detalhes do memorando se!
do getgrid
* VARIABLES
*L
function do help_wndw
endif
&org_alias
/>return seleto vazio (dos org_alias) do '' confidencial tudo como a escolha do prompt*
= o 0
prompt1 =” vai o “
prompt2 =
” de Modi o “prompt3 =
* WINDOWS
define a janela MAINTMNU de 22.0 a 24.79; o título” grade do
comanda o menu”; o esquema de cor 2
/>
* SCREEN
ativa o noshow
* 1 da janela MAINTMNU 2 3
@ 0, 1 diz que “vai o Br/>*L
do Quit'< de Modi na etiqueta chave F7 faz o genhlp com o USUÁRIO que do && do programa () HELP
ativa a janela MAINTMNU
@ 0, 1-1 prompt1
@ 0, 4-1 prompt2
@ 0, 9-1 o menu alerta de prompt3
ao choice
faz a escolha do caso do case
= a opção de MAINTMNU
da janela da liberação de 0
= “escolha da caixa do Br/> do quit'< = opção de 1
= do “escolha da caixa do Br/> go'< = opção de 2
= “escolha da caixa do Br/> do modify'< = a opção de MAINTMNU
da janela da liberação de 3
= do “o endcase
do Br/> quit'< desativa o option
*L
function getgrid2
* GetGrid2 de MAINTMNU
return da janela tem o comando seleto (de Sel) adicionado ao choice
do pm
* VARIABLES
do 6:03 da lista 3/21/96 confidencial tudo como a escolha do prompt*
= o 0
prompt1 =” vai o “
prompt2 =
” de Modi o “prompt3 =
” de Sel o “prompt4 =
* WINDOWS
define a janela MAINTMNU de 22.0 a 24.79; o título” grade do
comanda o menu”; o esquema de cor 2
/>
* SCREEN
ativa o noshow
* 1 da janela MAINTMNU 2 3 4
@ 0, 1 diz que “vai o Br/>*L
do Quit'< de Modi Sel na etiqueta chave F7 faz o genhlp com o USUÁRIO que do && do programa () HELP
ativa a janela MAINTMNU
@ 0, 1-1 prompt1
@ 0, 4-1 prompt2
@ 0, 9-1 prompt3
@ 0.13-1 o menu alerta de prompt4
ao choice
faz a escolha do caso do case
= a opção de MAINTMNU
da janela da liberação de 0
= “escolha da caixa do Br/> do quit'< = opção de 1
= do “escolha da caixa do Br/> go'< = opção de 2
= do “a escolha da caixa do Br/> modify'< = a opção de 3
= “escolha da caixa do Br/> do select'< = opção de MAINTMNU
da janela da liberação de 4
= do “o endcase
do Br/> quit'< desativam o getsel
do option
*L
function de MAINTMNU
return da janela na etiqueta chave F7 fazem o genhlp com
do sistema (18) fazem a direita do caso do case
(sistema (16.2), 12) = de” <> do zoom_num .and “que “de CRITTERS.FXP 1 '
faz a direita do caso de maintmnu2
(sistema (16.2), 12) = ' CONTRACT.FXP” .or para a direita (sistema (16.2), 11) = ' INVOICE.FXP” .or. ; o
endireita (sistema (16.2), 11) = ' ANIMALS.FXP” .or para a direita (sistema (16.2), 08) = ' BIDS.FXP” .or. ; o
endireita (sistema (16.3), 08) = ' CREW.FXP” .or para a direita (sistema (16.2), 12) = ' CRITTERS.FXP” .or. ; o
endireita (sistema (16.3), 07) = ' DHR.FXP” .or para a direita (sistema (16.3), 08) = ' ACTS.FXP” .or. ; o
endireita (sistema (16.3), 10) = ' AGENCY.FXP” .or para a direita (sistema (16.3), 08) = ' JOBS.FXP” .or. ; o
endireita (sistema (16.3), 08) = ' MAPS.FXP” .or para a direita (sistema (16.3), 11) = ' MEASURE.FXP” .or. ; o
endireita (sistema (16.3), 11) = ' PAYABLE.FXP” .or para a direita (sistema (16.3), 10) = ' PRICES.FXP” .or. ; o
endireita (sistema (16.3), 12) = ' PRODUCTN.FXP” .or para a direita (sistema (16.3), 10) = ' PETSHP.FXP” .or. ; o
endireita (sistema (16.3), 11) = ' RECEIVE.FXP” .or para a direita (sistema (16.3), 11) = ' SUBRENT.FXP” .or. ; o
endireita (sistema (16.3), 08) = ' USDA.FXP” .or para a direita (sistema (16.3), 12) = ' HELTHCRT.FXP” .or. ; o
endireita (sistema (16.3), 09) = ' o Br/>
de ADOPT.FXP'< faz o && maintmnu4 adicionou o menu para 'a direita da caixa do Br/>
do Go'< (sistema (16.3), 9) = 'o Br/> de SETUP.FXP'< faz o otherwise
de maintmnu5
faz o *
* do
* do ****** do do ********** do do ********** do do ********** do do ********** do do ************************** do option
*L
do endcase
return do maintmnu
para CRITTERS que o menu padrão da manutenção é substituído com: dismsg do *
= do *
* do *
* MAINTMNU.prg do *
* (de “erro Crit # 1 - código não ativado. o
do ****** do do ********** do do ********** do do ********** do do ********** do do ************************** do ")
(do getsel) ativa mensagem ajustada do screen
da dimensão filt_bar scrn_bar addr_bar edit_bar recs_bar recd_bar data_bar do
da dimensão do
da dimensão do
da dimensão do
da dimensão do
da dimensão do
da dimensão do
da dimensão do
do actn_pad da dimensão de 0
(8.2)
(3) (3) (3) (2) (3) (2) (2) (ao 1) * definir a almofada em cada actn_pad do popup
(1.1) = 'BASE DE DADOS 'actn_pad do
(2.1) = 'REGISTRO 'o actn_pad do
(3.1) = o actn_pad do
'dos REGISTROS '(4.1) = o actn_pad do
'do EDIT '(5.1) = 'o actn_pad do Br/> do ADD'< (6.1) = 'TELA 'actn_pad do
(7.1) = 'FILTRO 'actn_pad do
(8.1) = 'PAROU 'o actn_pad do
(1.2) = 'BASE DE DADOS 'actn_pad do
(2.2) = 'REGISTRO 'actn_pad do
(3.2) = 'GRAVA 'o actn_pad do
(4.2) =
(5.2) = 'o actn_pad do Br/> do ADD'< (6.2) = o actn_pad de/> (7.2) = o actn_pad do
'do FILTRO '(8.2) = 'PAROU 'o
data_bar (1) = o
'da lista 'data_bar (2) = o
'do zumbido 'data_bar (3) = o
* 'do registro 'data_bar (4) = o
recd_bar (1) = 'o Br/> do Retrieve'< recd_bar (2) = 'em seguida 'o
recd_bar (3) = 'o Br/> do Previous'< recs_bar (1) = 'começa 'o
recs_bar (2) = o
'da extremidade 'recs_bar (3) = o
'da faixa clara ' edit_bar (1) = 'modificar 'o
edit_bar (2) = 'editam o Br/> do Memo'< addr_bar (2) = o
'da supressão 'addr_bar (3) = o
'da cópia 'scrn_bar (1) = 'o Br seguinte/> do Page'< scrn_bar (2) = 'o Br/> do Page'< de Prev filt_bar (1) = 'ajustam o
do filtro 'filt_bar (2) = 'o
do filtro do cancelamento 'quit_bar (1) = actn_pad 'parado 'da barra de menu do
, menu 1 de 8
, data_bar, menu 2 de 3
, recd_bar, menu 3 de 3
, recs_bar, 3
menu 4, edit_bar, 2
menu 5, addr_bar, 3
menu 6, scrn_bar, 2
menu 7, filt_bar, 2
menu 8, 1
@ 24.0 dizem o
do espaço (80) leu a barra de menu ao sele_row, clear
do save
do sele_col fazer o sele_row do caso do case
= o opt_sel de 1
= sele_row data_bar do caso do
(do sele_col) = opt_sel de 2
= sele_row recd_bar do caso do
(do sele_col) = opt_sel de 3
= sele_row recs_bar do caso do
(do sele_col) = opt_sel de 4
= sele_row edit_bar do caso do
(do sele_col) = opt_sel de 5
= addr_bar (sele_col) sele_row do caso do
= opt_sel de 6
= sele_row scrn_bar do caso do
(do sele_col) = opt_sel de 7
= opt_sel filt_bar do otherwise
do
(do sele_col) = 'endcase
do Br/> do Quit'< se o Br/> @ 0.1 do Quit'< do <> do opt_sel 'diz a parte superior (guarnição (o opt_sel)) o endif
da cor w+/n
ativa o usr_wndw&page_num
return da janela mais baixo (guarnição (o opt_sel))o getseli
do
*L
function ativa mensagem ajustada do screen
da dimensão filt_bar scrn_bar recd_bar data_bar do
da dimensão do
da dimensão do
da dimensão do
da dimensão do
do actn_pad da dimensão de 0
(5.2)
(4) (7) (2) (2) (ao 1) * definir a almofada em cada actn_pad do popup
(1.1) = 'BASE DE DADOS 'actn_pad do
(2.1) = 'REGISTRO 'actn_pad do
(3.1) = 'TELA 'actn_pad do
(4.1) = 'FILTRO 'actn_pad do
(5.1) = o actn_pad 'PARADO 'do
(1.2) = 'BASE DE DADOS 'o actn_pad do
(2.2) = o actn_pad do
'do REGISTRO '(3.2) = o actn_pad do
'da TELA '(4.2) = o actn_pad do
'do FILTRO '(5.2) = “PAROU “o
* data_bar (1) = iif (no_zooms = zoom_no,” \ -”, do “o ")
zumbido data_bar (1) = o
'da lista 'data_bar (2) = o
'do registro 'data_bar (3) = o
'do zumbido 'data_bar (4) = 'parou 'o
recd_bar (1) = 'o Br/> do Retrieve'< recd_bar (2) = 'Em seguida 'o
recd_bar (3) = 'o Br/> do Previous'< recd_bar (4) = 'começa 'o
recd_bar (5) = o
'da extremidade 'recd_bar (6) = o
'da faixa clara 'recd_bar (7) = o
'do memorando 'scrn_bar (1) = 'o Br seguinte/> do Page'< scrn_bar (2) = 'o Br/> do Page'< de Prev filt_bar (1) = 'ajustou o Br/> do Filter'< filt_bar (2) = 'o Br/> do Filter'< do cancelamento quit_bar (1) = actn_pad 'parado 'da barra de menu do
, menu 1 de 5
, data_bar, menu 2 de 4
,recd_bar, 7
menu 3, scrn_bar, 2
menu 4, filt_bar, 2
menu 5, 1
@ 24.0 dizem o
do espaço (80) leu a barra de menu ao sele_row, clear
do save
do sele_col fazer o sele_row do caso do case
= o opt_sel de 1
= sele_row data_bar do caso do
(do sele_col) = opt_sel de 2
= sele_row recd_bar do caso do
(do sele_col) = opt_sel de 3
= sele_row scrn_bar do caso do
(do sele_col) = opt_sel de 4
= opt_sel filt_bar do otherwise
do
(do sele_col) = 'o endcase
do Br/> do Quit'< se o Br/> @ 0.1 do Quit'< do <> do opt_sel 'diz parte superior (guarnição (opt_sel)) o endif
da cor w+/n
ativa o usr_wndw&page_num
return da janela mais baixo (guarnição (o opt_sel))o getselr
do
*L
function na etiqueta chave F7 faz o genhlp com
do sistema (18) faz o *
* do
* do ****** do do ********** do do ********** do do ********** do do ********** do do ************************** de maintmnu3
return
para CRITTERS que o menu padrão da manutenção é substituído com: dismsg do *
= do *
* do *
* MAINTMNU.prg do *
* (de “erro Crit # 1 - código não ativado. o
do ****** do do ********** do do ********** do do ********** do do ********** do do ************************** do ")
(do getselr) ativa mensagem ajustada do screen
da dimensão filt_bar scop_bar recs_bar recd_bar data_bar prnt_bar do
da dimensão do
da dimensão do
da dimensão do
da dimensão do
da dimensão do
da dimensão do
do actn_pad da dimensão de 0
(7.2)
(3) (3) (2) (3) (3) (2) (ao 1) * definir a almofada em cada actn_pad do popup
(1.1) = o actn_pad do
'da CÓPIA '(2.1) = o actn_pad do
'da BASE DE DADOS '(3.1) = 'GRAVAR 'o actn_pad do
(4.1) = 'GRAVA 'o actn_pad do
(5.1) = o actn_pad do
'do ESPAÇO '(6.1) = o actn_pad do
'do FILTRO '(7.1) = o actn_pad 'PARADO 'do
(1.2) = o actn_pad do
'da CÓPIA '(2.2) = o actn_pad do
'da BASE DE DADOS '(3.2) = o actn_pad do
'do REGISTRO '(4.2) = 'GRAVA 'o actn_pad do
(5.2) = o actn_pad do
'do ESPAÇO '(6.2) = o actn_pad do
'do FILTRO '(7.2) = o
prnt_bar (1) = 'à impressora '
prnt_bar (2) = 'à lima '
prnt_bar (3) = 'ao
* 'do status 'da tela 'o
* prnt_bar (4) = 'o Br/>* do Report'< da cópia prnt_bar (5) = prnt_bar (6) = 'parou 'o
data_bar (1) = o
'da lista 'data_bar (2) = o
'do registro 'data_bar (3) = 'o Br/>
do Status'< recd_bar (1) = 'em seguida 'o
recd_bar (2) = 'o Br/>
do Previous'< recs_bar (1) = 'começa 'o
recs_bar (2) = o
'da extremidade 'recs_bar (3) = o
'da faixa clara 'scop_bar (1) = ''do
scop_bar (2) = 'para gravar 'o
scop_bar (3) = 'o
do espaço do cancelamento 'filt_bar (1) = 'ajustou o
do filtro 'filt_bar (2) = 'o
do filtro do cancelamento 'quit_bar (1) = actn_pad 'parado 'da barra de menu do
, menu 1 de 7
, prnt_bar, menu 2 de 3
, data_bar, menu 3 de 3
, recd_bar, menu 4 de 2
, recs_bar, o menu 5 de 3
, scop_bar, menu 6 de 3
, filt_bar, menu 7 de 2
, quit_bar, 1
leu a barra de menu ao sele_row, clear
do save
do sele_col faz o sele_row do caso do case
= o opt_sel de 1
= sele_row prnt_bar do caso do
(do sele_col) = opt_sel de 2
= sele_row data_bar do caso do
(do sele_col) = opt_sel de 3
= sele_row recd_bar do caso do
(do sele_col) = opt_sel de 4
= sele_row recs_bar do caso do
(do sele_col) = opt_sel de 5
= sele_row scop_bar do caso do
(do sele_col) = opt_sel de 6
= o otherwise
do
(do sele_col) opt_sel = 'endcase
do Br/> do Quit'< se o Br/> @ 0.1 do Quit'< do <> do opt_sel 'diz a parte superior (guarnição (o opt_sel)) o endif
da cor w+/n
ativa o usr_wndw
return da janela mais baixo (guarnição (o opt_sel))o init_rpt
do
*L
function faz o outp_dev do caso do case
= movimento direito do && do <> “P_LABELS.FXP” do “laser” outp_dev de .or = 'o Br/> do dot'< se outp_dev = 'cópia ajustada do Br/> do dot'< ao endif
de LPT1
se outp_dev = 'o Br/> do laser'< se (sistema (16.3), 12) a 95. Mudar isto quando possible.
se o akl_system $ 'cópia ajustada do Br/> do Y'< a cópia ajustada do else
de LPT1
ao endif
do endif
do endif
de LPT1
se direito (sistema (16.3), 12) = 'o Br/>* de P_LABELS.FXP'< se o grupo = 1 grupo de .or = grupo de 2 .or = 3 comentou porque o there
* não é mais impressora de ponto. 4/11/2000 de
* do
* do pm do 9:57 (akl) 12/31/98 de 4:31 pm) (akl - eu estou removendo este se indicação. Eu não sei realmente porque eu a põr in.
* que eu me contradisse. Ver precedente SE indicação, apenas abaixo do “laser”. O
* após uma estadia longa, remove este SE e a EXTREMIDADE statements.
* se (sistema (16.3), 12) movimento direito do && do <> “P_LABELS.FXP” a 95. Mudar isto quando possible.
se cópia ajustada do Br/> do Y'< de $ do akl_system 'a cópia ajustada do else
de LPT1
ao endif
do endif
do endif
* do endif
* de LPT1
se direito (sistema (16.3), 11) = “P_CONTR.FXP” .or. ; o
endireita (sistema (16.3), 10) = “P_INVO.FXP” .or. ; o
endireita (sistema (16.3), 12) = 'o Br/> de P_SUBRNT.FXP'< se a cópia ajustada do Br/> do Y'< de $ do akl_system 'a cópia ajustada do else
de LPT1
ao endif
do endif
de LPT1
faz quando o sistema (13) = do “o Br/> @ 0.0 OFFLINE'< disser que” a impressora por favor ajustada na linha… do “s_readkey do read
=
do readkey () se o s_readkey = um s_readkey de 268 .or = um escape de 12 && era dispositivo ajustado do pressed
ao enddo
@ 0,0
@ 0.0 do endif
do return
do off
da cópia do on
do console do screen
diz” a impressão - ESC a parar 'dispositivo ajustado do
ao printer
se outp_dev = 'o Br/> do laser'< * mover-se para 95. Mudar isto quando possível. < - por que? 11/14/01
se (sistema (16.3), 12) <> direito “P_LABELS.FXP” .and. ; o
endireita (sistema (16.5), 10) o off
que do console do Br/> de P_BIDS.FXP'< do <> 'o on
* @ 0.0 da cópia diz que o chr (27) + && de " E” inicializa o printer
?? o chr (27) + outp_dev ajustado ajustado do caso do endif
do endif
do on
do console do off
da cópia do
de " E " = do “o Br/> @ 0,0
@ 0.0 file'< diz” a impressão - ESC para parar 'impressora ajustada do
para arquivar dispositivo ajustado do &rep_file
para arquivar o outp_dev do caso do &rep_file
= do “o Br/> @ 0,0
@ 0.0 screen'< diz” a impressão - ESC para parar do “impressora ajustada
para arquivar dispositivo ajustado de gentemp.gtx
para arquivar o akl do ********** de gentemp.gtx
: As linhas adicionaram para parar o into
do caráter de TOF ejetam a lima do && como primeiramente o caráter. 8/01/98 de dispositivo ajustado ajustado do to
da impressora do am
do 1:18 a impressora ajustada do screen
para arquivar dispositivo ajustado de gentemp.gtx
para arquivar o page_no do endcase
do
do ********** de gentemp.gtx
= o line_no de 1
= o off
do console do top_margin
lnk_var = o ''
vão o first_rec
se .not esvaziam (o filtro ())o filter_str do
= o
do filtro () se o brk_no do endif
do endif
do skip
do &filter_str
de .not = o brk_num de 1
= “1 '
feito = at_top do &done_cond
= .t.
return '' choice
do maintmnu
* VARIABLES
do
*L
function confidencial tudo como a escolha do prompt*
= o 0
prompt1 =” adicionam “o
prompt2 =” imploram “o
prompt3 =” cópia “
prompt4 =” Del “
prompt5 =” extremidade “
prompt6 =” Filt “
prompt7 =” lista “
prompt8 =” Modi “
prompt9 =” em seguida o “
prompt10 =
” de Prev o “prompt11 = prompt12 =” Ret o “
prompt13 =
” da faixa clara o “prompt14 =
” do registro o “prompt15 =
* WINDOWS
” do zumbido o “define a janela MAINTMNU de 22.0 a 24.79; o título” manutenção do
comanda o menu”; o esquema de cor 2
/>
* SCREEN
* comentou para VFP
SE. F.
ativam o noshow
* 1 da janela MAINTMNU 2 3 4 5 6 7 8 9 10 11 12 13 14 15
@ 0, 1 diz que 'adicionar imploram a lista Modi que de Cópia Del Extremidade Filt Prev seguinte parado Ret o Br/> ENDIF
* do Zoom'< do registro da faixa clara comentou para a CHAVE de FUNÇÃO ASSIGNMENT
*L
*/> na etiqueta chave F7 faz o genhlp com o USUÁRIO do && do programa () HELP
faz o prog_name do caso do case
= o
do “CALENDÁRIO " na etiqueta chave F2 faz o mntmnuf com 2
na etiqueta chave F10 faz o mntmnuf com otherwise
de 10
na etiqueta chave F2 faz o mntmnuf com 2
na etiqueta chave F8 faz o mntmnuf com 8
na etiqueta chave F9 fazem o mntmnuf com 9
na etiqueta chave F10 fazem o mntmnuf com 10
na etiqueta chave F11 fazem o mntmnuf com o endcase
* de 11
adicionado para o
de VFP fazem o s_choice de DispMenu
= a escolha do mChoice
= o mChoice
* comentaram para VFP
SE. F.
ativam a janela MAINTMNU
@ 0, 1-1 prompt1
@ 0, 5-1 prompt2
@ 0, 9-1 prompt3
@ 0.14-1 prompt4
@ 0.18-1 prompt5
@ 0.22-1 prompt6
@ 0.27-1 prompt7
@ 0.32-1 prompt8
@ 0.37-1 prompt9
@ 0.42-1 prompt10
@ 0.47-1 prompt11
@ 0.52-1 prompt12
@ 0.56-1 prompt13
@ 0.61-1 prompt14
@ 0.67-1 que o menu alerta de prompt15
ao choice
ENDIF
* comentou para VFP
faz a escolha do caso do case
= a opção de MAINTMNU
da janela da liberação de 0
= 'escolha da caixa do Br/> do quit'< = 1
= 'escolha da caixa do Br/> do add'< = opção de 2
= 'escolha da caixa do Br/> do begin'< = opção de 3
= 'escolha da caixa do Br/> do copy'< = opção de 4
= 'escolha da caixa do Br/> do delete'< = opção de 5
= 'escolha da caixa do Br/> do end'< = 6
define o fil_wndw da janela de 1.50 a 6.77 que o esquema de cor dobro 12
ativa o encabeçamento do fil_wndw
da janela = 'o Br/> @ 1.00 do Filter'< diz que o espaço (13-len (encabeçamento) /2) + o header
@ 3.04 diz 'o Br/> do '< do @ 3.05 menu do Br/> do Cancel'< do alerta 3.16 do Br/> do Set'< do alerta '@ 'ao fil_opt
se o fil_opt = a opção de 1
= 'ajustaram o endif
do Br/> do filter'< se fil_opt = opção de 2
= 'escolha do caso do fil_wndw
da janela da liberação do endif
do Br/> do filter'< do cancelamento = opção de 7
= 'escolha da caixa do Br/> do list'< = opção de 8
= 'escolha da caixa do Br/> do modify'< = opção de 9
= 'escolha da caixa do Br/> do next'< = opção de 10
= 'escolha da caixa do Br/> do previous'< = opção de MAINTMNU
da janela da liberação de 11
= 'escolha da caixa do Br/> do quit'< = opção de 12
= 'escolha da caixa do Br/> do retrieve'< = opção de 13
= 'escolha da caixa do Br/> do skip'< = 14
a opção = do “escolha da caixa do Br/> tally'< = opção de 15
= “o endcase
do Br/> do zoom'< desativa o option
* de MAINTMNU
return da janela - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - o mntmnuf
parameter KeyF_no
do
function faz o caso KeyF_no = 2
do case
KeyF2 =. Caso KeyF_no = 5
de T.
KeyF5 =. Caso KeyF_no = 8
de T.
KeyF8 =. Caso KeyF_no = 9
de T.
KeyF9 =. Caso KeyF_no = 10
de T.
KeyF10 =. Caso KeyF_no = 11
de T.
KeyF11 =. O s_FkeyRec do endcase
de T.
= o s_prgname do
do recno () = o choice
do plain
return
*L
function maintmnu2
* VARIABLES
do chr do teclado do prog_name
(113) confidencial tudo como a escolha do prompt*
= o 0
prompt1 =” Modi “
prompt2 =” param “o
prompt3 =” Del “
prompt4 =” Filt “
* se ((direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireitam (dbf (), 12) = “CRITDOGS.DBF ") .or. ; o
* (direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireita (dbf (), 12) = o
de “CRITCATS.DBF ")) prompt5 = prompt6 = o endif
* WINDOWS
* define a janela MAINTMNU de 22.0 a 24.79; o título” manutenção do
comanda o menu (zumbido)”; o esquema de cor 2
/>
* SCREEN
NA ETIQUETA CHAVE Alt+F12 SUSPEND
ativa o noshow
* 1 da janela MAINTMNU 2 3 4 5 6
@ 0, 1 diz 'o Br/>
do Secondary'< de Del Filt Preliminar de Modi Parada se ((direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireitam (dbf (), 12) = “CRITDOGS.DBF ") .or. ; o
(direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireita (dbf (), 12) = o
de “CRITCATS.DBF ")) * 1 2 3
* 123456789012345678901234567890123456
@ 0, 1 diz 'o Br/> do Secondary'< de Del Filt Preliminar de Modi Parada * alerta: 1 2 3 4 5 endif
*L
de 6
na etiqueta chave F2 faz mntmnuf22
na etiqueta chave F7 faz o genhlp com o USUÁRIO HELP
do && do programa () se ((direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireitam (dbf (), 12) = “CRITDOGS.DBF ") .or. ; o
(direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireita (dbf (), 12) = “CRITCATS.DBF ")) na etiqueta chave PgDn faz DispSecn
na etiqueta chave PgUp faz o endif
de DispPrim
ativa a janela MAINTMNU
@ 0, 1-1 prompt1
@ 0, 6-1 prompt2
@ 0.11-1 prompt3
@ 0.15-1 prompt4
se (direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireitam (dbf (), 12) = “CRITDOGS.DBF ") .or. ; o
endireita (sistema (16.2), 12) = “CRITTERS.FXP” .and para a direita (dbf (), 12) = o
de “CRITCATS.DBF ")) @ 0.20-1 prompt5
@ 0.28-1 que o menu alerta do endif
de prompt6
ao choice
faz a escolha do caso do case
= a opção de MAINTMNU
da janela da liberação de 0
= 'escolha da caixa do Br/> do quit'< = opção de 1
= 'escolha da caixa do Br/> do modify'< = opção de MAINTMNU
da janela da liberação de 2
= 'escolha da caixa do Br/> do quit'< = opção de 3
= 'escolha da caixa do Br/> do delete'< = 4
define o fil_wndw da janela de 1.50 ao esquema de cor 6.77 dobro 12
ativam o encabeçamento do fil_wndw
da janela = 'o Br/> @ 1.00 do Filter'< dizem o espaço (13-len (encabeçamento) /2) + o header
@ 3.04 diz que 'o Br/> do '< do @ 3.05 menu do Br/> do Cancel'< do alerta 3.16 do Br/> do Set'< do alerta '@ 'ao fil_opt
se o fil_opt = a opção de 1
= 'ajustam o endif
do Br/> do filter'< se o fil_opt = a opção de 2
= 'escolha do caso do fil_wndw
da janela da liberação do endif
do Br/> do filter'< do cancelamento = opção de 5
= do “o Br/> primary'< fazem a escolha do caso de DispPrim
= a opção de 6
= “o Br/> do secondary'< faz o endcase
de DispSecn
desativa janela MAINTMNU
se (direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireitam (dbf (), 12) = “CRITDOGS.DBF ") .or. ; o
(direito (sistema (16.2), 12) = “CRITTERS.FXP” .and endireita (dbf (), 12) = de “o ")
CRITCATS.DBF na etiqueta chave PgDn
no option
* do endif
return de PgUp
da etiqueta - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - o
function mntmnuf22
KeyF2 =. O s_prgname de T.
= o choice
do plain
return
*L
function maintmnu3
* VARIABLES
do chr do teclado do prog_name
(113) confidencial tudo como a escolha do prompt*
= o 4
prompt1 =” imploram “o
prompt2 =” extremidade “
prompt3 =” Filt “
Prompt4 =” vão “o
prompt5 =” lista “
prompt6 =” em seguida “o
prompt7 =” Prev “
prompt8 = o prompt9 =” Ret “o
prompt10 =” faixa clara “
prompt11 =” registro “
prompt12 =” < “o
prompt13 =” > o “
* WINDOWS
define a janela MAINTMNU de 22.0 a 24.79; o título” relatório do
comanda o menu”; o esquema de cor 2
/>
* SCREEN
ativa o noshow
* 1 da janela MAINTMNU 2 3 4 5 6 7 8 9 10 11 12 13
@ 0, 1 diz que 'implorar a extremidade Filt vão lista que Prev seguinte parado Ret o
*L
do registro da faixa clara < > ' na etiqueta chave F7 faz o genhlp com o USUÁRIO do && do programa () HELP
ativa a janela MAINTMNU
@ 0, 1-1 prompt1
@ 0, 5-1 prompt2
@ 0, 9-1 prompt3
@ 0.14-1 prompt4
@ 0.17-1 prompt5
@ 0.22-1 prompt6
@ 0.27-1 prompt7
@ 0.32-1 prompt8
@ 0.37-1 prompt9
@ 0.41-1 prompt10
@ 0.46-1 prompt11
@ 0.52-1 prompt12
@ o menu alerta de 0.54-1 que prompt13
ao choice
faz a escolha do caso do case
= a opção de MAINTMNU
da janela da liberação de 0
= 'escolha da caixa do Br do quit' = opção de 1
= 'escolha do caso do begin'< Br/> = opção de 2
= 'escolha da caixa do Br do end' = 3
definem o fil_wndw da janela de 1.50 a 6.77 o esquema de cor dobro 12
ativa o encabeçamento do fil_wndw
da janela = 'o Br/> @ 1.00 do Filter'< diz que o espaço (13-len (encabeçamento) /2) + o header
@ 3.04 diz 'o Br/> @ 3.05 do '< do alertar 'o alerta 3.16 'menu do Br/> do Set'< @ do Br/> do Cancel'< ao fil_opt
se o fil_opt = a opção de 1
= 'ajustam o endif
do Br/> do filter'< se fil_opt = opção de 2
= 'escolha do caso do fil_wndw
da janela da liberação do endif
do Br/> do filter'< do cancelamento = 4
se direito (sistema (16.3), 11) = 'a opção do Br/> de P_CONTR.FXP'< = 'ao else
* do Br/> do printer'< faz a escolha do caso do endif
do && 11/27/93
do out_dev = a opção de 5
= 'escolha da caixa do Br/> do list'< = opção de 6
= 'escolha da caixa do Br/> do next'< = opção de 7
= 'previous' = a opção de MAINTMNU
da janela da liberação de 8
= 'escolha da caixa do Br/> do quit'< = opção de 9
= 'escolha da caixa do Br/> do retrieve'< = opção de 10
= 'escolha da caixa do Br/> do skip'< = opção de 11
= 'escolha da caixa do Br/> do tally'< = opção de 12
= 'da escolha da caixa do Br/> do record'< = opção de 13
= “ao endcase
do Br/> do record'< desativam o option
*L
function maintmnu4
* 10/19 de MAINTMNU
return da janela - “menu4 adicionados” para permitir “vão” (cópia) de um maintnenace window.
* isto trabalhos o mesmos como o menu da cópia “vai” comando. O choice
do
* VARIABLES
confidencial tudo como a escolha do prompt*
= o 0
prompt1 =” adiciona “o
prompt2 =” implora “o
prompt3 = o
da” cópia “prompt4 = o
de” Del “prompt5 = o
da” extremidade “prompt6 = o
de” Filt “prompt7 =” vai “o
prompt8 = o
da” lista “prompt9 = o
de” Modi “prompt10 =” em seguida “o
prompt11 = o
de” Prev “prompt12 = o prompt13 =” Ret “o
* Command
se direito (sistema (16.2), 12) = o else
de “CRITTERS.FXP” .or endireitam (sistema (16.3), 8) = de “o Br/> USDA.FXP'< prompt14 =” Sele do “prompt14 = o endif
” da faixa clara do “prompt15 =
” do registro o “prompt16 =
* WINDOWS
” do zumbido o “definem a janela MAINTMNU de 95.0 a 105.190; o título” manutenção do
comanda o menu”; esquema de cor 2 da sombra do flutuador do dobro do
; a PIA BATISMAL “Arial do
bold(realce)”, 19
* SCREEN
NA ETIQUETA CHAVE Alt+F12 SUSPEND
ativa o
* da janela MAINTMNU comentou para VFP
SE. F.
se direito (sistema (16.2), 12) = 'o Br/>* 1 de CRITTERS.FXP'< 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
@ 0, 1 diz 'adicionar imploram Cópia Del Extremidade Filt vão lista Modi que Prev seguinte parado Ret o else
@ 0 do Br/> do Zoom'< do registro de Sele, 1 diz que 'adicionar imploram Cópia Del Extremidade Filt vão lista Modi Prev seguinte parado Ret o Br/> ENDIF
ENDIF
* do Zoom'< do registro da faixa clara comentou para VFP
*L
se .not endireitam (sistema (16.3), 11) = o
de “ANIMALS.FXP " na etiqueta chave F1 fazem mntmnuf4 com 1
endif
se .not endireitam (sistema (16.3), 8) = o
de “BIDS.FXP " na etiqueta chave F2 fazem mntmnuf4 com endif
de 2
se .not endireitam (sistema (16.3), 12) = o
de “CALENDAR.FXP " no F3 chave da etiqueta fazem mntmnuf4 com endif
de 3
se .not endireitam (sistema (16.3), 12) = o
de “CONTRACT.FXP " na etiqueta chave F4 fazem mntmnuf4 com endif
de 4
se .not endireitam (sistema (16.3), 12) = o
de “CRITTERS.FXP " na etiqueta chave F5 fazem mntmnuf4 com endif
de 5
se .notendireitar (sistema (16.3), 11) = o
de “INVOICE.FXP " na etiqueta chave F6 fazem mntmnuf4 com endif
de 6
na etiqueta chave F7 fazem o genhlp com o USUÁRIO que do && do programa () HELP
na etiqueta chave F8 faz mntmnuf4 com 8
se .not endireitam (sistema (16.3), 10) = o
de “PRICES.FXP " na etiqueta chave F9 fazem mntmnuf4 com endif
de 9
na etiqueta chave F10 fazem mntmnuf4 com 10
na etiqueta chave F11 fazem mntmnuf4 com 11
ativam a janela MAINTMNU
fazem o s_choice de DispMenu
= a escolha do mChoice
= o mChoice
* comentaram para VFP
SE . F.
@ 0, 1-1 prompt1
@ 0, 5-1 prompt2
@ 0, 9-1 prompt3
@ 0.14-1 prompt4
@ 0.18-1 prompt5
@ 0.22-1 prompt6
@ 0.27-1 prompt7
@ 0.30-1 prompt8
@ 0.35-1 prompt9
@ 0.40-1 prompt10
@ 0.45-1 prompt11
@ 0.50-1 prompt12
@ 0.55-1 prompt13
@ 0.59-1 prompt14
@ 0.64-1 prompt15
@ o menu alerta de 0.70-1 que prompt16
ao choice
ENDIF
* comentou para VFP
fazem a escolha do caso do case
= a opção de MAINTMNU
da janela da liberação de 0
= 'escolha da caixa do Br/> do quit'< = a opção de 1
= 'escolha da caixa do Br/> do add'< = opção de 2
= 'escolha da caixa do Br/> do begin'< = opção de 3
= 'escolha da caixa do Br/> do copy'< = opção de 4
= 'escolha da caixa do Br/> do delete'< = opção de 5
= 'escolha da caixa do Br/> do end'< = 6
define o fil_wndw da janela de 1.50 a 6.77 que o esquema de cor dobro 12
ativa o encabeçamento do fil_wndw
da janela = 'o Br/> @ 1.00 do Filter'< diz que o espaço (13-len (encabeçamento) /2) + o header
@ 3.04 diz 'o Br/> do '< do @ 3.05 menu do Br/> do Cancel'< do alerta 3.16 do Br/> do Set'< do alerta '@ 'ao fil_opt
se o fil_opt = a opção de 1
= 'ajustaram o endif
do Br/> do filter'< se fil_opt = opção de 2
= 'escolha do caso do fil_wndw
da janela da liberação do endif
do Br/> do filter'< do cancelamento = opção de 7
= 'escolha da caixa do Br/> do go'< = opção de 8
= 'escolha da caixa do Br/> do list'< = opção de 9
= 'escolha da caixa do Br/> do modify'< = opção de 10
= 'escolha da caixa do Br/> do next'< = opção de 11
= 'escolha da caixa do Br/> do previous'< = opção de MAINTMNU
da janela da liberação de 12
= 'escolha da caixa do Br/> do quit'< = opção de 13
= 'escolha da caixa do Br/> do retrieve'< = 14
= 'escolha da caixa do Br/> do skip'< = opção de 15
= do “escolha da caixa do Br/> tally'< = opção de 16
= “memorando do rele do vento MAINTMNU4
do rele do vento MAINTMNU4
do deac de MAINTMNU
do vento do rele de MAINTMNU
do vento do deac do endcase
do Br/> do zoom'< como o option
*L
* do prompt*
return adicionou para o mCHOICE PÚBLICO do
procedure DispMenu
de VFP, mGET, cCHOICE, LOJA 0 do cCHOICES
ao mCHOICE, "" da LOJA do mGET
ao cCHOICE, nCOL do cCHOICES
* = (WCOLS () /2.0) - 19
* adiciona implora Cópia Del Extremidade Filt vai lista Modi que Prev seguinte parado Ret o Br/>
do Zoom'< do registro da faixa clara o nPad = o nROW de 3
= o nCOL de 0
* 1
= 0
COMEÇ COM nROW, nCOL,” \ nCOL = nCol
do COMEÇ COM nROW, nCOL nCOL = nCol do
, “\ COMEÇ COM nROW, nCOL,” \ " nCOL = nCol + 4 + o nPad
COMEÇ COM nROW, nCOL nCOL = nCol do
* 5
, “\
,” \ COMEÇ COM nROW, nCOL, “\ nCOL = nCol
do COMEÇ COM nROW, nCOL nCOL = nCol do
,” \ COMEÇ COM nROW, nCOL nCOL = nCol do
, “\
COMEÇ COM nROW, nCOL nCOL = nCol do
* 10
,” \ COMEÇ COM nROW, nCOL, “\ + 4 + o nPad
COMEÇ COM nROW, nCOL,” \ + 4 + o nPad
COMEÇ COM nROW, nCOL, “\ + 4 + o nPad
COMEÇ COM nROW, nCOL + 3 + o nPad
COMEÇ COM nROW, nCOL, “\ " nCOL = nCol do
* 15
+ 4 + o nPad
COMEÇ COM nROW, nCOL,” \ + 5 + o nPad
COMEÇ COM nROW, nCOL o
*, “\ " adicionam imploram Cópia Del Extremidade Filt vão lista Modi em seguida Prev parou Ret o cCHOICES do Br/>
do Zoom'< do registro da faixa clara = o cCHOICES + “12Q " cCHOICE do
= mCHOICE do mCHOICE
do fnCUROBJ
PARAMETERS do
FUNCTION do fnCHOICE (cCHOICES, “Q”) = _CUROBJ
RETURN. nROW de T.
PROCEDURE GET
PARAMETERS, nCOL, cFUNC, bSKIP
nSIZE2 = LEN (STRTRAN (cFUNC,” \ <")) + nROW do
de 2
@, nCOL COMEÇ A FUNÇÃO “* “+IIF do mGET (bSKIP,” \ \ “, "") +cFUNC; O nROW VÁLIDO do
* do fnCUROBJ do
(@mCHOICE) @, nCOL COMEÇ A FUNÇÃO “* “+IIF do mGET (bSKIP,” \ \ “, "") +cFUNC; DEFEITO VÁLIDO do
* do fnCUROBJ do
(@mCHOICE) 1 TAMANHO 1, nota VÁLIDA do
* do fnCUROBJ nSIZE2 (@mCHOICE): nSIZE2 não é usado nenhum outro cCHOICES do fnCHOICE
PARAMETERS de place.
RETURN
FUNCTION, cDEF
LEU a extremidade do
* do mCHOICE do mCHOICE
do OBJETO do CICLO = do
RETURN IIF de IIF (LASTKEY () =27, EM (cDEF, cCHOICES), mCHOICE) (mCHOICE > 0, SUBSTR (cCHOICES, mCHOICE, 1), "") - adicionada para VFP
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - o suspend
function mntmnuf4
parameter KeyF_no
* /> fazem o caso KeyF_no = 1
do case
KeyF1 =. Caso KeyF_no = 2
de T.
KeyF2 =. Caso KeyF_no = 3
de T.
KeyF3 =. Caso KeyF_no = 4
de T.
KeyF4 =. Caso KeyF_no = 5
de T.
KeyF5 =. Caso KeyF_no = 6
de T.
KeyF6 =. Caso KeyF_no = 8
de T.
KeyF8 =. Caso KeyF_no = 9
de T.
KeyF9 =. Caso KeyF_no = 10
de T.
KeyF10 =. Caso KeyF_no = 11
de T.
KeyF11 =. s_FkeyRec do endcase
de T.
= s_prgname do
do recno () = prog_name
se o prog_name = “PAGÁVEL” e aliás () = s_FkeyPag do
de “PAYDETL " = s_FkyMRec seleto do payable
de 2
= o choice
do plain
return
*L
function maintmnu5
* VARIABLES
do chr do teclado do endif
do
do recno () (113) confidencial tudo como a escolha do prompt*
= o 0
prompt1 = o prompt2 = o
* WINDOWS
de” Modi “define a janela MAINTMNU de 22.0 a 24.79; o título” manutenção do
comanda o menu”; o esquema de cor 2
/>
* SCREEN
NA ETIQUETA CHAVE Alt+F12 SUSPEND
ativa o noshow
* 1 2
da janela MAINTMNU @ 0, 1 diz que 'o Br parado/>*L
do Modi'< na etiqueta chave F7 faz o genhlp com o USUÁRIO que do && do programa () HELP
ativa a janela MAINTMNU
@ 0, 1-1 prompt1
@ 0, 6-1 o menu alerta de prompt2
ao choice
faz a escolha do caso do case
= a opção de MAINTMNU
da janela da liberação de 0
= 'escolha da caixa do Br/>
do quit'< = opção de MAINTMNU
da janela da liberação de 1
= 'escolha da caixa do Br/>
do quit'< = opção de 2
= 'Br do modify'< o endcase
de/>
desativa o out_dev
do option
*L
function de MAINTMNU
return da janela define o fil_wndw da janela de 1.40 a 6.77 que o esquema de cor dobro 12
ativa o encabeçamento do fil_wndw
da janela = 'o Br/> @ 1.00 do Print'< diz que o espaço (19-len (encabeçamento) /2) + o header
@ 3.04 diz 'o Br/> do Screen'< do alerta 3.05 do Br/> do '< do do @ '@ 3.16 menu do Br/>
do File'< do alerta 3.26 do Br/> do Laser'< do alerta '@ 'ao fil_opt
se fil_opt = opção de 1
= 'ao endif
do Br/> do screen'< se fil_opt = opção de 2
= 'ao endif
do Br/> do laser'< se fil_opt = opção de 3
= 'ao fil_wndw
return da janela da liberação do endif
do Br/> do file'< do '' restenv
*L
function para i=1 ao i_str do no_pages
= ao estreptococo (i, 1)
se endfor
do endif
do usr_wndw&i_str
da janela da liberação do
do wexist ('i_str de usr_wndw'+) se wexist (“screen
@ 0.62 do acti do endif
do maintmnu
da janela da liberação do ")
dizem que o
@ 0.70 do espaço (7) diz
*L
function do databases
all
usr_wndw
restenvr
function/>*L
return do databases
return do all
da janela de mostra do
do espaço (9) '' próximos '' save_rec
********** akl: Primeiramente, verific a soletração do 3/19/96 de am
do 1:55 se o prog_name = “OFERECE” o prog_name de .or = o “CONTRATO” .or. ; prog_name do
= prog_name de .or da “FATURA” = “SUBRENT” .or. ; o prog_name do
= “TRAÇA” o prog_name de .or = de “HELTHCRT "
faz SpellChk com registro do && do “Rec” (Rec) ou o
do campo (Fld) se direito (sistema (16.3), 8) = “USDA.FXP "
fazem o getfldA com de” .t. “o
faz o getfldB com else
do
de” .t. “faz o getfld com
do ********** do endif
do endif
do
de” .t. “se confirmar (“excepto o ")
adicionam o blank
se direito (sistema (16.3), 12) = o sele 2
“de CONTRACT.FXP do " adicionam o sele 3
do blank
adicionam endif
do blank
/> = akl do ********** do
do rlock (): DHR - Am
do 12:37 do campo USDA.NAME 7/23/96 se prog_name =
de “DHR " usda = memo
do recolhimento do
do ********** do endif
de usda.usda
se direito (sistema (16.3), 12) = o unlock
do endif
do sele 1
do memvar
do recolhimento do sele 3
do memvar
do recolhimento do sele 2
do
de “CONTRACT.FXP " * restaurar o filter
se .not esvaziam (filtro ())
* Verific se record_no do filter
dos fósforos do registro = faixa clara -1
do skip
do
do recno () se o && do record_no do <> do recno () nenhum match
=
do _begin () se o && do &at_eof remove o to
do filtro do filter
vai o endif
que do endif
do endif
do record_no
o && do retorno do sav_wind do endif
return .f.
*L
procedure de .t.
lig ao F10 pelo w_name
do parâmetro do gen_hlp
substitui a testa com o wlrow (w_name), bcol com wlcol (w_name); erow do
com wlrow (w_name) + wrows (w_name) + 1; ecol do
com wlcol (w_name) + wcols (w_name) + && CTRL-W do chr do teclado de 1
(23) para retirar a janela com set_bndry
do save
return
*L
function * faixa clara ajustada -1
do boundaries
se top_mark do
do BOF () = top_mark do else
de 0
= faixa clara 1
do endif
da faixa clara 1
do
do recno () se bot_mark do
do eof () = () stp_prnt
*L
function de -1
endif
de -1
= recno/>return do '' no zoom_no do escape
= no zoom_num de 1
= '1 ' brk_no do
= brk_num de 1
= '1 'o
seleciona o done_cond de 1
= 'o
return de &ndx_exp>last_val.or.eof () 'ao n_vald_fld do val_fil
parameters do _print
*L
function, ref_fld, vald_alias, getpos, vald_fld do fld_size
= clear
do screen
do acti do off
da opinião do &n_vald_fld
if .f.
para i = 1 a 25
?
next
?
? “Parâmetros: “
? “n_vald_fld > " +n_vald_fld+ " < "
? “vald_fld > " +vald_fld+ " < "
? “ref_fld = “+ref_fld
? “vald_alias = “+vald_alias
? “getpos = “
?? getpos
? “fld_size = “o
?? o at_eof confidencial do fld_size
endif
, at_bof, jogo do record_no
notifica o is_valid do off
= o at_eof de .f.
= 'at_bof do
do eof () '= 'save_alias do
do BOF () '= aliás () empty_field do
=. O &vald_alias
de F.
faz o tipo do caso do case
(“vald_fld”) = 'srch_str do Br/> do D'< = estreptococo (ano (m->vald_fld), 4) + estreptococo (mês (vald_fld), 2) tipo do caso do
de +str (dia (vald_fld), 2) (“vald_fld”) = 'srch_str do Br/> do N'< = estreptococo (o vald_fld, fld_size)
se vald_fld = empty_field de 0
=. Srch_str do otherwise
do endif
de T.
= vald_fld
se len (guarnição (o vald_fld)) = empty_field de 0
=. Endcase
do endif
de T.
se o tipo (“vald_fld”) = 'o Br/> do N'< localiza para o &ref_fld = o srch_str
if .f.
da busca do else
do
(do srch_str)?
? “Procurando > " +srch_str+ " < "
se ()
? Else
do
? “" Endif
if .f.
do endif
endif
do
?
? “eof () = “
??
endif
do eof () se is_valid do found
do && de .not eof () = else
de .t.
se empty_field
se direito (sistema (16.3), 12) = o is_valid do
de “CRITTERS.FXP " = o is_valid do else
de .f.
= os leftpos do off
do srch_str
da busca do on
do else
do endif
de .t.
= o
do iif (getpos > 40.4.43) definem o brws_wndw da janela de 6, leftpos a 15, leftpos+30; o flutuador do zumbido do sistema do
cresce o esquema de cor próximo 10
na etiqueta chave INCORPORA o
do chr do teclado (23) ativa o noshow
do brws_wndw da janela consulta o último noappend nomodify o clear
do screen
do acti do off
da opinião do brws_wndw
if .f.
da janela da liberação do brws_wndw
da janela do nodelete para i = 1 a 25
?
next
? “> " +type (ref_fld) + " < "
? “> " +ref_fld+ " < "
? “> " +&ref_fld+ " < " o
endif
fazem o tipo do caso do case
(“ref_fld”) = 'o Br/>if .f.
do C'? O “campo é o
do CARÁTER "? “tipo (ref_fld) = > " +type (ref_fld) + " < "
? “ref_fld = > " +ref_fld+ " < "
? o “&ref_fld = > nome do
do “m->name " " de +&ref_fld+ " < "
no &ref_fld
do teclado do suspend
endif
* de ENTER
* da etiqueta faz o n_vald_fld do caso do case
= = is_valid do gets
da mostra do &ref_fld
= n_vald_fld do caso de .t.
= anml_name do
do “m->anml_name " = is_valid do gets
da mostra do &ref_fld
= n_vald_fld do caso de .t.
= crit_name do
do “m->crit_name " = is_valid do gets
da mostra do &ref_fld
= n_vald_fld do caso de .t.
= job_no do
do “m->job_no " = is_valid do gets
da mostra do &ref_fld
= n_vald_fld do caso de .t.
= map_no do
do “m->map_no " = is_valid do gets
da mostra do &ref_fld
= tipo do caso do endcase
de .t.
(ref_fld) = 'tipo do caso do
do dtoc do teclado do Br/> do D'< (&ref_fld) (ref_fld) = 'ltrim do teclado do Br/> do N'< (estreptococo (&ref_fld))o endcase
do
na etiqueta chave INCORPORA o && atribui novamente o endif
if .f.
do endif
do value
?
? “> " +type (ref_fld) + " < "
? “> " +ref_fld+ " < "
? “> " +&ref_fld+ " < "
?
do “is_valid= "?? o jogo seleto do &save_alias
do is_valid
endif
notifica o vald_fld do orig_val_fil
parameters do is_valid
*L
function do off
return, ref_fld, vald_alias, getpos, screen
clear
for i = 1 do off
acti da opinião do fld_size
set a 25
?
next
?
? “Parâmetros: “
? “vald_fld > " +vald_fld+ " < "
? “ref_fld = “+ref_fld
? “vald_alias = “+vald_alias
? “getpos = “
?? getpos
? “fld_size = “o
?? o at_eof confidencial do fld_size
, at_bof, jogo do record_no
notifica o is_valid do off
= o at_eof de .f.
= 'at_bof do
do eof () '= 'save_alias do
do BOF () '= aliás () empty_field do
=. O &vald_alias
de F.
faz o tipo do caso do case
(“vald_fld”) = 'srch_str do Br/> do D'< = estreptococo (ano (m->vald_fld), 4) + estreptococo (mês (vald_fld), 2) tipo do caso do
de +str (dia (vald_fld), 2) (“vald_fld”) = 'srch_str do Br/> do N'< = estreptococo (o vald_fld, fld_size)
se vald_fld = empty_field de 0
=. Srch_str do otherwise
do endif
de T.
= vald_fld
se len (guarnição (o vald_fld)) = empty_field de 0
=. Endcase
do endif
de T.
se o tipo (“vald_fld”) = 'o Br/> do N'< localiza para o &ref_fld = o srch_str
da busca do else
do
(do srch_str)?
? “Procurando > " +srch_str+ " < " o
if encontraram () o
?
else
? “" Endif
do
endif
?
? “eof () = “
??
do eof () se is_valid do found
do && de .not eof () = else
de .t.
se empty_field
se direito (sistema (16.3), 12) = o is_valid do
de “CRITTERS.FXP " = o is_valid do else
de .f.
= os leftpos do off
do srch_str
da busca do on
do else
do endif
de .t.
= o
do iif (getpos > 40.4.43) definem o brws_wndw da janela de 6, leftpos a 15, leftpos+30; o flutuador do zumbido do sistema do
cresce o esquema de cor próximo 10
na etiqueta chave INCORPORA o
do chr do teclado (23) ativa o noshow
do brws_wndw da janela consulta o último noappend nomodify o clear
do screen
do acti do off
da opinião do brws_wndw
*if .f.
da janela da liberação do brws_wndw
da janela do nodelete para i = 1 a 25
?
next
? “> " +type (ref_fld) + " < "
? “> " +ref_fld+ " < "
? “> " +&ref_fld+ " < "
?
se
do chrsaw ()? De “o amortecedor teclado não é " o else
do
? De “o amortecedor teclado é " o endif
*endif
do
faz o tipo do caso do case
(ref_fld) = 'o Br/> do C'? O “campo é o
do CARÁTER "? “tipo (ref_fld) = > " +type (ref_fld) + " < "
? “ref_fld = > " +ref_fld+ " < "
? “&ref_fld = > " +&ref_fld+ " < " tipo do caso do plain
do && do &ref_fld do teclado do
(ref_fld) = 'tipo do caso do
do dtoc do teclado do Br/> do D'< (&ref_fld) (ref_fld) = 'ltrim do teclado do Br/> do N'< (estreptococo (&ref_fld))o endcase
/>*is_valid = .t.
na etiqueta chave INCORPORA o && atribui novamente o endif
if .f.
do endif
do value
?
se
do chrsaw ()? De “o amortecedor teclado não está vazio. “
? O” amortecedor contem: > "
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? chr (inkey ())
?? “< " else
do
? De “o amortecedor teclado é " o endif
endif
do
?
? “> " +type (ref_fld) + " < "
? “> " +ref_fld+ " < "
? “> " +&ref_fld+ " < "
?
do “is_valid= "?? o jogo seleto do &save_alias
do suspend
*endif
do is_valid
* notifica o getcond dos parâmetros do var_get
do is_valid
*L
function do off
return, o fld_usg
* seta esquerda Check
* esta função foi criado porque Donna quis bater a seta esquerda Key
* e mandar o cursor ir ao último campo da tela precedente. No this
* setup para contratos. 10/05/99 de am
do 10:19 se direito (sistema (16.2), 12) =
de “CONTRACT.FXP " se page_no = 1
se LArrow =. T.
LArrow =. F.
NewOnum = _curobj de 28
= de endif
de NewOnum
endif
akl=.F.
se direito (sistema (16.2), 11) = “INVOICE.FXP” .and endireitam (sistema (16.7), 12) do endif
= o
akl=.T.
de “FS_SPELL.FXP " ativam o zoom_num do x_zoom
do &getcond
*L
function do endif
return do spell_win
da janela = o estreptococo (zoom_no, 1) at_bof do
= at_eof do at_bof&zoom_num
= at_eof&zoom_num
ndx_var = first_page do ndx_var&zoom_num
= val (substr (page_seq&zoom_num, 1.1))last_page do
= val (substr (o page_seq&zoom_num, len (page_seq&zoom_num), 1))o
* se uma página nova, indica o screen
se o page_no do page_no
do <> do first_page = o first_page
fazem o redisp_fld do disscr
= o endif
de .t.
* área nova seleta do zumbido, ajustou a parte superior nova e o marks
da parte inferior seleciona o record_no do &zoom_num
= o
do recno () se zoom_no = 1 reccount de .or () = top_mark de 0
= bot_mark de 0
= else
de -1
lnk_var = o &lnk_var
da busca do lnk_var&zoom_num
se o endif
da faixa clara -1
do
do BOF de .not () se top_mark do
do BOF () = top_mark do else
de 0
= endif
do
do recno () se bot_mark do endif
do skip
do
de .not eof () = && -2 a ser determinado no zoom_no do endif do _end
do funcion =
function y2kfix1
parameter FieldName
* de 1
return no '' que chama a sintaxe: y2kfix1 válido (sistema (18))
MoValu = estreptococo (mês (m.&FieldName), 2, 0)
DyValu = estreptococo (dia (m.&FieldName), 2.0)
YrValu = estreptococo (ano (m.&FieldName), 4,0)
YrRHT = (YrValu, 2)
se <= val val 99
YrLFT do >= 80 .and (de YrRHT) (YrRHT) = “19 " else
YrLFT do
= “20 " endif
YrValu do
= &FieldName de YrLFT+YrRHT
=
return do ctod” (de MoValu+/” “de +DyValu+/“+YrValu). O *
* do
* do *** do do ********** do do ********** do do ********** do do ********** do do ********** do do ************************** de T.
*L
o descanso desta biblioteca será para as telas novas do campo do desdobramento com *
* a habilidade ao do primeiro campo da tela atual ao campo do *
* por último da tela precedente, dado que a tela atual não é a tela do *
* primeiro. Em qual a chave do é ignorada. A chave do o *
* não foi mudada em nenhuma maneira. Enrolar - multi editar o *
* do am do 2:07 da janela 10/16/95 adicionou o - 10/29/95 de _newadd
do
function do *** do do ********** do do ********** do do ********** do do ********** do do ********** do do ************************** do *
do *
* do am do 2:10 se o zoom_no = 1
vão o endif
do bottom
faz o str_empty
faz o default
= aborto do _newmodify
do
*L
function do
return do newadd_rec () do '' _newcopy
*=============================================================================
function/> = ()/>return '' = .f.
na etiqueta chave PGUP faz NewPageUp
na etiqueta chave PGDN faz NewPageDn
se getcond do modify_key
=” “Gde” fld_usg " getcond $ do else
do
=” fld_usg .and .not “de G” $. O fld_usg do " getcond do endif
=” '
de “K” $ do fld_usg de G'$ " se direito (sistema (16.3), 8) =
“de USDA.FXP o " faz o getfldA com
” de .t. “faz o getfldB com else
” de .t. do “faz o getfld com o s_lastkey do read
do endif
” de .t. do “= o
do lastkey () * CLEANUP
na etiqueta chave PGUP
no stat ajustado ajustado chave do to
da mensagem de PGDN
da etiqueta fora do && isto teve que ser põr dentro porque o STAT do && de SET
FORA sozinho não apagou o message
se o mais akl_test '$ do on
que do stat do Br/> do Yy'< o endif
do on
do esca se s_lastkey = 27 aborto de Esc
do && =
* verificação para o s_recno do duplicate
= o &ndx_var
da busca do
do recno () se allow_dup&zoom_num
= dismsg (chr (7) + “aborto do ")
do registro da duplicata = endif
do return
de .t.
s_recno
* indicar os campos da consulta e o variables
faz o lookup
fazem o calcul com .t.
se direito (sistema (16.3), 8) = “USDA.FXP " de .t.
/> fazem o getfldA com
de” .t. “fazem o getfldB com else
do
de” .t. “fazem o getfld com akl desobstruído do ********** do gets
do endif
do
de” .t. “: Primeiramente, verific a soletração do 3/19/96 de am
do 1:55 se o prog_name = “OFERECE” o prog_name de .or = o “CONTRATO” .or. ; prog_name do
= prog_name de .or da “FATURA” = “SUBRENT” .or. ; o prog_name do
= “TRAÇA” o prog_name de .or = “HELTHCRT "
faz SpellChk com “Rec” registro do && (Rec) ou o
do campo (Fld) se direito (sistema (16.3), 8) = “USDA.FXP "
fazem o getfldA com o” .f. “
faz o getfldB com o” .f. “else
do
faz o getfld com o” .f. “
do ********** do endif
do endif
do
faz o calcul com .t.
se o abort
de .not se confirmar (“excepto o save_rec Record do ")
=. O memo
do recolhimento de T.
se direito (sistema (16.3), 12) = o s_lastkey
*L
function NewPageDn
do endif
endif
endif
1
memvar
3
memvar
2
"
return do '' de “CONTRACT.FXP = o
do lastkey () fazem o _curobj do caso do case
< o _curobj de 20
= o _curobj do caso de 20
= o _curobj de 20
= o _curobj do caso de 21
= o _curobj de 21
= o s_lastkey do endcase
return
*==========================================================================
function NewPageUp
de 22
= o
do lastkey () faz o _curobj do caso do case
= o _curobj de 20
= o _curobj do caso de 1
= o _curobj de 21
= o _curobj do caso de 20
= o _curobj de 22
= o spelling
* da verificação do endcase
return
*L
function SpellChk
parameters CheckType
* de 21
para verific a soletração, um campo de cada vez, “
* de SPELLCHK VÁLIDO (“Fld ") o ““@… COMEÇ a” statement.
no off
do pulso de disparo se CheckType = && “de Fld” isto verific um campo porque é exited.
FieldToCheck =
FieldText = m.&FieldToCheck
de VarRead () se .not esvaziam (guarnição (FieldText))o
faz fs_modal com. T.. Endif
do endif
de F.
se CheckType = && do “Rec” isto verific TODOS OS campos em um bu_cancel de screen.
= 0 && se os cancles do usuário, FS_SPELL () o ajustarão ao número do field_max de 1.
= do && de FCOUNT () de campos no record.
PARA o field_num = 1 ao laço do && do field_max através de toda a tela fields.
SE TIPO (CAMPO (o field_num)) $ do && de “MC” se o fld_name do memorando ou do caráter field.
= o && do CAMPO (field_num) determinam name.
do campo contents.
do campo do extrato do && de fld_2check = de m.&fld_name SE len (guarnição (fld_2check)) > letras de 1 necessidade 2 do && para trabalhar with.
* espaço em branco de ÚÄÄÄÄLeave desde que usado somente para passar na lima names.
* ³ ÚÄÄÄÄPass na cópia do memorando a ser checked.
* batente de ³ ³ ÚÄÄÄÄDon't após cada memo.
* v
= FS_SPELL ("", @fld_2check. Chamada Foxspell Checker.
do && do F.) m.&fld_name = fld_2check
ENDIF
ENDIF
SE bu_cancel = 1 && se o usuário cancelado, então JANELA da ESPERA de exit.
“parou o spellchecking! do “o s_sel do endif
EXIT
ENDIF
NEXT
= (os 0)
seleciona o on
return do pulso de disparo do
do use
do use
WORDS3
do use
WORDS2
de WORDS1
(s_sel). T.
* EOF GENLBR.PRG
class= do
|
