Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Carlos Augusto Pereira

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Carlos Augusto Pereira

Gravado em

Chave

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

...

Bloco de código
#INCLUDE "PROTHEUS.CH"

User Function OM200GRV()

	TRBPED->PED_QTLIB2 := ConvUM(SB1->B1_COD, TRBPED->PED_QTDLIB,0 ,2)
	MsUnlock()>(DbSetOrder(1)) 
	If TRBPED->(DbSeek(FwxFilial('SC5')+"000026"))
		RecLock("TRBPED",.F.)
		TRBPED->PED_ENDCLI := "Endereço de teste"
		TRBPED->(MsUnlock())
	EndIf

Return Nil




Templatedocumentos

...