Alguém pode me ajudar a montar este modulo em dbedit

[uilian]

Tela do programa

_____ ______________________________________________________
Código da Venda: 01 data da Venda: 29/11/04 |
|
Código Cliente: 01 |
|
Nome Cliente: Fulano de tal |
|
Produtos |
|
Cod.Pro | Descrição | Qtdade | Valor.U | Valor total |
168 | xxxxxxx | 10 | 20,00 | 200,00 |
158 | yyyyyyy | 50 | 10,00 | 500,00 |
|
|
|
|
|
|
|
|
|
____________________________________________________________ Valor total 700,00

Bom está e a tela q estou montando ok

mas aqui estou usando 3 base de dados (mas se alguem diver outra ideia me avise)

Base de dados q utilizo.

estoque.dbf ( que irá gravar todos os dados desta tela)

cliente.dbf ( onde etá gravado meu cliente )

marca.dbf (onde está cadastrado meu estoque atual)

bom é o seguinte alguem pode me ajudar a montar esta tela pois ja montei ela ums 10 vez apagei até o aquivo de meu micro de

tanta raiva q fiquei.

e mais uma coisa.

no arquivo estoque tem q gravar todos este dados inserido nesta tela..... e ainda dar baixa do estoque marca.dbf onde fica o

estoque atual interno.

[rochinha]

Amiguinho

Isto será baba para voce:

Voce irá precisar de 4 GETs, um dBedit e dois SAY, olhe:

Código: Selecionar todos

@ 0,0 SAY "Código da Venda:" GET nCodVenda PICTURE "99999"
@ 1,0 SAY "Data da Venda:" GET dDatVenda 

@ 2,0 SAY "Código Cliente:" GET nCodCliente PICTURE "99999"
@ 3,0 SAY "Nome Cliente:" GET cNomCliente PICTURE "@!S35"

@ 5,0 SAY "Produtos"

// Suponho que voce saiba quais os campos devera colocar aqui
// aArrayDeCampos - conterá os campos que farão parte do dBedit
// SuaFuncao - é a função onde voce definirá INSerção/DELeção de itens
dBedit( 6,0,15,79, aArrayDeCampos , SuaFuncao, ... ) 

@ 17,60 SAY "Total:" + transform( nTotal, "@e 999,999.99" )

function SuaFuncao


FUNCTION oBRFunca
parameters modo,ponteiro
CARREG07( MOSTRA ) // Carrega dados do DBF
CARGET7a( MOSTRA ) // Apresenta os mesmos
KeyAction = LASTKEY()
MENSAGEM("INSere DELeta ENTER-Outros F11-"+IIF(EXPANDED,"Produtos","Categorias")+" ESCape")
do case
   case modo < 4
        retorno = 1
   case KeyAction = 27
        retorno  = 0
   case KeyAction = 13                     // Alteracao
          REGISTRO = RECNO()
          // Carregue os GET com valores do registro sendo alterado
          // Coloque aqui a tela para alterar os dados do item sendo inserido
          READ
          IF LASTKEY() <> 27
              RLOCK()
              // Salve os dados no registro
              GO REGISTRO
          ENDIF
          retorno  = 2
   case KeyAction = 21 .or. KeyAction =  7 // Exclusao
          REGISTRO = RECNO()
          // Faça a pergunta de deleção
          READ
          IF LASTKEY() <> 27
              RLOCK()
              // Delete o registro
              DELETE
              GO REGISTRO
          ENDIF
          retorno  = 2
   case KeyAction = 22 .or. KeyAction = 14 // Inclusao
          REGISTRO = RECNO()
          // Carregue os GET com valores vazios
          // Coloque aqui a tela para pegar os dados do item sendo inserido
          READ
          IF LASTKEY() <> 27
              RLOCK()
              // Salve os dados no registro
              GO REGISTRO
          ENDIF
          retorno  = 2
   case KeyAction = 32 // Tecla espaço
          retorno = 2
   otherwise
          retorno = 1
   endcase
return(retorno)

Agora é por sua conta e risco.

@braços :?)