Perguntas Copia de TES..

#INCLUDE "rwmake.ch" 
#INCLUDE 'PROTHEUS.CH' 
/* 
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ 
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± 
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±± 
±±ºPrograma ³MA080MNU ºAutor ³Edson G. Barbosa    º Data ³ 10/10/09   º±± 
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±± 
±±ºDesc.     ³                                                            º±± 
±±º          ³                                                            º±± 
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±± 
±±ºUso       ³ AP                                                        º±± 
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±± 
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± 
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß 
*/ 

User Function MA080MNU() 
     AADD(aRotina, {"Copia","U_MSGMATA080",0,6}) //Copia de TES 
Return() 
/* 
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ 
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± 
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄ¿±± 
±±³Fun+.o    ³MSG080    ³ Autor ³Rodrigo Sartorio       ³ Data ³ 04-04-2003 ³±± 
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄ´±± 
±±³Descri+.o ³Funcao que copia um registro do arquivo.                      ³±± 
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±± 
±±³ Uso      ³Generico                                                      ³±± 
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±± 
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± 
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß 
*/ 
User Function MSGMATA080() 
Local nx 
nOpcA := 0 
cNewTes:=Space(3) 
cOldTes:=SF4->F4_CODIGO 

@ 000,000 To 155,300 Dialog oDLGA Title "Copia de TES" 
@ 00.5,00.5 To 004,018 

@ 001,002 Say OemtoAnsi("Da   TES:   ") COLOR CLR_HBLUE 
@ 001,005 Say SF4->F4_CODIGO+'-'+SF4->F4_TEXTO 

@ 002,002 Say OemtoAnsi("Para TES:   ") COLOR CLR_HBLUE 
@ 002,005 Get cNewTES Picture '999' Size 004,005 Valid ValTes(cOldTes,cNewTES) 

@ C(050),C(030) BMPBUTTON TYPE 1 Action (CONFIRMA(),oDlga:End()) 
@ C(050),C(070) BMPBUTTON TYPE 2 Action oDlga:End() 

Activate MsDialog oDlgA Center 


Return 

Static Function confirma() 
Local aRegistro   := {} 
Local nPosicao    := 0 
      

     //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ 
     //³ Le as informacoes do registro corrente                          ³ 
     //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
     For nx:=1 to FCount() 
          AADD(aRegistro,FieldGet(nx)) 
     Next nx                                       
      
     //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ 
     //³ Efetua a gravacao do novo registro                             ³ 
     //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
     RecLock(Alias(),.T.) 
     For nx := 1 TO FCount() 
          nPosicao:=FieldPos("F4_CODIGO") 
          If nPosicao == nx 
               FieldPut(nx,cNewTes) 
          Else 
               FieldPut(nx,aRegistro[nx]) 
          Endif 
     Next nx 
     MsUnlock() 
     MsgBox("Tes copiada com Sucesso."+chr(10)+"Efetue as alterações necessarias na nova tes.") 

Return 

Static Function ValTes(cOldTes,cNewTES) 
_lRet :=.t. 
_AREA := GETAREA() 
If SF4->(DbSeek(xFilial("SF4")+cNewTes))                
     MsgBox("Tes Ja Cadastrada, escolha outra numeração.") 
     _lRet :=.f. 
Endif 
If cOldTes < ‘500‘ .and. cNewTes >= ‘500‘ 
     MsgBox("Tes de Entrada deve ser menor que 500.") 
     _lRet :=.f. 
Endif 
If cOldTes >= ‘500‘ .and. cNewTes < ‘500‘ 
     MsgBox("Tes de Saida deve ser maior que 500.") 
     _lRet :=.f. 
Endif 
RESTAREA(_AREA) 
Return(_lRet)