problema com o sistema no TS

[dorneles]

Olá pessoal, tenho essa rotina a baixo, no desktop funciona normal. Mas quando conecto no sistema pelo TS da o seguindo erro:

 

se tem 3 item em solicita, ele so transfere 2 item para o pCotacaoI.

 

 

 

 

       Select Solicita

       Set orde TO 2

       Solicita->(DbGoTop())

    

       WHILE Solicita->(!EOF())

       

           Solicita->(DbSkip(+1))

        nRegI := Solicita->(RECNO())

           Solicita->(DbSkip(-1))

    

        IF Solicita->id_status == 2

    

            IF Solicita->seleciona == 1

            

                 nItem++

                SELECT pCotacaoI

                IF AddRec(10)

                     pCotacaoI->id_cotacao := aGetPedCompra.cot_id_cotacao

                     pCotacaoI->item       := nItem

                     pCotacaoI->id_produto := Solicita->id_produto

                     pCotacaoI->codbarra   := Solicita->codbarra

                     pCotacaoI->referencia := Solicita->referencia

                     pCotacaoI->descricao  := Solicita->descricao    

                     pCotacaoI->unidade    := Solicita->unidade    

                     pCotacaoI->quantidade := Solicita->quantidade    

                     pCotacaoI->id_cr          := Solicita->id_cr

                     pCotacaoI->id_solic   := Solicita->id_solic

                     pCotacaoI->id_status  := "1"                

                ENDIF

                

              Select Solicita

                 IF BloqReg(10)

                      Solicita->seleciona  := 0

                      Solicita->id_status  := 4

                      Solicita->nm_status  := "Cotacao"   

                      FINALI()

                 ENDIF    

              

            ENDIF

            

         ENDIF   

 

          Select Solicita

        Set orde TO 2

           Solicita->(DbGoto(nRegI))

          

       ENDDO

 

[kapiaba]

Olá, mostre + detalhes do q vc. está fazendo, não entendi muito bem esta lógica.

 

Mostre uma tela do q vc. está fazendo e o que ele deveria fazer, depois desta tela.

 

Pare o programa na hora REPLACE e abra uma browse(), para ver onde está o PONTEIRO no banco de dados,  experimente usar um SEEK para posicionar o PONTEIRO no registro correto, se for uma alteração, se é uma inclusão, não entendi a lógica. to 1/2 burro hoje.   kkkkkkkkkkkkkk

 

 

abs,

[adzdoni]

Na sua rotina de adicionar registro falta a funcao FINALI() que deve ser um dbcommit()  e dbunlock(), veja se é isto o problema.

 

 

 SELECT pCotacaoI

                IF AddRec(10)

                     pCotacaoI->id_cotacao := aGetPedCompra.cot_id_cotacao

                     pCotacaoI->item       := nItem

                     pCotacaoI->id_produto := Solicita->id_produto

                     pCotacaoI->codbarra   := Solicita->codbarra

                     pCotacaoI->referencia := Solicita->referencia

                     pCotacaoI->descricao  := Solicita->descricao    

                     pCotacaoI->unidade    := Solicita->unidade    

                     pCotacaoI->quantidade := Solicita->quantidade    

                     pCotacaoI->id_cr          := Solicita->id_cr

                     pCotacaoI->id_solic   := Solicita->id_solic

                     pCotacaoI->id_status  := "1"                

                ENDIF

                

              Select Solicita

                 IF BloqReg(10)

                      Solicita->seleciona  := 0

                      Solicita->id_status  := 4

                      Solicita->nm_status  := "Cotacao"   

                      FINALI()

                 ENDIF