Histórico da Página
...
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
aChave | Array of Record | Chave da Nota Fiscal (Entrada ou Saída), Serie, Número do Documento ,Cliente ou Fornecedor, Loja |
- Retorno
Não há.
04.
...
EXEMPLO DE UTILIZAÇÃO
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#Include 'Protheus.ch' User Function MATUCOMP() 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")+cEntSai+cSerie+cDoc+cCliefor+cLoja)) If lExiste RecLock(CD7,.F.) Replace CD7->CD7_LOTE With "55555555" // _________________________________________________________________________________________________ //|Quando se referir aos complementos para geracao 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 MsUnlock("CD7") EndIf Return |
05. EXEMPLO DE UTILIZAÇÃO - INCLUSÃO
Bloco de código | ||||
---|---|---|---|---|
| ||||
//--------------------------------------------------------------------------------------------------- //|Quando se referir aos complementos para geraç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 | //| Este conformePONTO registro.DE C110ENTRADA =é Tab.apenas CDT,um C111exemplo =de Tab.como CDG,pode , C112 = Tab. CDCser utilizado, C113deve =ser Tab. CDD, |adequado conforme| //| a C114regra =de Tab.negócio CDEespecífica edo C115cliente = Tab. CDF | | //|_________________________________________________________________________________________________|*/ User Function MATUCOMP() Local lInclui := .F. Local cEntSai := ParamIXB[1] User Function MATUCOMP() // E=Entrada ou S=Saida Local cSerie cEntSai := ParamIXB[12] // Serie do documento fiscal Local cDoc := ParamIXB[23] // Numero do documento cSerie Local cCliefor := ParamIXB[3] 4] // Cliente/Fornecedor Local cLoja cCliefor:= ParamIXB[4]5] // Loja do Cliente/Fornecedor cLojaLocal lDeleta := ParamIXB[5] !Inclui .AND. !Altera // customizações do cliente, deve ser adequadas as regras do cliente If !lDeleta lExiste lInclui := !CDT->(dbSeek(xFilial("CDT")+cEntSai+cDoc+cSerie+cClieFor+cLoja)) If lExiste RecLock("CDT",.F.lInclui) Else RecLock("CDT",.T.) CDT->CDT_FILIAL := xFilial("CDT") CDT->CDT_TPMOV := cEntSai CDT->CDT_DOC := cDoc CDT->CDT_SERIE := cSerie CDT->CDT_CLIFOR := cClieFor CDT->CDT_LOJA := cLojaEndIf cLoja CDT->CDT_IFCOMP := "000001" CDT->(MsUnLock()) FkCommit() lInclui := !CDF->(dbSeek(xFilial("CDF")+cEntSai+cDoc+cSerie+cClieFor+cLoja)) RecLock("CDF",.T.lInclui) 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" CDF->(MsUnLock()) Else If CDT->(dbSeek(xFilial("CDT")+cEntSai+cDoc+cSerie+cClieFor+cLoja)) RecLock("CDT",.F.) CDT->(DbDelete()) CDT->(MsUnLock()) EndIf Return If CDF->(dbSeek(xFilial("CDF")+cEntSai+cDoc+cSerie+cClieFor+cLoja)) RecLock("CDF",.F.) CDF->(DbDelete()) CDF->(MsUnLock()) EndIf EndIf Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas