Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 21

changes.mady.by.user Paulo Augusto Rodrigues Pouza

Gravado em

comparado com

Nova versão 22

changes.mady.by.user Paulo Augusto Rodrigues Pouza

Gravado em

Chave

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

...

Para emitir  Factura de Credito Eletronica Pyme  hay la necesidad del Parametro MV_TAMEMP estar con contenido igual a blanco o 1  y el campo A1_TAMEMP estea con contenido igual a 2,3 o 4. Siendo diferente de estar configuraciones la emision es considerada como un documento normal. 


Cuando el campo FP_RG1415 estiver con contenido el mismo es cargado automaticamente al documentos fiscal sin mirar la configuraciones del MV_TAMEMP verus el A1_TAMEMP, por esto tenemos que tomar cuidado al agregar valor a este campo.



Configuraciones previas:

Haga la copia de seguridad del directorio \system y de la Base de Datos del entorno donde se va a implementar la RG.

...

Campo

X3_USADO

X3_RESERVX3_VALIDX3_CBOXSPA

F1_RG1415

€€€€€€€€€€€€€€

þÀ

F2_RG1415

€€€€€€€€€€€€€€

þÀ

F3_RG1415€€€€€€€€€€€€€€þÀ

CFG_RG1415€€€€€€€€€€€€€€þÀ(GetNewPar("MV_TAMEMP",'1')<>"1" .and. Val(M->CFG_RG1415) <200) .OR. GetNewPar("MV_TAMEMP",'1') $ "1" .or. Empty(M->CFG_RG1415)
CFG_TIPO

Pertence("1234567") .And. F082VldUni("CFG", M->CFG_MODULO+M->CFG_ESPEC+M->CFG_SERIE+M->CFG_TIPO+M->CFG_RG1415,3)1=Neto Producto;2=Normal;3=Despacho Importación;4=Fact Créd MIPyME;5=Net.Prim.Granos;6=Net.Sec.Granos;7=Net.Un.Comercial(Lácteo)

...

En la tabla SFP, cree el campo de acuerdo con la siguiente descripción:

Nombre de la variable

FP_RG1415

Tipo

C

Tamaño

3

Formato

@!

Tít EspañolRG 1415/2849
Des EspañolRG 1415/2849
Valid(GetNewPar("MV_TAMEMP",'1')<>"1" .and. Val(M->FP_RG1415) <200) .OR. GetNewPar("MV_TAMEMP",'1') $ "1" .or. Empty(M->FP_RG1415)


En la opción Parámetro, cree el Parámetro:

...

Tabla CFG - Tipo de Documentos

CampoTamañoValid
CFG_RG1415 
3(GetNewPar("MV_TAMEMP",'1')<>"1" .and. Val(M->CFG_RG1415) <200) .OR. GetNewPar("MV_TAMEMP",'1') $ "1" .or. Empty(M->CFG_RG1415)



CampoValidCombo
CFG_TIPOCFG_TIPO X3_VALIDPertence("1234567") .And. F082VldUni("CFG", M->CFG_MODULO+M->CFG_ESPEC+M->CFG_SERIE+M->CFG_TIPO+M->CFG_RG1415,3)1=Neto Producto;2=Normal;3=Despacho Importación;4=Fact Créd MIPyME;5=Net.Prim.Granos;6=Net.Sec.Granos;7=Net.Un.Comercial(Lácteo)

...