Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

         LIBBOLT{cLivro,cStatus}

         Donde :

             cLivro= (C=Compras/V= Ventas)  

             cStatus= V=Valida / A=Anulada

         Ejemplo

         #INCLUDE "protheus.ch"
         #INCLUDE "rwmake.ch"
         #INCLUDE "fileio.ch"

         User Function  LIBBOLT()    

    LOCAL cTipo   := PARAMIXB[1]
LOCAL cStatus := PARAMIXB[2]

If cTipo == "V"
RecLock("LCV",.F.)

              LCV->DESCONT     := 0

             LCV→(MsUnlock())

     EndIf

     Return()


05. ASUNTOS RELACIONADOS

  • No aplica.


    Templatedocumentos

...