27 Jul 2018 19:31
25 Ago 2018 11:39
03 Set 2018 19:01
04 Set 2018 23:45
04 Set 2018 23:51
05 Set 2018 00:00
05 Set 2018 00:08
05 Set 2018 00:13
#include "inkey.ch"
MEMVAR cOpc
PROCEDURE bhp0110
LOCAL mieItem, GetList := {}
PRIVATE cOpc := "C"
IF ! AbreArquivos( "jpitem" )
RETURN
ENDIF
DO WHILE .T.
TelaDados( .F. )
MenuManut( @cOpc )
DO CASE
CASE LastKey() == K_ESC
EXIT
CASE cOpc $ "+-PU"
LOOP
ENDCASE
IF cOpc == "I"
GOTO BOTTOM
mieItem := StrZero( Val( mieItem ) + 1, 6 )
ELSE
mieItem := jpitem->ieItem
ENDIF
@ 2, 0 SAY "Codigo............:" GET mieItem PICTURE "@K 999999" VALID Val( mieItem ) > 0
Mensagem( "Digite codigo do item, F9 pesquisa, ESC Sai" )
READ
Mensagem()
IF LastKey() == K_ESC .OR. Val( mIeItem ) == 0
LOOP
ENDIF
mieItem := StrZero( Val( mieItem ), 6 )
SEEK mieItem
TelaDados( .F. )
IF cOpc == "I"
IF Eof()
GOTO BOTTOM
mieItem := StrZero( Val( jpitem->ieItem ) + 1, 6 )
RecAppend()
REPLACE jpitem->ieItem WITH mieItem
RecUnlock()
ELSE
MsgStop( "Codigo ja cadastrado" )
LOOP
ENDIF
ENDIF
IF cOpc != "I" .AND. Eof()
MsgStop( "Codigo nao cadastrado" )
LOOP
ENDIF
IF cOpc == "C"
LOOP
ENDIF
IF cOpc == "E"
IF Mensagem( "Confirma exclusao", "N,S", 1 ) != "S"
LOOP
ENDIF
RecLock()
DELETE
RecUnlock()
SKIP
IF Eof()
GOTO BOTTOM
ENDIF
LOOP
ENDIF
TelaDados( .T. )
ENDDO
CLOSE DATABASES
RETURN
STATIC FUNCTION TelaDados( lDigita )
LOCAL GetList := {}
LOCAL mieItem := jpitem->ieItem
LOCAL mieDescri := jpitem->ieDescri
LOCAL mieNcm := jpitem->ieNcm
LOCAL mieCest := jpitem->ieCest
LOCAL mieGtin := jpitem->ieGTIN
LOCAL mieGtinTri := jpitem->ieGtinTri
LOCAL mieNome := jpitem->ieNome
LOCAL mieStatus := jpitem->ieStatus
hb_Default( @lDigita, .F. )
@ 2, 0 SAY "Codigo............:" GET mieItem WHEN .F.
@ 4, 0 SAY "Descricao.........:" GET mieDescri PICTURE "@!S55" WHEN .F.
@ 5, 0 SAY "Nome..............:" GET mieNome PICTURE "@!" WHEN .F.
@ 6, 0 SAY "NCM...............:" GET mieNcm PICTURE "@9"
@ 7, 0 SAY "CEST..............:" GET mieCest PICTURE "@9"
@ 8, 0 SAY "GTIN..............:" GET mieGTIN PICTURE "@9"
@ 9, 0 SAY "Gtin Tributavel...:" GET mieGtinTri PICTURE "@9"
@ 10, 0 SAY "Status............:" GET mieStatus PICTURE "!A" VALID mieStatus $ " I"
IF lDigita
Mensagem( "Digite campos, ESC Sai" )
READ
Mensagem()
ELSE
CLEAR GETS
ENDIF
IF LastKey() == K_ESC .OR. ! lDigita
RETURN NIL
ENDIF
//IF cOpc == "I"
// RecAppend()
// REPLACE field->ieItem WITH mieItem
//ENDIF
RecLock()
REPLACE ;
jpitem->ieDescri WITH mieDescri, ;
jpitem->ieNome WITH mieNome, ;
jpitem->ieNcm WITH mieNcm, ;
jpitem->ieCest WITH mieCest, ;
jpitem->ieGtin WITH mieGtin, ;
jpitem->ieGtinTri WITH mieGtinTri
RecUnlock()
RETURN NIL
07 Set 2018 10:52
07 Set 2018 11:27
07 Set 2018 12:08
07 Set 2018 19:19
E o uso em rede... praticamente nem tem... é Linux, é como tudo remoto, velocidade máxima.
08 Set 2018 19:04
Itamar M. Lins Jr. escreveu:Não usam windows ? Todas as estações são linux ?