Histórico da Página

#INCLUDE "PROTHEUS.CH"
 
User Function XFCD2SFT()
Local aAreaCD2 := CD2->(GetArea())
Local cAliasSD2 := PARAMIXB[1] //Alias dos itens da NF de saída
Local cItem cFilCD2  := CD2->CD2_FILIAL
Local cDoc     := CD2->CD2_DOC
Local cSerie   := CD2->CD2_SERIE
Local cCliente := CD2->CD2_CODCLI
Local cLojaCli := CD2->CD2_LOJCLI
Local cFornec  := CD2->CD2_CODFOR
Local cLojaFor := CD2->CD2_LOJFOR
Local cItem    := CD2->CD2_ITEM //Ao entrar no ponto de entrada, estará posicionado no último item da CD2
Local cImp     := PARAMIXB[2] //Item da NF de saída com 3 posições

CD2->CD2_IMP  //Ao entrar no ponto de entrada, estará posicionado no último tributo gerado na CD2

/*
	Realize aqui o controle de posicionamento desejado, com base nas informações que podem ser obtidas diretamente da CD2 que já está gravada.
*/


Reclock("CD2",.F.)
/*
	Realize aqui a sua customizaçãogravação dos dados desejados
*/ 
CD2->(MsUnlock())

RestArea( aAreaCD2 )
 
Return Nil