Ponto-de-Entrada: MATUCOMP - Alterações automáticas
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 , Todas |
| Compatível Países: | Brasil |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
Utilizado para alterações automáticas nos complementos dos documentos fiscais após a emissão das Notas Fiscais.
Eventos
Utilizado apos gravacao de todos os dados da NF de saida ou entrada digitadas no modulo fiscal, faturamento e compras.
Programa Fonte
.PRW
Sintaxe
MATUCOMP - Alterações automáticas ( [ aChave ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| aChave | Array of Record | Chave da Nota Fiscal (Entrada ou Saida,Serie,Doc,Cliente ou Fornecedor,Loja) |
Retorno
- ()
Exemplos
User Function Matucomp()Local lExiste := .F.dbSelectArea("CD7")CD7->(dbSetOrder(1)) lExiste := CD7->(dbSeek(xFilial("CD7")+ParamIXB[1]+ParamIXB[2]+PADR(ParamIXB[3],TamSX3("CD7_DOC")[1])+ParamIXB[4]+ParamIXB[5]))If lExiste RecLock(CD7,.F.) Replace CD7->CD7_LOTE With "55555555" MsUnlock("CD7") EndIfReturn// _________________________________________________________________________________________________//|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 |//|_________________________________________________________________________________________________|User Funcation MATUCOMP()cEntSai := ParamIXB[1]cDoc := ParamIXB[2]cSerie := ParamIXB[3]cCliefor:= ParamIXB[4]cLoja := ParamIXB[5]lExiste := CDT->(dbSeek(xFilial("CDT")+cEntSai+cSerie+cDoc+cClieFor+cLoja))If lExiste RecLock("CDT",.F.)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 CDT->CDT_IFCOMP := "000001"MsUnLock()FkCommit()RecLock("CDF",.T.)CDF->CDF_FILIAL := xFilial("CDF")CDF->CDF_TPMOV := cEntSaiCDF->CDF_DOC := cDocCDF->CDF_SERIE := cSerieCDF->CDF_CLIFOR := cClieForCDF->CDF_LOJA := cLojaCDF->CDF_IFCOMP := "000001"Return