PC Toledo

Código: Selecionar todos

FUNCTION SALVAR02(TIPO_ACAO)
LOCAL IRetorno := .F.
IF TIPO_ACAO = INCLUSAO
   CLIENTES->(Dbappend())
   cCODIGO := alltrim( STRZERO( PSQCONTROLE( "clientes" ), 5 ))
   if cCODIGO="00000"
      ALERT("Ocorreu um erro na efetiva‡Æo do CODIGO SEQUENCIAL")
      RETURN .F.
   ENDIF
   CLIENTES->CODIGO := cCODIGO
   ALERT("Numero gerado no arquivo: " +cCODIGO)
ELSE
   CLIENTES->(RLOCK() )
ENDIF
IF .NOT. NETERR()
   CLIENTES->NOME1 := M->NOME1
   CLIENTES->DATA := M->DATA
   CLIENTES->ENDERECO := M->ENDERECO
   CLIENTES->BAIRRO := M->BAIRRO
   CLIENTES->UF := M->UF
   CLIENTES->NOME2 := M->NOME2
   CLIENTES->FONE := M->FONE
   CLIENTES->CIDADE := M->CIDADE
   CLIENTES->CGC := M->CGC
   CLIENTES->INSC := M->INSC
   CLIENTES->CPF := M->CPF
   CLIENTES->RG := M->RG
   CLIENTES->CEP := M->CEP
   CLIENTES->OBS := M->OBS
   CLIENTES->VEICULO := M->VEICULO
   CLIENTES->ANO := M->ANO
   CLIENTES->PLACA := M->PLACA
   CLIENTES->COR := M->COR
   CLIENTES->MODELO := M->MODELO
   CLIENTES->FONE2 := M->FONE2
   CLIENTES->SEGU_DORA := M->SEGU_DORA
   CLIENTES->SEGURADO := M->SEGURADO
   CLIENTES->TERCEIRO := M->TERCEIRO
   CLIENTES->FONE_SEG := M->FONE_SEG
   CLIENTES->CORRETORA := M->CORRETORA
   CLIENTES->FONE_CORR := M->FONE_CORR
   CLIENTES->SINISTRO := M->SINISTRO
   CLIENTES->CONTATO := M->CONTATO
   clientes->aniversar := M->aniversar
   clientes->ASSINAT := M->ASSINAT
   clientes->arq_dia := M->arq_dia
   clientes->fone_2 := M->fone_2
   clientes->fone_3 := M->fone_3
   clientes->e_mail := M->e_mail
   CLIENTES->SALDO := M->SALDO
   CLIENTES->( DBCOMMIT() )
   CLIENTES->( DBUNLOCK() )
ELSE
   ALERT("Falha ao incluir novo cliente")
endif
return .t.

Código: Selecionar todos

FUNCTION PsqControle( database, _altera_, _ComValor_ )
   DEFAULT _altera_:= .t., _ComValor_ := 0
   nControle := iif( recco()=0, 1, recco()+(recco()/4) )
   OldArea := Select()
   if !file("CONTROLE.DBF")
      ESTRU_DBF := { { "DATABASE"  , "C",12, 0 } , ;
                     { "CONTADOR"  , "N", 7, 0 } }
                     DBCREATE( "CONTROLE", ESTRU_DBF )
   endIf
   If Select("controle") == 0
      USE controle NEW SHARED
   Else
      DbSelectArea("controle")
   EndIf
   LOCATE FOR UPPER(controle->database) = UPPER(database)
   if found()
      nControle := controle->contador
      if _altera_ = .t. // NIL
         if _ComValor_ # 0 // NIL
            nControle := _ComValor_
         else
            nControle := controle->contador + 1
         endif
         //else
         //   nControle := controle->contador + 1
         controle->( rLock() )
         controle->contador := nControle
         controle->( dbUnLock() )
         controle->( dbCommit() )
      endif
   else
      if _altera_ = .t. // NIL
         if _ComValor_ # 0 // NIL
            nControle := _ComValor_
         endif
      endif
      controle->( dbAppend() )
      controle->database := database
      controle->contador := nControle
      controle->( dbUnLock() )
      controle->( dbCommit() )
   endif
   SELE (OldArea)
   RETURN nControle

Código: Selecionar todos

   M->NF             := PsqControle( "NF", .f. ) // Somente carrega numero de nota
   cSeekCodigo    := M->NF // Variavel temporaria

   // Dialogo para configurar o numero da nota
   SET _3DLOOK ON
   DEFINE DIALOG oNFDlg RESOURCE "dlgPrintNF" TITLE "Imprimindo nota fiscal"
          REDEFINE GET oGet101 VAR cSeekCodigo       PICTURE "999999" ID 101 OF oNFDlg ;
                       SPINNER ON UP   (cSeekCodigo:=cSeekCodigo+iif(cSeekCodigo>99999,0,1),oGet101:Refresh()) ;
                       ON DOWN (cSeekCodigo:=cSeekCodigo-iif(cSeekCodigo<00001,0,1),oGet101:Refresh()) 
          REDEFINE BUTTON ID 2 OF oNFDlg ACTION ( lSave := .t. , oNFDlg:End() ) DEFAULT
          REDEFINE BUTTON ID 3 OF oNFDlg ACTION ( lSave := .f. , oNFDlg:End() )
   ACTIVATE DIALOG oNFDlg CENTERED
   if !lSave // Se CANCELei o dialogo volta sem processar mais nada
      return .t.
   endif
   // Se o SEQUENCIAL for o mesmo que o usuário digitou...
   if cSeekCodigo = M->NF
      // Atualiza o contador
      M->NF := PsqControle( "NF" )
   endif
   // Guarda o numero digitado pelo usuario, seja qual for.
   M->NF := cSeekCodigo

Código: Selecionar todos

   // Se o SEQUENCIAL for o mesmo que o usuário digitou...
   if cSeekCodigo = M->NF
      // Atualiza o contador com o novo numero digitado manualmente
      M->NF := PsqControle( "NF", .t., cSeekCodigo )
   endif
   // Guarda o numero digitado pelo usuario, seja qual for.
   M->NF := cSeekCodigo