Histórico da Página

#Include 'Protheus.ch'

User Function MatucompMATUCOMP()
	Local lExiste := .F.
	
	Local cEntSai := ParamIXB[1]
Local cSerie  := ParamIXB[2]
Local cDoc    := ParamIXB[3]    
Local cCliefor:= ParamIXB[4]
Local cLoja   := ParamIXB[5]
     
    dbSelectArea("CD7")
	    CD7->(dbSetOrder(1))
	
	     
    lExiste := CD7->(dbSeek(xFilial("CD7")+ParamIXB[1]+ParamIXB[2]+ParamIXB[3]+ParamIXB[4]+ParamIXB[5]))
	If lExiste 
		cEntSai+cSerie+cDoc+cCliefor+cLoja))
    If lExiste
        RecLock(CD7,.F.)	
		   
        Replace CD7->CD7_LOTE	    With  "55555555"	
		   
        MsUnlock("CD7")  
    
	EndIf
	
Return
		
		     
Return   

#Include 'Protheus.ch'
// _________________________________________________________________________________________________//---------------------------------------------------------------------------------------------------
//|Quando se referir aos complementos para geracaogeraçao dos registros C110, C111, C112, C113, C114 e C115|
//|  a tabela CDT também deve ser alimentada, pois ela que efetua o relacionamentos com as outras   |
//|  conforme registro. C110 = Tab. CDT, C111 = Tab. CDG, , C112 = Tab. CDC, C113 = Tab. CDD,       |
//|  C114 = Tab. CDE e C115 = Tab. CDF                                                              |
//|_________________________________________________________________________________________________|*/

 
         
         
User Function MATUCOMP()
Local lExiste := .F.
Local cEntSai := ParamIXB[1]
Local cSerie    cDoc    := ParamIXB[2]
Local  cDoc  cSerie  := ParamIXB[3]
    
Local cCliefor:= ParamIXB[4]
Local    cLoja   := ParamIXB[5]

    lExiste := CDT->(dbSeek(xFilial("CDT")+cEntSai+cDoc+cSerie+cClieFor+cLoja))
        
    If lExiste 
        RecLock("CDT",.F.)
    Else   
        RecLock("CDT",.T.)
    Endif

    CDT->CDT_FILIAL  := xFilial("CDT")  
        CDT->CDT_TPMOV   := cEntSai 
        CDT->CDT_DOC    := cDoc
        CDT->CDT_SERIE   := cSerie  
        CDT->CDT_CLIFOR  := cClieFor
        CDT->CDT_LOJA    := cLoja
 cLojaEndIf                            CDT->CDT_IFCOMP := "000001"
    MsUnLock()
    FkCommit()

    lExisteCDT->CDT_IFCOMP := CDF->(dbSeek(xFilial("CDF")+cEntSai+cDoc+cSerie+cClieFor+cLoja))

"000001"
       If lExisteMsUnLock()
        RecLock("CDF",.F.)
    Else FkCommit()
 
        RecLock("CDF",.T.)
    Endif
    
    CDF->CDF_FILIAL  := xFilial("CDF")
        CDF->CDF_TPMOV   := cEntSai
        CDF->CDF_DOC    := cDoc
        CDF->CDF_SERIE  := cSerie
        CDF->CDF_CLIFOR  := cClieFor
        CDF->CDF_LOJA    := cLoja
        CDF->CDF_IFCOMP := "000001"
        MsUnLock()
    EndIf
       
Return  
Return