Data de vencimento do documento de referencia incorreto.
Boa Noite Grupo
Estou com o seguinte problema
Tenho um cenario de venda de complemento ov com referencia a Fatura
Porem quando eu gero a fatura do documento de complemento, ele pega a data de vencimento do meu documento de refencia ou seja não pega a data atual de faturamento.
Ja verifiquei o controle de cópia no opção ctg do item na opção Dados VBRK/VBRP = 11
Mas mesmo assim não alterou a data de vencimento.
Tem algum outro lugar que eu consiga corrigir esta data ??
Grato a todos
Bom Dia caro colega,
De forma standard, o sistema não permite tal customização. A solução para este caso é utilizar a exit "exit_saplv60b_002" conforme orientação abaixo:
1. Salvar o conteúdo do campo "Fatura ref." em um outro campo, como por exemplo "Allocation".
2. Mover brancos para o campo "Fatura ref."/Ano/Item
Veja a informação dos desenvolvedores da SAP sobre esta ativação: "By this way, the baseline date will not be recovered with the date from the original document."
As Notas 301077 e 872755 contém informações sobre esta exit que devem ajudá-lo.
No caso das duplicadas geradas, perceba que você poderá, através da transação FBL5N, dando um duplo clique no documento em questão, mudar o campo "Baseline Date (Bline Date - ZFBDT)" fazendo com que o sistema
recalcule a data de vencimento da duplicata.
Espero poder ter ajudado nessa questão,
Ruy Castro
Similar Messages
-
Alterar Data de Vencimento NFE com pagamentos
Olá pessoal, uitlizo a versão 2005b.
Tenho o seguinte cenário:
Uma Nota Fiscal de Entrada com 5 prestações, sendo que há 2 parcelas pagas.
Necessidade:
Necessito alterar a data de vencimento da terceira prestação.
Como eu posso fazer? Alguém tem alguma orientação?
Se não for possível, na versão 2005b é a versão pode 2007b?
Gratos,
Fernando SantosPrezado Luiz,
após analisar a descrição do seu caso, juntamente com a documentação disponível no Portal da SAP, peço a gentileza de analisar o conteúdo das seguintes notas: 1333212 e 941272.
Respondendo a sua questão. Uma vez que um pagamento já foi efetuado/recebido em uma das parcelas, para a versão 2005B não será mais possível alterar a data de vencimento das parcelas restantes. Tal comportamento foi alterado para a versão 2007A (conforme pode ser visto na lista de países inclusos na alteração: Australia, Austria, Canada, Chile, Czech Republic, Denmark, Finland, Germany, Hungary, Israel, Italy, Japan, Netherlands, Norway, Poland, Russia, Slovakia,
Spain, Sweden, Switzerland, UK, USA.
Caso a minha resposta resolva sua questão, peço a gentileza de fechar esta thread e alocar pontos a meu usuário.
Atenciosamente,
Wesley Honorato -
B1 não permite alterar data de vencimento em um boleto gerado.
Olá,
O B1 não permite alterar data de vencimento de um boleto gerado.
Situação:
Um cliente solicita adiamento de uma parcela do boleto gerado, usuário não consegue
modificar a data de vencimento, então o procedimento atual no SAP B1 é cancelar aquela
parcela e gerar outra parcela com a data adiada, portanto, gerar outro boleto,
Probelama:
Problema é quando o usuário insere (externamente por meio do add-on BankSync) isso
no banco, que cobra taxa para geração de boleto e cancelamento, sendo que na própria
empresa bancária tem a opção de alterar data de vencimento.
Solicito uma solução, pois temos clientes que não usam o sistema
de boletos do B1 porque a mudança de data de vencimento é um procedimento freqüente.
Tem uma nota comentando que no patch 12 é possível alterar a data de vencimento, mas somente para alguns paises, não inclui o brasil ( se eu não me engano SAP B1 2007A).
Nota: 1333212
Proponho que seja permitido pelo B1 a mudança de data de vencimento quando o boleto
está com o status enviado, gerado e depositado.
Grato
Lucidio Gandra
Hello,
The B1 not to change the due date of an invoice generated.
Location:
A client requests postponement of a portion of the fetlock generated, User can not
change the due date, then the current procedure in SAP B1 is clear that
share and generate another portion with the date postponed, therefore, generate another billet,
Problem:
Problem is when the User enters (externally through add-on BankSync) that
the bank, which charges fees for generation of receipts and canceled, and the very
banking firm has the option to change the due date.
I request a solution, because we have customers who do not use the system
slips of B1 because the change of due date is a common procedure.
I propose that B1 is allowed by the change of due date when the bill
the status is sent, generated and deposited.
Grateful
Lucidio Gandra
Edited by: Lucidio Gandra Alves on Feb 17, 2010 11:11 AMLucídio, primeiramente, existe um fórum em português.
Talvez você tenha mais sucesso postando essas dúvidas muito particulares do Brasil lá.
Agora, quanto ao seu problema, eu concordo plenamente com você. Sempre enfrentamos esse problema também. Existe um fórum "SAP Business One Product Development Collaboration" onde você pede algumas modificações no sistema que não são exigências legais.
Talvez você possa postar isso lá também que surta mais efeito.
Abraço,
Danilo Souza - EasyOne Consultoria -
Impossível cancelar. Um dos comprovantes de crédito foi descontado
Meu cliente tem esta função dos cartões de crédito e precisa cancelar uma NF que esta errada.
Porém, não consigo cancelar o contas a receber por causa desta mensagem.
Entendi que isso é referente a data do pagamento que é passada. Não existe uma forma de remover essa validação? Pois vem acontecendo com frequência.
Conforme achei em outros tópicos, devo cancelar o Comprovante (Banco>Contas a Receber>Administração de cartões de crédito), que cria um LCM de Débito negativo na conta da operadora de cartão e um débito positivo na conta do PN. Aí fico com um Contas a Receber em aberto em nome do PN, mas o antigo fica ainda existindo como se tivesse sido concluído - não consigo cancelar - e o novo, por consequência não vincula a Nota.
No manual da 9.0, diz que tem uma opção em
Administração Inicialização do sistema Configurações gerais PN
Porém, não consegui achar.
Define o método de depósito de comprovantes de cartão de crédito:
Automaticamente determina que as datas de vencimento na transação do depósito do comprovante de cartão de crédito são as mesmas que as datas de vencimento no documento de contas a receber.
Manualmente determina que as datas de vencimentos na transação do depósito do comprovante de cartão de crédito derivam do documento de depósito.
Quando modificada, esta configuração é imediatamente atualizada por empresa, para todos os usuários.
Alguém sabe como poderia fazer isso de forma que melhor indicasse a realidade do cancelamento da NF? Obrigado
http://help.sap.com/saphelp_sbo900/helpdata/PT/45/0706f2ae742461e10000000a1553f7/content.htmBom dia Thiago!
Tente entrar em Banco -> Contas a Receber -> Administração de Cartões de Crédito, selecione o comprovante de pagamento referente ao C/R que está tentando cancelar, clique com o botão direito e selecione Cancelar, conforme imagem:
Após isso, creio que seja possível cancelar o C/R e consequentemente a NFS
Att.
Mayara -
Vencimento da Nota Fiscal Complementar fica com a data da Nota Original
Pessoal boa tarde!
Minha usuária precisa fazer nfs complementares de Vendas de notas fiscais que foram faturadas desde 2011 e o problema é que a data do vencimento sai igual à data da NF mãe.
No meu caso a nf complementar foi emitida no dia 17/03/14 e o vencimento saiu 29/01/2012..
Ao criar com referência ao documento de faturamento da primeira nota, já tentei de tudo: colocar data efetiva fixa, mudar a data de fixação do preço, data do faturamento, mas nenhuma destas ações refletiu a atualização do vencimento com base na nova data do faturamento.
Alguém já passou por isso e poderia me dizer se tem algum customizing?
obrigada!
LúciaBom dia Fernando,
Sim.. a nota complementar funciona na versão 1.0.
A partir da 2.0 algumas consistências foram acrescentadas e gostaria de definir o procedimento. Por exemplo, aqui na empresa, para um tipo de Nota Fiscal Complementar eles usam apenas informar o valor no campo "Valor Fiscal", então no caso de uma nota fiscal complementar de ICMS, eles informariam apenas R$ 100,00 no campo valor fiscal da nota. Com a versão 2.0, se o campo "Valor Fiscal" que é o valor do imposto tiver preenchido, temos que informar também os campos "Taxa de Imposto" e "Montante Básico" , pelo que entendi, um documento pode ter valor fiscal ( valor do imposto) informado, caso tenha uma base de cálculo e taxa. Fizemos um teste colocando informação nesses campos, e funcionou corretamente...
Por isso não entendo como proceder no caso de NFE complementar... onde são informados apenas valores que complementam notas anteriores...
Obrigada,
Talita -
Goods Issue on Process Order with BAPI_GOODSMVT_CREATE
Hi together,
I want to post a goods issue on an process order (some of them are networks) but I have some problem with filling the structures.
Could you please help me?
Book material
ls_bapi_head-pstng_date = ls_booking-budat.
ls_bapi_head-doc_date = sy-datum.
ls_bapi_head-pr_uname = sy-uname.
ls_bapi_item-material = ls_booking-idnrk.
ls_bapi_item-plant = p_werks.
ls_bapi_item-stge_loc = ls_booking-lgort.
ls_bapi_item-entry_qnt = ls_booking-dmeng.
ls_bapi_item-entry_uom = ls_booking-meins.
ls_bapi_item-orderid = ls_booking-aufnr.
ls_bapi_item-mvt_ind = gc_mvt_ind.
IF ls_bapi_item-entry_qnt > 0.
ls_bapi_item-move_type = '261'.
ELSE.
ls_bapi_item-move_type = '262'.
ENDIF.
APPEND ls_bapi_item TO lt_bapi_item.
CLEAR: lt_bapi_ret, ls_bapi_item.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = ls_bapi_head
goodsmvt_code = '03'
testrun = p_test
IMPORTING
materialdocument = ls_mat_bel
TABLES
goodsmvt_item = lt_bapi_item
return = lt_bapi_ret.Here send a example:
DATA: RTR LIKE BAPIRET2.
DATA: G_HEADER LIKE BAPI2017_GM_HEAD_01,
G_CODE LIKE BAPI2017_GM_CODE,
TESTRUN LIKE BAPI2017_GM_GEN-TESTRUN,
G_HEADRET LIKE BAPI2017_GM_HEAD_RET,
MATDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
MATYEAR TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR,
G_ITEM TYPE STANDARD TABLE OF BAPI2017_GM_ITEM_CREATE WITH HEADER LINE,
RETURN TYPE STANDARD TABLE OF BAPIRET2 WITH HEADER LINE.
TOMO DATOS DE LA TABLA Z
SELECT * FROM ZCOTT_ACT_VOLUM
INTO CORRESPONDING FIELDS OF TABLE TI_VOLUMEN.
CLEAR: RETURN. REFRESH: RETURN.
CLEAR: WA_MJES.
WA_MJES-ICONID = '@DH@'.
WA_MJES-TYPE = 'S'.
WA_MJES-MSGTXT = 'Errores del Proceso Nro 2'.
APPEND WA_MJES TO TI_MJES.
LOOP AT TI_VOLUMEN INTO WA_VOL.
CLEAR: G_HEADER, G_CODE, TESTRUN, G_HEADRET, MATDOCUMENT,
MATYEAR, G_ITEM.
REFRESH: G_ITEM.
G_HEADER-PSTNG_DATE = WA_VOL-BUDAT. " Fecha de contabilización en el documento
G_HEADER-DOC_DATE = WA_VOL-BLDAT. " Fecha de documento en documento
G_HEADER-REF_DOC_NO = 'REF NRO:'. " Número de documento de referencia
G_HEADER-PR_UNAME = SY-UNAME. " Nombre de usuario
G_HEADER-HEADER_TXT = WA_VOL-BKTXT. " Texto de cabecera de documento
G_CODE = '04'. " Traspaso
Emisor
G_ITEM-MATERIAL = WA_VOL-DE_MATNR. " Nro de Material
G_ITEM-PLANT = WA_VOL-DE_WERKS. " Centro
G_ITEM-STGE_LOC = WA_VOL-DE_LGORT. " Almacen
G_ITEM-MOVE_TYPE = WA_VOL-BWART. " Clase de Mov.
G_ITEM-COSTCENTER = WA_VOL-KOSTL. " Centro de Costo.
G_ITEM-ENTRY_QNT = WA_VOL-MENGE. " Cantidad en unidad de medida de entrada
G_ITEM-ENTRY_UOM = WA_VOL-UNIT. " Unidad de medida de entrada
G_ITEM-ENTRY_UOM_ISO = WA_VOL-UNIT. " Código ISO p.unidad de medida
G_ITEM-BATCH = WA_VOL-DE_LGORT. " Lote
Receptor
G_ITEM-MOVE_MAT = WA_VOL-A_MATNR. " Nro de Material.
G_ITEM-MOVE_PLANT = WA_VOL-A_WERKS. " Centro
G_ITEM-MOVE_STLOC = WA_VOL-A_LGORT. " Almacen
G_ITEM-MOVE_BATCH = WA_VOL-A_LGORT. " Lote
APPEND G_ITEM.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
GOODSMVT_HEADER = G_HEADER
GOODSMVT_CODE = G_CODE
TESTRUN = ' ' "TESTRUN
IMPORTING
GOODSMVT_HEADRET = G_HEADRET
MATERIALDOCUMENT = MATDOCUMENT
MATDOCUMENTYEAR = MATYEAR
TABLES
GOODSMVT_ITEM = G_ITEM
RETURN = RETURN.
CLEAR: RTR.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
IMPORTING
RETURN = RTR.
LOOP AT RETURN.
CLEAR: WA_MJES.
WA_MJES-TYPE = RETURN-TYPE.
CASE WA_MJES-TYPE.
WHEN 'S'.
WA_MJES-ICONID = '@08@'.
WHEN 'W'.
WA_MJES-ICONID = '@09@'.
WHEN 'E'.
WA_MJES-ICONID = '@0A@'.
ENDCASE.
WA_MJES-MSGTXT = RETURN-MESSAGE.
APPEND WA_MJES TO TI_MJES.
ENDLOOP.
ENDLOOP. -
hello experts
I have the following ALV report, (ZBB Program) <b>Material Document Listing Report</b>
Currently this report let us drill down to some transaction where we would see standard costs(Drill down fields are Customer and Mterial number) Now, we would like to create
a similar Report (ZBBn) that will not let us drill down to any transaction where we would see standard costs. we would like to make this avaialable to sales administrative assistants,
The Report should display the fields with no drill down features, Please check ZBB program below, i would appreciate if anybody could modify the program in such a way it is executable. Please highlight the chaged code.
Thanks in adavance
Mohan
Global data declaration
TYPE-POOLS: slis.
TABLES:
msku , " Special Stocks with Customer
makt , " Material Descriptions
mara , " General Material Data
lfa1,
mbew , " Material Valuation
ser01 , " Document Header for Serial Numbers for Delivery
lips , " SD document: Delivery: Item data
vbak , " Sales Document: Header Data
likp , " SD Document: Delivery Header Data
t001w , " Plants/Branches
kna1 , " General Data in Customer Master
eqbs , " Serial Number Stock Segment
bhdgd , " Common data area batch heading routine
objk , " Plant Maintenance Object List
mkpf,
vbpa,
vbap,
pa0001,
mseg,
ekbe," CH03+
t157e," CH05+
vbfa,
t156t,
tbsgt," VS01+
ekpo," VS01
ekko," CH06+
eket," CH06+
marc." CH07+
data z_equnr like equi-equnr." CH06+
SELECTION-SCREEN: BEGIN OF BLOCK dba WITH FRAME TITLE text-001.
SELECT-OPTIONS s_matnr FOR mseg-matnr MEMORY ID mat.
SELECT-OPTIONS s_werks FOR mseg-werks MEMORY ID wrk.
SELECT-OPTIONS s_lgort FOR mseg-lgort MEMORY ID lag.
SELECT-OPTIONS s_charg FOR mseg-charg MEMORY ID cha.
SELECT-OPTIONS s_lifnr FOR mseg-lifnr MEMORY ID lif.
SELECT-OPTIONS s_kunnr FOR mseg-kunnr MEMORY ID kun.
SELECT-OPTIONS s_bwart FOR mseg-bwart MEMORY ID bwa.
SELECT-OPTIONS s_sobkz FOR mseg-sobkz.
SELECT-OPTIONS s_aufnr FOR mseg-aufnr." CH04+
SELECTION-SCREEN END OF BLOCK dba.
SELECTION-SCREEN BEGIN OF BLOCK mkpf WITH FRAME TITLE text-002.
SELECT-OPTIONS s_budat FOR mkpf-budat.
SELECT-OPTIONS s_usnam FOR mkpf-usnam MEMORY ID usr.
SELECT-OPTIONS s_vgart FOR mkpf-vgart.
SELECT-OPTIONS s_xblnr FOR mkpf-xblnr.
SELECTION-SCREEN END OF BLOCK mkpf.
PARAMETERS: p_vari LIKE disvariant-variant.
TYPES : BEGIN OF i_material_doc,
mblnr TYPE mseg-mblnr,
urzei TYPE mseg-urzei,
mjahr TYPE mseg-mjahr,
gjahr TYPE bkpf-gjahr,
lgort TYPE mseg-lgort,
matnr TYPE msku-matnr,
usnam TYPE mkpf-usnam,
xblnr TYPE mkpf-xblnr,
werks TYPE mseg-werks,
belnr TYPE bkpf-belnr,
beln2 TYPE bkpf-belnr,
vgart TYPE mkpf-vgart,
bwart TYPE mseg-bwart,
charg TYPE mseg-charg,
sernr TYPE equi-sernr,
shkzg TYPE mseg-shkzg,
erdat TYPE vbak-erdat,
shday TYPE zalv-shday,
budat TYPE mkpf-budat,
exdat TYPE zalv-exdat,
stprs TYPE mbew-stprs,
kdauf TYPE mseg-kdauf,
ebeln TYPE mseg-ebeln,
maktx TYPE makt-maktx,
kunnr TYPE msku-kunnr,
lifnr TYPE mseg-lifnr,
soname TYPE zalv-soname,
vdname TYPE zalv-shname,
sobkz TYPE msku-sobkz,
dmbtr TYPE mseg-dmbtr,
menge TYPE mseg-menge,
ebelp TYPE mseg-ebelp," CH02+
bualt TYPE mseg-bualt," CH02+
erfmg TYPE mseg-erfmg," CH03+
waers TYPE mseg-waers," CH03+
unit_amt TYPE mseg-bualt," CH03+
unit_amt_lc TYPE mseg-bualt," CH03+
aufnr TYPE mseg-aufnr," CH04+
btext TYPE t156t-btext," EC01+
bezei TYPE tbsgt-bezei," VS01+
grund TYPE mseg-grund," CH05+
grtxt TYPE t157e-grtxt," CH05+
issdt type sy-datum," CH06+
ekgrp type ekko-ekgrp," CH06+
eindt type eket-eindt," CH06+
END OF i_material_doc.
DATA:gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: i_object_numbers TYPE objk OCCURS 0 WITH HEADER LINE.
DATA: gt_material_doc TYPE i_material_doc OCCURS 0 WITH HEADER LINE.
DATA: i_material_doca TYPE i_material_doc OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF i_serial OCCURS 0,
mblnr TYPE mseg-mblnr,
zeile TYPE mseg-zeile,
gjahr TYPE mseg-gjahr,
matnr TYPE msku-matnr,
b_werk TYPE mseg-werks,
b_charge TYPE mseg-charg,
kunnr TYPE msku-kunnr,
kunwe TYPE msku-kunnr,
objnr TYPE equi-objnr,
sernr TYPE equi-sernr,
END OF i_serial.
DATA: g_repid LIKE sy-repid,
g_count LIKE sy-tabix,
g_record_found(1) TYPE c,
g_total_kulab LIKE mseg-menge,
g_item LIKE lips-posnr,
g_delivery LIKE lips-vbeln,
g_delivery_item LIKE lips-posnr,
g_indicator LIKE scal-indicator,
g_calender_id LIKE scal-fcalid,
g_15days LIKE sy-index,
g_datum LIKE sy-datum,
l_account(1),
g_expected_date LIKE sy-datum.
DATA: g_save(1) TYPE c,
g_exit(1) TYPE c,
gx_variant LIKE disvariant,
g_variant LIKE disvariant.
DATA : BEGIN OF i_account_document OCCURS 0,
belnr TYPE bkpf-belnr,
gjahr TYPE bkpf-gjahr,
END OF i_account_document.
Initialization fieldcatalog
INITIALIZATION.
g_repid = sy-repid.
g_save = 'A'.
PERFORM variant_init.
Get default variant
gx_variant = g_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
EXPORTING
i_save = g_save
CHANGING
cs_variant = gx_variant
EXCEPTIONS
not_found = 2.
IF sy-subrc = 0.
p_vari = gx_variant-variant.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
PERFORM f4_for_variant.
AT SELECTION-SCREEN.
PERFORM pai_of_selection_screen.
PERFORM auth_check. "<------ AUTH CHECK
CALL FUNCTION 'MMIM_ENTRYCHECK_MAIN'
TABLES
it_matnr = s_matnr
it_werks = s_werks
it_kunnr = s_kunnr.
START-OF-SELECTION.
SELECT SINGLE * FROM t001w WHERE werks IN s_werks.
IF sy-subrc EQ 0.
g_calender_id = t001w-fabkl.
ENDIF.
Data selection
PERFORM select_data TABLES gt_material_doc.
PERFORM fieldcat_init USING gt_fieldcat[].
END-OF-SELECTION.
Display list
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_user_command = 'USER_COMMAND'
i_callback_program = g_repid
it_fieldcat = gt_fieldcat[]
is_variant = g_variant
i_save = g_save
TABLES
t_outtab = gt_material_doc.
FORM select_data TABLES i_material_doc LIKE gt_material_doc[].
DATA: l_status LIKE risa0-statusline,
l_zeile LIKE vbfa-posnn,
l_uepos LIKE vbap-uepos,
l_awkey LIKE bkpf-awkey,
l_record_not_found(1).
Read Material Docs For the Selection
SELECT DISTINCT hxblnr dmblnr durzei hmjahr dmatnr dwerks
dkunnr dlifnr dcharg dshkzg dmenge dbwart
hbudat dshkzg dlgort dsobkz h~usnam
hvgart dkdauf d~ebeln
debelp dbualt " CH02+
derfmg ddmbtr d~waers" CH03+
d~aufnr" CH04+
d~grund" CH05+
FROM mkpf AS h INNER JOIN mseg AS d
ON hmandt = dmandt
AND hmblnr = dmblnr
AND hmjahr = dmjahr
APPENDING CORRESPONDING FIELDS OF TABLE i_material_doc
WHERE d~matnr IN s_matnr
AND d~werks IN s_werks
AND h~budat IN s_budat
AND h~vgart IN s_vgart
AND h~xblnr IN s_xblnr
AND h~usnam IN s_usnam
AND d~lgort IN s_lgort
AND d~sobkz IN s_sobkz
AND d~charg IN s_charg
AND d~lifnr IN s_lifnr
AND d~kunnr IN s_kunnr
AND d~bwart IN s_bwart
AND d~aufnr IN s_aufnr." CH04+
SORT i_material_doc BY mblnr urzei.
Read Material Document to help in accessing the Serial Number
SELECT hmatnr hsernr dmblnr dmjahr d~zeile
FROM ser03 AS d INNER JOIN objk AS h
ON hobknr = dobknr
APPENDING CORRESPONDING FIELDS OF TABLE i_serial
FOR ALL ENTRIES IN i_material_doc
WHERE h~matnr = i_material_doc-matnr
AND d~mblnr = i_material_doc-mblnr
AND d~werk = i_material_doc-werks
AND d~zeile = i_material_doc-urzei
AND h~objvw = 'S'
AND h~taser = 'SER03'.
SORT i_serial BY mblnr zeile.
LOOP AT i_material_doc.
CLEAR: l_record_not_found.
CONCATENATE i_material_doc-mblnr i_material_doc-mjahr INTO l_awkey.
CLEAR: i_account_document[].
SELECT belnr gjahr INTO TABLE i_account_document
FROM bkpf
WHERE awtyp EQ 'MKPF'
AND awkey EQ l_awkey.
READ TABLE i_account_document INDEX 1.
IF sy-subrc EQ 0.
MOVE: i_account_document-belnr TO i_material_doc-belnr.
ENDIF.
READ TABLE i_account_document INDEX 2.
IF sy-subrc EQ 0.
MOVE: i_account_document-belnr TO i_material_doc-beln2.
l_account = 'X'.
ENDIF.
i_material_doca = i_material_doc.
CLEAR: i_material_doca-sernr.
LOOP AT i_serial WHERE mblnr = i_material_doc-mblnr
AND zeile = i_material_doc-urzei.
MOVE: i_serial-sernr TO i_material_doca-sernr.
MOVE '1.000' TO i_material_doca-menge.
*Begin CH06 Get Issuing date from classification
select single equnr
into z_equnr
from equi
where sernr = i_material_doca-sernr
and matnr = i_material_doca-matnr.
perform get_class_data using
z_equnr
'ISSUING_DATE'
i_material_doca-issdt.
clear z_equnr.
*End CH06
APPEND i_material_doca.
l_record_not_found = 'X'.
ENDLOOP.
IF l_record_not_found EQ space.
APPEND i_material_doca.
ENDIF.
ENDLOOP.
CLEAR: i_material_doc[].
DELETE i_material_doca WHERE menge EQ 0
AND erfmg EQ 0." CH03+
LOOP AT i_material_doca.
i_material_doca-unit_amt = " CH03+
i_material_doca-bualt / i_material_doca-erfmg." CH03+
i_material_doca-unit_amt_lc = " CH03+
i_material_doca-dmbtr / i_material_doca-erfmg." CH03+
IF i_material_doca-shkzg EQ 'H'.
MULTIPLY i_material_doca-menge BY -1.
MULTIPLY i_material_doca-erfmg BY -1." CH03+
MULTIPLY i_material_doca-bualt BY -1." CH03+
MULTIPLY i_material_doca-dmbtr BY -1." CH03+
MULTIPLY i_material_doca-unit_amt BY -1." CH03+
MULTIPLY i_material_doca-unit_amt_lc BY -1." CH03+
ENDIF.
*CH04 Show unit amts instead of total amts when SN's are displyed
*individually
IF i_material_doca-erfmg <> i_material_doca-menge " CH04+
AND i_material_doca-sernr <> ''" CH04+
AND i_material_doca-menge = 1." CH04+
i_material_doca-bualt = i_material_doca-unit_amt." CH04+
i_material_doca-dmbtr = i_material_doca-unit_amt_lc. " CH04+
ENDIF." CH04+
Read Reason for movement
SELECT SINGLE * FROM t157e WHERE bwart = i_material_doca-bwart" CH05+
AND grund = i_material_doca-grund" CH05+
AND spras = 'EN'." CH05+
i_material_doca-grtxt = t157e-grtxt." CH05+
Read Customer Name
CLEAR: kna1, i_material_doca-soname.
SELECT SINGLE name1 INTO i_material_doca-soname
FROM kna1 WHERE kunnr EQ i_material_doca-kunnr.
CLEAR: i_material_doca-maktx.
SELECT SINGLE maktx INTO i_material_doca-maktx
FROM makt WHERE spras EQ sy-langu
AND matnr EQ i_material_doca-matnr.
Read Vendor Name
CLEAR: kna1, i_material_doca-vdname.
SELECT SINGLE name1 INTO i_material_doca-vdname
FROM lfa1 WHERE lifnr EQ i_material_doca-lifnr.
PO item reason for order VS01+
CLEAR: ekpo, i_material_doca-bezei." VS01+
IF NOT i_material_doca-ebeln IS INITIAL." VS01+
SELECT SINGLE * FROM ekpo " VS01+
WHERE ebeln EQ i_material_doca-ebeln" VS01+
AND ebelp EQ i_material_doca-ebelp " VS01+
AND bsgru NE ' ' " VS01+
AND loekz EQ ' '. " VS01+
IF sy-subrc EQ 0." VS01+
SELECT SINGLE bezei INTO i_material_doca-bezei" VS01+
FROM tbsgt WHERE spras EQ sy-langu " VS01+
AND bsgru EQ ekpo-bsgru." VS01+
ENDIF." VS01+
ENDIF." VS01+
*CH07 Removed lines, getting Buyer code from Marc instead
Read PO header for Buyer Code
CLEAR: ekko, i_material_doca-ekgrp." CH06+
IF NOT i_material_doca-ebeln IS INITIAL." CH06+
SELECT single ekgrp into i_material_doca-ekgrp" CH06+
FROM ekko " CH06+
WHERE ebeln EQ i_material_doca-ebeln." CH06+
ENDIF." CH06+
CLEAR: marc, i_material_doca-ekgrp." CH07+
SELECT single ekgrp into i_material_doca-ekgrp" CH07+
FROM marc " CH07+
WHERE matnr EQ i_material_doca-matnr " CH07+
AND werks EQ i_material_doca-werks." CH07+
Read PO schedule line for delivery dt
CLEAR: eket, i_material_doca-eindt." CH06+
IF NOT i_material_doca-ebeln IS INITIAL." CH06+
SELECT single eindt into i_material_doca-eindt" CH06+
FROM eket " CH06+
WHERE ebeln EQ i_material_doca-ebeln" CH06+
AND ebelp EQ i_material_doca-ebelp." CH06+
ENDIF." CH06+
APPEND i_material_doca TO i_material_doc.
ENDLOOP.
LOOP AT i_material_doc.
SELECT SINGLE btext FROM t156t INTO i_material_doc-btext
WHERE bwart = i_material_doc-bwart AND spras = 'EN'.
MODIFY i_material_doc.
CLEAR: i_material_doc.
ENDLOOP.
ENDFORM. " FORM
Initialization fieldcatalog
FORM fieldcat_init
USING rt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
DATA: pos TYPE i VALUE 1.
IF sy-langu = 'E'.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'WERKS'.
ls_fieldcat-seltext_s = 'Plant '.
ls_fieldcat-seltext_m = 'Plant'.
ls_fieldcat-seltext_l = 'Plant'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'LGORT'.
ls_fieldcat-seltext_s = 'Storage Loc'.
ls_fieldcat-seltext_m = 'Storage Loc'.
ls_fieldcat-seltext_l = 'Storage Loc'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'BWART'.
ls_fieldcat-seltext_s = 'Mov Type'.
ls_fieldcat-seltext_m = 'Mov Type'.
ls_fieldcat-seltext_l = 'Movement Type'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'BTEXT'.
ls_fieldcat-seltext_s = 'Text-Mov Type'.
ls_fieldcat-seltext_m = 'Text-Mov Type'.
ls_fieldcat-seltext_l = 'Text-Movement Type'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'XBLNR'.
ls_fieldcat-seltext_s = 'Ref Doc'.
ls_fieldcat-seltext_m = 'Reference Doc'.
ls_fieldcat-seltext_l = 'Reference Doc Number'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'BUDAT'.
ls_fieldcat-seltext_s = 'Posting Date'.
ls_fieldcat-seltext_m = 'Posting Date'.
ls_fieldcat-seltext_l = 'Posting Date'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'SOBKZ'.
ls_fieldcat-seltext_s = 'Special Stock'.
ls_fieldcat-seltext_m = 'Special Stock'.
ls_fieldcat-seltext_l = 'Special Stock'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'MBLNR'.
ls_fieldcat-seltext_s = 'Material Doc'.
ls_fieldcat-seltext_m = 'Material Doc'.
ls_fieldcat-seltext_l = 'Material Doc Number'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'URZEI'.
ls_fieldcat-seltext_s = 'Item'.
ls_fieldcat-seltext_m = 'Item'.
ls_fieldcat-seltext_l = 'Material Document Item'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'MATNR'.
ls_fieldcat-seltext_s = 'Material'.
ls_fieldcat-seltext_m = 'Material No'.
ls_fieldcat-seltext_l = 'Material Numner'.
ls_fieldcat-seltext_l = 'Material Number'." CH01+
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'MAKTX'.
ls_fieldcat-seltext_s = 'Description'.
ls_fieldcat-seltext_m = 'Material Description'.
ls_fieldcat-seltext_l = 'Material Description'.
ls_fieldcat-no_out = 'X'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'USNAM'.
ls_fieldcat-seltext_s = 'User'.
ls_fieldcat-seltext_m = 'Created By'.
ls_fieldcat-seltext_l = 'Created By'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'CHARG'.
ls_fieldcat-seltext_s = 'Batch'.
ls_fieldcat-seltext_m = 'Batch No'.
ls_fieldcat-seltext_l = 'Batch Number'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'KUNNR'.
ls_fieldcat-seltext_s = 'Customer'.
ls_fieldcat-seltext_m = 'Customer'.
ls_fieldcat-seltext_l = 'Customer'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'SONAME'.
ls_fieldcat-seltext_s = 'Customer Name '.
ls_fieldcat-seltext_m = 'Customer Name'.
ls_fieldcat-seltext_l = 'Customer Name'.
ls_fieldcat-no_out = 'X'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'LIFNR'.
ls_fieldcat-seltext_s = 'Vendor'.
ls_fieldcat-seltext_m = 'Vendor'.
ls_fieldcat-seltext_l = 'Vendor'..
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'VDNAME'.
ls_fieldcat-seltext_s = 'Vendor Name '.
ls_fieldcat-seltext_m = 'Vendor Name'.
ls_fieldcat-seltext_l = 'Vendor Name'.
ls_fieldcat-no_out = 'X'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'SERNR'.
ls_fieldcat-ref_fieldname = 'SERNR'.
ls_fieldcat-outputlen = '18'.
ls_fieldcat-seltext_s = 'Serial Number'.
ls_fieldcat-seltext_m = 'Serial Number'.
ls_fieldcat-seltext_l = 'Serial Number'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'BELNR'.
ls_fieldcat-seltext_s = 'Account Doc'.
ls_fieldcat-seltext_m = 'Accounting Doc'.
ls_fieldcat-seltext_l = 'Accounting Document'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
IF l_account = 'X'.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'BELN2'.
ls_fieldcat-seltext_s = 'Account Doc2'.
ls_fieldcat-seltext_m = 'Accounting Doc2'.
ls_fieldcat-seltext_l = 'Accounting Document2'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ENDIF.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'KDAUF'.
ls_fieldcat-seltext_s = 'Sales Order'.
ls_fieldcat-seltext_m = 'Sales Order '.
ls_fieldcat-seltext_l = 'Sales Order Number'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'EBELN'.
ls_fieldcat-seltext_s = 'Purchase Ord'.
ls_fieldcat-seltext_m = 'Purchase Order '.
ls_fieldcat-seltext_l = 'Purchase Order Number'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1." CH02+
ls_fieldcat-col_pos = pos." CH02+
ls_fieldcat-fieldname = 'EBELP'." CH02+
ls_fieldcat-seltext_s = 'PO Line'." CH02+
ls_fieldcat-seltext_m = 'PO Line'." CH02+
ls_fieldcat-seltext_l = 'PO Line'." CH02+
APPEND ls_fieldcat TO rt_fieldcat." CH02+
CLEAR ls_fieldcat." CH02+
pos = pos + 1." CH02+
ls_fieldcat-col_pos = pos." CH02+
ls_fieldcat-fieldname = 'BUALT'." CH02+
ls_fieldcat-seltext_s = 'Amount'." CH02+
ls_fieldcat-seltext_m = 'Amount'." CH02+
ls_fieldcat-seltext_l = 'Amount'." CH02+
ls_fieldcat-do_sum = 'X'." CH02+
ls_fieldcat-no_out = 'X'." CH03+
APPEND ls_fieldcat TO rt_fieldcat." CH02+
CLEAR ls_fieldcat." CH02+
pos = pos + 1." CH03+
ls_fieldcat-col_pos = pos." CH03+
ls_fieldcat-fieldname = 'DMBTR'." CH03+
ls_fieldcat-seltext_s = 'Amt LC'." CH03+
ls_fieldcat-seltext_m = 'Amt LCurr'." CH03+
ls_fieldcat-seltext_l = 'Amt Local Curr'." CH03+
ls_fieldcat-do_sum = 'X'." CH03+
ls_fieldcat-no_out = 'X'." CH03+
APPEND ls_fieldcat TO rt_fieldcat." CH03+
CLEAR ls_fieldcat." CH03+
pos = pos + 1." CH03+
ls_fieldcat-col_pos = pos." CH03+
ls_fieldcat-fieldname = 'UNIT_AMT'." CH03+
ls_fieldcat-seltext_s = 'Unit Amt'." CH03+
ls_fieldcat-seltext_m = 'Unit Amt'." CH03+
ls_fieldcat-seltext_l = 'Unit Amount'." CH03+
ls_fieldcat-do_sum = 'X'." CH03+
ls_fieldcat-no_out = 'X'." CH03+
APPEND ls_fieldcat TO rt_fieldcat." CH03+
CLEAR ls_fieldcat." CH03+
pos = pos + 1." CH03+
ls_fieldcat-col_pos = pos." CH03+
ls_fieldcat-fieldname = 'UNIT_AMT_LC'." CH03+
ls_fieldcat-seltext_s = 'Unit Amt LC'." CH03+
ls_fieldcat-seltext_m = 'Unit Amt LC'." CH03+
ls_fieldcat-seltext_l = 'Unit Amount LC'." CH03+
ls_fieldcat-do_sum = 'X'." CH03+
ls_fieldcat-no_out = 'X'." CH03+
APPEND ls_fieldcat TO rt_fieldcat." CH03+
CLEAR ls_fieldcat." CH03+
pos = pos + 1." CH03+
ls_fieldcat-col_pos = pos." CH03+
ls_fieldcat-fieldname = 'WAERS'." CH03+
ls_fieldcat-seltext_s = 'Curr'." CH03+
ls_fieldcat-seltext_m = 'Currency'." CH03+
ls_fieldcat-seltext_l = 'Currency'." CH03+
ls_fieldcat-do_sum = 'X'." CH03+
ls_fieldcat-no_out = 'X'." CH03+
APPEND ls_fieldcat TO rt_fieldcat." CH03+
CLEAR ls_fieldcat." CH03+
pos = pos + 1." CH03+
ls_fieldcat-col_pos = pos." CH03+
ls_fieldcat-fieldname = 'ERFMG'." CH03+
ls_fieldcat-seltext_s = 'Qty UnE'." CH03+
ls_fieldcat-seltext_m = 'Qty in UnE'." CH03+
ls_fieldcat-seltext_l = 'Qty in Unit Entry'." CH03+
ls_fieldcat-do_sum = 'X'." CH03+
ls_fieldcat-no_out = 'X'." CH03+
APPEND ls_fieldcat TO rt_fieldcat." CH03+
CLEAR ls_fieldcat." CH03+
pos = pos + 1." CH04+
ls_fieldcat-col_pos = pos." CH04+
ls_fieldcat-fieldname = 'AUFNR'." CH04+
ls_fieldcat-seltext_s = 'Order'." CH04+
ls_fieldcat-seltext_m = 'Work Order'." CH04+
ls_fieldcat-seltext_l = 'Work Order'." CH04+
ls_fieldcat-do_sum = 'X'." CH04+
ls_fieldcat-no_out = 'X'." CH04+
APPEND ls_fieldcat TO rt_fieldcat." CH04+
CLEAR ls_fieldcat." CH04+
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'MENGE'.
ls_fieldcat-seltext_s = 'Inventory'.
ls_fieldcat-seltext_m = 'Inventory'.
ls_fieldcat-seltext_l = 'Inventory'.
ls_fieldcat-do_sum = 'X'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1." VS01+
ls_fieldcat-col_pos = pos." VS01+
ls_fieldcat-fieldname = 'BEZEI'." VS01+
ls_fieldcat-seltext_s = 'PO Reason for Order'." VS01+
ls_fieldcat-seltext_m = 'PO Reason for Order'." VS01+
ls_fieldcat-seltext_l = 'PO Reason for Order'." VS01+
APPEND ls_fieldcat TO rt_fieldcat." VS01+
CLEAR ls_fieldcat." VS01+
pos = pos + 1." CH05+
ls_fieldcat-col_pos = pos." CH05+
ls_fieldcat-fieldname = 'GRUND'." CH05+
ls_fieldcat-seltext_s = 'Reason Cd'." CH05+
ls_fieldcat-seltext_m = 'Reason Code'." CH05+
ls_fieldcat-seltext_l = 'Reason for Movement Cd'." CH05+
APPEND ls_fieldcat TO rt_fieldcat." CH05+
CLEAR ls_fieldcat." CH05+
pos = pos + 1." CH05+
ls_fieldcat-col_pos = pos." CH05+
ls_fieldcat-fieldname = 'GRTXT'." CH05+
ls_fieldcat-seltext_s = 'Reason Desc'." CH05+
ls_fieldcat-seltext_m = 'Reason Desc'." CH05+
ls_fieldcat-seltext_l = 'Reason for Movement Desc'." CH05+
APPEND ls_fieldcat TO rt_fieldcat." CH05+
CLEAR ls_fieldcat." CH05+
pos = pos + 1." CH06+
ls_fieldcat-col_pos = pos." CH06+
ls_fieldcat-fieldname = 'ISSDT'." CH06+
ls_fieldcat-seltext_s = 'Issuing Dt'." CH06+
ls_fieldcat-seltext_m = 'Issuing Date'." CH06+
ls_fieldcat-seltext_l = 'Issuing Date'." CH06+
APPEND ls_fieldcat TO rt_fieldcat." CH06+
CLEAR ls_fieldcat." CH06+
pos = pos + 1." CH06+
ls_fieldcat-col_pos = pos." CH06+
ls_fieldcat-fieldname = 'EKGRP'." CH06+
ls_fieldcat-seltext_s = 'Buyer'." CH06+
ls_fieldcat-seltext_m = 'Buyer Cd'." CH06+
ls_fieldcat-seltext_l = 'Buyer Cd'." CH06+
APPEND ls_fieldcat TO rt_fieldcat." CH06+
CLEAR ls_fieldcat." CH06+
pos = pos + 1." CH06+
ls_fieldcat-col_pos = pos." CH06+
ls_fieldcat-fieldname = 'EINDT'." CH06+
ls_fieldcat-seltext_s = 'Deliv Dt'." CH06+
ls_fieldcat-seltext_m = 'Delivery Dt'." CH06+
ls_fieldcat-seltext_l = 'Delivery Date'." CH06+
APPEND ls_fieldcat TO rt_fieldcat." CH06+
CLEAR ls_fieldcat." CH06+
ENDIF.
*Espanol
IF sy-langu = 'S'.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'WERKS'.
ls_fieldcat-seltext_s = 'Centro '.
ls_fieldcat-seltext_m = 'Centro'.
ls_fieldcat-seltext_l = 'Centro'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'LGORT'.
ls_fieldcat-seltext_s = 'Almacén'.
ls_fieldcat-seltext_m = 'Almacén'.
ls_fieldcat-seltext_l = 'Almacén'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'BWART'.
ls_fieldcat-seltext_s = 'Clase de movimiento'.
ls_fieldcat-seltext_m = 'Clase de movimiento'.
ls_fieldcat-seltext_l = 'Clase de movimiento'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'BTEXT'.
ls_fieldcat-seltext_s = 'Texto-movimiento'.
ls_fieldcat-seltext_m = 'Texto-movimiento'.
ls_fieldcat-seltext_l = 'Texto-movimiento'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'XBLNR'.
ls_fieldcat-seltext_s = 'Documento de referencia'.
ls_fieldcat-seltext_m = 'Documento de referencia'.
ls_fieldcat-seltext_l = 'Documento de referencia'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'BUDAT'.
ls_fieldcat-seltext_s = 'Fijación De la Fecha '.
ls_fieldcat-seltext_m = 'Fijación De la Fecha '.
ls_fieldcat-seltext_l = 'Fijación De la Fecha '.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'SOBKZ'.
ls_fieldcat-seltext_s = 'Stock especial'.
ls_fieldcat-seltext_m = 'Stock especial'.
ls_fieldcat-seltext_l = 'Stock especial'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'MBLNR'.
ls_fieldcat-seltext_s = 'Documento Material '.
ls_fieldcat-seltext_m = 'Documento Material '.
ls_fieldcat-seltext_l = 'Documento Material '.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'URZEI'.
ls_fieldcat-seltext_s = 'Artículo '.
ls_fieldcat-seltext_m = 'Artículo '.
ls_fieldcat-seltext_l = 'Artículo Material'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'MATNR'.
ls_fieldcat-seltext_s = 'Materiales'.
ls_fieldcat-seltext_m = 'Materiales'.
ls_fieldcat-seltext_l = 'Material Numner'.
ls_fieldcat-seltext_l = 'Materiales'." CH01+
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'MAKTX'.
ls_fieldcat-seltext_s = 'Descripción Material '.
ls_fieldcat-seltext_m = 'Descripción Material '.
ls_fieldcat-seltext_l = 'Descripción Material '.
ls_fieldcat-no_out = 'X'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'USNAM'.
ls_fieldcat-seltext_s = 'Usuario'.
ls_fieldcat-seltext_m = 'Creado Cerca'.
ls_fieldcat-seltext_l = 'Creado Cerca'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'CHARG'.
ls_fieldcat-seltext_s = 'Lote'.
ls_fieldcat-seltext_m = 'Lote'.
ls_fieldcat-seltext_l = 'Lote'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'KUNNR'.
ls_fieldcat-seltext_s = 'Cliente'.
ls_fieldcat-seltext_m = 'Cliente'.
ls_fieldcat-seltext_l = 'Cliente'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'SONAME'.
ls_fieldcat-seltext_s = 'Nombre de Cliente'.
ls_fieldcat-seltext_m = 'Nombre de Cliente'.
ls_fieldcat-seltext_l = 'Nombre de Cliente'.
ls_fieldcat-no_out = 'X'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'LIFNR'.
ls_fieldcat-seltext_s = 'Proveedor'.
ls_fieldcat-seltext_m = 'Proveedor'.
ls_fieldcat-seltext_l = 'Proveedor'..
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'VDNAME'.
ls_fieldcat-seltext_s = 'Nombre de Proveedor'.
ls_fieldcat-seltext_m = 'Nombre de Proveedor'.
ls_fieldcat-seltext_l = 'Nombre de Proveedor'.
ls_fieldcat-no_out = 'X'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
pos = pos + 1.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldHi
If i can understand correctly, i guess you can acheive the same by commenting the below highlighted line. Please check for the same.
*& Form USER_COMMAND
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE r_ucomm.
WHEN '&IC1'.
<b>*PERFORM display_sales_order USING r_ucomm</b>rs_selfield.
ENDCASE.
ENDFORM.
Also i guess you can use the same program, and place an authorization check for ppl to see or not see the later data.
Hope this can help you.
Kind Regards
Eswar -
Administração de boletos em Localização Brasil
Prezados,
O SAP Business One precisa se adaptar à localização brasil a que se refere a adminsitração de boleto.
Dois pontos que notei:
1 - Mudar data de vencimento quando o boleto estiver no status enviado gerado ou depositado. (esse primeiro já postei no SAP Business One Product Development Collaboration), pois aqui no Brasil é muito comum mudar data de vencimento por demora na entrega da mercadoria por exemplo. da forma como está no B1 tem que cancelar o boleto, alterar a data e depois gerá-lo novamente fazendo com que perca a referência do boleto.
2 - Dar desconto ou juros no boleto com o boleto no status depositado viabilza, pois não precisaria fazer lançameto manual contábil para contas de maior ou a menor, pois é muito comum no brasil descontos até a data de vencimento, mas não da forma como o SAP B1 faz (na condição de pagamento no Brasil não funciona).
Se a SAP fizer issoficará mais fácil , agil e interessante na criação de relatórios como o de comissão por exemplo.
Se eu cancelar o boleto e criá-lo novamente como o desconto eu perco a referência e atraso o meu processo.
Estas duas sugestões só seriam permitidas usar com autorização de usuário.
Att,
Lucidio Gandra AlvesDear,
SAP Business One must adapt to the location Brazil referred to the Administration of billet.
Two points I noticed:
1 - Change the due date, when the billet is in the status sent generated or deposited. (I posted this first in SAP Business One Product Development Collaboration), because here in Brazil is very common to change the due date for delay in delivery of goods for example. how is the B1 has to cancel the ticket, change the date and then regenerate it causing him to lose the reference of the billet.
2 - Give a discount or interest in the slip with the slip in status filed viabilza therefore do not need lançameto manual accounting for accounts more or less as it is very common in Brazil discounts to maturity, but not the way the SAP B1 is (provided that payment in Brazil does not work).
If SAP makes it easy issoficará, agile and interesting in reporting as the commission for example.
If I cancel the slip and create it again as the discount I lose my reference and delay the process.
These two suggestions would be permitted to use only authorized user.
Lucidio Gandra Alves -
Converstion of xml doucment to word document
Hi in one of our deveopments ,
we needed to design the word document and send it as attachment. As it is designed with xml ( word ml ) Firewalls are not allowing this to pass through. Then we manually opened up the document using word application and performed Save As to save as pure word doc with out the xml tags. then we send it as an attchement it then worked out. We need to automate this procedure of converting xml document to word document.
we used 'Ole' object to convert it it is working fine in Sap Gui. But with Portal 'Ole objects' doesn't t work.
So please suggest a way to conver the xml document to word document from crm web client action .
This is a critical requirement if somebody throw light on this it would be great help to us.......wishin some body could give solution to me.
Jaffer vali shaikHere is the sample report to open word doc with some testing message......
Report Test.
INCLUDE ole2incl.
DATA: word TYPE ole2_object, documentos TYPE
ole2_object,
documento TYPE ole2_object,
selection TYPE ole2_object,
font TYPE ole2_object.
CREATE OBJECT word 'WORD.APPLICATION'.
CALL METHOD OF word 'Documents' = documentos.
CALL METHOD OF documentos 'Add' = documento.
CALL METHOD OF documento 'Activate'.
GET PROPERTY OF word 'Selection' = selection.
GET PROPERTY OF selection 'Font' = font.
SET PROPERTY OF word 'Visible' = 1.
SET PROPERTY OF font 'Name' = 'Arial'.
SET PROPERTY OF font 'Size' = 12.
SET PROPERTY OF font 'Bold' = 1. "o 0
SET PROPERTY OF font 'Underline' = 1. "o 0
CALL METHOD OF selection 'TypeText' EXPORTING #1 = 'Word Doc Test'.
CALL METHOD OF selection 'TypeParagraph'.
CALL METHOD OF documento 'SaveAs' EXPORTING #1 = 'c:test.doc'.
CALL METHOD OF word 'Quit'.
Hope this will help..... -
Ch@ndra plz help: conversion to word doc
Some people have repsonded to this post but it is not working as desired
the code below is working but when I am tryin to add the table, it is not working...
Incase chabdra you can post the code for creating tables it would be great..
some one posted a pdf file as well to accheive this but the steps and code given in that is not working correctly...
sorry for bothering you...
thanks,
Hello,
Any pointers as how to acheive if we want to convert a flat file into a meanigful word output.
approach: I want to add some lines of introduction to the word,
then add some data from the flat file,
again some explanation to the data and then again a bunch of data..
earlier i had posted the post and Ch@ndra had replied giving some inputs,
What I could understand, we can create a new word file and add some text to it, But how we combine the the selected flat file data and some text.
posting the code which Ch@ndra posted me ..
INCLUDE ole2incl.
DATA: word TYPE ole2_object,
documentos TYPE ole2_object,
documento TYPE ole2_object,
selection TYPE ole2_object,
font TYPE ole2_object.
CREATE OBJECT word 'WORD.APPLICATION'.
CALL METHOD OF word 'Documents' = documentos.
CALL METHOD OF documentos 'Add' = documento.
CALL METHOD OF documento 'Activate'.
GET PROPERTY OF word 'Selection' = selection.
GET PROPERTY OF selection 'Font' = font.
SET PROPERTY OF word 'Visible' = 1.
SET PROPERTY OF font 'Name' = 'Arial'.
SET PROPERTY OF font 'Size' = 10.
SET PROPERTY OF font 'Bold' = 1. "o 0
SET PROPERTY OF font 'Underline' = 1. "o 0
CALL METHOD OF selection 'TypeText' EXPORTING #1 = 'Assesment Tool'.
CALL METHOD OF selection 'TypeParagraph'.
CALL METHOD OF documento 'SaveAs' EXPORTING #1 = 'c:\test.doc'.
CALL METHOD OF word 'Quit'.
any other commands availbale to convert the data into table and other forms.
thanksIf you have adobe X, simply go to "File" -> "Save-As" and Microsoft Word is an option. Also, there is a download (paid) called Able2Extract that will allow you to convert pdfs to word, excel, etc. but the formatting is often lost. If you get the premium package, you can even convert scanned documents. I've used Adobe X to do the conversion, and it retains headers, footers and all formatting.
And i personally share you with a article about how to converting PDF files to Word(.doc), you just need to follow the easy guide.
Hope it can help you a lot. -
Conversion of flat file to word document
Hello,
I have a reqt where in I have data available in the flat file on the presentation server .
I want to extract some information based on some logic from the flat file and move it to the word document.
In case anyone has an idea how to go about it, please let me know.
Thanks.Here is the sample report to open word doc with some testing message......
Report Test.
INCLUDE ole2incl.
DATA: word TYPE ole2_object, documentos TYPE
ole2_object,
documento TYPE ole2_object,
selection TYPE ole2_object,
font TYPE ole2_object.
CREATE OBJECT word 'WORD.APPLICATION'.
CALL METHOD OF word 'Documents' = documentos.
CALL METHOD OF documentos 'Add' = documento.
CALL METHOD OF documento 'Activate'.
GET PROPERTY OF word 'Selection' = selection.
GET PROPERTY OF selection 'Font' = font.
SET PROPERTY OF word 'Visible' = 1.
SET PROPERTY OF font 'Name' = 'Arial'.
SET PROPERTY OF font 'Size' = 12.
SET PROPERTY OF font 'Bold' = 1. "o 0
SET PROPERTY OF font 'Underline' = 1. "o 0
CALL METHOD OF selection 'TypeText' EXPORTING #1 = 'Word Doc Test'.
CALL METHOD OF selection 'TypeParagraph'.
CALL METHOD OF documento 'SaveAs' EXPORTING #1 = 'c:test.doc'.
CALL METHOD OF word 'Quit'.
Hope this will help..... -
Soma de dias em Data do Documento
Boa tarde a todos!
Estou com o seguinte problema:
Possuo um campo definido pelo usuário no qual desejo adicionar a seguinte consulta formatada:
SELECT +10
O problema ocorre quando essa conta supera 30 / 31 dias! No SQL, funciona normalmente, e o mês é alterado.
Já no SAP B1, é retornado um erro, como se não fosse possível adicionar mais dias ao mês.
Não sei onde estou errando.
Agradeço desde já!
Lucas DiasFábio,
Consegui de uma forma ainda mais fácil:
SELECT $[ODLN.TaxDate.Date]+10
A parte ".date" funciona como um CONVERT() .
No caso, eu precisava adicionar em um campo definido pelo usuário, a Data do Documento de Marketing + a quantidade de dias da primeira linha da prestação, na condição de pagamento indicada na aba 'Contabilidade'. Consegui da seguinte forma:
SELECT $[ODLN.TaxDate.Date]
+
(SELECT TOP 1 CASE WHEN OCTG.InstNum = '0' THEN 0 ELSE
CASE WHEN OCTG.InstNum IS NULL THEN 0 ELSE CTG1.InstDays END END as 'QTDDIASPREST'
FROM OCTG
LEFT JOIN CTG1 ON OCTG.GroupNum = CTG1.CTGCode
WHERE OCTG.GroupNum = $[ODLN.Groupnum])
A segunda parte já estava funcionando, mas eu não estava conseguindo adicionar. Agora está ok!
Obrigado pela ajuda!
Lucas Dias -
nel convertire un documento pdf in xlsx la data formato italiano dd/mm/yy viene convertita in yy/mm/dd . il tentativo seguente di riportare la data nel formato iniziale o nel formato gg/mm/yyyy stravolge il documento.
provo a fare un esempio concreto:
pdf
convert xlsx
modifica formato
01/03/15
01/03/15
15/03/2001
02/03/15
02/03/15
15/03/2002
18/03/15
18/03/15
15/03/2018
come risolvereHi adrianop87488997,
Thank you for your clear explanation of the problem you're running into with ExportPDF. For starters, please make sure that you're choosing the correct language for Optical Character Recognition (OCR). But, that said, I would be interested in learning more about the PDF file you're converting. Please choose File > Properties and check the PDF Producer listed on the Description tab. If the PDF was created by a third-party (anybody other than Adobe), it may not be written to spec, which can affect the quality of the conversion. Please see Support Policy for PDF Files created by non Adobe applications.
Best,
Sara -
Design issue - Historical data - referencial integrity
Hi,
I dont know if this is the right place to post this question, but
I would to like know about the design issues in storing historical data .
I have a historical table about events ( notifications, alarms, etc ).
In historical table would I store fields with foreign key to the master table ( device table ) ?
In this design , how handle then updates ( remove record ) to the master table ?
would I have a trigger to update the historical table too ? Or I mustn' t permit
updates in master table primary Keys ?
And about no store The foreign keys in the historical data ?
What are the disvantages of this model ?
Thank you,
FariaFaria,
The answer depends on why you want historical data.
Is the historical data to be used for auditing or legal purposes?
Are you trying to move historical data for performance reasons?
Is there some other purpose?
If you're doing this for auditing purposes, I don't recommend using foreign keys since you won't easily be able to capture delete activity.
I mostly use Designer for all of our designs and typically will turn on server side journaling for this purpose. Designer will then generate the journaling tables and write the triggers to manage the whole process. You don't even need to be a programmer to figure it out.
Let me know back if this isn't your purpose or you need clarification.
Thanks, George -
Adiamento da data de obrigatoriedade da CC-e - Estado de São Paulo
Não vi ninguém comentando por aqui, então segue o texto.
Portaria CAT 109, de 20-07-2011
(DOE 21-07-2011)
Altera a Portaria CAT-162/08, de 29-12-2008, que dispõe sobre a emissão da Nota Fiscal Eletrônica - NF-e e do Documento Auxiliar da Nota Fiscal Eletrônica - DANFE, o credenciamento de contribuintes e dá outras providências.
O Coordenador da Administração Tributária, tendo em vista o disposto no Ajuste SINIEF-07/05, de 30 de setembro de 2005, e no artigo 212-O, I e § 3º, do Regulamento do Imposto sobre Operações Relativas à Circulação de Mercadorias e sobre Prestações de Serviços de Transporte Interestadual e Intermunicipal e de Comunicação - ICMS, aprovado pelo Decreto 45.490, de 30 de novembro de 2000, expede a seguinte portaria:
Art. 1º - Fica acrescentado o artigo 38-B à Portaria CAT-162/08, de 29 de dezembro de 2008, com a redação que segue:
u201CArt. 38-B - o saneamento de erro na NF-e poderá ser feito por meio de carta de correção em papel até 31 de dezembro de 2011, devendo, após essa data, ser feito exclusivamente por meio da Carta de Correção Eletrônica - CC-e de que trata o artigo 19.u201D (NR).
Art. 2º - Esta portaria entra em vigor na data de sua publicação.
http://info.fazenda.sp.gov.br/NXT/gateway.dll/legislacao_tributaria/portaria_cat/pcat1092011.htm?f=templates&fn=default.htm&vid=sefaz_tributaria:vtribut
Abs,
Henrique.Olá Daniel,
a idéia de subir é só implementar a CC-e?
Note que o upgrade para o NFE 10 (SLL-NFE 900) tem alguns pre-reqs que, apesar de não muito complexos, vão exigir alguns dias de consultor (ou pessoa con conhecimento) de Basis e PI. Algumas atividades:
- subir o EhP do AS ABAP onde o SLL-NFE está instalado para o 7.02 (se o SLL-NFE tiver sido instalado na mesma instância do PI, precisa subir o EhP do PI pro EhP 2, tanto no ABAP quanto no Java);
- fazer upgrade do Add-On SLL-NFE p/ a versão 900 (e instalar até o último SP disponível);
- instalar o certificado digital no PSE no AS ABAP (STRUST);
- importar o SP equivalente do PI Content SAP SLL-NFE 10.0 no Repository do PI;
- importar o PI Content SAP_BASIS 7.02 (e utilizar essa versão na configuração dos communication channel novos);
- refazer a configuração dos cenários de integração no Directory do PI, utilizando os integration scenarios do novo SWCV (SLL-NFE 10.0).
Se a idéia é só implementar a CC-e, por enquanto acho que vale mais a pena só subir o SP do SLL-NFE 100 mesmo (subindo o SP equivalente do PI Content SAP SLL-NFE 1.0). Mas sua empresa já deveria planejar esse upgrade pro NFE 10.0 em algum momento desse ano ou início do próximo, pois as novas funcionalidades que não forem requerimentos legais vão sair apenas pro 10.0.
Abs,
Henrique.
Maybe you are looking for
-
Can FW CS3 be used for graphic for printing?
I am very familiar with FW but I do not like Photoshop, however I have both I preffer to use FW. As I have seen on one presentation new FW CS3 has CMYK pallete so my question is: can FW CS3 be used for preparation of graphic for printing or what are
-
Newbie | Invoking a Dot Net Web Service
Hey, I need to call a web service built in .net in one of my java files. How can I do this? I think HttpUrlConnection class is used for this. Can someone please share some sample code? Anticipating, Nick
-
Why doesn't Lightroom 5 always watermark exported images?
I haven't changed the settings, but last time I tried to export images with a watermark the images appeared in the output folder without watermarks. The problem has occured before, but corrected itself when I re-exported the images. This time Lightro
-
Survey:Add formula to survey field
Hi , I have the requiement that I need to add a field in the survey (CRM_SURVEY_SUITE) , that should be calculated based on the values entered by users. Input field - A - 80 (user enters) Input filed - B - 100 (user enter) Input field - C should be
-
ITunes Music Library.itl file is locked, on a locked disk, or you do not...
^^....have write permission for this file. Help! I originally installed iTunes,iPod on my user acct.#1 Then created user acct#2 on my PC. I deleted acct.#1 but have all its files on acct#2. Now I can't access my iTunes. I get the error message in the